(comint-send-string nil " refresh-all \"Done!\" write nl flush\n"))
(when arg (pop-to-buffer buf))))
+(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))))
+
(defun fuel-test-vocab (&optional arg)
"Run the unit tests for the current vocabulary. With prefix argument, ask for
the vocabulary name."
fuel-show-callees :enable (symbol-at-point))
(mode "Autodoc mode" "\C-c\C-a" fuel-autodoc-mode))
("Run file" "\C-c\C-k" fuel-run-file)
- ("Refresh vocabs" "\C-c\C-r" fuel-refresh-all))
+ ("Refresh vocabs" "\C-c\C-r" fuel-refresh-all)
+ ("Refresh vocabs and test" "\C-c\M-r" fuel-refresh-and-test-all))
(define-key fuel-listener-mode-map [menu-bar completion] 'undefined)
("Run file" ("\C-c\C-k" "\C-c\C-l" "\C-c\C-e\C-k") fuel-run-file)
("Run unit tests" "\C-c\C-t" fuel-test-vocab)
("Refresh vocabs" "\C-c\C-r" fuel-refresh-all)
+ ("Refresh vocabs and test" "\C-c\M-r" fuel-refresh-and-test-all)
--
(menu "Switch to"
("Listener" "\C-c\C-z" run-factor)