diff options
Diffstat (limited to 'config')
| -rw-r--r-- | config/emacs.el | 15 | ||||
| -rw-r--r-- | config/emacs.org | 72 |
2 files changed, 39 insertions, 48 deletions
diff --git a/config/emacs.el b/config/emacs.el index 9a7d473..ef53838 100644 --- a/config/emacs.el +++ b/config/emacs.el @@ -28,8 +28,8 @@ (setq preview-image-type 'png) (setq org-latex-pdf-process '("xelatex -interaction=nonstopmode -output-directory=%o %f")) -(setq org-latex-preview-image-directory "/home/preston/.cache/ltximg/") -(setq org-preview-latex-image-directory "/home/preston/.cache/ltximg/") +(setq org-latex-preview-image-directory (expand-file-name "~/.cache/ltximg/")) +(setq org-preview-latex-image-directory (expand-file-name "~/.cache/ltximg/")) (setq-default line-spacing 2) (setq org-startup-with-latex-preview t) (setq-default org-startup-indented t @@ -136,7 +136,6 @@ :recursive t :publishing-function org-publish-attachment) ("website" :auto-sitemap t :components ("website-org" "website-static")))) -;; (setq org-export-html-postamble-format '(("en" "<p class=\"preamble\"><a href=\"../index.html\">previous page</a> | <a href=\"/index.html\">home</a></p>"))) (setq org-html-postamble "Copyright © 2024 Preston Pan") (defun electric-pair () @@ -186,7 +185,7 @@ Otherwise, just insert the typed character." (setq ispell-program-name "aspell") (setq ispell-silently-savep t) (setq ispell-dictionary "en") - (setq ispell-alternate-dictionary "/home/preston/.local/share/my.dict")) + (setq ispell-alternate-dictionary "~/.local/share/dict")) (dolist (hook '(text-mode-hook)) (add-hook hook (lambda () (flyspell-mode 1)))) @@ -427,6 +426,7 @@ Otherwise, just insert the typed character." "s m" '(proced :wk "System Manager") "l p" '(list-processes :wk "List Emacs Processes") "m I" '(org-id-get-create :wk "Make org id") + "w r" '(writeroom-mode :wk "focus mode for writing") "y n s" '(yas-new-snippet :wk "Create new snippet") "u w" '((lambda () (interactive) (shell-command "rsync -azvP ~/website_html/ root@nullring.xyz:/usr/share/nginx/ret2pop/")) :wk "rsync website update") "h r r" '(lambda () (interactive) (org-babel-load-file (expand-file-name "~/org/website/config/emacs.org"))) @@ -434,7 +434,7 @@ Otherwise, just insert the typed character." (use-package ellama :init - (setopt ellama-sessions-directory "/home/preston/org/ellama/") + (setopt ellama-sessions-directory "~/org/ellama/") (require 'llm-ollama) (with-eval-after-load 'llm-ollama) (setopt ellama-provider (make-llm-ollama @@ -506,7 +506,7 @@ Otherwise, just insert the typed character." ;; (latex-preview-pane-enable)) ;; SMTP settings: -(setq user-mail-address "preston@nullring.xyz") +(setq user-mail-address "ret2pop@gmail.com") (setq user-full-name "Preston Pan") (setq sendmail-program "msmtp" send-mail-function 'smtpmail-send-it @@ -552,7 +552,4 @@ Otherwise, just insert the typed character." :config (emms-player-mpd-connect)) -(use-package stem-mode) -(add-to-list 'auto-mode-alist '("\\.stem\\'" . stem-mode)) - (server-start) diff --git a/config/emacs.org b/config/emacs.org index b46f973..64382ca 100644 --- a/config/emacs.org +++ b/config/emacs.org @@ -42,8 +42,8 @@ emacs work in a semi-sane way and make it not look ugly: (setq preview-image-type 'png) (setq org-latex-pdf-process '("xelatex -interaction=nonstopmode -output-directory=%o %f")) - (setq org-latex-preview-image-directory "/home/preston/.cache/ltximg/") - (setq org-preview-latex-image-directory "/home/preston/.cache/ltximg/") + (setq org-latex-preview-image-directory (expand-file-name "~/.cache/ltximg/")) + (setq org-preview-latex-image-directory (expand-file-name "~/.cache/ltximg/")) (setq-default line-spacing 2) (setq org-startup-with-latex-preview t) (setq-default org-startup-indented t @@ -165,7 +165,6 @@ This is the configuration required to publish my website: :recursive t :publishing-function org-publish-attachment) ("website" :auto-sitemap t :components ("website-org" "website-static")))) - ;; (setq org-export-html-postamble-format '(("en" "<p class=\"preamble\"><a href=\"../index.html\">previous page</a> | <a href=\"/index.html\">home</a></p>"))) (setq org-html-postamble "Copyright © 2024 Preston Pan") #+end_src * Autopair @@ -228,7 +227,7 @@ Company-mode! We need this to do autocomplete stuff. (setq ispell-program-name "aspell") (setq ispell-silently-savep t) (setq ispell-dictionary "en") - (setq ispell-alternate-dictionary "/home/preston/.local/share/my.dict")) + (setq ispell-alternate-dictionary "~/.local/share/dict")) #+end_src * Spelling #+begin_src emacs-lisp @@ -515,6 +514,7 @@ Ivy is a pretty cool general program for displaying stuff: "s m" '(proced :wk "System Manager") "l p" '(list-processes :wk "List Emacs Processes") "m I" '(org-id-get-create :wk "Make org id") + "w r" '(writeroom-mode :wk "focus mode for writing") "y n s" '(yas-new-snippet :wk "Create new snippet") "u w" '((lambda () (interactive) (shell-command "rsync -azvP ~/website_html/ root@nullring.xyz:/usr/share/nginx/ret2pop/")) :wk "rsync website update") "h r r" '(lambda () (interactive) (org-babel-load-file (expand-file-name "~/org/website/config/emacs.org"))) @@ -526,7 +526,7 @@ competitive LLM that doesn't cost money. #+begin_src emacs-lisp (use-package ellama :init - (setopt ellama-sessions-directory "/home/preston/org/ellama/") + (setopt ellama-sessions-directory "~/org/ellama/") (require 'llm-ollama) (with-eval-after-load 'llm-ollama) (setopt ellama-provider (make-llm-ollama @@ -620,37 +620,37 @@ Make LaTeX a litle better: ** Email Email in emacs can be done with Mu4e. #+begin_src emacs-lisp - ;; SMTP settings: - (setq user-mail-address "preston@nullring.xyz") - (setq user-full-name "Preston Pan") - (setq sendmail-program "msmtp" - send-mail-function 'smtpmail-send-it - message-sendmail-f-is-evil t - message-sendmail-extra-arguments '("--read-envelope-from") - message-send-mail-function 'message-send-mail-with-sendmail) + ;; SMTP settings: + (setq user-mail-address "ret2pop@gmail.com") + (setq user-full-name "Preston Pan") + (setq sendmail-program "msmtp" + send-mail-function 'smtpmail-send-it + message-sendmail-f-is-evil t + message-sendmail-extra-arguments '("--read-envelope-from") + message-send-mail-function 'message-send-mail-with-sendmail) - (require 'smtpmail) - (use-package mu4e - :init - (setq mu4e-drafts-folder "/Drafts") - (setq mu4e-sent-folder "/Sent") - (setq mu4e-trash-folder "/Trash") - (setq mu4e-attachment-dir "~/Downloads") - (setq mu4e-view-show-addresses 't) - (setq mu4e-confirm-quit nil) + (require 'smtpmail) + (use-package mu4e + :init + (setq mu4e-drafts-folder "/Drafts") + (setq mu4e-sent-folder "/Sent") + (setq mu4e-trash-folder "/Trash") + (setq mu4e-attachment-dir "~/Downloads") + (setq mu4e-view-show-addresses 't) + (setq mu4e-confirm-quit nil) - (setq message-kill-buffer-on-exit t) - (setq mu4e-compose-dont-reply-to-self t) - (setq mu4e-change-filenames-when-moving t) - (setq mu4e-get-mail-command "mbsync ret2pop") - (setq mu4e-compose-reply-ignore-address '("no-?reply" "ret2pop@gmail.com")) - (setq mu4e-html2text-command "w3m -T text/html" ; how to hanfle html-formatted emails - mu4e-update-interval 300 ; seconds between each mail retrieval - mu4e-headers-auto-update t ; avoid to type `g' to update - mu4e-view-show-images t ; show images in the view buffer - mu4e-compose-signature-auto-include nil ; I don't want a message signature - mu4e-use-fancy-chars t)) + (setq message-kill-buffer-on-exit t) + (setq mu4e-compose-dont-reply-to-self t) + (setq mu4e-change-filenames-when-moving t) + (setq mu4e-get-mail-command "mbsync ret2pop") + (setq mu4e-compose-reply-ignore-address '("no-?reply" "ret2pop@gmail.com")) + (setq mu4e-html2text-command "w3m -T text/html" ; how to hanfle html-formatted emails + mu4e-update-interval 300 ; seconds between each mail retrieval + mu4e-headers-auto-update t ; avoid to type `g' to update + mu4e-view-show-images t ; show images in the view buffer + mu4e-compose-signature-auto-include nil ; I don't want a message signature + mu4e-use-fancy-chars t)) #+end_src ** Password Manager I use ~pass~ in order to manage my passwords on linux, and this is an ivy frontend for it: @@ -673,12 +673,6 @@ Set up emms in order to play music from my music directory: :config (emms-player-mpd-connect)) #+end_src -** Stem -My own programming language. -#+begin_src emacs-lisp - (use-package stem-mode) - (add-to-list 'auto-mode-alist '("\\.stem\\'" . stem-mode)) -#+end_src ** Server So that emacsclient can connect. #+begin_src emacs-lisp |