diff options
| author | Yuchen Pei <id@ypei.org> | 2025-02-09 10:53:39 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-02-09 10:53:39 +1100 |
| commit | 71021e3085f8f17adeffd03c28c9b6ded42b5051 (patch) | |
| tree | 4e0e2bb8048fa98d266cd121441f6cb62f4c7e74 /emacs/.emacs.d/lisp/my/infobox.el | |
| parent | 1302f96df75f4f93247beaafee0b0a780829be18 (diff) | |
[emacs] belf mode show book cover in the infobox
Diffstat (limited to 'emacs/.emacs.d/lisp/my/infobox.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/infobox.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/emacs/.emacs.d/lisp/my/infobox.el b/emacs/.emacs.d/lisp/my/infobox.el index 2a17dc9..0e5e054 100644 --- a/emacs/.emacs.d/lisp/my/infobox.el +++ b/emacs/.emacs.d/lisp/my/infobox.el @@ -70,8 +70,12 @@ something like ;; TODO: use a more standard function than ;; `my-make-filename-from-url' (when-let* ((thumb-url (alist-get "Thumbnail" info nil nil 'equal)) - (file-name (make-temp-name "/tmp/infobox-"))) - (url-copy-file thumb-url file-name t) + (file-name + (if (string-prefix-p "file://" thumb-url) + (string-remove-prefix "file://" thumb-url) + (make-temp-name "/tmp/infobox-")))) + (unless (string-prefix-p "file://" thumb-url) + (url-copy-file thumb-url file-name t)) (insert-image (create-image file-name nil nil :max-width (window-pixel-width) :max-height (/ (window-pixel-height) 2))) |