urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-02 08:55:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

removes ++ucas and ++lcas from lib/drum

Browse Source
This commit is contained in:
Joseph Bryan 2016-10-26 13:48:03 -04:00
parent a7348fc359
commit 9328ca4a9d
1 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lib/drum.hoon
View File

@ -674,18 +674,6 @@
== ==
==
::
++ lcas :: lowercase
|* a/(list @)
^+ a
%+ turn a
|=(a/@ ?.(&((gte a 'A') (lte a 'Z')) a (add 32 a)))
::
++ ucas :: uppercase
|* a/(list @)
^+ a
%+ turn a
|=(a/@ ?.(&((gte a 'a') (lte a 'z')) a (sub a 32)))
::
++ ta-met :: meta key
|= key/@ud
^+ +>
@ -710,7 +698,9 @@
ta-bel
=+ sop=(ta-jump %r %wrd pos.inp)
%- ta-hom(pos.inp (ta-jump %r %edg sop))
(rep:edit [sop 1] (ucas (swag [sop 1] buf.say.inp)))
%+ rep:edit [sop 1]
^- (list @c) ^- (list @) :: XX unicode
(cuss `tape``(list @)`(swag [sop 1] buf.say.inp))
::
$d ?: =(pos.inp (lent buf.say.inp)) :: kill right-word
ta-bel
@ -741,10 +731,13 @@
?($u $l) :: upper/lower case
?: =(pos.inp (lent buf.say.inp))
ta-bel
=+ case=?:(?=($u key) ucas lcas)
=+ case=?:(?=($u key) cuss cass)
=+ sop=(ta-jump %r %wrd pos.inp)
=+ sel=[sop (ta-off %r %edg sop)]
(ta-hom (rep:edit sel (case (swag sel buf.say.inp))))
%- ta-hom
%+ rep:edit sel
^- (list @c) ^- (list @) :: XX unicode
(case `tape``(list @)`(swag sel buf.say.inp))
::
$y ?. ?& ?=(^ old.kil) :: rotate & yank
?=(^ p.blt)