awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-02 14:53:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Teach dblocks to optionally use first capture group as link description

Browse Source
This commit is contained in:
Chris Barrett
2022-08-25 20:24:12 +12:00
parent aa7360176f
commit c64ad61c6a
1 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/org-roam-dblocks.el
View File

@@ -71,6 +71,13 @@
;; - "foo bar", (rx "foo bar") ;; - "foo bar", (rx "foo bar")
;; - "[?]$", (rx "?" eol) ;; - "[?]$", (rx "?" eol)
;; ;;
;; If the match contains a capture group, the text in that group is used for
;; the link description. E.g., to extract the text after "Prefix - ", you'd
;; write one of:
;; - :match "^Prefix - \\(.+\\)"
;; - :match (rx bol "Prefix - " (group (+ nonl)))
;;
;; - :tags, which matches the note's headline and file tags. ;; - :tags, which matches the note's headline and file tags.
;; ;;
;; A tags filter must be a single tag (double-quotes optional) or a list of ;; A tags filter must be a single tag (double-quotes optional) or a list of
@@ -128,6 +135,7 @@
(require 'dash) (require 'dash)
(require 'org-tags-filter) (require 'org-tags-filter)
(require 'plisty) (require 'plisty)
(require 's)
(cl-eval-when (compile) (cl-eval-when (compile)
(require 'org) (require 'org)
@@ -156,10 +164,16 @@ their blocks updated automatically."
:name :indentation-column :content :name :indentation-column :content
:filter :remove)) :filter :remove))
(defun org-roam-dblocks--node-to-link (node) (defun org-roam-dblocks--make-link-formatter (params)
(let ((link (concat "id:" (org-roam-node-id node))) (let ((regexp-parser (when-let* ((matcher (org-roam-dblocks-args-match params)))
(desc (org-roam-node-title node))) (org-roam-dblocks--parse-regexp-form matcher))))
(concat "- " (org-link-make-string link desc)))) (lambda (node)
(let* ((link (concat "id:" (org-roam-node-id node)))
(title (org-roam-node-title node))
(desc (or (when regexp-parser
(cadr (s-match regexp-parser title)))
title)))
(concat "- " (org-link-make-string link desc))))))
(defun org-roam-dblocks--parse-regexp-form (form) (defun org-roam-dblocks--parse-regexp-form (form)
;;; Quick tests: ;;; Quick tests:
@@ -336,7 +350,7 @@ and old content."
(org-roam-backlinks-get node :unique t) (org-roam-backlinks-get node :unique t)
(-keep (-compose (org-roam-dblocks--compiled-predicates params) #'org-roam-backlink-source-node)) (-keep (-compose (org-roam-dblocks--compiled-predicates params) #'org-roam-backlink-source-node))
(seq-sort 'org-roam-dblocks--node-sorting))) (seq-sort 'org-roam-dblocks--node-sorting)))
(lines (seq-map 'org-roam-dblocks--node-to-link backlinks))) (lines (seq-map (org-roam-dblocks--make-link-formatter params) backlinks)))
(string-join lines "\n"))) (string-join lines "\n")))
(error (error-message-string err)))) (error (error-message-string err))))
@@ -368,7 +382,7 @@ and old content."
(-let* ((backlinks (->> (org-roam-node-list) (-let* ((backlinks (->> (org-roam-node-list)
(-keep (org-roam-dblocks--compiled-predicates params)) (-keep (org-roam-dblocks--compiled-predicates params))
(seq-sort 'org-roam-dblocks--node-sorting))) (seq-sort 'org-roam-dblocks--node-sorting)))
(lines (seq-map 'org-roam-dblocks--node-to-link backlinks))) (lines (seq-map (org-roam-dblocks--make-link-formatter params) backlinks)))
(string-join lines "\n"))) (string-join lines "\n")))
(error (error-message-string err)))) (error (error-message-string err))))