dunlin

commit 24613ea424d6bc24187645b73184762673ac0be7
parent 3cbe77a55ecedd879e30513f4d4dfcde64006014
Author: Daniel Barlow <dan@telent.net>
Date:   Mon,  2 Jan 2023 22:03:03 +0000

hook up the history logger thing

Diffstat:
M
dunlin.fnl
 | 
4
++++
M
frame.fnl
 | 
9
++++++---
M
history.fnl
 | 
2
+-

3 files changed, 11 insertions(+), 4 deletions(-)
diff --git a/dunlin.fnl b/dunlin.fnl
@@ -18,6 +18,10 @@
                          }
                   })
 
+(local history (require :history))
+(tset _G :history (history.open
+                   (.. (os.getenv "HOME") "/.dunlin-history.db")))
+
 (let [f (Frame.new my-keymap)
       b (Buffer.new "main")]
   (f:show-buffer b)
diff --git a/frame.fnl b/frame.fnl
@@ -38,12 +38,15 @@
         contentwidget (Gtk.Box {
                                 :orientation Gtk.Orientation.VERTICAL
                                 })
-        update-prop (fn [name value]
+        update-prop (fn [props name value]
                       (match name
                         :estimated-load-progress
                         (tset progress-bar :fraction value)
                         :uri
-                        (tset echo-area :label value)
+                        (do (tset echo-area :label value)
+                            (_G.history:visit value (os.time)))
+                        :title
+                        (_G.history:title self.buffer.properties.uri value)
                         n
                         (comment (print "prop change" n value))))]
 
@@ -91,7 +94,7 @@
                           (b:subscribe-property-changes
                            (fn [name val]
                              (if (= b self.buffer)
-                                 (update-prop name val)
+                                 (update-prop self name val)
                                  (print "ignore props from background" b))))
                           (b.webview:show))
            }]
diff --git a/history.fnl b/history.fnl
@@ -42,7 +42,7 @@
     (icollect [r (s:nrows)] r)))
 
 (fn open [pathname]
-  (let [db (if pathname (sqlite:open pathname) (sqlite:open_memory))]
+  (let [db (if pathname (sqlite.open pathname) (sqlite.open_memory))]
     (migrate-all db)
     {
      : db