git.shiar.nl
/
minime.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e90b36e
)
always prepend space to metadata lines
author
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 10 Feb 2020 03:37:31 +0000
(
04:37
+0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 10 Feb 2020 03:38:20 +0000
(
04:38
+0100)
termimg
patch
|
blob
|
history
diff --git
a/termimg
b/termimg
index a79ecf6b7a8b884549cc4a9b530e958efd279858..b7fa9340fb6ac20d49c7180721f99d02ba7b7c81 100755
(executable)
--- a/
termimg
+++ b/
termimg
@@
-6,34
+6,34
@@
my @info = eval {
require Image::ExifTool;
my $exif = Image::ExifTool->new->ImageInfo($file);
return (
require Image::ExifTool;
my $exif = Image::ExifTool->new->ImageInfo($file);
return (
-
" $exif->{MIMEType}"
,
- $exif->{ImageSize} ? "
$exif->{ImageSize} ($exif->{Megapixels}MP)" : (),
- join(' ',
'',
+
$exif->{MIMEType}
,
+ $exif->{ImageSize} ? "$exif->{ImageSize} ($exif->{Megapixels}MP)" : (),
+ join(' ',
$exif->{YCbCrSubSampling} // (),
$exif->{Interlace} // (),
$exif->{Compression} // $exif->{FileType},
$exif->{SVGVersion} // $exif->{PDFVersion} // (),
),
$exif->{YCbCrSubSampling} // (),
$exif->{Interlace} // (),
$exif->{Compression} // $exif->{FileType},
$exif->{SVGVersion} // $exif->{PDFVersion} // (),
),
- $exif->{ColorType} ? "
$exif->{BitDepth}bpp $exif->{ColorType}" : (),
- sprintf('
exif x%d', scalar %{$exif}),
- $exif->{Thumb} ? "
thumb $exif->{ThumbnailLength}B" : (),
- (map "
@ $_",
+ $exif->{ColorType} ? "$exif->{BitDepth}bpp $exif->{ColorType}" : (),
+ sprintf('exif x%d', scalar %{$exif}),
+ $exif->{Thumb} ? "thumb $exif->{ThumbnailLength}B" : (),
+ (map "@ $_",
$exif->{DateCreated} //
$exif->{CircaDateCreated} //
$exif->{ModifyDate} //
$exif->{ZipModifyDate} //
(),
),
$exif->{DateCreated} //
$exif->{CircaDateCreated} //
$exif->{ModifyDate} //
$exif->{ZipModifyDate} //
(),
),
- $exif->{GPSPosition} ?
" $exif->{GPSPosition}"
=~ s/ deg/./gr :
- $exif->{Location} ?
" $exif->{Location}"
: (),
- $exif->{GPSAltitude} ?
" $exif->{GPSAltitude}"
: (),
- (map "
hw $_", join(' ',
+ $exif->{GPSPosition} ?
$exif->{GPSPosition}
=~ s/ deg/./gr :
+ $exif->{Location} ?
$exif->{Location}
: (),
+ $exif->{GPSAltitude} ?
$exif->{GPSAltitude}
: (),
+ (map "hw $_", join(' ',
$exif->{Make} // (), $exif->{Model} // (),
$exif->{FOV} ? "(FOV $exif->{FOV})" : (),
) || ()),
$exif->{Make} // (), $exif->{Model} // (),
$exif->{FOV} ? "(FOV $exif->{FOV})" : (),
) || ()),
- (map "
sw $_", $exif->{Software} // $exif->{Application} // ()),
- (map "
> $_", $exif->{'Description-nl'} // ()),
- $exif->{Warning} ? "
! $exif->{Warning}" : (),
+ (map "sw $_", $exif->{Software} // $exif->{Application} // ()),
+ (map "> $_", $exif->{'Description-nl'} // ()),
+ $exif->{Warning} ? "! $exif->{Warning}" : (),
);
} or warn $@;
);
} or warn $@;
@@
-43,7
+43,7
@@
eval {
open my $bin, '<', $file;
binmode $bin;
my $md5 = Digest::MD5->new->addfile($bin)->b64digest;
open my $bin, '<', $file;
binmode $bin;
my $md5 = Digest::MD5->new->addfile($bin)->b64digest;
- push @info, "
# $md5 ($filesize)";
+ push @info, "# $md5 ($filesize)";
} or warn $@;
open my $pgm, '-|', convert => (
} or warn $@;
open my $pgm, '-|', convert => (
@@
-59,8
+59,9
@@
if (<$pgm> eq "P2\n") {
my @ch = split //, " .:coO@";
while (<$pgm>) {
print $ch[ $_ * @ch >> 8 ] for /\d+/g;
my @ch = split //, " .:coO@";
while (<$pgm>) {
print $ch[ $_ * @ch >> 8 ] for /\d+/g;
- say shift @info;
+ print ' ', shift @info if @info;
+ print $/;
}
}
- substr $_, 0, 0, ' ' x
$width
for @info;
+ substr $_, 0, 0, ' ' x
($width + 1)
for @info;
}
say for @info;
}
say for @info;