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

AutoYADM commit: 2025-05-20 17:47:24

Browse source
This commit is contained in:
Daniel Fichtinger 2025-05-20 17:47:24 -04:00
parent 6b8d6a706c
commit b589a9ff31
3 changed files with 1 additions and 111 deletions
Download patch file Download diff file Expand all files Collapse all files

18
.config/kak/scripts/kakfmt
View file

@ -1,18 +0,0 @@
#!/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;
}