init

README.md

@@ -0,0 +1 @@
+My F# syntax file for highlighting in kakoune

fsharp.kak

@@ -0,0 +1,94 @@
+# fsharp
+#
+
+# Detection
+# ‾‾‾‾‾‾‾‾‾
+
+hook global BufCreate .*[.](fs|fsx|fsi) %{
+    set-option buffer filetype fsharp
+}
+
+# Highlighters & Completion
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+add-highlighter shared/fsharp regions
+add-highlighter shared/fsharp/code default-region group
+add-highlighter shared/fsharp/docstring     region (\(\*) (\*\)) regions
+add-highlighter shared/fsharp/double_string region '"'   (?<!\\)(\\\\)*"  fill string
+add-highlighter shared/fsharp/comment       region '//'   '$'              fill comment
+
+add-highlighter shared/fsharp/docstring/ default-region fill string
+add-highlighter shared/fsharp/docstring/ region '>>> \K'    '\z' ref fsharp
+add-highlighter shared/fsharp/docstring/ region '\.\.\. \K'    '\z' ref fsharp
+
+evaluate-commands %sh{
+    # Grammar
+    values="true|false"
+    meta="open"
+
+	  # exceptions taken from fsharp.vim colors
+    exceptions="try|failwith|failwithf|finally|invalid_arg|raise|rethrow"
+
+    # keywords taken from fsharp.vim colors
+    keywords="abstract|as|assert|base|begin|class|default|delegate"
+    keywords="${keywords}|do|done|downcast|downto|elif|else|end|exception"
+    keywords="${keywords}|extern|for|fun|function|global|if|in|inherit|inline"
+    keywords="${keywords}|interface|lazy|let|match|member|module|mutable"
+    keywords="${keywords}|namespace|new|of|override|rec|static|struct|then"
+    keywords="${keywords}|to|type|upcast|use|val|void|when|while|with"
+    keywords="${keywords}|async|atomic|break|checked|component|const|constraint"
+    keywords="${keywords}|constructor|continue|decimal|eager|event|external"
+    keywords="${keywords}|fixed|functor|include|method|mixin|object|parallel"
+    keywords="${keywords}|process|pure|return|seq|tailcall|trait"
+    # additional operator keywords (Microsoft.FSharp.Core.Operators)
+    keywords="${keywords}|box|hash|sizeof|typeof|typedefof|unbox|ref|fst|snd"
+    keywords="${keywords}|stdin|stdout|stderr"
+    # math operators (Microsoft.FSharp.Core.Operators)
+    keywords="${keywords}|abs|acos|asin|atan|atan2|ceil|cos|cosh|exp|floor|log"
+    keywords="${keywords}|log10|pown|round|sign|sin|sinh|sqrt|tan|tanh"
+
+
+    types="array|bool|byte|char|decimal|double|enum|exn|float"
+    types="${types}|float32|int|int16|int32|int64|lazy_t|list|nativeint"
+    types="${types}|obj|option|sbyte|single|string|uint|uint32|uint64"
+    types="${types}|uint16|unativeint|unit"
+
+    fsharpCoreMethod="printf|printfn|sprintf|eprintf|eprintfn|fprintf|fprintfn"
+
+    # Add the language's grammar to the static completion list
+    printf %s\\n "hook global WinSetOption filetype=fsharp %{
+        set-option window static_words ${values} ${meta} ${exceptions} ${keywords} ${types}
+    }" | tr '|' ' '
+
+    # Highlight keywords
+    printf %s "
+        add-highlighter shared/fsharp/code/ regex '\b(${values})\b' 0:value
+        add-highlighter shared/fsharp/code/ regex '\b(${meta})\b' 0:meta
+        add-highlighter shared/fsharp/code/ regex '\b(${exceptions})\b' 0:function
+        add-highlighter shared/fsharp/code/ regex '\b(${fsharpCoreMethod})\b' 0:function
+        add-highlighter shared/fsharp/code/ regex '\b(${keywords})\b' 0:keyword
+    "
+}
+
+# accomodate typically overloaded operators
+add-highlighter shared/fsharp/code/ regex "\B(<<>>|<\|\|>)\B" 0:operator
+# fsharp operators
+add-highlighter shared/fsharp/code/ regex "\B(->|<-|<=|>=)\B" 0:operator
+add-highlighter shared/fsharp/code/ regex "\b(not)\b" 0:operator
+add-highlighter shared/fsharp/code/ regex (?<=[\w\s\d'"_])(::|(\|)+|@|\|>|<\||\.\.|<=|>=|<>|(<)+|(>)+|!=|==|(\^)+|(&)+|\+|-|(\*)+|//|/|%|~) 0:operator
+add-highlighter shared/fsharp/code/ regex (?<=[\w\s\d'"_])((?<![=<>!])=(?![=])|[+*-]=) 0:builtin
+
+# Initialization
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+hook -group fsharp-highlight global WinSetOption filetype=fsharp %{
+    add-highlighter window/fsharp ref fsharp
+    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/fsharp }
+}
+
+hook global WinSetOption filetype=fsharp %{
+    hook window InsertChar \n -group fsharp-indent fsharp-indent-on-new-line
+    # cleanup trailing whitespaces on current line insert end
+    hook window ModeChange insert:.* -group fsharp-trim-indent %{ try %{ execute-keys -draft \; <a-x> s ^\h+$ <ret> d } }
+    hook -once -always window WinSetOption filetype=.* %{ remove-hooks window fsharp-.+ }
+}