diff --git a/modules/radix/home/services/zathura.scm b/modules/radix/home/services/zathura.scm index 6c3657a..abad3c8 100644 --- a/modules/radix/home/services/zathura.scm +++ b/modules/radix/home/services/zathura.scm @@ -57,22 +57,22 @@ (->bool (member value '(normal strict #f)))) (define (serialize-zathura-sandbox field-name value) - (format #f "set ~a ~:[none~;~a]~%" field-name value value)) + (format #f "set ~a ~:[none~;~a~]~%" field-name value value)) (define (zathura-database? value) (->bool (member value '(plain sqlite #f)))) (define (serialize-zathura-filemonitor field-name value) - (format #f "set ~a ~:[noop~;~a]~%" field-name value value)) + (format #f "set ~a ~:[noop~;~a~]~%" field-name value value)) (define (serialize-zathura-database field-name value) - (format #f "set ~a ~:[null~;~a]~%" field-name value value)) + (format #f "set ~a ~:[null~;~a~]~%" field-name value value)) (define (zathura-filemonitor? value) (->bool (member value '(glib signal #f)))) (define (serialize-zathura-filemonitor? field-name value) - (format #f "set ~a ~:[noop~;~a]~%" field-name value value)) + (format #f "set ~a ~:[noop~;~a~]~%" field-name value value)) (define (zathura-adjust-open? value) (->bool (member value '(best-fit width)))) @@ -94,7 +94,7 @@ (define (serialize-gui-configuration field-name value) (match-record value (command-line? statusbar? horizontal-scrollbar? vertical-scrollbar?) - (format #f "set guioptions ~@[c~]~@[s~]~@[h~]~@[v~]~%" + (format #f "set guioptions ~:[~;c~]~:[~;s~]~:[~;h~]~:[~;v~]~%" command-line? statusbar? horizontal-scrollbar?