diff options
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/init.el | 6 | ||||
| -rw-r--r-- | .emacs.d/rul-emacs.org | 11 | ||||
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-mail.el | 6 |
3 files changed, 23 insertions, 0 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 43b9e06..6954df3 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -52,6 +52,12 @@ (pixel-scroll-precision-mode 1) ; Precision scrolling +(defun rul-auto-copy-region () + (when (use-region-p) + (kill-ring-save (region-beginning) (region-end)))) + +(add-hook 'activate-mark-hook #'rul-auto-copy-region) + ;; Source: https://protesilaos.com/codelog/2024-12-11-emacs-diff-save-some-buffers/ (add-to-list 'save-some-buffers-action-alist diff --git a/.emacs.d/rul-emacs.org b/.emacs.d/rul-emacs.org index 3fb06b3..dd944c4 100644 --- a/.emacs.d/rul-emacs.org +++ b/.emacs.d/rul-emacs.org @@ -190,6 +190,11 @@ General configurations related to text editing across all modes. (pixel-scroll-precision-mode 1) ; Precision scrolling +(defun rul-auto-copy-region () + (when (use-region-p) + (kill-ring-save (region-beginning) (region-end)))) + +(add-hook 'activate-mark-hook #'rul-auto-copy-region) ;; Source: https://protesilaos.com/codelog/2024-12-11-emacs-diff-save-some-buffers/ (add-to-list 'save-some-buffers-action-alist @@ -703,6 +708,12 @@ Emacs can act as Mail User Agent. My preferred package for this is (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) + (define-key notmuch-search-mode-map "G" 'notmuch-refresh-this-buffer) + (define-key notmuch-show-mode-map (kbd "M-g") 'notmuch-poll-and-refresh-this-buffer) + (define-key notmuch-search-mode-map (kbd "M-g") 'notmuch-poll-and-refresh-this-buffer) + (define-key notmuch-show-mode-map "R" 'notmuch-show-reply) (define-key notmuch-search-mode-map "R" 'notmuch-search-reply-to-thread) diff --git a/.emacs.d/rul-lisp/packages/rul-mail.el b/.emacs.d/rul-lisp/packages/rul-mail.el index 6206118..4af5cc7 100644 --- a/.emacs.d/rul-lisp/packages/rul-mail.el +++ b/.emacs.d/rul-lisp/packages/rul-mail.el @@ -29,6 +29,12 @@ (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) + (define-key notmuch-search-mode-map "G" 'notmuch-refresh-this-buffer) + (define-key notmuch-show-mode-map (kbd "M-g") 'notmuch-poll-and-refresh-this-buffer) + (define-key notmuch-search-mode-map (kbd "M-g") 'notmuch-poll-and-refresh-this-buffer) + (define-key notmuch-show-mode-map "R" 'notmuch-show-reply) (define-key notmuch-search-mode-map "R" 'notmuch-search-reply-to-thread) |