Merge remote-tracking branch 'hugomg/better-lua-indentation'

rc/filetype/lua.kak

@@ -33,7 +33,7 @@ hook -group lua-highlight global WinSetOption filetype=lua %{
 }
 
 
-provide-module lua %[
+provide-module lua %§
 
 # Highlighters
 # ‾‾‾‾‾‾‾‾‾‾‾‾
@@ -85,42 +85,65 @@ define-command lua-alternative-file -docstring 'Jump to the alternate file (impl
     printf %s\\n "edit $altfile"
 }}
 
-define-command -hidden lua-trim-indent %{
+define-command -hidden lua-trim-indent %[
     # remove trailing whitespaces
-    try %{ execute-keys -draft -itersel <a-x> s \h+$ <ret> d }
+    try %[ execute-keys -draft -itersel <a-x> s \h+$ <ret> d ]
-}
+]
 
-define-command -hidden lua-indent-on-char %{
+define-command -hidden lua-indent-on-char %[
-    evaluate-commands -no-hooks -draft -itersel %{
+    evaluate-commands -no-hooks -draft -itersel %[
-        # align middle and end structures to start and indent when necessary, elseif is already covered by else
+        # unindent middle and end structures
-        try %{ execute-keys -draft <a-x><a-k>^\h*(else)$<ret><a-semicolon><a-?>^\h*(if)<ret>s\A|.\z<ret>)<a-&> }
+        try %[ execute-keys -draft \
-        try %{ execute-keys -draft <a-x><a-k>^\h*(end)$<ret><a-semicolon><a-?>^\h*(for|function|if|while)<ret>s\A|.\z<ret>)<a-&> }
+            <a-h><a-k>^\h*(\b(end|else|elseif|until)\b|[)}])$<ret> \
-    }
+            :lua-indent-on-new-line<ret> \
-}
+            <a-lt>
+        ]
+    ]
+]
 
-define-command -hidden lua-indent-on-new-line %{
+define-command -hidden lua-indent-on-new-line %[
-    evaluate-commands -no-hooks -draft -itersel %{
+    evaluate-commands -no-hooks -draft -itersel %[
         # remove trailing white spaces from previous line
-        try %{ execute-keys -draft k : lua-trim-indent <ret> }
+        try %[ execute-keys -draft k : lua-trim-indent <ret> ]
         # preserve previous non-empty line indent
-        try %{ execute-keys -draft <space><a-?>^[^\n]+$<ret>s\A|.\z<ret>)<a-&> }
+        try %[ execute-keys -draft <space>gh<a-?>^[^\n]+$<ret>s\A|.\z<ret>)<a-&> ]
-        # indent after start structure
+        # add one indentation level if the previous line is not a comment and:
-        try %{ execute-keys -draft <a-?>^[^\n]*\w+[^\n]*$<ret><a-k>\b(else|elseif|for|function|if|while)\b<ret><a-K>\bend\b<ret><a-:><semicolon><a-gt> }
+        #     - starts with a block keyword that is not closed on the same line,
-    }
+        #     - or contains an unclosed function expression,
-}
+        #     - or ends with an enclosed '(' or '{'
+        try %[ execute-keys -draft \
+            <space> K<a-x> \
+            <a-K>\A\h*--<ret> \
+            <a-K>\A[^\n]*\b(end|until)\b<ret> \
+            <a-k>\A(\h*\b(do|else|elseif|for|function|if|repeat|while)\b|[^\n]*[({]$|[^\n]*\bfunction\b\h*[(])<ret> \
+            <a-:><semicolon><a-gt>
+        ]
+    ]
+]
 
 define-command -hidden lua-insert-on-new-line %[
     evaluate-commands -no-hooks -draft -itersel %[
         # copy -- comment prefix and following white spaces
-        try %{ execute-keys -draft k<a-x>s^\h*\K--\h*<ret> y gh j <a-x><semicolon> P }
+        try %[ execute-keys -draft k<a-x>s^\h*\K--\h*<ret> y gh j <a-x><semicolon> P ]
         # wisely add end structure
         evaluate-commands -save-regs x %[
-            try %{ execute-keys -draft k<a-x>s^\h+<ret>"xy } catch %{ reg x '' } # Save previous line indent in register x
+            # save previous line indent in register x
-            try %[ execute-keys -draft k<a-x> <a-k>^<c-r>x\b[^\n]*(for|function|if|while)<ret><a-K>\bend\b<ret> J}iJ<a-x> <a-K>^<c-r>x(else|end|elseif)$<ret> # Validate previous line and that it is not closed yet
+            try %[ execute-keys -draft k<a-x>s^\h+<ret>"xy ] catch %[ reg x '' ]
-                   execute-keys -draft o<c-r>xend<esc> # auto insert end
+            try %[
-                   execute-keys -draft k<a-x><a-k>\(function\b<ret>jjA)<esc> ] # auto insert ) for anonymous function
+                # check that starts with a block keyword that is not closed on the same line
+                execute-keys -draft \
+                    k<a-x> \
+                    <a-k>^\h*\b(else|elseif|do|for|function|if|while)\b|[^\n]\bfunction\b\h*[(]<ret> \
+                    <a-K>\bend\b<ret>
+                # check that the block is empty and is not closed on a different line
+                execute-keys -draft <a-a>i <a-K>^[^\n]+\n[^\n]+\n<ret> j<a-x> <a-K>^<c-r>x\b(else|elseif|end)\b<ret>
+                # auto insert end
+                execute-keys -draft o<c-r>xend<esc>
+                # auto insert ) for anonymous function
+                execute-keys -draft k<a-x><a-k>\([^)\n]*function\b<ret>jjA)<esc>
+            ]
         ]
     ]
 ]
 
-]
+§

test/indent/lua/insert-end-only-when-needed/in

@@ -3,7 +3,19 @@ end
 
 function fun2()%( )
 
-
 function fun3()
     if true then%( )
 end
+
+function fun4()
+    if true then
+        return 10
+    else%( )
+end
+
+function fun5()
+    if true then%( )
+        return 10
+end
+
+local str = "while"%( )

test/indent/lua/insert-end-only-when-needed/out

@@ -6,9 +6,25 @@ function fun2()
     foo()
 end
 
-
 function fun3()
     if true then
         foo()
     end
 end
+
+function fun4()
+    if true then
+        return 10
+    else
+        foo()
+    end
+end
+
+function fun5()
+    if true then
+        foo()
+        return 10
+end
+
+local str = "while"
+foo()

test/indent/lua/unindent-after-end/cmd

@@ -0,0 +1 @@
+cend<esc>

test/indent/lua/unindent-after-end/in

@@ -0,0 +1,7 @@
+if A then
+        %( )
+
+if A then
+    while B then
+    end
+    %( )

test/indent/lua/unindent-after-end/out

@@ -0,0 +1,7 @@
+if A then
+end
+
+if A then
+    while B then
+    end
+end

test/indent/lua/unindent-after-end/rc

@@ -0,0 +1,3 @@
+source "%val{runtime}/colors/default.kak"
+source "%val{runtime}/rc/filetype/lua.kak"
+set buffer filetype lua