add silly little scripts

flake.nix

@@ -15,6 +15,8 @@
       "firefox-esr-alias" "inkscape-xwayland"
     ];
 
+    crossPlatformPackages = packagesInDir "scripts" [ "niss-misc" ];
+
     fonts = packagesInDir "fonts" [
       "constructium" "fairfax-hd" "kreative-square" "muller"
       "pragmatapro" "teranoptia"
@@ -35,7 +37,7 @@
     ifLinux64 = f: pkgs: optionalAttrs (pkgs.system == "x86_64-linux") (f pkgs);
 
     mkPackages = pkgs:
-      ifLinux64 linuxPackages pkgs // fonts pkgs;
+      ifLinux64 linuxPackages pkgs // crossPlatformPackages pkgs // fonts pkgs;
 
     mkApps = pkgs: ifLinux64 linuxApps pkgs;
   in {

scripts/niss-misc.nix

@@ -0,0 +1,53 @@
+{ pkgs ? import <nixpkgs> {},
+  charFilters ? true,
+  find-parent ? true,
+  galleryHelpers ? true,
+  nd ? true
+}@inputs:
+
+let
+  inherit (pkgs) lib stdenv;
+
+  deps = with pkgs;
+    (lib.filterAttrs (k: v: inputs.${k} or true) {
+      galleryHelpers = [ rakudo ];
+      charFilters    = [ rakudo ];
+      find-parent    = [ execline ];
+      nd             = [ execline ];
+    });
+
+  dir = d:
+    let path = ./niss-misc/${d}; in
+    lib.fileset.toSource { root = path; fileset = path; };
+in
+  assert lib.assertMsg (nd -> find-parent) "nd depends on find-parent";
+
+  stdenv.mkDerivation {
+    name = "niss-misc";
+
+    buildInputs = lib.concatLists (lib.attrValues deps);
+
+    dontUnpack = true;
+
+    installPhase = lib.concatStringsSep "\n"
+      ([ "mkdir -p $out/bin" ] ++
+       map (d: "cp ${dir d}/* $out/bin") (lib.attrNames deps));
+
+    meta = {
+      description = "niss's funny little scripts";
+      longDescription = ''
+        - `galleryHelpers`: helper scripts for putting together the input for
+          `gallery.niss.website`. exceedingly unlikely to be useful to anyone
+          else.
+        - `charFilters`: `little` for making text ˡⁱᵏᵉ ᵗʰⁱˢ and `wide` for
+          text ｌｉｋｅ　ｔｈｉｓ.
+        - find-parent:
+          `find-parent ‹file›` looks for `‹file›` in the current directory or
+          any of its ancestors, and prints the path of the file found, if any.
+          `find-parent -d ‹file›` prints the path of only the directory
+          containing the file, rather than the file itself.
+        - nd: looks for a `flake.nix` and runs `nix develop` if so.
+          uses `find-parent`.
+      '';
+    };
+  }

scripts/niss-misc/charFilters/little

@@ -0,0 +1,57 @@
+#!/usr/bin/env raku
+
+#| print arguments or stdin as superscript
+unit sub MAIN(*@args);
+
+# char ranges {{{
+my %uc = (
+  A => 'ᴬ', B => 'ᴮ', D => 'ᴰ', E => 'ᴱ', G => 'ᴳ', H => 'ᴴ', I => 'ᴵ',
+  J => 'ᴶ', K => 'ᴷ', L => 'ᴸ', M => 'ᴹ', N => 'ᴺ', O => 'ᴼ', P => 'ᴾ',
+  R => 'ᴿ', T => 'ᵀ', U => 'ᵁ', W => 'ᵂ'
+);
+my %lc = (
+  a => 'ᵃ', b => 'ᵇ', c => 'ᶜ', d => 'ᵈ', e => 'ᵉ', f => 'ᶠ',
+  g => 'ᵍ', h => 'ʰ', i => 'ⁱ', j => 'ʲ', k => 'ᵏ', l => 'ˡ',
+  m => 'ᵐ', n => 'ⁿ', o => 'ᵒ', p => 'ᵖ', r => 'ʳ', s => 'ˢ',
+  t => 'ᵗ', u => 'ᵘ', v => 'ᵛ', w => 'ʷ', x => 'ˣ', y => 'ʸ',
+  z => 'ᶻ'
+);
+my %num = (
+  0 => '⁰', 1 => '¹', 2 => '²', 3 => '³',
+  ([4..9] Z ['⁴'..'⁹']).Map
+);
+my %other = ('!' => 'ꜝ', '.' => '·', '(' => '⁽', ')' => '⁾');
+# }}}
+my %caseless = %lc, %num, %other;
+my %cased = %uc, %caseless;
+
+
+sub rejects(@chars, %map) { @chars.grep(* ∉ %map).unique.join(', ') }
+sub non-ws($str) { $str.comb.grep(* !~~ /\s/) }
+
+sub shrink(Str $str) {
+  my $str-lc   = lc $str;
+  my @chars    = non-ws $str;
+  my @lc-chars = non-ws $str-lc;
+
+  my $cased-rejects    = rejects @chars, %cased;
+  my $caseless-rejects = rejects @lc-chars, %caseless;
+
+  if !$cased-rejects {
+    $str.trans: %cased
+  } elsif !$caseless-rejects {
+    note "using lowercase because no superscripts for $cased-rejects";
+    $str-lc.trans: %caseless;
+  } else {
+    note "no superscripts for $caseless-rejects";
+    ""
+  }
+}
+
+if @args > 0 {
+  say shrink @args.join: ' '
+} else {
+  say shrink $_ for $*IN.lines
+}
+
+# vim: set ft=little fdm=marker :

scripts/niss-misc/charFilters/wide

@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+#| convert arguments or stdin to fullwidth characters
+unit sub MAIN(*@args);
+
+sub widen(Str $str) {
+  my %map = (['!'..'~'] Z ['！'..'～']).Map, ' ' => '　';
+  my @rejects = $str.comb.grep: {$^x !~~ /\s/ && $^x ∉ %map};
+  note "unknown characters: @rejects.join(', ')" if @rejects;
+  $str.trans: %map
+}
+
+if @args > 0 {
+  say widen @args.join: ' '
+} else {
+  say widen $_ for $*IN.lines
+}
+
+# vim: set ft=raku :

scripts/niss-misc/find-parent/find-parent

@@ -0,0 +1,32 @@
+#!/usr/bin/env execlineb
+
+elgetopt d
+elgetpositionals
+importas -D "" dironly ELGETOPT_d
+
+if -nt { test $# -eq 0 }
+
+define FOUND 69
+foreground {
+  # look for each pattern (in cwd)
+  forx -E -x$FOUND pat { $@ }
+    # if a file exists, exit with $FOUND, which breaks the loop
+    elglob -0 files $pat
+    forx -E -x$FOUND file { $files }
+      ifthenelse { test -n $dironly } { pwd } { readlink -f $file }
+      exit $FOUND
+}
+importas result ?
+
+# if the loop exited with $FOUND then we're done
+if -nt { test $result -eq $FOUND }
+# if we're at / give up
+if -n -x1 {
+  getcwd -E cwd
+  test $cwd = /
+}
+
+cd ..
+ifelse { test -n $dironly } { find-parent -d $@ } find-parent $@
+
+# vim: set ft=execline :

scripts/niss-misc/galleryHelpers/make-info

@@ -0,0 +1,67 @@
+#!/usr/bin/env raku
+
+#| generate gallery info file
+unit sub MAIN(
+  Str :o($output) = 'info.yaml', #= output file
+  Bool :f($force) = False, #= overwrite an existing file
+  Bool :N($no-edit) = False, #= don't open editor after
+  *@files, #= files to list (default all images except thumb.*)
+);
+
+my $cwd = $*CWD.basename;
+my token isodate {
+  $<date> = [$<y>=[\d**4] '-' $<m>=[\d**2] '-' $<d>=[\d**2]]
+}
+
+my $date = $cwd.match(&isodate)<date> // Date.today.yyyy-mm-dd;
+my $name = $*CWD.basename.subst(/^<isodate> <[\w]>*\-/, '').trans('-' => ' ');
+
+sub image($path) {
+  qq:to/END/.chomp
+    - path: $path.basename()
+      desc: >
+        ...
+      nsfw: false
+      warning: ""
+  END
+}
+
+sub is-image($_) { /\. [jpg | png | webp | gif | svg]$/ and not /^thumb\./ }
+
+my @images = @files ?? @files».IO !! $*CWD.dir(test => &is-image).sort;
+
+die "no images found in $*CWD" unless @images;
+
+my $thumb-line = do given $*CWD.dir: test => /^thumb \./ {
+  when ([*]) { "thumb: $_[0].basename()" }
+  default { "" }
+};
+
+# spurt 'info.yaml', qq:to/END/;
+my $yaml = qq:to/END/;
+  date: $date
+  title: $name
+
+  tags: null
+
+  images:
+  {@images.map(&image).join: "\n"}
+  $thumb-line
+  bg: noborder
+
+  desc: |
+    ...
+  END
+
+if $output eq '-' {
+  print $yaml;
+}
+elsif $output.IO.e and not $force {
+  say "$output already exists, use -f if you're sure";
+  exit 1;
+} else {
+  spurt $output, $yaml;
+}
+
+my $editor = %*ENV<VISUAL> // %*ENV<EDITOR> // 'nano';
+run $editor, $output unless $no-edit;

scripts/niss-misc/galleryHelpers/make-sizes

@@ -0,0 +1,147 @@
+#!/usr/bin/env raku
+
+#| resize images for uploading to gallery sites
+unit sub MAIN(
+  #| number of concurrent jobs (default min{10, # cores})
+  Int :j(:$jobs) = min(10, $*KERNEL.cpu-cores),
+  #| formats to use for mastodon (png, webp, jpg, default, skip)
+  :m(:$mastodon) = Nil,
+  #| formats to use for furaffinity/weasyl
+  :f(:$furaffinity) = Nil,
+  #| formats to use for gallery.n.w
+  :g(:$gallery) = Nil,
+  #| formats to use for bluesky
+  :b(:$bluesky) = Nil,
+  #| webp/jpg quality setting (default 98)
+  Int :Q(:$quality) = 98,
+  #| only run conversions explicitly mentioned
+  Bool :O(:$only)    = False,
+  #| don't actually do anything (implies -v)
+  Bool :n(:$dry-run) = False,
+  #| print every action
+  Bool :v(:$verbose) = False,
+  #| out dir (default ./out)
+  IO(Str) :o(:$outdir) = 'out'.IO,
+  #| output as e.g. thing.gallery.webp instead of gallery/thing.webp
+  Bool :F(:$flat) = False,
+  #| background colour to use for jpg
+  Str :B(:$background) = 'white',
+  #| files to resize (default *.jpg *.png *.webp)
+  *@files,
+);
+
+sub cmd(*@args) {
+  say "> @args[]" if $dry-run || $verbose;
+  run @args       unless $dry-run;
+}
+
+sub verbose(*@args) { say "> @args[]" if $verbose }
+
+# fixup args
+
+enum Format <png webp jpg>;
+
+sub to-formats($_, *@default) {
+  when 'skip'    { Empty }
+  when 'default' { @default }
+  when Nil       { $only ?? Empty !! @default }
+  when Format    { $_ }
+  default {
+    .lc.split(',').map: { Format::{$_} // die "unrecognised format '$_'" }
+  }
+}
+
+
+my @mastodon    = to-formats $mastodon,    webp;
+# my @itaku       = to-formats $itaku,       webp;
+my @furaffinity = to-formats $furaffinity, png;
+my @gallery     = to-formats $gallery,     png,webp;
+my @bluesky     = to-formats $bluesky,     jpg;
+
+die "furaffinity/weasyl don't know what webp are" if webp ∈ @furaffinity;
+die "at the time of writing, bsky converts everything to jpg"
+  if @bluesky and @bluesky !eqv [jpg];
+
+if @files { @files .= map(*.IO) }
+else      { @files = $*CWD.dir: test => /:i \.[jpe?g|png|webp]$/ && *.IO.f }
+for @files { die "$_ is not a regular file" unless .f; }
+
+
+# running imagemagick (and oxipng sometimes) 🪄
+
+sub make-filename($in, $base, $format) {
+  $flat ?? $outdir.child($in.basename).extension("$base.$format")
+        !! $outdir.child($base).child($in.basename).extension("$format")
+}
+
+
+multi convert($in, @names where .elems >= 1, $size, $format) {
+  my $name = @names[0];
+  my $out = make-filename($in, $name, $format);
+  my @bg-flags = «-background $background -alpha remove»
+    if $format == jpg or $name eq 'bluesky';
+  cmd <mkdir -p>, $out.dirname;
+  cmd <magick>, $in, '-resize', $size, '-quality', $quality, @bg-flags, $out;
+  cmd <oxipng -q>, $out if $format == png;
+
+  for @names[1..*] {
+    my $link = make-filename($in, $_, $format);
+    cmd <mkdir -p>, $link.dirname;
+    cmd <cp -f>, $out, $link;
+  }
+
+  $out
+}
+multi convert($in, $name, $size, $format) {
+  convert($in, [$name], $size, $format);
+}
+
+sub square($s) { "{$s}x{$s}>" }
+sub pixels($s) { "{$s}@" }
+
+my @sites = [
+  {:name«fedi itaku»,  formats => @mastodon,    size => square 2800},
+  {:name<furaffinity>, formats => @furaffinity, size => square 1920},
+  {:name<weasyl>,      formats => @furaffinity, size => square 2800},
+  {:name<gallery>,     formats => @gallery,     size => square 3000},
+  {:name<bluesky>,     formats => @bluesky,     size => square 2000},
+];
+
+
+# go go go
+
+my @tasks;
+
+sub task-serial(&body, :$if = True) { body if $if; }
+
+sub task-parallel(&body, :$if = True) {
+  state $sem = Semaphore.new: $jobs;
+  return unless $if;
+  my $task = start { ENTER $sem.acquire; LEAVE $sem.release; body }
+  @tasks.push: $task;
+  $task
+}
+
+constant &task = $dry-run ?? &task-serial !! &task-parallel;
+
+my @todo = (@files X @sites).map: { hash :file(.[0]), |.[1] }
+my $len  = @todo.map(*.<formats>).sum;
+my $index;
+
+for @todo -> (:$file, :$name, :@formats, :$size) {
+  my @outputs = @formats.map: -> $format {
+    my $i = ++$index; my $base = $file.basename;
+    task {
+      say "[$i/$len] $name $base ($format)";
+      convert $file, $name, $size, $format;
+    }
+  }
+
+  task if => !$dry-run && @outputs > 1, {
+    my $keep = @outputs».=result.map({$_ => .s}).min(*.value).key;
+    verbose "# keeping $keep";
+    for @outputs { next when $keep; cmd "rm", $_ }
+  }
+}
+
+@tasks».result;

scripts/niss-misc/nd/nd

@@ -0,0 +1,19 @@
+#!/usr/bin/env execlineb
+
+importas -D /bin/bash default_shell SHELL
+
+elgetopt s:
+importas -D $default_shell shell ELGETOPT_s
+elgetpositionals
+
+getcwd -E cwd
+backtick -D "" -E nixdir { find-parent -d flake.nix }
+ifelse { test $nixdir = "" } {
+  foreground { echo "flake.nix not found in parents of ${cwd}" }
+  exit 1
+}
+
+cd $nixdir
+nix develop --no-warn-dirty $@ -c execlineb -c "cd ${cwd} ${shell}"
+
+# vim: set ft=execline :