diff options
| -rw-r--r-- | org-gnosis.el | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/org-gnosis.el b/org-gnosis.el index 6d5e5eb..f2e8899 100644 --- a/org-gnosis.el +++ b/org-gnosis.el @@ -173,10 +173,24 @@ FILE: File path" (links (org-gnosis-get-links parsed-data))) `(:file ,filename :topic ,topic :nodes ,nodes :links ,links))) -(defun org-gnosis-adjust-title (input) - "Adjust the INPUT string to replace id link structures with plain text." +(defun org-gnosis-adjust-title (input &optional node-id) + "Adjust the INPUT string to replace id link structures with plain text. + +Adjust title INPUT for NODE-ID. If node-id contains an id link, it's +inserted as link for NODE-ID in the database." (when (stringp input) - (replace-regexp-in-string "\\[\\[id:[^]]+\\]\\[\\(.*?\\)\\]\\]" "\\1" input))) + (let* ((id-links '()) + (new-input (replace-regexp-in-string + "\\[\\[id:[^]]+\\]\\[\\(.*?\\)\\]\\]" + (lambda (match) + (push (match-string 1 match) id-links) + (match-string 1 match)) + input))) + (when (and node-id id-links) + (emacsql-with-transaction org-gnosis-db + (cl-loop for link in (reverse id-links) + do (org-gnosis--insert-into 'links `([,node-id ,link]))))) + new-input))) (defun org-gnosis-get-file-info (filename) "Something FILENAME." |