From 904cec3c4a329cf89fc3219d359239910d61f3f6 Mon Sep 17 00:00:00 2001
From: thing1 <thing1@seacrossedlovers.xyz>
Date: Tue, 28 Jan 2025 09:14:32 +0000
Subject: init commit

---
 autoload/filetype/prolog.kak | 49 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 autoload/filetype/prolog.kak

(limited to 'autoload/filetype/prolog.kak')

diff --git a/autoload/filetype/prolog.kak b/autoload/filetype/prolog.kak
new file mode 100644
index 0000000..fa183c1
--- /dev/null
+++ b/autoload/filetype/prolog.kak
@@ -0,0 +1,49 @@
+# Prolog
+# ----------------------
+
+# Adapted from rc/filetype/erlang.kak
+
+# Detection
+# ‾‾‾‾‾‾‾‾‾
+hook global BufCreate .*[.](pl|P) %{
+    set-option buffer filetype prolog
+}
+
+# Initialization
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+hook global WinSetOption filetype=prolog %{
+    require-module prolog
+
+    hook -once -always window WinSetOption filetype=.* %{ remove-hooks window prolog-.+ }
+}
+
+hook -group prolog-highlight global WinSetOption filetype=prolog %{
+    add-highlighter window/prolog ref prolog
+    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/prolog }
+}
+
+provide-module prolog %[
+
+# Highlighters
+# ‾‾‾‾‾‾‾‾‾‾‾‾
+
+add-highlighter shared/prolog regions
+add-highlighter shared/prolog/default default-region group
+
+add-highlighter shared/prolog/comment region '(?<!)%' '$' fill comment
+add-highlighter shared/prolog/attribute_atom_single_quoted region %{-'} %{(?<!\\)(?:\\\\)*'(?=[\( \.])} fill builtin
+add-highlighter shared/prolog/attribute region '\b-[a-z][\w@]*(?=[\( \.])' '\K' fill builtin
+add-highlighter shared/prolog/atom_single_quoted region %{'} %{(?<!\\)(?:\\\\)*'} fill type
+add-highlighter shared/prolog/char_list region %{"} %{(?<!\\)(?:\\\\)*"} fill string
+
+# default-region regex highlighters
+add-highlighter shared/prolog/default/atom regex '\b[a-z]\w*\b' 0:type
+add-highlighter shared/prolog/default/pred_call regex '\b[a-z]\w*(?=\()' 0:function
+add-highlighter shared/prolog/default/keywords regex '\b(div|rem|is)\b' 0:keyword
+add-highlighter shared/prolog/default/variable_name regex '\b(?<!\?)[A-Z_][\w]*\b' 0:variable
+
+add-highlighter shared/prolog/default/base_number regex '\b(\d[_\d]*(?<!_)#[a-zA-Z0-9][a-z_A-Z0-9]*(?<!_)(?!\{))\b' 1:value
+add-highlighter shared/prolog/default/float regex '\b(?<![\.])(\d[\d_]*(?<!_)\.\d[\d_]*(?<!_)(?:e[+-]?\d[\d_]*(?<!_))?)\b' 1:value
+add-highlighter shared/prolog/default/integer regex '\b(?<!/)(\d[\d_]*)(?<!_)\b' 1:value
+
+]
-- 
cgit v1.2.3