add rc/haskell.kak
This commit is contained in:
parent
4801ee22a2
commit
ecc49e209b
82
rc/cabal.kak
Normal file
82
rc/cabal.kak
Normal file
|
@ -0,0 +1,82 @@
|
||||||
|
# http://haskell.org/cabal
|
||||||
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
# Detection
|
||||||
|
# ‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
hook global BufSetOption mimetype=text/x-cabal %{
|
||||||
|
set buffer filetype cabal
|
||||||
|
}
|
||||||
|
|
||||||
|
hook global BufCreate .*[.](cabal) %{
|
||||||
|
set buffer filetype cabal
|
||||||
|
}
|
||||||
|
|
||||||
|
# Highlighters
|
||||||
|
# ‾‾‾‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
addhl -group / regions -default code cabal \
|
||||||
|
comment (--) $ '' \
|
||||||
|
comment \{- -\} \{-
|
||||||
|
|
||||||
|
addhl -group /cabal/comment fill comment
|
||||||
|
|
||||||
|
addhl -group /cabal/code regex \<(true|false)\>|(([<>]?=?)?\d+(\.\d+)+) 0:value
|
||||||
|
addhl -group /cabal/code regex \<(if|else)\> 0:keyword
|
||||||
|
addhl -group /cabal/code regex ^\h*([A-Za-z][A-Za-z0-9_-]*)\h*: 1:identifier
|
||||||
|
|
||||||
|
# Commands
|
||||||
|
# ‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
def -hidden _cabal_filter_around_selections %{
|
||||||
|
eval -draft -itersel %{
|
||||||
|
exec <a-x>
|
||||||
|
# remove trailing white spaces
|
||||||
|
try %{ exec -draft s \h+$ <ret> d }
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
def -hidden _cabal_indent_on_new_line %[
|
||||||
|
eval -draft -itersel %[
|
||||||
|
# preserve previous line indent
|
||||||
|
try %[ exec -draft <space> K <a-&> ]
|
||||||
|
# filter previous line
|
||||||
|
try %[ exec -draft k : _cabal_filter_around_selections <ret> ]
|
||||||
|
# copy '#' comment prefix and following white spaces
|
||||||
|
try %[ exec -draft k x s ^\h*\K#\h* <ret> y j p ]
|
||||||
|
# indent after lines ending with { or :
|
||||||
|
try %[ exec -draft <space> k x <a-k> [:{]$ <ret> j <a-gt> ]
|
||||||
|
]
|
||||||
|
]
|
||||||
|
|
||||||
|
def -hidden _cabal_indent_on_opening_curly_brace %[
|
||||||
|
eval -draft -itersel %[
|
||||||
|
# align indent with opening paren when { is entered on a new line after the closing paren
|
||||||
|
try %[ exec -draft h <a-F> ) M <a-k> \`\(.*\)\h*\n\h*\{\' <ret> s \`|.\' <ret> 1<a-&> ]
|
||||||
|
]
|
||||||
|
]
|
||||||
|
|
||||||
|
def -hidden _cabal_indent_on_closing_curly_brace %[
|
||||||
|
eval -draft -itersel %[
|
||||||
|
# align to opening curly brace when alone on a line
|
||||||
|
try %[ exec -draft <a-h> <a-k> ^\h+\}$ <ret> h m s \`|.\'<ret> 1<a-&> ]
|
||||||
|
]
|
||||||
|
]
|
||||||
|
|
||||||
|
# Initialization
|
||||||
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
hook global WinSetOption filetype=cabal %[
|
||||||
|
addhl ref cabal
|
||||||
|
|
||||||
|
hook window InsertEnd .* -group cabal-hooks _cabal_filter_around_selections
|
||||||
|
hook window InsertChar \n -group cabal-indent _cabal_indent_on_new_line
|
||||||
|
hook window InsertChar \{ -group cabal-indent _cabal_indent_on_opening_curly_brace
|
||||||
|
hook window InsertChar \} -group cabal-indent _cabal_indent_on_closing_curly_brace
|
||||||
|
]
|
||||||
|
|
||||||
|
hook global WinSetOption filetype=(?!cabal).* %{
|
||||||
|
rmhl cabal
|
||||||
|
rmhooks window cabal-indent
|
||||||
|
rmhooks window cabal-hooks
|
||||||
|
}
|
75
rc/haskell.kak
Normal file
75
rc/haskell.kak
Normal file
|
@ -0,0 +1,75 @@
|
||||||
|
# http://haskell.org
|
||||||
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
# Detection
|
||||||
|
# ‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
hook global BufSetOption mimetype=text/x-haskell %{
|
||||||
|
set buffer filetype haskell
|
||||||
|
}
|
||||||
|
|
||||||
|
hook global BufCreate .*[.](hs) %{
|
||||||
|
set buffer filetype haskell
|
||||||
|
}
|
||||||
|
|
||||||
|
# Highlighters
|
||||||
|
# ‾‾‾‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
addhl -group / regions -default code haskell \
|
||||||
|
string '"' (?<!\\)(\\\\)*" '' \
|
||||||
|
comment (--) $ '' \
|
||||||
|
comment \{- -\} \{- \
|
||||||
|
macro ^\h*?\K# (?<!\\)\n ''
|
||||||
|
|
||||||
|
addhl -group /haskell/string fill string
|
||||||
|
addhl -group /haskell/comment fill comment
|
||||||
|
addhl -group /haskell/macro fill meta
|
||||||
|
|
||||||
|
addhl -group /haskell/code regex \<(import)\> 0:meta
|
||||||
|
addhl -group /haskell/code regex \<(True|False)\> 0:value
|
||||||
|
addhl -group /haskell/code regex \<(as|case|class|data|default|deriving|do|else|hiding|if|in|infix|infixl|infixr|instance|let|module|newtype|of|qualified|then|type|where)\> 0:keyword
|
||||||
|
addhl -group /haskell/code regex \<(Int|Integer|Char|Bool|Float|Double|IO|Void|Addr|Array|String)\> 0:type
|
||||||
|
|
||||||
|
# Commands
|
||||||
|
# ‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
# http://en.wikibooks.org/wiki/Haskell/Indentation
|
||||||
|
|
||||||
|
def -hidden _haskell_filter_around_selections %{
|
||||||
|
eval -draft -itersel %{
|
||||||
|
exec <a-x>
|
||||||
|
# remove trailing white spaces
|
||||||
|
try %{ exec -draft s \h+$ <ret> d }
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
def -hidden _haskell_indent_on_new_line %{
|
||||||
|
eval -draft -itersel %{
|
||||||
|
# preserve previous line indent
|
||||||
|
try %{ exec -draft <space> K <a-&> }
|
||||||
|
# align to first clause
|
||||||
|
try %{ exec -draft <space> k x X s ^\h*(if|then|else)?\h*(([\w']+\h+)+=)?\h*(case\h+[\w']+\h+of|do|let|where)\h+\K.* <ret> s \`|.\' <ret> & }
|
||||||
|
# filter previous line
|
||||||
|
try %{ exec -draft k : _haskell_filter_around_selections <ret> }
|
||||||
|
# copy -- comments prefix and following white spaces
|
||||||
|
try %{ exec -draft k x s ^\h*\K--\h* <ret> y j p }
|
||||||
|
# indent after lines beginning with condition or ending with expression or =(
|
||||||
|
try %{ exec -draft <space> k x <a-k> ^\h*(if)|(case\h+[\w']+\h+of|do|let|where|[=(])$ <ret> j <a-gt> }
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# Initialization
|
||||||
|
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
|
hook global WinSetOption filetype=haskell %{
|
||||||
|
addhl ref haskell
|
||||||
|
|
||||||
|
hook window InsertEnd .* -group haskell-hooks _haskell_filter_around_selections
|
||||||
|
hook window InsertChar \n -group haskell-indent _haskell_indent_on_new_line
|
||||||
|
}
|
||||||
|
|
||||||
|
hook global WinSetOption filetype=(?!haskell).* %{
|
||||||
|
rmhl haskell
|
||||||
|
rmhooks window haskell-indent
|
||||||
|
rmhooks window haskell-hooks
|
||||||
|
}
|
Loading…
Reference in New Issue
Block a user