From b794855c70a1e315c2ee0d86a208a5a18c975588 Mon Sep 17 00:00:00 2001
From: razetime <raghuallthetime@hotmail.com>
Date: Sat, 14 Jan 2023 11:04:16 +0530
Subject: [PATCH 2/2] add APL highlighting

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

diff --git a/rc/filetype/apl.kak b/rc/filetype/apl.kak
new file mode 100644
index 00000000..eb50895b
--- /dev/null
+++ b/rc/filetype/apl.kak
@@ -0,0 +1,80 @@
+
+# Detection
+# ‾‾‾‾‾‾‾‾‾
+
+hook global BufCreate .*\.(apl|aplf|aplo|apln|aplc|apli|dyalog) %{
+    set-option buffer filetype apl
+
+    set-option buffer matching_pairs ( ) { } [ ]
+}
+
+# Initialization
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+hook global WinSetOption filetype=apl %|
+    require-module apl
+
+    hook window InsertChar \n -group apl-indent apl-indent-on-new-line
+    hook window InsertChar [}⟩\]] -group apl-indent apl-indent-on-closing
+
+    hook -once -always window WinSetOption filetype=.* %{ remove-hooks window apl-.+ }
+|
+
+hook -group apl-highlight global WinSetOption filetype=apl %{
+    add-highlighter window/apl ref apl
+    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/apl }
+}
+
+provide-module apl %¹
+
+# Highlighters & Completion
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+add-highlighter shared/apl regions
+add-highlighter shared/apl/code default-region group
+add-highlighter shared/apl/comment region "⍝" "$" fill comment
+add-highlighter shared/apl/string  region "'" "'" fill string
+
+add-highlighter shared/apl/code/ regex "[{}]" 0:meta
+add-highlighter shared/apl/code/ regex "⋄" 0:meta
+add-highlighter shared/apl/code/ regex "[\[\]]" 0:magenta
+add-highlighter shared/apl/code/ regex "[()]" 0:bright-black
+add-highlighter shared/apl/code/ regex "[:;?]" 0:bright-black
+add-highlighter shared/apl/code/ regex "[←→]" 0:normal
+# Number
+add-highlighter shared/apl/code/ regex "¯?[0-9][¯0-9A-Za-z]*(?:\.[¯0-9Ee][¯0-9A-Za-z]*)*|¯?\.[0-9Ee][¯0-9A-Za-z]*" 0:value
+add-highlighter shared/apl/code/ regex "\." 0:normal
+add-highlighter shared/apl/code/ regex "[⍺⍶⍵⍹χ∇]" 0:blue # arguments
+# function
+add-highlighter shared/apl/code/ regex "[+\-×÷⌈⌊∣|⍳?*⍟○!⌹<≤=>≥≠≡≢∊⍷∪∩~∨∧⍱⍲⍴,⍪⌽⊖⍉↑↓⊂⊃⌷⍋⍒⊤⊥⍕⍎⊣⊢⍁⍂≈⌸⍯↗⊆⊇⍸√⌾…⍮]" 0:green  # function
+# operator
+add-highlighter shared/apl/code/ regex "[\.\\/⌿⍀¨⍣⍨⍠⍤∘⌸&⌶@⌺⍥⍛⍢]" 0:magenta
+# system
+add-highlighter shared/apl/code/ regex "⎕[A-Z_a-zÀ-ÖØ-Ýßà-öø-üþ∆⍙Ⓐ-Ⓩ][A-Z_a-zÀ-ÖØ-Ýßà-öø-üþ∆⍙Ⓐ-Ⓩ¯0-9]*" 0:yellow 
+add-highlighter shared/apl/code/ regex "\n^\s*\n(\n\t[A-Z_a-zÀ-ÖØ-Ýßà-öø-üþ∆⍙Ⓐ-Ⓩ]\n\t[A-Z_a-zÀ-ÖØ-Ýßà-öø-üþ∆⍙Ⓐ-Ⓩ¯0-9]*\n)\n(:)" 0:meta
+
+declare-user-mode apl
+# Commands
+# ‾‾‾‾‾‾‾‾
+
+define-command -hidden apl-indent-on-new-line %`
+    evaluate-commands -draft -itersel %_
+        # preserve previous line indent
+        try %{ execute-keys -draft <semicolon> K <a-&> }
+        # copy # comments prefix
+        try %{ execute-keys -draft <semicolon><c-s>k<a-x> s ^\h*\K#+\h* <ret> y<c-o>P<esc> }
+        # indent after lines ending with { [
+        try %( execute-keys -draft k<a-x> <a-k> [{\[]\h*$ <ret> j<a-gt> )
+        # cleanup trailing white spaces on the previous line
+        try %{ execute-keys -draft k<a-x> s \h+$ <ret>d }
+     _
+`
+
+define-command -hidden apl-indent-on-closing %`
+    evaluate-commands -draft -itersel %_
+        # align to opening bracket
+        try %( execute-keys -draft <a-h> <a-k> ^\h*[}\]]$ <ret> h m <a-S> 1<a-&> )
+    _
+`
+
+¹