diff options
| author | Case Duckworth | 2023-01-17 10:21:42 -0600 |
|---|---|---|
| committer | Case Duckworth | 2023-01-17 10:21:42 -0600 |
| commit | 5461636e1dcb3f44e0c876fb79f55cf5d59070cf (patch) | |
| tree | c63cb2ff9ea45f84c762cba960b6ce2e4594e8c5 /init.el | |
| parent | Add acdw-web.el (diff) | |
| download | emacs-5461636e1dcb3f44e0c876fb79f55cf5d59070cf.tar.gz emacs-5461636e1dcb3f44e0c876fb79f55cf5d59070cf.zip | |
changes
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 26 |
1 files changed, 15 insertions, 11 deletions
| 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)) |