pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use id instead

Browse source
This commit is contained in:
Benson Chu 2024-07-13 10:04:12 -05:00
parent ac3b5e36c4
commit a37bb0e646
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/org-project/org-block-edna.el
View file

@ -32,19 +32,15 @@
(not (string= "BLOCKED"
(plist-get change-plist :from)))
(y-or-n-p "Mark blocking task? "))
(let* ((headline (save-excursion
(beginning-of-line)
(looking-at (format org-heading-keyword-regexp-format
(regexp-opt org-todo-keywords-1)))
(match-string 2)))
(let* ((id-origin (org-id-get-create))
(id (org-id-get-with-outline-path-completion '((nil :maxlevel . 9))))
(edna-string (format "siblings(\"%s\") todo!(%s)"
headline
(edna-string (format "ids(\"%s\") todo!(%s)"
id-origin
(plist-get change-plist :from))))
(save-excursion
(org-id-goto id)
(let ((old-edna (or (org-entry-get (point) "TRIGGER") "")))
(unless (string-match-p headline old-edna)
(unless (string-match-p id-origin old-edna)
(org-entry-put (point) "TRIGGER"
(concat old-edna " " edna-string))))))))