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

40
config.scm
View file

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

2
library.org
View file

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