chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

customizing mu4e and adding broken eshell-pop

Browse source
This commit is contained in:
Chris Cochrun 2021-02-26 09:14:37 -06:00
parent 5e4443bf30
commit 6492c4328f
2 changed files with 72 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
README.org
View file

@ -1057,13 +1057,13 @@ If on a:
;; shortcuts in the jumplist by pressing "J" in the mu4e buffer ;; shortcuts in the jumplist by pressing "J" in the mu4e buffer
(setq mu4e-maildir-shortcuts (setq mu4e-maildir-shortcuts
'((:maildir "/office/Archive" :key ?a) '((:maildir "/office/Archive" :key ?a)
(:maildir "/office/INBOX" :key ?i) (:maildir "/office/INBOX" :key ?i)
(:maildir "/outlook/INBOX" :key ?l) (:maildir "/outlook/INBOX" :key ?l)
(:maildir "/office/Junk Email" :key ?j) (:maildir "/office/Junk Email" :key ?j)
(:maildir "/office/INBOX/Website Forms" :key ?f) (:maildir "/office/INBOX/Website Forms" :key ?f)
(:maildir "/gmail/INBOX" :key ?g) (:maildir "/gmail/INBOX" :key ?g)
(:maildir "/office/Sent Items" :key ?s))) (:maildir "/office/Sent Items" :key ?s)))
;; (add-to-list mu4e-headers-actions ("org capture message" . mu4e-org-store-and-capture)) ;; (add-to-list mu4e-headers-actions ("org capture message" . mu4e-org-store-and-capture))
@ -1071,14 +1071,25 @@ If on a:
'((:name "Unread messages" '((:name "Unread messages"
:query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/outlook/Junk\" AND NOT maildir:\"/office/Junk Email\" AND NOT maildir:\"/outlook/Deleted\" AND NOT maildir:\"/office/Deleted Items\"" :query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/outlook/Junk\" AND NOT maildir:\"/office/Junk Email\" AND NOT maildir:\"/outlook/Deleted\" AND NOT maildir:\"/office/Deleted Items\""
:key 117) :key 117)
(:name "Today's messages" :query "date:today..now" :key 116) (:name "Today's messages"
(:name "Last 7 days" :query "date:7d..now" :hide-unread t :key 119) :query "date:today..now"
(:name "Messages with images" :query "mime:image/*" :key 112))) :key 116)
(:name "Last 7 days"
:query "date:7d..now"
:hide-unread t
:key 119)
(:name "Messages with images"
:query "mime:image/*"
:key 112)))
(setq mu4e-mu-binary "/usr/bin/mu") (setq mu4e-mu-binary "/usr/bin/mu")
(add-hook 'mu4e-headers-mode-hook (display-line-numbers-mode -1)) (defun chris/setup-mu4e-headers ()
(add-hook 'mu4e-headers-mode-hook (toggle-truncate-lines +1)) (toggle-truncate-lines -1)
(display-line-numbers-mode -1))
(remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1))
(add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
(mu4e t) (mu4e t)
:general :general
@ -1212,9 +1223,21 @@ Let's add our own eshell prompt. and set the password cache to a significantly h
;;; last line only. ;;; last line only.
(setq-default eshell-prompt-regexp "^ ") (setq-default eshell-prompt-regexp "^ ")
(setq eshell-destroy-buffer-when-process-dies t) (setq eshell-destroy-buffer-when-process-dies t)
(defun chris/pop-eshell ()
"Make an eshell frame on the bottom"
(interactive)
(unless pop-eshell
(setq pop-eshell (eshell 100))
(with-current-buffer pop-eshell
(eshell/clear-scrollback)
(rename-buffer "*eshell-pop*")
(display-buffer-in-side-window pop-eshell '((side . bottom))))))
:general :general
(chris/leader-keys (chris/leader-keys
"oe" 'eshell) "oe" 'chris/pop-eshell
"oE" 'eshell)
(general-def '(normal insert) eshell-mode-map (general-def '(normal insert) eshell-mode-map
"C-d" 'kill-this-buffer)) "C-d" 'kill-this-buffer))
#+end_src #+end_src

49
init.el
View file

@ -781,13 +781,13 @@ If on a:
;; shortcuts in the jumplist by pressing "J" in the mu4e buffer ;; shortcuts in the jumplist by pressing "J" in the mu4e buffer
(setq mu4e-maildir-shortcuts (setq mu4e-maildir-shortcuts
'((:maildir "/office/Archive" :key ?a) '((:maildir "/office/Archive" :key ?a)
(:maildir "/office/INBOX" :key ?i) (:maildir "/office/INBOX" :key ?i)
(:maildir "/outlook/INBOX" :key ?l) (:maildir "/outlook/INBOX" :key ?l)
(:maildir "/office/Junk Email" :key ?j) (:maildir "/office/Junk Email" :key ?j)
(:maildir "/office/INBOX/Website Forms" :key ?f) (:maildir "/office/INBOX/Website Forms" :key ?f)
(:maildir "/gmail/INBOX" :key ?g) (:maildir "/gmail/INBOX" :key ?g)
(:maildir "/office/Sent Items" :key ?s))) (:maildir "/office/Sent Items" :key ?s)))
;; (add-to-list mu4e-headers-actions ("org capture message" . mu4e-org-store-and-capture)) ;; (add-to-list mu4e-headers-actions ("org capture message" . mu4e-org-store-and-capture))
@ -795,14 +795,25 @@ If on a:
'((:name "Unread messages" '((:name "Unread messages"
:query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/outlook/Junk\" AND NOT maildir:\"/office/Junk Email\" AND NOT maildir:\"/outlook/Deleted\" AND NOT maildir:\"/office/Deleted Items\"" :query "flag:unread AND NOT flag:trashed AND NOT maildir:\"/outlook/Junk\" AND NOT maildir:\"/office/Junk Email\" AND NOT maildir:\"/outlook/Deleted\" AND NOT maildir:\"/office/Deleted Items\""
:key 117) :key 117)
(:name "Today's messages" :query "date:today..now" :key 116) (:name "Today's messages"
(:name "Last 7 days" :query "date:7d..now" :hide-unread t :key 119) :query "date:today..now"
(:name "Messages with images" :query "mime:image/*" :key 112))) :key 116)
(:name "Last 7 days"
:query "date:7d..now"
:hide-unread t
:key 119)
(:name "Messages with images"
:query "mime:image/*"
:key 112)))
(setq mu4e-mu-binary "/usr/bin/mu") (setq mu4e-mu-binary "/usr/bin/mu")
(add-hook 'mu4e-headers-mode-hook (display-line-numbers-mode -1)) (defun chris/setup-mu4e-headers ()
(add-hook 'mu4e-headers-mode-hook (toggle-truncate-lines +1)) (toggle-truncate-lines -1)
(display-line-numbers-mode -1))
(remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1))
(add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
(mu4e t) (mu4e t)
:general :general
@ -918,9 +929,21 @@ If on a:
;;; last line only. ;;; last line only.
(setq-default eshell-prompt-regexp "^ ") (setq-default eshell-prompt-regexp "^ ")
(setq eshell-destroy-buffer-when-process-dies t) (setq eshell-destroy-buffer-when-process-dies t)
(defun chris/pop-eshell ()
"Make an eshell frame on the bottom"
(interactive)
(unless pop-eshell
(setq pop-eshell (eshell 100))
(with-current-buffer pop-eshell
(eshell/clear-scrollback)
(rename-buffer "*eshell-pop*")
(display-buffer-in-side-window pop-eshell '((side . bottom))))))
:general :general
(chris/leader-keys (chris/leader-keys
"oe" 'eshell) "oe" 'chris/pop-eshell
"oE" 'eshell)
(general-def '(normal insert) eshell-mode-map (general-def '(normal insert) eshell-mode-map
"C-d" 'kill-this-buffer)) "C-d" 'kill-this-buffer))