cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

services: zathura: Fix broken formats

pull/3/head
Luis Guilherme Coelho 2024-02-19 22:47:25 -03:00
parent 4d0ee7ca28
commit 7d136b570d
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
modules/radix/home/services/zathura.scm
View File

@ -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 <gui-configuration>
(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?