diff options
author | jao <jao@gnu.org> | 2022-11-21 18:38:47 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-11-21 18:38:47 +0000 |
commit | 8eae366426f37f158711b80433ae2135510deb62 (patch) | |
tree | 42f66ca3a20151ae78b0b551a101730313123904 | |
parent | 318dc997472ee0b68c871cf44b693a3c299899ee (diff) | |
download | elibs-8eae366426f37f158711b80433ae2135510deb62.tar.gz elibs-8eae366426f37f158711b80433ae2135510deb62.tar.bz2 |
nits
-rw-r--r-- | custom/jao-custom-exwm.el | 4 | ||||
-rw-r--r-- | custom/jao-custom-notmuch.el | 2 | ||||
-rw-r--r-- | lib/doc/jao-pdf.el | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/custom/jao-custom-exwm.el b/custom/jao-custom-exwm.el index 2f2bb7f..f0e21da 100644 --- a/custom/jao-custom-exwm.el +++ b/custom/jao-custom-exwm.el @@ -5,10 +5,11 @@ ;;; Load and basic config (defvar jao-exwm--use-afio t) -(jao-load-path "exwm") +;; (jao-load-path "exwm") (use-package exwm :ensure t + :demand t :init (setq exwm-debug nil exwm-workspace-number 1 exwm-workspace-show-all-buffers t @@ -20,7 +21,6 @@ x-no-window-manager t)) (use-package exwm-edit :ensure t) -(require 'exwm) ;;; Frame(s) as workspaces (defun jao-exwm--new-frame-p () diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 1135ec7..1ee851b 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -227,7 +227,7 @@ (setq notmuch-address-use-company t notmuch-address-command 'as-is notmuch-always-prompt-for-sender t - notmuch-draft-folder "local" + notmuch-draft-folder "drafts" notmuch-draft-quoted-tags '("part") notmuch-fcc-dirs '(("\\(support\\|education\\)@bigml.com" . nil) diff --git a/lib/doc/jao-pdf.el b/lib/doc/jao-pdf.el index 78d5196..1ee74bc 100644 --- a/lib/doc/jao-pdf.el +++ b/lib/doc/jao-pdf.el @@ -60,7 +60,7 @@ (outline jao-pdf--outline) (cur-page 0) (cur-title (jao-pdf-title (or file-name buffer-file-name "title")))) - (while (and (car outline) (< cur-page page)) + (while (and (car outline) page (< cur-page page)) (setq cur-page (cdr (assoc 'page (car outline)))) (when (<= cur-page page) (setq cur-title (cdr (assoc 'title (car outline))))) |