Compare commits

..

No commits in common. "58a9713d4a7cb0aec5d5e694048897a90ad357eb" and "a2da805db2372f3c355de7c1125bb6eebe0583c0" have entirely different histories.

4 changed files with 79 additions and 85 deletions

View File

@ -28,7 +28,6 @@
#|Radio|# #|Radio|#
#|C|# #:use-module ((radio channels) #:prefix channel:) #|C|# #:use-module ((radio channels) #:prefix channel:)
#|P|# #:use-module ((radio packages) #:prefix packages:) #|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:) #|S|# #:use-module ((radio shepherd-services) #:prefix shepherd-service:)
#|Radix|# #|Radix|#
@ -83,13 +82,52 @@
(service home-xdg-mime-applications-service-type (service home-xdg-mime-applications-service-type
(home-xdg-mime-applications-configuration (home-xdg-mime-applications-configuration
(default (associate-right (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 (service home-special-files-service-type
`((".config/guix/home.scm" ,radio.scm))) `((".config/guix/home.scm" ,radio.scm)))
@ -162,7 +200,6 @@
--classify ~ --classify ~
--human-readable ~ --human-readable ~
-v")) -v"))
("tree" . "tree -CF --dirsfirst")
#|Clear terminal screen without ncurses|# #|Clear terminal screen without ncurses|#
("clear" . "printf \"\\033c\"") ("clear" . "printf \"\\033c\"")
@ -248,24 +285,17 @@
(environment-variables (environment-variables
;; adicionar toggle de dotfiles na lista e no preview ;; adicionar toggle de dotfiles na lista e no preview
;; adicionar toggle pro base-directory ser $PWD ;; 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" "--height=~40%"
. ("--filepath-word" "--layout=reverse"
"--height=~40%" "--scheme=path"
"--layout=reverse" "--scroll-off=2"))
"--scheme=path" ("fzf_fd_opts" . ("--absolute-path"
"--scroll-off=2" "--exclude='\\..*'"
"--color=fg:blue,hl:#cccccc" "--follow"
"--color=fg+:blue,hl+:#cccccc" "--base-directory=$HOME"
"--color=prompt:blue,pointer:blue" "--type=directory"))))))
"--color=info:#ffffff,border:#000000"))
("fzf_fd_opts"
. ("--absolute-path"
"--exclude='\\..*'"
"--follow"
"--base-directory=$HOME"
"--type=directory"))))))
#|Environment variables services|# #|Environment variables services|#
(simple-service 'home-shell-environment-variables (simple-service 'home-shell-environment-variables

View File

@ -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

View File

@ -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"))

View File

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