[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: emacs: hydra: Use '-' to separate job names and version numbers.
From: |
Alex Kost |
Subject: |
01/02: emacs: hydra: Use '-' to separate job names and version numbers. |
Date: |
Fri, 04 Mar 2016 10:17:39 +0000 |
alezost pushed a commit to branch master
in repository guix.
commit b8fa5a2ae8b4c78ec84792e1a1d807ac6a675443
Author: Alex Kost <address@hidden>
Date: Thu Mar 3 12:55:21 2016 +0300
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.
---
emacs/guix-hydra.el | 4 ++++
emacs/guix-ui-package.el | 5 +++--
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/emacs/guix-hydra.el b/emacs/guix-hydra.el
index 4294839..9f876e7 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.
diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el
index d6d2633..8635c73 100644
--- a/emacs/guix-ui-package.el
+++ b/emacs/guix-ui-package.el
@@ -34,6 +34,7 @@
(require 'guix-guile)
(require 'guix-entry)
(require 'guix-utils)
+(require 'guix-hydra)
(require 'guix-hydra-build)
(require 'guix-read)
(require 'guix-license)
@@ -388,7 +389,7 @@ formatted with this string, an action button is inserted.")
:system (button-label btn))))
(apply #'guix-hydra-build-get-display
'latest args)))
- 'job-name (guix-package-name-specification
+ 'job-name (guix-hydra-job-name-specification
(guix-entry-value entry 'name)
(guix-entry-value entry 'version))))
@@ -776,7 +777,7 @@ for all ARGS."
(interactive
(let ((entry (guix-list-current-entry)))
(guix-hydra-build-latest-prompt-args
- :job (guix-package-name-specification
+ :job (guix-hydra-job-name-specification
(guix-entry-value entry 'name)
(guix-entry-value entry 'version)))))
(apply #'guix-hydra-latest-builds number args))