aboutsummaryrefslogtreecommitdiff
path: root/.emacs.d/rul-lisp/packages/rul-mail.el
diff options
context:
space:
mode:
authorRaul Benencia <id@rbenencia.name>2026-08-06 16:07:31 -0700
committerRaul Benencia <id@rbenencia.name>2026-08-06 16:07:31 -0700
commite9075a27ed3dad6416ffca31f733e0f2de46e00e (patch)
treea1297d360cc581ba402329c66f409f5904e751cf /.emacs.d/rul-lisp/packages/rul-mail.el
parent4aa098ce3a77582b3fd07b857cc9b0dc01eacd21 (diff)
emacs: mv from rul/ to rul- function names
Diffstat (limited to '.emacs.d/rul-lisp/packages/rul-mail.el')
-rw-r--r--.emacs.d/rul-lisp/packages/rul-mail.el38
1 files changed, 19 insertions, 19 deletions
diff --git a/.emacs.d/rul-lisp/packages/rul-mail.el b/.emacs.d/rul-lisp/packages/rul-mail.el
index 12846a0..9a029c4 100644
--- a/.emacs.d/rul-lisp/packages/rul-mail.el
+++ b/.emacs.d/rul-lisp/packages/rul-mail.el
@@ -26,22 +26,22 @@
(setq notmuch-draft-folder "current/Drafts")
- (defvar-local rul/notmuch-show-refreshing-for-olivetti nil)
+ (defvar-local rul-notmuch-show-refreshing-for-olivetti nil)
- (defun rul/notmuch-show-enable-olivetti ()
+ (defun rul-notmuch-show-enable-olivetti ()
"Enable Olivetti before notmuch renders message HTML."
(setq-local olivetti-body-width 100
shr-width nil
shr-max-width olivetti-body-width)
(olivetti-mode 1))
- (defun rul/notmuch-show-refresh-after-olivetti ()
+ (defun rul-notmuch-show-refresh-after-olivetti ()
"Refresh an already-rendered notmuch buffer after Olivetti changes width."
(when (and (derived-mode-p 'notmuch-show-mode)
olivetti-mode
notmuch-show-thread-id
- (not rul/notmuch-show-refreshing-for-olivetti))
- (setq rul/notmuch-show-refreshing-for-olivetti t)
+ (not rul-notmuch-show-refreshing-for-olivetti))
+ (setq rul-notmuch-show-refreshing-for-olivetti t)
(run-at-time
0 nil
(lambda (buffer)
@@ -52,36 +52,36 @@
olivetti-mode
notmuch-show-thread-id)
(notmuch-refresh-this-buffer))
- (setq rul/notmuch-show-refreshing-for-olivetti nil)))))
+ (setq rul-notmuch-show-refreshing-for-olivetti nil)))))
(current-buffer))))
- (add-hook 'notmuch-show-mode-hook #'rul/notmuch-show-enable-olivetti)
+ (add-hook 'notmuch-show-mode-hook #'rul-notmuch-show-enable-olivetti)
(with-eval-after-load 'olivetti
(add-hook 'olivetti-mode-on-hook
- #'rul/notmuch-show-refresh-after-olivetti
+ #'rul-notmuch-show-refresh-after-olivetti
t))
- (defun rul/notmuch-inline-override-images (types)
+ (defun rul-notmuch-inline-override-images (types)
"Treat standalone image MIME parts as attachments in notmuch."
(if (member "image/.*" types)
types
(append types '("image/.*"))))
- (unless (advice-member-p #'rul/notmuch-inline-override-images
+ (unless (advice-member-p #'rul-notmuch-inline-override-images
'notmuch--inline-override-types)
(advice-add 'notmuch--inline-override-types :filter-return
- #'rul/notmuch-inline-override-images))
+ #'rul-notmuch-inline-override-images))
;; Keymaps
- (defun rul/capture-mail()
+ (defun rul-capture-mail()
"Capture mail to org mode."
(interactive)
(org-store-link nil)
(org-capture nil "m")
)
- (bind-key "c" 'rul/capture-mail notmuch-show-mode-map)
+ (bind-key "c" 'rul-capture-mail notmuch-show-mode-map)
;; Keep uppercase refresh cheap after tag operations; use M-g for a full poll.
(define-key notmuch-show-mode-map "G" 'notmuch-refresh-this-buffer)
@@ -111,22 +111,22 @@
;; both `a` and `A` to refresh the buffer so the thread drops out of view.
(setq notmuch-archive-tags (list "-inbox" "+archive"))
- (defun rul/notmuch-search-archive (&optional unarchive beg end)
+ (defun rul-notmuch-search-archive (&optional unarchive beg end)
"Archive threads and refresh so they drop out of the inbox view."
(interactive (cons current-prefix-arg (notmuch-search-interactive-region)))
(notmuch-search-archive-thread unarchive beg end)
(notmuch-refresh-this-buffer))
- (defun rul/notmuch-show-archive ()
+ (defun rul-notmuch-show-archive ()
"Archive the current message with +archive -inbox -unread and refresh."
(interactive)
(notmuch-show-tag (list "+archive" "-inbox" "-unread"))
(notmuch-refresh-this-buffer))
- (define-key notmuch-search-mode-map "a" 'rul/notmuch-search-archive)
- (define-key notmuch-search-mode-map "A" 'rul/notmuch-search-archive)
- (define-key notmuch-show-mode-map "a" 'rul/notmuch-show-archive)
- (define-key notmuch-show-mode-map "A" 'rul/notmuch-show-archive)
+ (define-key notmuch-search-mode-map "a" 'rul-notmuch-search-archive)
+ (define-key notmuch-search-mode-map "A" 'rul-notmuch-search-archive)
+ (define-key notmuch-show-mode-map "a" 'rul-notmuch-show-archive)
+ (define-key notmuch-show-mode-map "A" 'rul-notmuch-show-archive)
;; Mark as read
(define-key notmuch-search-mode-map "r"
nihil fit ex nihilo