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
29
(fn subscribe [event attrs]
(let [actual-event (-> event
(: :upper)
(: :gsub "-" "_"))]
(vis.events.subscribe (. vis.events actual-event)
(fn []
(each [k v (pairs attrs)]
(vis:command (string.format "set %s %s" k v)))))))
(subscribe :win-open
{:numbers "on"
:autoindent "on"
:tabwidth 2
:layout "v"
:theme "zenburn"})
(fn nmap [b c]
(vis:map vis.modes.NORMAL b c))
(fn n! [b c]
(nmap b
(fn []
(vis:command (.. c " '" vis.win.file.path "'")))))
(let [leader ";"]
(n! (.. leader "s") "!sent")
(nmap (.. leader ";") :<vis-window-next>)
(nmap (.. leader "n") ":set numbers!<Enter>"))