From 19663174d81c7908ab522a845666b6ef79cb4f4c Mon Sep 17 00:00:00 2001 From: noa@gaiwan.org Date: Sun, 28 Jul 2024 09:55:06 +0000 Subject: Remove mail capture templates --- config.org | 49 ++++--------------------------------------------- 1 file changed, 4 insertions(+), 45 deletions(-) diff --git a/config.org b/config.org index 402b45c..fdabc7f 100644 --- a/config.org +++ b/config.org @@ -568,14 +568,6 @@ If we enable this, emphasis markers will be hidden for a more word processor fee #+end_src #+begin_src elisp - (defun noa/org-capture-get-mail-body () - "Returns the body of the current mail shown in rmail buffer as a string. For us during org-capture." - (with-current-buffer (org-capture-get :original-buffer) - (save-excursion - (goto-char (point-min)) - (search-forward "\n\n") - (buffer-substring-no-properties (point) (point-max))))) - (setopt org-startup-with-inline-images t) (setopt org-image-actual-width '(300)) (setopt org-auto-align-tags nil) @@ -594,43 +586,10 @@ If we enable this, emphasis markers will be hidden for a more word processor fee (setopt org-agenda-files '("~/data/notes/notes.org")) (setopt org-capture-bookmark nil) (setopt org-capture-templates - '(("j" "Journal" entry (file+olp+datetree "~/data/notes/notes.org") "* %?\n" :empty-lines 1) - - ("l" "Website" entry (file+olp+datetree "~/data/notes/notes.org") "* %a\n%?\n" :empty-lines 1) - - ("M" "Mail" entry (file+olp+datetree "~/data/notes/notes.org") "* %:fromname—%:subject :mail:%^g - :PROPERTIES: - :MAIL_TO: %:to - :MAIL_FROM: %:from - :MAIL_DATE: %:date - :MAIL_SUBJECT: %:subject - :MAIL_MESSAGE_ID: %:message-id - :END: - - %?%(noa/org-capture-get-mail-body)\n" :empty-lines 1 :immediate-finish t) - - ("m" "Compose mail" entry (file+olp+datetree "~/data/notes/notes.org") "* Email - :PROPERTIES: - :MAIL_TO: %? - :MAIL_SUBJECT: - :MAIL_FROM: noa - :END:" - :empty-lines 1 - :jump-to-captured t - :immediate-finish t - ) - - ("r" "Reply to this mail" entry (file+olp+datetree "~/data/notes/notes.org") "* TODO Reply to %:fromname—%:subject :mail: - :PROPERTIES: - :MAIL_TO: %:from - :MAIL_FROM: %:to - :MAIL_SUBJECT: %:subject - :MAIL_IN_REPLY_TO: %:message-id - :END: - - %?%(noa/org-capture-get-mail-body)\n" - :empty-lines 1 - :immediate-finish t))) + '(("j" "Journal" entry (file+olp+datetree "~/data/notes/notes.org") "* %?\n" :empty-lines 1) + + ("l" "Website" entry (file+olp+datetree "~/data/notes/notes.org") "* %a\n%?\n" :empty-lines 1) + )) #+end_src #+begin_src elisp -- cgit 1.4.1-2-gfad0