about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2023-01-17 10:21:42 -0600
committerCase Duckworth2023-01-17 10:21:42 -0600
commit5461636e1dcb3f44e0c876fb79f55cf5d59070cf (patch)
treec63cb2ff9ea45f84c762cba960b6ce2e4594e8c5
parentAdd acdw-web.el (diff)
downloademacs-5461636e1dcb3f44e0c876fb79f55cf5d59070cf.tar.gz
emacs-5461636e1dcb3f44e0c876fb79f55cf5d59070cf.zip
changes
-rw-r--r--basics.el3
-rw-r--r--init.el26
-rw-r--r--lisp/acdw-mail.el6
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