From 507f799ce499006948509066e5750c3a82e496df Mon Sep 17 00:00:00 2001
From: John Isom <John.Isom2001@gmail.com>
Date: Tue, 28 Jul 2020 20:52:06 -0600
Subject: [PATCH 1/2] Fix already-existing bug in perl.kak

---
 rc/filetype/perl.kak | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rc/filetype/perl.kak b/rc/filetype/perl.kak
index d3f03ed2..d94f27d4 100644
--- a/rc/filetype/perl.kak
+++ b/rc/filetype/perl.kak
@@ -111,8 +111,8 @@ define-command -hidden perl-indent-on-new-line %~
         try %{ execute-keys -draft k<a-x> s \h+$ <ret>d }
         # align to opening paren of previous line
         try %{ execute-keys -draft [( <a-k> \A\([^\n]+\n[^\n]*\n?\z <ret> s \A\(\h*.|.\z <ret> '<a-;>' & }
-        # copy // comments prefix
-        try %{ execute-keys -draft <semicolon><c-s>k<a-x> s ^\h*\K/{2,} <ret> y<c-o>P<esc> }
+        # copy # comments prefix
+        try %{ execute-keys -draft <semicolon><c-s>k<a-x> s ^\h*\K# <ret> y<c-o>P<esc> }
         # indent after a switch's case/default statements
         try %[ execute-keys -draft k<a-x> <a-k> ^\h*(case|default).*:$ <ret> j<a-gt> ]
         # indent after if|else|while|for

From ba8fca741c3d021c9bc4f117b0c9536992a5c1b8 Mon Sep 17 00:00:00 2001
From: John Isom <John.Isom2001@gmail.com>
Date: Wed, 29 Jul 2020 08:52:04 -0600
Subject: [PATCH 2/2] Update deindenting in kakrc.kak

---
 rc/filetype/kakrc.kak | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rc/filetype/kakrc.kak b/rc/filetype/kakrc.kak
index 024e1076..4bf2966e 100644
--- a/rc/filetype/kakrc.kak
+++ b/rc/filetype/kakrc.kak
@@ -101,9 +101,9 @@ define-command -hidden kak-indent-on-new-line %~
         # indent after line ending with %\w*[^\s\w]
         try %{ execute-keys -draft k <a-x> <a-k> \%\w*[^\s\w]$ <ret> j <a-gt> }
         # deindent closing brace when after cursor
-        try %_ execute-keys -draft <a-x> <a-k>^\h*[>)}\]]\h*$<ret> hm <a-S> 1<a-&> _
+        try %_ execute-keys -draft -itersel <a-x> <a-k>^\h*([>)}\]])\h*(?:\h#.*)?$<ret> <a-/> <c-r>1 <ret> m <a-S> 1<a-&> _
         # deindent closing char(s) 
-        try %{ execute-keys -draft -itersel <a-x> <a-k>^\h*([^\s\w])\h*$<ret> h <a-?><c-r>1<ret> <a-T>% <a-k>\w*<c-r>1$<ret> <a-S> 1<a-&> }
+        try %{ execute-keys -draft -itersel <a-x> <a-k>^\h*([^\s\w])\h*(?:\h#.*)?$<ret> <a-/><c-r>1<ret> <a-?><c-r>1<ret> <a-T>% <a-k>\w*<c-r>1$<ret> <a-S> 1<a-&> }
     =
 ~