diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org index 8d624d1..10c4db1 100644 --- a/org/channel-tui-main.org +++ b/org/channel-tui-main.org @@ -1020,11 +1020,11 @@ Event handlers + daemon I/O + main loop. (sel-p (theme-color :accent)) (t (theme-color :agent-fg))) nil :bold sel-p) - (incf y-off))))))) - (sleep 0.1))) - (uiop:terminate-process cat-proc) + (incf y-off))))))) + (sleep 0.1)) + (uiop:terminate-process cat-proc)) (add-msg :system (format nil "* cat ~a ended *" (uiop:process-info-pid cat-proc)))) - (progn (disconnect-daemon)))) + (progn (disconnect-daemon)))) #+END_SRC * Test Suite