diff options
| author | Matias Linares <matias@deprecated.org> | 2024-06-19 17:21:59 -0300 |
|---|---|---|
| committer | Matias Linares <matias@deprecated.org> | 2024-06-19 17:21:59 -0300 |
| commit | 118e0b0eb6db115e12cd737d8286c3545ea95c3d (patch) | |
| tree | 6737953740a9ea175c31eae1c4396fc47bb65337 /ssg | |
| parent | 8c0e57d054cf0facd034f16c01032199b787415c (diff) | |
| download | ssg-118e0b0eb6db115e12cd737d8286c3545ea95c3d.tar.gz | |
Remove given statements and clean up some `open` files
Diffstat (limited to 'ssg')
| -rwxr-xr-x | ssg | 64 |
1 files changed, 31 insertions, 33 deletions
@@ -1,9 +1,9 @@ #!/usr/bin/perl +use v5.38; use strict; use warnings; -use v5.22; -# Disable experimental warnings. -no warnings 'experimental'; + +use local::lib; use File::Path qw(make_path remove_tree); use Path::Class; @@ -38,9 +38,9 @@ EOF sub styles { # Unset $/, the Input Record Separator, to make <> give you the whole file at once. local $/=undef; - open FILE, "styles.css" or die "Cannot open file $!"; - my $styles = <FILE>; - close FILE; + open my $FILE, '<', "styles.css" or die "Cannot open file $!"; + my $styles = <$FILE>; + close $FILE; return $styles; } @@ -59,7 +59,7 @@ sub generate_page { $sidebar = transverse($indir, $file); } my $styles = styles; - my $body = markdown $file; + my $body = markdown($file); my $page = <<EOF <!doctype html> <html> @@ -103,36 +103,34 @@ sub generate_link { $options->{hl} = 0 if !exists($options->{hl}); # Exclude links - given($file) { - when(@exlude_files) { + if ($file) { + if (grep /^$file$/, @exlude_files) { say "excluding $file"; return ""; } - default { - my $path = $file->stringify; - my $str = $file->basename; - - if($path =~ /index\.md$/) { - return ""; - } + my $path = $file->stringify; + my $str = $file->basename; - # remove the input directory. - $path =~ s/^$indir//g; - if($file->is_dir()) { - $str = "$str/" if $file->is_dir(); - } else { - $path =~ s/\.md$/.html/g; - $str =~ s/\.md$//g; - } + if($path =~ /index\.md$/) { + return ""; + } - # Higlight? - my $hl = ""; - if($options->{hl} eq 1) { - $hl = "class='hl'"; - } + # remove the input directory. + $path =~ s/^$indir//g; + if($file->is_dir()) { + $str = "$str/" if $file->is_dir(); + } else { + $path =~ s/\.md$/.html/g; + $str =~ s/\.md$//g; + } - return "<li><a $hl href='$path'>$str</a></li>"; + # Higlight? + my $hl = ""; + if($options->{hl} eq 1) { + $hl = "class='hl'"; } + + return "<li><a $hl href='$path'>$str</a></li>"; } } @@ -197,11 +195,11 @@ sub run_on { print STDERR "* writing: " . file($outfile) . "\n"; my $contents = generate_page $file; - open FD, ">$outfile" or die " [ERROR] cannot open > $outfile: $!";; + open my $FD, '>', "$outfile" or die " [ERROR] cannot open > $outfile: $!";; - print FD $contents or die " [ERROR] Cannot write $outfile: $!"; + print $FD $contents or die " [ERROR] Cannot write $outfile: $!"; - close FD or die " [ERROR] Cannot close $outfile: $!"; + close $FD or die " [ERROR] Cannot close $outfile: $!"; } } |