{clojure,lisp}.kak: handle doubled brackets

rc/filetype/clojure.kak

@@ -208,7 +208,7 @@ define-command -hidden clojure-indent-on-new-line %{
                 execute-keys -draft '"wze<a-L>s.{' %sh{printf $(( kak_opt_indentwidth - 1 ))} '}\K.*<ret><a-;>;"i<a-Z><gt>'
             } catch %{
                 # If not special and parameter appears on line 1, indent to parameter
-                execute-keys -draft '"wze<a-K>[\s()\[\]\{\}]<ret><a-l>s\h\K[^\s].*<ret><a-;>;"i<a-Z><gt>'
+                execute-keys -draft '"wz<a-K>[()[\]{}]<ret>e<a-K>[\s()\[\]\{\}]<ret><a-l>s\h\K[^\s].*<ret><a-;>;"i<a-Z><gt>'
             }
         }
         try %{ execute-keys -draft '[rl"i<a-Z><gt>' }

rc/filetype/lisp.kak

@@ -69,7 +69,7 @@ define-command -hidden lisp-indent-on-new-line %{
                 execute-keys -draft '"wze<a-L>s.{' %sh{printf $(( kak_opt_indentwidth - 1 ))} '}\K.*<ret><a-;>;"i<a-Z><gt>'
             } catch %{
                 # If not "special" form and parameter appears on line 1, indent to parameter
-                execute-keys -draft '"wze<a-l>s\h\K[^\s].*<ret><a-;>;"i<a-Z><gt>'
+                execute-keys -draft '"wz<a-K>[()\[\]{}]<ret>e<a-l>s\h\K[^\s].*<ret><a-;>;"i<a-Z><gt>'
             }
         }
         try %{ execute-keys -draft '[rl"i<a-Z><gt>' }

test/indent/clojure/doubled-brackets/cmd

@@ -0,0 +1 @@
+c<ret><esc>

test/indent/clojure/doubled-brackets/in

@@ -0,0 +1,3 @@
+((metafn 42)%( )(y 79))
+([weird 42]%( )(y 79))
+({map 42}%( )(y 79))

test/indent/clojure/doubled-brackets/out

@@ -0,0 +1,6 @@
+((metafn 42)
+ (y 79))
+([weird 42]
+ (y 79))
+({map 42}
+ (y 79))

test/indent/clojure/doubled-brackets/rc

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

test/indent/lisp/doubled-brackets/cmd

@@ -0,0 +1 @@
+c<ret><esc>

test/indent/lisp/doubled-brackets/in

@@ -0,0 +1,4 @@
+(let ((x 42)%( )(y 79)))
+(let [(x 42)%( )(y 79)])
+(let ([x 42]%( )[y 79]))
+(let ({x 42}%( ){y 79}))

test/indent/lisp/doubled-brackets/out

@@ -0,0 +1,8 @@
+(let ((x 42)
+      (y 79)))
+(let [(x 42)
+      (y 79)])
+(let ([x 42]
+      [y 79]))
+(let ({x 42}
+      {y 79}))

test/indent/lisp/doubled-brackets/rc

@@ -0,0 +1,2 @@
+source "%val{runtime}/rc/filetype/lisp.kak"
+set buffer filetype lisp