diff options
| -rw-r--r-- | rodion/packages/games.scm | 16 | ||||
| -rw-r--r-- | rodion/services/miniflux.scm | 21 |
2 files changed, 24 insertions, 13 deletions
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"))))) + + 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 |