94 lines
2.2 KiB
Fennel
94 lines
2.2 KiB
Fennel
(local { : Gtk } (require :lgi))
|
|
(local { : view } (require :fennel))
|
|
|
|
(local commands {})
|
|
(local Buffer (require :buffer))
|
|
|
|
(fn define-command [name function params]
|
|
;; required parameter names and default arguments
|
|
(let [v {:name name :function function :params params}]
|
|
(tset commands name v)))
|
|
|
|
(define-command
|
|
"quit-browser"
|
|
#(Gtk.main_quit) {})
|
|
|
|
(define-command
|
|
"visit-location"
|
|
(fn [{:url url :buffer buffer}]
|
|
(let [b (Buffer.find buffer)] (: b :visit url)))
|
|
{:buffer (fn [] (. (Buffer.current) :name))
|
|
:url #(do "http://www.example.com")
|
|
})
|
|
|
|
(fn find-command [name]
|
|
(. commands name))
|
|
|
|
(local default-state {
|
|
:active true
|
|
:command nil
|
|
:collected-params {}
|
|
:this-param nil
|
|
})
|
|
|
|
(var state default-state)
|
|
(fn reset-state []
|
|
(set state default-state))
|
|
|
|
(fn next-param [command params]
|
|
(accumulate [v nil
|
|
k _ (pairs command.params)
|
|
&until v]
|
|
(if (. params k) nil k)))
|
|
|
|
(fn invoke-command [command params]
|
|
(command.function params))
|
|
|
|
(fn next-action [state input-string]
|
|
(let [state-for-next-param
|
|
(fn [c params]
|
|
(match (next-param c params)
|
|
k1 {
|
|
:command c
|
|
:this-param k1
|
|
:collected-params params
|
|
:active true
|
|
}
|
|
_ (do (invoke-command c params) {:active false})))]
|
|
|
|
(match state
|
|
{:active false} state
|
|
|
|
{:command nil}
|
|
(match (find-command input-string)
|
|
{: name : params &as c}
|
|
(state-for-next-param c {})
|
|
|
|
nil
|
|
{
|
|
:active false
|
|
:error (.. "can't find command " input-string)
|
|
})
|
|
|
|
{:command c :this-param k :collected-params p}
|
|
(do
|
|
(tset p k input-string)
|
|
(state-for-next-param c p))
|
|
_
|
|
(do (print "unexpected state " (view state))
|
|
state)
|
|
)))
|
|
|
|
(fn on-input [str]
|
|
(let [s (next-action state str)
|
|
param (if s.active (. (. s.command :params) s.this-param))]
|
|
(set state s)
|
|
{
|
|
:active s.active
|
|
:error s.error
|
|
:prompt (or s.this-param "")
|
|
:default (and param (param))
|
|
}))
|
|
|
|
{ : define-command : on-input : reset-state }
|