@@ -95,8 +95,24 @@

                                           :selected-history {:orig orig

                                                              :index (next idx)}})))

+(defn cycle-suggestions [cmd direction]

+  (let [{:keys [options selected]} (cmd :suggestions)

+        next (case direction :backward dec :forward inc)

+        nopts (count options)

+        next-selected (cond

+                        (nil? selected)     0

+                        (>= (next selected) nopts) 0

+                        (< (next selected) 0) (- nopts 1)

+                        :else               (next selected))]

+    (when (not-empty options)

+      {:suggestions {:options options :selected next-selected}})))

+

 (def null-suggestions {:options nil :selected nil})

+(defn complete-suggestion [{:keys [suggestions]}]

+  (let [{:keys [options selected]} suggestions]

+    {:current (nth options selected) :suggestions null-suggestions}))

+

 (re-frame/reg-event-db

  ::prompt-keypress

  (re-frame/path :cmdline)