Add spinners

README.org

@@ -7,6 +7,7 @@ Fancy pretty-printing utilities for [[https://cons.io/][Gerbil Scheme]].
 - [[https://en.wikipedia.org/wiki/ANSI_escape_code#CSI_(Control_Sequence_Introducer)_sequences][ANSI control codes]] for styling and cursor movement
 - Table formatting with [[https://unicode-table.com/en/blocks/box-drawing/][Unicode box drawing characters]]
 - Horizontal rules
+- Spinners
 
 ** References
 

build.ss

@@ -5,5 +5,6 @@
 (defbuild-script
   '("fancy/format"
     "fancy/table"
-    "fancy/rule")
+    "fancy/rule"
+    "fancy/spinner")
   optimize: #t)

fancy/format.ss

@@ -14,8 +14,7 @@
 	set-graphics-mode
 	set-color
 	parse-markup
-	remove-markup
-	spinner)
+	remove-markup)
 
 (import :std/format
 	:std/pregexp
@@ -93,14 +92,3 @@
 
 (def (remove-markup text)
   (pregexp-replace* +re-tags+ text ""))
-
-(def (spinner i style: (style 'ascii))
-  (str (cursor-back 2)
-       (match style
-	 ('block (string-ref "▖▘▝▗" (modulo i 4)))
-	 ('triangle (string-ref "◢◣◤◥" (modulo i 4)))
-	 ('circle (string-ref "◐◓◑◒" (modulo i 4)))
-	 ('vertical (string-ref "▁▃▄▅▆▇█▇▆▅▄▃" (modulo i 12)))
-	 ('horizontal (string-ref "▉▊▋▌▍▎▏▎▍▌▋▊▉" (modulo i 12)))
-	 ('ascii (string-ref "|/-\\" (modulo i 4))))
-       " "))

fancy/spinner.ss

@@ -0,0 +1,23 @@
+(export spinner)
+
+(import :std/misc/string
+	:dlozeve/fancy/format)
+
+(def +spinner-styles+
+  '((dots . "⠋⠙⠹⠸⠼⠴⠦⠧⠇⠏")
+    (block . "▖▘▝▗")
+    (triangle . "◢◣◤◥")
+    (circle . "◐◓◑◒")
+    (vertical . "▁▃▄▅▆▇█▇▆▅▄▃")
+    (horizontal . "▉▊▋▌▍▎▏▎▍▌▋▊▉")
+    (ascii . "|/-\\")))
+
+(def (spinner i text-before text-after style: (style 'dots))
+  (def spinner-chars (assgetq style +spinner-styles+))
+  (str (cursor-up 1)
+       (parse-markup text-before)
+       " "
+       (string-ref spinner-chars (modulo i (string-length spinner-chars)))
+       " "
+       (parse-markup text-after)
+       "\n"))