diff options
Diffstat (limited to 'katana.raku')
| -rwxr-xr-x | katana.raku | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/katana.raku b/katana.raku index ff9e6fa..c7e5630 100755 --- a/katana.raku +++ b/katana.raku @@ -1,6 +1,6 @@ #!/usr/bin/env raku -sub prefix:<❱>( *@args ) { +sub prefix:<❱>(*@args) { say "❱ {@args}"; my $proc = run @args, :out, :err; for $proc.out.slurp(:close), $proc.err.slurp(:close) { @@ -8,6 +8,8 @@ sub prefix:<❱>( *@args ) { } } +sub prefix:<⁉>(*@args) { ❱ @args unless @args[*-1].IO.f } + class Template { has Str %!vars; has Str $!frame = 'frame.html'; @@ -26,15 +28,13 @@ class Image { method generate(Int :$thumb-geometry, Str :$bg-blur) { my $thumb = "$!dist-dir/thumb/{$!filename}"; - ❱ ['convert', '-auto-orient', '-geometry', $thumb-geometry, $!source, $thumb] - unless $thumb.IO.f; + ⁉ [|<convert -auto-orient -geometry>, $thumb-geometry, $!source, $thumb]; my $blur = "$!dist-dir/blur/{$!filename}"; - ❱ ['convert', '-flip', '-geometry', $thumb-geometry/2, '-blur', $bg-blur, $!source, $blur] - unless $blur.IO.f; + ⁉ [|<convert -flip -geometry>, $thumb-geometry/2, '-blur', $bg-blur, $!source, $blur]; my $large = "$!dist-dir/large/{$!filename}"; - ❱ ['cp', $!source, $large] unless $large.IO.f; + ⁉ ['cp', $!source, $large]; } method thumb_tag { "<img class='thumb' src='./thumb/{$!filename}' />" } @@ -42,7 +42,7 @@ class Image { } sub make-mr-proper(:$dist-dir) { - ❱ 'rm', '-r', '-f', $dist-dir if $dist-dir.IO.d; + ❱ |<rm -r -f>, $dist-dir if $dist-dir.IO.d; } sub ensure-directories(:$dist-dir) { |