dan
/
dunlin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tidy, remove debug prints

main
Daniel Barlow 2023-01-16 21:07:56 +00:00
parent d62b9dea3e
commit bf8fa80dac
2 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
command.fnl
View File

@ -205,12 +205,8 @@
(fn new-commander [frame] (fn new-commander [frame]
(let [entry (Gtk.Entry {:sensitive false }) (let [entry (Gtk.Entry {:sensitive false })
prompt (Gtk.Label { :label ""}) prompt (Gtk.Label { :label ""})
box (Gtk.Box { box (Gtk.Box { :orientation Gtk.Orientation.VERTICAL })
:orientation Gtk.Orientation.VERTICAL hbox (Gtk.Box { :orientation Gtk.Orientation.HORIZONTAL })
})
hbox (Gtk.Box {
:orientation Gtk.Orientation.HORIZONTAL
})
completions (Gtk.FlowBox) completions (Gtk.FlowBox)
self { self {
:state default-state :state default-state
@ -230,13 +226,9 @@
(hbox:pack_start entry true true 5) (hbox:pack_start entry true true 5)
(box:pack_start hbox true false 0) (box:pack_start hbox true false 0)
(box:pack_start completions true true 0) (box:pack_start completions true true 0)
(tset entry :on_changed (tset entry :on_changed #(self:on-input $1.text))
(fn [event]
(self:on-input event.text)))
(tset entry :on_activate (tset entry :on_activate
(fn [event] #(update-widget-state self (self:on-input-finished $1.text)))
(let [result (self:on-input-finished event.text)]
(update-widget-state self result))))
self)) self))

1
history.fnl
View File

@ -42,7 +42,6 @@
(s:nrows))) (s:nrows)))
(fn find-distinct [self term] (fn find-distinct [self term]
(print :self self :term term)
(let [s (self.db:prepare "select distinct v.url,pt.title from visits v left join page_titles pt on v.url = pt.url where instr(v.url, ?) >0")] (let [s (self.db:prepare "select distinct v.url,pt.title from visits v left join page_titles pt on v.url = pt.url where instr(v.url, ?) >0")]
(assert (= 0 (s:bind_values term))) (assert (= 0 (s:bind_values term)))
(s:nrows))) (s:nrows)))