Autocmd DSL

autocmd.tim

(def ^:private autocmds (dict))
(defmacro augroup [name & body]
  `(try
     (execute "augroup" ~(str name))
     (execute "autocmd!")
     ~@body
     (finally (execute "augroup END"))))
(defmacro autocmd [type pattern & body]
  (let [sym (gensym "autocmd")]
    `(do
      (set! (. autocmds ~sym) (fn ~'[<amatch> <afile> <abuf>] ~@body))
      (execute
         "autocmd"
         ~(str type)
         ~pattern
         (str "call timl#call(g:user.autocmds." '~sym ", [expand('<amatch>'), expand('<afile>'), expand('<abuf>')])")))))