From fb0599afde14b4f0a137b4286f48151a500afd96 Mon Sep 17 00:00:00 2001 From: timor Date: Wed, 26 May 2021 20:37:43 +0200 Subject: [PATCH] fuel: Incorporate refresh-and-test-all --- misc/fuel/fuel-listener.el | 13 ++++++++++++- misc/fuel/fuel-mode.el | 1 + 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/misc/fuel/fuel-listener.el b/misc/fuel/fuel-listener.el index 02ba2e8d52..3058a0d696 100644 --- a/misc/fuel/fuel-listener.el +++ b/misc/fuel/fuel-listener.el @@ -211,6 +211,16 @@ With prefix, you're teletransported to the listener's buffer." (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." @@ -281,7 +291,8 @@ 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) diff --git a/misc/fuel/fuel-mode.el b/misc/fuel/fuel-mode.el index 005582f63b..86c454bbe0 100644 --- a/misc/fuel/fuel-mode.el +++ b/misc/fuel/fuel-mode.el @@ -226,6 +226,7 @@ interacting with a factor listener is at your disposal. ("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) -- 2.34.1