From f4232b4e088dec9c642e39846ab30e1303f53cb4 Mon Sep 17 00:00:00 2001 From: jdlugosz963 Date: Thu, 6 Jul 2023 21:35:23 +0200 Subject: Add udiskie and home-xdg-mime home services. --- guix/jd/home/services/udiskie.scm | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 guix/jd/home/services/udiskie.scm (limited to 'guix/jd/home/services/udiskie.scm') diff --git a/guix/jd/home/services/udiskie.scm b/guix/jd/home/services/udiskie.scm new file mode 100644 index 0000000..ac8a16a --- /dev/null +++ b/guix/jd/home/services/udiskie.scm @@ -0,0 +1,31 @@ +(define-module (jd home services udiskie) + #:use-module (gnu packages) + #:use-module (gnu packages freedesktop) + #:use-module (gnu services) + #:use-module (gnu services configuration) + #:use-module (gnu home services) + #:use-module (gnu home services shepherd) + #:use-module (guix gexp)) + +(define (udiskie-profile-service config) + (specifications->packages '("udiskie"))) + +(define (udiskie-shepherd-service config) + (list (shepherd-service + (documentation "udiskie daemon") + (provision '(udiskie)) + (start #~(make-forkexec-constructor + (list #$(file-append udiskie + "/bin/udiskie") + "-t"))) + (stop #~(make-kill-destructor))))) + +(define-public home-udiskie-service-type + (service-type (name 'home-udiskie) + (extensions (list (service-extension home-profile-service-type + udiskie-profile-service) + (service-extension home-shepherd-service-type + udiskie-shepherd-service))) + (default-value #f) + (description "Runs udiskie daemon."))) + -- cgit v1.2.3