mirror of https://codeberg.org/anemofilia/zero
home-environments: radio: Replace the use of @xyz abbreviations by the fish-fzf plugin
Luis Guilherme Coelho
parent
47ae93df69
commit
19390325bc
|
|
@ -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,80 +413,39 @@
|
||||||
(":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~}"))
|
`(,@(map (match-lambda
|
||||||
(@radix (partial symbol-append '~/areas/code/scm/radix))
|
((x . y) (abbreviation
|
||||||
(@zero (partial symbol-append '~/areas/code/scm/zero)))
|
(name x)
|
||||||
`(,@(map (match-lambda
|
(expansion y))))
|
||||||
((x . y) (abbreviation
|
`(#|Download/Upload|#
|
||||||
(name (@ x))
|
(a . "aria2c -j 10 '%'")
|
||||||
(position 'anywhere)
|
(i . "ipfs get %")
|
||||||
(expansion (y x)))))
|
(m . "yt-dlp -x '%'")
|
||||||
(associate-right
|
(u . "curl -F file=@% https://0x0.st | wl-copy")
|
||||||
#|P.A.R.A.|#
|
(v . "yt-dlp '%'")))
|
||||||
((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|#
|
,@(map (match-lambda
|
||||||
((const (fish-function "xdg-user-directory"))
|
((x . y) (abbreviation
|
||||||
'(desktop documents download music pictures videos))
|
(name x)
|
||||||
|
(position 'anywhere)
|
||||||
|
(expansion y))))
|
||||||
|
`(#|Guix|#
|
||||||
|
(!dgen . "guix % delete-generations 2w")
|
||||||
|
(!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")
|
||||||
|
|
||||||
#|Code projects|#
|
#|Processes|#
|
||||||
((symbol-prefix-proc '~/projects/code/)
|
(tf . "setsid -f % >/dev/null 2>&1 & disown")
|
||||||
'(c clj cpp el hs html kak md pl scm sh tex zig))
|
|
||||||
|
|
||||||
#|Code areas|#
|
#|Quick edit|#
|
||||||
((symbol-prefix-proc '~/areas/code/scm/)
|
(:e . ,(edit))
|
||||||
'(guile guix misako radix
|
(:system . ,(edit "/etc/config.scm"))
|
||||||
riverguile saayix shepherd zero))
|
(:home . ,(edit "~/.config/guix/home.scm"))
|
||||||
|
(:todo . ,(edit "~/areas/meta/todo")))))))))
|
||||||
#|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
|
|
||||||
(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|#
|
|
||||||
(!dgen . "guix % delete-generations 2w")
|
|
||||||
(!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")
|
|
||||||
|
|
||||||
#|Processes|#
|
|
||||||
(tf . "setsid -f % >/dev/null 2>&1 & disown")
|
|
||||||
|
|
||||||
#|Quick edit|#
|
|
||||||
(:e . ,(edit))
|
|
||||||
(:system . ,(edit "/etc/config.scm"))
|
|
||||||
(:home . ,(edit "~/.config/guix/home.scm"))
|
|
||||||
(:todo . ,(edit "~/areas/meta/todo")))))))))
|
|
||||||
|
|
||||||
#|Environment variables services|#
|
#|Environment variables services|#
|
||||||
(simple-service 'home-shell-environment-variables
|
(simple-service 'home-shell-environment-variables
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue