From f71bfbf250ae2730691be78b62583b9607f6b923 Mon Sep 17 00:00:00 2001
From: Rodion Goritskov <rodion.goritskov@gmail.com>
Date: Mon, 22 Apr 2024 12:29:39 +0400
Subject: Unneeded fields refactor in Miniflux service

---
 rodion/services/miniflux.scm | 21 ++++++++-------------
 1 file changed, 8 insertions(+), 13 deletions(-)

diff --git a/rodion/services/miniflux.scm b/rodion/services/miniflux.scm
index 9ac78cc..4d8bf9f 100644
--- a/rodion/services/miniflux.scm
+++ b/rodion/services/miniflux.scm
@@ -11,11 +11,11 @@
   #:use-module (ice-9 string-fun)
   #:export (miniflux-service-type
 	    miniflux-configuration
-	    miniflux-configuration?
-	    miniflux-configuration-test?))
+	    miniflux-configuration?))
 
 (define (initial-string? val) (string? val))
 (define (initial-boolean? val) (boolean? val))
+(define (strip-initial-prefix field-name) (string-drop (symbol->string field-name) 8))
 
 (define (serialize-string field-name val)
   (format #f "~a=~a\n" (string-upcase
@@ -23,20 +23,15 @@
 			 (if (symbol? field-name) (symbol->string field-name) field-name) "-" "_"))
 	  val))
 
+(define (serialize-boolean field-name val)
+  (if val (serialize-string field-name "1") (serialize-string field-name "0")))
+
+;; Initial string is just a string with 'initial-' prefix
 (define (serialize-initial-string field-name val)
-  (serialize-string (string-drop (symbol->string field-name) 8) val))
+  (serialize-string (strip-initial-prefix field-name) 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") ""))
+  (serialize-boolean (strip-initial-prefix field-name) val))
 
 (define-configuration miniflux-configuration
   (listen-addr
-- 
cgit v1.2.3


From 154e3f8149f957fde2986bdaec773b26b8b607fb Mon Sep 17 00:00:00 2001
From: Rodion Goritskov <rodion.goritskov@gmail.com>
Date: Mon, 3 Jun 2024 22:17:12 +0400
Subject: gnu: Add dosbox-staging/old-cpu.

* rodion/packages/games.scm (dosbox-staging/old-cpu): New variable.
---
 rodion/packages/games.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/rodion/packages/games.scm b/rodion/packages/games.scm
index e81fe26..08f353f 100644
--- a/rodion/packages/games.scm
+++ b/rodion/packages/games.scm
@@ -5,6 +5,7 @@
     #:use-module (guix git-download)
     #:use-module (guix gexp)
     #:use-module (gnu packages sdl)
+    #:use-module (gnu packages emulators)
     #:use-module (gnu packages compression)
     #:use-module ((guix licenses) #:prefix license:))
 
@@ -101,3 +102,18 @@ Filename patterns are composed of regular (printable) characters which may compr
    (license license:expat)
    (description "Fallout")
    (synopsis "Fallout")))
+
+;; Build with the old CPU support
+(define-public dosbox-staging/old-cpu
+  (package
+    (inherit dosbox-staging)
+    (name "dosbox-staging-old-cpu")
+    (arguments
+     (list #:configure-flags
+	   #~(list
+	      "-Duse_zlib_ng=sse2,ssse3"
+              ;; These both try to git clone subprojects.
+              "-Dunit_tests=disabled"   ; gtest
+              "-Duse_mt32emu=false")))))
+
+
-- 
cgit v1.2.3