From 22a94b9d35df01b75390eb1b5f92d0e4bae5ec2b Mon Sep 17 00:00:00 2001
From: Murray Calavera <murray.calavera@protonmail.com>
Date: Tue, 23 Jun 2020 12:46:59 +0100
Subject: [PATCH] Add highlighters for Standard ML

---
 rc/filetype/mlb.kak | 50 ++++++++++++++++++++++++++
 rc/filetype/sml.kak | 86 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 136 insertions(+)
 create mode 100644 rc/filetype/mlb.kak
 create mode 100644 rc/filetype/sml.kak

diff --git a/rc/filetype/mlb.kak b/rc/filetype/mlb.kak
new file mode 100644
index 00000000..aa174234
--- /dev/null
+++ b/rc/filetype/mlb.kak
@@ -0,0 +1,50 @@
+# http://mlton.org/MLBasis
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+# Detection
+# ‾‾‾‾‾‾‾‾‾
+
+hook global BufCreate .*\.mlb %{
+    set-option buffer filetype mlb
+}
+
+# Initialization
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+hook global WinSetOption filetype=mlb %{
+    require-module mlb
+    set-option buffer extra_word_chars '_' '-' '.'
+    set-option window static_words %opt{mlb_static_words}
+}
+
+hook -group mlb-highlight global WinSetOption filetype=mlb %{
+    add-highlighter window/mlb ref mlb
+    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/mlb }
+}
+
+provide-module mlb %[
+
+# Highlighters
+# ‾‾‾‾‾‾‾‾‾‾‾‾
+
+add-highlighter shared/mlb regions
+add-highlighter shared/mlb/code default-region group
+add-highlighter shared/mlb/string region '"' '(?<!\\)(\\\\)*"' group
+add-highlighter shared/mlb/string/fill fill string
+add-highlighter shared/mlb/comment region -recurse '\(\*' '\(\*' '\*\)' fill comment
+
+evaluate-commands %sh{
+    keywords='basis bas and open local let in end structure signature functor ann'
+
+    join() { sep=$2; eval set -- $1; IFS="$sep"; echo "$*"; }
+
+    printf %s\\n "declare-option str-list mlb_static_words $(join "${keywords}" ' ')"
+    printf %s\\n "add-highlighter shared/mlb/code/ regex (?<![\w'-/.])($(join "${keywords}" '|'))(?![\w'-/.]) 0:keyword"
+}
+add-highlighter shared/mlb/code/ regex "=" 0:operator
+add-highlighter shared/mlb/code/ regex "\b([A-Z][\w']*)\b" 0:type
+add-highlighter shared/mlb/code/ regex "\b[A-Z]{2}[A-Z0-9_']+\b" 0:attribute
+add-highlighter shared/mlb/code/ regex "\$\(\w+\)" 0:variable
+add-highlighter shared/mlb/string/ regex "\$\(\w*\)" 0:variable
+
+]
diff --git a/rc/filetype/sml.kak b/rc/filetype/sml.kak
new file mode 100644
index 00000000..961d58db
--- /dev/null
+++ b/rc/filetype/sml.kak
@@ -0,0 +1,86 @@
+# https://smlfamily.github.io
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+# Detection
+# ‾‾‾‾‾‾‾‾‾
+
+hook global BufCreate .*\.(sml|fun|sig) %{
+    set-option buffer filetype sml
+}
+
+# Initialization
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+hook global WinSetOption filetype=sml %{
+    require-module sml
+    set-option buffer extra_word_chars '_' "'"
+    set-option window static_words %opt{sml_static_words}
+}
+
+hook -group sml-highlight global WinSetOption filetype=sml %{
+    add-highlighter window/sml ref sml
+    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/sml }
+}
+
+provide-module sml %[
+
+# Highlighters
+# ‾‾‾‾‾‾‾‾‾‾‾‾
+
+add-highlighter shared/sml regions
+add-highlighter shared/sml/code default-region group
+add-highlighter shared/sml/string region '#?"' '(?<!\\)(\\\\)*"' fill string
+add-highlighter shared/sml/comment region -recurse '\(\*' '\(\*' '\*\)' fill comment
+
+evaluate-commands %sh{
+    keywords='abstype and andalso as case datatype do else end exception fn fun
+              handle if in infix infixr let local nonfix of op open orelse raise
+              rec then type val with withtype while eqtype functor include
+              sharing sig signature struct structure'
+    types='unit exn ref'
+    ops='before ignore o
+         div mod quot rem abs
+         not chr ord ceil floor round trunc
+         andb orb xorb notb'
+
+    join() { sep=$2; eval set -- $1; IFS="$sep"; echo "$*"; }
+
+    printf %s\\n "declare-option str-list sml_static_words $(join "${keywords} ${types} ${ops}" ' ')"
+
+    printf %s "
+        add-highlighter shared/sml/code/ regex \b($(join "${keywords}" '|'))\b 0:keyword
+        add-highlighter shared/sml/code/ regex \b($(join "${types}" '|'))\b 0:builtin
+        add-highlighter shared/sml/code/ regex \b($(join "${ops}" '|'))\b 0:operator
+    "
+}
+
+# Symbolic identifiers
+add-highlighter shared/sml/code/ regex "[!*/+\-~\^@=<>%%&$?`\\#:|]+" 0:operator
+
+# Record projection functions
+add-highlighter shared/sml/code/ regex "(?<![!*/+\-~\^@=<>%%&$?`\\#:|])#([\w']+)?(?![!*/+\-~\^@=<>%%&$?`\\#:|])" 0:function
+
+# Symbolic keywords
+add-highlighter shared/sml/code/ regex "(?<![!*/+\-~\^@=<>%%&$?`\\#:|])(=>|=|\*|->|:>|:|;|\.\.\.|\b_\b|\|)(?![!*/+\-~\^@=<>%%&$?`\\#:|])" 0:keyword
+
+# Type variables
+add-highlighter shared/sml/code/ regex "(?<![\w'])'[\w']+(?![\w'])" 0:variable
+
+# Structure identifiers and value constructors
+add-highlighter shared/sml/code/ regex "(?<![\w'])([A-Z][\w']*\.?)" 0:type
+
+# Signature identifiers and all-caps value constructors
+add-highlighter shared/sml/code/ regex "(?<![\w'])[A-Z]{2}[A-Z0-9_']+(?![\w'])" 0:attribute
+
+# Constants
+add-highlighter shared/sml/code/ regex "(?<![\w'])(true|false|nil)\b" 0:value
+
+# Numeric literals
+add-highlighter shared/sml/code/ regex "(?<![\w'])0w[0-9]+\b" 0:value
+add-highlighter shared/sml/code/ regex "(?<![\w'])(0wx|0xw)[0-9a-fA-F]+\b" 0:value
+add-highlighter shared/sml/code/ regex "(?<![\w'])(0wb|0bw)[01]+\b" 0:value
+add-highlighter shared/sml/code/ regex "(~|(?<![\w']))0x[0-9a-fA-F]+\b" 0:value
+add-highlighter shared/sml/code/ regex "(~|(?<![\w']))0b[01]+\b" 0:value
+add-highlighter shared/sml/code/ regex "(?<!#)(~|(?<![\w']))[0-9]+(\.[0-9]+)?([eE]~?[0-9]+)?\b" 0:value
+
+]