dunlin

commit 7065b89c928b6271b54777a7b647ecb428ee7a36
parent da06309e759171fd5bb2f56b261b3033b517a05d
Author: Daniel Barlow <dan@telent.net>
Date:   Sat, 31 Dec 2022 17:33:20 +0000

visit-location defaults to current

Diffstat:
M
buffer.fnl
 | 
1
+
M
command.fnl
 | 
2
+-

2 files changed, 2 insertions(+), 1 deletion(-)
diff --git 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
@@ -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)))