- [GUI] added visual hint that the process of inlining an image is in progress.

src/gui/client/gui-goodies.lisp

@@ -93,8 +93,8 @@
 
 (defmacro with-busy* ((root-widget) &body body)
   `(progn
-     (with-busy (,root-widget)
+     (gui:with-busy (,root-widget)
-       (with-hourglass ,(list root-widget)
+       (gui:with-hourglass ,(list root-widget)
          ,@body))))
 
 (defun password-dialog (parent title message &key (button-message "OK"))

src/gui/client/main-window.lisp

@@ -407,8 +407,10 @@
                :inline-image))
            (open-inline-callback ()
              (if (inline-possible-p link-value)
-                 (let* ((file-path   (slurp-iri main-window link-value))
+                 (let ((file-path nil))
-                        (image       (gui:make-image file-path))
+                   (gui-goodies:with-busy* (main-window)
+                     (setf file-path (slurp-iri main-window link-value)))
+                   (let ((image       (gui:make-image file-path))
                          (coordinates `(+ (:line ,line-count :char 0) 1 :lines)))
                      (gui:insert-image (gemtext-widget main-window) image coordinates)
                      (with-accessors ((ir-lines          ir-lines)
@@ -423,7 +425,7 @@
                          (setf ir-rendered-lines
                                (fresh-vector-insert@ ir-lines
                                                      ""
-                                                   line-count)))))
+                                                     line-count))))))
                  (funcall (link-click-mouse-1-callback-clsr link-value main-window)))))
     (lambda ()
       (let* ((popup-menu (gui:make-menu nil (_"link menu")))