summaryrefslogtreecommitdiff
path: root/fnl/config
diff options
context:
space:
mode:
Diffstat (limited to 'fnl/config')
-rw-r--r--fnl/config/autocmd.fnl75
1 files changed, 54 insertions, 21 deletions
diff --git a/fnl/config/autocmd.fnl b/fnl/config/autocmd.fnl
index 8cf1e1f..bb9b232 100644
--- a/fnl/config/autocmd.fnl
+++ b/fnl/config/autocmd.fnl
@@ -1,29 +1,62 @@
;; A customizable greeter.
-(module config.autocmd {autoload {nvim aniseed.nvim util util}})
+(module config.autocmd
+ {autoload {nvim aniseed.nvim
+ a aniseed.core
+ util util}})
-(defn autocmd [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}))
-(def- general-settings ["FileType qf,help,man,lspinfo nnoremap <silent> <buffer> q :close<CR>"
- "TextYankPost * silent!lua require('vim.highlight').on_yank({higroup = 'Search', timeout = 200})"
- "BufWinEnter * :set formatoptions-=cro"
- "FileType qf set nobuflisted"])
+(defn- autocmd [event opts name]
+ (nvim.create_autocmd event (a.merge! {:group (group name)} opts)))
-(def- git ["FileType gitcommit setlocal wrap"
- "FileType gitcommit setlocal spell"])
+(autocmd :FileType
+ {:pattern [:qf :help :man :lspinfo]
+ :command "nnoremap <silent> <buffer> q :close<CR>"}
+ :_general_settings)
-(def- markdown ["FileType markdown setlocal wrap"
- "FileType markdown setlocal spell"])
+(autocmd :TextYankPost
+ {:callback (lambda [] (vim.highlight.on_yank {:timeout 200}))}
+ :_general_settings)
-(def- auto-resize ["VimResized * tabdo wincmd ="])
+(autocmd :BufWinEnter
+ {:command "setlocal formatoptions-=cro"}
+ :_general_settings)
-(def- alpha
- ["User AlphaReady set showtabline=0 | autocmd BufUnload <buffer> set showtabline=2"])
+(autocmd :FileType
+ {:pattern "qf"
+ :command "set nobuflisted"}
+ :_general_settings)
-(autocmd :_general_settings general-settings)
-(autocmd :_git git)
-(autocmd :_markdown markdown)
-(autocmd :_auto_resize auto-resize)
-(autocmd :_alpha alpha)
+(autocmd :FileType
+ {:pattern "gitcommit"
+ :command "setlocal wrap"}
+ :_git)
+
+(autocmd :FileType
+ {:pattern "gitcommit"
+ :command "setlocal spell"}
+ :_git)
+
+(autocmd :FileType
+ {:pattern "markdown"
+ :command "setlocal wrap"}
+ :_markdown)
+
+(autocmd :FileType
+ {:pattern "markdown"
+ :command "setlocal spell"}
+ :_markdown)
+
+(autocmd :FileType
+ {:pattern "markdown"
+ :command "setlocal spell"}
+ :_markdown)
+
+(autocmd :VimResized
+ {:command "tabdo wincmd ="}
+ :_auto_resize)
+
+(autocmd "User AlphaReady"
+ {:command "set showtabline=0 | autocmd BufUnload <buffer> set showtabline=2"}
+ :_alpha)