visit-location defaults to current

buffer.fnl

@@ -24,6 +24,7 @@
                                  })]
     {:webview widget
      :name name
+     :location #(widget:get_uri)
      :visit (fn [self u] (widget:load_uri u))
      :properties props}))
 

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)))