wilderjds
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix zoom meeting agenda filing

Browse Source
master
Jacopo De Simoi 4 years ago
parent a64aa34a3d
commit 42774aa7e4
1 changed files with 8 additions and 4 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 8
      global.org

8
global.org
Unescape View File

@ -676,8 +676,11 @@
(defun format-zoom-meeting () (defun format-zoom-meeting ()
(if (boundp 'zoom-link) (if (boundp 'zoom-link)
(if (boundp 'zoom-passcode)
(concat zoom-summary (concat zoom-summary
" [[" zoom-link "][link]] (" zoom-passcode "\n SCHEDULED: " zoom-scheduled-time) " [[" zoom-link "][link]] (" zoom-passcode "\n SCHEDULED: " zoom-scheduled-time)
(concat zoom-summary
" [[" zoom-link "][link]]\n SCHEDULED: " zoom-scheduled-time))
(concat zoom-summary "\n SCHEDULED: " zoom-scheduled-time))) (concat zoom-summary "\n SCHEDULED: " zoom-scheduled-time)))
(defun create-item-for-meeting (msg) (defun create-item-for-meeting (msg)
@ -690,9 +693,10 @@
(message "found zoom meeting") (message "found zoom meeting")
(right-char) (right-char)
(setq zoom-link (get-buffer-current-line)) (setq zoom-link (get-buffer-current-line))
(when (search-forward "Passcode:") (when (search-forward "Passcode:" nil t)
(setq zoom-passcode (get-buffer-current-line))) (setq zoom-passcode (get-buffer-current-line)))
(search-backward "Time:") (beginning-of-buffer)
(search-forward "Time:")
(search-forward "<") (search-forward "<")
(left-char) (left-char)
(setq zoom-scheduled-time (get-buffer-to-eol)) (setq zoom-scheduled-time (get-buffer-to-eol))

Write Preview
Loading…
Cancel
Save