(setq system-email "ret2pop@gmail.com")
(setq system-username "prestonpan")
(setq system-fullname "Preston Pan")
(use-package emacs
:custom
(scroll-conservatively 101)
(display-time-24hr-format t)
(display-line-numbers-type 'relative)
(use-short-answers t)
(make-backup-files nil)
(warning-minimum-level :emergency)
(debug-ignored-errors
(cons 'remote-file-error debug-ignored-errors))
(mouse-wheel-scroll-amount '(1 ((shift) . 1)))
(mouse-wheel-progressive-speed nil)
(mouse-wheel-follow-mouse 't)
(scroll-step 1)
(display-fill-column-indicator-column 100)
:config
(require 'tex-site)
(pixel-scroll-precision-mode 1)
(display-battery-mode 1)
(display-time-mode 1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)
(and window-system (server-start))
(load-theme 'catppuccin :no-confirm)
(set-face-attribute 'default nil :height 120)
(set-frame-parameter nil 'alpha-background 90)
(add-to-list 'default-frame-alist '(alpha-background . 90))
(set-face-attribute 'default nil :font "Iosevka Nerd Font" :height 140)
(setq-default line-spacing 2)
(setq-default fill-column 100)
(global-prettify-symbols-mode 1)
:hook ((text-mode . auto-fill-mode)
(text-mode . visual-line-mode)
(prog-mode . auto-fill-mode)
(prog-mode . display-line-numbers-mode)
(prog-mode . display-fill-column-indicator-mode)
(org-mode . auto-fill-mode)
(org-mode . display-fill-column-indicator-mode)
(org-mode . (lambda ()
(setq prettify-symbols-alist
'(("#+begin_src" . ?)
("#+BEGIN_SRC" . ?)
("#+end_src" . ?)
("#+END_SRC" . ?)
("#+begin_example" . ?)
("#+BEGIN_EXAMPLE" . ?)
("#+end_example" . ?)
("#+END_EXAMPLE" . ?)
("#+header:" . ?)
("#+HEADER:" . ?)
("#+name:" . ?﮸)
("#+NAME:" . ?﮸)
("#+results:" . ?)
("#+RESULTS:" . ?)
("#+call:" . ?)
("#+CALL:" . ?)
(":PROPERTIES:" . ?)
(":properties:" . ?)
("lambda" . ?λ)
("->" . ?→)
("map" . ?↦)
("/=" . ?≠)
("!=" . ?≠)
("==" . ?≡)
("<=" . ?≤)
(">=" . ?≥)
("&&" . ?∧)
("||" . ?∨)
("sqrt" . ?√)
("..." . ?…)))
(prettify-symbols-mode)))
(prog-mode .
(lambda ()
(setq prettify-symbols-alist
'(("lambda" . ?λ)
("->" . ?→)
("map" . ?↦)
("/=" . ?≠)
("!=" . ?≠)
("==" . ?≡)
("<=" . ?≤)
(">=" . ?≥)
("&&" . ?∧)
("||" . ?∨)
("sqrt" . ?√)
("..." . ?…)))
(prettify-symbols-mode)))))
(use-package org
:init
(setq org-confirm-babel-evaluate nil)
(setq org-export-with-broken-links t)
(setq org-src-fontify-natively t)
(setq org-latex-preview-image-directory (expand-file-name "~/.cache/ltximg/"))
(setq org-preview-latex-image-directory (expand-file-name "~/.cache/ltximg/"))
(setq org-latex-pdf-process
'("xelatex -interaction=nonstopmode -output-directory=%o %f"))
(setq preview-default-option-list '("displaymath" "textmath" "graphics"))
(setq preview-image-type 'png)
(setq TeX-engine 'xetex)
(setq TeX-PDF-mode t)
(setq org-format-latex-options (plist-put org-format-latex-options :scale 1.5))
(setq org-return-follows-link t)
(setq org-startup-with-latex-preview t)
(setq org-habit-preceding-days 1)
(setq-default org-startup-indented t
org-pretty-entities t
org-use-sub-superscripts "{}"
org-hide-emphasis-markers t
org-startup-with-inline-images t
org-image-actual-width '(300))
(setq org-agenda-files (list "~/org/agenda.org"
"~/org/notes.org"
"~/org/website/agenda.org"))
(setq org-default-notes-file (concat org-directory "/notes.org"))
(setq org-publish-project-alist
'(("website-org"
:base-directory "~/org/website"
:base-extension "org"
:publishing-directory "~/website_html"
:recursive t
:publishing-function org-html-publish-to-html
:headline-levels 4
:html-preamble t
:html-preamble-format (("en" "
home | section main page
")))
("website-static"
:base-directory "~/org/website"
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|ico\\|asc\\|pub\\|webmanifest\\|xml"
:publishing-directory "~/website_html/"
:recursive t
:publishing-function org-publish-attachment)
("website" :auto-sitemap t :components ("website-org" "website-static"))))
(setq org-html-postamble "Copyright © 2024 Preston Pan")
:config
(require 'ox-publish)
(require 'org-tempo)
(require 'org-habit)
(org-babel-do-load-languages 'org-babel-load-languages
'((shell . t)
(python . t)
(latex . t))))
(use-package unicode-fonts
:init (unicode-fonts-setup))
(use-package electric-pair
:hook ((org-mode . electric-pair-mode)
(prog-mode . electric-pair-mode)))
(use-package lyrics-fetcher
:after (emms)
:config
(setq lyrics-fetcher-genius-access-token
(password-store-get "genius_api"))
(lyrics-fetcher-use-backend 'genius))
(use-package org-fragtog :hook (org-mode . org-fragtog-mode))
(use-package yasnippet
:config
(add-to-list 'yas-snippet-dirs "~/org/website/yasnippet/")
(yas-global-mode 1)
:hook (org-mode . (lambda () (yas-minor-mode) (yas-activate-extra-mode 'latex-mode))))
(use-package company
:config
'(add-to-list 'company-backends
'(company-ispell company-capf company-irony
company-yasnippet company-files))
:hook ((after-init . global-company-mode)))
(use-package ispell
:init
(setq ispell-program-name "aspell")
(setq ispell-silently-savep t)
(setq ispell-dictionary "en")
(setq ispell-alternate-dictionary "~/.local/share/dict"))
(use-package flyspell
:hook (text-mode . flyspell-mode))
(use-package evil
:init
(setq evil-want-keybinding nil)
:config
(evil-mode 1)
(evil-set-undo-system 'undo-redo))
(use-package evil-collection
:after (evil)
:init
(setq evil-want-keybinding nil)
:config
(evil-collection-init))
(with-eval-after-load 'evil-maps
(define-key evil-motion-state-map (kbd "SPC") nil)
(define-key evil-motion-state-map (kbd "RET") nil)
(define-key evil-motion-state-map (kbd "TAB") nil))
(use-package evil-commentary
:after (evil)
:config
(evil-commentary-mode))
(use-package evil-org
:after (evil org)
:hook (org-mode . (lambda () evil-org-mode))
:config
(require 'evil-org-agenda)
(evil-org-agenda-set-keys))
(use-package which-key
:config
(which-key-mode))
(use-package page-break-lines
:init
(page-break-lines-mode))
(evil-set-initial-state 'pdf-view-mode 'normal)
(use-package org-journal
:after (org)
:init
(setq org-journal-dir "~/org/website/journal/")
(setq org-journal-date-format "%A, %d %B %Y")
(defun org-journal-file-header-func (time)
"Custom function to create journal header."
(concat
(pcase org-journal-file-type
(`daily "#+TITLE: Daily Journal\n#+STARTUP: showeverything\n#+DESCRIPTION: My daily journal entry\n#+AUTHOR: Preston Pan\n#+HTML_HEAD: \n#+html_head: \n#+html_head: \n#+options: broken-links:t")
(`weekly "#+TITLE: Weekly Journal\n#+STARTUP: folded")
(`monthly "#+TITLE: Monthly Journal\n#+STARTUP: folded")
(`yearly "#+TITLE: Yearly Journal\n#+STARTUP: folded"))))
(setq org-journal-file-header 'org-journal-file-header-func)
(setq org-journal-file-format "%Y%m%d.org")
(setq org-journal-enable-agenda-integration t))
(use-package doom-modeline
:config
(doom-modeline-mode 1))
(use-package writegood-mode
:hook (text-mode . writegood-mode))
(use-package org-superstar
:after (org)
:hook (org-mode . (lambda () (org-superstar-mode 1))))
(use-package eglot
:config
(add-to-list 'eglot-server-programs '(nix-mode . ("nil")))
:hook
(prog-mode . eglot-ensure)
(nix-mode . eglot-ensure))
(use-package lsp
:hook
(prog-mode . lsp))
(use-package platformio-mode
:hook (prog-mode . platformio-conditionally-enable))
(use-package irony-mode
:hook (
(c++-mode . irony-mode)
(c-mode . irony-mode)
(objc-mode . irony-mode)
(irony-mode . irony-cdb-autosetup-compile-options)))
(use-package irony-eldoc
:hook ((irony-mode . irony-eldoc)))
(use-package solidity-mode)
(use-package company-solidity)
(use-package solidity-flycheck
:init
(setq solidity-flycheck-solc-checker-active t))
(use-package flycheck
:config (global-flycheck-mode))
(use-package projectile
:init
(setq projectile-project-search-path '("~/org" "~/src"))
:config
(projectile-mode +1))
(use-package dashboard
:after (projectile)
:init
(setq dashboard-banner-logo-title "Welcome, Commander!")
(setq dashboard-icon-type 'nerd-icons)
(setq dashboard-vertically-center-content t)
(setq dashboard-set-init-info t)
(setq dashboard-week-agenda t)
(setq dashboard-items '((recents . 5)
(bookmarks . 5)
(projects . 5)
(agenda . 5)
(registers . 5)))
:config
(dashboard-setup-startup-hook))
(use-package counsel)
(use-package ivy
:init
(setq ivy-use-virtual-buffers t)
(setq enable-recursive-minibuffers t)
:bind
;; enable this if you want `swiper' to use it
;; (setq search-default-mode #'char-fold-to-regexp)
("C-s" . swiper)
("C-c C-r" . ivy-resume)
("M-x" . counsel-M-x)
("C-x C-f" . counsel-find-file)
(" f" . counsel-describe-function)
(" v" . counsel-describe-variable)
(" o" . counsel-describe-symbol)
(" l" . counsel-find-library)
(" i" . counsel-info-lookup-symbol)
(" u" . counsel-unicode-char)
("C-c g" . counsel-git)
("C-c j" . counsel-git-grep)
("C-c k" . counsel-ag)
("C-x l" . counsel-locate)
:config
(ivy-mode))
(define-key ivy-minibuffer-map (kbd "C-j") 'ivy-immediate-done)
(use-package magit)
(use-package erc
:init
(setq
erc-nick system-username
erc-user-full-name system-fullname))
(use-package general
:init
(defun prestonpan ()
(interactive)
(erc-tls :server "nullring.xyz"
:port "6697"))
(defun liberachat ()
(interactive)
(erc-tls :server "irc.libera.chat"
:port "6697"))
(defun efnet ()
(interactive)
(erc-tls :server "irc.prison.net"
:port "6697"))
(defun matrix-org ()
(interactive)
(ement-connect :uri-prefix "http://localhost:8009"))
:config
(general-create-definer leader-key
:prefix "SPC")
(leader-key 'normal
"o a" '(org-agenda :wk "Open agenda")
"o c" '(org-capture :wk "Capture")
"n j j" '(org-journal-new-entry :wk "Make new journal entry")
"n r f" '(org-roam-node-find :wk "Find roam node")
"n r i" '(org-roam-node-insert :wk "Insert roam node")
"n r a" '(org-roam-alias-add :wk "Add alias to org roam node")
"n r g" '(org-roam-graph :wk "Graph roam database")
"r s s" '(elfeed :wk "rss feed")
"." '(counsel-find-file :wk "find file")
"g /" '(magit-dispatch :wk "git commands")
"g P" '(magit-push :wk "git push")
"g c" '(magit-commit :wk "git commit")
"g p" '(magit-pull :wk "Pull from git")
"g s" '(magit-status :wk "Change status of files")
"o t" '(vterm :wk "Terminal")
"o e" '(eshell :wk "Elisp Interpreter")
"o m" '(mu4e :wk "Email")
"e w w" '(eww :wk "web browser")
"e c c" '(ellama-chat :wk "Chat with Ollama")
"e a b" '(ellama-ask-about :wk "Ask Ollama")
"e s" '(ellama-summarize :wk "Summarize text with Ollama")
"e c r" '(ellama-code-review :wk "Review code with Ollama")
"e c C" '(ellama-code-complete :wk "Complete code with Ollama")
"e c a" '(ellama-code-add :wk "Add code with Ollama")
"e c e" '(ellama-code-edit :wk "Edit code with Ollama")
"e w i" '(ellama-improve-wording :wk "Improve wording with Ollama")
"e g i" '(ellama-improve-grammar :wk "Improve grammar with Ollama")
"g s" '(gptel-send :wk "Send to Ollama")
"g e" '(gptel :wk "Ollama interface")
"p w" '(ivy-pass :wk "Password manager interface")
"m P p" '(org-publish :wk "Publish website components")
"s e" '(sudo-edit :wk "Edit file with sudo")
"m m" '(emms :wk "Music player")
"m l" '(lyrics-fetcher-show-lyrics :wk "Music lyrics")
"o p" '(treemacs :wk "Project Drawer")
"o P" '(treemacs-projectile :wk "Import Projectile project to treemacs")
"f f" '(eglot-format :wk "Format code buffer")
"i p c" '(prestonpan :wk "Connect to my IRC server")
"i l c" '(liberachat :wk "Connect to libera chat server")
"i e c" '(efnet :wk "Connect to efnet chat server")
"h m" '(woman :wk "Manual")
"h i" '(info :wk "Info")
"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")))))
(use-package ellama
:init
(setopt ellama-sessions-directory "~/org/ellama/")
(require 'llm-ollama)
(with-eval-after-load 'llm-ollama)
(setopt ellama-provider (make-llm-ollama
:host "localhost"
:chat-model "gemma:7b")))
(use-package elfeed
:hook ((elfeed-search-mode . elfeed-update))
:init
(setq elfeed-search-filter "@1-month-ago +unread"))
(use-package elfeed-org
:init
(setq rmh-elfeed-org-files '("~/org/website/config/elfeed.org"))
:config
(elfeed-org))
(use-package elfeed-tube
:after elfeed
:demand t
:config
;; (setq elfeed-tube-auto-save-p nil) ; default value
;; (setq elfeed-tube-auto-fetch-p t) ; default value
(elfeed-tube-setup)
:bind (:map elfeed-show-mode-map
("F" . elfeed-tube-fetch)
([remap save-buffer] . elfeed-tube-save)
:map elfeed-search-mode-map
("F" . elfeed-tube-fetch)
([remap save-buffer] . elfeed-tube-save)))
(use-package elfeed-tube-mpv
:bind (:map elfeed-show-mode-map
("C-c C-f" . elfeed-tube-mpv-follow-mode)
("C-c C-c" . elfeed-tube-mpv)
("C-c C-w" . elfeed-tube-mpv-where)
:map elfeed-search-mode-map
("M" . elfeed-tube-mpv)))
(use-package treemacs)
(use-package treemacs-evil
:after (treemacs evil))
(use-package treemacs-projectile
:after (treemacs projectile))
(use-package treemacs-magit
:after (treemacs magit))
(use-package eww
:init
(setq search-engines
'((("google" "g") "https://google.com/search?q=%s")
(("duckduckgo" "d" "ddg") "https://duckduckgo.com/?q=%s")
(("rfc" "r") "https://www.rfc-editor.org/rfc/rfc%s.txt")
(("rfc-kw" "rk") "https://www.rfc-editor.org/search/rfc_search_detail.php?title=%s")))
(setq search-engine-default "google")
(setq eww-search-prefix "https://google.com/search?q=")
(setq browse-url-secondary-browser-function 'browse-url-generic browse-url-generic-program "firefox")
:hook ((eww-mode . (lambda () (local-set-key (kbd "y Y") #'eww-copy-page-url)))))
(use-package org-roam
:after (org)
:init
(setq org-roam-db-update-on-save t)
(setq org-roam-graph-viewer "chromium")
(setq org-roam-directory (file-truename "~/org/website/mindmap"))
(setq org-roam-capture-templates '(("d" "default" plain "%?"
:target (file+head "${title}.org"
"#+title: ${title}\n#+author: Preston Pan\n#+html_head: \n#+html_head: \n#+html_head: \n#+options: broken-links:t")
:unnarrowed t)))
:config
(org-roam-db-autosync-mode))
(use-package org-roam-ui
:after org-roam
:hook (after-init . org-roam-ui-mode)
:config
(setq org-roam-ui-sync-theme t
org-roam-ui-follow t
org-roam-ui-update-on-save t
org-roam-ui-open-on-start t))
(use-package pinentry
:init (setq epa-pinentry-mode `loopback)
:config (pinentry-start))
;; (use-package latex-preview-pane
;; :config
;; (latex-preview-pane-enable))
;; SMTP settings:
(use-package smtpmail
:config
(setq user-mail-address system-email)
(setq user-full-name system-fullname)
(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))
(use-package mu4e
:after smtpmail
: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 (list "no-?reply" system-email))
(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))
(use-package ivy-pass)
(use-package emms
:init
(emms-all)
(setq emms-source-file-default-directory (expand-file-name "~/music/"))
(setq emms-player-mpd-music-directory (expand-file-name "~/music/"))
(setq emms-player-mpd-server-name "localhost")
(setq emms-player-mpd-server-port "6600")
(setq emms-player-list '(emms-player-mpd))
(add-to-list 'emms-info-functions 'emms-info-mpd)
(add-to-list 'emms-player-list 'emms-player-mpd)
:config (emms-player-mpd-connect))