Browse Source

Fix notmuch setup

master
Nicolas Petton 11 months ago
parent
commit
f16cfda337
No known key found for this signature in database GPG Key ID: E8BCD7866AFCF978
1 changed files with 1 additions and 21 deletions
  1. +1
    -21
      hosts/blueberry/init-notmuch.el

+ 1
- 21
hosts/blueberry/init-notmuch.el View File

@ -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

Loading…
Cancel
Save