From 34eea7e836f08cae06f7c0371726dd2023a30510 Mon Sep 17 00:00:00 2001
From: aktersnurra <grydholm@kth.se>
Date: Sun, 24 Apr 2022 01:30:45 +0200
Subject: fix(autocmd): add v1 and v2

---
 fnl/config/autocmd.fnl | 41 ++++++++++++++++++++++++++---------------
 1 file changed, 26 insertions(+), 15 deletions(-)

(limited to 'fnl/config/autocmd.fnl')

diff --git a/fnl/config/autocmd.fnl b/fnl/config/autocmd.fnl
index bb9b232..d6bdabd 100644
--- a/fnl/config/autocmd.fnl
+++ b/fnl/config/autocmd.fnl
@@ -4,59 +4,70 @@
              a    aniseed.core
              util util}})
 
+(defn- autocmd-v1 [group cmds] (nvim.command (.. "augroup " group))
+      (nvim.command :autocmd!)
+      (each [_ cmd (ipairs cmds)]
+        (nvim.command (.. "autocmd " cmd)))
+      (nvim.command "augroup end"))
+
 (defn- group [name]
   (nvim.create_augroup name {:clear true}))
 
-(defn- autocmd [event opts name]
+(defn- autocmd-v2 [event opts name]
   (nvim.create_autocmd event (a.merge! {:group (group name)} opts)))
 
-(autocmd :FileType
+(def- alpha
+  ["User AlphaReady set showtabline=0 | autocmd BufUnload <buffer> set showtabline=2"])
+
+(def- nvim-tree-autoclose
+  ["BufEnter * ++nested if winnr('$') == 1 && bufname() == 'NvimTree_' . tabpagenr() | quit | endif"])
+
+(autocmd-v1 :_alpha alpha)
+(autocmd-v1 :_nvim-tree nvim-tree-autoclose)
+
+(autocmd-v2 :FileType
          {:pattern [:qf :help :man :lspinfo]
           :command "nnoremap <silent> <buffer> q :close<CR>"}
          :_general_settings)
 
-(autocmd :TextYankPost
+(autocmd-v2 :TextYankPost
          {:callback (lambda [] (vim.highlight.on_yank {:timeout 200}))}
          :_general_settings)
 
-(autocmd :BufWinEnter
+(autocmd-v2 :BufWinEnter
          {:command "setlocal formatoptions-=cro"}
          :_general_settings)
 
-(autocmd :FileType
+(autocmd-v2 :FileType
          {:pattern "qf"
           :command "set nobuflisted"}
          :_general_settings)
 
-(autocmd :FileType
+(autocmd-v2 :FileType
          {:pattern "gitcommit"
           :command "setlocal wrap"}
          :_git)
 
-(autocmd :FileType
+(autocmd-v2 :FileType
          {:pattern "gitcommit"
           :command "setlocal spell"}
          :_git)
 
-(autocmd :FileType
+(autocmd-v2 :FileType
          {:pattern "markdown"
           :command "setlocal wrap"}
          :_markdown)
 
-(autocmd :FileType
+(autocmd-v2 :FileType
          {:pattern "markdown"
           :command "setlocal spell"}
          :_markdown)
 
-(autocmd :FileType
+(autocmd-v2 :FileType
          {:pattern "markdown"
           :command "setlocal spell"}
          :_markdown)
 
-(autocmd :VimResized
+(autocmd-v2 :VimResized
          {:command "tabdo wincmd ="}
          :_auto_resize)
-
-(autocmd "User AlphaReady"
-         {:command "set showtabline=0 | autocmd BufUnload <buffer> set showtabline=2"}
-         :_alpha)
-- 
cgit v1.2.3-70-g09d2