diff options
| author | Arun Isaac | 2022-03-28 15:21:39 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-03-28 15:21:39 +0530 |
| commit | b308de7b6b1b9dea9371b3e03e0fd4766f681539 (patch) | |
| tree | cb84c94b15afffefc525bfaa4e6da50524badef9 | |
| parent | ee1d2f8d00003ddff30c9f611ebae859a8ba1ab6 (diff) | |
| download | guix-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?.
| -rw-r--r-- | doc/forge.skb | 5 | ||||
| -rw-r--r-- | guix/forge/forge.scm | 5 | ||||
| -rw-r--r-- | guix/forge/laminar.scm | 5 |
3 files changed, 12 insertions, 3 deletions
diff --git a/doc/forge.skb b/doc/forge.skb index 37e570c..678d4de 100644 --- a/doc/forge.skb +++ b/doc/forge.skb @@ -235,7 +235,10 @@ unused unused, and may be deprecated in the future.])) (record-field "run" [G-expression to be run]) (record-field "after" - [G-expression to be run after the main job script])) + [G-expression to be run after the main job script]) + (record-field "trigger?" + [If ,(code [#t]), this job is run on every commit. Else, it +must be manually set up to run some other way.])) (record-documentation "guix/forge/webhook.scm" '<webhook-configuration> (record-field "package" [,(code [webhook]) package to use]) 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 |