nandi/frq · 7e53cb4

nandi/frqpublic⑂ Fork 0

⑂ 7e53cb4

Offer the way back to the present

A chat that follows the newest line is no use if you cannot leave it, and
leaving it is no use if you cannot get back. The scroll now says when the view
has left the end, and a button appears directly above the compose bar while it
has — next to the thing that would put you back there anyway.

Sending counts as asking to see it: the draft going out jumps to the present
too, since a message you cannot see arriving is a strange thing to have sent.

The button is inside a wrapper of its own with a key, like every other
conditional child here: one that renders nil when it has nothing to say shifts
every sibling after it, and the reconciler matches by position.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>

nandi committed 2026-08-30T11:41:57-07:00 Browse files

7e53cb4 parent: 78e7c29

modified src/frq/app.jolt +8 -1 Viewed

@@ -321,10 +321,17 @@
321	321	[error-note]
322	322	;; :reserve leaves room for the separator and compose bar below, so the
323	323	;; list fills whatever the window has and no more.
324		- [:scroll {:orientation :vertical :reserve 72 :stick-to-bottom true}
	324	+ [:scroll {:orientation :vertical :reserve 72 :stick-to-bottom true
	325	+ :scroll-to-bottom @s/jump-tick
	326	+ :on-change #(reset! s/at-present? (= "end" %))}
325	327	(if (seq (:messages buffer))
326	328	(message-rows (:messages buffer))
327	329	[:dim-label {:label "Nothing here yet."}])]
	330	+ ;; Only while it is needed, and directly above the compose bar: the way
	331	+ ;; back to the present belongs next to the thing that puts you there.
	332	+ [:vbox {:key :jump}
	333	+ (when-not @s/at-present?
	334	+ [:button {:label "↓ Jump to present" :on-click s/jump-to-present!}])]
328	335	[:separator {}]
329	336	[:hbox {:spacing 8}
330	337	;; narrow enough that Send keeps its place on a phone-width row

       [error-note]
       ;; :reserve leaves room for the separator and compose bar below, so the
       ;; list fills whatever the window has and no more.
--     [:scroll {:orientation :vertical :reserve 72 :stick-to-bottom true}
++     [:scroll {:orientation :vertical :reserve 72 :stick-to-bottom true
++               :scroll-to-bottom @s/jump-tick
++               :on-change #(reset! s/at-present? (= "end" %))}
        (if (seq (:messages buffer))
          (message-rows (:messages buffer))
          [:dim-label {:label "Nothing here yet."}])]
++     ;; Only while it is needed, and directly above the compose bar: the way
++     ;; back to the present belongs next to the thing that puts you there.
++     [:vbox {:key :jump}
++      (when-not @s/at-present?
++        [:button {:label "↓ Jump to present" :on-click s/jump-to-present!}])]
       [:separator {}]
       [:hbox {:spacing 8}
        ;; narrow enough that Send keeps its place on a phone-width row

modified src/frq/state.jolt +10 -0 Viewed

@@ -66,6 +66,14 @@
66	66	;; so this is a screen of its own rather than a layer over the chat.
67	67	(defonce lightbox (atom nil)) ; {:path :url}
68	68	(defonce join-input (atom ""))
	69	+
	70	+;; Whether the chat view is showing the newest line, and a counter the view
	71	+;; watches to be told to go back to it. A counter rather than a flag: a flag
	72	+;; would need clearing, and there is no frame in which to clear it.
	73	+(defonce at-present? (atom true))
	74	+(defonce jump-tick (atom 0))
	75	+
	76	+(defn jump-to-present! [] (swap! jump-tick inc))
69	77	;; A counter rather than a clock: the list only needs their order, and a
70	78	;; monotonic tick cannot be surprised by the system time moving.
71	79	(defonce access-tick (atom 0))
@@ -411,6 +419,8 @@
411	419	(let [text (str/trim @draft)
412	420	target @current]
413	421	(when (and (seq text) target)
	422	+ ;; Saying something is a way of asking to see it.
	423	+ (jump-to-present!)
414	424	(when-let [c @conn] (irc/privmsg! c target text))
415	425	(push-message! target @form-nick text)
416	426	(reset! draft ""))))

  ;; so this is a screen of its own rather than a layer over the chat.
  (defonce lightbox (atom nil))            ; {:path :url}
  (defonce join-input (atom ""))
++
++;; Whether the chat view is showing the newest line, and a counter the view
++;; watches to be told to go back to it. A counter rather than a flag: a flag
++;; would need clearing, and there is no frame in which to clear it.
++(defonce at-present? (atom true))
++(defonce jump-tick (atom 0))
++
++(defn jump-to-present! [] (swap! jump-tick inc))
  ;; A counter rather than a clock: the list only needs their order, and a
  ;; monotonic tick cannot be surprised by the system time moving.
  (defonce access-tick (atom 0))
    (let [text (str/trim @draft)
          target @current]
      (when (and (seq text) target)
++      ;; Saying something is a way of asking to see it.
++      (jump-to-present!)
        (when-let [c @conn] (irc/privmsg! c target text))
        (push-message! target @form-nick text)
        (reset! draft ""))))