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

home-environments: radio: Add more fish abbreviations

impermanence
Luis Guilherme Coelho 2024-03-09 11:02:49 -03:00
parent f7563fff85
commit 5a3ddf0fa5
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 86 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
home-environments/radio.scm
View File

@ -3,7 +3,7 @@
#|M|# #:use-module (ice-9 match)
#|GNU|#
#| |# #:use-module (gnu)
#|•|# #:use-module (gnu)
#|H|# #:use-module ((gnu home) #:select (this-home-environment))
#|H|# #:use-module ((gnu home) #:hide (this-home-environment)
#:prefix user-)
@ -46,7 +46,7 @@
#:use-module (gnu packages xorg)
#|GNU home services|#
#| |# #:use-module (gnu home services)
#|•|# #:use-module (gnu home services)
#|D|# #:use-module (gnu home services desktop)
#:use-module (gnu home services dotfiles)
#|G|# #:use-module (gnu home services guix)
@ -71,7 +71,7 @@
#|W|# #:use-module (radix packages wm)
#|Radix home services|#
#| |# #:use-module (radix home services)
#|•|# #:use-module (radix home services)
#|G|# #:use-module (radix home services gnupg)
#|S|# #:use-module (radix home services shells)
#|X|# #:use-module (radix home services xdg)
@ -259,21 +259,24 @@
("':e'" . "kak")
("':q'" . "exit")))
(abbreviations
(let ((at (symbol-prefix-proc '@))
(edit (partial string-append "$EDITOR ")))
(append
(map (match-lambda
(let ((@ (symbol-prefix-proc '@))
(edit (partial format #f "$EDITOR~@{ ~a~}"))
(@radix (partial symbol-append '~/areas/code/scm/radix))
(@zero (partial symbol-append '~/areas/code/scm/zero)))
`(,@(map (match-lambda
((x . y) (abbreviation
(name (at x))
(name (@ x))
(position 'anywhere)
(expansion (y x)))))
(associate-right
#|P.A.R.A.|#
((lambda (dir)
(if (equal? dir 'archive)
(symbol-append '~/. dir)
(symbol-append '~/ dir)))
'(areas projects resources resources/bookmarks archive))
(cond ((equal? dir 'archive)
(symbol-append '~/. dir))
((equal? dir 'bookmarks)
(symbol-append '~/resources/ dir))
(else (symbol-append '~/ dir))))
'(areas bookmarks projects resources archive))
#|XDG user directories|#
((const (fish-function "xdg-user-directory"))
@ -283,9 +286,21 @@
((symbol-prefix-proc '~/projects/code/)
'(c clj cpp hs html kak md pl scm sh tex zig))
#|Guix channels|#
((symbol-prefix-proc '~/projects/code/scm/)
'(ajatt guix radix zero))
#|Code areas|#
((symbol-prefix-proc '~/areas/code/scm/)
'(guix radix zero))
#|Radix|#
((partial @radix '/radix/)
'(packages services home/services))
#|Zero|#
((partial @zero '/operating-systems/)
'(buer))
((partial @zero '/home-environments/)
'(radio))
((partial @zero '/home-environments/radio/)
'(files))
#|Configuration|#
((symbol-prefix-proc
@ -295,7 +310,7 @@
'~/areas/code/scm/radix/home-environments/)
(list (string->symbol (getlogin))))))
(map (match-lambda
,@(map (match-lambda
((x . y) (abbreviation
(name x)
(expansion y))))
@ -306,7 +321,7 @@
(v . "yt-dlp --prefer-free-formats '%'")
(z . "curl -F file=@% https://0x0.st | xsel -b")))
(map (match-lambda
,@(map (match-lambda
((x . y) (abbreviation
(name x)
(position 'anywhere)
@ -346,7 +361,11 @@
("GUILE_LOAD_PATH"
. ,(format #f "~?~?"
"~@{:$HOME/areas/code/scm/~a~}"
'(ajatt radix zero)
'(ajatt
radix
zero
zero/operating-systems
zero/home-environments)
"~@{:~a/share/guile/site/3.0~}"
'($HOME/.guix-home/profile
$XDG_CONFIG_HOME/guix/current