From 04a90e4eea589ff049561afe61dde18d000186f1 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Thu, 7 Apr 2022 23:51:02 +0100
Subject: refactor

---
 katana.raku | 14 +++++++-------
 1 file 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) {
-- 
cgit v1.2.3