doom-emacs-config/config.el

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-


;;;; Misc settings

;; start Emacs as a server process
(server-start)

;; user info
(setq user-full-name "Jeffrey Serio"
      user-mail-address "hyperreal@fedoraproject.org")

(setq doom-user-dir "~/sync/doom/")

(after! projectile
  (setq projectile-project-root-files-bottom-up
        (remove ".git" projectile-project-root-files-bottom-up)))

;; This sets the frame dimensions and position on the screen when on moonshadow host.
;; Also sets the font size for moonshadow host.
(when (string= (system-name) "moonshadow")
  (setq fontsize 18)
  (setq default-frame-alist
        '((height . 54)
          (width . 154)
          (left . 1720)
          (top . 0)
          (vertical-scroll-bars . nil)
          (horizontal-scroll-bars . nil))))

;; This sets the frame to be full screen maximized on evergloam host.
;; Also sets the font size for evergloam host.
(when (string= (system-name) "evergloam")
  (setq fontsize 18)
  (add-to-list 'default-frame-alist '(fullscreen . maximized)))

;; Set fonts
(setq monofontfam "JetBrainsMono Nerd Font Mono")
(setq doom-font (font-spec :family monofontfam :size fontsize)
      doom-variable-pitch-font (font-spec :family "Rubik")
      doom-unicode-font (font-spec :family monofontfam :size fontsize)
      doom-big-font (font-spec :family monofontfam :size fontsize))

;; Use catppuccin-mocha theme
(setq doom-theme 'catppuccin)
(setq catppuccin-flavor 'mocha)

;; Backups
(setq backup-directory-alist '(("." . "~/sync/emacs/backups")))
(with-eval-after-load 'tramp
  (add-to-list 'tramp-backup-directory-alist
               (cons tramp-file-name-regexp nil)))

(setq delete-old-versions -1)
(setq version-control t)
(setq vc-make-backup-files t)
(setq auto-save-file-name-transforms '((".*" "~/sync/emacs/auto-save-list/" t)))

;; History
(setq savehist-file "~/sync/emacs/savehist")
(savehist-mode 1)
(setq history-length t)
(setq history-delete-duplicates t)
(setq savehist-save-minibuffer-history 1)
(setq savehist-additional-variables
      '(kill-ring
        search-ring
        regexp-search-ring))

;; Display time in the modeline
(display-time-mode 1)

;; Sentences end with a single space because it's right and proper
(setq sentence-end-double-space nil)

;; This determines the style of line numbers in effect. If set to `nil', line
;; numbers are disabled. For relative line numbers, set this to `relative'.
(setq display-line-numbers-type 'relative)

;; Make vterm open in another window
(setq vterm-other-window 1)

;; Keybinding to kill-whole-line
(global-set-key (kbd "M-9") 'kill-whole-line)

;; trim newline from string output
(defun string-trim-final-newline (string)
  "Trim the last newline character from string.
Used with `shell-command-to-string'.
Source: https://emacs.stackexchange.com/a/21906"
  (let ((len (length string)))
    (cond
     ((and (> len 0) (eql (aref string (- len 1)) ?\n))
      (substring string 0 (- len 1)))
     (t string))))

;; wrapper around `shell-command-to-string' to remove newline
(defun shell-command-output-string (command)
  (string-trim-final-newline (shell-command-to-string command)))

;; Copy all or text selection
(defun xah-copy-all-or-region ()
  "Put the whole buffer content to `kill-ring', or text selection if there's one.
Respects `narrow-to-region'.
URL `https://ergomacs.org/emacs/emacs_copy_cut_all_or_region.html'
Version 2015-08-22"
  (interactive)
  (if (use-region-p)
      (progn
        (kill-new (buffer-substring (region-beginning) (region-end)))
        (message "Text selection copied."))
    (progn
      (kill-new (buffer-string))
      (message "Buffer content copied."))))

;; Cut all or text selection
(defun xah-cut-all-or-region ()
  "Cut the whole buffer content to `kill-ring', or text selection if there's one.
Respects `narrow-to-region'.
URL `https://ergomacs.org/emacs/emacs_copy_cut_all_or_region.html'
Version 2015-08-22"
  (interactive)
  (if (use-region-p)
      (progn
        (kill-new (buffer-substring (region-beginning) (region-end)))
        (delete-region (region-beginning) (region-end)))
    (progn
      (kill-new (buffer-string))
      (delete-region (point-min) (point-max)))))

;; open URL in Firefox/LibreWolf
(defun browse-host-web (url &rest ignored)
  "Browse URL with Firefox/LibreWolf"
  (interactive "sURL: ")
  (shell-command (concat "librewolf " url)))

(setq browse-url-browser-function 'browse-host-web)

;; after copy Ctrl+c in Linux X11, you can paste by `yank' in emacs
(setq select-enable-clipboard t)

;; after mouse selection copy in X11, you can paste by `yank' in emacs
(setq select-enable-primary t)

;; set keybinding for paste
(global-set-key (kbd "C-S-V") #'clipboard-yank)

;; Smart home key
(defun smart-beginning-of-line ()
  "Move point to first non-whitespace character or beginning-of-line.

Move point to the first non-whitespace character on this line.
If point was already at that position, move point to beginning of line."
  (interactive "^")
  (let ((oldpos (point)))
    (back-to-indentation)
    (and (= oldpos (point))
         (beginning-of-line))))

(global-set-key (kbd "<home>") 'smart-beginning-of-line)
(global-set-key (kbd "<end>") 'end-of-line)

;; Autoformat on save
(setq +format-on-save-enabled-modes
      '(emacs-lisp-mode
        python-mode))

;; UTF-8
(prefer-coding-system 'utf-8)
(when (display-graphic-p)
  (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)))


;;;; artbollocks-mode
;;;; https://github.com/sachac/artbollocks-mode

(setq artbollocks-weasel-words-regex
      (concat "\\b" (regexp-opt
                     '("one of the"
                       "should"
                       "just"
                       "etc"
                       "sort of"
                       "kind of"
                       "a lot"
                       "probably"
                       "maybe"
                       "perhaps"
                       "I think"
                       "really"
                       "pretty"
                       "utilize"
                       "leverage") t) "\\b"))


;;;; undo-tree-mode - visualize undos and branches

(global-undo-tree-mode)
(setq undo-tree-visualizer-timestamps t)
(setq undo-tree-visualizer-diff t)
(setq undo-tree-history-directory-alist '(("." . "~/sync/emacs/backups/undo-tree")))


;;;; evil-nerd-commenter

(global-set-key (kbd "M-;") 'evilnc-comment-or-uncomment-lines)
(global-set-key (kbd "C-c l") 'evilnc-quick-comment-or-uncomment-to-the-line)
(global-set-key (kbd "C-c c") 'evilnc-copy-and-comment-lines)
(global-set-key (kbd "C-c p") 'evilnc-comment-or-uncomment-paragraphs)


;;;; org-mode

(add-hook 'org-mode-hook (lambda () (org-superstar-mode 1)))
(require 'org-protocol)

(setq org-modules '(org-agenda
                    org-annotate-file
                    org-choose
                    org-collector
                    ))
(eval-after-load 'org
  '(org-load-modules-maybe t))

(setq org-directory "~/sync/org/")
(setq org-default-notes-file "~/sync/org/inbox.org")
(setq org-agenda-files '("~/sync/org/inbox.org"))

;; support selecting lines by using shift
(setq org-support-shift-select t)

;; org-mode tags
(setq org-tag-alist (quote (("@archiving" .?a)
                            ("@calendar" .?t)
                            ("@config" . ?c)
                            ("@devel" . ?d)
                            ("@errand" . ?e)
                            ("@fedora" . ?f)
                            ("@homelab" . ?l)
                            ("@homemaking" . ?m)
                            ("@journal" . ?j)
                            ("@log" . ?w)
                            ("@reading" . ?r)
                            ("@selfcare" . ?s))))

;; org-mode keybindings
(with-eval-after-load 'org
  (bind-key "C-c $" 'org-archive-subtree)
  (bind-key "C-c r" 'org-capture)
  (bind-key "C-c R" 'org-roam-capture)
  (bind-key "C-c a" 'org-agenda)
  (bind-key "C-c l" 'org-store-link)
  (bind-key "C-c L" 'org-insert-link-global)
  (bind-key "C-c O" 'org-open-at-point-global))

(setq org-use-effective-time t)

;; org-refile
(setq org-reverse-note-order t) ; new notes prepended
(setq org-refile-use-outline-path 'file)
(setq org-outline-path-complete-in-steps nil)
(setq org-refile-allow-creating-parent-nodes 'confirm)
(setq org-refile-use-cache nil)
(setq org-blank-before-new-entry '((heading . t) (plain-list-item . t)))

(setq org-refile-targets
      `((("~/sync/org/inbox.org"
          "~/sync/org/grocery.org")
         . (:maxlevel .5))))

;; org-todo-keywords
(with-eval-after-load 'org
  (setq org-todo-keywords
        '((sequence
           "STARTED(s)"
           "TODO(t)"
           "WAITING(w@/!)"
           "IDEA(i)"
           "SOMEDAY(.)"
           "BLOCKED(k@/!)"
           "|"
           "DONE(x!)"
           "CANCELLED(c)")
          (sequence "PROJECT" "|" "DONE(x)")
          (sequence "MAYBE(,0)" "CHOSEN(c,+)" "|" "REJECTED")))

  ;; catppuccin palette
  (setq org-todo-keyword-faces
        '(("STARTED" . (:foreground "#a6d189" :weight bold))
          ("TODO" . (:foreground "#a6e3a1" :weight bold))
          ("WAITING" . (:foreground "#f9e2af" :weight bold))
          ("IDEA" . (:foreground "#74c7ec" :weight bold))
          ("SOMEDAY" . (:foreground "#f2cdcd" :weight bold))
          ("BLOCKED" . (:foreground "#c6d0f5" :weight bold))
          ("DONE" . (:foreground "#f38ba8" :weight bold))
          ("CANCELLED" . (:foreground "#e78284" :weight bold))
          ("MAYBE" . (:foreground "#c6d0f5" :weight bold))
          ("CHOSEN" . (:foreground "#89b4fa" :weight bold))
          ("REJECTED" . (:foreground "#d20f39" :weight bold)))))

(setq org-log-done 'time)
(setq org-popup-calendar-for-date-prompt nil)

;; org-roam
(setq org-roam-directory "~/sync/org-roam")
(org-roam-db-autosync-mode)

;; org-roam-capture-template
(setq org-roam-capture-templates
      '(("m" "main" plain
         "%?"
         :if-new (file+head "main/${slug}.org"
                            "#+title: ${title}\n")
         :immediate-finish t
         :unnarrowed t)
        ("r" "reference" plain
         "%?"
         :if-new (file+head "reference/${title}.org"
                            "#+title: ${title}\n")
         :immediate-finish t
         :unnarrowed t)
        ("s" "self" plain
         "%?"
         :if-new (file+head "self/${slug}.org"
                            "#+title: ${title}\n#+filetags: :self:\n")
         :unnarrowed t)
        ("S" "self-entry" entry
         "* %U\n%?"
         :target (file "self/${slug}.org")
         :empty-lines 1
         :unnarrowed t)
        ("c" "cookbook" plain
         "* %^{Recipe title}\n  :PROPERTIES:\n  :source-url:%?\n  :servings:\n  :prep-time:\n  :cook-time:\n  :ready-in:\n  :END:\n** Ingredients\n   \n** Directions\n\n"
         :if-new (file "recipes/${title}.org")
         :unnarrowed t)))

;; org-capture-templates
(setq org-capture-templates
      '(("p" "Inbox" entry (file+headline "~/sync/org/inbox.org" "Inbox")
         "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n%?"
         :empty-lines-before 1
         :unnarrowed t
         :immediate-finish t)
        ("L" "Link" entry (file+headline "~/sync/org/inbox.org" "Inbox")
         "* %? [[%:link][%:description]] \nCaptured on: %U"
         :empty-lines-before 1
         :unnarrowed t
         :immediate-finish t)
        ("d" "Calendar" entry (file "~/sync/org/calendar.org")
         "* TODO %?"
         :empty-lines-before 1
         :unnarrowed t)
        ("j" "Journal" entry (file+olp+datetree "~/sync/org/journal.org")
         "* %U\n%?"
         :empty-lines-before 1
         :unnarrowed t)
        ("r" "Reading" entry (file "~/sync/org/reading.org")
         "* %a\n%U\n%^{PROMPT}"
         :empty-lines-before 1
         :unnarrowed t
         :immediate-finish t)))

(defun hyperreal/org-capture-slipbox ()
  (interactive)
  (org-capture nil "s"))


;;;; python-mode

;; set bpython as python shell interpreter
(add-hook! python-mode-hook
  (setq python-shell-interpreter "bpython"))

;; enable elpy
(elpy-enable)

;; set tab width; use flake8 as python-flymake-command, python-check-command
(setq python-indent-offset 4)
(add-hook 'python-mode-hook
          (lambda ()
            (setq-local tab-width 4)
            (setq-local python-flymake-command '("flake8" "--max-doc-length=72", "--ignore=E211,E999,F401,F821,W503"))
            (setq-local python-check-command "flake8 --max-doc-length=72 --ignore=E211,E999,F401,F821,W503"))
          70)

;; use Pyright LSP
(add-hook 'python-mode-hook
          (lambda ()
            (require 'lsp-pyright)
            (lsp)))

(defun run-black-pep8 ()
  "Run `black -l 79' on the current Python file."
  (interactive)
  (shell-command-to-string
   (format "black -l 79 %s"
           (shell-quote-argument (buffer-file-name)))))

;; autoformat on save with `run-black-pep8'
(add-hook 'elpy-mode-hook
          (lambda ()
            (add-hook 'before-save-hook
                      'run-black-pep8)))

;; colorize compilation buffer
;; from https://sachachua.com/dotemacs/index.html#orga33bac5
(require 'ansi-color)
(defun colorize-compilation-buffer ()
  (when (eq major-mode 'compilation-mode)
    (let ((inhibit-read-only t))
      (ansi-color-apply-on-region compilation-filter-start (point-max)))))
(add-hook 'compilation-filter-hook 'colorize-compilation-buffer)


;;;; go-mode

;; completion for GoLang
(add-hook 'completion-at-point-functions 'go-complete-at-point)

;; Go - lsp-mode
(defun lsp-go-install-save-hooks ()
  (add-hook 'before-save-hook #'lsp-format-buffer t t)
  (add-hook 'before-save-hook #'lsp-organize-imports t t))
(add-hook 'go-mode-hook #'lsp-go-install-save-hooks)

;; Start LSP Mode
(add-hook 'go-mode-hook #'lsp-deferred)


;;;; helpful
(global-set-key (kbd "C-h f") #'helpful-callable)
(global-set-key (kbd "C-h v") #'helpful-variable)
(global-set-key (kbd "C-h k") #'helpful-key)
(global-set-key (kbd "C-h x") #'helpful-command)
(global-set-key (kbd "C-c C-d") #'helpful-at-point)

;;;; dired

(after! dired
  (setq dired-listing-switches "-laGh1v --group-directories-first")
  (setq dired-confirm-shell-command nil
        dired-no-confirm t
        dired-deletion-confirmer '(lambda (x) t)
        dired-recursive-deletes 'always))


;;;; dictionary

(global-set-key (kbd "C-c l") #'dictionary-lookup-definition)
(setq dictionary-server "dict.org")


;;;; centaur-tabs

(global-set-key (kbd "s-{") 'centaur-tabs-switch-group)
(global-set-key (kbd "s-h") 'centaur-tabs-backward-tab)
(global-set-key (kbd "s-l") 'centaur-tabs-forward-tab)

(setq centaur-tabs-buffer-show-groups t)

(defun my-centaur-tabs-buffer-groups ()
  "Create centaur-tabs groups."
  (cond
   ((string-equal "*" (substring (buffer-name) 0 1))
    '("Emacs"))
   ((eq major-mode 'erc-mode)
    '("ERC"))
   ((memq major-mode '(org-mode
                       org-agenda-clockreport-mode
                       org-src-mode
                       org-beamer-mode
                       org-indent-mode
                       org-bullets-mode
                       org-agenda-log-mode
                       diary-mode
                       org-roam-mode))
    '("OrgMode"))
   ((memq major-mode '(dired-mode))
    '("Dired"))
   ((memq major-mode '(helpful-mode
                       help-mode))
    '("Help"))
   ((memq major-mode '(vterm-mode))
    '("VTerm"))))

(setq centaur-tabs-buffer-groups-function 'my-centaur-tabs-buffer-groups)

;; prevent access to specified buffers
(defun centaur-tabs-hide-tab (x)
  "Do not show given buffer in tabs."
  (let ((name (format "%s" x)))
    (or
     ;; Current window is not dedicated window.
     (window-dedicated-p (selected-window))

     ;; Buffer name does not match blacklisted buffers.
     (string-prefix-p "*epc" name)
     (string-prefix-p "*Compile-Log*" name)
     (string-prefix-p "*lsp" name)
     (string-prefix-p "*tramp" name)
     (string-prefix-p "*help" name)
     (string-prefix-p "*Help" name)
     (string-prefix-p "*vterminal" name)

     ;; Buffer is not a magit buffer.
     (and (string-prefix-p "magit" name)
          (not (file-name-extension name)))
     )))


;;;; elfeed

(setq elfeed-protocol-enabled-protocols '(fever))
(elfeed-protocol-enable)
(setq elfeed-protocol-fever-update-unread-only t)
(setq elfeed-protocol-feeds '(("fever+https://admin@rss.hyperreal.coffee"
                               :api-url "https://rss.hyperreal.coffee/fever/"
                               :password (shell-command-output-string "pass show miniflux/admin"))))


;; ;; elpher

(setq elpher-certificate-directory "~/sync/elpher/certs")
(setq elpher-default-url-type "gemini")


;;;; vterm

(setq vterm-kill-buffer-on-exit t)
(setq vterm-always-compile-module t)
(setq multi-vterm-buffer-name "localhost")

(defun hyperreal/create-mvterm-buffer ()
  "Create new multi-vterm buffer and rename it to localhost<i>
and switch to it."
  (interactive)
  (let ((index 1)
        (buffer-name "localhost"))
    ;; Find the next available index number
    (while (get-buffer (format "%s<%d>" buffer-name index))
      (setq index (1+ index)))
    (multi-vterm)
    (setq mvterm-buffer-name (format "%s<%d>" buffer-name index))
    (rename-buffer mvterm-buffer-name)
    (message "Created and started: %s" mvterm-buffer-name)
    (switch-to-buffer mvterm-buffer-name)))

(defun hyperreal/setup-mvterm ()
  "Create a set of vterm buffers for my terminal setup."
  (interactive)
  (require 'vterm)
  (let ((buffer-command-pairs '(("journald" . "sudo journalctl -f")
                                ("htop" . "htop")
                                ("nexus" . "autossh -M 0 jas@nexus.local")
                                ("apocrypha" . "autossh -M 0 jas@apocrypha.local")
                                ("rockpro64" . "autossh -M 0 dietpi@rockpro64.local")
                                ("orangepi5" . "autossh -M 0 dietpi@orangepi5.local"))))
    (dolist (pair buffer-command-pairs)
      (let ((buffer-name (car pair))
            (command (cdr pair)))
        ;; Check if buffer exists
        (unless (get-buffer buffer-name)
          (multi-vterm)
          (rename-buffer buffer-name)
          ;; Send the command to the vterm buffer
          (vterm-send-string command)
          (vterm-send-return)
          (message "Created and started: %s" buffer-name))))
    ;; Create and switch to default buffer
    (hyperreal/create-mvterm-buffer)
    (centaur-tabs-mode)))

(defun hyperreal/kill-all-vterms ()
  "Kill all vterm buffers (do not ask for confirmation)."
  (interactive)
  (let ((kill-buffer-query-functions nil))
    (dolist (buffer (buffer-list))
      (with-current-buffer buffer
        (when (eq major-mode 'vterm-mode)
          (kill-buffer buffer)))))
  (message "All vterm buffers killed."))

;;;; ERC

(setq erc-timestamp-format "[%H:%M:%S] ")
(setq erc-insert-timestamp-function 'erc-insert-timestamp-left)
(setq erc-fill-prefix "          ")
(setq erc-fill-function 'erc-fill-static)
(setq erc-hide-list '("JOIN" "PART" "QUIT"))

(defun tilde-chat ()
  "Connect to irc.tilde.chat."
  (interactive)
  (setq erc-email-userid "hyperreal/irc.tilde.chat")
  (erc-tls :server "chat.sr.ht"
           :port 6697
           :nick "hyperreal"
           :password (shell-command-output-string "pass show chat.sr.ht/hyperreal")
           :full-name "Jeffrey Serio")
  (centaur-tabs-mode))

(defun libera-chat ()
  "Connect to irc.libera.chat."
  (interactive)
  (setq erc-email-userid "hyperreal/irc.libera.chat")
  (erc-tls :server "chat.sr.ht"
           :port 6697
           :nick "hyperreal"
           :password (shell-command-output-string "pass show chat.sr.ht/hyperreal")
           :full-name "Jeffrey Serio")
  (centaur-tabs-mode))

;; nickcolor funcs lifted from EmacsWiki
(defmacro unpack-color (color red green blue &rest body)
  `(let ((,red   (car ,color))
         (,green (car (cdr ,color)))
         (,blue  (car (cdr (cdr ,color)))))
     ,@body))

(defun rgb-to-html (color)
  (unpack-color color red green blue
                (concat "#" (format "%02x%02x%02x" red green blue))))

(defun hexcolor-luminance (color)
  (unpack-color color red green blue
                (floor (+ (* 0.299 red) (* 0.587 green) (* 0.114 blue)))))

(defun invert-color (color)
  (unpack-color color red green blue
                `(,(- 255 red) ,(- 255 green) ,(- 255 blue))))

(defun erc-get-color-for-nick (nick dark)
  (let* ((hash     (md5 (downcase nick)))
         (red      (mod (string-to-number (substring hash 0 10) 16) 256))
         (blue     (mod (string-to-number (substring hash 10 20) 16) 256))
         (green    (mod (string-to-number (substring hash 20 30) 16) 256))
         (color    `(,red ,green ,blue)))
    (rgb-to-html (if (if dark (< (hexcolor-luminance color) 85)
                       (> (hexcolor-luminance color) 170))
                     (invert-color color)
                   color))))

(defun erc-highlight-nicknames ()
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "\\w+" nil t)
      (let* ((bounds (bounds-of-thing-at-point 'symbol))
             (nick   (buffer-substring-no-properties (car bounds) (cdr bounds))))
        (when (erc-get-server-user nick)
          (put-text-property
           (car bounds) (cdr bounds) 'face
           (cons 'foreground-color (erc-get-color-for-nick nick 't))))))))

(add-hook 'erc-insert-modify-hook 'erc-highlight-nicknames)

;; set the column width based on window width
(add-hook 'window-configuration-change-hook
          #'(lambda ()
              (setq erc-fill-column (- (window-width) 2))))