summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--email.org9
-rw-r--r--init.org11
-rw-r--r--lib/net/jao-notmuch.el3
-rw-r--r--notmuch.org2
4 files changed, 9 insertions, 16 deletions
diff --git a/email.org b/email.org
index cc28b73..6aa1c11 100644
--- a/email.org
+++ b/email.org
@@ -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
diff --git a/init.org b/init.org
index 601942f..a5a96f8 100644
--- a/init.org
+++ b/init.org
@@ -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