mirror of
https://github.com/elkowar/dots-of-war.git
synced 2024-11-06 11:22:23 +00:00
48 lines
819 B
Fennel
48 lines
819 B
Fennel
{:augroup
|
|
(fn [name ...]
|
|
`(do
|
|
(nvim.ex.augroup ,(tostring name))
|
|
(nvim.ex.autocmd_)
|
|
,...
|
|
(nvim.ex.augroup :END)))
|
|
|
|
:autocmd
|
|
(fn [...]
|
|
`(nvim.ex.autocmd ,...))
|
|
|
|
:_:
|
|
(fn [name ...]
|
|
`((. nvim.ex ,(tostring name)) ,...))
|
|
|
|
:viml->fn
|
|
(fn [name]
|
|
`(.. "lua require('" *module-name* "')['" ,(tostring name) "']()"))
|
|
|
|
:dbg-call
|
|
(fn [x ...]
|
|
`(do
|
|
(a.println ,...)
|
|
(,x ,...)))
|
|
|
|
:pkg
|
|
(fn [name mappings ...]
|
|
`(if (~= nil (. packer_plugins `,(tostring name)))
|
|
(let ,mappings ,...)
|
|
(print (.. "plugin disabled " `,(tostring name)))))
|
|
|
|
:each-pair
|
|
(fn [args ...]
|
|
(let [[l# r# d#] args]
|
|
`(let [data# ,d#]
|
|
(for [i# 1 (a.count data#) 2]
|
|
(let [,l# (. data# i#)
|
|
,r# (. data# (+ i# 1))]
|
|
,...)))))}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|