seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-02-02 15:35:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

rosenthal: grimblast: Wrap script.

Browse Source 
* rosenthal/packages/wm.scm (grimblast)[argument]<#:phases>: Remove phase
'patch-script-dependencies.
Add phase 'wrap.
[inputs]: Add guile-3.0.
This commit is contained in:
Hilton Chain 2023-05-29 19:52:11 +08:00
parent 99ad73db4f
commit 5791ad387d
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rosenthal/packages/wm.scm
View File

@ -15,6 +15,7 @@
#:use-module (gnu packages gcc)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages image)
#:use-module (gnu packages man)
#:use-module (gnu packages pciutils)
@ -214,15 +215,18 @@ customization, and more.")
(add-after 'unpack 'chdir
(lambda _
(chdir "grimblast")))
(add-after 'chdir 'patch-script-dependencies
(add-after 'install 'wrap
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "grimblast"
(("\\b(date|grim|jq|notify-send|slurp|hyprctl|wl-copy)\\b"
_ binary)
(search-input-file
inputs (string-append "bin/" binary)))))))))
(let ((grimblast (string-append #$output "/bin/grimblast")))
(wrap-script grimblast
`("PATH" suffix
,(map (lambda (program)
(dirname (search-input-file
inputs (string-append "/bin/" program))))
'("grim" "slurp" "hyprctl" "wl-copy" "jq"
"notify-send" "date"))))))))))
(native-inputs (list scdoc))
(inputs (list grim jq libnotify slurp hyprland wl-clipboard))
(inputs (list grim guile-3.0 jq libnotify slurp hyprland wl-clipboard))
(home-page "https://github.com/hyprwm/contrib")
(synopsis "Hyprland version of Grimshot")
(description "A Hyprland version of Grimshot.")