From c1c32688a4afc43f6addb99b8b5fa878944a70e3 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 14 Jan 2019 15:42:48 -0800
Subject: Overhaul in progress, mostly working. Moved all the nomsu packages
 into lib/, including core/*. Changes to how nomsu environments and importing
 work.

---
 lib/progressbar/init.nom | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 lib/progressbar/init.nom

(limited to 'lib/progressbar/init.nom')

diff --git a/lib/progressbar/init.nom b/lib/progressbar/init.nom
new file mode 100644
index 0000000..a7ff5aa
--- /dev/null
+++ b/lib/progressbar/init.nom
@@ -0,0 +1,16 @@
+# A progress bar
+
+externally ($x / $w progress bar) means:
+    $x = ($x clamped between 0 and $w)
+    $bits = [" ", "▏", "▎", "▍", "▌", "▋", "▊", "▉", "█"]
+    $middle =
+        "" if ($x == $w) else
+            $bits.(1 + (floor ((#$bits) * ($x mod 1))))
+    
+    return ("
+        \027[32;40m\($bits, last, rep (floor $x))\$middle\
+        ..\(" ", rep ($w - ((floor $x) + 1)))\027[0m
+    ")
+    
+externally ($w wide $ progress bar) means
+    ($ * $w) / $w progress bar
-- 
cgit v1.2.3