home-environments/radio.scm

@@ -28,7 +28,6 @@
   #|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|#
@@ -83,13 +82,52 @@
           (service home-xdg-mime-applications-service-type
                    (home-xdg-mime-applications-configuration
                     (default (associate-right
-                               ('chromium.desktop mime-types:browser)
+                               ('chromium.desktop
-                               ('kak.desktop mime-types:editor)
+                                `("application/xhtml+xml"
-                               ('lf.desktop mime-types:file-manager)
+                                  "application/x-extension-htm"
-                               ('mpv.desktop (append mime-types:audio
+                                  "application/x-extension-xhtml"
-                                                     mime-types:video))
+                                  "application/x-extension-xht"
-                               ('imv.desktop mime-types:image)
+                                  "x-scheme-handler/http"
-                               ('sioyek.desktop mime-types:document)))))
+                                  "x-scheme-handler/https"))
+                               ('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)))
 
@@ -162,7 +200,6 @@
                                                --classify ~
                                                --human-readable ~
                                                -v"))
-                       ("tree" . "tree -CF --dirsfirst")
 
                        #|Clear terminal screen without ncurses|#
                        ("clear" . "printf \"\\033c\"")
@@ -248,20 +285,13 @@
                             (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_preview_dir_cmd" . "")
+                                ("FZF_DEFAULT_OPTS" . ("--filepath-word"
-                                ("FZF_DEFAULT_OPTS"
-                                 . ("--filepath-word"
                                                        "--height=~40%"
                                                        "--layout=reverse"
                                                        "--scheme=path"
-                                    "--scroll-off=2"
+                                                       "--scroll-off=2"))
-                                    "--color=fg:blue,hl:#cccccc"
+                                ("fzf_fd_opts" . ("--absolute-path"
-                                    "--color=fg+:blue,hl+:#cccccc"
-                                    "--color=prompt:blue,pointer:blue"
-                                    "--color=info:#ffffff,border:#000000"))
-                                ("fzf_fd_opts"
-                                 . ("--absolute-path"
                                                   "--exclude='\\..*'"
                                                   "--follow"
                                                   "--base-directory=$HOME"

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

@@ -0,0 +1,21 @@
+#!/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

@@ -1,56 +0,0 @@
-(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,8 +120,7 @@
         #|zig-xyz    |# river))
 
 (define development
-  (list #|admin         |# tree
+  (list #|gnupg         |# gnupg pinentry
-        #|gnupg         |# gnupg pinentry
         #|math          |# libqalculate
         #|ssh           |# openssh
         #|text-editors  |# kakoune