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

@@ -5,19 +5,20 @@ unit sub MAIN(*@args);
 
 # char ranges {{{
 my %uc = (
-A => 'ᴬ', B => 'ᴮ', D => 'ᴰ', E => 'ᴱ', G => 'ᴳ', H => 'ᴴ', I => 'ᴵ',
+  A => 'ᴬ', B => 'ᴮ', D => 'ᴰ', E => 'ᴱ', G => 'ᴳ', H => 'ᴴ', I => 'ᴵ',
-J => 'ᴶ', K => 'ᴷ', L => 'ᴸ', M => 'ᴹ', N => 'ᴺ', O => 'ᴼ', P => 'ᴾ',
+  J => 'ᴶ', K => 'ᴷ', L => 'ᴸ', M => 'ᴹ', N => 'ᴺ', O => 'ᴼ', P => 'ᴾ',
-R => 'ᴿ', T => 'ᵀ', U => 'ᵁ', W => 'ᵂ'
+  R => 'ᴿ', T => 'ᵀ', U => 'ᵁ', W => 'ᵂ'
 );
 my %lc = (
-a => 'ᵃ', b => 'ᵇ', c => 'ᶜ', d => 'ᵈ', e => 'ᵉ', f => 'ᶠ',
+  a => 'ᵃ', b => 'ᵇ', c => 'ᶜ', d => 'ᵈ', e => 'ᵉ', f => 'ᶠ',
-g => 'ᵍ', h => 'ʰ', i => 'ⁱ', j => 'ʲ', k => 'ᵏ', l => 'ˡ',
+  g => 'ᵍ', h => 'ʰ', i => 'ⁱ', j => 'ʲ', k => 'ᵏ', l => 'ˡ',
-m => 'ᵐ', n => 'ⁿ', o => 'ᵒ', p => 'ᵖ', r => 'ʳ', s => 'ˢ',
+  m => 'ᵐ', n => 'ⁿ', o => 'ᵒ', p => 'ᵖ', r => 'ʳ', s => 'ˢ',
-t => 'ᵗ', u => 'ᵘ', v => 'ᵛ', w => 'ʷ', x => 'ˣ', y => 'ʸ',
+  t => 'ᵗ', u => 'ᵘ', v => 'ᵛ', w => 'ʷ', x => 'ˣ', y => 'ʸ',
-z => 'ᶻ'
+  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 :