1 files changed, 25 insertions, 34 deletions
diff --git a/lib/Katana/Image/Elem.rakumod b/lib/Katana/Image/Elem.rakumod
index 3109e82..4bd7e15 100644
--- a/lib/Katana/Image/Elem.rakumod
+++ b/lib/Katana/Image/Elem.rakumod
@@ -1,43 +1,34 @@
 use v6.d;
-
 use Katana::Exec::Command;
+unit class Katana::Image::Elem:api<1> is export;
 
-unit module Katana::Image:api<1>;
-
-class Elem is export {
-  has Str $.basename;
-  has Str $!source;
-  has Str $!dist-dir;
-  has Str $.camera;
-
-  submethod BUILD(IO::Path :$source, Str :$dist-dir) {
-    $!basename = $source.basename;
-    $!source = $source.path;
-    $!dist-dir = $dist-dir;
-  }
+has Str $.basename;
+has Str $!source;
+has Str $!dist-dir;
+has Str $.camera;
 
-  method generate(Int :$thumb-geometry, Str :$bg-blur) {
-    my $thumb = "$!dist-dir/thumb/{$.basename}";
-    ⁉ [|<convert -auto-orient -geometry>, $thumb-geometry, $!source, $thumb];
-
-    my $blur = "$!dist-dir/blur/{$.basename}";
-    ⁉ [|<convert -flip -geometry>, $thumb-geometry/4, '-blur', $bg-blur, $thumb, $blur];
+submethod BUILD(IO::Path :$source, Str :$dist-dir) {
+  $!basename = $source.basename;
+  $!source = $source.path;
+  $!dist-dir = $dist-dir;
+}
 
-    my $large = "$!dist-dir/large/{$.basename}";
-    ⁉ ['cp', $!source, $large];
-  }
+method generate(Int :$thumb-geometry, Str :$bg-blur) {
+  my $thumb = "$!dist-dir/thumb/{$.basename}";
+  ⁉ [|<convert -auto-orient -geometry>, $thumb-geometry, $!source, $thumb];
 
-  method get-camera-model {
-    my %exif = read-exif-info "$!dist-dir/large/{$.basename}";
-    my $make = %exif<Make> ?? %exif<Make> !! '';
-    my $model = %exif{'Camera Model Name'} ?? %exif{'Camera Model Name'} !! '';
-    $model ~~ s/$make //; # Don't stotter
-    $model = 'Unknown camera' if $model eq '';
-    $!camera = "$make $model".trim;
-  }
+  my $blur = "$!dist-dir/blur/{$.basename}";
+  ⁉ [|<convert -flip -geometry>, $thumb-geometry/4, '-blur', $bg-blur, $thumb, $blur];
 
-  method tag(Str $class) {
-    "<img class='{$class}' src='./{$class}/{$.basename}' />"
-  }
+  my $large = "$!dist-dir/large/{$.basename}";
+  ⁉ ['cp', $!source, $large];
 }
 
+method get-camera-model returns Str {
+  my %exif = read-exif-info "$!dist-dir/large/{$.basename}";
+  my $make = %exif<Make> ?? %exif<Make> !! '';
+  my $model = %exif{'Camera Model Name'} ?? %exif{'Camera Model Name'} !! '';
+  $model ~~ s/$make //; # Don't stotter
+  $model = 'Unknown camera' if $model eq '';
+  $!camera = "$make $model".trim;
+}