diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-12 17:16:37 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-16 21:37:19 +0300 |
| commit | 88a73856e38a9e243645c4362c3014c04e861cc8 (patch) | |
| tree | 5d0ed3901065370867e74e0ea095820f0af334d8 | |
| parent | Try to guess a package manager and a build farm url (diff) | |
| download | emacs-build-farm-88a73856e38a9e243645c4362c3014c04e861cc8.tar.gz | |
Add 'build-farm-set-url' command
* build-farm.el (build-farm-read-url): New function.
(build-farm-set-url): New command.
| -rw-r--r-- | build-farm.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/build-farm.el b/build-farm.el index d0f9858..9a28b25 100644 --- a/build-farm.el +++ b/build-farm.el @@ -142,6 +142,20 @@ (string :tag "Other URL")) :group 'build-farm) +(defun build-farm-read-url () + "Read from minibuffer and return build farm URL." + (completing-read "Build farm URL: " + (build-farm-urls) + nil nil nil nil + build-farm-url)) + +;;;###autoload +(defun build-farm-set-url (url) + "Set `build-farm-url' to URL. +Interactively, prompt for URL" + (interactive (list (build-farm-read-url))) + (setq build-farm-url url)) + (defun build-farm-type-by-url (url) "Return build farm type by its URL." (or (bui-assoc-value build-farm-url-alist url) |