summaryrefslogtreecommitdiff
path: root/emacs/guix-hydra.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-03-03 12:55:21 +0300
committerAlex Kost <alezost@gmail.com>2016-03-04 13:17:36 +0300
commitb8fa5a2ae8b4c78ec84792e1a1d807ac6a675443 (patch)
treeef04cb48c08acbd32eb3e3a100cc0dcc164d1953 /emacs/guix-hydra.el
parentc7658f8f2c07abb7a1edeaf770be018709e1b076 (diff)
downloadguix-patches-b8fa5a2ae8b4c78ec84792e1a1d807ac6a675443.tar
guix-patches-b8fa5a2ae8b4c78ec84792e1a1d807ac6a675443.tar.gz
emacs: hydra: Use '-' to separate job names and version numbers.
* emacs/guix-hydra.el (guix-hydra-job-name-specification): New procedure. * emacs/guix-ui-package.el (guix-package-info-insert-systems) (guix-package-list-latest-builds): Use it.
Diffstat (limited to 'emacs/guix-hydra.el')
-rw-r--r--emacs/guix-hydra.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/emacs/guix-hydra.el b/emacs/guix-hydra.el
index 429483946b..9f876e7eea 100644
--- a/emacs/guix-hydra.el
+++ b/emacs/guix-hydra.el
@@ -36,6 +36,10 @@
(concat ".*\\." (regexp-opt guix-help-system-types) "\\'")
"Regexp matching a full name of Hydra job (including system).")
+(defun guix-hydra-job-name-specification (name version)
+ "Return Hydra's job name specification by NAME and VERSION."
+ (concat name "-" version))
+
(defun guix-hydra-message (entries search-type &rest _)
"Display a message after showing Hydra ENTRIES."
;; XXX Add more messages maybe.