{title}

From 61ccafe143df1b25a9134a802130676405665b97 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Fri, 15 Apr 2022 21:47:33 +0100 Subject: refactor --- favicon.ico | Bin 0 -> 16958 bytes frame.html.templ | 18 +++++++++++------- katana.raku | 24 +++++++----------------- 3 files changed, 18 insertions(+), 24 deletions(-) create mode 100644 favicon.ico diff --git a/favicon.ico b/favicon.ico new file mode 100644 index 0000000..720413a Binary files /dev/null and b/favicon.ico differ diff --git a/frame.html.templ b/frame.html.templ index 4343552..00cf2d1 100644 --- a/frame.html.templ +++ b/frame.html.templ @@ -1,8 +1,12 @@ - - - {title} - - - {body} - + + + + +{title} + + + + + {body} + diff --git a/katana.raku b/katana.raku index 2b9b4fd..48e7202 100755 --- a/katana.raku +++ b/katana.raku @@ -8,11 +8,6 @@ sub prefix:<❱>(*@args) { sub prefix:<⁉>(*@args) { ❱ @args unless @args[*-1].IO.f } -class Template { - has Str %!vars; - has Str $!frame = 'frame.html'; -} - class Image { has Str $.filename; has Str $!source; @@ -39,16 +34,15 @@ class Image { method large_tag { "

" } } -sub dist-dirs(Str $dist-dir --> List) { - $dist-dir <<~>> -} +sub dist-dirs(Str $dist-dir --> List) { $dist-dir <<~>> } +sub make-mr-proper(Str $dist-dir) { ❱ ['rm', '-rf', $dist-dir] if $dist-dir.IO.d } -sub ensure-directories(Str :$dist-dir) { +sub ensure-directories(Str $dist-dir) { mkdir $dist-dir unless $dist-dir.IO.d; mkdir $_ unless .IO.d for dist-dirs $dist-dir; } -sub cleanup-nonexistent (Str :$dist-dir, :@images) { +sub cleanup-nonexistent (Str $dist-dir, @images) { my $images = set @images.map:{ $_.filename }; for dist-dirs $dist-dir -> $dir { unlink $_ if .IO.basename ∉ $images @@ -56,10 +50,6 @@ sub cleanup-nonexistent (Str :$dist-dir, :@images) { } } -sub make-mr-proper(Str :$dist-dir) { - ❱ ['rm', '-rf', $dist-dir] if $dist-dir.IO.d; -} - multi MAIN( Bool :$mr-proper, #= Clean output dir Str :$in-dir = './in', #= Input dir @@ -75,9 +65,9 @@ multi MAIN( @images = @images.pick: * if $randomize; say "Found {@images.elems} images"; - cleanup-nonexistent :$dist-dir, :@images; - make-mr-proper :$dist-dir if $mr-proper; - ensure-directories :$dist-dir; + cleanup-nonexistent $dist-dir, @images; + make-mr-proper $dist-dir if $mr-proper; + ensure-directories $dist-dir; @images.hyper.map: { .generate: :$thumb-geometry, :$bg-blur }; } -- cgit v1.2.3