xenia/kakoune
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge remote-tracking branch 'eraserhd/clojure-insert-ns'

Browse Source
This commit is contained in:
Maxime Coste 2019-08-04 20:20:06 +10:00
commit 65dcd8dea6
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rc/filetype/clojure.kak
View File

@ -26,6 +26,11 @@ hook -group clojure-highlight global WinSetOption filetype=clojure %{
hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/clojure }
}
hook -group clojure-insert global BufNewFile .*[.](clj|cljc|cljs|cljx) %{
require-module clojure
clojure-insert-ns
}
provide-module clojure %{
require-module lisp
@ -212,4 +217,19 @@ define-command -hidden clojure-indent-on-new-line %{
}
}
declare-option -docstring %{top-level directories which can contain clojure files
e.g. '(src|test|dev)'} regex clojure_source_directories '(src|test|dev)'
define-command -docstring %{clojure-insert-ns: Insert namespace directive at top of Clojure source file} \
clojure-insert-ns %{
evaluate-commands -draft %{
execute-keys -save-regs '' 'gk\O' "%val{bufname}" '<esc>giZ'
try %{ execute-keys 'z<a-l>s\.clj[csx]?$<ret><a-d>' }
try %{ execute-keys 'z<a-l>s^' "%opt{clojure_source_directories}" '/<ret><a-d>' }
try %{ execute-keys 'z<a-l>s/<ret>r.' }
try %{ execute-keys 'z<a-l>s_<ret>r-' }
execute-keys 'z<a-l>\c(ns <c-r>")<ret><esc>'
}
}
}