refactor: use service instead of simple-service whenever possible

pull/1/head
anemofilia 2023-10-02 09:26:03 -03:00
parent d8de79bf59
commit 1eec92abfd
No known key found for this signature in database
GPG Key ID: 5A8F3D62C87A2B33
1 changed files with 78 additions and 81 deletions

159
radio.scm
View File

@ -94,91 +94,88 @@
(cache-home "$HOME/.cache")
(config-home "$HOME/.config")
(data-home "$HOME/.local/share")
(runtime-dir "/run/user/1000")
(log-home "$HOME/.local/var/log")
(state-home "$HOME/.local/state")))
(state-home "$HOME/.local/state")
(runtime-dir "/run/user/1000")))
(simple-service 'xdg-user-directories-service
home-xdg-user-directories-service-type
(home-xdg-user-directories-configuration
(desktop "$HOME/area")
(documents "$HOME/documents")
(download "$HOME/.local/share/downloads")
(music "$HOME/media/music")
(pictures "$HOME/media/pictures")
(videos "$HOME/media/videos")
(publicshare "")
(templates "")))
(service home-xdg-user-directories-service-type
(home-xdg-user-directories-configuration
(desktop "$HOME/area")
(documents "$HOME/documents")
(download "$HOME/.local/share/downloads")
(music "$HOME/media/music")
(pictures "$HOME/media/pictures")
(videos "$HOME/media/videos")
(publicshare "")
(templates "")))
(simple-service 'xdg-mime-applications-service
home-xdg-mime-applications-service-type
(home-xdg-mime-applications-configuration
(default (associate-right
('icecat.desktop
`("text/html"
"application/xhtml+xml"
"application/x-extension-htm"
"application/x-extension-xhtml"
"application/x-extension-xht"
"x-scheme-handler/http"
"x-scheme-handler/https"))
('kak.desktop
`("text/plain"
"text/troff"
"text/xml"
"text/x-c"
"text/x-c++"
"text/x-diff"
"text/x-lisp"
"text/x-scheme"
"text/x-shellscript"
"text/x-tex"))
('lf.desktop
`("inode/directory"
"x-scheme-handler/ftp"
"x-scheme-handler/nfs"
"x-scheme-handler/smb"
"x-scheme-handler/ssh"
"application/x-directory"))
('mpv.desktop
`("image/gif"
"audio/mpeg"
"audio/ogg"
"audio/opus"
"audio/x-opus+ogg"
"video/mp4"
"video/x-matroska"
"video/webm"))
('imv.desktop
`("image/avif"
"image/bmp"
"image/jpeg"
"image/png"
"image/svg+xml"
"image/webp"))
('org.pwmt.zathura.desktop
`("image/vnd.djvu"
"application/pdf"
"application/epub+zip"))))))
(service home-xdg-mime-applications-service-type
(home-xdg-mime-applications-configuration
(default (associate-right
('icecat.desktop
`("text/html"
"application/xhtml+xml"
"application/x-extension-htm"
"application/x-extension-xhtml"
"application/x-extension-xht"
"x-scheme-handler/http"
"x-scheme-handler/https"))
('kak.desktop
`("text/plain"
"text/troff"
"text/xml"
"text/x-c"
"text/x-c++"
"text/x-diff"
"text/x-lisp"
"text/x-scheme"
"text/x-shellscript"
"text/x-tex"))
('lf.desktop
`("inode/directory"
"x-scheme-handler/ftp"
"x-scheme-handler/nfs"
"x-scheme-handler/smb"
"x-scheme-handler/ssh"
"application/x-directory"))
('mpv.desktop
`("image/gif"
"audio/mpeg"
"audio/ogg"
"audio/opus"
"audio/x-opus+ogg"
"video/mp4"
"video/x-matroska"
"video/webm"))
('imv.desktop
`("image/avif"
"image/bmp"
"image/jpeg"
"image/png"
"image/svg+xml"
"image/webp"))
('org.pwmt.zathura.desktop
`("image/vnd.djvu"
"application/pdf"
"application/epub+zip"))))))
(simple-service 'xdg-configuration-files-service
home-xdg-configuration-files-service-type
`(("awesome/rc.lua" ,file:awesome-config)
("awesome/themes/current.lua" ,file:awesome-theme)
("emacs/init.el" ,file:emacs-init)
("emacs/theme.el" ,file:emacs-theme)
("fish/fish_variables" ,file:fish-variables)
("fish/functions/fish_greeting.fish" ,file:fish-greeting)
("fish/functions/fish_prompt.fish" ,file:fish-prompt)
("git/config" ,file:git-config)
("infokeys" ,file:info-keys)
("kak/kakrc" ,file:kak-config)
("kak/autoload/colorscheme.kak" ,file:kak-colorscheme)
("lf/lfrc" ,file:lf-config)
("mpv/mpv.conf" ,file:mpv-config)
("mpv/input.conf" ,file:mpv-input)
("newsraft/config" ,file:newsraft-config)
("zathura/zathurarc" ,file:zathura-config)))
(service home-xdg-configuration-files-service-type
`(("awesome/rc.lua" ,file:awesome-config)
("awesome/themes/current.lua" ,file:awesome-theme)
("emacs/init.el" ,file:emacs-init)
("emacs/theme.el" ,file:emacs-theme)
("fish/fish_variables" ,file:fish-variables)
("fish/functions/fish_greeting.fish" ,file:fish-greeting)
("fish/functions/fish_prompt.fish" ,file:fish-prompt)
("git/config" ,file:git-config)
("infokeys" ,file:info-keys)
("kak/kakrc" ,file:kak-config)
("kak/autoload/colorscheme.kak" ,file:kak-colorscheme)
("lf/lfrc" ,file:lf-config)
("mpv/mpv.conf" ,file:mpv-config)
("mpv/input.conf" ,file:mpv-input)
("newsraft/config" ,file:newsraft-config)
("zathura/zathurarc" ,file:zathura-config)))
#|Guix service|#
(simple-service 'channels-service