diff options
Diffstat (limited to 'gnus.org')
| -rw-r--r-- | gnus.org | 66 |
1 files changed, 31 insertions, 35 deletions
@@ -377,40 +377,6 @@ (eval-after-load "message" '(setq message-draft-headers (remove 'Date message-draft-headers))) #+END_SRC -* Notmuch integration -*** notmuch tags - #+begin_src emacs-lisp - (require 'jao-notmuch-gnus) - - (defun jao-gnus-toggle-todo () - (interactive) - (jao-notmuch-gnus-toggle-tags '("todo"))) - - (define-key gnus-summary-mode-map (kbd "C-c T") #'jao-notmuch-gnus-tag-message) - (define-key gnus-summary-mode-map (kbd "C-c t") #'jao-notmuch-gnus-show-tags) - (define-key gnus-summary-mode-map (kbd "C-c C-t") #'jao-gnus-toggle-todo) - - #+end_src -*** notmuch -> gnus / consult-notmuch - #+begin_src emacs-lisp - (with-eval-after-load "notmuch-show" - (define-key gnus-group-mode-map "z" #'jao-gnus-consult-notmuch) - (define-key gnus-group-mode-map "Z" #'notmuch) - (define-key notmuch-show-mode-map - (kbd "C-c C-c") - #'jao-notmuch-gnus-goto-message)) - - (defun jao-gnus-notmuch-export (query) - (notmuch-tree query nil nil "* consult-notmuch results *")) - - (setq consult-notmuch-export-function #'jao-gnus-notmuch-export) - - (with-eval-after-load "notmuch-tree" - (define-key notmuch-tree-mode-map - (kbd "C-<return>") - #'jao-notmuch-gnus-goto-message)) - - #+end_src * Groups buffer #+begin_src emacs-lisp ;; (setq gnus-group-line-format " %m%S%p%P:%~(pad-right 35)c %3y %B\n") @@ -726,7 +692,37 @@ (jao-browse-add-url-to-mpc url)))))) #+end_src * Add-ons -*** icalendar/org +*** notmuch integration + #+begin_src emacs-lisp + (require 'jao-notmuch-gnus) + + (defun jao-gnus-toggle-todo () + (interactive) + (jao-notmuch-gnus-toggle-tags '("todo"))) + + (define-key gnus-summary-mode-map (kbd "C-c T") #'jao-notmuch-gnus-tag-message) + (define-key gnus-summary-mode-map (kbd "C-c t") #'jao-notmuch-gnus-show-tags) + (define-key gnus-summary-mode-map (kbd "C-c C-t") #'jao-gnus-toggle-todo) + + (with-eval-after-load "notmuch-show" + (define-key gnus-group-mode-map "z" #'jao-gnus-consult-notmuch) + (define-key gnus-group-mode-map "Z" #'notmuch) + (define-key notmuch-show-mode-map + (kbd "C-c C-c") + #'jao-notmuch-gnus-goto-message)) + + (defun jao-gnus-notmuch-export (query) + (notmuch-tree query nil nil "* consult-notmuch results *")) + + (setq consult-notmuch-export-function #'jao-gnus-notmuch-export) + + (with-eval-after-load "notmuch-tree" + (define-key notmuch-tree-mode-map + (kbd "C-<return>") + #'jao-notmuch-gnus-goto-message)) + + #+end_src +*** gnus-icalendar #+begin_src emacs-lisp (require 'ol-gnus) (use-package gnus-icalendar |