add initial commands

lua/conjure-macroreplace/aniseed/macros/autocmds.fnl

@@ -0,0 +1,27 @@
+(fn autocmd [event opt]
+  `(vim.api.nvim_create_autocmd
+    ,event ,opt))
+
+(fn autocmds [...]
+  (var form `(do))
+  (each [_ v (ipairs [...])]
+    (table.insert form (autocmd (unpack v))))
+  (table.insert form 'nil)
+  form)
+
+(fn augroup [name ...]
+  (var cmds `(do))
+  (var group (sym :group))
+  (each [_ v (ipairs [...])]
+    (let [(event opt) (unpack v)]
+      (tset opt :group group)
+      (table.insert cmds (autocmd event opt))))
+  (table.insert cmds 'nil)
+  `(let [,group
+         (vim.api.nvim_create_augroup ,name {:clear true})]
+     ,cmds
+     ,group))
+
+{:autocmd autocmd
+ :autocmds autocmds
+ :augroup augroup}