2024-03-08 14:32:05 +00:00
|
|
|
(define-module (home-environments radio)
|
|
|
|
|
#|Ice-9|#
|
|
|
|
|
#|M|# #:use-module (ice-9 match)
|
|
|
|
|
|
|
|
|
|
#|GNU|#
|
2024-03-09 14:02:49 +00:00
|
|
|
#|•|# #:use-module (gnu)
|
2024-10-29 00:01:21 +00:00
|
|
|
#|H|# #:use-module (gnu home)
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
#|GNU packages|#
|
2024-09-26 14:29:04 +00:00
|
|
|
#|G|# #:use-module (gnu packages gnupg)
|
2024-03-08 14:32:05 +00:00
|
|
|
#|L|# #:use-module (gnu packages linux)
|
2024-11-08 08:52:01 +00:00
|
|
|
#|S|# #:use-module (gnu packages shells)
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
#|GNU home services|#
|
2024-03-09 14:02:49 +00:00
|
|
|
#|•|# #:use-module (gnu home services)
|
2024-03-08 14:32:05 +00:00
|
|
|
#|D|# #:use-module (gnu home services desktop)
|
|
|
|
|
#:use-module (gnu home services dotfiles)
|
|
|
|
|
#|G|# #:use-module (gnu home services guix)
|
2024-03-20 06:42:12 +00:00
|
|
|
#|P|# #:use-module (gnu home services pm)
|
2024-03-08 14:32:05 +00:00
|
|
|
#|S|# #:use-module (gnu home services ssh)
|
|
|
|
|
#:use-module (gnu home services shepherd)
|
|
|
|
|
#:use-module (gnu home services sound)
|
|
|
|
|
|
|
|
|
|
#|Guix|#
|
|
|
|
|
#|C|# #:use-module (guix channels)
|
2024-06-04 01:03:50 +00:00
|
|
|
#|P|# #:use-module (guix packages)
|
2024-03-08 14:32:05 +00:00
|
|
|
|
2024-04-23 14:28:05 +00:00
|
|
|
#|Radio|#
|
|
|
|
|
#|C|# #:use-module ((radio channels) #:prefix channel:)
|
2024-09-26 14:29:04 +00:00
|
|
|
#|P|# #:use-module ((radio packages) #:prefix packages:)
|
2024-11-25 21:33:58 +00:00
|
|
|
#|M|# #:use-module ((radio mime-types) #:prefix mime-types:)
|
2024-11-25 02:17:43 +00:00
|
|
|
#|S|# #:use-module ((radio shepherd-services) #:prefix shepherd-service:)
|
2024-04-23 14:28:05 +00:00
|
|
|
|
2024-03-08 14:32:05 +00:00
|
|
|
#|Radix|#
|
|
|
|
|
#|C|# #:use-module (radix combinators)
|
|
|
|
|
#|U|# #:use-module (radix utils)
|
2024-09-29 10:51:32 +00:00
|
|
|
|
2024-03-08 14:32:05 +00:00
|
|
|
#|Radix packages|#
|
2024-07-05 17:47:15 +00:00
|
|
|
#|F|# #:use-module (radix packages fish-xyz)
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
#|Radix home services|#
|
2024-03-09 14:02:49 +00:00
|
|
|
#|•|# #:use-module (radix home services)
|
2024-03-08 14:32:05 +00:00
|
|
|
#|G|# #:use-module (radix home services gnupg)
|
|
|
|
|
#|S|# #:use-module (radix home services shells)
|
2024-04-23 14:28:05 +00:00
|
|
|
#|X|# #:use-module (radix home services xdg)
|
2024-03-08 14:32:05 +00:00
|
|
|
|
2024-11-11 15:12:49 +00:00
|
|
|
#:export (radio radio.scm))
|
|
|
|
|
|
|
|
|
|
(define radio.scm
|
|
|
|
|
(search-path %load-path
|
|
|
|
|
(module-filename (current-module))))
|
2024-10-29 00:01:21 +00:00
|
|
|
|
|
|
|
|
(define radio
|
|
|
|
|
(home-environment
|
2024-03-08 14:32:05 +00:00
|
|
|
(packages
|
2024-04-05 05:06:48 +00:00
|
|
|
(append #|B|# packages:blogging
|
|
|
|
|
#|C|# packages:calendar
|
|
|
|
|
#|D|# packages:databases packages:desktop packages:development
|
|
|
|
|
packages:documentation packages:downloads
|
|
|
|
|
#|F|# packages:file-managing packages:fonts
|
2024-11-08 08:52:01 +00:00
|
|
|
#|G|# packages:guix-contrib
|
2024-04-05 05:06:48 +00:00
|
|
|
#|I|# packages:image
|
2024-11-24 16:27:43 +00:00
|
|
|
#|M|# packages:messaging packages:music
|
2024-04-05 05:06:48 +00:00
|
|
|
#|P|# packages:password
|
2024-04-05 05:08:42 +00:00
|
|
|
#|R|# packages:reading
|
|
|
|
|
#|S|# packages:scheme packages:sound
|
2024-04-05 05:06:48 +00:00
|
|
|
#|V|# packages:video
|
2024-04-26 21:38:29 +00:00
|
|
|
#|W|# packages:web))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
(services
|
|
|
|
|
(list #|XDG services|#
|
|
|
|
|
(service home-xdg-user-directories-service-type
|
|
|
|
|
(home-xdg-user-directories-configuration
|
2024-10-29 00:01:21 +00:00
|
|
|
(desktop "$HOME/areas")
|
|
|
|
|
(documents "$HOME/areas/documents")
|
|
|
|
|
(download "$HOME/media/downloads")
|
|
|
|
|
(music "$HOME/media/music")
|
|
|
|
|
(pictures "$HOME/media/pictures")
|
|
|
|
|
(videos "$HOME/media/videos")
|
2024-03-08 14:32:05 +00:00
|
|
|
(publicshare "")
|
2024-10-29 00:01:21 +00:00
|
|
|
(templates "")))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
(service home-xdg-mime-applications-service-type
|
|
|
|
|
(home-xdg-mime-applications-configuration
|
|
|
|
|
(default (associate-right
|
2024-11-25 21:33:58 +00:00
|
|
|
('chromium.desktop mime-types:browser)
|
|
|
|
|
('kak.desktop mime-types:editor)
|
|
|
|
|
('lf.desktop mime-types:file-manager)
|
|
|
|
|
('mpv.desktop (append mime-types:audio
|
|
|
|
|
mime-types:video))
|
|
|
|
|
('imv.desktop mime-types:image)
|
|
|
|
|
('sioyek.desktop mime-types:document)))))
|
2024-11-11 15:12:49 +00:00
|
|
|
(service home-special-files-service-type
|
|
|
|
|
`((".config/guix/home.scm" ,radio.scm)))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
#|Dotfiles service|#
|
|
|
|
|
(service home-dotfiles-service-type
|
|
|
|
|
(home-dotfiles-configuration
|
|
|
|
|
(layout 'plain)
|
|
|
|
|
(directories `("radio/files"))))
|
|
|
|
|
|
|
|
|
|
#|Guix service|#
|
|
|
|
|
(simple-service 'home-extra-channels
|
|
|
|
|
home-channels-service-type
|
2024-09-04 19:07:27 +00:00
|
|
|
(list channel:guix
|
2024-11-24 16:31:35 +00:00
|
|
|
channel:radix))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
2024-11-24 16:40:01 +00:00
|
|
|
#|Shepherd services|#
|
|
|
|
|
(service home-shepherd-service-type
|
|
|
|
|
(home-shepherd-configuration
|
2024-11-25 02:17:43 +00:00
|
|
|
(shepherd (@ (shepherd-package) shepherd))
|
2024-11-25 17:27:27 +00:00
|
|
|
(services (list shepherd-service:repl
|
|
|
|
|
shepherd-service:timer
|
2024-11-25 02:17:43 +00:00
|
|
|
shepherd-service:wake-up))))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
#|Shell services|#
|
2024-10-22 22:45:33 +00:00
|
|
|
(service home-tty-colorscheme-service-type
|
|
|
|
|
(home-tty-colorscheme-configuration
|
|
|
|
|
(regular-black "000000")
|
|
|
|
|
(regular-red "df6760")
|
|
|
|
|
(regular-green "8be760")
|
|
|
|
|
(regular-yellow "ffd17a")
|
|
|
|
|
(regular-blue "9688d9")
|
|
|
|
|
(regular-magenta "fc97ff")
|
|
|
|
|
(regular-cyan "86adff")
|
2024-10-23 02:06:36 +00:00
|
|
|
(regular-white "a1a1a1")
|
2024-10-22 22:45:33 +00:00
|
|
|
(bright-black "888888")
|
2024-10-23 02:06:36 +00:00
|
|
|
(bright-red regular-red)
|
|
|
|
|
(bright-green regular-green)
|
|
|
|
|
(bright-yellow regular-yellow)
|
|
|
|
|
(bright-blue regular-blue)
|
|
|
|
|
(bright-magenta regular-magenta)
|
|
|
|
|
(bright-cyan regular-cyan)
|
|
|
|
|
(bright-white regular-white)))
|
2024-03-08 14:32:05 +00:00
|
|
|
(service home-fish-service-type
|
|
|
|
|
(home-fish-configuration
|
2024-07-05 18:28:05 +00:00
|
|
|
(plugins
|
|
|
|
|
(list fish-autopair
|
2024-11-08 08:52:01 +00:00
|
|
|
fish-foreign-env
|
2024-07-05 18:28:05 +00:00
|
|
|
fish-puffer))
|
2024-03-08 14:32:05 +00:00
|
|
|
(environment-variables
|
|
|
|
|
`(#|GNU Privacy Guard|#
|
|
|
|
|
("GPG_TTY" . "(tty)")
|
|
|
|
|
|
|
|
|
|
#|Remind|#
|
|
|
|
|
("DOTREMINDERS" . "$XDG_DATA_HOME/reminders")
|
|
|
|
|
|
|
|
|
|
#|GTK|#
|
|
|
|
|
("GTK_RC_FILES" . "$XDG_CONFIG_HOME/gtk-2.0/gtkrc")
|
|
|
|
|
|
|
|
|
|
#|Ncurses|#
|
2024-08-13 15:03:11 +00:00
|
|
|
("TERMINFO" . "$XDG_DATA_HOME/terminfo")))
|
2024-03-08 14:32:05 +00:00
|
|
|
(aliases
|
|
|
|
|
`(#|Common aliases|#
|
2024-10-29 00:01:21 +00:00
|
|
|
("df" . "df -h")
|
|
|
|
|
("du" . "du -h")
|
2024-03-08 14:32:05 +00:00
|
|
|
("diff" . "diff --color=auto")
|
|
|
|
|
("grep" . "grep --color=auto")
|
2024-10-29 00:01:21 +00:00
|
|
|
("ip" . "ip --color=auto")
|
|
|
|
|
("ls" . ,(format #f "ls --color=auto ~
|
|
|
|
|
--group-directories-first ~
|
|
|
|
|
--classify ~
|
|
|
|
|
--human-readable ~
|
|
|
|
|
-v"))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
#|Clear terminal screen without ncurses|#
|
|
|
|
|
("clear" . "printf \"\\033c\"")
|
|
|
|
|
|
|
|
|
|
("info" . "info --init-file $XDG_CONFIG_HOME/info")
|
|
|
|
|
|
|
|
|
|
#|Kakoune aliases for the shell|#
|
2024-04-05 05:08:42 +00:00
|
|
|
(":e" . "kak")
|
|
|
|
|
(":q" . "exit")))
|
2024-03-08 14:32:05 +00:00
|
|
|
(abbreviations
|
2024-08-13 03:39:48 +00:00
|
|
|
(let ((edit (partial format #f "$EDITOR~@{ ~a~}")))
|
|
|
|
|
`(,@(map (match-lambda
|
|
|
|
|
((x . y) (abbreviation
|
|
|
|
|
(name x)
|
|
|
|
|
(expansion y))))
|
|
|
|
|
`(#|Download/Upload|#
|
|
|
|
|
(a . "aria2c -j 10 '%'")
|
|
|
|
|
(i . "ipfs get %")
|
|
|
|
|
(m . "yt-dlp -x '%'")
|
|
|
|
|
(u . "curl -F file=@% https://0x0.st | wl-copy")
|
|
|
|
|
(v . "yt-dlp '%'")))
|
|
|
|
|
|
|
|
|
|
,@(map (match-lambda
|
|
|
|
|
((x . y) (abbreviation
|
|
|
|
|
(name x)
|
|
|
|
|
(position 'anywhere)
|
|
|
|
|
(expansion y))))
|
|
|
|
|
`(#|Guix|#
|
|
|
|
|
(!repair . "doas guix build --repair")
|
|
|
|
|
(!pull . "guix pull")
|
|
|
|
|
(!repl . "guix repl -i ~/.config/guile/guilerc")
|
|
|
|
|
(!home . "guix home reconfigure ~/.config/guix/home.scm")
|
|
|
|
|
(!system . "doas guix system reconfigure /etc/config.scm")
|
2024-11-11 15:15:52 +00:00
|
|
|
(!network . ,(format #f "doas herd restart networking ~
|
|
|
|
|
&& doas herd restart wpa-supplicant"))
|
2024-08-13 03:39:48 +00:00
|
|
|
|
2024-11-19 14:53:17 +00:00
|
|
|
#|Pass|#
|
|
|
|
|
(!pass . "pass show % | wl-copy")
|
|
|
|
|
|
2024-08-13 03:39:48 +00:00
|
|
|
#|Processes|#
|
|
|
|
|
(tf . "setsid -f % >/dev/null 2>&1 & disown")
|
|
|
|
|
|
|
|
|
|
#|Quick edit|#
|
|
|
|
|
(:e . ,(edit))
|
2024-09-29 10:54:35 +00:00
|
|
|
(:cronogram . ,(edit "~/areas/masters/current-period/cronogram"))
|
2024-08-13 03:39:48 +00:00
|
|
|
(:system . ,(edit "/etc/config.scm"))
|
|
|
|
|
(:home . ,(edit "~/.config/guix/home.scm"))
|
|
|
|
|
(:todo . ,(edit "~/areas/meta/todo")))))))))
|
2024-08-13 15:03:11 +00:00
|
|
|
(simple-service 'home-fish-colored-man home-fish-service-type
|
|
|
|
|
(home-fish-extension
|
|
|
|
|
(plugins
|
|
|
|
|
(list fish-colored-man))
|
|
|
|
|
(environment-variables
|
|
|
|
|
`(("man_bold" . ("-o" "blue"))))))
|
|
|
|
|
(simple-service 'home-fish-done home-fish-service-type
|
|
|
|
|
(home-fish-extension
|
|
|
|
|
(plugins
|
|
|
|
|
(list fish-done))
|
|
|
|
|
(environment-variables
|
|
|
|
|
`(("__done_allow_nongraphical" . "1")
|
|
|
|
|
("__done_exclude"
|
|
|
|
|
. (#|G|# "^git" "'^guix (edit|repl|shell)'"
|
|
|
|
|
#|K|# "^kak"
|
|
|
|
|
#|L|# "^lf"
|
|
|
|
|
#|M|# "^mpv"
|
|
|
|
|
#|N|# "^newsraft"))
|
|
|
|
|
("__done_notification_command"
|
|
|
|
|
. "notify-send '$title' '$message'")))))
|
|
|
|
|
(simple-service 'home-fish-fzf home-fish-service-type
|
|
|
|
|
(home-fish-extension
|
|
|
|
|
(plugins
|
|
|
|
|
(list fish-fzf))
|
|
|
|
|
(config
|
|
|
|
|
(list (plain-file "fish-fzf.fish"
|
|
|
|
|
(string-join
|
|
|
|
|
`("fzf_configure_bindings"
|
|
|
|
|
"--directory=@@"
|
|
|
|
|
"--git_log=@l"
|
|
|
|
|
"--git_status=@s"
|
|
|
|
|
"--history=@h"
|
|
|
|
|
"--processes="
|
|
|
|
|
"--variables=")))))
|
|
|
|
|
(environment-variables
|
|
|
|
|
;; adicionar toggle de dotfiles na lista e no preview
|
|
|
|
|
;; adicionar toggle pro base-directory ser $PWD
|
|
|
|
|
`(("fzf_preview_dir_cmd" . "")
|
|
|
|
|
("FZF_DEFAULT_OPTS" . ("--filepath-word"
|
|
|
|
|
"--height=~40%"
|
|
|
|
|
"--layout=reverse"
|
|
|
|
|
"--scheme=path"
|
|
|
|
|
"--scroll-off=2"))
|
|
|
|
|
("fzf_fd_opts" . ("--absolute-path"
|
|
|
|
|
"--exclude='\\..*'"
|
|
|
|
|
"--follow"
|
|
|
|
|
"--base-directory=$HOME"
|
|
|
|
|
"--type=directory"))))))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
#|Environment variables services|#
|
2024-03-26 20:21:58 +00:00
|
|
|
(simple-service 'home-shell-environment-variables
|
2024-03-08 14:32:05 +00:00
|
|
|
home-environment-variables-service-type
|
2024-10-29 00:01:21 +00:00
|
|
|
`(("PATH" . "$HOME/.local/bin:$PATH")
|
2024-05-05 17:38:18 +00:00
|
|
|
("INPUTRC" . "$XDG_CONFIG_HOME/readline/inputrc")))
|
2024-03-26 20:21:58 +00:00
|
|
|
(simple-service 'home-guile-environment-variables
|
2024-03-08 14:32:05 +00:00
|
|
|
home-environment-variables-service-type
|
|
|
|
|
`(("GUILE_WARN_DEPRECATED" . "detailed")
|
|
|
|
|
("GUILE_HISTORY" . "$XDG_CACHE_HOME/guile/history")
|
|
|
|
|
("GUILE_LOAD_PATH"
|
|
|
|
|
. ,(format #f "~?~?"
|
|
|
|
|
"~@{:$HOME/areas/code/scm/~a~}"
|
2024-03-20 06:42:12 +00:00
|
|
|
'(radix
|
2024-11-25 00:10:21 +00:00
|
|
|
shepherd/modules
|
2024-11-24 16:40:01 +00:00
|
|
|
shepherd/.guix/modules
|
2024-03-09 14:02:49 +00:00
|
|
|
zero
|
|
|
|
|
zero/operating-systems
|
|
|
|
|
zero/home-environments)
|
2024-03-08 14:32:05 +00:00
|
|
|
"~@{:~a/share/guile/site/3.0~}"
|
|
|
|
|
'($HOME/.guix-home/profile
|
|
|
|
|
$XDG_CONFIG_HOME/guix/current
|
2024-08-01 00:31:25 +00:00
|
|
|
/run/current-system/profile)))
|
|
|
|
|
("GUILE_LOAD_COMPILED_PATH"
|
|
|
|
|
. ,(apply format #f "~a~@{:~a~}"
|
|
|
|
|
(flat-map (lambda (profile path)
|
|
|
|
|
(format #f "~a/~a" profile path))
|
|
|
|
|
'($HOME/.guix-home/profile
|
|
|
|
|
/run/current-system/profile)
|
|
|
|
|
'(lib/guile/3.0/site-ccache
|
|
|
|
|
share/guile/site/3.0))))))
|
2024-03-26 20:21:58 +00:00
|
|
|
(simple-service 'home-wayland-environment-variables
|
|
|
|
|
home-environment-variables-service-type
|
|
|
|
|
`(("QT_QPA_PLATFORM" . "wayland;xcb")
|
|
|
|
|
("QT_WAYLAND_DISABLE_WINDOWDECORATION" . "1")))
|
|
|
|
|
(simple-service 'home-language-environment-variables
|
2024-03-08 14:32:05 +00:00
|
|
|
home-environment-variables-service-type
|
2024-09-24 23:46:16 +00:00
|
|
|
`(("LANG" . "en_US.UTF-8")
|
|
|
|
|
("LANGUAGE" . "en_US.UTF-8")
|
2024-03-08 14:32:05 +00:00
|
|
|
("LC_COLLATE" . "C")))
|
2024-03-26 20:21:58 +00:00
|
|
|
(simple-service 'home-default-applications-environment-variables
|
2024-03-08 14:32:05 +00:00
|
|
|
home-environment-variables-service-type
|
2024-10-29 00:01:21 +00:00
|
|
|
`(("BROWSER" . "chromium")
|
|
|
|
|
("EDITOR" . "kak")
|
|
|
|
|
("PAGER" . "less")
|
|
|
|
|
("TERMINAL" . "foot")
|
|
|
|
|
("VISUAL" . "$EDITOR")
|
|
|
|
|
("WM" . "river")))
|
2024-08-06 15:09:30 +00:00
|
|
|
(simple-service 'home-applications-environment-variables
|
|
|
|
|
home-environment-variables-service-type
|
2024-11-16 13:03:50 +00:00
|
|
|
`(("MINETEST_USER_PATH" . "$XDG_DATA_HOME/minetest")
|
|
|
|
|
("PASSWORD_STORE_DIR" . "$HOME/.local/share/pass")))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
|
|
|
|
#|SSH service|#
|
|
|
|
|
(service home-openssh-service-type
|
|
|
|
|
(home-openssh-configuration
|
|
|
|
|
(hosts (list (openssh-host
|
|
|
|
|
(name "codeberg.org")
|
|
|
|
|
(host-name "codeberg.org")
|
|
|
|
|
(user "git")
|
|
|
|
|
(identity-file "~/.ssh/codeberg"))
|
|
|
|
|
(openssh-host
|
|
|
|
|
(name "github.com")
|
|
|
|
|
(host-name "github.com")
|
|
|
|
|
(user "git")
|
2024-05-26 04:18:22 +00:00
|
|
|
(identity-file "~/.ssh/github"))
|
|
|
|
|
(openssh-host
|
|
|
|
|
(name "git.sr.ht")
|
|
|
|
|
(host-name "git.sr.ht")
|
|
|
|
|
(user "git")
|
|
|
|
|
(identity-file "~/.ssh/srht"))))
|
2024-03-08 14:32:05 +00:00
|
|
|
(authorized-keys #f)))
|
|
|
|
|
|
|
|
|
|
#|GPG agent service|#
|
|
|
|
|
(service home-gpg-agent-service-type
|
|
|
|
|
(home-gpg-agent-configuration
|
|
|
|
|
(gnupghome ".local/share/gnupg")
|
|
|
|
|
(pinentry-program
|
|
|
|
|
(file-append pinentry "/bin/pinentry-curses"))))
|
|
|
|
|
|
|
|
|
|
#|Session services|#
|
|
|
|
|
(service home-dbus-service-type)
|
|
|
|
|
|
|
|
|
|
#|Sound services|#
|
2024-04-05 05:08:42 +00:00
|
|
|
(service home-pipewire-service-type
|
|
|
|
|
(home-pipewire-configuration
|
|
|
|
|
(wireplumber wireplumber-minimal)))
|
2024-03-08 14:32:05 +00:00
|
|
|
|
2024-03-20 06:42:12 +00:00
|
|
|
#|Battery services|#
|
|
|
|
|
(service home-batsignal-service-type
|
|
|
|
|
(home-batsignal-configuration
|
|
|
|
|
(poll-delay 15)
|
|
|
|
|
(full-level 90)
|
|
|
|
|
(warning-level 70)
|
|
|
|
|
(critical-level 30)
|
2024-09-29 10:51:32 +00:00
|
|
|
(full-message "Unplug the cable")
|
|
|
|
|
(warning-message "You may want to plug the cable")
|
|
|
|
|
(critical-message "Plug the cable")))))))
|
2024-10-29 00:01:21 +00:00
|
|
|
radio
|
