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