phundrak/config.phundrak.com
1
0
Fork 0
Code Issues Pull Requests Actions Activity

[Emacs] Better mu4e, nov-mode config

Browse Source 
Better formatting for `eshell-info-banner' bookmark

Unbind some keys for some keymaps

Better face for replied to emails

Remove useless `progn'

Go from `:general' to `general-define-key'. For some reason, the
former seems to not perform correctly.
This commit is contained in:
Lucien Cartier-Tilet 2021-07-30 18:23:36 +02:00
parent 59362050d1
commit 8604abc87d
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 37 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
org/config/emacs.org
View File

@ -1221,9 +1221,11 @@ We can finally define our bookmarks! The code reads as follows:
:query ,(format "%s AND %s"
<<mu4e-bookmarks-inbox-filters>>
<<mu4e-bookmarks-filter-uni>>))
(:name "eshell-info-banner" :key ?E :query ,(format "%s AND %s"
<<mu4e-bookmarks-inbox-filters>>
"list:eshell-info-banner.el.Phundrak.github.com"))
(:name "eshell-info-banner"
:key ?E
:query ,(format "%s AND %s"
<<mu4e-bookmarks-inbox-filters>>
"list:eshell-info-banner.el.Phundrak.github.com"))
(:name "Sent" :key ?s :query "maildir:/Sent")
(:name "All Unread" :key ?U :query "flag:unread AND NOT flag:trashed")
(:name "Today" :key ?t :query "date:today..now AND NOT flag:trashed")
@ -1324,12 +1326,14 @@ bépo layout: ~hjkl~ becomes ~ctsr~ for us. Let’s undefine some of these:
#+begin_src emacs-lisp :tangle no
(general-define-key
:keymaps '(mu4e-headers-mode-map mu4e-view-mode-map)
"s" nil)
"SPC" nil
"s" nil)
(general-define-key
:states 'normal
:keymaps '(mu4e-headers-mode-map mu4e-view-mode-map)
"s" nil
"," nil)
"SPC" nil
"s" nil
"," nil)
(general-define-key
:keymaps 'mu4e-view-mode-map
"SPC" nil
@ -1529,7 +1533,7 @@ the major-mode leader and call a simple function.
(use-package org-msg
:after (org mu4e)
:straight (:build t)
:hook (mu4e-compose-pre . org-msg-mode)
:hook ((mu4e-compose-pre . org-msg-mode))
:general (:keymaps 'org-msg-edit-mode-map
:prefix ","
:states 'normal
@ -1539,29 +1543,30 @@ the major-mode leader and call a simple function.
"k" #'message-kill-buffer
"s" #'message-dont-send
"f" #'org-msg-attach)
:custom-face
(mu4e-replied-face ((t (:weight normal :foreground "#b48ead"))))
:config
(progn
(defun my/org-msg-signature-convert (orig-fun &rest args)
"Tweak my signature when replying as plain/text only."
(let ((res (apply orig-fun args)))
(when (equal (cadr args) '(text))
(setf (alist-get 'signature res)
(replace-regexp-in-string "\n+" "\n" org-msg-signature)))
res))
(advice-add 'org-msg-composition-parameters
:around 'my/org-msg-signature-convert)
(setq org-msg-startup "inlineimages"
org-msg-default-alternatives '((new . (text html))
(reply-to-html . (text html))
(reply-to-text . (text)))
org-msg-convert-citation t
org-msg-greeting-name-limit 3
org-msg-signature (format "\n--\n#+begin_signature\n%s\n#+end_signature"
(with-temp-buffer
(insert-file-contents mail-signature-file)
(buffer-string))))))
(defun my/org-msg-signature-convert (orig-fun &rest args)
"Tweak my signature when replying as plain/text only."
(let ((res (apply orig-fun args)))
(when (equal (cadr args) '(text))
(setf (alist-get 'signature res)
(replace-regexp-in-string "\n+" "\n" org-msg-signature)))
res))
(advice-add 'org-msg-composition-parameters
:around 'my/org-msg-signature-convert)
(add-hook 'mu4e-headers-mode (lambda () (toggle-truncate-lines -1)))
(setq org-msg-startup "inlineimages"
org-msg-default-alternatives '((new . (text html))
(reply-to-html . (text html))
(reply-to-text . (text)))
org-msg-convert-citation t
org-msg-greeting-name-limit 3
org-msg-signature (format "\n--\n#+begin_signature\n%s\n#+end_signature"
(replace-regexp-in-string (regexp-quote "\n") "\n\n"
(with-temp-buffer
(insert-file-contents mail-signature-file)
(buffer-string))))))
#+end_src
**** Email alerts
@ -1597,8 +1602,9 @@ reader?
:straight (:build t)
:defer t
:mode ("\\.epub\\'" . nov-mode)
:general
(:keymaps 'nov-mode-map
:config
(general-define-key
:keymaps 'nov-mode-map
:states 'normal
"SPC" nil
"c" #'nov-previous-document
@ -1614,7 +1620,6 @@ reader?
"gt" #'nov-goto-toc
"gv" #'nov-view-source
"gV" #'nov-view-content-source)
:config
(setq nov-text-width 95))
#+end_src