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

home-environments: radio: Define the buer home-environment

pull/1/head
Luis Guilherme Coelho 2023-12-30 13:09:56 -03:00
parent 36aa98d445
commit 52f1df730e
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 456 additions and 452 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

908
home-environments/radio.scm
View File

@ -1,7 +1,9 @@
(define-module (radix home-enviroments radio) (define-module (radix home-enviroments radio)
#|GNU|# #|GNU|#
#:use-module (gnu) #:use-module (gnu)
#:use-module (gnu home) #:use-module ((gnu home) #:select (this-home-environment))
#:use-module ((gnu home) #:hide (this-home-environment)
#:prefix user-)
#:use-module (gnu home services) #:use-module (gnu home services)
#|GNU packages|# #|GNU packages|#
@ -43,12 +45,12 @@
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#|GNU home services|# #|GNU home services|#
#|D|# (gnu home services desktop) #|D|# #:use-module (gnu home services desktop)
#|G|# (gnu home services guix) #|G|# #:use-module (gnu home services guix)
#|M|# (gnu home services mcron) #|M|# #:use-module (gnu home services mcron)
#|S|# (gnu home services ssh) #|S|# #:use-module (gnu home services ssh)
(gnu home services shepherd) #:use-module (gnu home services shepherd)
(gnu home services sound) #:use-module (gnu home services sound)
#|Guix|# #|Guix|#
#:use-module (guix channels) #:use-module (guix channels)
@ -79,483 +81,485 @@
#|M|# #:use-module ((radix files mpv) #:prefix file:mpv-) #|M|# #:use-module ((radix files mpv) #:prefix file:mpv-)
#|N|# #:use-module ((radix files newsraft) #:prefix file:newsraft-)) #|N|# #:use-module ((radix files newsraft) #:prefix file:newsraft-))
(home-environment (define home-environment
(packages (user-home-environment
(list #|admin |# neofetch netcat-openbsd (packages
#|bittorrent |# aria2 qbittorrent (list #|admin |# neofetch netcat-openbsd
#|c |# c-intro-and-ref #|bittorrent |# aria2 qbittorrent
#|calendar |# remind #|c |# c-intro-and-ref
#|curl |# curl #|calendar |# remind
#|disk |# lf #|curl |# curl
#|file |# file #|disk |# lf
#|fonts |# font-arabic-misc font-liberation font-meslo-lg-dz #|file |# file
font-misc-misc font-un font-wqy-zenhei #|fonts |# font-arabic-misc font-liberation font-meslo-lg-dz
#|freedesktop |# xdg-utils font-misc-misc font-un font-wqy-zenhei
#|games |# minetest supertuxkart xonotic #|freedesktop |# xdg-utils
#|gnome |# adwaita-icon-theme #|games |# minetest supertuxkart xonotic
#|gnu-doc |# gnu-standards #|gnome |# adwaita-icon-theme
#|gnupg |# gnupg pinentry #|gnu-doc |# gnu-standards
#|gnuzilla |# icecat #|gnupg |# gnupg pinentry
#|guile-xyz |# haunt #|gnuzilla |# icecat
#|image-viewers |# imv #|guile-xyz |# haunt
#|linux |# alsa-utils #|image-viewers |# imv
#|math |# libqalculate #|linux |# alsa-utils
#|password-utils|# keepassxc #|math |# libqalculate
#|pdf |# zathura zathura-pdf-mupdf zathura-djvu #|password-utils|# keepassxc
#|pulseaudio |# pamixer pavucontrol #|pdf |# zathura zathura-pdf-mupdf zathura-djvu
#|python-xyz |# python-ueberzug #|pulseaudio |# pamixer pavucontrol
#|scheme |# sicp #|python-xyz |# python-ueberzug
#|shells |# fish #|scheme |# sicp
#|syndication |# newsraft #|shells |# fish
#|ssh |# openssh #|syndication |# newsraft
#|suckless |# xst #|ssh |# openssh
#|telegram |# telegram-desktop #|suckless |# xst
#|tor |# torbrowser #|telegram |# telegram-desktop
#|toys |# oneko #|tor |# torbrowser
#|vesion-control|# git #|toys |# oneko
#|video |# ffmpeg mpv yt-dlp #|vesion-control|# git
#|wm |# awesome-git #|video |# ffmpeg mpv yt-dlp
#|xdisorg |# maim xbanish xclip xinit xsel #|wm |# awesome-git
#|xorg |# setxkbmap xinput xf86-input-libinput xkill xmodmap #|xdisorg |# maim xbanish xclip xinit xsel
xorg-server xrdb xset)) #|xorg |# setxkbmap xinput xf86-input-libinput xkill xmodmap
xorg-server xrdb xset))
(services (services
(list #|XDG services|# (list #|XDG services|#
(service home-xdg-user-directories-service-type (service home-xdg-user-directories-service-type
(home-xdg-user-directories-configuration (home-xdg-user-directories-configuration
(desktop "$HOME/areas") (desktop "$HOME/areas")
(documents "$HOME/areas/documents") (documents "$HOME/areas/documents")
(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 "$HOME/resources/public") (publicshare "$HOME/resources/public")
(download "$HOME/.local/share/downloads") (download "$HOME/.local/share/downloads")
(templates "$HOME/.local/share/templates"))) (templates "$HOME/.local/share/templates")))
(service home-xdg-mime-applications-service-type (service 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"))))))
(service home-xdg-configuration-files-service-type (service 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/functions" ,file:fish-functions) ("fish/functions" ,file:fish-functions)
("fish/conf.d" ,file:fish-config) ("fish/conf.d" ,file:fish-config)
("git" ,file:git-config) ("git" ,file:git-config)
("info" ,file:info-config) ("info" ,file:info-config)
("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" ,file:lf-config) ("lf" ,file:lf-config)
("mpv" ,file:mpv-config) ("mpv" ,file:mpv-config)
("newsraft" ,file:newsraft-config))) ("newsraft" ,file:newsraft-config)))
#|Guix service|# #|Guix service|#
(simple-service 'channels-service (simple-service 'channels-service
home-channels-service-type home-channels-service-type
(list (channel (list (channel
(name 'radix) (name 'radix)
(url "https://codeberg.org/anemofilia/radix") (url "https://codeberg.org/anemofilia/radix")
(branch "main") (branch "main")
(introduction (introduction
(make-channel-introduction (make-channel-introduction
"f9130e11e35d2c147c6764ef85542dc58dc09c4f" "f9130e11e35d2c147c6764ef85542dc58dc09c4f"
(openpgp-fingerprint (openpgp-fingerprint
(format #f "F164 709E 5FC7 B32B AEC7 ~ (format #f "F164 709E 5FC7 B32B AEC7 ~
9F37 1F2E 76AC E3F5 31C8"))))))) 9F37 1F2E 76AC E3F5 31C8")))))))
#|Shepherd service|# #|Shepherd service|#
(service home-shepherd-service-type) (service home-shepherd-service-type)
#|Shell services|# #|Shell services|#
(service home-fish-service-type (service home-fish-service-type
(home-fish-configuration (home-fish-configuration
(config (list file:fish-custom-functions)) (config (list file:fish-custom-functions))
(environment-variables (environment-variables
`(("GPG_TTY" . "(tty)") `(("GPG_TTY" . "(tty)")
("fish_complete_path" ("fish_complete_path"
. ,(format #f "$fish_complete_path~@{ ~a/fish/completions}" . ,(format #f "$fish_complete_path~@{ ~a/fish/completions}"
"$HOME/.guix-home/profile/share")))) "$HOME/.guix-home/profile/share"))))
(aliases (aliases
`(#|Common aliases|# `(#|Common aliases|#
("df" . "df -h") ("df" . "df -h")
("du" . "du -h") ("du" . "du -h")
("diff" . "diff --color=auto") ("diff" . "diff --color=auto")
("grep" . "grep --color=auto") ("grep" . "grep --color=auto")
("ip" . "ip --color=auto") ("ip" . "ip --color=auto")
("ls" . ,(format #f "ls --color=auto ~ ("ls" . ,(format #f "ls --color=auto ~
--group-directories-first ~ --group-directories-first ~
--classify ~ --classify ~
-hv")) -hv"))
#|Clear terminal screen without ncurses|# #|Clear terminal screen without ncurses|#
("clear" . "printf \"\\033c\"") ("clear" . "printf \"\\033c\"")
#|Make ln idempotent|# #|Make ln idempotent|#
("ln" . "ln -sfn") ("ln" . "ln -sfn")
#|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|# #|Easy presentation setup with xrandr|#
("present" . ,(format #f "xrandr --output LVDS-1 ~ ("present" . ,(format #f "xrandr --output LVDS-1 ~
--mode 1366x768 ~ --mode 1366x768 ~
--scale 1x1 ~ --scale 1x1 ~
--output VGA-1 ~ --output VGA-1 ~
--same-as LVDS-1 ~ --same-as LVDS-1 ~
--mode 1920x1080 ~ --mode 1920x1080 ~
--scale 0.711x0.711")) --scale 0.711x0.711"))
#|Display images in lf using ueberzug|# #|Display images in lf using ueberzug|#
("lf" . "$HOME/.local/bin/lf/lfrun") ("lf" . "$HOME/.local/bin/lf/lfrun")
#|Listen to libre music on vern's radio|# #|Listen to libre music on vern's radio|#
("radio" . "https://radio.vern.cc") ("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 ((code-projects "~/projects/code") (let ((code-projects "~/projects/code")
(code-project-extensions (code-project-extensions
'(c clj cpp el html kak md org pl py scm sh tex zig)) '(c clj cpp el html kak md org pl py scm sh tex zig))
(xdg-user-directories (xdg-user-directories
'(desktop documents downloads music '(desktop documents downloads music
pictures public templates videos)) pictures public templates videos))
(bookmarks (bookmarks
'(emacs guile guix haunt misc))) '(emacs guile guix haunt misc)))
(list #|Quick access|# (list #|Quick access|#
(abbreviation
(name "@user-dirs")
(position 'anywhere)
(pattern
(apply format #f "@(~a~@{|~a~})"
xdg-user-directories))
(expansion (fish-function "xdg-user-directory")))
(abbreviation
(name "@extension")
(position 'anywhere)
(pattern
(apply format #f "@(~a~@{|~a~})"
code-project-extensions))
(expansion
(fish-function "code-projects")))
(abbreviation
(name "@punk")
(position 'anywhere)
(expansion
(format #f "~a/cpp/punk"
code-projects)))
(abbreviation
(name "@guix")
(position 'anywhere)
(expansion
(format #f "~a/scm/guix"
code-projects)))
(abbreviation
(name "@radix")
(position 'anywhere)
(expansion
(format #f "~a/scm/radix"
code-projects)))
(abbreviation
(name "@files")
(position 'anywhere)
(expansion
(format #f "~a/scm/radix/files"
code-projects)))
(abbreviation
(name "@modules")
(position 'anywhere)
(expansion
(format #f "~a/scm/radix/modules/radix"
code-projects)))
(abbreviation
(name "@research")
(position 'anywhere)
(expansion "~/areas/research"))
(abbreviation
(name "@bookmarks")
(position 'anywhere)
(expansion "~/resources/bookmarks"))
(abbreviation
(name "@git-root")
(pattern "@git-root")
(position 'anywhere)
(expansion
(fish-function "git-root")))
#|Quick edit|#
(abbreviation
(name ":e")
(expansion "$EDITOR"))
(abbreviation
(name ":system")
(expansion
(format #f "~a/scm/radix && $EDITOR buer.scm"
code-projects)))
(abbreviation
(name ":home")
(expansion
(format #f "~a/scm/radix && $EDITOR radio.scm"
code-projects)))
(abbreviation
(name ":todo")
(expansion "~/areas/organization/todo"))
(abbreviation
(name ":bookmark")
(position 'anywhere)
(pattern
(apply format #f ":(~a~@{|~a~})" bookmarks))
(expansion
(fish-function "bookmarks")))
#|Media downloading|#
(abbreviation
(name "i")
(expansion "ipfs get %"))
(abbreviation
(name "d")
(expansion "aria -j 10 '%'"))
(abbreviation
(name "m")
(expansion
(format #f "yt-dlp --prefer-free-formats ~
--extract-audio '%'")))
(abbreviation
(name "v")
(expansion
"yt-dlp --prefer-free-formats '%'"))
#|Command history reuse|#
(abbreviation
(name "!!")
(position 'anywhere)
(expansion
(fish-function "bang-bang")))
(abbreviation
(name "!!:k")
(position 'anywhere)
(pattern "!!:[0-9]+")
(expansion
(fish-function "bang-bang-k")))
(abbreviation
(name "!$")
(position 'anywhere)
(expansion
(fish-function "bang-dollar")))
(abbreviation
(name "!*")
(position 'anywhere)
(expansion
(fish-function "bang-star")))
#|Guix reconfiguration|#
(abbreviation
(name "!dgen")
(position 'anywhere)
(expansion "guix % delete-generations 2w"))
(abbreviation
(name "!repair")
(expansion "doas guix build --repair"))
(abbreviation
(name "!pull")
(position 'anywhere)
(expansion "guix pull"))
(abbreviation
(name "!home")
(expansion
"guix home reconfigure ~/.config/guix/home.scm"))
(abbreviation
(name "!system")
(expansion
"doas guix system reconfigure /etc/config.scm"))
#|Utils|#
(abbreviation (abbreviation
(name "@user-dirs") (name "zedit")
(position 'anywhere) (expansion "zcat % | $EDITOR"))
(pattern
(apply format #f "@(~a~@{|~a~})"
xdg-user-directories))
(expansion (fish-function "xdg-user-directory")))
(abbreviation (abbreviation
(name "@extension") (name "tf")
(position 'anywhere)
(pattern
(apply format #f "@(~a~@{|~a~})"
code-project-extensions))
(expansion
(fish-function "code-projects")))
(abbreviation
(name "@punk")
(position 'anywhere) (position 'anywhere)
(expansion (expansion
(format #f "~a/cpp/punk" "setsid -f %>/dev/null 2>&1 & disown"))
code-projects)))
(abbreviation (abbreviation
(name "@guix") (name "zxz")
(position 'anywhere)
(expansion (expansion
(format #f "~a/scm/guix" "curl -F file=@% https://0x0.st | xsel -b")))))))
code-projects)))
(abbreviation
(name "@radix")
(position 'anywhere)
(expansion
(format #f "~a/scm/radix"
code-projects)))
(abbreviation
(name "@files")
(position 'anywhere)
(expansion
(format #f "~a/scm/radix/files"
code-projects)))
(abbreviation
(name "@modules")
(position 'anywhere)
(expansion
(format #f "~a/scm/radix/modules/radix"
code-projects)))
(abbreviation
(name "@research")
(position 'anywhere)
(expansion "~/areas/research"))
(abbreviation
(name "@bookmarks")
(position 'anywhere)
(expansion "~/resources/bookmarks"))
(abbreviation
(name "@git-root")
(pattern "@git-root")
(position 'anywhere)
(expansion
(fish-function "git-root")))
#|Quick edit|# (simple-service 'environment-variables-service
(abbreviation home-environment-variables-service-type
(name ":e") `(#|Shells|#
(expansion "$EDITOR")) ("HISTFILE" . "$XDG_CACHE_HOME/bash/history")
(abbreviation ("HISTSIZE" . "-1")
(name ":system") ("HISTFILESIZE" . "-1")
(expansion ("PATH" . "$HOME/.local/bin:$PATH")
(format #f "~a/scm/radix && $EDITOR buer.scm" ("ENV" . "$XDG_CONFIG_HOME/dash/init.sh")
code-projects)))
(abbreviation
(name ":home")
(expansion
(format #f "~a/scm/radix && $EDITOR radio.scm"
code-projects)))
(abbreviation
(name ":todo")
(expansion "~/areas/organization/todo"))
(abbreviation
(name ":bookmark")
(position 'anywhere)
(pattern
(apply format #f ":(~a~@{|~a~})" bookmarks))
(expansion
(fish-function "bookmarks")))
#|Media downloading|# #|Language|#
(abbreviation ("LANG" . "en_US.UTF-8")
(name "i") ("LANGUAGE" . "en_US.UTF-8")
(expansion "ipfs get %")) ("LC_COLLATE" . "C")
(abbreviation
(name "d")
(expansion "aria -j 10 '%'"))
(abbreviation
(name "m")
(expansion
(format #f "yt-dlp --prefer-free-formats ~
--extract-audio '%'")))
(abbreviation
(name "v")
(expansion
"yt-dlp --prefer-free-formats '%'"))
#|Command history reuse|# #|Default applications|#
(abbreviation ("BROWSER" . "icecat")
(name "!!") ("EDITOR" . "kak")
(position 'anywhere) ("FCEDIT" . "kak")
(expansion ("PAGER" . "less")
(fish-function "bang-bang"))) ("READER" . "zathura")
(abbreviation ("SHELL" . "fish")
(name "!!:k") ("TERMINAL" . "xst")
(position 'anywhere) ("VISUAL" . "kak")
(pattern "!!:[0-9]+") ("WM" . "awesome")
(expansion
(fish-function "bang-bang-k")))
(abbreviation
(name "!$")
(position 'anywhere)
(expansion
(fish-function "bang-dollar")))
(abbreviation
(name "!*")
(position 'anywhere)
(expansion
(fish-function "bang-star")))
#|Guix reconfiguration|# #|Xorg|#
(abbreviation ("XINITRC" . "$XDG_CONFIG_HOME/x11/xinitrc")
(name "!dgen")
(position 'anywhere)
(expansion "guix % delete-generations 2w"))
(abbreviation
(name "!repair")
(expansion "doas guix build --repair"))
(abbreviation
(name "!pull")
(position 'anywhere)
(expansion "guix pull"))
(abbreviation
(name "!home")
(expansion
"guix home reconfigure ~/.config/guix/home.scm"))
(abbreviation
(name "!system")
(expansion
"doas guix system reconfigure /etc/config.scm"))
#|Utils|# #|Readline|#
(abbreviation ("INPUTRC" . "$XDG_CONFIG_HOME/readline/inputrc")
(name "zedit")
(expansion "zcat % | $EDITOR"))
(abbreviation
(name "tf")
(position 'anywhere)
(expansion
"setsid -f %>/dev/null 2>&1 & disown"))
(abbreviation
(name "zxz")
(expansion
"curl -F file=@% https://0x0.st | xsel -b")))))))
(simple-service 'environment-variables-service #|GTK|#
home-environment-variables-service-type ("GTK_RC_FILES" . "$XDG_CONFIG_HOME/gtk-2.0/gtkrc")
`(#|Shells|#
("HISTFILE" . "$XDG_CACHE_HOME/bash/history")
("HISTSIZE" . "-1")
("HISTFILESIZE" . "-1")
("PATH" . "$HOME/.local/bin:$PATH")
("ENV" . "$XDG_CONFIG_HOME/dash/init.sh")
#|Language|# #|Guile|#
("LANG" . "en_US.UTF-8") ("GUILE_WARN_DEPRECATED" . "detailed")
("LANGUAGE" . "en_US.UTF-8") ("GUILE_HISTORY" . "$XDG_CACHE_HOME/guile/history")
("LC_COLLATE" . "C") ("GUILE_LOAD_PATH"
. ,(format #f "~a~@{:~a/share/guile/site/3.0~}"
"$HOME/areas/code/scm/radix/modules"
"$HOME/.guix-home/profile"
"$XDG_CONFIG_HOME/guix/current"
"/run/current-system/profile"))
#|Default applications|# #|Guix|#
("BROWSER" . "icecat") ("GUIX_PROFILE" . "$XDG_CONFIG_HOME/guix/current")
("EDITOR" . "kak")
("FCEDIT" . "kak")
("PAGER" . "less")
("READER" . "zathura")
("SHELL" . "fish")
("TERMINAL" . "xst")
("VISUAL" . "kak")
("WM" . "awesome")
#|Xorg|# #|IPFS|#
("XINITRC" . "$XDG_CONFIG_HOME/x11/xinitrc") ("IPFS_PATH" . "$XDG_DATA_HOME/ipfs")
#|Readline|# #|Other program settings|#
("INPUTRC" . "$XDG_CONFIG_HOME/readline/inputrc") ("RUNLEVEL" . "3")
("TERMINFO" . "$XDG_DATA_HOME/terminfo")
("GRADLE_USER_HOME" . "$XDG_DATA_HOME/gradle")
("RUSTUP_HOME" . "$XDG_DATA_HOME/rustup")
("CARGO_HOME" . "$XDG_DATA_HOME/cargo")
("DOTREMINDERS" . "$XDG_DATA_HOME/reminders")))
#|GTK|# (service home-openssh-service-type
("GTK_RC_FILES" . "$XDG_CONFIG_HOME/gtk-2.0/gtkrc") (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")
(identity-file "~/.ssh/github"))
(openssh-host
(name "*.onion")
(identity-file "~/.ssh/codeberg")
(proxy
(proxy-command
"nc -x 127.0.0.1:9050 -X5 %h %p")))))
(authorized-keys #f)))
#|Guile|# (service home-gpg-agent-service-type
("GUILE_WARN_DEPRECATED" . "detailed") (home-gpg-agent-configuration
("GUILE_HISTORY" . "$XDG_CACHE_HOME/guile/history") (gnupghome ".local/share/gnupg")
("GUILE_LOAD_PATH" (pinentry-program
. ,(format #f "~a~@{:~a/share/guile/site/3.0~}" (file-append pinentry "/bin/pinentry-curses"))))
"$HOME/areas/code/scm/radix/modules"
"$HOME/.guix-home/profile"
"$XDG_CONFIG_HOME/guix/current"
"/run/current-system/profile"))
#|Guix|# #|Session services|#
("GUIX_PROFILE" . "$XDG_CONFIG_HOME/guix/current") (service home-dbus-service-type)
#|IPFS|# #|Sound services|#
("IPFS_PATH" . "$XDG_DATA_HOME/ipfs") (service home-pipewire-service-type)
#|Other program settings|# #|Desktop application services|#
("RUNLEVEL" . "3") (service home-zathura-service-type
("TERMINFO" . "$XDG_DATA_HOME/terminfo") (home-zathura-configuration
("GRADLE_USER_HOME" . "$XDG_DATA_HOME/gradle") (selection-clipboard 'clipboard)
("RUSTUP_HOME" . "$XDG_DATA_HOME/rustup") (pages-per-row 1)
("CARGO_HOME" . "$XDG_DATA_HOME/cargo") (statusbar-home-tilde? #t)
("DOTREMINDERS" . "$XDG_DATA_HOME/reminders"))) (recolor (recolor-configuration
(keephue? #t)
(reverse-video? #t)))
(key-maps
(list (key-map
(binding "gk")
(command "goto top"))
(key-map
(binding "gj")
(command "goto bottom"))
(key-map
(binding "d")
(command #f))))
(index-face
(face (background "#000000")
(foreground "#dddddd")))
(index-active-face
(face (background "#9688d9")
(foreground "#000000")))
(completion-face
(face (background "#000000")
(foreground "#dddddd")))
(completion-highlight-face
(face (background "#000000")
(foreground "#9688d9")))))
(service home-openssh-service-type #|Mcron service|#
(home-openssh-configuration (service home-mcron-service-type
(hosts (list (openssh-host (home-mcron-configuration
(name "codeberg.org") (jobs (list #~(job "30 5 * * *"
(host-name "codeberg.org") "mpv --shuffle ~/media/music")))))))))
(user "git") home-environment
(identity-file "~/.ssh/codeberg"))
(openssh-host
(name "github.com")
(host-name "github.com")
(user "git")
(identity-file "~/.ssh/github"))
(openssh-host
(name "*.onion")
(identity-file "~/.ssh/codeberg")
(proxy
(proxy-command
"nc -x 127.0.0.1:9050 -X5 %h %p")))))
(authorized-keys #f)))
(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|#
(service home-pipewire-service-type)
#|Desktop application services|#
(service home-zathura-service-type
(home-zathura-configuration
(selection-clipboard 'clipboard)
(pages-per-row 1)
(statusbar-home-tilde? #t)
(recolor (recolor-configuration
(keephue? #t)
(reverse-video? #t)))
(key-maps
(list (key-map
(binding "gk")
(command "goto top"))
(key-map
(binding "gj")
(command "goto bottom"))
(key-map
(binding "d")
(command #f))))
(index-face
(face (background "#000000")
(foreground "#dddddd")))
(index-active-face
(face (background "#9688d9")
(foreground "#000000")))
(completion-face
(face (background "#000000")
(foreground "#dddddd")))
(completion-highlight-face
(face (background "#000000")
(foreground "#9688d9")))))
#|Mcron service|#
(service home-mcron-service-type
(home-mcron-configuration
(jobs (list #~(job "30 5 * * *"
"mpv --shuffle ~/media/music"))))))))