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

Merge commit '4b7d33' into cc-merge

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-11-13 16:54:20 -08:00
commit 02ab983b7d
1 changed files with 12 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lib/drum.hoon
View File

@ -829,27 +829,18 @@
:: ::
++ ta-vew :: computed prompt ++ ta-vew :: computed prompt
|- ^- (pair @ud (list @c)) |- ^- (pair @ud (list @c))
?^ ris =; vew/(pair (list @c) tape)
%= $ [(add pos.inp (lent q.vew)) (weld (tuba q.vew) p.vew)]
ris ~ ?: vis.pom
cad.pom :- buf.say.inp :: default prompt
:(welp "(reverse-i-search)'" (tufa str.u.ris) "': ") ?~ ris
== cad.pom
=- [(add pos.inp (lent p.vew)) (weld (tuba p.vew) q.vew)] :(welp "(reverse-i-search)'" (tufa str.u.ris) "': ")
^= vew ^- (pair tape (list @c)) :- (reap (lent buf.say.inp) `@c`'*') :: hidden input
?: vis.pom [cad.pom buf.say.inp] %+ welp
:- ;: welp cad.pom
cad.pom ?~ buf.say.inp ~
?~ buf.say.inp ~ :(welp "<" (scow %p (end 4 1 (sham buf.say.inp))) "> ")
;: welp
"<"
(scow %p (end 4 1 (sham buf.say.inp)))
"> "
==
==
=+ len=(lent buf.say.inp)
|- ^- (list @c)
?:(=(0 len) ~ [`@c`'*' $(len (dec len))])
-- --
++ edit :: produce sole-edits ++ edit :: produce sole-edits
|% |%