awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-16 15:56:48 -05:00
Code Issues Packages Projects Releases Wiki Activity

(chore): cleanup buffer-file-name calls (#265)

Browse Source 
buffer-file-name uses the current-buffer if the argument is not passed
This commit is contained in:
Jethro Kuan
2020-03-10 10:41:43 +08:00
committed by GitHub
parent 6ba9ffe9c8
commit f6e75f995a
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
org-roam.el
View File

@@ -249,7 +249,7 @@ the current `org-roam-directory'."
"Remove any related links to the file at FILEPATH. "Remove any related links to the file at FILEPATH.
This is equivalent to removing the node from the graph." This is equivalent to removing the node from the graph."
(let* ((path (or filepath (let* ((path (or filepath
(buffer-file-name (current-buffer)))) (buffer-file-name)))
(file (file-truename path))) (file (file-truename path)))
(org-roam-sql [:delete :from files (org-roam-sql [:delete :from files
:where (= file $s1)] :where (= file $s1)]
@@ -305,7 +305,7 @@ This is equivalent to removing the node from the graph."
;;;;; Updating ;;;;; Updating
(defun org-roam--db-update-titles () (defun org-roam--db-update-titles ()
"Update the title of the current buffer into the cache." "Update the title of the current buffer into the cache."
(let ((file (file-truename (buffer-file-name (current-buffer))))) (let ((file (file-truename (buffer-file-name))))
(org-roam-sql [:delete :from titles (org-roam-sql [:delete :from titles
:where (= file $s1)] :where (= file $s1)]
file) file)
@@ -313,7 +313,7 @@ This is equivalent to removing the node from the graph."
(defun org-roam--db-update-refs () (defun org-roam--db-update-refs ()
"Update the ref of the current buffer into the cache." "Update the ref of the current buffer into the cache."
(let ((file (file-truename (buffer-file-name (current-buffer))))) (let ((file (file-truename (buffer-file-name))))
(org-roam-sql [:delete :from refs (org-roam-sql [:delete :from refs
:where (= file $s1)] :where (= file $s1)]
file) file)
@@ -322,7 +322,7 @@ This is equivalent to removing the node from the graph."
(defun org-roam--update-cache-links () (defun org-roam--update-cache-links ()
"Update the file links of the current buffer in the cache." "Update the file links of the current buffer in the cache."
(let ((file (file-truename (buffer-file-name (current-buffer))))) (let ((file (file-truename (buffer-file-name))))
(org-roam-sql [:delete :from file-links (org-roam-sql [:delete :from file-links
:where (= file-from $s1)] :where (= file-from $s1)]
file) file)
@@ -464,7 +464,7 @@ Like `file-name-extension', but does not strip version number."
"Return t if FILE is part of Org-roam system, nil otherwise. "Return t if FILE is part of Org-roam system, nil otherwise.
If FILE is not specified, use the current buffer's file-path." If FILE is not specified, use the current buffer's file-path."
(let ((path (or file (let ((path (or file
(buffer-file-name (current-buffer))))) (buffer-file-name))))
(and path (and path
(org-roam--org-file-p path) (org-roam--org-file-p path)
(f-descendant-of-p (file-truename path) (f-descendant-of-p (file-truename path)
@@ -520,7 +520,7 @@ FILE-FROM is typically the buffer file path, but this may not exist, for example
in temp buffers. In cases where this occurs, we do know the file path, and pass in temp buffers. In cases where this occurs, we do know the file path, and pass
it as FILE-PATH." it as FILE-PATH."
(let ((file-path (or file-path (let ((file-path (or file-path
(file-truename (buffer-file-name (current-buffer)))))) (file-truename (buffer-file-name)))))
(org-element-map (org-element-parse-buffer) 'link (org-element-map (org-element-parse-buffer) 'link
(lambda (link) (lambda (link)
(let ((type (org-element-property :type link)) (let ((type (org-element-property :type link))