Merge remote-tracking branch 'lePerdu/gluon-lang'

rc/filetype/gluon.kak

@@ -0,0 +1,99 @@
+# http://gluon-lang.org
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+# Detection
+# ‾‾‾‾‾‾‾‾‾
+
+hook global BufCreate .*[.](glu) %{
+    set-option buffer filetype gluon
+}
+
+# Initialization
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+hook global WinSetOption filetype=gluon %{
+    require-module gluon
+
+    set-option window extra_word_chars '_' "'"
+    hook window ModeChange insert:.* -group gluon-trim-indent gluon-trim-indent
+    hook window InsertChar \n -group gluon-indent gluon-indent-on-new-line
+
+    hook -once -always window WinSetOption filetype=.* %{
+        remove-hooks window gluon-.+
+    }
+}
+
+hook -group gluon-highlight global WinSetOption filetype=gluon %{
+    add-highlighter window/gluon ref gluon
+    hook -once -always window WinSetOption filetype=.* %{
+        remove-highlighter window/gluon
+    }
+}
+
+
+provide-module gluon %[
+
+# Highlighters
+# ‾‾‾‾‾‾‾‾‾‾‾‾
+
+add-highlighter shared/gluon regions
+add-highlighter shared/gluon/code default-region group
+add-highlighter shared/gluon/string region (?<!')" (?<!\\)(\\\\)*" fill string
+add-highlighter shared/gluon/raw_string region -match-capture \br(#+)" \"(#+) fill string
+add-highlighter shared/gluon/comment region /\* \*/ fill comment
+add-highlighter shared/gluon/line_comment region // $ fill comment
+add-highlighter shared/gluon/attribute region -recurse \[ '#\[' \] fill meta
+# balance out bracket ]
+
+# matches hexadecimal literals
+add-highlighter shared/gluon/code/ regex \b0x+[A-Fa-f0-9]+ 0:value
+# matches decimal and floating-point literals
+add-highlighter shared/gluon/code/ regex \b\d+([.]\d+)? 0:value
+
+# matches keywords
+add-highlighter shared/gluon/code/ regex \
+    (?<!')\b(type|if|then|else|match|with|let|rec|do|seq|in)\b(?!') 0:keyword
+
+# matches macros
+add-highlighter shared/gluon/code/ regex \b\w+! 0:meta
+
+# matches uppercase identifiers: Monad Some
+add-highlighter shared/gluon/code/ regex \b[A-Z][\w']* 0:variable
+
+# matches operators: ... > < <= ^ <*> <$> etc
+# matches dot: .
+# matches keywords:  @ : ->
+add-highlighter shared/gluon/code/ regex (?<![~<=>|:!?/.@$*&#%+\^\-\\])[~<=>|:!?/.@$*&#%+\^\-\\]+ 0:operator
+
+# matches 'x' '\\' '\'' '\n' '\0'
+# not incomplete literals: '\'
+add-highlighter shared/gluon/code/ regex \B'([^\\]|[\\]['"\w\d\\])' 0:string
+# this has to come after operators so '-' etc is correct
+
+# Commands
+# ‾‾‾‾‾‾‾‾
+
+define-command -hidden gluon-trim-indent %{
+    # remove trailing white spaces
+    try %{ execute-keys -draft -itersel <a-x> s \h+$ <ret> d }
+}
+
+define-command -hidden gluon-indent-on-new-line %{
+    evaluate-commands -draft -itersel %{
+        # copy // and /// comments prefix and following white spaces
+        try %{ execute-keys -draft k <a-x> s ^\h*\K///?\h* <ret> y gh j P }
+        # preserve previous line indent
+        try %{ execute-keys -draft \; K <a-&> }
+        # filter previous line
+        try %{ execute-keys -draft k : gluon-trim-indent <ret> }
+        # indent after lines ending with (open) braces, =, ->, condition, rec,
+        # or in
+        try %{
+            execute-keys -draft \
+                \; k x <a-k> (\(|\{|\[|=|->|then|else|rec|in)$ <ret> j <a-gt>
+            # balance out brackets } ]
+        }
+    }
+}
+
+]

rc/tools/comment.kak

@@ -14,7 +14,7 @@ hook global BufSetOption filetype=asciidoc %{
     set-option buffer comment_block_end '///'
 }
 
-hook global BufSetOption filetype=(c|cpp|dart|go|java|javascript|objc|php|rust|sass|scala|scss|swift|typescript) %{
+hook global BufSetOption filetype=(c|cpp|dart|gluon|go|java|javascript|objc|php|rust|sass|scala|scss|swift|typescript) %{
     set-option buffer comment_line '//'
     set-option buffer comment_block_begin '/*'
     set-option buffer comment_block_end '*/'