From 618fe180a68331ddf58b2a9679f2f6a088d9fecd Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 2 Feb 2025 13:36:38 +1100 Subject: [emacs] Add commands to belf to display book info and open a book --- emacs/.emacs.d/lisp/my/infobox.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'emacs/.emacs.d/lisp/my/infobox.el') diff --git a/emacs/.emacs.d/lisp/my/infobox.el b/emacs/.emacs.d/lisp/my/infobox.el index 5698042..9c5c7b1 100644 --- a/emacs/.emacs.d/lisp/my/infobox.el +++ b/emacs/.emacs.d/lisp/my/infobox.el @@ -113,8 +113,8 @@ something like (end-of-line) (insert " -- " (buttonize "xdg-open" - (lambda (_) - (call-process "xdg-open" nil 0 nil filename)))) + (lambda (_) (call-process "xdg-open" nil 0 nil filename))) + " " (buttonize "find-file" (lambda (_) (find-file filename)))) (buffer-string)) `(infobox-exiftool ,filename) (called-interactively-p 'interactive) -- cgit v1.2.3