updates drum input scroller to be sticky

2024-12-11 23:48:22 +03:00 · 2017-02-27 23:59:13 -05:00 · 2017-02-27 23:59:13 -05:00 · 5c07bbd93e
commit 5c07bbd93e
parent 74f32a67dd
1 changed files with 5 additions and 1 deletions
--- a/lib/drum.hoon
+++ b/lib/drum.hoon
@ -412,7 +412,11 @@
  ^+  +>
  =/  pol  (lent-char:klr pom)
  =/  end  (sub edg pol)
-  =.  off  ?:((lte p.lin end) 0 (sub p.lin end))
+  =.  off  ?:  (gth p.lin (add end off))
+             (sub p.lin end)
+           ?:  (lth p.lin off)
+             (min p.lin (dec off))
+           off
  %+  se-show
    (sub (add pol p.lin) off)
  (welp pom [*stye (swag [off end] q.lin)]~)