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

(feat) allow to specify props to remove and return them (#1515)

Browse Source 
This is a follow up of #1420/ for v2.

Basically:

1. Allow to pass a tag/alias/ref to remove.
2. Return removed tag/alias/ref.
3. Return added tag/alias/ref to mirror (2).
This commit is contained in:
Boris Buliga
2021-05-10 09:18:48 +03:00
committed by GitHub
parent 096b0c5e30
commit 07ec4342aa
1 changed files with 22 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
org-roam.el
View File

@@ -793,17 +793,21 @@ window instead."
(let* ((p (org-entry-get (point) prop))
(lst (when p (split-string-and-unquote p)))
(lst (if (memq s lst) lst (cons s lst))))
(org-set-property prop (combine-and-quote-strings lst))))
(org-set-property prop (combine-and-quote-strings lst))
s))
(defun org-roam-remove-property (prop)
"Prompt to remove an item from PROP."
(defun org-roam-remove-property (prop &optional s)
"Remove S from property PROP.
If S is not specified, user is prompted to select a value."
(let* ((p (org-entry-get (point) prop))
(lst (when p (split-string-and-unquote p)))
(prop-to-remove (completing-read "Remove: " lst))
(prop-to-remove (or s (completing-read "Remove: " lst)))
(lst (delete prop-to-remove lst)))
(if lst
(org-set-property prop (combine-and-quote-strings lst))
(org-delete-property prop))))
(org-delete-property prop))
prop-to-remove))
(defun org-roam-set-keyword (key value)
"Set keyword KEY to VALUE.
@@ -849,10 +853,11 @@ If the property is already set, it's value is replaced."
(org-collect-keywords '("filetags"))))
""))))
(org-roam-set-keyword "filetags" (string-join (seq-uniq (cons tag current-tags)) " ")))
(org-set-tags (seq-uniq (cons tag (org-get-tags))))))))
(org-set-tags (seq-uniq (cons tag (org-get-tags)))))
tag)))
(defun org-roam-tag-remove ()
"Remove a tag to the node at point."
(defun org-roam-tag-remove (&optional tag)
"Remove a TAG to the node at point."
(interactive)
(let ((node (org-roam-node-at-point 'assert)))
(save-excursion
@@ -861,12 +866,13 @@ If the property is already set, it's value is replaced."
(let* ((current-tags (split-string (or (cadr (assoc "FILETAGS"
(org-collect-keywords '("filetags"))))
(user-error "No tag to remove"))))
(tag (completing-read "Tag: " current-tags)))
(tag (or tag (completing-read "Tag: " current-tags))))
(org-roam-set-keyword "filetags" (string-join (delete tag current-tags) " ")))
(let* ((current-tags (or (org-get-tags)
(user-error "No tag to remove")))
(tag (completing-read "Tag: " current-tags)))
(org-set-tags (delete tag current-tags)))))))
(org-set-tags (delete tag current-tags))))
tag)))
;;;; Aliases
(defun org-roam-alias-add (alias)
@@ -877,13 +883,13 @@ If the property is already set, it's value is replaced."
(goto-char (org-roam-node-point node))
(org-roam-add-property alias "ROAM_ALIASES"))))
(defun org-roam-alias-remove ()
"Remove an alias from the node at point."
(defun org-roam-alias-remove (&optional alias)
"Remove an ALIAS from the node at point."
(interactive)
(let ((node (org-roam-node-at-point 'assert)))
(save-excursion
(goto-char (org-roam-node-point node))
(org-roam-remove-property "ROAM_ALIASES"))))
(org-roam-remove-property "ROAM_ALIASES" alias))))
;;;; Refs
(defun org-roam-ref-add (ref)
@@ -894,13 +900,13 @@ If the property is already set, it's value is replaced."
(goto-char (org-roam-node-point node))
(org-roam-add-property ref "ROAM_REFS"))))
(defun org-roam-ref-remove ()
"Remove a ref from the node at point."
(defun org-roam-ref-remove (&optional ref)
"Remove a REF from the node at point."
(interactive)
(let ((node (org-roam-node-at-point 'assert)))
(save-excursion
(goto-char (org-roam-node-point node))
(org-roam-remove-property "ROAM_REFS"))))
(org-roam-remove-property "ROAM_REFS" ref))))
(defun org-roam-ref--completions ()
"Return an alist for ref completion.