emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add option to use simple heading links to denote-link-ol-store.

Browse source
This commit is contained in:
Michael Korat 2026-08-09 20:58:32 +02:00
parent 3718a60305
commit 9a354e4362
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
denote.el
View file

@ -485,6 +485,10 @@ and the text of the current heading, like this:
[[denote:20240118T060608::*Heading text][Some test::Heading text]]. [[denote:20240118T060608::*Heading text][Some test::Heading text]].
If the value is `local', the link consists of the text of the current heading, like this:
[[*Heading text][Heading text]].
However, if there already exists a CUSTOM_ID property for the current However, if there already exists a CUSTOM_ID property for the current
heading, this is always given priority and is used instead of the heading, this is always given priority and is used instead of the
context. context.
@ -529,6 +533,7 @@ navigates to that heading.
:package-version '(denote . "4.0.0") :package-version '(denote . "4.0.0")
:type '(choice (const :tag "No link to heading (default)" nil) :type '(choice (const :tag "No link to heading (default)" nil)
(const :tag "Link to the context" context) (const :tag "Link to the context" context)
(const :tag "Link to local heading" local)
(const :tag "Link wtih CUSTOM_ID, creating it if needed" id))) (const :tag "Link wtih CUSTOM_ID, creating it if needed" id)))
(defcustom denote-templates nil (defcustom denote-templates nil
@ -7028,8 +7033,11 @@ create a new one."
(org-get-heading :no-tags :no-todo :no-priority :no-comment)) (org-get-heading :no-tags :no-todo :no-priority :no-comment))
(defun denote-link-format-heading-description (file-text heading-text) (defun denote-link-format-heading-description (file-text heading-text)
"Return description for FILE-TEXT with HEADING-TEXT at the end." "Return description for FILE-TEXT with HEADING-TEXT at the end or
(format "%s::%s" file-text heading-text)) only HEADING-TEXT if `denote-org-store-link-to-heading' is set to `local' links."
(if (eq denote-org-store-link-to-heading 'local)
(format "%s" heading-text)
(format "%s::%s" file-text heading-text)))
;;;###autoload ;;;###autoload
(defun denote-link-ol-store (&optional _interactive?) (defun denote-link-ol-store (&optional _interactive?)
@ -7059,6 +7067,8 @@ Also see the user option `denote-org-store-link-to-heading'."
(format "denote:%s::#%s" file-id id))) (format "denote:%s::#%s" file-id id)))
((and heading-links (eq denote-org-store-link-to-heading 'context) heading) ((and heading-links (eq denote-org-store-link-to-heading 'context) heading)
(format "denote:%s::*%s" file-id heading)) (format "denote:%s::*%s" file-id heading))
((and heading-links (eq denote-org-store-link-to-heading 'local) heading)
(format "*%s" heading))
((and heading-links heading) ((and heading-links heading)
(format "denote:%s::#%s" file-id (denote-link-ol-get-id))) (format "denote:%s::#%s" file-id (denote-link-ol-get-id)))
(t (t