From 05e8653429e9bda9e2019ce796afd256ec410298 Mon Sep 17 00:00:00 2001 From: Rodion Goritskov Date: Mon, 15 Apr 2024 00:48:43 +0400 Subject: More configuration --- rodion/services/miniflux.scm | 22 +++++++++++++++++++--- 1 file changed, 19 insertions(+), 3 deletions(-) (limited to 'rodion') diff --git a/rodion/services/miniflux.scm b/rodion/services/miniflux.scm index fbd60ab..9ac78cc 100644 --- a/rodion/services/miniflux.scm +++ b/rodion/services/miniflux.scm @@ -15,6 +15,7 @@ miniflux-configuration-test?)) (define (initial-string? val) (string? val)) +(define (initial-boolean? val) (boolean? val)) (define (serialize-string field-name val) (format #f "~a=~a\n" (string-upcase @@ -25,16 +26,28 @@ (define (serialize-initial-string field-name val) (serialize-string (string-drop (symbol->string field-name) 8) val)) +(define (serialize-initial-boolean field-name val) + (serialize-boolean (string-drop (symbol->string field-name) 8) val)) + (define (non-negative-integer? val) (and (exact-integer? val) (not (negative? val)))) (define (serialize-non-negative-integer field-name val) (serialize-string field-name (number->string val))) +(define (serialize-boolean field-name val) + (if val (serialize-string field-name "1") "")) + (define-configuration miniflux-configuration - (port - (non-negative-integer 8080) - "Listening port") + (listen-addr + (string "127.0.0.1:8080") + "Address to listen on. Use absolute path for a Unix socket.") + (base-url + (string "http://localhost/") + "Base URL to generate HTML links and base path for cookies.") + (initial-create-admin + (initial-boolean #t) + "Create an initial admin") (initial-admin-username (initial-string "admin") "Initial admin username") @@ -51,6 +64,9 @@ (string "miniflux") "Group for the system account" empty-serializer) + (run-migrations + (boolean #t) + "Run database migrations during application startup.") (log-file (string "/var/log/miniflux.log") "Path to the log file" -- cgit v1.2.3