From c572451c14660a24197d5afd0c917bde78656a6a Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Fri, 20 May 2022 19:09:39 +0200 Subject: [PATCH] Do not output headlines without backlinks in dynamic blocks --- site-lisp/db-org.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index b65b540..d4221cd 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -1046,16 +1046,16 @@ PARAMS may contain the following values: ;; Formatting. (insert (format "| Item | Backlinks | Priority |\n|---|")) (dolist (headline headlines) - (insert (format "\n| %s |\n|---|" (db/org--format-link-with-headline (car headline)))) - (let ((backlink-lines (-> (mapcar #'(lambda (backlink-id) - (list (db/org--format-link-with-headline backlink-id) - (org-entry-get (org-id-find backlink-id 'marker) - "PRIORITY"))) - (cdr headline)) - (cl-sort #'string< :key #'cl-second)))) - (dolist (line backlink-lines) - (insert (apply #'format "\n| | %s | %s |" line))) - (when backlink-lines ; only print closing hline when there's something to close + (when (cdr headline) ; do not print backlinks if there are none + (insert (format "\n| %s |\n|---|" (db/org--format-link-with-headline (car headline)))) + (let ((backlink-lines (-> (mapcar #'(lambda (backlink-id) + (list (db/org--format-link-with-headline backlink-id) + (org-entry-get (org-id-find backlink-id 'marker) + "PRIORITY"))) + (cdr headline)) + (cl-sort #'string< :key #'cl-second)))) + (dolist (line backlink-lines) + (insert (apply #'format "\n| | %s | %s |" line))) (insert "\n|---|")))) (org-table-align)))