From 48763d2fed45ad0936fb6a8b5d68594648bcdeff Mon Sep 17 00:00:00 2001 From: rhiannon morris Date: Fri, 20 May 2022 12:44:13 +0200 Subject: [PATCH] bluh --- bin/find-parent | 4 ++-- bin/little | 21 +++++++++++---------- bin/wide | 2 +- 3 files changed, 14 insertions(+), 13 deletions(-) diff --git a/bin/find-parent b/bin/find-parent index 16a0aea..5d0614d 100755 --- a/bin/find-parent +++ b/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 } diff --git a/bin/little b/bin/little index 388080a..4ab9ff8 100755 --- a/bin/little +++ b/bin/little @@ -5,19 +5,20 @@ 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 => 'ᵂ' + 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 => 'ᶻ' + 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 + 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 : diff --git a/bin/wide b/bin/wide index 42cd982..299c564 100755 --- a/bin/wide +++ b/bin/wide @@ -16,4 +16,4 @@ if @args > 0 { say widen $_ for $*IN.lines } -# vim: set ft=perl6 : +# vim: set ft=raku :