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

switches drum to a sticky prompt, scrolling input only

Browse Source
This commit is contained in:
Joseph Bryan 2017-02-26 23:39:21 -05:00
parent 4c2ac92947
commit 23966fe45b
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/drum.hoon
View File

@ -401,10 +401,14 @@
+>(mir lin)
::
++ se-just :: adjusted buffer
|= lin/(pair @ud stub:dill)
|= {pom/stub:dill lin/(pair @ud (list @c))}
^+ +>
=. off ?:((lth p.lin edg) 0 (sub p.lin edg))
(se-show (sub p.lin off) (scag:klr edg (slag:klr off q.lin)))
=/ pol (lent-char:klr pom)
=/ end (sub edg pol)
=. off ?:((lte p.lin end) 0 (sub p.lin end))
%+ se-show
(sub (add pol p.lin) off)
(welp pom [*stye:dill (swag [off end] q.lin)]~)
::
++ se-view :: flush buffer
^+ .
@ -826,11 +830,9 @@
(ta-hom (cat:edit pos.inp txt))
::
++ ta-vew :: computed prompt
^- (pair @ud stub:dill)
^- {pom/stub:dill lin/(pair @ud (list @c))}
=; vew/(pair (list @c) styx:dill)
=+ lin=(make:klr q.vew)
:_ (welp lin [*stye:dill p.vew]~)
(add pos.inp (lent-char:klr lin))
[(make:klr q.vew) pos.inp p.vew]
?: vis.pom
:- buf.say.inp :: default prompt
?~ ris