diff options
Diffstat (limited to 'home/dots')
| -rw-r--r-- | home/dots/.emacs | 66 |
1 files changed, 47 insertions, 19 deletions
diff --git a/home/dots/.emacs b/home/dots/.emacs index aee55ea..0d04e89 100644 --- a/home/dots/.emacs +++ b/home/dots/.emacs @@ -507,6 +507,17 @@ ("p" . git-gutter:previous-hunk)) :ensure t) +;; (use-package gnus +;; :custom +;; (gnus-select-method +;; '(nnimap "imap.fastmail.com" +;; (nnimap-expunge t))) +;; (mail-sources '((file))) +;; (gnus-secondary-select-methods '((nnml ""))) +;; (gnus-asynchronous t) +;; (gnus-use-article-prefetch t) +;; (gnus-agent t)) + (use-package git-gutter-fringe :ensure t) @@ -882,8 +893,9 @@ (org-tags-column 0) (org-pretty-entities t) (org-todo-keywords - '((sequence "TODO(t)" "|" "DONE(d)") - (sequence "UNREAD(u)" "READING(e)" "|" "READ(r)"))) + '((sequence "TODO(t)" "|" "DONE(d)") + (sequence "UNREAD(u)" "READING(e)" "|" "READ(r)") + (sequence "|" "CANCELED(c)"))) (org-agenda-custom-commands '(("t" todo "TODO") ("p" tags-todo "+piva"))) @@ -969,7 +981,7 @@ :empty-lines 1) ("g" "Log Coffee" entry (file+headline "~/personal-db/notes/notes.org" "Log") - "* Brewed pour-over :coffee:cyprus:paramytha:\n:PROPERTIES:\n:WATER: 320g\n:COFFEE: 25g\n:TYPE: [[id:815450d3-d772-4207-9eb4-e1e185fd8356][La Pastora]] | [[id:9d136656-2965-4be9-87cf-4ecafcf62707][Alemayehu]]\n:TEMP: 90\n:RATING:\n:PREHEAT: YES\n:TOTALBREWTIME:\n:END:\n%T\n*** Observations " + "* Brewed pour-over :coffee:cyprus:paramytha:\n:PROPERTIES:\n:WATER: 320g\n:COFFEE: 25g\n:TYPE: [[id:815450d3-d772-4207-9eb4-e1e185fd8356][La Pastora]] | [[id:9d136656-2965-4be9-87cf-4ecafcf62707][Alemayehu]] | [[id:73a92627-f076-4090-a78c-ef8204191611][Los Chorros]]\n:TEMP: 90\n:RATING:\n:PREHEAT: YES\n:TOTALBREWTIME:\n:END:\n%T\n*** Observations " :empty-lines 0 :prepend t) ("r" "Reference" @@ -1045,7 +1057,7 @@ :body msg :urgency 'critical))) :config - (define-advice appt-activate (:after (&optional _arg) hold-your-horses) + (define-advice appt-activate (:after (&optional _arg) hold-your-horses) "`appt-activate' is too eager, rein it in." (remove-hook 'write-file-functions #'appt-update-list) (when (timerp appt-timer) @@ -1106,34 +1118,50 @@ ((string-match "marc@mccd.space" from) "home")))) (setq message-sendmail-extra-arguments (list '"-a" account)))))) +(use-package message + :custom + (message-expand-name-standard-ui t) + (message-wide-reply-confirm-recipients t) + (message-interactive t) + (message-fcc-handler-function 'rmail-output) + (message-citation-line-function 'message-insert-formatted-citation-line) + (message-mail-alias-type 'ecomplete) + (message-self-insert-commands nil) + (message-send-mail-function 'sendmail-send-it) + (message-kill-buffer-on-exit t) + (message-sendmail-envelope-from 'header)) + (use-package sendmail :defer t :hook (message-send-mail . marc/set-msmtp-account) (message-send-mail . flyspell-mode) - (message-setup-hook . mail-abbrevs-setup) + (message-setup . mail-abbrevs-setup) :custom - (message-kill-buffer-on-exit t) + (send-mail-function 'sendmail-send-it) (sendmail-program (executable-find "msmtp")) - (message-sendmail-envelope-from 'header) - (message-mail-alias-type 'ecomplete) - (message-fcc-handler-function 'rmail-output) - (message-interactive t) - (message-wide-reply-confirm-recipients t) - (mail-user-agent 'message-user-agent) - (message-self-insert-commands nil) - (message-expand-name-standard-ui t) - (message-send-mail-function 'sendmail-send-it)) + (mail-user-agent 'message-user-agent)) + + +(defun rmail-reply-t () + "Reply only to the sender of the current message. (See rmail-reply.)" + (interactive) + (rmail-reply t)) + (use-package rmail + :init + (defvar selected-rmail-account "") :bind - (("C-c m" . rmail-open)) + (("C-c m" . rmail-open) + :map rmail-mode-map + ("r" . rmail-reply-t) + ("R" . rmail-reply)) :config - (defvar selected-rmail-account "") (defun rmail-no-check () - (interactive) - (rmail-input rmail-file-name)) + (interactive) + (rmail-input rmail-file-name)) (defun mail-work () (interactive) |