595 lines
22 KiB
EmacsLisp
595 lines
22 KiB
EmacsLisp
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; Place your private configuration here! Remember, you do not need to run 'doom
|
|
;; sync' after modifying this file!
|
|
|
|
|
|
;; Some functionality uses this to identify you, e.g. GPG configuration, email
|
|
;; clients, file templates and snippets. It is optional.
|
|
(setq user-full-name "Nathan McCarty"
|
|
user-mail-address "nathan@mccarty.io")
|
|
|
|
;; Doom exposes five (optional) variables for controlling fonts in Doom:
|
|
;;
|
|
;; - `doom-font' -- the primary font to use
|
|
;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
|
|
;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
|
|
;; presentations or streaming.
|
|
;; - `doom-unicode-font' -- for unicode glyphs
|
|
;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
|
|
;;
|
|
;; See 'C-h v doom-font' for documentation and more examples of what they
|
|
;; accept. For example:
|
|
;;
|
|
(setq doom-font (font-spec :family "FiraCode Nerd Font" :size 11 :weight 'semi-light)
|
|
doom-unicode-font (font-spec :family "FiraCode Nerd Font" :size 11 :weight 'semi-light)
|
|
doom-variable-pitch-font (font-spec :family "Fira Sans" :size 15))
|
|
;;
|
|
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
|
|
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
|
|
;; refresh your font settings. If Emacs still can't find your font, it likely
|
|
;; wasn't installed correctly. Font issues are rarely Doom issues!
|
|
|
|
;; There are two ways to load a theme. Both assume the theme is installed and
|
|
;; available. You can either set `doom-theme' or manually load a theme with the
|
|
;; `load-theme' function. This is the default:
|
|
;; (setq doom-theme 'doom-solarized-dark)
|
|
(use-package! solarized-theme
|
|
:demand t
|
|
:config
|
|
(setq solarized-distinct-fringe-background t
|
|
solarized-distinct-doc-face t
|
|
solarized-scale-markdown-headlines t
|
|
solarized-scale-org-headlines t)
|
|
(load-theme 'solarized-selenized-dark t))
|
|
|
|
;; 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 t)
|
|
|
|
;; If you use `org' and don't want your org files in the default location below,
|
|
;; change `org-directory'. It must be set before org loads!
|
|
(setq org-directory "~/Org/")
|
|
|
|
|
|
;; Whenever you reconfigure a package, make sure to wrap your config in an
|
|
;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
|
|
;;
|
|
;; (after! PACKAGE
|
|
;; (setq x y))
|
|
;;
|
|
;; The exceptions to this rule:
|
|
;;
|
|
;; - Setting file/directory variables (like `org-directory')
|
|
;; - Setting variables which explicitly tell you to set them before their
|
|
;; package is loaded (see 'C-h v VARIABLE' to look up their documentation).
|
|
;; - Setting doom variables (which start with 'doom-' or '+').
|
|
;;
|
|
;; Here are some additional functions/macros that will help you configure Doom.
|
|
;;
|
|
;; - `load!' for loading external *.el files relative to this one
|
|
;; - `use-package!' for configuring packages
|
|
;; - `after!' for running code after a package has loaded
|
|
;; - `add-load-path!' for adding directories to the `load-path', relative to
|
|
;; this file. Emacs searches the `load-path' when you load packages with
|
|
;; `require' or `use-package'.
|
|
;; - `map!' for binding new keys
|
|
;;
|
|
;; To get information about any of these functions/macros, move the cursor over
|
|
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
|
|
;; This will open documentation for it, including demos of how they are used.
|
|
;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
|
|
;; etc).
|
|
;;
|
|
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
|
|
;; they are implemented.
|
|
|
|
(after! gcmh
|
|
(setq gcmh-high-cons-threshold (* 64 1024 1024)))
|
|
|
|
(use-package! mixed-pitch
|
|
:hook
|
|
(org-mode . mixed-pitch-mode)
|
|
(markdown-mode . mixed-pitch-mode)
|
|
:config
|
|
(setq mixed-pitch-set-height t))
|
|
|
|
(setq doom-modeline-buffer-file-name-style 'truncate-with-project
|
|
doom-modeline-mu4e t)
|
|
|
|
(display-time-mode 1)
|
|
|
|
(after! treemacs
|
|
(setq treemacs-width 28)
|
|
(bind-key "M-0" #'treemacs-select-window))
|
|
|
|
(use-package! alert
|
|
:config
|
|
;; TODO: Make this conditional so we can make the correct choice on macos
|
|
(setq alert-default-style 'libnotify))
|
|
|
|
(after! dired
|
|
(setq dired-omit-files "\\`[.]?#\\|\\`[.]?\\'\\|^\\.DS_Store\\'\\|^\\.project\\(?:ile\\)?\\'\\|^\\.\\(?:svn\\|git\\)\\'\\|^\\.ccls-cache\\'\\|\\(?:\\.js\\)?\\.meta\\'\\|\\.\\(?:elc\\|o\\|pyo\\|swp\\|class\\)\\'"))
|
|
|
|
(setq-default fill-column 100)
|
|
|
|
(after! avy
|
|
(define-key!
|
|
"M-g c" 'avy-goto-char
|
|
"M-g x" 'avy-goto-char-2
|
|
"M-g f" 'avy-goto-line
|
|
"M-g w" 'avy-goto-word-1
|
|
"M-g e" 'avy-goto-word-0)
|
|
(cheatsheet-add-group 'Avy
|
|
'(:key "M-g c" :description "Goto Char")
|
|
'(:key "M-g x" :description "Goto Char (2)")
|
|
'(:key "M-g f" :description "Goto line")
|
|
'(:key "M-g w" :description "Goto word")
|
|
'(:key "M-g e" :description "Goto word (0)")))
|
|
|
|
(after! swiper
|
|
(define-key! "C-s" 'swiper))
|
|
|
|
(use-package! crux
|
|
:bind (("C-k" . crux-smart-kill-line)
|
|
("C-c ^" . crux-top-join-line)))
|
|
|
|
(global-unset-key (kbd "C-q"))
|
|
(use-package! string-inflection
|
|
:bind (("C-q" . string-inflection-all-cycle)))
|
|
(cheatsheet-add-group 'string-inflection
|
|
'(:key "C-q" :description "Rotate case"))
|
|
|
|
(use-package! smart-hungry-delete
|
|
:bind (("M-<backspace>" . smart-hungry-delete-backward-char)))
|
|
|
|
(use-package! deadgrep
|
|
:bind ("C-c s r" . deadgrep))
|
|
|
|
(after! spell-fu
|
|
(add-hook 'spell-fu-mode
|
|
(lambda ()
|
|
(spell-fu-dictionary-add (spell-fu-get-ispell-dictionary "en"))
|
|
(spell-fu-dictionary-add (spell-fu-get-ispell-dictionary "en-science"))
|
|
(spell-fu-dictionary-add (spell-fu-get-ispell-dictionary "en-computers"))))
|
|
(bind-key "C-." #'+spell/correct))
|
|
|
|
(setq org-hide-emphasis-markers t
|
|
org-pretty-entities t)
|
|
|
|
(use-package! org-superstar
|
|
:hook (org-mode . org-superstar-mode)
|
|
:config
|
|
(setq org-superstart-special-todo-items t))
|
|
|
|
(defvar nm/org-agenda-files-timer nil
|
|
"Timer for automatically updating the org-agenda files")
|
|
(defvar nm/time-at-agenda-update 0
|
|
"Time at last agenda update")
|
|
|
|
(defun nm/update-org-agenda-files ()
|
|
"Helper function for updating the org-agenda files."
|
|
;; Calcuate time since last update
|
|
(let* ((time-seconds (float-time (current-time)))
|
|
(seconds-since (- time-seconds nm/time-at-agenda-update))
|
|
(idle-time (current-idle-time))
|
|
(idle-seconds (if idle-time (float-time idle-time) 0)))
|
|
;; If it has been more than 10 minutes since our last agenda file update, then go ahead and update
|
|
;; Additionally update if the idle timer is greater than 30 seconds
|
|
(when (or
|
|
(> seconds-since 600)
|
|
(> idle-seconds 30))
|
|
;; Update our time variable
|
|
(setq nm/time-at-agenda-update seconds-since)
|
|
;; Update our agenda files
|
|
(setq org-agenda-files
|
|
(seq-filter (lambda (item)
|
|
(and
|
|
;; Only accept things that are a directory, or an org file
|
|
(or (file-directory-p item)
|
|
(string-match-p ".*org$" item))
|
|
;; Exclude the syncthing folder
|
|
(not (string-match-p ".*stfolder$" item))
|
|
;; Exclude the elfeed data folder
|
|
(not (string-match-p (concat "^" (regexp-quote org-directory) "elfeed/.*") item))))
|
|
(directory-files-recursively org-directory directory-files-no-dot-files-regexp)))))
|
|
;; Update the timer, first canceling the old one
|
|
(when nm/org-agenda-files-timer
|
|
(cancel-timer nm/org-agenda-files-timer)
|
|
(setq nm/org-agenda-files-timer (run-with-timer 60 nil 'nm/update-org-agenda-files))))
|
|
|
|
(after! org
|
|
;; Set the agenda files on first start
|
|
;; This also configures the timer for us
|
|
(nm/update-org-agenda-files))
|
|
|
|
(defvar nm/org-agenda-update-timer nil
|
|
"Timer for automatically updating the org-agenda views")
|
|
|
|
(defun nm/org-agenda-refresh-conditional ()
|
|
"Helper function to only refresh the org-agenda views if it
|
|
either isn't focused or we have been idle long enough. This
|
|
avoids updating the buffer, and thus annoying the user, while
|
|
they are in the middle of doing something.
|
|
|
|
This function will run on a 60 second loop, only actually doing
|
|
work if it thinks it needs to."
|
|
;; Make sure the org-agenda-buffer exists, bail out if it doesnt
|
|
(when (boundp 'org-agenda-buffer-name)
|
|
;; Attempt to get the org agenda buffer
|
|
(when-let ((buffer (get-buffer org-agenda-buffer-name)))
|
|
;; Calcuate idle time
|
|
(let* ((idle-time (current-idle-time))
|
|
(idle-seconds (if idle-time (float-time idle-time) 0)))
|
|
;; Update the org-agenda views if any of the following apply:
|
|
;; - The agenda buffer is not in focus
|
|
;; - The idle time is greater than one minute
|
|
(when (or
|
|
(not (eq (window-buffer (selected-window)) buffer))
|
|
(> idle-seconds 60))
|
|
;; Since we are not in the org-agenda-buffer it is safe to rebuild the views
|
|
(with-current-buffer buffer
|
|
(org-agenda-redo-all))))))
|
|
;; Update the timer, first canceling the old one
|
|
(when nm/org-agenda-update-timer
|
|
(cancel-timer nm/org-agenda-update-timer))
|
|
(setq nm/org-agenda-update-timer (run-with-timer 60 nil 'nm/org-agenda-refresh-conditional)))
|
|
|
|
(after! org
|
|
;; This method sets up the timer on its own
|
|
(nm/org-agenda-refresh-conditional))
|
|
|
|
(after! org
|
|
(setq org-log-into-drawer t
|
|
org-log-refile 'time
|
|
org-log-repeat 'time
|
|
org-log-reschedule 'time
|
|
org-log-done 'time))
|
|
|
|
(after! org
|
|
(setq org-todo-keywords
|
|
'((sequence
|
|
"TODO(t)" ; A task that needs doing & is ready to do
|
|
"PROJ(p)" ; A project, which usually contains other tasks
|
|
"LOOP(r)" ; A recurring task
|
|
"STRT(s!)" ; A task that is in progress
|
|
"WAIT(w!)" ; Something external is holding up this task
|
|
"HOLD(h!)" ; This task is paused/on hold because of me
|
|
"IDEA(i)" ; An unconfirmed and unapproved task or notion
|
|
"|"
|
|
"DONE(d!)" ; Task successfully completed
|
|
"KILL(k!)") ; Task was cancelled, aborted or is no longer applicable
|
|
(sequence
|
|
"[ ](T)" ; A task that needs doing
|
|
"[-](S!)" ; Task is in progress
|
|
"[?](W!)" ; Task is being held up or paused
|
|
"|"
|
|
"[X](D!)") ; Task was completed
|
|
(sequence
|
|
"|"
|
|
"OKAY(o!)"
|
|
"YES(y!)"
|
|
"NO(n!)"))
|
|
org-todo-keyword-faces
|
|
'(("[-]" . +org-todo-active)
|
|
("STRT" . +org-todo-active)
|
|
("[?]" . +org-todo-onhold)
|
|
("WAIT" . +org-todo-onhold)
|
|
("HOLD" . +org-todo-onhold)
|
|
("PROJ" . +org-todo-project)
|
|
("NO" . +org-todo-cancel)
|
|
("KILL" . +org-todo-cancel))))
|
|
|
|
(use-package! org-roam
|
|
:custom
|
|
(org-roam-directory (concat org-directory "Roam/"))
|
|
(org-roam-complete-everywhere t)
|
|
:bind (("C-c r l" . org-roam-buffer-toggle)
|
|
("C-c r f" . org-roam-node-find)
|
|
("C-c r g" . org-roam-graph)
|
|
("C-c r i" . org-roam-node-insert)
|
|
("C-c r c" . org-roam-capture)
|
|
("C-c r T" . org-roam-dailies-capture-today)
|
|
("C-c r t" . org-roam-dailies-goto-today)
|
|
:map org-mode-map
|
|
("C-M-i" . completion-at-point))
|
|
:config
|
|
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
|
|
(org-roam-db-autosync-mode)
|
|
(setq org-roam-dailies-capture-templates
|
|
'(("d" "default" entry "* %<%I:%M %p>: %?"
|
|
:if-new (file+head "%<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n")))))
|
|
|
|
(use-package! org-protocol-capture-html)
|
|
|
|
(after! org
|
|
(push
|
|
'("w" "Web site" entry
|
|
(file "")
|
|
"* %a :website:\n\n%U %?\n\n%:initial")
|
|
org-capture-templates))
|
|
|
|
(use-package! anki-editor)
|
|
|
|
(after! org
|
|
(setq org-agenda-custom-commands
|
|
'(("p" . "Project Views"))))
|
|
|
|
(defun org-compare--get-marker (entry)
|
|
"Return the marker for ENTRY.
|
|
|
|
This marker points to the location of the headline referenced by
|
|
ENTRY."
|
|
(get-text-property 1 'org-marker entry))
|
|
|
|
(defvar org-compare-random-refresh nil
|
|
"Whether `org-compare-randomly' should refresh its keys.
|
|
|
|
See the docs for `org-compare-randomly' for more information.")
|
|
|
|
(defun org-compare-randomly--update-sort-key (entry table generator)
|
|
"Return sort key for ENTRY in TABLE, generating it if necessary.
|
|
For internal use by `org-compare-randomly-by'."
|
|
(let* ((marker (org-compare--get-marker entry))
|
|
(hash-key `(,(marker-buffer marker) . ,(marker-position marker))))
|
|
(or (gethash hash-key table)
|
|
(puthash hash-key (funcall generator entry) table))))
|
|
|
|
(defun org-compare-randomly-by (generator)
|
|
"Return a random comparator using GENERATOR.
|
|
|
|
The comparator returned is like `org-compare-randomly', except
|
|
the distribution of random keys is controlled by GENERATOR and
|
|
may thus be non-uniform.
|
|
|
|
The function GENERATOR is called with a single argument, an
|
|
agenda entry, when that entry lacks a sort key. It should return
|
|
a number, which is then used for all comparisons until the key
|
|
list is cleared; see `org-compare-randomly' for more details on
|
|
this.
|
|
|
|
Subsequent calls to `org-compare-randomly-by' produce comparators
|
|
with independent sets of sort keys."
|
|
(let ((table (make-hash-table :test #'equal)))
|
|
(lambda (x y)
|
|
(when org-compare-random-refresh
|
|
(clrhash table)
|
|
(setq org-compare-random-refresh nil))
|
|
(let ((x-val (org-compare-randomly--update-sort-key x table generator))
|
|
(y-val (org-compare-randomly--update-sort-key y table generator)))
|
|
(cond
|
|
((= x-val y-val) nil)
|
|
((< x-val y-val) -1)
|
|
((> x-val y-val) +1))))))
|
|
|
|
(defun org-compare-randomly ()
|
|
"Return a comparator implementing a random shuffle.
|
|
|
|
When given distinct agenda entries X and Y, the resulting
|
|
comparator has an equal chance of returning +1 and -1 (and a
|
|
miniscule chance of returning nil). Subsequent calls will produce
|
|
results consistent with a total ordering.
|
|
|
|
To accomplish this, a hash table of randomly-generated sort keys
|
|
is maintained. This table will persist until the comparator is
|
|
called when the variable `org-compare-random-refresh' is non-nil.
|
|
This means that setting this variable as part of a custom agenda
|
|
command using this comparator as `org-agenda-cmp-user-defined'
|
|
will cause the sort order to change whenever the agenda is
|
|
refreshed; otherwise, it will persist until Emacs is restarted.
|
|
|
|
Note that if you don't want the sort order to change on refresh,
|
|
you need to be careful that the comparator is created when the
|
|
custom agenda command is defined, not when it's called, e.g.
|
|
|
|
(add-to-list
|
|
'org-agenda-custom-commands
|
|
`(\"y\" \"Example Agenda\"
|
|
((todo
|
|
\"\"
|
|
((org-agenda-cmp-user-defined ',(org-compare-randomly))
|
|
(org-agenda-sorting-strategy '(user-defined-up)))))))
|
|
|
|
\(Notice the use of backquote.)
|
|
|
|
Comparators resulting from different calls to this function have
|
|
independent key tables."
|
|
(org-compare-randomly-by (lambda (_) (random))))
|
|
|
|
(after! org
|
|
(add-to-list 'org-agenda-custom-commands
|
|
'("pr" "Random Project TODOs"
|
|
((tags "proj/TODO"
|
|
((org-agenda-max-entries 5)
|
|
(org-agenda-cmp-user-defined (org-compare-randomly))
|
|
(org-compare-random-refresh t)
|
|
(org-agenda-sorting-strategy '(user-defined-up))))
|
|
(tags "proj/STRT"
|
|
((org-agenda-max-entries 5)
|
|
(org-agenda-cmp-user-defined (org-compare-randomly))
|
|
(org-compare-random-refresh t)
|
|
(org-agenda-sorting-strategy '(user-defined-up))))
|
|
(tags "proj/PROJ"
|
|
((org-agenda-max-entries 5)
|
|
(org-agenda-cmp-user-defined (org-compare-randomly))
|
|
(org-compare-random-refresh t)
|
|
(org-agenda-sorting-strategy '(user-defined-up))))
|
|
(todo "IDEA"
|
|
((org-agenda-max-entries 5)
|
|
(org-agenda-cmp-user-defined (org-compare-randomly))
|
|
(org-compare-random-refresh t)
|
|
(org-agenda-sorting-strategy '(user-defined-up))))))))
|
|
|
|
(after! org
|
|
(setq org-agenda-dim-blocked-tasks nil))
|
|
|
|
(after! org
|
|
(setq org-tag-alist '(("proj" . ?p)
|
|
("complaint" . ?c)
|
|
("work" . ?w))))
|
|
|
|
(after! org
|
|
(add-to-list 'org-modules 'org-habit))
|
|
|
|
(require 'ansi-color)
|
|
|
|
(after! org
|
|
(defun nm/babel-ansi ()
|
|
(when-let ((beg (org-babel-where-is-src-block-result nil nil)))
|
|
(save-excursion
|
|
(goto-char beg)
|
|
(when (looking-at org-babel-result-regexp)
|
|
(let ((end (org-babel-result-end))
|
|
(ansi-color-context-region nil))
|
|
(ansi-color-apply-on-region beg end))))))
|
|
(add-hook 'org-babel-after-execute-hook 'nm/babel-ansi))
|
|
|
|
(use-package! magit-todos
|
|
:hook (magit-mode . magit-todos-mode))
|
|
|
|
(use-package! magit-delta
|
|
:hook (magit-mode . magit-delta-mode))
|
|
|
|
(magit-wip-mode)
|
|
|
|
(use-package! multi-vterm
|
|
:bind (("C-c o M" . multi-vterm)
|
|
("C-c o m" . multi-vterm-project)))
|
|
|
|
(use-package! separedit
|
|
:bind
|
|
(:map prog-mode-map
|
|
("C-c '" . separedit))
|
|
:config
|
|
(setq separedit-default-mode 'gfm-mode
|
|
separedit-continue-fill-column t))
|
|
|
|
(use-package! rainbow-delimiters
|
|
:hook (prog-mode . rainbow-delimiters-mode))
|
|
|
|
(after! yasnippet
|
|
(add-to-list 'yas-snippet-dirs "~/Org/snippets")
|
|
(yas-reload-all))
|
|
|
|
(after! lsp-mode
|
|
(add-to-list 'lsp-file-watch-ignored-directories "[/\\\\]\\result\\")
|
|
(add-to-list 'lsp-file-watch-ignored-directories "[/\\\\]\\result-doc\\"))
|
|
|
|
(after! lsp-ui
|
|
(setq lsp-ui-sideline-show-diagnostics t
|
|
lsp-ui-sideline-show-hover t
|
|
lsp-ui-sideline-show-code-actions t))
|
|
|
|
(after! lsp-ui
|
|
(setq lsp-ui-peek-enable t
|
|
lsp-ui-peek-show-directory t))
|
|
|
|
(after! lsp-ui
|
|
(setq lsp-ui-doc-enable t
|
|
lsp-ui-doc-position 'top
|
|
lsp-ui-doc-show-with-cursor t))
|
|
|
|
(after! lsp-mode
|
|
(setq lsp-auto-configure t
|
|
lsp-lens-enable t
|
|
lsp-rust-analyzer-cargo-watch-command "clippy"
|
|
lsp-rust-analyzer-cargo-watch-args ["--all-features"]
|
|
lsp-rust-analyzer-experimental-proc-attr-macros t
|
|
lsp-rust-analyzer-proc-macro-enable t
|
|
lsp-rust-analyzer-use-rustc-wrapper-for-build-scripts t
|
|
lsp-rust-analyzer-import-enforce-granularity t
|
|
lsp-rust-analyzer-diagnostics-enable-experimental t
|
|
lsp-rust-analyzer-display-chaining-hints t))
|
|
|
|
(after! lsp-mode
|
|
(add-to-list 'lsp-language-id-configuration '(nix-mode . "nix"))
|
|
(lsp-register-client
|
|
(make-lsp-client :new-connection (lsp-stdio-connection '("rnix-lsp"))
|
|
:major-modes '(nix-mode)
|
|
:server-id 'nix)))
|
|
|
|
(use-package! markdown-mode
|
|
:mode ("README\\.md" . gfm-mode)
|
|
:hook (markdown-mode . variable-pitch-mode)
|
|
(markdown-mode . auto-fill-mode)
|
|
:config
|
|
(setq markdown-header-scaling t
|
|
markdown-hide-markup t
|
|
markdown-fontify-code-blocks-natively t))
|
|
|
|
(use-package! grip-mode
|
|
:bind (:map markdown-mode-command-map
|
|
("g" . grip-mode)))
|
|
|
|
(use-package! elfeed
|
|
:hook (elfeed-search-mode . elfeed-update)
|
|
:hook (elfeed-show-mode . variable-pitch-mode)
|
|
:hook (elfeed-show-mode . visual-line-mode)
|
|
:bind ("C-x w" . elfeed)
|
|
:config
|
|
(setq elfeed-search-filter "@4-weeks-ago +unread"
|
|
elfeed-db-directory (concat org-directory "elfeed/db/")
|
|
elfeed-enclosure-default-dir (concat org-directory "elfeed/enclosures/")
|
|
shr-max-width nil)
|
|
(make-directory elfeed-db-directory t))
|
|
|
|
(after! mu4e
|
|
(setq sendmail-program (executable-find "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))
|
|
|
|
(after! mu4e
|
|
(set-email-account! "mccarty.io"
|
|
'((mu4e-sent-folder . "/nathan@mccarty.io/Sent")
|
|
(mu4e-drafts-folder . "/nathan@mccarty.io/Drafts")
|
|
(mu4e-trash-folder . "/nathan@mccarty.io/Trash")
|
|
(mu4e-refile-folder . "/nathan@mccarty.io/Archive")
|
|
(smtpmail-smtp-user . "nathan@mccarty.io"))
|
|
t))
|
|
|
|
(after! mu4e
|
|
(setq mu4e-bookmarks '())
|
|
(add-to-list 'mu4e-bookmarks
|
|
'(:name "All Mail"
|
|
:key ?a
|
|
:query "NOT flag:trashed"))
|
|
(add-to-list 'mu4e-bookmarks
|
|
'(:name "Unread Notifications - nathan@mccarty.io"
|
|
:key ?n
|
|
:query "maildir:\"/nathan@mccarty.io/Folders/Notifications/\" AND NOT flag:trashed AND flag:unread"))
|
|
(add-to-list 'mu4e-bookmarks
|
|
'(:name "Unread Mailing Lists - nathan@mccarty.io"
|
|
:key ?m
|
|
:query "maildir:\"/nathan@mccarty.io/Folders/Mailing Lists/\" AND NOT flag:trashed AND flag:unread"))
|
|
(add-to-list 'mu4e-bookmarks
|
|
'(:name "Inbox - nathan@mccarty.io"
|
|
:key ?i
|
|
:query "maildir:\"/nathan@mccarty.io/Inbox\" AND NOT flag:trashed"))
|
|
(add-to-list 'mu4e-bookmarks
|
|
'(:name "Unread"
|
|
:key ?u
|
|
:query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/nathan@mccarty.io/Folders/Notifications/\" AND NOT maildir:\"/nathan@mccarty.io/Folders/Mailing Lists/\"")))
|
|
|
|
(after! mu4e
|
|
(setq mu4e-maildir-shortcuts
|
|
'((:maildir "/nathan@mccarty.io/Folders/Notifications/Github" :key ?h)
|
|
(:maildir "/nathan@mccarty.io/Folders/Notifications/Gitlab" :key ?l)
|
|
(:maildir "/nathan@mccarty.io/Folders/Notifications/SourceHut" :key ?s)
|
|
(:maildir "/nathan@mccarty.io/Folders/Mailing Lists/Lobsters" :key ?a)
|
|
(:maildir "/nathan@mccarty.io/Folders/Archival/Receipts/2022" :key ?r)
|
|
(:maildir "/nathan@mccarty.io/Folders/Job Search" :key ?j)
|
|
(:maildir "/nathan@mccarty.io/Folders/Archival/Informed Delivery" :key ?i))))
|
|
|
|
(after! mu4e
|
|
(mu4e-alert-enable-mode-line-display))
|
|
|
|
(setq +mu4e-backend nil)
|
|
(after! mu4e
|
|
(setq mu4e-get-mail-command "systemctl start --user mbsync.service"
|
|
mu4e-update-interval nil))
|
|
|
|
(after! mu4e
|
|
(setq mu4e-change-filenames-when-moving t))
|