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 K } + # copy # comments prefix + try %{ execute-keys -draft k s ^\h*\K#+\h* yP } + # indent after lines ending with { [ + try %( execute-keys -draft k [{\[]\h*$ j ) + # cleanup trailing white spaces on the previous line + try %{ execute-keys -draft k s \h+$ d } + _ +` + +define-command -hidden apl-indent-on-closing %` + evaluate-commands -draft -itersel %_ + # align to opening bracket + try %( execute-keys -draft ^\h*[}\]]$ h m 1 ) + _ +` + +¹