dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

add completions to text entry

Browse Source
This commit is contained in:
Daniel Barlow 2022-03-10 09:37:26 +00:00
parent a16d1a46e3
commit 400124570d
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
just/just.fnl
View File

@ -64,6 +64,13 @@ progress, trough {
(text:find "^http") text (text:find "^http") text
(.. "https://" text))) (.. "https://" text)))
(local completions
(doto (Gtk.ListStore)
(: :set_column_types [lgi.GObject.Type.STRING])))
(fn add-autocomplete-suggestion [url]
(completions:append [url]))
(local keysyms { (local keysyms {
:Escape 0xff1b :Escape 0xff1b
}) })
@ -74,9 +81,11 @@ progress, trough {
:new :new
(fn [webview] (fn [webview]
(let [url (Gtk.Entry { (let [url (Gtk.Entry {
;; :completion (Gtk.EntryCompletion {:model completions :text_column 0 }) :completion (Gtk.EntryCompletion {:model completions :text_column 0 })
:on_activate :on_activate
#(webview:visit (to-uri $1.text)) (fn [event]
(add-autocomplete-suggestion event.text)
(webview:visit (to-uri event.text)))
:on_key_release_event :on_key_release_event
#(if (= $2.keyval keysyms.Escape) #(if (= $2.keyval keysyms.Escape)
(tset $1 :text webview.properties.uri)) (tset $1 :text webview.properties.uri))