[elpa] externals/denote 5bd454c26a 2/2: Add a major mode for backlink buffers

[ELPA Syncer]

branch: externals/denote
commit 5bd454c26a7cfee08f6e6a854e37ff4ae1ca0530
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add a major mode for backlink buffers
    
    * denote.el (denote-backlink-mode-map): Add new map for 
'denote-backlink-mode'.
    (denote-backlink-mode): Add new mode that derives from 'special-mode'.
    (denote-link--prepare-backlinks): Use 'denote-backlink-mode'.
---
 denote.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 0357789f66..791145acc1 100644
--- a/denote.el
+++ b/denote.el
@@ -1895,6 +1895,16 @@ Expand `denote-link-backlinks-display-buffer-action'."
    buf
    `(,@denote-link-backlinks-display-buffer-action)))
 
+(defvar denote-backlink-mode-map
+  (let ((m (make-sparse-keymap)))
+    (define-key m "n" #'forward-button)
+    (define-key m "p" #'backward-button)
+    m)
+  "Keymap for `denote-backlink-mode'.")
+
+(define-derived-mode denote-backlink-mode special-mode "Backlinks"
+  "Major mode for backlinks buffers.")
+
 (defun denote-link--prepare-backlinks (id files &optional title)
   "Create backlinks' buffer for ID including FILES.
 Use optional TITLE for a prettier heading."
@@ -1903,7 +1913,7 @@ Use optional TITLE for a prettier heading."
     (with-current-buffer (get-buffer-create buf)
       (setq-local default-directory (denote-directory))
       (erase-buffer)
-      (special-mode)
+      (denote-backlink-mode)
       (goto-char (point-min))
       (when-let* ((title)
                   (heading (format "Backlinks to %S (%s)" title id))