|
|
|
@ -1,6 +1,6 @@ |
|
|
|
(require 'notmuch) |
|
|
|
(require 'seq) |
|
|
|
(require 'org-notmuch) |
|
|
|
(require 'ol-notmuch) |
|
|
|
(require 'fetch-email) |
|
|
|
(require 'yasnippet) |
|
|
|
(require 'debbugs) |
|
|
|
@ -319,25 +319,5 @@ AnDaolVras")))) |
|
|
|
" "))) |
|
|
|
(notmuch-search (format "%s %s" address merged-addresses))))) |
|
|
|
|
|
|
|
;; Insert a stoic quote in the hello buffer |
|
|
|
(defun my-stoic-quote (&rest _) |
|
|
|
"Insert a random quote from quotes.org." |
|
|
|
(let ((inhibit-read-only t) |
|
|
|
(quotes (with-current-buffer (find-file-noselect "~/org/quotes.org") |
|
|
|
(split-string (buffer-string) "\n" t)))) |
|
|
|
(newline) |
|
|
|
(save-excursion |
|
|
|
(goto-char (point-min)) |
|
|
|
(insert (seq-random-elt quotes)) |
|
|
|
(put-text-property (point-min) (point) 'face 'bold) |
|
|
|
(newline 3) |
|
|
|
(forward-char -3) |
|
|
|
(fill-paragraph)))) |
|
|
|
|
|
|
|
(add-hook 'notmuch-hello-mode-hook #'my-stoic-quote) |
|
|
|
(add-hook 'notmuch-hello-refresh-hook #'my-stoic-quote) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide 'init-notmuch) |
|
|
|
;;; init-notmuch ends here |
