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

fix lints

Browse Source
This commit is contained in:
Jethro Kuan
2021-05-02 17:08:02 +08:00
parent fbe3f2909f
commit 44960f189f
2 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
org-roam.el
View File

@ -472,7 +472,8 @@ OLD-FILE is cleared from the database, and NEW-FILE-OR-DIR is added."
Uses the ID, and fetches remaining details from the database. Uses the ID, and fetches remaining details from the database.
This can be quite costly: avoid, unless dealing with very few This can be quite costly: avoid, unless dealing with very few
nodes." nodes."
(let ((node-info (car (org-roam-db-query [:select [file level pos todo priority scheduled deadline title properties olp] (let ((node-info (car (org-roam-db-query [:select [file level pos todo priority
scheduled deadline title properties olp]
:from nodes :from nodes
:where (= id $s1) :where (= id $s1)
:limit 1] :limit 1]
@ -829,7 +830,7 @@ If the property is already set, it's value is replaced."
(seq-uniq (append roam-tags org-tags)))) (seq-uniq (append roam-tags org-tags))))
(defun org-roam-tag-add (tag) (defun org-roam-tag-add (tag)
"Add a tag to the node at point." "Add TAG to the node at point."
(interactive (interactive
(list (completing-read "Tag: " (org-roam-tag-completions)))) (list (completing-read "Tag: " (org-roam-tag-completions))))
(let ((node (org-roam-node-at-point 'assert))) (let ((node (org-roam-node-at-point 'assert)))