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

style: split doas-service in thematic services

pull/1/head
anemofilia 2023-09-24 10:25:01 -03:00
parent 66c0dcc480
commit a09a647e7f
No known key found for this signature in database
GPG Key ID: 5A8F3D62C87A2B33
1 changed files with 32 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
buer.scm
View File

@ -241,36 +241,34 @@
(respawn? #f))) (respawn? #f)))
#|Doas configuration services|# #|Doas configuration services|#
(service doas-service-type (simple-service 'miscellaneous-permissions doas-service-type
(append #|Miscellaneous|#
(list (permit (identity ":wheel") (list (permit (identity ":wheel")
(setenv `("GUILE_LOAD_PATH"))) (setenv `("GUILE_LOAD_PATH")))
(permit (identity ":wheel") (permit (identity ":wheel")
(nopass? #t) (nopass? #t)
(command "guix") (command "guix")
(args `("pull"))) (args `("pull")))))
(permit (identity ":wheel") (simple-service 'text-editors-permissions doas-service-type
(nopass? #t)
(command "herd")
(args `("status"
"detailed-status"))))
#|Text editors|#
(map (lambda (cmd) (map (lambda (cmd)
(permit (identity ":wheel") (permit (identity ":wheel")
(keepenv? #t) (keepenv? #t)
(command cmd))) (command cmd)))
`("kak" "emacsclient")) `("kak" "emacsclient")))
(simple-service 'power-management-permissions doas-service-type
#|Power management|#
(map (lambda (cmd) (map (lambda (cmd)
(permit (identity ":wheel") (permit (identity ":wheel")
(nopass? #t) (nopass? #t)
(command cmd) (command cmd)
(args '()))) (args '())))
`("zzz" "halt" "reboot")) `("zzz" "halt" "reboot")))
(simple-service 'shepherd-status-permissions doas-service-type
#|Service management|# (map (lambda (arglist)
(permit (identity ":wheel")
(nopass? #t)
(command "herd")
(args (list arg))))
`("status" "detailed-status")))
(simple-service 'service-management-permissions doas-service-type
(flatmap (lambda (service action) (flatmap (lambda (service action)
(permit (identity ":wheel") (permit (identity ":wheel")
(nopass? #t) (nopass? #t)
@ -279,7 +277,7 @@
`("tlp" "tor" "thermald" "thinkfan" `("tlp" "tor" "thermald" "thinkfan"
"wpa-supplicant") "wpa-supplicant")
`("doc" "stop" "start" "enable" `("doc" "stop" "start" "enable"
"status" "restart" "disable")))) "status" "restart" "disable")))
#|Special file services|# #|Special file services|#
(service special-files-service-type (service special-files-service-type