emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
blob 6e7f9c52ea66845e0ead7afe7239619b718e531a 5409 bytes (raw)

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
 
#+TITLE:     org-mac-mail-link.el -- Create and handle links to the selected Mail.app message
#+OPTIONS:   ^:{} author:Tim Visher
#+STARTUP: odd

# This file is released by its authors and contributors under the GNU
# Free Documentation license v1.3 or later, code examples are released
# under the GNU General Public License v3 or later.

[[file:index.org][{Back to Worg's contibutions index}]]

* Overview

  This code will allow you to capture a TODO item based on the
  currently selected Mail.app message using =org-capture=.

* Installation

  You should simply copy the source code from this document into your
  init file and edit it as you see fit.

* Usage

  Activate =org-capture= however you see fit (=M-x org-capture= works
  just fine) and then whack the keychord you have set up to activate
  the capture template.

* Code

  #+begin_src elisp
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Capture template for the currently selected Mail.app message
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  (defun org-mac-mail-link-get-selected-message-subject
      ()
    (with-temp-buffer
      (call-process
       "osascript" nil t nil
       "-e" "tell application \"Mail\" to get subject of item 1 of (selection as list)")
      (buffer-substring-no-properties (point-min) (- (point-max) 1))))

  (defun org-mac-mail-link-get-selected-message-id
      ()
    (with-temp-buffer
      (call-process
       "osascript" nil t nil
       "-e" "tell application \"Mail\" to get message id of item 1 of (selection as list)")
      ;; This additional encoding specifically of =/= is because Mail.app
      ;; claims to be unable to find a message if it's ID contains unencoded
      ;; slashes.
      (browse-url-url-encode-chars
       (buffer-substring-no-properties (point-min) (- (point-max) 1))
       "[/]")))

  (defun org-mac-mail-link-get-link-string
      ()
    (let ((subject (org-mac-mail-link-get-selected-message-subject))
          (message-id (org-mac-mail-link-get-selected-message-id)))
      (org-link-make-string (format "message:%s" message-id)
                            subject)))

  (defun org-mac-mail-link-get-body-quote-template-element
      ()
    (let ((body (setq body (with-temp-buffer
                             (call-process
                              "osascript" nil t nil
                              "-e" "tell application \"Mail\" to get content of item 1 of (selection as list)")
                             (buffer-substring-no-properties (point-min) (- (point-max) 1))))))
      (format "

    ,#+begin_quote
  %s
    ,#+end_quote"
              (string-join
               ;; Remove duplicate empty lines
               (seq-reduce
                (lambda (acc next)
                  (if (string= next (or (car (last acc)) ""))
                      acc
                    (append acc (list next))))
                ;; Indent each line by two spaces for inclusion in the quote
                (mapcar (lambda (string)
                          (let ((string (string-trim string)))
                            (if (string= "" string)
                                string
                              (format "  %s" string))))
                        (split-string body "\n"))
                '())
               "\n"))))

  (require 'org-capture)

  ;;; You may also wish to use the Customize interface for this variable
  ;;; which is quite nice.
  (setq org-capture-templates
        ;; These 2-item entries are only necessary if you want to nest the
        ;; capture template under a keychord.
        '(("t" "TODO")
          ("tc" "TODO Current")
          ("tcm" "TODO Current Mail" entry
           ;; If you maintain your TODO list in a single file this will
           ;; place the resulting org-capture template expansion under the
           ;; 'Inbox' heading. You may want to modify this.
           ;;
           ;; The resulting heading looks something like
           ;;
           ;; ** TODO [[message:<encoded messageID>][subject]]
           ;;
           ;;    [2021-05-02 Sun 16:22]
           ;;
           ;;    #+begin_quote
           ;;    Unwrapped
           ;;
           ;;    Body
           ;;
           ;;    Text
           ;;    #+end_quote
           (file+headline "~/your-org-todo.org" "Inbox")
           "* TODO %(org-mac-mail-link-get-link-string)

    %U%(org-mac-mail-link-get-body-quote-template-element)" :prepend t :immediate-finish t)))

  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Use =C-c C= as your org-capture keybinding
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  (eval-after-load 'org
    '(org-defkey org-mode-map (kbd "C-c C") #'org-capture))

  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Teach org about opening message links
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  (defun org-mac-mail-link-open-link
      (mid _)
    (start-process "open-link" nil "open" (format "message://%%3C%s%%3E"
                                                  mid)))

  (defun org-mac-mail-link-add-message-links
      ()
    (org-link-set-parameters
     "message" :follow #'org-mac-mail-link-open-link))

  (eval-after-load 'org
    '(org-mac-mail-link-add-message-links))

  #+end_src

debug log:

solving 6e7f9c52 ...
found 6e7f9c52 in https://list.orgmode.org/orgmode/CAHa53uyA-CAt1SEw56KfUOVSvsA9T_LqjaG=7j+2suRQsObkew@mail.gmail.com/

applying [1/1] https://list.orgmode.org/orgmode/CAHa53uyA-CAt1SEw56KfUOVSvsA9T_LqjaG=7j+2suRQsObkew@mail.gmail.com/
diff --git a/org-contrib/org-mac-mail-link.org b/org-contrib/org-mac-mail-link.org
new file mode 100644
index 00000000..6e7f9c52

Checking patch org-contrib/org-mac-mail-link.org...
Applied patch org-contrib/org-mac-mail-link.org cleanly.

index at:
100644 6e7f9c52ea66845e0ead7afe7239619b718e531a	org-contrib/org-mac-mail-link.org

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).