dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Do not output headlines without backlinks in dynamic blocks

This commit is contained in:
dbo 2022-05-20 19:09:39 +02:00
parent 99dbd00e71
commit c572451c14
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
site-lisp/db-org.el
View File

@ -1046,16 +1046,16 @@ PARAMS may contain the following values:
;; Formatting. ;; Formatting.
(insert (format "| Item | Backlinks | Priority |\n|---|")) (insert (format "| Item | Backlinks | Priority |\n|---|"))
(dolist (headline headlines) (dolist (headline headlines)
(insert (format "\n| %s |\n|---|" (db/org--format-link-with-headline (car headline)))) (when (cdr headline) ; do not print backlinks if there are none
(let ((backlink-lines (-> (mapcar #'(lambda (backlink-id) (insert (format "\n| %s |\n|---|" (db/org--format-link-with-headline (car headline))))
(list (db/org--format-link-with-headline backlink-id) (let ((backlink-lines (-> (mapcar #'(lambda (backlink-id)
(org-entry-get (org-id-find backlink-id 'marker) (list (db/org--format-link-with-headline backlink-id)
"PRIORITY"))) (org-entry-get (org-id-find backlink-id 'marker)
(cdr headline)) "PRIORITY")))
(cl-sort #'string< :key #'cl-second)))) (cdr headline))
(dolist (line backlink-lines) (cl-sort #'string< :key #'cl-second))))
(insert (apply #'format "\n| | %s | %s |" line))) (dolist (line backlink-lines)
(when backlink-lines ; only print closing hline when there's something to close (insert (apply #'format "\n| | %s | %s |" line)))
(insert "\n|---|")))) (insert "\n|---|"))))
(org-table-align))) (org-table-align)))