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/moon.kak | 120 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100644 autoload/filetype/moon.kak

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

diff --git a/autoload/filetype/moon.kak b/autoload/filetype/moon.kak
new file mode 100644
index 0000000..43d8dd4
--- /dev/null
+++ b/autoload/filetype/moon.kak
@@ -0,0 +1,120 @@
+# http://moonscript.org
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+# Detection
+# ‾‾‾‾‾‾‾‾‾
+
+hook global BufCreate .*[.](moon) %{
+    set-option buffer filetype moon
+}
+
+# Initialization
+# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
+
+hook global WinSetOption filetype=moon %{
+    require-module moon
+
+    hook window ModeChange pop:insert:.* -group moon-trim-indent moon-trim-indent
+    hook window InsertChar .* -group moon-indent moon-indent-on-char
+    hook window InsertChar \n -group moon-insert moon-insert-on-new-line
+    hook window InsertChar \n -group moon-indent moon-indent-on-new-line
+
+    alias window alt moon-alternative-file
+
+    hook -once -always window WinSetOption filetype=.* %{
+        remove-hooks window moon-.+
+        unalias window alt moon-alternative-file
+    }
+}
+
+hook -group moon-highlight global WinSetOption filetype=moon %{
+    add-highlighter window/moon ref moon
+    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/moon }
+}
+
+
+provide-module moon %[
+
+# Highlighters
+# ‾‾‾‾‾‾‾‾‾‾‾‾
+
+add-highlighter shared/moon regions
+add-highlighter shared/moon/code default-region group
+add-highlighter shared/moon/double_string region '"'  (?<!\\)(\\\\)*" regions
+add-highlighter shared/moon/single_string region "'"  (?<!\\)(\\\\)*' fill string
+add-highlighter shared/moon/comment       region '--' '$'             fill comment
+
+add-highlighter shared/moon/double_string/base default-region fill string
+add-highlighter shared/moon/double_string/interpolation region -recurse \{ \Q#{ \} fill meta
+
+add-highlighter shared/moon/code/ regex ([.\\](?=[A-Za-z]))|(\b[A-Za-z]\w*:)|(\b[A-Za-z]\w*\K!+)|(\W\K[@:][A-Za-z]\w*) 0:variable
+add-highlighter shared/moon/code/ regex \b(and|break|catch|class|continue|do|else(if)?|export|extends|false|finally|for|from|if|import|in|local|nil|not|or|return|super|switch|then|true|try|unless|using|when|while|with)\b 0:keyword
+
+# Commands
+# ‾‾‾‾‾‾‾‾
+
+define-command moon-alternative-file -docstring 'Jump to the alternate file (implementation ↔ test)' %{ evaluate-commands %sh{
+    case $kak_buffile in
+        *spec/*_spec.moon)
+            altfile=$(eval printf %s\\n $(printf %s\\n $kak_buffile | sed s+spec/+'*'/+';'s/_spec//))
+            [ ! -f $altfile ] && echo "fail 'implementation file not found'" && exit
+        ;;
+        *.moon)
+            path=$kak_buffile
+            dirs=$(while [ $path ]; do printf %s\\n $path; path=${path%/*}; done | tail -n +2)
+            for dir in $dirs; do
+                altdir=$dir/spec
+                if [ -d $altdir ]; then
+                    altfile=$altdir/$(realpath $kak_buffile --relative-to $dir | sed s+[^/]'*'/++';'s/.moon$/_spec.moon/)
+                    break
+                fi
+            done
+            [ ! -d $altdir ] && echo "fail 'spec/ not found'" && exit
+        ;;
+        *)
+            echo "fail 'alternative file not found'" && exit
+        ;;
+    esac
+    printf %s\\n "edit $altfile"
+}}
+
+define-command -hidden moon-trim-indent %{
+    evaluate-commands -draft -itersel %{
+        execute-keys x
+        # remove trailing white spaces
+        try %{ execute-keys -draft s \h + $ <ret> d }
+    }
+}
+
+define-command -hidden moon-indent-on-char %{
+    evaluate-commands -draft -itersel %{
+        # align _else_ statements to start
+        try %{ execute-keys -draft x <a-k> ^ \h * (else(if)?) $ <ret> <a-semicolon> <a-?> ^ \h * (if|unless|when) <ret> s \A | \z <ret> ) <a-&> }
+        # align _when_ to _switch_ then indent
+        try %{ execute-keys -draft x <a-k> ^ \h * (when) $ <ret> <a-semicolon> <a-?> ^ \h * (switch) <ret> s \A | \z <ret> ) <a-&> ) , <gt> }
+        # align _catch_ and _finally_ to _try_
+        try %{ execute-keys -draft x <a-k> ^ \h * (catch|finally) $ <ret> <a-semicolon> <a-?> ^ \h * (try) <ret> s \A | \z <ret> ) <a-&> }
+    }
+}
+
+define-command -hidden moon-insert-on-new-line %{
+    evaluate-commands -draft -itersel %{
+        # copy -- comment prefix and following white spaces
+        try %{ execute-keys -draft k x s ^\h*\K--\h* <ret> y gh j P }
+    }
+}
+
+define-command -hidden moon-indent-on-new-line %{
+    evaluate-commands -draft -itersel %{
+        # preserve previous line indent
+        try %{ execute-keys -draft <semicolon> K <a-&> }
+        # filter previous line
+        try %{ execute-keys -draft k : moon-trim-indent <ret> }
+        # indent after start structure
+        try %{ execute-keys -draft k x <a-k> ^ \h * (class|else(if)?|for|if|switch|unless|when|while|with) \b | ([:=]|[-=]>) $ <ret> j <a-gt> }
+        # deindent after return statements
+        try %{ execute-keys -draft k x <a-k> ^ \h * (break|return) \b <ret> j <a-lt> }
+    }
+}
+
+]
-- 
cgit v1.2.3