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

Give appropriate name to backlink button object

Browse source
This commit is contained in:
Protesilaos Stavrou 2022-06-19 16:46:17 +03:00
parent 855c677724
commit efd9d537cd
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
denote-link.el
View file

@ -192,7 +192,7 @@ format is always [[denote:IDENTIFIER]]."
;;;; Backlinks' buffer ;;;; Backlinks' buffer
(define-button-type 'denote-link-find-file (define-button-type 'denote-link-backlink-button
'follow-link t 'follow-link t
'action #'denote-link--find-file 'action #'denote-link--find-file
'face 'unspecified) 'face 'unspecified)
@ -230,7 +230,7 @@ Use optional TITLE for a prettier heading."
(insert (format "%s\n%s\n\n" heading (make-string l ?-)))) (insert (format "%s\n%s\n\n" heading (make-string l ?-))))
(mapc (lambda (f) (mapc (lambda (f)
(insert (file-name-nondirectory f)) (insert (file-name-nondirectory f))
(make-button (point-at-bol) (point-at-eol) :type 'denote-link-find-file) (make-button (point-at-bol) (point-at-eol) :type 'denote-link-backlink-button)
(newline)) (newline))
files) files)
(goto-char (point-min)) (goto-char (point-min))