cristiancmoises
/
zero
mirror of https://codeberg.org/anemofilia/zero
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

home-environments: radio: Use wireplumber-minimal for home-pipewire-service

impermanence
Luis Guilherme Coelho 2024-04-05 02:08:42 -03:00
parent aa13ff9a74
commit 4896c4de95
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 41 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
home-environments/radio.scm
View File

@ -13,6 +13,7 @@
#|B|# #:use-module (gnu packages bittorrent) #|B|# #:use-module (gnu packages bittorrent)
#|C|# #:use-module (gnu packages c) #|C|# #:use-module (gnu packages c)
#:use-module (gnu packages calendar) #:use-module (gnu packages calendar)
#:use-module (gnu packages chromium)
#:use-module (gnu packages curl) #:use-module (gnu packages curl)
#|D|# #:use-module (gnu packages databases) #|D|# #:use-module (gnu packages databases)
#|F|# #:use-module (gnu packages file) #|F|# #:use-module (gnu packages file)
@ -20,14 +21,16 @@
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#|G|# #:use-module (gnu packages glib) #|G|# #:use-module (gnu packages glib)
#:use-module (gnu packages games) #:use-module (gnu packages games)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnu-doc) #:use-module (gnu packages gnu-doc)
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages guile-xyz) #:use-module (gnu packages guile-xyz)
#|I|# #:use-module (gnu packages image-viewers) #|I|# #:use-module (gnu packages image-viewers)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages irc)
#|L|# #:use-module (gnu packages linux) #|L|# #:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#|M|# #:use-module (gnu packages maths) #|M|# #:use-module (gnu packages maths)
#:use-module (gnu packages messaging)
#:use-module (gnu packages minetest) #:use-module (gnu packages minetest)
#|P|# #:use-module (gnu packages password-utils) #|P|# #:use-module (gnu packages password-utils)
#:use-module (gnu packages pdf) #:use-module (gnu packages pdf)
@ -38,8 +41,8 @@
#:use-module (gnu packages suckless) #:use-module (gnu packages suckless)
#|T|# #:use-module (gnu packages telegram) #|T|# #:use-module (gnu packages telegram)
#:use-module (gnu packages terminals) #:use-module (gnu packages terminals)
#:use-module (gnu packages tex)
#:use-module (gnu packages text-editors) #:use-module (gnu packages text-editors)
#:use-module (gnu packages tor-browsers)
#:use-module (gnu packages toys) #:use-module (gnu packages toys)
#|V|# #:use-module (gnu packages version-control) #|V|# #:use-module (gnu packages version-control)
#:use-module (gnu packages video) #:use-module (gnu packages video)
@ -68,6 +71,7 @@
#|U|# #:use-module (radix utils) #|U|# #:use-module (radix utils)
#|Radix packages|# #|Radix packages|#
#|B|# #:use-module (radix packages browser-extensions)
#|D|# #:use-module (radix packages disk) #|D|# #:use-module (radix packages disk)
#|I|# #:use-module (radix packages image-viewers) #|I|# #:use-module (radix packages image-viewers)
#|F|# #:use-module (radix packages freedesktop) #|F|# #:use-module (radix packages freedesktop)
@ -112,11 +116,10 @@
packages:web)) packages:web))
#|Default applications|# #|Default applications|#
(define application:browser "mullvadbrowser") (define application:browser "chromium")
(define application:editor "kak") (define application:editor "kak")
(define application:pager "less") (define application:pager "less")
(define application:reader "sioyek") (define application:reader "sioyek")
(define application:shell "fish")
(define application:terminal "foot") (define application:terminal "foot")
(define application:wm "river") (define application:wm "river")
@ -134,7 +137,6 @@
#|freedesktop|# xdg-utils xdg-desktop-portal xdg-desktop-portal-wlr #|freedesktop|# xdg-utils xdg-desktop-portal xdg-desktop-portal-wlr
xdg-terminal-exec xdg-terminal-exec
#|glib |# dbus #|glib |# dbus
#|gnome |# adwaita-icon-theme
#|image |# grim slurp #|image |# grim slurp
#|terminals |# foot #|terminals |# foot
#|toys |# wayneko #|toys |# wayneko
@ -144,9 +146,10 @@
(define packages:development (define packages:development
(list #|gnupg |# gnupg pinentry (list #|gnupg |# gnupg pinentry
#|ssh |# openssh #|llvm |# clang-15
#|text-editors |# kak-lsp parinfer-rust guile-lsp-server
#|math |# libqalculate #|math |# libqalculate
#|ssh |# openssh
#|text-editors |# kakoune #;kak-lsp #;parinfer-rust
#|vesion-control|# git)) #|vesion-control|# git))
(define packages:documentation (define packages:documentation
@ -172,14 +175,16 @@
font-juliamono font-liberation font-meslo-lg-dz font-misc-misc font-juliamono font-liberation font-meslo-lg-dz font-misc-misc
font-un font-wqy-zenhei)) font-un font-wqy-zenhei))
(define packages:games #;(define packages:games
(list #|games|# minetest supertuxkart xonotic)) (list #|games|# minetest supertuxkart xonotic))
(define packages:image (define packages:image
(list #|image-viewers|# imv)) (list #|image-viewers|# imv))
(define packages:messaging (define packages:messaging
(list #|telegram|# telegram-desktop)) (list #|irc |# weechat
#|telegram |# telegram-desktop
#|messaging|# weechat-matrix))
(define packages:password (define packages:password
(list #|password-utils|# keepassxc)) (list #|password-utils|# keepassxc))
@ -188,6 +193,9 @@
(list #|pdf |# sioyek/wayland (list #|pdf |# sioyek/wayland
#|syndication|# newsraft)) #|syndication|# newsraft))
(define packages:scheme
(list #|guile-xyz|# guile-srfi-197 guile-srfi-232))
(define packages:sound (define packages:sound
(list #|linux |# wireplumber (list #|linux |# wireplumber
#|pulseaudio|# pamixer pavucontrol)) #|pulseaudio|# pamixer pavucontrol))
@ -196,7 +204,17 @@
(list #|video|# ffmpeg mpv)) (list #|video|# ffmpeg mpv))
(define packages:web (define packages:web
(list #|tor-browsers|# mullvadbrowser)) (list #|chromium |# ungoogled-chromium/wayland
#|browser-extensions|# darkreader/chromium))
#;(define packages:writing
(list #|tex|# texlive-collection-basic texlive-collection-fontsextra
texlive-collection-fontsrecommended texlive-collection-latex
texlive-collection-latexextra texlive-collection-latexrecommended
texlive-collection-luatex texlive-collection-langportuguese
texlive-collection-langenglish texlive-collection-langfrench
texlive-collection-mathscience texlive-collection-pictures
texlive-scheme-minimal))
(define home-environment (define home-environment
(user-home-environment (user-home-environment
@ -206,13 +224,14 @@
#|D|# packages:databases packages:desktop packages:development #|D|# packages:databases packages:desktop packages:development
packages:documentation packages:downloads packages:documentation packages:downloads
#|F|# packages:file-managing packages:fonts #|F|# packages:file-managing packages:fonts
#|G|# packages:games #|G|# #;packages:games
#|I|# packages:image #|I|# packages:image
#|M|# packages:messaging #|M|# packages:messaging
#|P|# packages:password #|P|# packages:password
#|S|# packages:sound #|R|# packages:reading
#|S|# packages:scheme packages:sound
#|V|# packages:video #|V|# packages:video
#|W|# packages:web)) #|W|# packages:web #;packages:writing))
(services (services
(list #|XDG services|# (list #|XDG services|#
@ -239,7 +258,7 @@
(exec-arg . "") (exec-arg . "")
(startup-wm-class . "foot")))))) (startup-wm-class . "foot"))))))
(default (associate-right (default (associate-right
('mullvadbrowser.desktop ('chromium.desktop
`("application/xhtml+xml" `("application/xhtml+xml"
"application/x-extension-htm" "application/x-extension-htm"
"application/x-extension-xhtml" "application/x-extension-xhtml"
@ -253,9 +272,11 @@
"text/xml" "text/xml"
"text/x-c" "text/x-c"
"text/x-c++" "text/x-c++"
"text/x-clojure"
"text/x-diff" "text/x-diff"
"text/x-lisp" "text/x-lisp"
"text/x-scheme" "text/x-scheme"
"text/x-script.python"
"text/x-shellscript" "text/x-shellscript"
"text/x-tex")) "text/x-tex"))
('lf.desktop ('lf.desktop
@ -345,21 +366,9 @@
#|Kakoune bindings for info|# #|Kakoune bindings for info|#
("info" . "info --init-file $XDG_CONFIG_HOME/info") ("info" . "info --init-file $XDG_CONFIG_HOME/info")
#|Easy presentation setup with xrandr|#
("present" . ,(format #f "xrandr --output LVDS-1 ~
--mode 1366x768 ~
--scale 1x1 ~
--output VGA-1 ~
--same-as LVDS-1 ~
--mode 1920x1080 ~
--scale 0.711x0.711"))
#|Listen to libre music on vern's radio|#
("radio" . "https://radio.vern.cc")
#|Kakoune aliases for the shell|# #|Kakoune aliases for the shell|#
("':e'" . "kak") (":e" . "kak")
("':q'" . "exit"))) (":q" . "exit")))
(abbreviations (abbreviations
(let ((@ (symbol-prefix-proc '@)) (let ((@ (symbol-prefix-proc '@))
(edit (partial format #f "$EDITOR~@{ ~a~}")) (edit (partial format #f "$EDITOR~@{ ~a~}"))
@ -493,7 +502,6 @@
("EDITOR" . ,application:editor) ("EDITOR" . ,application:editor)
("PAGER" . ,application:pager) ("PAGER" . ,application:pager)
("READER" . ,application:reader) ("READER" . ,application:reader)
("SHELL" . ,application:shell)
("TERMINAL" . ,application:terminal) ("TERMINAL" . ,application:terminal)
("VISUAL" . ,application:editor) ("VISUAL" . ,application:editor)
("WM" . ,application:wm))) ("WM" . ,application:wm)))
@ -524,7 +532,9 @@
(service home-dbus-service-type) (service home-dbus-service-type)
#|Sound services|# #|Sound services|#
(service home-pipewire-service-type) (service home-pipewire-service-type
(home-pipewire-configuration
(wireplumber wireplumber-minimal)))
#|Battery services|# #|Battery services|#
(service home-batsignal-service-type (service home-batsignal-service-type