Daniel Barlow
a5a65006ca
1. When adding a button to flowbox, the flowbox widget interposes a flowboxchild between the two, which can receive events and so becomes part of the tab order. this is why our buttons weren't getting activated - they weren't focused even though they looked focused. So, use labels instead of buttons for completions 2. For some reason I don't understand, flowboxchild widgets receive :activate *only* on keyboard activation. So instead of using it, we connect to :child-activated on the flowbox. 3. Setting widget:on_foo *adds* a handler to the widget instead of replacing what was previously there. There is no nice way to remove handlers from a widget either. Because we need a new on_child_activated handler every time the completions change, the only way I can see to achieve this is to create the flowbox afresh on each keystroke instead of creating it once when the frame is created
53 lines
1.4 KiB
Fennel
53 lines
1.4 KiB
Fennel
(local { : Gtk } (require :lgi))
|
|
(local { : view } (require :fennel))
|
|
(local lume (require :lume))
|
|
|
|
(local {: define-command : completion } (require :command))
|
|
(local Buffer (require :buffer))
|
|
|
|
(fn url-escape [s]
|
|
(string.gsub s
|
|
"([^A-Za-z0-9_])"
|
|
#(string.format "%%%02x" (string.byte $1))))
|
|
|
|
(local searchers
|
|
{:ddg
|
|
{:name "Duck Duck Go"
|
|
:function (fn [term]
|
|
(.. "https://duckduckgo.com/?q=" (url-escape term)))
|
|
}
|
|
:google
|
|
{:name "Google"
|
|
:function (fn [term]
|
|
(.. "https://www.google.com/search?q=" (url-escape term)))
|
|
}
|
|
:luai
|
|
{:name "Lua interactive reference manual"
|
|
:function (fn [term]
|
|
(.. "https://pgl.yoyo.org/luai/i/" (url-escape term)))
|
|
}
|
|
})
|
|
|
|
|
|
(fn match-engines [term]
|
|
(icollect [keyword {: name : function} (pairs searchers)]
|
|
(if (string.match keyword term)
|
|
(completion {
|
|
:text keyword
|
|
:value keyword
|
|
:widget (Gtk.Label { :label name })
|
|
}))))
|
|
|
|
|
|
(define-command
|
|
"search"
|
|
[[:term
|
|
#[(completion {:text $1})]
|
|
#""]
|
|
[:buffer
|
|
#(lume.map (Buffer.match $1) #(completion { :text $1.name :value $1 }))
|
|
#$1.buffer.name]
|
|
[:engine match-engines #:ddg]]
|
|
(fn [{: term : engine : buffer}]
|
|
(buffer:visit ((. (. searchers engine) :function) term))))
|