diff options
author | Sisiutl <sisiutl@egregore.fun> | 2025-02-01 01:37:25 +0100 |
---|---|---|
committer | Sisiutl <sisiutl@egregore.fun> | 2025-02-01 01:52:10 +0100 |
commit | aae428799375840cdd2c000e0e4c8b13cf2abc34 (patch) | |
tree | ab3f9e6c7dd4eb2a1a36e623a467da4f7f131aa2 /sigils/services/xdg.scm | |
parent | 3ea36c309362671f0638c0c7a70ae28007ffc8cb (diff) |
revamp sigils xdg service
Diffstat (limited to 'sigils/services/xdg.scm')
-rw-r--r-- | sigils/services/xdg.scm | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/sigils/services/xdg.scm b/sigils/services/xdg.scm deleted file mode 100644 index b0725b7..0000000 --- a/sigils/services/xdg.scm +++ /dev/null @@ -1,26 +0,0 @@ -(define-module (sigils services xdg) - #:use-module (gnu home services) - #:use-module (gnu packages) - #:use-module (guix gexp) - #:use-module (ice-9 match) - #:use-module (srfi srfi-1)) - -(define xdg-autostart-files-directory "autostart") -(define (xdg-autostart-files files) - "Put each file in FILES into the autostart directory" - (map (match-lambda - ((desktop-file package) - (cons (string-append xdg-autostart-files-directory "/" desktop-file ".desktop") - `(,(file-append (specification->package package) - (string-append "/share/applications/" desktop-file ".desktop")))))) - files)) - -(define-public home-xdg-autostart-files-service-type - (service-type (name 'home-xdg-autostart) - (extensions - (list (service-extension home-xdg-configuration-files-service-type - xdg-autostart-files))) - (compose concatenate) - (extend append) - (default-value '()) - (description "Files that will be put in @file{~/.guix-home/config/autostart} for XDG autostart compliance."))) |