Fix unclutter configuration

This commit is contained in:
Tom Willemse 2023-08-23 10:57:36 -07:00
parent c9d8a52b39
commit 8835dbdc31

View file

@ -50,9 +50,9 @@
#~(make-forkexec-constructor #~(make-forkexec-constructor
'#$(append '#$(append
(delete #f (delete #f
(list (file-append (home-unclutter-configuration-package config) "/bin/unclutter") (list (file-append (home-unclutter-configuration-package config) "/bin/unclutter")
"--timeout" (home-unclutter-configuration-timeout config) "--timeout" (number->string (home-unclutter-configuration-timeout config))
"--jitter" (home-unclutter-configuration-jitter config) "--jitter" (number->string (home-unclutter-configuration-jitter config))
(and (home-unclutter-configuration-exclude-root config) "--exclude-root") (and (home-unclutter-configuration-exclude-root config) "--exclude-root")
(and (home-unclutter-configuration-ignore-scrolling config) "--ignore-scrolling") (and (home-unclutter-configuration-ignore-scrolling config) "--ignore-scrolling")
(and (home-unclutter-configuration-hide-on-touch config) "--hide-on-touch") (and (home-unclutter-configuration-hide-on-touch config) "--hide-on-touch")