fix col-length

5 years ago · a25a12598a
parent 7ac88d2331
commit a25a12598a
1 changed files with 5 additions and 4 deletions
--- a/main.janet
+++ b/main.janet
@ -99,10 +99,10 @@
      save-entries))

 (defn col-length [entries col]
-  (or 0
-      (max ;(map (fn [entry]
+  (or (max ;(map (fn [entry]
                   (length (entry col)))
-                 entries))))
+                 entries))
+      0))

 (def vt100-codes
  {:underlined "\e[4m"
@ -133,7 +133,8 @@
             " "
             title (spaces (length title) len-title)
             (vt100-codes :clear))
-      (set ix (inc ix)))))
+      (set ix (inc ix))))
+  (print))

 (defn rm []
  (let [id (request-val "Id")