ficd/dotfiles
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

AutoYADM commit: 2025-05-13 18:48:01

Browse source
This commit is contained in:
Daniel Fichtinger 2025-05-13 18:48:01 -04:00
parent 422a963697
commit 49e5d39460
4 changed files with 23 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

18
.config/kak/scripts/kakfmt.bak Executable file
View file

@ -0,0 +1,18 @@
#!/usr/bin/env perl
use strict;
use warnings;
my $Indent = 0;
my $Blank_Lines = 0;
my $Open = qr/[{\[(]$/;
my $Close = qr/^[}\])]/;
while (<>) {
s/^\h*//;
$Blank_Lines++, next if m/^$/;
my $Comment = m/^#/;
$Indent-- if m/$Close/ and not $Comment;
$Blank_Lines = 0, print "\n" if $Blank_Lines;
print "\t" x $Indent, $_;
$Indent++ if m/$Open/ and not $Comment;
}