aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-01-09 17:16:20 +0530
committerArun Isaac2022-01-09 17:20:02 +0530
commit7d86d1c93fa1c8938fa3db2713a788e6164ec603 (patch)
tree53793415092a4ecbbac6fd2b43e0aaed74861691
parent4e18078566359a190224ec277943a10eada733ae (diff)
downloadguix-forge-7d86d1c93fa1c8938fa3db2713a788e6164ec603.tar.gz
guix-forge-7d86d1c93fa1c8938fa3db2713a788e6164ec603.tar.lz
guix-forge-7d86d1c93fa1c8938fa3db2713a788e6164ec603.zip
forge: Rename guix-laminar-* to forge-laminar-*.
* forge/laminar.scm: Rename all guix-laminar-* names to forge-laminar-*. * forge/forge.scm (forge-activation, forge-service-type): Replace guix-laminar-job-name with forge-laminar-job-name. (forge-service-type): Replace guix-laminar-service-type with forge-laminar-service-type and guix-laminar-group with forge-laminar-group.
-rw-r--r--forge/forge.scm10
-rw-r--r--forge/laminar.scm100
2 files changed, 55 insertions, 55 deletions
diff --git a/forge/forge.scm b/forge/forge.scm
index eee4060..eb4e28c 100644
--- a/forge/forge.scm
+++ b/forge/forge.scm
@@ -75,7 +75,7 @@
(forge-project-configuration-website-directory project)
(post-receive-hook
(forge-project-configuration-name project)
- (map guix-laminar-job-name
+ (map forge-laminar-job-name
(forge-project-configuration-ci-jobs project)))))
(forge-configuration-projects config))))
#~(begin
@@ -119,7 +119,7 @@
(description "Run guix-forge.")
(extensions (list (service-extension activation-service-type
forge-activation)
- (service-extension guix-laminar-service-type
+ (service-extension forge-laminar-service-type
(lambda (config)
(append
;; jobs
@@ -131,9 +131,9 @@
(() #f)
((job) #f)
(jobs
- (guix-laminar-group
+ (forge-laminar-group
(name (forge-project-configuration-name project))
- (regex (string-join (map guix-laminar-job-name jobs)
+ (regex (string-join (map forge-laminar-job-name jobs)
"|"))))))
(forge-configuration-projects config)))))
;; Set up cron jobs to trigger CI jobs for remote
@@ -148,7 +148,7 @@
#~(job '(next-day)
#$(post-receive-hook
(forge-project-configuration-name project)
- (map guix-laminar-job-name
+ (map forge-laminar-job-name
(forge-project-configuration-ci-jobs project)))
#:user "laminar")))
(forge-configuration-projects config))))))
diff --git a/forge/laminar.scm b/forge/laminar.scm
index 9cfb3d1..5dbfbc4 100644
--- a/forge/laminar.scm
+++ b/forge/laminar.scm
@@ -1,5 +1,5 @@
;;; guix-forge --- Guix software forge meta-service
-;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2021, 2022 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of guix-forge.
;;;
@@ -22,46 +22,46 @@
#:use-module (srfi srfi-1)
#:use-module (gnu packages ci)
#:use-module (guix records)
- #:export (guix-laminar-service-type
- guix-laminar-configuration
- guix-laminar-configuration-state-directory
- guix-laminar-configuration-jobs
- guix-laminar-job
- guix-laminar-job?
- guix-laminar-job-name
- guix-laminar-job-run
- guix-laminar-job-after
- guix-laminar-group
- guix-laminar-group?
- guix-laminar-group-name
- guix-laminar-group-regex))
+ #:export (forge-laminar-service-type
+ forge-laminar-configuration
+ forge-laminar-configuration-state-directory
+ forge-laminar-configuration-jobs
+ forge-laminar-job
+ forge-laminar-job?
+ forge-laminar-job-name
+ forge-laminar-job-run
+ forge-laminar-job-after
+ forge-laminar-group
+ forge-laminar-group?
+ forge-laminar-group-name
+ forge-laminar-group-regex))
-(define-record-type* <guix-laminar-configuration>
- guix-laminar-configuration make-guix-laminar-configuration
- guix-laminar-configuration?
- (state-directory guix-laminar-configuration-state-directory
+(define-record-type* <forge-laminar-configuration>
+ forge-laminar-configuration make-forge-laminar-configuration
+ forge-laminar-configuration?
+ (state-directory forge-laminar-configuration-state-directory
(default "/var/lib/laminar"))
- (jobs guix-laminar-configuration-jobs
+ (jobs forge-laminar-configuration-jobs
(default '()))
- (groups guix-laminar-configuration-groups
+ (groups forge-laminar-configuration-groups
(default '())))
-(define-record-type* <guix-laminar-job>
- guix-laminar-job make-guix-laminar-job
- guix-laminar-job?
- (name guix-laminar-job-name)
- (run guix-laminar-job-run)
- (after guix-laminar-job-after
+(define-record-type* <forge-laminar-job>
+ forge-laminar-job make-forge-laminar-job
+ forge-laminar-job?
+ (name forge-laminar-job-name)
+ (run forge-laminar-job-run)
+ (after forge-laminar-job-after
(default #f)))
-(define-record-type* <guix-laminar-group>
- guix-laminar-group make-guix-laminar-group
- guix-laminar-group?
- (name guix-laminar-group-name)
- (regex guix-laminar-group-regex))
+(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 (guix-laminar-activation config)
- (let* ((state-directory (guix-laminar-configuration-state-directory config))
+(define (forge-laminar-activation config)
+ (let* ((state-directory (forge-laminar-configuration-state-directory config))
(groups-configuration (string-append state-directory "/cfg/groups.conf"))
(jobs-directory (string-append state-directory "/cfg/jobs")))
#~(begin
@@ -73,10 +73,10 @@
(symlink
#$(plain-file "laminar-groups"
(string-join (map (lambda (group)
- (string-append (guix-laminar-group-name group)
+ (string-append (forge-laminar-group-name group)
"="
- (guix-laminar-group-regex group)))
- (guix-laminar-configuration-groups config))
+ (forge-laminar-group-regex group)))
+ (forge-laminar-configuration-groups config))
"\n"))
#$groups-configuration)
;; Create jobs directory and populate with job scripts.
@@ -86,16 +86,16 @@
(symlink
#$(file-union "laminar-jobs"
(append-map (lambda (job)
- (let ((name (guix-laminar-job-name job))
- (run (guix-laminar-job-run job))
- (after (guix-laminar-job-after job)))
+ (let ((name (forge-laminar-job-name job))
+ (run (forge-laminar-job-run job))
+ (after (forge-laminar-job-after job)))
(cons (list (string-append name ".run")
(program-file name run))
(if after
(list (list (string-append name ".after")
(program-file name after)))
(list)))))
- (guix-laminar-configuration-jobs config)))
+ (forge-laminar-configuration-jobs config)))
#$jobs-directory)
;; Set permissions for laminar directory.
(for-each (lambda (file)
@@ -107,18 +107,18 @@
'(regular directory)))
#:directories? #t)))))
-(define guix-laminar-service-type
+(define forge-laminar-service-type
(service-type
- (name 'guix-laminar)
- (description "Run guix-laminar.")
+ (name 'forge-laminar)
+ (description "Run forge-laminar.")
(extensions (list (service-extension activation-service-type
- guix-laminar-activation)))
+ forge-laminar-activation)))
(compose concatenate)
(extend (lambda (config extended-values)
- (guix-laminar-configuration
+ (forge-laminar-configuration
(inherit config)
- (jobs (append (guix-laminar-configuration-jobs config)
- (filter guix-laminar-job? extended-values)))
- (groups (append (guix-laminar-configuration-groups config)
- (filter guix-laminar-group? extended-values))))))
- (default-value (guix-laminar-configuration))))
+ (jobs (append (forge-laminar-configuration-jobs config)
+ (filter forge-laminar-job? extended-values)))
+ (groups (append (forge-laminar-configuration-groups config)
+ (filter forge-laminar-group? extended-values))))))
+ (default-value (forge-laminar-configuration))))