blob: 0e07bba70a54fa01ebd868635ef3ac0b6a1a2691 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(tset package.loaded :conf.exctl.frames.vec nil)
(local vec (require :conf.exctl.frames.vec))
(tset package.loaded :conf.exctl.frames.frame nil)
(local frame (require :conf.exctl.frames.frame))
(tset package.loaded :conf.exctl.builder nil)
(local builder (require :conf.exctl.builder))
(tset package.loaded :conf.exctl.effects nil)
(local effects (require :conf.exctl.effects))
(local root-frame (frame (vec.vec 0 0) (vec.vec vim.o.columns 0)
(vec.vec 0 vim.o.lines)))
(local painter (-> (builder:new)
(builder.For {:buffer (fn [] 0)
:maps [{:mode [:n :v :o]
:lhs :q
:rhs (fn [effects window]
(fn []
(effects:close)))}]})
(builder.Padding 5)
(builder.Beside (-> (builder:new)
(builder.For {:buffer (fn [] 0)})))
(builder.Build (effects:new))))
(painter root-frame)
|
