home: services: change nested ifs to (cond ...)

This commit is contained in:
Carmine Margiotta 2025-06-20 00:40:03 +02:00 committed by Carmine Margiotta
parent 7306ca4fe3
commit 1fe450deed

View file

@ -157,11 +157,11 @@
(string? x)))
(define (serialize-monitor-resolution _ r)
(if (pair? r)
(format #f "~ax~a" (car r) (cdr r))
(if (symbol? r)
(symbol->string r)
r)))
(cond ((pair? r)
(format #f "~ax~a" (car r) (cdr r)))
((symbol? r)
(symbol->string r))
(#t r)))
;;; Monitor position
(define (monitor-position? x)