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

Merge pull request #723 from mkorat/main

Browse source 
Add option to use simple heading links to denote-link-ol-store.
This commit is contained in:
Protesilaos 2026-08-23 13:05:08 +03:00 committed by GitHub
parent 9ae9d0e1ea 9a354e4362
commit 5effab91ca
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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
@ -7041,8 +7046,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?)
@ -7072,6 +7080,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