33 lines
1.1 KiB
Scheme
33 lines
1.1 KiB
Scheme
(define-module (fschl home-services udiskie)
|
|
#:use-module (gnu services)
|
|
#:use-module (gnu home services)
|
|
#:use-module (gnu home services shepherd)
|
|
#:use-module (gnu packages freedesktop)
|
|
#:use-module (gnu services configuration)
|
|
#:use-module (guix gexp)
|
|
|
|
#:export (home-udiskie-service-type))
|
|
|
|
(define (home-udiskie-profile-service config)
|
|
(list udiskie))
|
|
|
|
(define (home-udiskie-shepherd-service config)
|
|
(list
|
|
(shepherd-service
|
|
(provision '(udiskie))
|
|
(documentation "Run and control udiskie.")
|
|
(start #~(make-forkexec-constructor '("udiskie" "-t")))
|
|
(stop #~(make-kill-destructor)))))
|
|
|
|
(define home-udiskie-service-type
|
|
(service-type (name 'home-udiskie)
|
|
(description "A service for launching Udiskie.")
|
|
(extensions
|
|
(list (service-extension
|
|
home-profile-service-type
|
|
home-udiskie-profile-service)
|
|
(service-extension
|
|
home-shepherd-service-type
|
|
home-udiskie-shepherd-service)))
|
|
(default-value #f)))
|