Add action for capturing zoom meeting

global.org

@@ -652,6 +652,53 @@
            mm-text-html-renderer 'gnus-w3m
            mu4e-completing-read-function 'completing-read)
 
+     (let (p1 p2 myLine)
+      (setq p1 (line-beginning-position) )
+       (setq p2 (line-end-position) )
+       (setq myLine (buffer-substring-no-properties p1 p2)))
+
+     (defun get-buffer-current-line ()
+      (let ((p (line-beginning-position))
+            (q (line-end-position)))
+        (buffer-substring-no-properties p q)))
+
+     (defun get-buffer-to-eol ()
+      (let ((p (point))
+            (q (line-end-position)))
+        (buffer-substring-no-properties p q)))
+
+     (defun format-zoom-meeting ()
+       (concat zoom-summary
+               " [[" zoom-link "][link]] (" zoom-passcode "\n :SCHEDULED: " zoom-scheduled-time))
+
+
+     (defun create-item-for-meeting (msg)
+       "Search for messages sent by the sender of the message at point."
+       (save-excursion
+         (beginning-of-buffer)
+         (when (search-forward "Join Zoom Meeting")
+           (message "found zoom meeting")
+           (right-char)
+           (setq zoom-link (get-buffer-current-line))
+           (when (search-forward "Passcode:")
+             (setq zoom-passcode (get-buffer-current-line)))
+           (search-backward "Time:")
+           (search-forward "<")
+           (left-char)
+           (setq zoom-scheduled-time (get-buffer-to-eol))
+           (search-backward "Summary:")
+           (right-word)
+           (right-word)
+           (left-word)
+           (setq zoom-summary (get-buffer-to-eol))
+           (org-capture nil "z"))))
+
+
+
+     ;; define 'z' as the shortcut
+     (add-to-list 'mu4e-view-actions
+        '("zCreate agenda item for meeting" . create-item-for-meeting) t)
+
      (advice-add 'mu4e~header-line-format :around
                  (lambda (orig-fun &rest args)
                    (let ((mu4e-use-fancy-chars t)
@@ -1329,7 +1376,9 @@
                "* DONE mailto:%?")
               ("R" "Reply" entry (file+headline "~/org/orgzly/scheduled.org" "E-Mails")
                "* TODO Reply to %:from \nSCHEDULED: %(org-insert-time-stamp
-      (org-read-date nil t \"+0d\"))\n%a\n%?\n")))
+            (org-read-date nil t \"+0d\"))\n%a\n%?\n")
+              ("z" "Zoom meeting" entry (file+headline "~/org/orgzly/scheduled.org" "Tasks")
+               "* TODO Attend %(format-zoom-meeting)\n%a" :immediate-finish t)))
      #+end_src
 *** LaTeX export
 #+begin_src emacs-lisp