diff options
| author | jao <jao@gnu.org> | 2025-12-15 10:53:41 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-12-15 10:53:41 +0000 |
| commit | 956b02dfd1b799772b938a54d29c436216f2e559 (patch) | |
| tree | 561f746145bd6bba7f7b167e5f1088a487156f07 | |
| parent | 400b336121df5c8f4349e9a66e1da69a45dd6bb9 (diff) | |
| download | elibs-956b02dfd1b799772b938a54d29c436216f2e559.tar.gz elibs-956b02dfd1b799772b938a54d29c436216f2e559.tar.bz2 | |
nitsmain
| -rw-r--r-- | custom/jao-custom-notmuch.el | 8 | ||||
| -rw-r--r-- | custom/jao-custom-programming.el | 1 | ||||
| -rw-r--r-- | init.el | 6 |
3 files changed, 9 insertions, 6 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 9fb9231..ca2664c 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -27,6 +27,7 @@ (format "%s%s" (plist-get c :name) (plist-get c :count))) (defvar jao-notmuch-mac-xbar t) +(defvar jao-notmuch-mac-mail-badge nil) (defun jao-notmuch-xbar () (let ((cnts (notmuch-hello-query-counts jao-notmuch-xbar-queries))) @@ -37,7 +38,8 @@ (interactive) (let* ((cnts (notmuch-hello-query-counts jao-notmuch-minibuffer-queries)) (mc (jao-d-l - (unless jao-notmuch-mac-xbar (jao-mac-app-badge "Mail")) 0)) + (when jao-notmuch-mac-mail-badge (jao-mac-app-badge "Mail")) + 0)) (cnts (if (> (or mc 0) 0) (cons `(:name "" :count ,mc) cnts) cnts))) (setq jao-notmuch-minibuffer-string (mapconcat (lambda (c) @@ -133,6 +135,8 @@ notmuch-saved-searches nil jao-notmuch-widened-searches nil) + (when other (jao-notmuch--def-searches (car other) (cdr other))) + (jao-notmuch--def-searches "inbox" `(,(jao-notmuch--q "inbox" "i") ,(jao-notmuch--q "write" "w") @@ -140,8 +144,6 @@ ,(jao-notmuch--q "trove" "t") ,(jao-notmuch--q "local" "x"))) - (when other (jao-notmuch--def-searches (car other) (cdr other))) - (jao-notmuch--def-searches "news" (mapcar 'jao-notmuch--q-feed '(("fn" "news") diff --git a/custom/jao-custom-programming.el b/custom/jao-custom-programming.el index e879222..d8f9308 100644 --- a/custom/jao-custom-programming.el +++ b/custom/jao-custom-programming.el @@ -58,6 +58,7 @@ (flymake-mode 1) (eglot-inlay-hints-mode -1) (setq-local eldoc-display-functions '(eldoc-display-in-buffer))) + (setq eglot-events-buffer-config '(:size 0 :format full)) :config :hook (eglot-managed-mode . jao-eglot-managed-mode-hook) :bind (:map eglot-mode-map (("C-h ." . jao-eldoc-toggle)))) @@ -1152,7 +1152,7 @@ (t (format "%s" (or (jao-afio-frame-name) "")))) 'face 'font-lock-warning-face)) - (unless jao-afio-use-frames + (unless nil ;; jao-afio-use-frames (jao-minibuffer-add-variable '(jao-current--frame-id) 100)) (setq frame-title-format '("emacs - " (:eval (jao-afio-frame-name)))) @@ -1161,8 +1161,8 @@ (global-set-key (kbd "C-c t") #'jao-afio-goto-chats)) (jao-when-darwin - (jao-afio-add-frame-parameters "docs" (width . 195) (height . 70)) - (jao-afio-add-frame-parameters nil (width . 197) (height . 82)) + (jao-afio-add-frame-parameters "docs" (width . 195) (height . 75)) + (jao-afio-add-frame-parameters nil (width . 163) (height . 70)) (add-to-list 'default-frame-alist '(width . 80))) :bind (("C-c f" . 'jao-afio-goto-main) |
