pass keymap into the frame
This commit is contained in:
parent
0befc24bc0
commit
cde0b8cd56
20
dunlin.fnl
20
dunlin.fnl
@ -2,10 +2,28 @@
|
||||
(local lfs (require :lfs))
|
||||
(local { : Gtk : Gdk : WebKit2 : cairo } lgi)
|
||||
|
||||
(local Command (require :command))
|
||||
(local Frame (require :frame))
|
||||
(local Buffer (require :buffer))
|
||||
|
||||
(let [f (Frame.new)
|
||||
;;; when we decide how to do an init file/rc file, this will go in it
|
||||
|
||||
(local my-keymap {
|
||||
"g" #(Command.invoke-interactively
|
||||
"visit-location"
|
||||
{:buffer "main"})
|
||||
"M-q" #(Command.invoke-interactively
|
||||
"quit-browser"
|
||||
{})
|
||||
"C-x" {
|
||||
"C-c"
|
||||
#(Command.invoke-interactively
|
||||
"quit-browser"
|
||||
{})
|
||||
}
|
||||
})
|
||||
|
||||
(let [f (Frame.new my-keymap)
|
||||
b (Buffer.new "main")]
|
||||
(f:show-buffer b)
|
||||
(b:visit (.. "file://" (lfs.currentdir) "/doc/index.html")))
|
||||
|
19
frame.fnl
19
frame.fnl
@ -5,25 +5,10 @@
|
||||
|
||||
(var frames [])
|
||||
|
||||
(fn new-frame []
|
||||
(fn new-frame [global-keymap]
|
||||
(let [hpad 2
|
||||
vpad 2
|
||||
recogniser (keymap.recogniser
|
||||
{
|
||||
"g" #(Command.invoke-interactively
|
||||
"visit-location"
|
||||
{:buffer "main"})
|
||||
"M-q" #(Command.invoke-interactively
|
||||
"quit-browser"
|
||||
{})
|
||||
"c" {
|
||||
"x"
|
||||
#(Command.invoke-interactively
|
||||
"quit-browser"
|
||||
{})
|
||||
}
|
||||
|
||||
})
|
||||
recogniser (keymap.recogniser global-keymap)
|
||||
window (Gtk.Window {
|
||||
:title "Dunlin"
|
||||
:default_width 800
|
||||
|
Loading…
Reference in New Issue
Block a user