new logos, sorted entries

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)