emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

rm notmuch-hello customization

Browse source 
Seeking to make this notmuch module behave more like vanilla notmuch to
be less disorienting for users who are familiar with notmuch. The
customizations of the notmuch-hello screen can easily be done in user
configs by users that want those customizations.
This commit is contained in:
William Vaughn 2020-09-03 23:43:19 -07:00 • committed by Will Vaughn
parent 0c9256411d
commit d3eaad8f1c
2 changed files with 4 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
modules/email/notmuch/autoload.el
View file

@ -12,7 +12,7 @@
(if-let* ((buf (cl-find-if (lambda (it) (string-match-p "^\\*notmuch" (buffer-name (window-buffer it)))) (if-let* ((buf (cl-find-if (lambda (it) (string-match-p "^\\*notmuch" (buffer-name (window-buffer it))))
(doom-visible-windows)))) (doom-visible-windows))))
(select-window (get-buffer-window buf)) (select-window (get-buffer-window buf))
(notmuch-search "tag:inbox")) (funcall +notmuch-home-function))
(+workspace/display)) (+workspace/display))
('error ('error
(+notmuch/quit) (+notmuch/quit)

10
modules/email/notmuch/config.el
View file

@ -2,6 +2,9 @@
;; FIXME This module is a WIP! ;; FIXME This module is a WIP!
(defvar +notmuch-home-function #'notmuch
"Function for customizing the landing page for doom-emacs =notmuch.")
(defvar +notmuch-sync-backend 'gmi (defvar +notmuch-sync-backend 'gmi
"Which backend to use. Can be either gmi, mbsync, offlineimap or nil (manual).") "Which backend to use. Can be either gmi, mbsync, offlineimap or nil (manual).")
@ -27,8 +30,6 @@
(set-popup-rule! "^\\*notmuch-hello" :side 'left :size 30 :ttl 0) (set-popup-rule! "^\\*notmuch-hello" :side 'left :size 30 :ttl 0)
(setq notmuch-fcc-dirs nil (setq notmuch-fcc-dirs nil
notmuch-show-logo nil
notmuch-message-headers-visible nil
message-kill-buffer-on-exit t message-kill-buffer-on-exit t
message-send-mail-function 'message-send-mail-with-sendmail message-send-mail-function 'message-send-mail-with-sendmail
notmuch-search-oldest-first nil notmuch-search-oldest-first nil
@ -42,9 +43,6 @@
("tags" . "(%s)")) ("tags" . "(%s)"))
notmuch-tag-formats notmuch-tag-formats
'(("unread" (propertize tag 'face 'notmuch-tag-unread))) '(("unread" (propertize tag 'face 'notmuch-tag-unread)))
notmuch-hello-sections
'(notmuch-hello-insert-saved-searches
notmuch-hello-insert-alltags)
notmuch-saved-searches notmuch-saved-searches
'((:name "inbox" :query "tag:inbox not tag:trash" :key "i") '((:name "inbox" :query "tag:inbox not tag:trash" :key "i")
(:name "flagged" :query "tag:flagged" :key "f") (:name "flagged" :query "tag:flagged" :key "f")
@ -52,8 +50,6 @@
(:name "drafts" :query "tag:draft" :key "d")) (:name "drafts" :query "tag:draft" :key "d"))
notmuch-archive-tags '("-inbox" "-unread")) notmuch-archive-tags '("-inbox" "-unread"))
;; (setq-hook! 'notmuch-show-mode-hook line-spacing 0)
;; only unfold unread messages in thread by default ;; only unfold unread messages in thread by default
(add-hook 'notmuch-show-hook #'+notmuch-show-expand-only-unread-h) (add-hook 'notmuch-show-hook #'+notmuch-show-expand-only-unread-h)