From be39b5dee51395aa8acd29d17bc027dba1752443 Mon Sep 17 00:00:00 2001
From: Benjamin Chabanne <benjamin@uvy.fr>
Date: Sun, 28 Sep 2025 14:19:00 +0200
Subject: services: log-rotation: Allow to pass procedure as compression
 method.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

    * gnu/services/admin.scm (log-rotation-configuration): Change
    validation method and accept gexp procedure.

Change-Id: I67cd5051a05d211349ecbc66ee3a55ab5b1a5971
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/services/admin.scm | 57 +++++++++++++++++++++++++++++---------------------
 1 file changed, 33 insertions(+), 24 deletions(-)

(limited to 'gnu/services/admin.scm')

diff --git a/gnu/services/admin.scm b/gnu/services/admin.scm
index 20e4517c667..6e5d51e7ce6 100644
--- a/gnu/services/admin.scm
+++ b/gnu/services/admin.scm
@@ -123,6 +123,9 @@
 (define (gexp-or-integer? x)
   (or (gexp? x) (integer? x)))
 
+(define (gexp-or-symbol? x)
+  (or (gexp? x) (symbol? x)))
+
 (define-configuration log-rotation-configuration
   (provision
    (list-of-symbols '(log-rotation))
@@ -144,9 +147,10 @@ calendar events."
 rotated."
    empty-serializer)
   (compression
-   (symbol 'zstd)
-   "The compression method used for rotated log files, one of
-@code{'none}, @code{'gzip}, and @code{'zstd}."
+   (gexp-or-symbol 'zstd)
+   "The compression method used for rotated log files, one of @code{'none},
+@code{'gzip}, and @code{'zstd}. Alternatively, it can be a gexp that evaluates
+to a procedure; that procedure gets called with the file to be rotated."
    empty-serializer)
   (expiry
    (gexp-or-integer #~(%default-log-expiry))
@@ -158,27 +162,32 @@ rotated."
    empty-serializer))
 
 (define (log-rotation-shepherd-services config)
-  (list (shepherd-service
-         (provision (log-rotation-configuration-provision config))
-         (requirement (log-rotation-configuration-requirement config))
-         (modules '((shepherd service timer)      ;for 'calendar-event'
-                    (shepherd service log-rotation)))
-         (free-form #~(log-rotation-service
-                       #$(log-rotation-configuration-calendar-event config)
-                       #:provision
-                       '#$(log-rotation-configuration-provision config)
-                       #:requirement
-                       '#$(log-rotation-configuration-requirement config)
-                       #:external-log-files
-                       '#$(log-rotation-configuration-external-log-files
-                           config)
-                       #:compression
-                       '#$(log-rotation-configuration-compression config)
-                       #:expiry
-                       #$(log-rotation-configuration-expiry config)
-                       #:rotation-size-threshold
-                       #$(log-rotation-configuration-size-threshold
-                          config))))))
+  (let* ((compression-raw (log-rotation-configuration-compression config))
+         (compression
+           (if (symbol? compression-raw)
+             #~'#$compression-raw
+             compression-raw)))
+    (list (shepherd-service
+           (provision (log-rotation-configuration-provision config))
+           (requirement (log-rotation-configuration-requirement config))
+           (modules '((shepherd service timer)      ;for 'calendar-event'
+                      (shepherd service log-rotation)))
+           (free-form #~(log-rotation-service
+                         #$(log-rotation-configuration-calendar-event config)
+                         #:provision
+                         '#$(log-rotation-configuration-provision config)
+                         #:requirement
+                         '#$(log-rotation-configuration-requirement config)
+                         #:external-log-files
+                         '#$(log-rotation-configuration-external-log-files
+                             config)
+                         #:compression
+                         #$compression
+                         #:expiry
+                         #$(log-rotation-configuration-expiry config)
+                         #:rotation-size-threshold
+                         #$(log-rotation-configuration-size-threshold
+                            config)))))))
 
 (define log-rotation-service-type
   (service-type
-- 
cgit v1.3