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

(feat): add support for headlines (#783)

Browse Source 
Achieve feature parity between links to files and links to headlines.

Before, we used the `file:foo::*bar` format to link to the headline `bar` in file `foo`, but this was prone to breakage upon renaming the file or modifying the headline. This is not the case anymore. Now, we use `org-id` to create IDs for those headlines, which are then stored in our database to compute the relationships and jump around. Note that this will work even if you’re not using `org-id` in your global configuration for Org-mode.

Co-authored-by: Jethro Kuan <jethrokuan95@gmail.com>
This commit is contained in:
Leo Vivier
2020-06-12 12:51:13 +02:00
committed by GitHub
parent cf368ab4d8
commit 7f7ba857de
3 changed files with 227 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
CHANGELOG.md
View File

@ -1,6 +1,10 @@
# Changelog # Changelog
## 1.1.2 (TBD) ## 1.2 (TBD)
In this release, we improved the linking process by achieving feature parity between links to files and links to headlines. Before, we used the `file:foo::*bar` format to link to the headline `bar` in file `foo`, but this was prone to breakage upon renaming the file or modifying the headline. This is not the case anymore. Now, we use `org-id` to create IDs for those headlines, which are then stored in our database to compute the relationships and jump around. Note that this will work even if you’re not using `org-id` in your global configuration for Org-mode.
This is a major step forward. Supporting the in-file structure of Org-mode files means that we can interface with many of its core-features like TODOs, properties, priorities, etc. UX will have to be figured out, but this release ushers in a new age in terms of functionalities.
### Breaking Changes ### Breaking Changes
@ -9,6 +13,7 @@
### Features ### Features
- [#783](https://github.com/org-roam/org-roam/pull/783) Add support for headlines
- [#757](https://github.com/org-roam/org-roam/pull/757) Roam global properties are now case-insensitive - [#757](https://github.com/org-roam/org-roam/pull/757) Roam global properties are now case-insensitive
- [#680](https://github.com/org-roam/org-roam/pull/680) , [#703](https://github.com/org-roam/org-roam/pull/703), [#708](https://github.com/org-roam/org-roam/pull/708) Add `org-roam-doctor` checkers for `ROAM_*` properties - [#680](https://github.com/org-roam/org-roam/pull/680) , [#703](https://github.com/org-roam/org-roam/pull/703), [#708](https://github.com/org-roam/org-roam/pull/708) Add `org-roam-doctor` checkers for `ROAM_*` properties
- [#664](https://github.com/org-roam/org-roam/pull/664) Add support for shelling out to `rg` and `find` in `org-roam--list-files` - [#664](https://github.com/org-roam/org-roam/pull/664) Add support for shelling out to `rg` and `find` in `org-roam--list-files`

93
org-roam-db.el
View File

@ -45,6 +45,7 @@
(declare-function org-roam--extract-titles "org-roam") (declare-function org-roam--extract-titles "org-roam")
(declare-function org-roam--extract-ref "org-roam") (declare-function org-roam--extract-ref "org-roam")
(declare-function org-roam--extract-tags "org-roam") (declare-function org-roam--extract-tags "org-roam")
(declare-function org-roam--extract-headlines "org-roam")
(declare-function org-roam--extract-links "org-roam") (declare-function org-roam--extract-links "org-roam")
(declare-function org-roam--list-all-files "org-roam") (declare-function org-roam--list-all-files "org-roam")
(declare-function org-roam-buffer--update-maybe "org-roam-buffer") (declare-function org-roam-buffer--update-maybe "org-roam-buffer")
@ -59,7 +60,7 @@ when used with multiple Org-roam instances."
:type 'string :type 'string
:group 'org-roam) :group 'org-roam)
(defconst org-roam-db--version 5) (defconst org-roam-db--version 6)
(defvar org-roam-db--connection (make-hash-table :test #'equal) (defvar org-roam-db--connection (make-hash-table :test #'equal)
"Database connection to Org-roam database.") "Database connection to Org-roam database.")
@ -120,6 +121,10 @@ SQL can be either the emacsql vector representation, or a string."
(hash :not-null) (hash :not-null)
(meta :not-null)]) (meta :not-null)])
(headlines
[(id :unique :primary-key)
(file :not-null)])
(links (links
[(from :not-null) [(from :not-null)
(to :not-null) (to :not-null)
@ -224,6 +229,13 @@ This is equivalent to removing the node from the graph."
:values $v1] :values $v1]
(list (vector file titles)))) (list (vector file titles))))
(defun org-roam-db--insert-headlines (headlines)
"Insert HEADLINES into the Org-roam cache."
(org-roam-db-query
[:insert :into headlines
:values $v1]
headlines))
(defun org-roam-db--insert-tags (file tags) (defun org-roam-db--insert-tags (file tags)
"Insert TAGS for a FILE into the Org-roam cache." "Insert TAGS for a FILE into the Org-roam cache."
(org-roam-db-query (org-roam-db-query
@ -260,12 +272,12 @@ This is equivalent to removing the node from the graph."
If the file does not have any connections, nil is returned." If the file does not have any connections, nil is returned."
(let* ((query "WITH RECURSIVE (let* ((query "WITH RECURSIVE
links_of(file, link) AS links_of(file, link) AS
(WITH roamlinks AS (SELECT * FROM links WHERE \"type\" = '\"roam\"'), (WITH filelinks AS (SELECT * FROM links WHERE \"type\" = '\"file\"'),
citelinks AS (SELECT * FROM links citelinks AS (SELECT * FROM links
JOIN refs ON links.\"to\" = refs.\"ref\" JOIN refs ON links.\"to\" = refs.\"ref\"
AND links.\"type\" = '\"cite\"') AND links.\"type\" = '\"cite\"')
SELECT \"from\", \"to\" FROM roamlinks UNION SELECT \"from\", \"to\" FROM filelinks UNION
SELECT \"to\", \"from\" FROM roamlinks UNION SELECT \"to\", \"from\" FROM filelinks UNION
SELECT \"file\", \"from\" FROM citelinks UNION SELECT \"file\", \"from\" FROM citelinks UNION
SELECT \"from\", \"file\" FROM citelinks), SELECT \"from\", \"file\" FROM citelinks),
connected_component(file) AS connected_component(file) AS
@ -278,16 +290,16 @@ If the file does not have any connections, nil is returned."
(defun org-roam-db--links-with-max-distance (file max-distance) (defun org-roam-db--links-with-max-distance (file max-distance)
"Return all files connected to FILE in at most MAX-DISTANCE steps. "Return all files connected to FILE in at most MAX-DISTANCE steps.
This includes the file itself. If the file does not have any This includes the file itself. If the file does not have any
connections, nil is returned." connections, nil is returned."
(let* ((query "WITH RECURSIVE (let* ((query "WITH RECURSIVE
links_of(file, link) AS links_of(file, link) AS
(WITH roamlinks AS (SELECT * FROM links WHERE \"type\" = '\"roam\"'), (WITH filelinks AS (SELECT * FROM links WHERE \"type\" = '\"file\"'),
citelinks AS (SELECT * FROM links citelinks AS (SELECT * FROM links
JOIN refs ON links.\"to\" = refs.\"ref\" JOIN refs ON links.\"to\" = refs.\"ref\"
AND links.\"type\" = '\"cite\"') AND links.\"type\" = '\"cite\"')
SELECT \"from\", \"to\" FROM roamlinks UNION SELECT \"from\", \"to\" FROM filelinks UNION
SELECT \"to\", \"from\" FROM roamlinks UNION SELECT \"to\", \"from\" FROM filelinks UNION
SELECT \"file\", \"from\" FROM citelinks UNION SELECT \"file\", \"from\" FROM citelinks UNION
SELECT \"from\", \"file\" FROM citelinks), SELECT \"from\", \"file\" FROM citelinks),
-- Links are traversed in a breadth-first search. In order to calculate the -- Links are traversed in a breadth-first search. In order to calculate the
@ -350,7 +362,7 @@ connections, nil is returned."
(when-let ((ref (org-roam--extract-ref))) (when-let ((ref (org-roam--extract-ref)))
(org-roam-db--insert-ref file ref)))) (org-roam-db--insert-ref file ref))))
(defun org-roam-db--update-cache-links () (defun org-roam-db--update-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)))) (let ((file (file-truename (buffer-file-name))))
(org-roam-db-query [:delete :from links (org-roam-db-query [:delete :from links
@ -359,6 +371,15 @@ connections, nil is returned."
(when-let ((links (org-roam--extract-links))) (when-let ((links (org-roam--extract-links)))
(org-roam-db--insert-links links)))) (org-roam-db--insert-links links))))
(defun org-roam-db--update-headlines ()
"Update the file headlines of the current buffer into the cache."
(let* ((file (file-truename (buffer-file-name))))
(org-roam-db-query [:delete :from headlines
:where (= file $s1)]
file)
(when-let ((headlines (org-roam--extract-headlines)))
(org-roam-db--insert-headlines headlines))))
(defun org-roam-db--update-file (&optional file-path) (defun org-roam-db--update-file (&optional file-path)
"Update Org-roam cache for FILE-PATH." "Update Org-roam cache for FILE-PATH."
(when (org-roam--org-roam-file-p file-path) (when (org-roam--org-roam-file-p file-path)
@ -371,7 +392,8 @@ connections, nil is returned."
(org-roam-db--update-tags) (org-roam-db--update-tags)
(org-roam-db--update-titles) (org-roam-db--update-titles)
(org-roam-db--update-refs) (org-roam-db--update-refs)
(org-roam-db--update-cache-links) (org-roam-db--update-headlines)
(org-roam-db--update-links)
(org-roam-buffer--update-maybe :redisplay t)))))) (org-roam-buffer--update-maybe :redisplay t))))))
(defun org-roam-db-build-cache (&optional force) (defun org-roam-db-build-cache (&optional force)
@ -383,7 +405,9 @@ If FORCE, force a rebuild of the cache from scratch."
(org-roam-db) ;; To initialize the database, no-op if already initialized (org-roam-db) ;; To initialize the database, no-op if already initialized
(let* ((org-roam-files (org-roam--list-all-files)) (let* ((org-roam-files (org-roam--list-all-files))
(current-files (org-roam-db--get-current-files)) (current-files (org-roam-db--get-current-files))
all-files all-links all-titles all-refs all-tags) all-files all-headlines all-links all-titles all-refs all-tags)
;; Two-step building
;; First step: Rebuild files and headlines
(dolist (file org-roam-files) (dolist (file org-roam-files)
(let* ((attr (file-attributes file)) (let* ((attr (file-attributes file))
(atime (file-attribute-access-time attr)) (atime (file-attribute-access-time attr))
@ -395,26 +419,39 @@ If FORCE, force a rebuild of the cache from scratch."
(org-roam-db--clear-file file) (org-roam-db--clear-file file)
(push (vector file contents-hash (list :atime atime :mtime mtime)) (push (vector file contents-hash (list :atime atime :mtime mtime))
all-files) all-files)
(when-let (links (org-roam--extract-links file)) (when-let (headlines (org-roam--extract-headlines file))
(push links all-links)) (push headlines all-headlines)))))))
(when-let (tags (org-roam--extract-tags file))
(push (vector file tags) all-tags))
(let ((titles (org-roam--extract-titles)))
(push (vector file titles)
all-titles))
(when-let* ((ref (org-roam--extract-ref))
(type (car ref))
(key (cdr ref)))
(setq all-refs (cons (vector key file type) all-refs))))
(remhash file current-files)))))
(dolist (file (hash-table-keys current-files))
;; These files are no longer around, remove from cache...
(org-roam-db--clear-file file))
(when all-files (when all-files
(org-roam-db-query (org-roam-db-query
[:insert :into files [:insert :into files
:values $v1] :values $v1]
all-files)) all-files))
(when all-headlines
(org-roam-db-query
[:insert :into headlines
:values $v1]
all-headlines))
;; Second step: Rebuild the rest
(dolist (file org-roam-files)
(org-roam--with-temp-buffer file
(let ((contents-hash (secure-hash 'sha1 (current-buffer))))
(unless (string= (gethash file current-files)
contents-hash)
(when-let (links (org-roam--extract-links file))
(push links all-links))
(when-let (tags (org-roam--extract-tags file))
(push (vector file tags) all-tags))
(let ((titles (org-roam--extract-titles)))
(push (vector file titles)
all-titles))
(when-let* ((ref (org-roam--extract-ref))
(type (car ref))
(key (cdr ref)))
(setq all-refs (cons (vector key file type) all-refs))))
(remhash file current-files))))
(dolist (file (hash-table-keys current-files))
;; These files are no longer around, remove from cache...
(org-roam-db--clear-file file))
(when all-links (when all-links
(org-roam-db-query (org-roam-db-query
[:insert :into links [:insert :into links
@ -436,13 +473,15 @@ If FORCE, force a rebuild of the cache from scratch."
:values $v1] :values $v1]
all-refs)) all-refs))
(let ((stats (list :files (length all-files) (let ((stats (list :files (length all-files)
:headlines (length all-headlines)
:links (length all-links) :links (length all-links)
:tags (length all-tags) :tags (length all-tags)
:titles (length all-titles) :titles (length all-titles)
:refs (length all-refs) :refs (length all-refs)
:deleted (length (hash-table-keys current-files))))) :deleted (length (hash-table-keys current-files)))))
(org-roam-message "files: %s, links: %s, tags: %s, titles: %s, refs: %s, deleted: %s" (org-roam-message "files: %s, headlines: %s, links: %s, tags: %s, titles: %s, refs: %s, deleted: %s"
(plist-get stats :files) (plist-get stats :files)
(plist-get stats :headlines)
(plist-get stats :links) (plist-get stats :links)
(plist-get stats :tags) (plist-get stats :tags)
(plist-get stats :titles) (plist-get stats :titles)

172
org-roam.el
View File

@ -36,6 +36,7 @@
;;;; Dependencies ;;;; Dependencies
(require 'org) (require 'org)
(require 'org-element) (require 'org-element)
(require 'org-id)
(require 'ob-core) ;for org-babel-parse-header-arguments (require 'ob-core) ;for org-babel-parse-header-arguments
(require 'ansi-color) ; org-roam--list-files strip ANSI color codes (require 'ansi-color) ; org-roam--list-files strip ANSI color codes
(require 'cl-lib) (require 'cl-lib)
@ -61,8 +62,13 @@
(require 'org-roam-graph) (require 'org-roam-graph)
;;;; Declarations ;;;; Declarations
(defvar org-ref-cite-types) ;; from org-ref-core.el ;; From org-ref-core.el
(defvar org-ref-cite-types)
(declare-function org-ref-split-and-strip-string "ext:org-ref-utils" (string)) (declare-function org-ref-split-and-strip-string "ext:org-ref-utils" (string))
;; From org-id.el
(defvar org-id-link-to-org-use-id)
(declare-function org-id-find-id-in-file "ext:org-id" (id file &optional markerp))
;;;; Customizable variables ;;;; Customizable variables
(defgroup org-roam nil (defgroup org-roam nil
@ -313,6 +319,15 @@ If FILE is not specified, use the current buffer's file-path."
(f-descendant-of-p (file-truename path) (f-descendant-of-p (file-truename path)
(file-truename org-roam-directory)))))) (file-truename org-roam-directory))))))
(defun org-roam--org-roam-headline-p (&optional id)
"Return t if ID is part of Org-roam system, nil otherwise.
If ID is not specified, use the ID of the entry at point."
(if-let ((id (or id
(org-id-get))))
(org-roam-db-query [:select [file] :from headlines
:where (= id $s1)]
id)))
(defun org-roam--shell-command-files (cmd) (defun org-roam--shell-command-files (cmd)
"Run CMD in the shell and return a list of files. If no files are found, an empty list is returned." "Run CMD in the shell and return a list of files. If no files are found, an empty list is returned."
(--> cmd (--> cmd
@ -495,9 +510,13 @@ it as FILE-PATH."
(let* ((type (org-element-property :type link)) (let* ((type (org-element-property :type link))
(path (org-element-property :path link)) (path (org-element-property :path link))
(start (org-element-property :begin link)) (start (org-element-property :begin link))
(id-data (org-roam-id-find path))
(link-type (cond ((and (string= type "file") (link-type (cond ((and (string= type "file")
(org-roam--org-file-p path)) (org-roam--org-file-p path))
"roam") "file")
((and (string= type "id")
id-data)
"id")
((and ((and
(require 'org-ref nil t) (require 'org-ref nil t)
(-contains? org-ref-cite-types type)) (-contains? org-ref-cite-types type))
@ -518,8 +537,10 @@ it as FILE-PATH."
(content (org-roam--expand-links content file-path))) (content (org-roam--expand-links content file-path)))
(let ((context (list :content content :point begin)) (let ((context (list :content content :point begin))
(names (pcase link-type (names (pcase link-type
("roam" ("file"
(list (file-truename (expand-file-name path (file-name-directory file-path))))) (list (file-truename (expand-file-name path (file-name-directory file-path)))))
("id"
(list (car id-data)))
("cite" ("cite"
(org-ref-split-and-strip-string path))))) (org-ref-split-and-strip-string path)))))
(seq-do (lambda (name) (seq-do (lambda (name)
@ -531,6 +552,21 @@ it as FILE-PATH."
names))))))) names)))))))
links)) links))
(defun org-roam--extract-headlines (&optional file-path)
"Extract all headlines with IDs within the current buffer.
If FILE-PATH is nil, use the current file."
(let ((file-path (or file-path
(file-truename (buffer-file-name)))))
(org-element-map (org-element-parse-buffer) 'node-property
(lambda (node-property)
(let ((key (org-element-property :key node-property))
(value (org-element-property :value node-property)))
(when (string= key "ID")
(let* ((id value)
(data (vector id
file-path)))
data)))))))
(defun org-roam--extract-titles-title () (defun org-roam--extract-titles-title ()
"Return title from \"#+title\" of the current buffer." "Return title from \"#+title\" of the current buffer."
(let* ((prop (org-roam--extract-global-props '("TITLE"))) (let* ((prop (org-roam--extract-global-props '("TITLE")))
@ -650,7 +686,7 @@ Examples:
'("http" "https"))) '("http" "https")))
(type (cond (cite-prefix "cite") (type (cond (cite-prefix "cite")
(is-website "website") (is-website "website")
(t "roam")))) (t "file"))))
type)) type))
(defun org-roam--extract-ref () (defun org-roam--extract-ref ()
@ -867,21 +903,26 @@ This face is used for links without a destination."
(and (boundp org-roam-backlinks-mode) (and (boundp org-roam-backlinks-mode)
org-roam-backlinks-mode)) org-roam-backlinks-mode))
(defun org-roam--retrieve-link-path (&optional pom) (defun org-roam--retrieve-link-destination (&optional pom)
"Retrieve the path of the link at POM. "Retrieve the destination of the link at POM.
The point-or-marker POM can either be a position in the current The point-or-marker POM can either be a position in the current
buffer or a marker." buffer or a marker."
(let ((pom (or pom (point)))) (let ((pom (or pom (point))))
(org-with-point-at pom (org-with-point-at pom
(plist-get (cadr (org-element-context)) :path)))) (let* ((context (org-element-context))
(type (org-element-property :type context))
(dest (org-element-property :path context)))
(pcase type
("file" dest)
("id" (car (org-roam-id-find dest))))))))
(defun org-roam--backlink-to-current-p () (defun org-roam--backlink-to-current-p ()
"Return t if backlink is to the current Org-roam file." "Return t if backlink is to the current Org-roam file."
(let ((current (buffer-file-name org-roam-buffer--current)) (let ((current (buffer-file-name org-roam-buffer--current))
(backlink-dest (org-roam--retrieve-link-path))) (backlink-dest (org-roam--retrieve-link-destination)))
(string= current backlink-dest))) (string= current backlink-dest)))
(defun org-roam--roam-link-face (path) (defun org-roam--roam-file-link-face (path)
"Conditional face for org file links. "Conditional face for org file links.
Applies `org-roam-link-current' if PATH corresponds to the Applies `org-roam-link-current' if PATH corresponds to the
currently opened Org-roam file in the backlink buffer, or currently opened Org-roam file in the backlink buffer, or
@ -897,6 +938,22 @@ file."
(t (t
'org-link))) 'org-link)))
(defun org-roam--roam-id-link-face (id)
"Conditional face for org ID links.
Applies `org-roam-link-current' if ID corresponds to the
currently opened Org-roam file in the backlink buffer, or
`org-roam-link-face' if ID corresponds to any other Org-roam
file."
(cond ((not (org-roam-id-find id))
'org-roam-link-invalid)
((and (org-roam--in-buffer-p)
(org-roam--backlink-to-current-p))
'org-roam-link-current)
((org-roam-id-find id t)
'org-roam-link)
(t
'org-link)))
(defun org-roam-open-at-point () (defun org-roam-open-at-point ()
"Open an Org-roam link or visit the text previewed at point. "Open an Org-roam link or visit the text previewed at point.
When point is on an Org-roam link, open the link in the Org-roam window. When point is on an Org-roam link, open the link in the Org-roam window.
@ -941,7 +998,7 @@ for Org-ref cite links."
:order-by (asc from)] :order-by (asc from)]
target)) target))
(defun org-roam-store-link () (defun org-roam-store-link-file ()
"Store a link to an `org-roam' file." "Store a link to an `org-roam' file."
(when (org-before-first-heading-p) (when (org-before-first-heading-p)
(when-let ((title (cdr (assoc "TITLE" (org-roam--extract-global-props '("TITLE")))))) (when-let ((title (cdr (assoc "TITLE" (org-roam--extract-global-props '("TITLE"))))))
@ -950,6 +1007,78 @@ for Org-ref cite links."
:link (format "file:%s" (abbreviate-file-name buffer-file-name)) :link (format "file:%s" (abbreviate-file-name buffer-file-name))
:description title)))) :description title))))
(defun org-roam--store-link (arg &optional interactive?)
"Store a link to the current location within Org-roam.
See `org-roam-store-link' for details on ARG and INTERACTIVE?."
(let ((org-id-link-to-org-use-id t)
(id (org-id-get)))
(org-store-link arg interactive?)
;; If :ID: was created, update the cache
(unless id
(org-roam-db--update-headlines))))
(defun org-roam-store-link (arg &optional interactive?)
"Store a link to the current location.
This commands is a wrapper for `org-store-link' which forces the
automatic creation of :ID: properties.
See `org-roam-store-link' for details on ARG and INTERACTIVE?."
(interactive "P\np")
(if (org-roam--org-roam-file-p)
(org-roam--store-link arg interactive?)
(org-store-link arg interactive?)))
(defun org-roam-id-find (id &optional markerp strict)
"Return the location of the entry with the id ID.
When MARKERP is non-nil, return a marker pointing to theheadline.
Otherwise, return a cons formatted as \(file . pos).
When STRICT is non-nil, only consider Org-roam’s database."
(let ((file (or (caar (org-roam-db-query [:select [file]
:from headlines
:where (= id $s1)]
id))
(unless strict
(org-id-find-id-file id)))))
(when file
(org-id-find-id-in-file id file markerp))))
(defun org-roam-id-open (id-or-marker &optional strict)
"Go to the entry with ID-OR-MARKER.
Wrapper for `org-id-open' which tries to find the ID in the
Org-roam's database.
ID-OR-MARKER can either be the ID of the entry or the marker
pointing to it if it has already been computed by
`org-roam-id-find'. If the ID-OR-MARKER is not found, it reverts
to the default behaviour of `org-id-open'.
When STRICT is non-nil, only consider Org-roam’s database."
(when-let ((marker (if (markerp id-or-marker)
id-or-marker
(org-roam-id-find id-or-marker t strict))))
(org-goto-marker-or-bmk marker)
(set-marker marker nil)))
(defun org-roam-open-id-at-point ()
"Open link, timestamp, footnote or tags at point.
The function tries to open ID-links with Org-roam’s database
before falling back to the default behaviour of
`org-open-at-point'. It also asks the user whether to parse
`org-id-files' when an ID is not found because it might be a slow
process.
This function hooks into `org-open-at-point' via
`org-open-at-point-functions'."
(let* ((context (org-element-context))
(type (org-element-property :type context))
(id (org-element-property :path context)))
(when (string= type "id")
(cond ((org-roam-id-open id)
t)
;; Ask whether to parse `org-id-files'
((not (y-or-n-p (concat "ID was not found in `org-roam-directory' nor in `org-id-locations'.\n"
"Search in `org-id-files'? ")))
t)
;; Conditionally fall back to default behaviour
(t
nil)))))
;;; The global minor org-roam-mode ;;; The global minor org-roam-mode
(defun org-roam--find-file-hook-function () (defun org-roam--find-file-hook-function ()
"Called by `find-file-hook' when mode symbol `org-roam-mode' is on." "Called by `find-file-hook' when mode symbol `org-roam-mode' is on."
@ -957,7 +1086,8 @@ for Org-ref cite links."
(setq org-roam-last-window (get-buffer-window)) (setq org-roam-last-window (get-buffer-window))
(add-hook 'post-command-hook #'org-roam-buffer--update-maybe nil t) (add-hook 'post-command-hook #'org-roam-buffer--update-maybe nil t)
(add-hook 'after-save-hook #'org-roam-db--update-file nil t) (add-hook 'after-save-hook #'org-roam-db--update-file nil t)
(org-link-set-parameters "file" :face 'org-roam--roam-link-face :store #'org-roam-store-link) (org-link-set-parameters "file" :face 'org-roam--roam-file-link-face :store #'org-roam-store-link-file)
(org-link-set-parameters "id" :face 'org-roam--roam-id-link-face)
(org-roam-buffer--update-maybe :redisplay t))) (org-roam-buffer--update-maybe :redisplay t)))
(defun org-roam--delete-file-advice (file &optional _trash) (defun org-roam--delete-file-advice (file &optional _trash)
@ -1042,12 +1172,19 @@ replaced links are made relative to the current buffer."
(new-slug (or (car (org-roam-db--get-titles old-path)) (new-slug (or (car (org-roam-db--get-titles old-path))
(org-roam--path-to-slug new-path))) (org-roam--path-to-slug new-path)))
(new-desc (org-roam--format-link-title new-slug)) (new-desc (org-roam--format-link-title new-slug))
(new-buffer (or (find-buffer-visiting new-path)
(find-file-noselect new-path)))
(files-to-rename (org-roam-db-query [:select :distinct [from] (files-to-rename (org-roam-db-query [:select :distinct [from]
:from links :from links
:where (= to $s1) :where (= to $s1)
:and (= type $s2)] :and (= type $s2)]
old-path old-path
"roam"))) "file")))
;; Remove database entries for old-file.org
(org-roam-db--clear-file old-file)
;; Insert new headlines locations in new-file.org after removing the previous IDs
(with-current-buffer new-buffer
(org-roam-db--update-headlines))
;; Replace links from old-file.org -> new-file.org in all Org-roam files with these links ;; Replace links from old-file.org -> new-file.org in all Org-roam files with these links
(mapc (lambda (file) (mapc (lambda (file)
(setq file (if (string-equal (file-truename (car file)) old-path) (setq file (if (string-equal (file-truename (car file)) old-path)
@ -1056,14 +1193,11 @@ replaced links are made relative to the current buffer."
(org-roam--replace-link file old-path new-path old-desc new-desc) (org-roam--replace-link file old-path new-path old-desc new-desc)
(org-roam-db--update-file file)) (org-roam-db--update-file file))
files-to-rename) files-to-rename)
;; Remove database entries for old-file.org
(org-roam-db--clear-file old-file)
;; If the new path is in a different directory, relative links ;; If the new path is in a different directory, relative links
;; will break. Fix all file-relative links: ;; will break. Fix all file-relative links:
(unless (string= (file-name-directory old-path) (unless (string= (file-name-directory old-path)
(file-name-directory new-path)) (file-name-directory new-path))
(with-current-buffer (or (find-buffer-visiting new-path) (with-current-buffer new-buffer
(find-file-noselect new-path))
(org-roam--fix-relative-links old-path) (org-roam--fix-relative-links old-path)
(save-buffer))) (save-buffer)))
(org-roam-db--update-file new-path))))) (org-roam-db--update-file new-path)))))
@ -1084,7 +1218,9 @@ When called from Lisp, enable `org-roam-mode' if ARG is omitted,
nil, or positive. If ARG is `toggle', toggle `org-roam-mode'. nil, or positive. If ARG is `toggle', toggle `org-roam-mode'.
Otherwise, behave as if called interactively." Otherwise, behave as if called interactively."
:lighter " Org-roam" :lighter " Org-roam"
:keymap (let ((map (make-sparse-keymap))) map) :keymap (let ((map (make-sparse-keymap)))
(define-key map [remap org-store-link] 'org-roam-store-link)
map)
:group 'org-roam :group 'org-roam
:require 'org-roam :require 'org-roam
:global t :global t
@ -1096,12 +1232,14 @@ Ensure it is installed and can be found within `exec-path'. \
M-x info for more information at Org-roam > Installation > Post-Installation Tasks.")) M-x info for more information at Org-roam > Installation > Post-Installation Tasks."))
(add-hook 'find-file-hook #'org-roam--find-file-hook-function) (add-hook 'find-file-hook #'org-roam--find-file-hook-function)
(add-hook 'kill-emacs-hook #'org-roam-db--close-all) (add-hook 'kill-emacs-hook #'org-roam-db--close-all)
(add-hook 'org-open-at-point-functions #'org-roam-open-id-at-point)
(advice-add 'rename-file :after #'org-roam--rename-file-advice) (advice-add 'rename-file :after #'org-roam--rename-file-advice)
(advice-add 'delete-file :before #'org-roam--delete-file-advice) (advice-add 'delete-file :before #'org-roam--delete-file-advice)
(org-roam-db-build-cache)) (org-roam-db-build-cache))
(t (t
(remove-hook 'find-file-hook #'org-roam--find-file-hook-function) (remove-hook 'find-file-hook #'org-roam--find-file-hook-function)
(remove-hook 'kill-emacs-hook #'org-roam-db--close-all) (remove-hook 'kill-emacs-hook #'org-roam-db--close-all)
(remove-hook 'org-open-at-point-functions #'org-roam-open-id-at-point)
(advice-remove 'rename-file #'org-roam--rename-file-advice) (advice-remove 'rename-file #'org-roam--rename-file-advice)
(advice-remove 'delete-file #'org-roam--delete-file-advice) (advice-remove 'delete-file #'org-roam--delete-file-advice)
(org-roam-db--close-all) (org-roam-db--close-all)