From 64090127f752b3d32d313adb561688a6951dc563 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Wed, 22 Aug 2018 11:08:43 +0300 Subject: jobset: Add "Builds" button to Cuirass Jobset Info * build-farm-jobset.el (build-farm-cuirass-jobset-info-insert-builds): New procedure. (build-farm-cuirass-jobset-info-format): Add it. --- build-farm-jobset.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/build-farm-jobset.el b/build-farm-jobset.el index 5fdf281..ac4ac89 100644 --- a/build-farm-jobset.el +++ b/build-farm-jobset.el @@ -219,6 +219,7 @@ The BUTTON file name is relative to guix source tree." nil build-farm-jobset-info-insert-url nil + build-farm-cuirass-jobset-info-insert-builds (load-path-inputs format (format)) (package-path-inputs format (format)) nil @@ -244,6 +245,13 @@ The BUTTON file name is relative to guix source tree." (no-compile? format (format))) :reduced? t) +(defun build-farm-cuirass-jobset-info-insert-builds (entry) + "Insert 'Builds' button for the jobset ENTRY." + (let ((jobset (bui-entry-non-void-value entry 'name))) + (build-farm-build-info-insert-builds-button + :jobset jobset)) + (bui-newline)) + (defun build-farm-cuirass-jobset-info-insert-file (file-name) "Insert FILE-NAME of a jobset's procedure at point." (bui-insert-non-nil file-name -- cgit v1.2.3