diff options
-rw-r--r-- | basics.el | 3 | ||||
-rw-r--r-- | init.el | 26 | ||||
-rw-r--r-- | lisp/acdw-mail.el | 6 |
3 files changed, 19 insertions, 16 deletions
diff --git a/basics.el b/basics.el index 24e5047..428dcd1 100644 --- a/basics.el +++ b/basics.el | |||
@@ -570,8 +570,7 @@ N spaces." | |||
570 | 570 | ||
571 | (use-package crux | 571 | (use-package crux |
572 | :ensure t :demand t | 572 | :ensure t :demand t |
573 | :bind (("C-o" . crux-smart-open-line) | 573 | :bind (("C-x 4 t" . crux-transpose-windows)) |
574 | ("C-x 4 t" . crux-transpose-windows)) | ||
575 | :config | 574 | :config |
576 | (crux-with-region-or-buffer indent-region) | 575 | (crux-with-region-or-buffer indent-region) |
577 | (crux-with-region-or-buffer tabify) | 576 | (crux-with-region-or-buffer tabify) |
diff --git a/init.el b/init.el index 617de47..aed189c 100644 --- a/init.el +++ b/init.el | |||
@@ -166,12 +166,12 @@ | |||
166 | (setopt display-time-format " %H:%M" | 166 | (setopt display-time-format " %H:%M" |
167 | display-time-mail-function | 167 | display-time-mail-function |
168 | (defun +notmuch-new-mail-p () | 168 | (defun +notmuch-new-mail-p () |
169 | (plist-get (cl-find "inbox+unread" | 169 | (plist-get (cl-find "inbox+unread" |
170 | (ignore-errors | 170 | (ignore-errors |
171 | (notmuch-hello-query-counts notmuch-saved-searches)) | 171 | (notmuch-hello-query-counts notmuch-saved-searches)) |
172 | :key (lambda (l) (plist-get l :name)) | 172 | :key (lambda (l) (plist-get l :name)) |
173 | :test #'equal) | 173 | :test #'equal) |
174 | :count)) | 174 | :count)) |
175 | display-time-default-load-average nil) | 175 | display-time-default-load-average nil) |
176 | (display-time-mode)) | 176 | (display-time-mode)) |
177 | 177 | ||
@@ -728,9 +728,13 @@ With PREFIX, prompt to change the current dictionary." | |||
728 | 728 | ||
729 | (use-package tab-bar | 729 | (use-package tab-bar |
730 | :config | 730 | :config |
731 | (setopt tab-bar-show t | 731 | (setopt tab-bar-show t) |
732 | tab-bar-format | 732 | (add-to-list 'tab-bar-format 'tab-bar-format-menu-bar) |
733 | (append tab-bar-format | 733 | (add-to-list 'tab-bar-format 'tab-bar-format-align-right :append) |
734 | '(tab-bar-format-align-right | 734 | (add-to-list 'tab-bar-format 'tab-bar-format-global :append) |
735 | tab-bar-format-global))) | 735 | (with-eval-after-load 'notmuch |
736 | |||
737 | ;; (remove-hook 'notmuch-after-tag-hook #'tab-bar-make-keymap-1) | ||
738 | (define-advice notmuch-update-tags (:after (&rest _) update-tab-bar) | ||
739 | (tab-bar--update-tab-bar-lines))) | ||
736 | (tab-bar-mode)) | 740 | (tab-bar-mode)) |
diff --git a/lisp/acdw-mail.el b/lisp/acdw-mail.el index 9545808..8b0ab25 100644 --- a/lisp/acdw-mail.el +++ b/lisp/acdw-mail.el | |||
@@ -147,7 +147,7 @@ the saved search as well." | |||
147 | (use-package notmuch | 147 | (use-package notmuch |
148 | :when (executable-find "notmuch") | 148 | :when (executable-find "notmuch") |
149 | :load-path "~/usr/share/emacs/site-lisp/" | 149 | :load-path "~/usr/share/emacs/site-lisp/" |
150 | :defer t | 150 | :defer 30 |
151 | :commands (notmuch-mua-new-mail | 151 | :commands (notmuch-mua-new-mail |
152 | notmuch-search | 152 | notmuch-search |
153 | notmuch-hello) | 153 | notmuch-hello) |
@@ -169,6 +169,7 @@ the saved search as well." | |||
169 | notmuch-show-indent-content nil | 169 | notmuch-show-indent-content nil |
170 | message-kill-buffer-on-exit t | 170 | message-kill-buffer-on-exit t |
171 | message-auto-save-directory nil | 171 | message-auto-save-directory nil |
172 | message-signature "Case Duckworth\nhttps://www.acdw.net" | ||
172 | send-mail-function #'sendmail-send-it | 173 | send-mail-function #'sendmail-send-it |
173 | mail-specify-envelope-from t | 174 | mail-specify-envelope-from t |
174 | message-sendmail-envelope-from 'header | 175 | message-sendmail-envelope-from 'header |
@@ -228,8 +229,7 @@ This version doesn't add any initial-input." | |||
228 | "Trim whitespace from ends of tags." | 229 | "Trim whitespace from ends of tags." |
229 | (list (car args) (mapcar #'string-trim (cadr args)))) | 230 | (list (car args) (mapcar #'string-trim (cadr args)))) |
230 | ;; Load init file | 231 | ;; Load init file |
231 | ;; (load notmuch-init-file 'noerror) | 232 | (load notmuch-init-file :noerror)) |
232 | ) | ||
233 | 233 | ||
234 | (provide 'acdw-mail) | 234 | (provide 'acdw-mail) |
235 | ;;; acdw-mail.el ends here | 235 | ;;; acdw-mail.el ends here |