zilti/guixconfig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

.

Browse source
This commit is contained in:
Daniel Ziltener 2023-12-01 14:39:58 +01:00
parent 93233a5be1
commit 7c8502efe1
Signed by: zilti
GPG key ID: B38976E82C9DAE42
2 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
config.scm
View file

@ -72,25 +72,25 @@
(delete mingetty-service-type)
(delete console-font-service-type))
(list
(tlp-service-type
(service tlp-service-type
(tlp-configuration))
(thermald-service-type
(service thermald-service-type
(thermald-configuration
(adaptive? t)))
(bluetooth-service-type
(service bluetooth-service-type
(bluetooth-configuration))
(earlyoom-service-type
(service earlyoom-service-type
(earlyoom-configuration
(minimum-available-memory 5)
(minimum-free-swap 5)))
(inputattach-service-type
(service inputattach-service-type
(inputattach-configuration))
(libvirt-service-type
(service libvirt-service-type
(libvirt-configuration
(unix-sock-group "libvirt")))
(fstrim-service-type
(service fstrim-service-type
(fstrim-configuration))
(fprintd-service-type
(service fprintd-service-type
(fprintd-configuration)))
(list

2
library.org
View file

@ -36,7 +36,7 @@ Converting Org lists into Scheme symbol lists.
(lambda (row)
(let ((service-name (cl-first row))
(configuration (cl-second row)))
`(,(make-symbol (s-concat service-name "-service-type"))
`(service ,(make-symbol (s-concat service-name "-service-type"))
(,(make-symbol (s-concat service-name "-configuration"))
,@(car (read-from-string configuration))))))
input))