1 files changed, 103 insertions, 3 deletions

diff --git a/emacs/.emacs.d/lisp/my/infobox.el b/emacs/.emacs.d/lisp/my/infobox.el
index 0b84810..ff4adb6 100644
--- a/emacs/.emacs.d/lisp/my/infobox.el
+++ b/emacs/.emacs.d/lisp/my/infobox.el
@@ -27,6 +27,17 @@
 ;;; Code:
 
 
+(defun infobox-transform-field-value (v)
+  (cond ((stringp v) v)
+        ((eq v t) "YES")
+        ((eq v :json-false) "NO")
+        ((seqp v)
+         (mapconcat
+          (lambda (x) (if (stringp x) x (prin1-to-string x)))
+          v
+          ", "))
+        (t (format "%s" v))))
+
 (defun infobox-default-specs (info)
   (seq-map
    (lambda (pair)
@@ -47,16 +58,31 @@ something like
    (lambda (pair)
      (when-let ((val (alist-get (car pair) info)))
        (if (or (stringp (cdr pair)) (symbolp (cdr pair)))
-           (cons (cdr pair) val)
+           (cons (cdr pair) (infobox-transform-field-value val))
          (cons (cadr pair) (funcall (cddr pair) val)))))
    specs))
 
 (defun infobox-render (info item &optional interactive-p)
   "Render and display a help buffer of INFO."
-  (help-setup-xref item interactive-p)
   (with-help-window "*infobox*"
     (with-current-buffer standard-output
       (let ((n-rows 0))
+        ;; 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
+                     (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)))
+          (insert "\n")
+          (setq n-rows (1+ n-rows))
+          (setq info (assoc-delete-all "Thumbnail" info))
+          )
         (seq-do
          (lambda (pair)
            (when pair
@@ -69,6 +95,80 @@ something like
          (point-min)
          (progn (goto-line (1+ n-rows)) (point))
          "\\(\\s-*\\):"))
-      (visual-line-mode))))
+      (visual-line-mode)))
+  (with-current-buffer "*infobox*"
+    (let ((help-xref-following t))
+      (help-setup-xref item interactive-p)
+      )))
+
+(defun infobox-render-string (text item &optional interactive-p)
+  (help-setup-xref item interactive-p)
+  (with-help-window "*infobox*"
+    (with-current-buffer standard-output
+      (insert text)
+      (visual-line-mode)))
+  (with-current-buffer "*infobox*"
+    (let ((help-xref-following t))
+      (help-setup-xref item interactive-p)
+      )))
+
+(defun infobox-exiftool (filename)
+  (interactive (list (expand-file-name (read-file-name "infobox exiftool: "))))
+  (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)))
+             " " (buttonize "find-file" (lambda (_) (find-file filename))))
+     (buffer-string))
+   `(infobox-exiftool ,filename)
+   (called-interactively-p 'interactive)
+   ))
+
+(defun infobox-pacman (package-name)
+  (interactive (list (completing-read
+                      "pacman package: "
+                      (infobox-pacman-installed-packages)
+                      nil
+                      t)))
+  (infobox-render-string
+   (with-temp-buffer
+     (call-process "pacman" nil t nil "-Qi" package-name)
+     (buffer-string))
+   `(infobox-pacman ,package-name)
+   (called-interactively-p 'interactive)
+   ))
+
+(defun infobox-pacman-installed-packages ()
+  "Returns list of installed packages."
+  (with-temp-buffer
+    (call-process "pacman" nil t nil "-Qq")
+    (split-string (buffer-string) "\n")))
+
+(defun infobox-calibre (book-id)
+  (interactive (list (car (split-string
+                           (completing-read
+                            "calibre book: "
+                            (infobox-calibre-books)
+                            nil
+                            t)
+                           " "))))
+  (infobox-render-string
+   (with-temp-buffer
+     (call-process "calibredb" nil t nil "show_metadata" book-id)
+     (buffer-string))
+   `(infobox-calibre ,book-id)
+   (called-interactively-p 'interactive)))
+
+(defun infobox-calibre-books ()
+  (with-temp-buffer
+    (call-process "calibredb" nil t nil "list")
+    (seq-filter
+     (lambda (line) (string-match-p "^[0-9]" line))
+     (split-string (buffer-string) "\n"))))
 
 (provide 'infobox)