From 2b89bc183281fa50d01893c5a615fe0efbf4ffb9 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Thu, 26 Jul 2018 22:34:02 +0300 Subject: 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. --- build-farm-build.el | 13 +++++++++++-- 1 file 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 -- cgit v1.2.3