diff options
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-chats.el | 62 | ||||
| -rw-r--r-- | custom/jao-custom-notmuch.el | 8 | ||||
| -rw-r--r-- | custom/jao-custom-programming.el | 1 |
3 files changed, 7 insertions, 64 deletions
diff --git a/custom/jao-custom-chats.el b/custom/jao-custom-chats.el index c2105c6..60368d3 100644 --- a/custom/jao-custom-chats.el +++ b/custom/jao-custom-chats.el @@ -117,40 +117,7 @@ (enable-lui-track) (circe-lagmon-mode)) -;;;; telegram -(use-package telega - :ensure t - :custom - (telega-use-tracking-for '(unmuted) ;; '(or unmuted mention) - telega-rainbow-color-custom-for nil - telega-msg-rainbow-title nil - telega-sticker-set-download t - telega-symbol-checkmark "·" - telega-symbol-heavy-checkmark "×" - telega-symbol-verified "*") - :config - (define-key global-map (kbd "C-c C-t") telega-prefix-map) - (setq telega-chat-show-avatars nil - telega-chat-prompt-insexp '(telega-ins "> ") - telega-completing-read-function #'completing-read - telega-root-show-avatars nil - telega-emoji-use-images nil - telega-temp-dir "/tmp/telega" - telega-symbol-horizontal-bar - (propertize "-" 'face 'jao-themes-f00) - telega-symbol-vertical-bar - (propertize "| " 'face 'jao-themes-dimm) - telega-mode-line-string-format - '(:eval (telega-mode-line-unread-unmuted)) - telega-use-images (display-graphic-p) - telega-open-file-function #'jao--see - telega-open-message-as-file - (unless (display-graphic-p) '(photo video animation))) - (with-eval-after-load "tracking" - (jao-shorten-modes 'telega-chat-mode) - (jao-tracking-faces 'telega-tracking)) - (telega-mode-line-mode 1)) - +;;;; startup (defun jao-telega () (interactive) (jao-tracking-go-to-chats) @@ -158,33 +125,6 @@ (pop-to-buffer telega-root-buffer-name) (telega))) -;;;; ement -(use-package ement - :disabled t - :ensure t - :init (setq ement-save-sessions t - ement-sessions-file (locate-user-emacs-file "cache/ement.el") - ement-room-avatars nil - ement-notify-dbus-p nil - ement-room-left-margin-width 0 - ement-room-right-margin-width 11 - ement-room-timestamp-format "%H:%M" - ement-room-timestamp-header-format "--------") - - :custom ((ement-room-message-format-spec "(%S) %B%r%R %t")) - - :config - (defun jao-ement-track (event room session) - (when (ement-notify--room-unread-p event room session) - (when-let ((n (ement-room--buffer-name room)) - (b (get-buffer n))) - (tracking-add-buffer b)))) - - (add-hook 'ement-event-hook #'jao-ement-track) - (jao-shorten-modes 'ement-room-mode) - (jao-tracking-cleaner "^\\*Ement Room: \\(.+\\)\\*" "@\\1")) - -;;;; startup (defun jao-chats (&optional p) (interactive "P") (when (or p (y-or-n-p "Connect to telegram? ")) 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)))) |