dots-of-war/files/.config/nvim/fnl/macros.fnl

{: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
 (fn [x]
   `(let [view# (. (require "aniseed.fennel") :view)]
     (print (.. `,(tostring x) " => " (view# ,x)))
     ,x))

 :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)))))

 :vim-let
 (fn [field value]
   (let [text (.. "let " `,(tostring field) "=\"" value "\"")]
    `(vim.cmd ,text)))

 :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))]
           ,...)))))}