fix col-length

main.janet

@@ -99,10 +99,10 @@
       save-entries))
 
 (defn col-length [entries col]
-  (or 0
+  (or (max ;(map (fn [entry]
-      (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")