From 5c07bbd93ef92eacf178574d59a5e50e51c2e36e Mon Sep 17 00:00:00 2001
From: Joseph Bryan <joemfb@gmail.com>
Date: Mon, 27 Feb 2017 23:59:13 -0500
Subject: [PATCH] updates drum input scroller to be sticky

---
 lib/drum.hoon | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/drum.hoon b/lib/drum.hoon
index d409648f7..673b3785a 100644
--- 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)]~)