+(defun fuel-refresh-and-test-all (&optional arg)
+ "Switch to the listener buffer and invokes Factor's refresh-and-test-all.
+With prefix, you're teletransporteded to the listener's buffer."
+ (interactive "P")
+ (let ((buf (process-buffer (fuel-listener--process))))
+ (with-current-buffer buf
+ (comint-send-string nil "\"Refreshing loaded vocabs and running tests...\" write nl flush")
+ (comint-send-string nil " refresh-and-test-all \"Done!\" write nl flush\n"))
+ (when arg (pop-to-buffer buf))))
+