mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
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.
This commit is contained in:
parent
c7658f8f2c
commit
b8fa5a2ae8
2 changed files with 7 additions and 2 deletions
|
@ -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.
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue