diff options
| m--------- | emacs/.emacs.d/lisp/exitter | 0 | ||||
| m--------- | emacs/.emacs.d/lisp/hmm.el | 0 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/infobox.el | 7 |
3 files changed, 7 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/exitter b/emacs/.emacs.d/lisp/exitter -Subproject 84e024f1ae7944da1de79f71fee290cd73df11c +Subproject 9af8216d544169f5385b32c73c8cd29c5cef9d2 diff --git a/emacs/.emacs.d/lisp/hmm.el b/emacs/.emacs.d/lisp/hmm.el -Subproject a0660da71f9aef8909973e9fd44b5eb34db0386 +Subproject 318723000cad21c0134eefd33e310b953ddbbe7 diff --git a/emacs/.emacs.d/lisp/my/infobox.el b/emacs/.emacs.d/lisp/my/infobox.el index 2c33ae9..036cee8 100644 --- a/emacs/.emacs.d/lisp/my/infobox.el +++ b/emacs/.emacs.d/lisp/my/infobox.el @@ -97,6 +97,13 @@ something like (infobox-render-string (with-temp-buffer (call-process "exiftool" nil t nil filename) + (goto-char (point-min)) + (flush-lines "ExifTool Version") + (end-of-line) + (insert " -- " (buttonize + "xdg-open" + (lambda (_) + (call-process "xdg-open" nil 0 nil filename)))) (buffer-string)) `(infobox-exiftool ,filename) (called-interactively-p 'interactive) |