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

Change prompt to ++tape.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-03-19 12:58:54 -07:00
parent 2ad78d1f60
commit b65636a0bf
3 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
main/app/dojo/core.hook
View File

@ -574,7 +574,7 @@
++ he-prom :: send prompt
%- he-rush
:- %pro
[& %$ (tuba (weld (scow %p our.hid) ":dojo> "))]
[& %$ (weld (scow %p our.hid) ":dojo> ")]
::
++ he-made :: result from ford
|= [pax=path rey=(each bead (list tank))]

13
main/app/seat/core.hook
View File

@ -476,16 +476,15 @@
?^ ris
%= $
ris ~
cap.pom
`(list ,@)`:(welp "(reverse-i-search)'" str.u.ris "': ")
cad.pom
:(welp "(reverse-i-search)'" (tufa str.u.ris) "': ")
==
=- [(add pos.inp (lent p.vew)) (weld p.vew q.vew)]
^= vew ^- (pair (list ,@c) (list ,@c))
?: vis.pom [cap.pom buf.say.inp]
=- [(add pos.inp (lent p.vew)) (weld (tuba p.vew) q.vew)]
^= vew ^- (pair tape (list ,@c))
?: vis.pom [cad.pom buf.say.inp]
:- ;: welp
cap.pom
cad.pom
?~ buf.say.inp ~
%- tuba
;: welp
"<"
(scow %p (end 4 1 (sham buf.say.inp)))

2
main/sur/console/core.hook
View File

@ -80,7 +80,7 @@
++ console-prompt :: prompt definition
$: vis=? :: command visible
tag=term :: history mode
cap=(list ,@c) :: caption
cad=tape :: caption
== ::
++ console-input tape :: prompt input
++ console-share :: symmetric state