chat: give terminal bell on tab in an empty buffer
?: ?| =(~ buf.state.cli)
!=(';' -.buf.state.cli)
==
- [~ all-state]
+ :_ all-state
+ [(effect:sh-out [%bel ~]) ~]
+ ::
=+ (get-id:auto pos (tufa buf.state.cli))
=/ needle=term
(fall id '')
=? moves ?=(^ options)
[(tab:sh-out options) moves]
=| fxs=(list sole-effect:sole-sur)
- |-
+ |- ^- (quip card state)
?~ to-send
[(flop moves) all-state]
=^ char state.cli
