From bfb579adb34b267714e85f3cf827ab8728f63338 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 12 Dec 2021 19:26:28 -0500 Subject: [PATCH] ENH make order of metablock linker ops more sane --- local/lib/org-x/org-x.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el index 35b5e96..99dea59 100644 --- a/local/lib/org-x/org-x.el +++ b/local/lib/org-x/org-x.el @@ -1291,10 +1291,10 @@ ARG and INTERACTIVE are passed to `org-store-link'." (org-ml-get-property :raw-value))) (title (org-ml-get-property :raw-value node))) (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) (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)) (col (-zip-pair lines hls)) (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) para)) (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 to store")))) + (message "No metablocks available")))) ;; meeting agenda