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

home-environments: radio: Rename home-environment to radio, minor changes

main
Luis Guilherme Coelho 2024-10-28 21:01:21 -03:00
parent 1730718338
commit 0400b67ac8
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
2 changed files with 42 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
home-environments/radio.scm
View File

@ -4,9 +4,7 @@
#|GNU|# #|GNU|#
#|•|# #:use-module (gnu) #|•|# #:use-module (gnu)
#|H|# #:use-module ((gnu home) #:select (this-home-environment)) #|H|# #:use-module (gnu home)
#:use-module ((gnu home) #:hide (this-home-environment)
#:prefix user-)
#|GNU packages|# #|GNU packages|#
#|G|# #:use-module (gnu packages gnupg) #|G|# #:use-module (gnu packages gnupg)
@ -43,26 +41,10 @@
#|S|# #:use-module (radix home services shells) #|S|# #:use-module (radix home services shells)
#|X|# #:use-module (radix home services xdg) #|X|# #:use-module (radix home services xdg)
#:export (home-environment #:export (radio))
application:browser (define radio
application:editor (home-environment
application:pager
application:reader
application:shell
application:terminal
application:wm))
#|Default applications|#
(define application:browser "chromium")
(define application:editor "kak")
(define application:pager "less")
(define application:reader "sioyek")
(define application:terminal "foot")
(define application:wm "river")
(define home-environment
(user-home-environment
(packages (packages
(append #|B|# packages:blogging (append #|B|# packages:blogging
#|C|# packages:calendar #|C|# packages:calendar
@ -82,14 +64,14 @@
(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")
(download "$HOME/media/downloads") (download "$HOME/media/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 "")))
(service home-xdg-mime-applications-service-type (service home-xdg-mime-applications-service-type
(home-xdg-mime-applications-configuration (home-xdg-mime-applications-configuration
@ -194,21 +176,20 @@
("TERMINFO" . "$XDG_DATA_HOME/terminfo"))) ("TERMINFO" . "$XDG_DATA_HOME/terminfo")))
(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 ~
--human-readable ~ --human-readable ~
-v")) -v"))
#|Clear terminal screen without ncurses|# #|Clear terminal screen without ncurses|#
("clear" . "printf \"\\033c\"") ("clear" . "printf \"\\033c\"")
#|Kakoune bindings for info|#
("info" . "info --init-file $XDG_CONFIG_HOME/info") ("info" . "info --init-file $XDG_CONFIG_HOME/info")
#|Kakoune aliases for the shell|# #|Kakoune aliases for the shell|#
@ -233,7 +214,6 @@
(position 'anywhere) (position 'anywhere)
(expansion y)))) (expansion y))))
`(#|Guix|# `(#|Guix|#
(!dgen . "guix % delete-generations 2w")
(!repair . "doas guix build --repair") (!repair . "doas guix build --repair")
(!pull . "guix pull") (!pull . "guix pull")
(!repl . "guix repl -i ~/.config/guile/guilerc") (!repl . "guix repl -i ~/.config/guile/guilerc")
@ -301,7 +281,7 @@
#|Environment variables services|# #|Environment variables services|#
(simple-service 'home-shell-environment-variables (simple-service 'home-shell-environment-variables
home-environment-variables-service-type home-environment-variables-service-type
`(("PATH" . "$HOME/.local/bin:$PATH") `(("PATH" . "$HOME/.local/bin:$PATH")
("INPUTRC" . "$XDG_CONFIG_HOME/readline/inputrc"))) ("INPUTRC" . "$XDG_CONFIG_HOME/readline/inputrc")))
(simple-service 'home-guile-environment-variables (simple-service 'home-guile-environment-variables
home-environment-variables-service-type home-environment-variables-service-type
@ -335,15 +315,15 @@
`(("LANG" . "en_US.UTF-8") `(("LANG" . "en_US.UTF-8")
("LANGUAGE" . "en_US.UTF-8") ("LANGUAGE" . "en_US.UTF-8")
("LC_COLLATE" . "C"))) ("LC_COLLATE" . "C")))
(simple-service 'home-default-applications-environment-variables (simple-service 'home-default-applications-environment-variables
home-environment-variables-service-type home-environment-variables-service-type
`(("BROWSER" . ,application:browser) `(("BROWSER" . "chromium")
("EDITOR" . ,application:editor) ("EDITOR" . "kak")
("PAGER" . ,application:pager) ("PAGER" . "less")
("READER" . ,application:reader) ("TERMINAL" . "foot")
("TERMINAL" . ,application:terminal) ("VISUAL" . "$EDITOR")
("VISUAL" . ,application:editor) ("WM" . "river")))
("WM" . ,application:wm)))
(simple-service 'home-applications-environment-variables (simple-service 'home-applications-environment-variables
home-environment-variables-service-type home-environment-variables-service-type
`(("MINETEST_USER_PATH" . "$XDG_DATA_HOME/minetest"))) `(("MINETEST_USER_PATH" . "$XDG_DATA_HOME/minetest")))
@ -393,4 +373,4 @@
(full-message "Unplug the cable") (full-message "Unplug the cable")
(warning-message "You may want to plug the cable") (warning-message "You may want to plug the cable")
(critical-message "Plug the cable"))))))) (critical-message "Plug the cable")))))))
home-environment radio

14
home-environments/radio/files/.local/bin/dup Executable file
View File

@ -0,0 +1,14 @@
#!/usr/bin/env -S guile
!#
(use-modules (ice-9 textual-ports)
(srfi srfi-197)
(radix utils))
(for-each (lambda (line)
(display line)
(newline))
(chain (current-input-port)
(get-string-all _)
(string-split _ #\newline)
(duplicates _)))