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.
This is equivalent to removing the node from the graph."
(let* ((path (or filepath
(buffer-file-name (current-buffer))))
(buffer-file-name)))
(file (file-truename path)))
(org-roam-sql [:delete :from files
:where (= file $s1)]
@@ -305,7 +305,7 @@ This is equivalent to removing the node from the graph."
;;;;; Updating
(defun org-roam--db-update-titles ()
"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
:where (= file $s1)]
file)
@@ -313,7 +313,7 @@ This is equivalent to removing the node from the graph."
(defun org-roam--db-update-refs ()
"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
:where (= file $s1)]
file)
@@ -322,7 +322,7 @@ This is equivalent to removing the node from the graph."
(defun org-roam--update-cache-links ()
"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
:where (= file-from $s1)]
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.
If FILE is not specified, use the current buffer's file-path."
(let ((path (or file
(buffer-file-name (current-buffer)))))
(buffer-file-name))))
(and path
(org-roam--org-file-p 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
it as 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
(lambda (link)
(let ((type (org-element-property :type link))