diff options
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-mail.el | 38 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-org.el | 14 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-terminals.el | 22 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-vc.el | 12 |
4 files changed, 43 insertions, 43 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" diff --git a/.emacs.d/rul-lisp/packages/rul-org.el b/.emacs.d/rul-lisp/packages/rul-org.el index 12a88dc..02688fd 100644 --- a/.emacs.d/rul-lisp/packages/rul-org.el +++ b/.emacs.d/rul-lisp/packages/rul-org.el @@ -18,29 +18,29 @@ (use-package org-pomodoro :ensure t :config - (defun rul/disable-notifications () + (defun rul-disable-notifications () "Disable GNOME notifications." (shell-command "gsettings set org.gnome.desktop.notifications show-banners false")) - (defun rul/enable-notifications () + (defun rul-enable-notifications () "Enable GNOME notifications." (shell-command "gsettings set org.gnome.desktop.notifications show-banners true")) ;; Add hooks for Pomodoro start and finish - (add-hook 'org-pomodoro-started-hook #'rul/disable-notifications) - (add-hook 'org-pomodoro-finished-hook #'rul/enable-notifications) - (add-hook 'org-pomodoro-killed-hook #'rul/enable-notifications)) + (add-hook 'org-pomodoro-started-hook #'rul-disable-notifications) + (add-hook 'org-pomodoro-finished-hook #'rul-enable-notifications) + (add-hook 'org-pomodoro-killed-hook #'rul-enable-notifications)) ;; (add-hook 'org-mode-hook 'turn-off-auto-fill) ;; (add-hook 'auto-save-hook 'org-save-all-org-buffers) (add-hook 'org-mode-hook 'visual-line-mode) -(defun rul/org-reset-element-cache-after-revert () +(defun rul-org-reset-element-cache-after-revert () "Reset Org's element cache after reverting an Org buffer." (when (derived-mode-p 'org-mode) (org-element-cache-reset))) -(add-hook 'after-revert-hook #'rul/org-reset-element-cache-after-revert) +(add-hook 'after-revert-hook #'rul-org-reset-element-cache-after-revert) (use-package org-download :ensure t diff --git a/.emacs.d/rul-lisp/packages/rul-terminals.el b/.emacs.d/rul-lisp/packages/rul-terminals.el index f6a8913..71f81b4 100644 --- a/.emacs.d/rul-lisp/packages/rul-terminals.el +++ b/.emacs.d/rul-lisp/packages/rul-terminals.el @@ -15,14 +15,14 @@ (interactive) (vterm-send-string "\C-c"))) - (defun rul/vterm-copy-and-exit (beg end) + (defun rul-vterm-copy-and-exit (beg end) "Copy region and exit `vterm-copy-mode'." (interactive "r") (kill-ring-save beg end) (vterm-copy-mode -1)) - (define-key vterm-copy-mode-map (kbd "w") #'rul/vterm-copy-and-exit) - (define-key vterm-copy-mode-map (kbd "M-w") #'rul/vterm-copy-and-exit)) + (define-key vterm-copy-mode-map (kbd "w") #'rul-vterm-copy-and-exit) + (define-key vterm-copy-mode-map (kbd "M-w") #'rul-vterm-copy-and-exit)) (use-package multi-vterm :ensure t @@ -31,24 +31,24 @@ :config (setq vterm-kill-buffer-on-exit t) - (defvar-local rul/vterm-close-tab-on-kill nil + (defvar-local rul-vterm-close-tab-on-kill nil "When non-nil, close this buffer's tab when the vterm buffer is killed.") - (defun rul/vterm-maybe-close-tab () + (defun rul-vterm-maybe-close-tab () "Close the current tab if this vterm buffer was opened in its own tab." - (when rul/vterm-close-tab-on-kill + (when rul-vterm-close-tab-on-kill (tab-close))) - (defun rul/vterm-new-tab () + (defun rul-vterm-new-tab () "Create a new tab and open a new vterm." (interactive) (tab-new) (multi-vterm) - (setq-local rul/vterm-close-tab-on-kill t) - (add-hook 'kill-buffer-hook #'rul/vterm-maybe-close-tab nil t)) + (setq-local rul-vterm-close-tab-on-kill t) + (add-hook 'kill-buffer-hook #'rul-vterm-maybe-close-tab nil t)) ;; Inside vterm buffers, make C-c t spawn a new tab + vterm - (define-key vterm-mode-map (kbd "C-c t") #'rul/vterm-new-tab) - (define-key vterm-mode-map (kbd "C-S-t") #'rul/vterm-new-tab)) + (define-key vterm-mode-map (kbd "C-c t") #'rul-vterm-new-tab) + (define-key vterm-mode-map (kbd "C-S-t") #'rul-vterm-new-tab)) (provide 'rul-terminals) diff --git a/.emacs.d/rul-lisp/packages/rul-vc.el b/.emacs.d/rul-lisp/packages/rul-vc.el index 8551647..0f3bf27 100644 --- a/.emacs.d/rul-lisp/packages/rul-vc.el +++ b/.emacs.d/rul-lisp/packages/rul-vc.el @@ -7,23 +7,23 @@ :bind (("C-c g s" . magit-status) ("C-c g F" . magit-pull-from-upstream) ("C-c g b" . magit-blame)) - :hook (git-commit-setup . rul/git-commit-setup) + :hook (git-commit-setup . rul-git-commit-setup) :config - (defun rul/git-commit-setup () + (defun rul-git-commit-setup () "Enable useful text modes for Git commit buffers." (flyspell-mode 1) (auto-fill-mode 1)) - (defun rul/magit-status-save-window-config (&rest _) + (defun rul-magit-status-save-window-config (&rest _) "Save current window configuration before invoking `magit-status'." (window-configuration-to-register :magit-fullscreen)) - (defun rul/magit-status-single-window (&rest _) + (defun rul-magit-status-single-window (&rest _) "Display `magit-status' in a single window." (delete-other-windows)) - (advice-add 'magit-status :before #'rul/magit-status-save-window-config) - (advice-add 'magit-status :after #'rul/magit-status-single-window)) + (advice-add 'magit-status :before #'rul-magit-status-save-window-config) + (advice-add 'magit-status :after #'rul-magit-status-single-window)) (with-eval-after-load 'project (add-to-list 'project-switch-commands |