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

home-environments: radio: Replace the use of @xyz abbreviations by the fish-fzf plugin

impermanence
Luis Guilherme Coelho 2024-08-13 00:39:48 -03:00
parent 47ae93df69
commit 19390325bc
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 44 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
home-environments/radio.scm
View File

@ -350,6 +350,7 @@
(plugins (plugins
(list fish-autopair (list fish-autopair
fish-done fish-done
fish-fzf
fish-puffer)) fish-puffer))
(environment-variables (environment-variables
`(#|GNU Privacy Guard|# `(#|GNU Privacy Guard|#
@ -373,7 +374,19 @@
#|M|# "^mpv" #|M|# "^mpv"
#|N|# "^newsraft")) #|N|# "^newsraft"))
("__done_notification_command" ("__done_notification_command"
. "notify-send '$title' '$message'"))) . "notify-send '$title' '$message'")
("FZF_DEFAULT_OPTS" . ("--filepath-word"
"--layout=reverse"
"--scheme=path"
"--scroll-off=2"))
("fzf_preview_dir_cmd" . "")
;; adicionar toggle de dotfiles na lista e no preview
;; adicionar toggle pro base-directory ser $PWD
("fzf_fd_opts" . ("--absolute-path"
"--exclude='\\..*'"
"--follow"
"--base-directory=$HOME"
"--type=directory"))))
(aliases (aliases
`(#|Common aliases|# `(#|Common aliases|#
("df" . "df -h") ("df" . "df -h")
@ -400,49 +413,8 @@
(":e" . "kak") (":e" . "kak")
(":q" . "exit"))) (":q" . "exit")))
(abbreviations (abbreviations
(let ((@ (symbol-prefix-proc '@)) (let ((edit (partial format #f "$EDITOR~@{ ~a~}")))
(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 `(,@(map (match-lambda
((x . y) (abbreviation
(name (@ x))
(position 'anywhere)
(expansion (y x)))))
(associate-right
#|P.A.R.A.|#
((lambda (dir)
(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"))
'(desktop documents download music pictures videos))
#|Code projects|#
((symbol-prefix-proc '~/projects/code/)
'(c clj cpp el hs html kak md pl scm sh tex zig))
#|Code areas|#
((symbol-prefix-proc '~/areas/code/scm/)
'(guile guix misako radix
riverguile saayix shepherd zero))
#|Radix|#
((partial @radix '/radix/)
'(packages services home/services))
#|Zero|#
((partial @zero '/operating-systems/)
'(buer buer/files buer/manifests))
((partial @zero '/home-environments/)
'(radio radio/files radio/packages radio/manifests))))
,@(map (match-lambda
((x . y) (abbreviation ((x . y) (abbreviation
(name x) (name x)
(expansion y)))) (expansion y))))