pixelifytica/nixos
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Customise notmuch-hello and add hydra

Browse source 
Add emms hooks to show current song when changed
This commit is contained in:
Evie Litherland-Smith 2023-10-27 11:45:06 +01:00
parent f1b8a95546
commit a06ab54e64
3 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
home/emacs/modules/custom-email-config.el
View file

@ -9,6 +9,13 @@
notmuch-show-logo nil
notmuch-hello-thousands-separator ","
notmuch-archive-tags '("-inbox" "+archive")
notmuch-message-headers-visible nil
notmuch-multipart/alternative-discouraged '("text/plain" "multipart/related")
notmuch-show-all-multipart/alternative-parts nil
notmuch-hello-sections '(notmuch-hello-insert-header
notmuch-hello-insert-saved-searches
notmuch-hello-insert-inbox
notmuch-hello-insert-alltags)
notmuch-fcc-dirs '((".*@xenia.me.uk" . "Proton/Sent")
(".*@proton.me" . "Proton/Sent")
(".*@litherlandsmith.slmail.me" . "Proton/Sent")
@ -22,6 +29,15 @@
(when (require 'notmuch nil :noerror)
(require 'notmuch-indicator)
(notmuch-indicator-mode +1))
(notmuch-indicator-mode +1)
(when (require 'hydra nil :noerror)
(defhydra email (global-map "C-c m")
"email"
("m" notmuch)
("c" notmuch-mua-new-mail)
("i" (notmuch-unthreaded "is:inbox"))
("u" (notmuch-unthreaded "is:unread AND is:inbox"))
("C-i" (notmuch-tree "is:inbox"))
("C-u" (notmuch-tree "is:unread AND is:inbox")))))
(provide 'custom-email-config)

2
home/emacs/modules/custom-media-config.el
View file

@ -5,6 +5,8 @@
(when (require 'emms-setup nil :noerror)
(emms-all)
(add-hook 'emms-player-started-hook #'emms-show)
(add-hook 'emms-player-paused-hook #'emms-show)
(when (require 'hydra nil :noerror)
(defhydra emms (global-map "C-c e")
"emms"

2
home/emacs/modules/custom-ui-config.el
View file

@ -42,7 +42,7 @@
(global-prettify-symbols-mode +1)
(global-word-wrap-whitespace-mode +1)
(set-frame-parameter nil 'alpha-background 80)
(add-to-list 'default-frame-alist '(alpha-background . 80))
;; (add-to-list 'default-frame-alist '(alpha-background . 80))
(when (require 'doom-themes nil :noerror) (load-theme 'doom-tokyo-night t))
;; Dashboard