update emacs

1 files changed, 26 insertions, 22 deletions

diff --git a/emacs.org b/emacs.org
index 3c309d7..6e0676f 100755
--- a/emacs.org
+++ b/emacs.org
@@ -31,6 +31,8 @@ Define essential keybindings
 #+begin_src emacs-lisp
   (define-prefix-command 'thanos/applications-map)
   (global-set-key (kbd "C-c a") 'thanos/applications-map)
+  (when is-zeus
+    (define-key 'thanos/applications-map (kbd "g") 'guix))
 
   (define-prefix-command 'Create)
   (define-key thanos/applications-map (kbd "C-c") 'Create)
@@ -39,9 +41,8 @@ Define essential keybindings
 #+end_src
 
 ** Paths
-  deliberately 
 #+begin_src emacs-lisp
-  (add-to-list 'load-path "/usr/share/emacs/site-lisp/elpa/mu4e-1.8.14")
+  ;; (add-to-list 'load-path "/usr/share/emacs/site-lisp/elpa/mu4e-1.8.14")
   (when is-zeus
     (guix-emacs-autoload-packages))
 #+end_src
@@ -65,7 +66,8 @@ Request the following packages:
 			org-superstar pdf-tools org-auto-tangle sly
 			org-download eshell-git-prompt eshell-vterm
 			hackernews circe gptel beacon ement mu4e-alert
-			pass eat))
+			pass eat
+			))
 #+end_src
 ** Installation & activation
 Set ~package-archives~, and install packages
@@ -74,16 +76,11 @@ Set ~package-archives~, and install packages
 			   ("elpa" . "https://elpa.gnu.org/packages/")
 			   ("nongnu" . "https://elpa.nongnu.org/nongnu/")))
   ;; Activate all the packages
-  (package-initialize)
-
-  ;; Fetch the list of packages available 
-  (package-refresh-contents)
-
+  (package-initialize)  
   ;; Install the missing packages
-  (cl-mapcar (lambda (package)
-		 (unless (package-installed-p package)
-		   (package-install package)))
-	     thanos/packages)
+  ;; (dolist (package thanos/packages)
+  ;;   (unless (package-installed-p package)
+  ;;     (package-install package)))
 
   ;; Set and load custom.el
   (setq custom-file (concat user-emacs-directory "custom.el"))
@@ -95,10 +92,15 @@ Fonts and basic appearance settings for each device
 #+begin_src emacs-lisp
   (setq inhibit-startup-message t)
   (setq initial-scratch-message nil)
+  (setq company-box-icons-alist 'company-box-icons-all-the-icons)
   ;; Transparency
   (set-frame-parameter (selected-frame) 'alpha '(90 95))
+  (set-frame-parameter nil 'alpha-background 90)
+
+  (add-to-list 'default-frame-alist '(alpha-background . 90))
   (add-to-list 'default-frame-alist '(alpha 90 90))
 
+
   (add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
 
   (when (equal is-phone nil)
@@ -115,10 +117,10 @@ Fonts and basic appearance settings for each device
   (global-visual-line-mode 1)
 
   ;; Set emojis for emacs 29
-  (require 'emojify)
-  (if (version< emacs-version "29")
-      (setq global-emojify-mode 1)
-    (setq global-emojify-mode 0))
+  ;; (require 'emojify)
+  ;; (if (version< emacs-version "29")
+  ;;     (setq global-emojify-mode 1)
+  ;;   (setq global-emojify-mode 0))
 
   (setq visible-bell t)
 
@@ -274,7 +276,7 @@ Generate a random password between 20 and 40 characters
 			    (height . 11)))
 	    (if is-zeus
 		(progn
-		  (load-file "~/Developer/emacs-projects/emacs-app-launcher/app-launcher.el")
+		  (load-file "~/Developer/emacs-app-launcher/app-launcher.el")
 		  (app-launcher-run-app))
 	      (counsel-linux-app))
 	    (delete-frame)))))
@@ -525,7 +527,7 @@ Generate a random password between 20 and 40 characters
 #+begin_src emacs-lisp
   (require 'ox-md nil t)
   (require 'org-download)
-  (require 'org-drill)
+  ;;(require 'org-drill)
 
   (setq org-directory "~/org/"
 	org-agenda-files '("~/org/agenda.org")
@@ -592,7 +594,7 @@ Generate a random password between 20 and 40 characters
 * Memorize
 #+begin_src emacs-lisp
   (when is-zeus
-    (load-file "~/Developer/emacs-projects/memorize/memorize.el"))
+    (load-file "~/Developer/memorize/memorize.el"))
 #+end_src
 * Markdown
 ** Theme
@@ -698,7 +700,7 @@ Generate a random password between 20 and 40 characters
   ;; set pylsp with lsp-mode
   (setq lsp-pyls-server-command "~/.local/bin/pylsp")
 
-  (require 'python-mode)
+  ;;(require 'python-mode)
   (add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
   (add-hook 'python-mode 'lsp-deferred)
 #+end_src
@@ -1057,6 +1059,7 @@ Set aliases for ~~/.emacs.d/eshell/alias~ similarly that I would for a ~~/.bashr
   alias weather curl wttr.in
   alias yeet paru -Rsc
   alias ytd yt-dlp
+  alias clear clear-scrollback
 #+end_src
 Set aliases for emacs functions and ~PATH~
 #+begin_src emacs-lisp
@@ -1266,12 +1269,13 @@ Set aliases for emacs functions and ~PATH~
 #+begin_src emacs-lisp
   (require 'gptel)
   (define-key 'thanos/applications-map (kbd "c") 'gptel-send)
-  (setq gptel-api-key (password-store-get "chatgpt/api"))
+  (setq gptel-api-key (password-store-get "chatgpt/api")
+	gptel-model 'gpt-4-32k)
 #+end_src
 * YeeTube
 #+begin_src emacs-lisp
   (when is-zeus
-    (load-file "~/Developer/emacs-projects/yeetube.el/yeetube.el"))
+    (load-file "~/Developer/yeetube.el/yeetube.el"))
   (require 'yeetube)
 
   (setq yeetube-results-limit 30)