From d4a25e7613743a56f8f07663d998629bdeca6d00 Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Mon, 8 Sep 2025 00:39:01 +0800
Subject: [PATCH] utils: rosenthal-transformation-guix: Update substitute
 server.

* modules/rosenthal/utils/transformations.scm (rosenthal-transformation-guix):
Use https://cache-cdn.guix.moe and place it before official substitute servers.
---
 modules/rosenthal/utils/transformations.scm | 47 ++++++++++-----------
 1 file changed, 23 insertions(+), 24 deletions(-)

diff --git a/modules/rosenthal/utils/transformations.scm b/modules/rosenthal/utils/transformations.scm
index ff85e29..61e8e23 100644
--- a/modules/rosenthal/utils/transformations.scm
+++ b/modules/rosenthal/utils/transformations.scm
@@ -37,27 +37,26 @@
     (operating-system
       (inherit os)
       (services
-       (modify-services (operating-system-user-services os)
-         (guix-service-type
-          config => (guix-configuration
-                     (inherit config)
-                     (channels
-                      (let ((configured-channels
-                             (guix-configuration-channels config)))
-                        (if channel?
-                            (cons %rosenthal-channel
-                                  (or configured-channels %default-channels))
-                            configured-channels)))
-                     (guix
-                      (if guix-source?
-                          (guix-for-channels channels)
-                          (guix-configuration-guix config)))
-                     (authorized-keys
-                      (cons %rosenthal-signing-key
-                            (guix-configuration-authorized-keys config)))
-                     (substitute-urls
-                      (delete-duplicates
-                       `(,@(guix-configuration-substitute-urls config)
-                         ,@(if substitutes?
-                               '("https://ci.boiledscript.com")
-                               '())))))))))))
+       (cons* (simple-service 'guix-moe guix-service-type
+                (guix-extension
+                  (authorized-keys
+                   (list %rosenthal-signing-key))
+                  (substitute-urls
+                   '("https://cache-cdn.guix.moe"))))
+
+              (modify-services (operating-system-user-services os)
+                (guix-service-type
+                 config => (guix-configuration
+                             (inherit config)
+                             (channels
+                              (let ((configured-channels
+                                     (guix-configuration-channels config)))
+                                (if channel?
+                                    (cons %rosenthal-channel
+                                          (or configured-channels
+                                              %default-channels))
+                                    configured-channels)))
+                             (guix
+                              (if guix-source?
+                                  (guix-for-channels channels)
+                                  (guix-configuration-guix config)))))))))))