bluh

bin/find-parent

@@ -8,9 +8,9 @@ if -nt { test $# -eq 0 }
 
 define FOUND 69
 foreground {
-  # look for each file (in cwd)
+  # look for each pattern (in cwd)
   forx -E -x$FOUND pat { $@ }
-    # if file exists, exit with $FOUND, which breaks the loop
+    # 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 }

bin/little

@@ -17,7 +17,8 @@ t => 'ᵗ', u => 'ᵘ', v => 'ᵛ', w => 'ʷ', x => 'ˣ', y => 'ʸ',
   z => 'ᶻ'
 );
 my %num = (
-0 => '⁰', 1 => '¹', 2 => '²', 3 => '³', ([4..9] Z ['⁴'..'⁹']).Map
+  0 => '⁰', 1 => '¹', 2 => '²', 3 => '³',
+  ([4..9] Z ['⁴'..'⁹']).Map
 );
 my %other = ('!' => 'ꜝ', '.' => '·');
 # }}}
@@ -53,4 +54,4 @@ if @args > 0 {
   say shrink $_ for $*IN.lines
 }
 
-# vim: set ft=perl6 fdm=marker :
+# vim: set ft=little fdm=marker :

bin/wide

@@ -16,4 +16,4 @@ if @args > 0 {
   say widen $_ for $*IN.lines
 }
 
-# vim: set ft=perl6 :
+# vim: set ft=raku :