diff --git a/main.janet b/main.janet index 734fa38..403b7ae 100644 --- a/main.janet +++ b/main.janet @@ -1,29 +1,17 @@ (def logo ` -▓█████▄ ▒█████ ██▀███ ▒█████ -▒██▀ ██▌▒██▒ ██▒▓██ ▒ ██▒▒██▒ ██▒ -░██ █▌▒██░ ██▒▓██ ░▄█ ▒▒██░ ██▒ -░▓█▄ ▌▒██ ██░▒██▀▀█▄ ▒██ ██░ -░▒████▓ ░ ████▓▒░░██▓ ▒██▒░ ████▓▒░ - ▒▒▓ ▒ ░ ▒░▒░▒░ ░ ▒▓ ░▒▓░░ ▒░▒░▒░ - ░ ▒ ▒ ░ ▒ ▒░ ░▒ ░ ▒░ ░ ▒ ▒░ - ░ ░ ░ ░ ░ ░ ▒ ░░ ░ ░ ░ ░ ▒ - ░ ░ ░ ░ ░ ░ - ░ + ______ _____ ______ _____ + | \ | | |_____/ | | + |_____/ |_____| | \_ |_____| + `) (def bye ` - ▄▄▄▄ ▓██ ██▓▓█████ -▓█████▄▒██ ██▒▓█ ▀ -▒██▒ ▄██▒██ ██░▒███ -▒██░█▀ ░ ▐██▓░▒▓█ ▄ -░▓█ ▀█▓░ ██▒▓░░▒████▒ -░▒▓███▀▒ ██▒▒▒ ░░ ▒░ ░ -▒░▒ ░▓██ ░▒░ ░ ░ ░ - ░ ░▒ ▒ ░░ ░ - ░ ░ ░ ░ ░ - ░░ ░ + ______ __ __ _______ + |_____] \_/ |______ + |_____] | |______ + `) (def dorodata "dorodata") @@ -70,6 +58,15 @@ (string/split "\n") lines->entries))) +(defn load-entries-sorted [] + (sorted (load-entries) + (fn [a b] + (some true? + (map (fn [int-a int-b] + (> int-a int-b)) + (string/bytes (a :prio)) + (string/bytes (b :prio))))))) + (defn entries->string [entries] (reduce (fn [acc entry] (string acc @@ -116,7 +113,7 @@ :clear "\e[0m"}) (defn overview [] - (let [entries (load-entries) + (let [entries (load-entries-sorted) len-id (max (col-length entries :id) (length "Id")) len-title (max (col-length entries :title)