modified
src/frq/state.jolt +6 -1 | @@ -244,7 +244,12 @@ | ||
| 244 | 244 | (str "Connected as " @form-nick))) |
| 245 | 245 | (reset! connecting? false) |
| 246 | 246 | (reset! screen :chats) |
| 247 | - (join! auto-join)) | |
| 247 | + ;; Back where the reader left off. The list is still what a | |
| 248 | + ;; connect lands on underneath, so Back from the reopened | |
| 249 | + ;; channel goes to the chats rather than out of the app. | |
| 250 | + (if-let [last-ch (first (channel-order))] | |
| 251 | + (open-channel! last-ch) | |
| 252 | + (join! auto-join))) | |
| 248 | 253 | "PRIVMSG" (let [[target text] params |
| 249 | 254 | ;; The server's clock when it offers one: a replayed |
| 250 | 255 | ;; backlog is hours or weeks old, and stamping it with |
| @@ -244,7 +244,12 @@ | |||
| 244 | (str "Connected as " @form-nick))) | 244 | (str "Connected as " @form-nick))) |
| 245 | (reset! connecting? false) | 245 | (reset! connecting? false) |
| 246 | (reset! screen :chats) | 246 | (reset! screen :chats) |
| 247 | - (join! auto-join)) | 247 | + ;; Back where the reader left off. The list is still what a |
| 248 | + ;; connect lands on underneath, so Back from the reopened | ||
| 249 | + ;; channel goes to the chats rather than out of the app. | ||
| 250 | + (if-let [last-ch (first (channel-order))] | ||
| 251 | + (open-channel! last-ch) | ||
| 252 | + (join! auto-join))) | ||
| 248 | "PRIVMSG" (let [[target text] params | 253 | "PRIVMSG" (let [[target text] params |
| 249 | ;; The server's clock when it offers one: a replayed | 254 | ;; The server's clock when it offers one: a replayed |
| 250 | ;; backlog is hours or weeks old, and stamping it with | 255 | ;; backlog is hours or weeks old, and stamping it with |