branch: elpa/pdf-tools
commit 1266dd817965c6060b2f7cb70d6ef094d3f057d5
Author: Aidan Hall <[email protected]>
Commit: GitHub <[email protected]>
feat: add pdf-metadata-buffer-mode
This makes the metadata buffer consistent with the annotations and
outline buffer in having its own major mode, derived from
special-mode.
I mainly created this because it bugged me that I couldn't press q to
close the metadata buffer.
---
lisp/pdf-misc.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/lisp/pdf-misc.el b/lisp/pdf-misc.el
index bcba8aeabcd..229300f182a 100644
--- a/lisp/pdf-misc.el
+++ b/lisp/pdf-misc.el
@@ -212,6 +212,9 @@
(lookup-key pdf-misc-menu-bar-minor-mode-map
[menu-bar pdf\ tools]))))))
+(define-derived-mode pdf-metadata-buffer-mode special-mode "PDF Metadata"
+ "View and traverse the metadata of a PDF file.")
+
(defun pdf-misc-display-metadata ()
"Display all available metadata in a separate buffer."
(interactive)
@@ -219,6 +222,8 @@
(let* ((buffer (current-buffer))
(md (pdf-info-metadata)))
(with-current-buffer (get-buffer-create "*PDF-Metadata*")
+ (unless (derived-mode-p 'pdf-metadata-buffer-mode)
+ (pdf-metadata-buffer-mode))
(let* ((inhibit-read-only t)
(pad (apply' max (mapcar (lambda (d)
(length (symbol-name (car d))))
