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

ENH make order of metablock linker ops more sane

This commit is contained in:
Nathan Dwarshuis 2021-12-12 19:26:28 -05:00
parent 93dfd0c14a
commit bfb579adb3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1291,10 +1291,10 @@ ARG and INTERACTIVE are passed to `org-store-link'."
(org-ml-get-property :raw-value))) (org-ml-get-property :raw-value)))
(title (org-ml-get-property :raw-value node))) (title (org-ml-get-property :raw-value node)))
(format "%s | %s" ts title)))) (format "%s | %s" ts title))))
(-if-let (path (org-id-store-link)) (-if-let (hls (org-x-get-future-metablox))
(-if-let (desc (-some->> (org-ml-parse-this-headline) (-if-let (desc (-some->> (org-ml-parse-this-headline)
(org-ml-get-property :raw-value))) (org-ml-get-property :raw-value)))
(-if-let (hls (org-x-get-future-metablox)) (-if-let (path (org-id-store-link))
(let* ((lines (-map #'to-menu-line hls)) (let* ((lines (-map #'to-menu-line hls))
(col (-zip-pair lines hls)) (col (-zip-pair lines hls))
(sel (completing-read "Metablock: " col nil t)) (sel (completing-read "Metablock: " col nil t))
@ -1308,9 +1308,9 @@ ARG and INTERACTIVE are passed to `org-store-link'."
(org-ml-map-children* (-snoc it link) it) (org-ml-map-children* (-snoc it link) it)
para)) para))
(message "Successfully added '%s' to block '%s'" desc sel)) (message "Successfully added '%s' to block '%s'" desc sel))
(message "No metablocks available")) (message "Could not get link to store"))
(message "Could not get link description (not on headline?)")) (message "Could not get link description (not on headline?)"))
(message "Could not get link to store")))) (message "No metablocks available"))))
;; meeting agenda ;; meeting agenda