From b308de7b6b1b9dea9371b3e03e0fd4766f681539 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 28 Mar 2022 15:21:39 +0530
Subject: 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?.
---
 guix/forge/forge.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'guix/forge/forge.scm')

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
-- 
cgit v1.2.3