diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-26 22:34:02 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | 2b89bc183281fa50d01893c5a615fe0efbf4ffb9 (patch) | |
| tree | 3fab74ac1da4725f9019af00707666c999f9b662 | |
| parent | Fix "Builds" buttons in Build Info buffer (diff) | |
| download | emacs-build-farm-2b89bc183281fa50d01893c5a615fe0efbf4ffb9.tar.gz | |
Add 'build-farm-set-number-of-builds' command
* build-farm-build.el (build-farm-build-read-number): New function.
(build-farm-build-read-number-maybe): Use it.
(build-farm-set-number-of-builds): New command.
| -rw-r--r-- | build-farm-build.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/build-farm-build.el b/build-farm-build.el index 17d7584..8d4ae63 100644 --- a/build-farm-build.el +++ b/build-farm-build.el @@ -46,14 +46,23 @@ for the number of builds." :type 'integer :group 'build-farm-build) +(defun build-farm-set-number-of-builds (number) + "Set `build-farm-number-of-builds' to NUMBER." + (interactive (list (build-farm-build-read-number))) + (setq build-farm-number-of-builds number)) + +(defun build-farm-build-read-number (&optional prompt) + "Read from minibuffer (using PROMPT) a number of builds." + (read-number (or prompt "Number of builds: ") + build-farm-number-of-builds)) + (defun build-farm-build-read-number-maybe (&optional prompt) "Read from minibuffer (using PROMPT) a number of builds. If `current-prefix-arg' is specified, just return `build-farm-number-of-builds' without reading." (if (or current-prefix-arg (null build-farm-number-of-builds)) - (read-number (or prompt "Number of builds: ") - build-farm-number-of-builds) + (build-farm-build-read-number prompt) build-farm-number-of-builds)) (cl-defun build-farm-build-latest-prompt-args (&key project jobset |