From a25a12598a6f099ea424898f26d62b9d584ec123 Mon Sep 17 00:00:00 2001 From: Josha von Gizycki Date: Tue, 27 Aug 2019 09:04:10 +0200 Subject: [PATCH] fix col-length --- main.janet | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/main.janet b/main.janet index b05bf32..220f971 100644 --- 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")