]> code.bitgloo.com Git - clyne/lemmold.git/commitdiff
remember instance choice for prompt
authorClyne Sullivan <clyne@bitgloo.com>
Sat, 15 Jul 2023 12:43:16 +0000 (08:43 -0400)
committerClyne Sullivan <clyne@bitgloo.com>
Sat, 15 Jul 2023 12:43:16 +0000 (08:43 -0400)
src/lemmold/core.clj

index ab366d4061b506c2504b891b091e763037b87354..b235924f29daa0ffe2cf9f3cb72e657b7519c713 100644 (file)
   (flush)
   (read-line))
 
-(defn show-instance-prompt []
-  (printf "Enter instance name [%s]: " DEFAULT-INSTANCE)
+(defn show-instance-prompt [current]
+  (printf "Enter instance name [%s]: " current)
   (flush)
-  (let [inst (read-line)] (if (empty? inst) DEFAULT-INSTANCE inst)))
+  (let [inst (read-line)] (if (empty? inst) current inst)))
 
 (defn view-post
   "Main loop for viewing a post and its comments."
   "Updates state for viewing a different instance."
   [state]
   (-> state
-      (assoc :instance (show-instance-prompt))
+      (assoc :instance (show-instance-prompt (:instance state)))
       (change-community)))
 
 (defn view-page
 (defn -main [& args]
   (println "Welcome to lemmold, your old-school Lemmy browser!")
   (println)
-  (let [instance (show-instance-prompt)
+  (let [instance (show-instance-prompt DEFAULT-INSTANCE)
         community (show-community-prompt)]
     (view-page instance community))
   (println "Goodbye.")