home-environments: radio: Fix fzf colors

home-environments/radio.scm

@@ -28,6 +28,7 @@
   #|Radio|#
   #|C|# #:use-module ((radio channels) #:prefix channel:)
   #|P|# #:use-module ((radio packages) #:prefix packages:)
+  #|M|# #:use-module ((radio mime-types) #:prefix mime-types:)
   #|S|# #:use-module ((radio shepherd-services) #:prefix shepherd-service:)
 
   #|Radix|#
@@ -82,52 +83,13 @@
           (service home-xdg-mime-applications-service-type
                    (home-xdg-mime-applications-configuration
                     (default (associate-right
-                               ('chromium.desktop
+                               ('chromium.desktop mime-types:browser)
-                                `("application/xhtml+xml"
+                               ('kak.desktop mime-types:editor)
-                                  "application/x-extension-htm"
+                               ('lf.desktop mime-types:file-manager)
-                                  "application/x-extension-xhtml"
+                               ('mpv.desktop (append mime-types:audio
-                                  "application/x-extension-xht"
+                                                     mime-types:video))
-                                  "x-scheme-handler/http"
+                               ('imv.desktop mime-types:image)
-                                  "x-scheme-handler/https"))
+                               ('sioyek.desktop mime-types:document)))))
-                               ('kak.desktop
-                                `("text/html"
-                                  "text/plain"
-                                  "text/troff"
-                                  "text/xml"
-                                  "text/x-c"
-                                  "text/x-c++"
-                                  "text/x-clojure"
-                                  "text/x-diff"
-                                  "text/x-lisp"
-                                  "text/x-scheme"
-                                  "text/x-script.python"
-                                  "text/x-shellscript"
-                                  "text/x-tex"))
-                               ('lf.desktop
-                                `("inode/directory"
-                                  "x-scheme-handler/ftp"
-                                  "x-scheme-handler/nfs"
-                                  "x-scheme-handler/smb"
-                                  "x-scheme-handler/ssh"
-                                  "application/x-directory"))
-                               ('mpv.desktop
-                                `("image/gif"
-                                  "audio/mpeg"
-                                  "audio/ogg"
-                                  "audio/opus"
-                                  "audio/x-opus+ogg"
-                                  "video/mp4"
-                                  "video/x-matroska"
-                                  "video/webm"))
-                               ('imv.desktop
-                                `("image/avif"
-                                  "image/bmp"
-                                  "image/jpeg"
-                                  "image/png"
-                                  "image/svg+xml"
-                                  "image/webp"))
-                               ('sioyek.desktop
-                                `("application/pdf"))))))
           (service home-special-files-service-type
                    `((".config/guix/home.scm" ,radio.scm)))
 
@@ -200,6 +162,7 @@
                                                --classify ~
                                                --human-readable ~
                                                -v"))
+                       ("tree" . "tree -CF --dirsfirst")
 
                        #|Clear terminal screen without ncurses|#
                        ("clear" . "printf \"\\033c\"")
@@ -285,17 +248,24 @@
                             (environment-variables
                               ;; adicionar toggle de dotfiles na lista e no preview
                               ;; adicionar toggle pro base-directory ser $PWD
-                              `(("fzf_preview_dir_cmd" . "")
+                              `(("LS_COLORS" . "'di=01;34:ln=01;36:or=01;31'")
-                                ("FZF_DEFAULT_OPTS" . ("--filepath-word"
+                                ("fzf_preview_dir_cmd" . "")
-                                                       "--height=~40%"
+                                ("FZF_DEFAULT_OPTS"
-                                                       "--layout=reverse"
+                                 . ("--filepath-word"
-                                                       "--scheme=path"
+                                    "--height=~40%"
-                                                       "--scroll-off=2"))
+                                    "--layout=reverse"
-                                ("fzf_fd_opts" . ("--absolute-path"
+                                    "--scheme=path"
-                                                  "--exclude='\\..*'"
+                                    "--scroll-off=2"
-                                                  "--follow"
+                                    "--color=fg:blue,hl:#cccccc"
-                                                  "--base-directory=$HOME"
+                                    "--color=fg+:blue,hl+:#cccccc"
-                                                  "--type=directory"))))))
+                                    "--color=prompt:blue,pointer:blue"
+                                    "--color=info:#ffffff,border:#000000"))
+                                ("fzf_fd_opts"
+                                 . ("--absolute-path"
+                                    "--exclude='\\..*'"
+                                    "--follow"
+                                    "--base-directory=$HOME"
+                                    "--type=directory"))))))
 
           #|Environment variables services|#
           (simple-service 'home-shell-environment-variables

home-environments/radio/files/.local/bin/screenshot

@@ -1,21 +0,0 @@
-#!/bin/sh
-
-case "$1" in 
-    "activewindow")
-        # Get active window geometry
-        eval $(xdotool getactivewindow getwindowgeometry --shell)
-        REGION="$((${WIDTH} + 10))x$((${HEIGHT}+10))+$((${X}-5))+$((${Y}-5))"
-        maim -Bg "${REGION}" | xclip -selection clipboard -t image/png;;
-    "selectwindow")
-        # Let the user select a window and get its geometry
-        eval $(xdotool selectwindow getwindowgeometry --shell)
-        REGION="$((${WIDTH} + 10))x$((${HEIGHT}+10))+$((${X}-5))+$((${Y}-5))"
-        maim -Bg "${REGION}" | xclip -selection clipboard -t image/png;;
-    "selectregion")
-        maim -s | xclip -selection clipboard -t image/png;;
-    *)
-        # Get current screen
-        SCREEN=$(xdotool get_desktop)
-        REGION="$(hostname):${SCREEN}.1"
-        maim -u | xclip -selection clipboard -t image/png;;
-esac

home-environments/radio/mime-types.scm

@@ -0,0 +1,56 @@
+(define-module (radio mime-types)
+  #:export (browser editor file-manager audio video image document))
+
+(define browser
+  `("application/xhtml+xml"
+    "application/x-extension-htm"
+    "application/x-extension-xhtml"
+    "application/x-extension-xht"
+    "x-scheme-handler/http"
+    "x-scheme-handler/https"))
+
+(define editor
+  `("text/html"
+    "text/plain"
+    "text/troff"
+    "text/xml"
+    "text/x-c"
+    "text/x-c++"
+    "text/x-clojure"
+    "text/x-diff"
+    "text/x-lisp"
+    "text/x-scheme"
+    "text/x-script.python"
+    "text/x-shellscript"
+    "text/x-tex"))
+
+(define file-manager
+  `("inode/directory"
+    "x-scheme-handler/ftp"
+    "x-scheme-handler/nfs"
+    "x-scheme-handler/smb"
+    "x-scheme-handler/ssh"
+    "application/x-directory"))
+
+(define audio
+  `("video/mp4"
+    "video/x-matroska"
+    "video/webm"))
+
+(define video
+  `("audio/mpeg"
+    "audio/ogg"
+    "audio/opus"
+    "audio/x-opus+ogg"))
+
+(define image
+  `("image/avif"
+    "image/bmp"
+    "image/gif"
+    "image/jpeg"
+    "image/png"
+    "image/svg+xml"
+    "image/webp"))
+
+(define document
+  `("application/pdf"))

home-environments/radio/packages.scm

@@ -120,7 +120,8 @@
         #|zig-xyz    |# river))
 
 (define development
-  (list #|gnupg         |# gnupg pinentry
+  (list #|admin         |# tree
+        #|gnupg         |# gnupg pinentry
         #|math          |# libqalculate
         #|ssh           |# openssh
         #|text-editors  |# kakoune