1 files changed, 73 insertions, 2 deletions
diff --git a/emacs/.emacs.d/lisp/my/infobox.el b/emacs/.emacs.d/lisp/my/infobox.el
index 0b84810..518c7db 100644
--- a/emacs/.emacs.d/lisp/my/infobox.el
+++ b/emacs/.emacs.d/lisp/my/infobox.el
@@ -53,7 +53,6 @@ something like
 
 (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))
@@ -69,6 +68,78 @@ 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)
+     (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"))))
+
+(defun my-call-process-out (command &rest args)
+  (with-temp-buffer
+    (apply 'call-process (append (list command nil t nil) args))
+    (buffer-string)))
 
 (provide 'infobox)