awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-03 12:27:23 -05:00
Code Issues Packages Projects Releases Wiki Activity

add org-roam-tag-{add,remove}

Browse Source 
also fix org-roam interactive functions to operate on node
This commit is contained in:
Jethro Kuan
2021-04-27 18:04:53 +08:00
parent fd23360100
commit eb9a9e487c
1 changed files with 54 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
org-roam.el
View File

@ -791,29 +791,78 @@ window instead."
(org-set-property prop (combine-and-quote-strings lst)) (org-set-property prop (combine-and-quote-strings lst))
(org-delete-property prop)))) (org-delete-property prop))))
;;;; Tags
(defun org-roam-tag-completions ()
"Return list of tags for completions within Org-roam."
(let ((roam-tags (mapcar #'car (org-roam-db-query [:select :distinct [tag] :from tags])))
(org-tags (cl-loop for tagg in org-tag-alist
nconc (pcase tagg
('(:newline)
nil)
(`(,tag . ,_)
(list tag))
(_ nil)))))
(append roam-tags org-tags)))
(defun org-roam-tag-add (tag)
"Add a tag to the node at point."
(interactive
(list (completing-read "Tag: " (org-roam-tag-completions))))
(let ((node (org-roam-node-at-point 'assert)))
(save-excursion
(goto-char (org-roam-node-point node))
(if (= (org-outline-level) 0)
(org-roam-add-property tag "ROAM_TAGS")
(let ((current-tags (org-get-tags)))
(cl-pushnew tag current-tags)
(org-set-tags current-tags))))))
(defun org-roam-tag-remove ()
"Remove a tag to the node at point."
(interactive)
(let ((node (org-roam-node-at-point 'assert)))
(save-excursion
(goto-char (org-roam-node-point node))
(if (= (org-outline-level) 0)
(org-roam-remove-property "ROAM_TAGS")
(let* ((current-tags (org-get-tags))
(tag (completing-read "Tag: " current-tags)))
(org-set-tags (delete tag current-tags)))))))
;;;; Aliases ;;;; Aliases
(defun org-roam-alias-add (alias) (defun org-roam-alias-add (alias)
"Add ALIAS to the node at point." "Add ALIAS to the node at point."
(interactive "sAlias: ") (interactive "sAlias: ")
(org-roam-add-property alias "ROAM_ALIASES")) (let ((node (org-roam-node-at-point 'assert)))
(save-excursion
(goto-char (org-roam-node-point node))
(org-roam-add-property alias "ROAM_ALIASES"))))
(defun org-roam-alias-remove () (defun org-roam-alias-remove ()
"Remove an alias from the node at point." "Remove an alias from the node at point."
(interactive) (interactive)
(org-roam-remove-property "ROAM_ALIASES")) (let ((node (org-roam-node-at-point 'assert)))
(save-excursion
(goto-char (org-roam-node-point node))
(org-roam-remove-property "ROAM_ALIASES"))))
;;;; Refs ;;;; Refs
(defun org-roam-ref-add (ref) (defun org-roam-ref-add (ref)
"Add REF to the node at point." "Add REF to the node at point."
(interactive "sRef: ") (interactive "sRef: ")
(org-roam-add-property ref "ROAM_REFS")) (let ((node (org-roam-node-at-point 'assert)))
(save-excursion
(goto-char (org-roam-node-point node))
(org-roam-add-property ref "ROAM_REFS"))))
(defun org-roam-ref-remove () (defun org-roam-ref-remove ()
"Remove a ref from the node at point." "Remove a ref from the node at point."
(interactive) (interactive)
(org-roam-remove-property "ROAM_REFS")) (let ((node (org-roam-node-at-point 'assert)))
(save-excursion
(goto-char (org-roam-node-point node))
(org-roam-remove-property "ROAM_REFS"))))
;;;; Refs
(defun org-roam-ref--completions () (defun org-roam-ref--completions ()
"Return an alist for ref completion. "Return an alist for ref completion.
The car is the ref, and the cdr is the corresponding node for the ref." The car is the ref, and the cdr is the corresponding node for the ref."