From e9075a27ed3dad6416ffca31f733e0f2de46e00e Mon Sep 17 00:00:00 2001 From: Raul Benencia Date: Thu, 6 Aug 2026 16:07:31 -0700 Subject: emacs: mv from rul/ to rul- function names --- .emacs.d/rul-lisp/packages/rul-mail.el | 38 +++++++++++++++++----------------- 1 file changed, 19 insertions(+), 19 deletions(-) (limited to '.emacs.d/rul-lisp/packages/rul-mail.el') 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" -- cgit v1.2.3