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

Make obsolete methods for buttonizing links

Browse source 
This builds on top of the new fontification feature provided by Abdul-Lateef Haji-Ali in
pull request 344 (commit 4d12452): <https://github.com/protesilaos/denote/pull/344>.

I still need to update the manual accordingly.
This commit is contained in:
Protesilaos Stavrou 2024-06-19 09:16:31 +03:00
parent 2b06213c3e
commit ca79f359ff
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 8 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
denote.el
View file

@ -4202,45 +4202,15 @@ file's title. This has the same meaning as in `denote-link'."
(file (denote-get-path-by-id id)))
(funcall denote-link-button-action file)))
;;;###autoload
(defun denote-link-buttonize-buffer (&optional beg end)
"Make denote: links actionable buttons in the current buffer.
(make-obsolete
'denote-link-buttonize-buffer
'denote-fontify-links-mode
"Use the `denote-fontify-links-mode', as it works better than buttonization. Since 3.0.0")
Buttonization applies to the plain text and Markdown file types,
per the user option `denote-file-types'. It will not do anything
in `org-mode' buffers, as buttons already work there. If you do
not use Markdown or plain text, then you do not need this.
Links work when they point to a file inside the variable
`denote-directory'.
To buttonize links automatically add this function to the
`find-file-hook'. Or call it interactively for on-demand
buttonization.
When called from Lisp, with optional BEG and END as buffer
positions, limit the process to the region in-between."
(interactive)
(when (and (not (derived-mode-p 'org-mode))
buffer-file-name
(denote-file-has-identifier-p buffer-file-name))
(save-excursion
(goto-char (or beg (point-min)))
(while (re-search-forward denote-id-regexp end t)
(when-let ((string (denote-link--link-at-point-string))
(beg (match-beginning 0))
(end (match-end 0)))
(make-button beg end 'type 'denote-link-button))))))
(defun denote-link-markdown-follow (link)
"Function to open Denote file present in LINK.
To be assigned to `markdown-follow-link-functions'."
(when (ignore-errors (string-match denote-id-regexp link))
(funcall denote-link-button-action
(denote-get-path-by-id (match-string 0 link)))))
(eval-after-load 'markdown-mode
'(add-hook 'markdown-follow-link-functions #'denote-link-markdown-follow))
(make-obsolete
'denote-link-markdown-follow
'denote-fontify-links-mode
"Use the `denote-fontify-links-mode', as it works better than buttonization. Since 3.0.0")
;;;;; Link fontification
(defvar denote-link-mouse-map