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 some lints

Browse Source
This commit is contained in:
Jethro Kuan
2021-04-09 18:15:45 +08:00
parent 7a6b885b99
commit 45546ff6fa
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
org-roam-capture.el
View File

@ -227,7 +227,7 @@ the file if the original value of :no-save is not t and
(roam-template (concat roam-head org-template))) (roam-template (concat roam-head org-template)))
(if (or (file-exists-p file-path) (if (or (file-exists-p file-path)
(find-buffer-visiting file-path)) (find-buffer-visiting file-path))
(make-directory (file-name-directory file-path) t) (make-directory (file-name-directory file-path) t)
(org-roam-capture--put :orig-no-save (org-capture-get :no-save) (org-roam-capture--put :orig-no-save (org-capture-get :no-save)
:new-file t) :new-file t)
(org-capture-put :template roam-template (org-capture-put :template roam-template
@ -305,7 +305,7 @@ This function is used solely in Org-roam's capture templates: see
:limit 1] :limit 1]
ref))))) ref)))))
file file
(user-error "No such ref \"%s\"" ref)))) (user-error "No such ref \"%s\"" ref))))
(t (t
(when-let ((time (cdr (assoc 'time org-roam-capture--info)))) (when-let ((time (cdr (assoc 'time org-roam-capture--info))))
(org-capture-put :default-time time)) (org-capture-put :default-time time))
@ -333,11 +333,11 @@ This function is used solely in Org-roam's capture templates: see
PROPS is a plist containing additional Org-roam specific PROPS is a plist containing additional Org-roam specific
properties to be added to the template." properties to be added to the template."
(let* ((key (or (plist-get template :key) (let* ((key (or (plist-get template :key)
(user-error "template has no :key"))) (user-error "Template has no :key")))
(desc (or (plist-get template :desc) (desc (or (plist-get template :desc)
(user-error "template has no :desc"))) (user-error "Template has no :desc")))
(body (or (plist-get template :body) (body (or (plist-get template :body)
(user-error "template has no :body"))) (user-error "Template has no :body")))
(rest (org-plist-delete template :key)) (rest (org-plist-delete template :key))
(rest (org-plist-delete rest :desc)) (rest (org-plist-delete rest :desc))
(rest (org-plist-delete rest :body)) (rest (org-plist-delete rest :body))