From 94422425973d9c1ce1377a80eff511ec49f31984 Mon Sep 17 00:00:00 2001 From: Luis Guilherme Coelho Date: Tue, 26 Nov 2024 04:19:03 -0300 Subject: [PATCH] home-environments: radio: Add toggle for --relative-path and --base-directory=$PWD in fish-fzf --- home-environments/radio.scm | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) diff --git a/home-environments/radio.scm b/home-environments/radio.scm index 44e6b57..6fd685b 100644 --- a/home-environments/radio.scm +++ b/home-environments/radio.scm @@ -246,26 +246,30 @@ "--processes=" "--variables="))))) (environment-variables - ;; adicionar toggle de dotfiles na lista e no preview - ;; adicionar toggle pro base-directory ser $PWD `(("LS_COLORS" . "'di=01;34:ln=01;36:or=01;31'") - ("fzf_preview_dir_cmd" . "") ("FZF_DEFAULT_OPTS" . ("--filepath-word" "--height=~40%" "--layout=reverse" + "--preview=''" "--scheme=path" "--scroll-off=2" - "--color=fg:blue,hl:#cccccc" - "--color=fg+:blue,hl+:#cccccc" + "--color=fg:blue:bold,hl:#cccccc" + "--color=fg+:blue:bold,hl+:#cccccc" "--color=prompt:blue,pointer:blue" "--color=info:#ffffff,border:#000000")) - ("fzf_fd_opts" - . ("--absolute-path" - "--exclude='\\..*'" - "--follow" - "--base-directory=$HOME" - "--type=directory")))))) + ("fzf_base_fd_opts" . ("--exclude='\\..*'" + "--follow" + "--type directory")) + ("fzf_fd_opts" . ("$fzf_base_fd_opts" + "--base-directory=$HOME" + "--absolute-path")) + ("fzf_directory_opts" + . ,(map (match-lambda + ((bind . cmd) + (format #f "'--bind=~a:~a'" bind cmd))) + `(("ctrl-p" . "reload(fd $fzf_base_fd_opts)") + ("ctrl-alt-p" . "reload(fd $fzf_fd_opts)")))))))) #|Environment variables services|# (simple-service 'home-shell-environment-variables