awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -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

10
org-roam-db.el
View File

@ -165,7 +165,7 @@ SQL can be either the emacsql vector representation, or a string."
(tags (tags
([(node-id :not-null) ([(node-id :not-null)
tag] tag]
(:foreign-key [node-id] :references nodes [id] :on-delete :cascade))) (:foreign-key [node-id] :references nodes [id] :on-delete :cascade)))
(links (links
@ -343,10 +343,10 @@ If UPDATE-P is non-nil, first remove the file in the database."
(properties (org-entry-properties)) (properties (org-entry-properties))
(olp (org-get-outline-path))) (olp (org-get-outline-path)))
(org-roam-db-query (org-roam-db-query
[:insert :into nodes [:insert :into nodes
:values $v1] :values $v1]
(vector id file level pos todo priority (vector id file level pos todo priority
scheduled deadline title properties olp))))) scheduled deadline title properties olp)))))
(defun org-roam-db-insert-aliases () (defun org-roam-db-insert-aliases ()
"Insert aliases for node at point into Org-roam cache." "Insert aliases for node at point into Org-roam cache."

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)))