about summary refs log tree commit diff
path: root/guix/forge
diff options
context:
space:
mode:
authorArun Isaac2022-03-28 15:21:39 +0530
committerArun Isaac2022-03-28 15:21:39 +0530
commitb308de7b6b1b9dea9371b3e03e0fd4766f681539 (patch)
treecb84c94b15afffefc525bfaa4e6da50524badef9 /guix/forge
parentee1d2f8d00003ddff30c9f611ebae859a8ba1ab6 (diff)
downloadguix-forge-b308de7b6b1b9dea9371b3e03e0fd4766f681539.tar.gz
guix-forge-b308de7b6b1b9dea9371b3e03e0fd4766f681539.tar.lz
guix-forge-b308de7b6b1b9dea9371b3e03e0fd4766f681539.zip
forge: Add trigger? field to forge-laminar-job.
* guix/forge/laminar.scm (<forge-laminar-job>)[trigger?]: New field.
* guix/forge/forge.scm (ci-jobs-trigger-gexp): Only trigger jobs for
which trigger? is #t.
* doc/forge.skb (Reference)[<forge-laminar-job>]: Document trigger?.
Diffstat (limited to 'guix/forge')
-rw-r--r--guix/forge/forge.scm5
-rw-r--r--guix/forge/laminar.scm5
2 files changed, 8 insertions, 2 deletions
diff --git a/guix/forge/forge.scm b/guix/forge/forge.scm
index 2c55b44..f99576f 100644
--- a/guix/forge/forge.scm
+++ b/guix/forge/forge.scm
@@ -97,7 +97,10 @@
           (setenv "LAMINAR_REASON" #$reason))
         (apply invoke
                #$(file-append laminar "/bin/laminarc")
-               "queue" '#$(map forge-laminar-job-name ci-jobs)))))
+               "queue" '#$(filter-map (lambda (job)
+                                        (and (forge-laminar-job-trigger? job)
+                                             (forge-laminar-job-name job)))
+                                      ci-jobs)))))
 
 (define (forge-activation config)
   (let ((projects
diff --git a/guix/forge/laminar.scm b/guix/forge/laminar.scm
index 22c9f9a..61d1d20 100644
--- a/guix/forge/laminar.scm
+++ b/guix/forge/laminar.scm
@@ -34,6 +34,7 @@
             forge-laminar-job-name
             forge-laminar-job-run
             forge-laminar-job-after
+            forge-laminar-job-trigger?
             forge-laminar-group
             forge-laminar-group?
             forge-laminar-group-name
@@ -56,7 +57,9 @@
   (name forge-laminar-job-name)
   (run forge-laminar-job-run (thunked))
   (after forge-laminar-job-after
-         (default #f)))
+         (default #f))
+  (trigger? forge-laminar-job-trigger?
+            (default #t)))
 
 (define-record-type* <forge-laminar-group>
   forge-laminar-group make-forge-laminar-group