From 44fc18d1eeb4b9ff80baadfae38e927652725c25 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 13 Aug 2023 21:24:22 +0300 Subject: update emacs --- emacs.org | 48 ++++++++++++++++++++++++++---------------------- 1 file 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) -- cgit v1.2.3