- [gemini] changed animation when streaming data.

etc/default-theme.conf

@@ -508,7 +508,7 @@ open-message-link-window.input.selected.foreground   = #FF00FF
 
 # gemini browser
 
-gemini.downloading                                   = "⮘ ⮙ ⮚ ⮛"
+gemini.downloading.animation                         = "🕐 🕑 🕒 🕓 🕔 🕕 🕖 🕗 🕘 🕙 🕚 🕛"
 
 gemini.favicon                                       = "🌍"
 

src/message-window.lisp

@@ -202,7 +202,7 @@
   (declare (fixnum index frames slowness))
   (defun draw-downloading-animation (window)
     (declare (optimize (debug 0) (speed 2)))
-    (let* ((animation-frames (swconf:gemini-downloading))
+    (let* ((animation-frames (swconf:gemini-downloading-animation))
            (max              (length (the list animation-frames))))
       (print-text window
                   (elt animation-frames index)

src/package.lisp

@@ -1111,7 +1111,7 @@
    :perform-missing-value-check
    :load-config-file
    :external-editor
-   :gemini-downloading
+   :gemini-downloading-animation
    :gemini-default-favicon
    :directory-symbol
    :gemini-fetch-favicon-p

src/software-configuration.lisp

@@ -401,6 +401,7 @@
                    height
                    position
                    downloading
+                   animation
                    x
                    y
                    error
@@ -563,10 +564,11 @@
                           (access-key->user-directive keys))))
         value)))
 
-(defun gemini-downloading ()
+(defun gemini-downloading-animation ()
   (let ((animation (access-non-null-conf-value *software-configuration*
                                                +key-gemini+
-                                               +key-downloading+)))
+                                               +key-downloading+
+                                               +key-animation+)))
     (text-utils:split-words animation)))
 
 (defun gemini-default-favicon ()
@@ -1235,6 +1237,7 @@
 
 (defun trivial-configuration-missing-value-check ()
   (loop for fn in (list
+                   #'gemini-downloading-animation
                    #'gemini-default-favicon
                    #'gemini-link-prefix-to-gemini
                    #'gemini-link-prefix-to-other