From a547e731f2dc0d126405859657927e01d4499374 Mon Sep 17 00:00:00 2001
From: Sidharth Kshatriya <sid.kshatriya@gmail.com>
Date: Sun, 24 Oct 2021 11:39:41 +0530
Subject: [PATCH] Add detection, intialization and basic syntax highlighting
 for Erlang

---
 rc/filetype/erlang.kak | 62 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 rc/filetype/erlang.kak

diff --git a/rc/filetype/erlang.kak b/rc/filetype/erlang.kak
new file mode 100644
index 00000000..79a38cef
--- /dev/null
+++ b/rc/filetype/erlang.kak
@@ -0,0 +1,62 @@
+# Erlang/OTP
+# https://erlang.org
+# ----------------------
+
+# Detection and Initialization sections were adapted from rc/filetype/elixir.kak
+
+# Detection
+# ‾‾‾‾‾‾‾‾‾
+hook global BufCreate .*[.](erl|hrl) %{
+    set-option buffer filetype erlang
+}
+
+# Initialization
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+hook global WinSetOption filetype=erlang %{
+    require-module erlang
+
+    hook -once -always window WinSetOption filetype=.* %{ remove-hooks window erlang-.+ }
+}
+
+hook -group erlang-highlight global WinSetOption filetype=erlang %{
+    add-highlighter window/erlang ref erlang
+    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/erlang }
+}
+
+provide-module erlang %[
+
+# Highlighters
+# ‾‾‾‾‾‾‾‾‾‾‾‾
+
+add-highlighter shared/erlang regions
+add-highlighter shared/erlang/default default-region group
+
+add-highlighter shared/erlang/comment region '(?<!\$)%' '$' fill comment
+add-highlighter shared/erlang/attribute_atom_single_quoted region %{-'} %{(?<!\\)(?:\\\\)*'(?=[\( \.])} fill builtin
+add-highlighter shared/erlang/attribute region '\b-[a-z][\w@]*(?=[\( \.])' '\K' fill builtin
+add-highlighter shared/erlang/atom_single_quoted region %{'} %{(?<!\\)(?:\\\\)*'} fill type
+add-highlighter shared/erlang/char_list region %{"} %{(?<!\\)(?:\\\\)*"} fill string
+add-highlighter shared/erlang/dollar_double_quote region %{\$\\?"} '\K' fill value
+add-highlighter shared/erlang/dollar_single_quote region %{\$\\?'} '\K' fill value
+
+# default-region regex highlighters
+add-highlighter shared/erlang/default/atom regex '\b[a-z][\w@]*\b' 0:type
+add-highlighter shared/erlang/default/funtion_call regex '\b[a-z][\w@]*(?=\()' 0:function
+add-highlighter shared/erlang/default/keywords regex '\b(after|begin|case|try|catch|end|fun|if|of|receive|when|andalso|orelse|bnot|not|div|rem|band|and|bor|bxor|bsl|bsr|or|xor)\b' 0:keyword
+add-highlighter shared/erlang/default/variable_name regex '\b(?<!\?)[A-Z_][\w@]*\b' 0:variable
+add-highlighter shared/erlang/default/module_prefix regex '\b([a-z][\w_@]+)(?=:)' 1:value
+add-highlighter shared/erlang/default/erlang_ref regex '#Ref' 0:value
+add-highlighter shared/erlang/default/floatish regex '\b(?<!/)(\d+(?:\.\d+)*)\b' 1:value
+add-highlighter shared/erlang/default/base_number regex '\b\d+#[a-zA-Z0-9]+\b' 0:value
+# e.g $\xff
+add-highlighter shared/erlang/default/dollar_hex regex '\$\\x[0-9a-f][0-9a-f]' 0:value
+# e.g. $\^a $\^C
+add-highlighter shared/erlang/default/dollar_ctrl_char regex '\$\\\^[a-zA-Z]' 0:value
+# e.g. $\101, $\70
+add-highlighter shared/erlang/default/dollar_octal regex '\$\\[0-7][0-7][0-7]?' 0:value
+# e.g. $\↕ $\7
+add-highlighter shared/erlang/default/dollar_esc_char regex '\$\\[^x]' 0:value
+# e.g. $↕ $a
+add-highlighter shared/erlang/default/dollar_char regex '\$.' 0:value
+
+]