diff options
| -rw-r--r-- | email.org | 9 | ||||
| -rw-r--r-- | init.org | 11 | ||||
| -rw-r--r-- | lib/net/jao-notmuch.el | 3 | ||||
| -rw-r--r-- | notmuch.org | 2 |
4 files changed, 9 insertions, 16 deletions
@@ -335,14 +335,7 @@ (let ((dir (expand-file-name base "~/var/mail"))) (seq-difference (directory-files dir) (append '("." "..") excl)))) - (defun jao-mailbox-folders (&rest excl) - (seq-mapcat (lambda (base) - (mapcar `(lambda (d) (format "%s/%s" ,base d)) - (apply #'jao-list-mailboxes base excl))) - '("jao" "bigml" "feeds"))) - - (defvar jao-mailbox-folders (jao-mailbox-folders "trash" "spam")) - (defvar jao-mailbox-folders-rx (regexp-opt jao-mailbox-folders)) + #+end_src * consult narrowing #+begin_src emacs-lisp @@ -547,7 +547,7 @@ (jao-trisect) (jao-set-transparency 85) (jao-themes-setup) - (display-time-mode 1) + ;; (display-time-mode 1) (global-set-key (kbd "s-f") #'jao-sway-run-or-focus-firefox) (message "Welcome to sway")) @@ -693,7 +693,7 @@ #+end_src *** Minibuffer #+begin_src emacs-lisp - (defvar jao-modeline-in-minibuffer-p t) + (defvar jao-modeline-in-minibuffer-p (and window-system t)) (use-package jao-minibuffer :init @@ -759,9 +759,7 @@ (jao--set-inactive-face 'unspecified frame)) (when (and window-system (not jao-modeline-in-minibuffer-p)) - (add-hook 'after-init-hook #'jao-toggle-inactive-mode-line)) - - (unless jao-modeline-in-minibuffer-p + (add-hook 'after-init-hook #'jao-toggle-inactive-mode-line) (add-to-list 'after-make-frame-functions #'jao--hide-inactive-mode-line)) (global-set-key (kbd "<home>") #'jao-toggle-inactive-mode-line) @@ -784,7 +782,7 @@ battery-mode-line-limit 40 battery-echo-area-format "%L %r %B (%p%% load, remaining time %t)" - battery-mode-line-format " %b%p ")) + battery-mode-line-format " %b%p ")) ;; " 🔋%b%p " (display-battery-mode 1) (with-eval-after-load "jao-minibuffer" (unless jao-modeline-in-minibuffer-p @@ -1683,6 +1681,7 @@ * Email #+begin_src emacs-lisp (setq jao-afio-mail-function 'notmuch) + ;; (setq jao-afio-mail-function 'gnus) (jao-load-org "email") #+end_src * PDFs diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 87e2e2c..fe3e086 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -263,8 +263,7 @@ ;;;; Outline mode for tree view (defun jao-notmuch-tree--msg-prefix (msg) - (insert (propertize (if (plist-get msg :first) "> " " ") - 'display "" 'intangible t 'field t))) + (insert (propertize (if (plist-get msg :first) "> " " ") 'display " "))) (defun jao-notmuch-tree--mode-setup () (setq-local outline-regexp "^> \\|^En") diff --git a/notmuch.org b/notmuch.org index 9fb3556..82e3710 100644 --- a/notmuch.org +++ b/notmuch.org @@ -576,6 +576,8 @@ (defvar jao-consult-notmuch-history nil) + (defvar jao-mailbox-folders '("bigml" "jao")) + (defun jao-consult-notmuch-folder (&optional tree folder) (interactive "P") (let ((folder (if folder |