diff --git a/buffer.fnl b/buffer.fnl index dfd2448..784f1c2 100644 --- a/buffer.fnl +++ b/buffer.fnl @@ -24,6 +24,7 @@ })] {:webview widget :name name + :location #(widget:get_uri) :visit (fn [self u] (widget:load_uri u)) :properties props})) diff --git a/command.fnl b/command.fnl index 87a5d5a..be2955b 100644 --- a/command.fnl +++ b/command.fnl @@ -36,7 +36,7 @@ [[:buffer Buffer.match #($1.buffer.name)] - [:url #(doto {} (tset $1 $1)) #(do "http://www.example.com")] + [:url #{$1 $1} #($1.buffer:location)] ] (fn [{:url url :buffer buffer}] (buffer:visit url)))