ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD agenda functions to add meeting links from agenda

This commit is contained in:
Nathan Dwarshuis 2021-09-26 22:57:25 -04:00
parent 4348578be8
commit e062b35777
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
local/lib/org-x/org-x.el
View File

@ -1175,11 +1175,12 @@ function will simply return the point of the next headline."
(equal (org-ml-get-property :drawer-name node) name))) (equal (org-ml-get-property :drawer-name node) name)))
;; TODO try to make agenda come before action ;; TODO try to make agenda come before action
(defun org-x--headline-meeting-add-link (dname checkbox) (defun org-x--headline-meeting-add-link (dname checkbox name)
"Add a linked headline to drawer with DNAME under the current headline. "Add a linked headline to drawer with DNAME under the current headline.
Only ID links are considered. Headline must be a meeting (tagged Only ID links are considered. Headline must be a meeting (tagged
with proper todo keywords). If CHECKBOX is non-nil, add item with with proper todo keywords). If CHECKBOX is non-nil, add item with
an empty checkbox." an empty checkbox. NAME is used as an extra identifier in the
minibuffer."
(if (not (org-x-headline-is-meeting-p)) (if (not (org-x-headline-is-meeting-p))
(message "Not in a meeting headline") (message "Not in a meeting headline")
(-if-let (id-alist (->> org-stored-links (-if-let (id-alist (->> org-stored-links
@ -1188,7 +1189,8 @@ an empty checkbox."
(--map (cons (format "%s: %s" (cdr it) (car it)) (--map (cons (format "%s: %s" (cdr it) (car it))
(list (car it) (cdr it)))))) (list (car it) (cdr it))))))
;; ASSUME this will never return nil due to required read ;; ASSUME this will never return nil due to required read
(-let* (((id desc) (-> (completing-read "Link: " id-alist nil t) (-let* (((id desc) (-> (format "%s Link: " name)
(completing-read id-alist nil t)
(alist-get id-alist nil nil #'equal))) (alist-get id-alist nil nil #'equal)))
(item* (->> (org-ml-build-link id desc) (item* (->> (org-ml-build-link id desc)
(org-ml-build-paragraph) (org-ml-build-paragraph)
@ -1217,12 +1219,12 @@ an empty checkbox."
(defun org-x-headline-meeting-add-agenda-item () (defun org-x-headline-meeting-add-agenda-item ()
"Add a link to headline in agenda items for current headline." "Add a link to headline in agenda items for current headline."
(interactive) (interactive)
(org-x--headline-meeting-add-link org-x-drwr-agenda t)) (org-x--headline-meeting-add-link org-x-drwr-agenda t "Agenda Item"))
(defun org-x-headline-meeting-add-action-item () (defun org-x-headline-meeting-add-action-item ()
"Add a link to headline in action items for current headline." "Add a link to headline in action items for current headline."
(interactive) (interactive)
(org-x--headline-meeting-add-link org-x-drwr-agenda nil)) (org-x--headline-meeting-add-link org-x-drwr-action nil "Action Item"))
(defun org-x-id-store-link (arg &optional interactive) (defun org-x-id-store-link (arg &optional interactive)
"Make and ID for the current headline and store it in the org link ring. "Make and ID for the current headline and store it in the org link ring.
@ -1651,6 +1653,20 @@ If BACK is t seek backward, else forward. Ignore blank lines."
(mapcar (lambda (tag) (concat "-" tag)) peripheral-tags)) (mapcar (lambda (tag) (concat "-" tag)) peripheral-tags))
(org-agenda-filter-apply org-agenda-tag-filter 'tag))) (org-agenda-filter-apply org-agenda-tag-filter 'tag)))
;; agenda meeting management
(defun org-x-agenda-meeting-add-agenda-item ()
"Add item to current agenda headline."
(interactive)
(org-x-agenda-cmd-wrapper nil
(call-interactively #'org-x-headline-meeting-add-agenda-item)))
(defun org-x-agenda-meeting-add-action-item ()
"Add item to current action headline."
(interactive)
(org-x-agenda-cmd-wrapper nil
(call-interactively #'org-x-headline-meeting-add-action-item)))
;; agenda property filtering ;; agenda property filtering
;; The agenda buffer doesn't do property filtering out of the box. In order to ;; The agenda buffer doesn't do property filtering out of the box. In order to