aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/forge/laminar.scm34
1 files changed, 34 insertions, 0 deletions
diff --git a/guix/forge/laminar.scm b/guix/forge/laminar.scm
index 8819a2f..2ce5872 100644
--- a/guix/forge/laminar.scm
+++ b/guix/forge/laminar.scm
@@ -28,6 +28,7 @@
forge-laminar-configuration?
forge-laminar-configuration-state-directory
forge-laminar-configuration-jobs
+ forge-laminar-configuration-contexts
forge-laminar-job
forge-laminar-job?
this-forge-laminar-job
@@ -35,6 +36,10 @@
forge-laminar-job-run
forge-laminar-job-after
forge-laminar-job-trigger?
+ forge-laminar-context
+ forge-laminar-context?
+ forge-laminar-context-name
+ forge-laminar-context-executors
forge-laminar-group
forge-laminar-group?
forge-laminar-group-name
@@ -47,6 +52,8 @@
(default "/var/lib/laminar"))
(jobs forge-laminar-configuration-jobs
(default '()))
+ (contexts forge-laminar-configuration-contexts
+ (default '()))
(groups forge-laminar-configuration-groups
(default '())))
@@ -61,12 +68,33 @@
(trigger? forge-laminar-job-trigger?
(default #t)))
+(define-record-type* <forge-laminar-context>
+ forge-laminar-context make-forge-laminar-context
+ forge-laminar-context?
+ (name forge-laminar-context-name)
+ (executors forge-laminar-context-executors))
+
(define-record-type* <forge-laminar-group>
forge-laminar-group make-forge-laminar-group
forge-laminar-group?
(name forge-laminar-group-name)
(regex forge-laminar-group-regex))
+(define (laminar-contexts contexts)
+ "Return a file-like object describing a directory of @var{contexts}, a
+list of @var{<forge-laminar-context>} objects."
+ (file-union "laminar-contexts"
+ (map (lambda (context)
+ (let ((configuration-file
+ (string-append (forge-laminar-context-name context)
+ ".conf")))
+ (list configuration-file
+ (mixed-text-file configuration-file
+ "EXECUTORS="
+ (number->string (forge-laminar-context-executors context))
+ "\n"))))
+ contexts)))
+
(define (laminar-groups groups)
"Return a file-like object describing @var{groups}, a list of
@code{<forge-laminar-groups>} objects."
@@ -99,6 +127,7 @@ of @var{<forge-laminar-job>} objects."
(define (forge-laminar-activation config)
(let* ((state-directory (forge-laminar-configuration-state-directory config))
(configuration-directory (string-append state-directory "/cfg"))
+ (contexts-directory (string-append configuration-directory "/contexts"))
(groups-configuration (string-append configuration-directory "/groups.conf"))
(jobs-directory (string-append configuration-directory "/jobs")))
(with-imported-modules '((guix build utils))
@@ -107,6 +136,9 @@ of @var{<forge-laminar-job>} objects."
;; Ensure configuration directory exists.
(mkdir-p #$configuration-directory)
+ ;; Configure contexts.
+ (switch-symlinks #$contexts-directory
+ #$(laminar-contexts (forge-laminar-configuration-contexts config)))
;; Configure groups.
(switch-symlinks #$groups-configuration
#$(laminar-groups (forge-laminar-configuration-groups config)))
@@ -139,6 +171,8 @@ of @var{<forge-laminar-job>} objects."
(inherit config)
(jobs (append (forge-laminar-configuration-jobs config)
(filter forge-laminar-job? extended-values)))
+ (contexts (append (forge-laminar-configuration-contexts config)
+ (filter forge-laminar-context? extended-values)))
(groups (append (forge-laminar-configuration-groups config)
(filter forge-laminar-group? extended-values))))))
(default-value (forge-laminar-configuration))))