Daniel Barlow
34fb1b2ff4
A completion is now a table with attributes :text, :widget, :value A completer returns an array of completions This means we can now render URL completions with the page title as well as the URL
59 lines
1.6 KiB
Fennel
59 lines
1.6 KiB
Fennel
(local { : view } (require :fennel))
|
|
|
|
(local Command (require :command))
|
|
|
|
(var happened false)
|
|
(fn before [] (set happened false))
|
|
|
|
(assert
|
|
(match (Command.completion { :text "foo" })
|
|
(where { : widget : text : value }
|
|
(= text "foo")
|
|
(= value "foo"))
|
|
true))
|
|
|
|
(Command.define-command
|
|
"no-args-command"
|
|
[]
|
|
#(set happened true))
|
|
|
|
(Command.define-command
|
|
"multiply"
|
|
[[:a #[(Command.completion {:text $1})] #"3"]
|
|
[:b #[(Command.completion {:text $1})] #"2"]]
|
|
(fn [{: a : b }] (set happened (* (tonumber a) (tonumber b)))))
|
|
|
|
(before)
|
|
(let [commander (Command.commander)
|
|
(ok err)
|
|
(match-try (commander:activate)
|
|
{:active true} (commander:on-input-finished "not-a-command")
|
|
(where {:error e :active false} (e:match "can't find command")) true
|
|
(catch
|
|
x (values nil (view x))))]
|
|
(assert ok err))
|
|
|
|
(before)
|
|
(let [commander (Command.commander)
|
|
(ok err)
|
|
(match-try (commander:activate)
|
|
{:active true} (commander:on-input-finished "multiply")
|
|
{:active true :prompt p1} (commander:on-input-finished "2")
|
|
{:active true :prompt p2} (commander:on-input-finished "3")
|
|
(where {:active false} (= happened 6)) true
|
|
(catch
|
|
x (values nil (view x))))]
|
|
(assert ok err))
|
|
|
|
(before)
|
|
(let [commander (Command.commander)
|
|
(ok err)
|
|
(match
|
|
(commander:invoke-interactively
|
|
"multiply"
|
|
{:a #"7" :b #"9"})
|
|
(where {:active false} (= happened 63)) true
|
|
x (values nil (.. "wrong answer " (view x) " " (view happened)))
|
|
nil (values nil "???"))]
|
|
(assert ok err))
|