rhi/misc
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

bluh

Browse source
This commit is contained in:
rhiannon morris 2022-05-20 12:44:13 +02:00
parent 0838af3d18
commit 48763d2fed
3 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bin/find-parent
View file

@ -8,9 +8,9 @@ if -nt { test $# -eq 0 }
define FOUND 69 define FOUND 69
foreground { foreground {
# look for each file (in cwd) # look for each pattern (in cwd)
forx -E -x$FOUND pat { $@ } 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 elglob -0 files $pat
forx -E -x$FOUND file { $files } forx -E -x$FOUND file { $files }
ifthenelse { test -n $dironly } { pwd } { readlink -f $file } ifthenelse { test -n $dironly } { pwd } { readlink -f $file }

21
bin/little
View file

@ -5,19 +5,20 @@ unit sub MAIN(*@args);
# char ranges {{{ # char ranges {{{
my %uc = ( 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 = ( 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 = ( my %num = (
0 => '⁰', 1 => '¹', 2 => '²', 3 => '³', ([4..9] Z ['⁴'..'⁹']).Map 0 => '⁰', 1 => '¹', 2 => '²', 3 => '³',
([4..9] Z ['⁴'..'⁹']).Map
); );
my %other = ('!' => 'ꜝ', '.' => '·'); my %other = ('!' => 'ꜝ', '.' => '·');
# }}} # }}}
@ -53,4 +54,4 @@ if @args > 0 {
say shrink $_ for $*IN.lines say shrink $_ for $*IN.lines
} }
# vim: set ft=perl6 fdm=marker : # vim: set ft=little fdm=marker :

2
bin/wide
View file

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