cristiancmoises
/
zero
mirror of https://codeberg.org/anemofilia/zero
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: cristiancmoises:a2da805db2372f3c355de7c1125bb6eebe0583c0
Branches Tags
cristiancmoises:main
cristiancmoises:impermanence
cristiancmoises:buersako
...
compare: cristiancmoises:58a9713d4a7cb0aec5d5e694048897a90ad357eb
Branches Tags
cristiancmoises:main
cristiancmoises:impermanence
cristiancmoises:buersako

5 Commits
a2da805db2 ... 58a9713d4a

Author SHA1 Message Date
Luis Guilherme Coelho 58a9713d4a
home-environments: radio: Fix fzf colors 2024-11-25 23:17:37 -03:00
Luis Guilherme Coelho ef7f250fdb
radio: packages: Add tree 2024-11-25 18:34:43 -03:00
Luis Guilherme Coelho bc43456bcd
home-environments: radio: Use mime-type lists from (radio mime-types) 2024-11-25 18:33:58 -03:00
Luis Guilherme Coelho 54004bf4bc
radio: Add mime-types 2024-11-25 18:32:59 -03:00
Luis Guilherme Coelho 62c1141d0f
radio: files: .local/bin: Remove screenshot 2024-11-25 14:31:38 -03:00
4 changed files with 85 additions and 79 deletions
Show Stats Expand all files Collapse all files

84
home-environments/radio.scm
View File

@ -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
`("application/xhtml+xml"
"application/x-extension-htm"
"application/x-extension-xhtml"
"application/x-extension-xht"
"x-scheme-handler/http"
"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"))))))
('chromium.desktop mime-types:browser)
('kak.desktop mime-types:editor)
('lf.desktop mime-types:file-manager)
('mpv.desktop (append mime-types:audio
mime-types:video))
('imv.desktop mime-types:image)
('sioyek.desktop mime-types:document)))))
(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" . "")
("FZF_DEFAULT_OPTS" . ("--filepath-word"
"--height=~40%"
"--layout=reverse"
"--scheme=path"
"--scroll-off=2"))
("fzf_fd_opts" . ("--absolute-path"
"--exclude='\\..*'"
"--follow"
"--base-directory=$HOME"
"--type=directory"))))))
`(("LS_COLORS" . "'di=01;34:ln=01;36:or=01;31'")
("fzf_preview_dir_cmd" . "")
("FZF_DEFAULT_OPTS"
. ("--filepath-word"
"--height=~40%"
"--layout=reverse"
"--scheme=path"
"--scroll-off=2"
"--color=fg:blue,hl:#cccccc"
"--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"
"--type=directory"))))))
#|Environment variables services|#
(simple-service 'home-shell-environment-variables

21
home-environments/radio/files/.local/bin/screenshot
View File

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

56
home-environments/radio/mime-types.scm Normal file
View File

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

3
home-environments/radio/packages.scm
View File

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