[bug#60206] [PATCH] gnu: add wl-color-picker

[bug#60206] [PATCH] gnu: add wl-color-picker

[Sughosha via Guix-patches via]

* gnu/packages/xdisorg.scm (wl-color-picker): New variable.
---
 gnu/packages/xdisorg.scm | 42 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 5c4fd79091..f176f84f8b 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -112,6 +112,7 @@ (define-module (gnu packages xdisorg)
   #:use-module (gnu packages haskell-xyz)
   #:use-module (gnu packages icu4c)
   #:use-module (gnu packages image)
+  #:use-module (gnu packages imagemagick)
   #:use-module (gnu packages kde-frameworks)
   #:use-module (gnu packages libbsd)
   #:use-module (gnu packages libevent)
@@ -2477,6 +2478,47 @@ (define-public xsecurelock
 @end example")
     (license license:asl2.0)))
 
+(define-public wl-color-picker
+  (package
+    (name "wl-color-picker")
+    (version "1.3")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/jgmdev/wl-color-picker")
+              (commit (string-append "v" version))))
+       (sha256
+        (base32 "0h5b8qfwri7a1invk8dran3436ac37x6r8fic3l5cxqj5rgnky4n"))))
+    (build-system copy-build-system)
+    (arguments
+     `(#:install-plan '(("wl-color-picker.sh" "bin/wl-color-picker")
+                        ("wl-color-picker.png" "share/pixmaps/")
+                        ("wl-color-picker.svg"
+                         "share/icons/hicolor/scalable/apps/")
+                        ("wl-color-picker.desktop" "share/applications/"))
+           #:phases (modify-phases %standard-phases
+                      (add-after 'install 'wrap-script
+                        (lambda* (#:key outputs #:allow-other-keys)
+                          (wrap-program (string-append
+                                          (assoc-ref outputs "out")
+                                          "/bin/wl-color-picker")
+                           `("PATH" = (,(getenv "PATH")))))))))
+    (inputs
+     (list coreutils-minimal
+           grim
+           hicolor-icon-theme
+           imagemagick
+           slurp
+           wl-clipboard
+           zenity))
+    (home-page "https://github.com/jgmdev/wl-color-picker")
+    (synopsis "Wayland color picker")
+    (description
+     "@command{wl-color-picker} is a script that provides color picker for
+Wayland and @code{wlroots} by leveraging @command{grim} and @command{slurp}.")
+    (license license:expat)))
+
 (define-public wl-clipboard
   (package
     (name "wl-clipboard")
-- 
2.38.1

bug#60206: [PATCH] gnu: add wl-color-picker

[Ludovic Courtès]

[-- Attachment #1: Type: text/plain, Size: 249 bytes --]

Hi,

Sughosha <Sughosha@proton.me> skribis:

> * gnu/packages/xdisorg.scm (wl-color-picker): New variable.

I addressed ‘guix lint’ warnings and made cosmetic changes, as shown
below.

Applied with these changes, thanks!

Ludo’.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 2856 bytes --]

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 5eee724f2b..f6f015732d 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -2476,14 +2476,16 @@ (define-public wl-color-picker
   (package
     (name "wl-color-picker")
     (version "1.3")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-              (url "https://github.com/jgmdev/wl-color-picker")
-              (commit (string-append "v" version))))
-       (sha256
-        (base32 "0h5b8qfwri7a1invk8dran3436ac37x6r8fic3l5cxqj5rgnky4n"))))
+    (home-page "https://github.com/jgmdev/wl-color-picker")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url home-page)
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0h5b8qfwri7a1invk8dran3436ac37x6r8fic3l5cxqj5rgnky4n"))))
     (build-system copy-build-system)
     (arguments
      `(#:install-plan '(("wl-color-picker.sh" "bin/wl-color-picker")
@@ -2491,22 +2493,21 @@ (define-public wl-color-picker
                         ("wl-color-picker.svg"
                          "share/icons/hicolor/scalable/apps/")
                         ("wl-color-picker.desktop" "share/applications/"))
-           #:phases (modify-phases %standard-phases
-                      (add-after 'install 'wrap-script
-                        (lambda* (#:key outputs #:allow-other-keys)
-                          (wrap-program (string-append
-                                          (assoc-ref outputs "out")
-                                          "/bin/wl-color-picker")
-                           `("PATH" = (,(getenv "PATH")))))))))
-    (inputs
-     (list coreutils-minimal
-           grim
-           hicolor-icon-theme
-           imagemagick
-           slurp
-           wl-clipboard
-           zenity))
-    (home-page "https://github.com/jgmdev/wl-color-picker")
+       #:phases (modify-phases %standard-phases
+                  (add-after 'install 'wrap-script
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      (wrap-program (string-append (assoc-ref outputs "out")
+                                                   "/bin/wl-color-picker")
+                                    `("PATH" =
+                                      (,(getenv "PATH")))))))))
+    (inputs (list coreutils-minimal
+                  bash-minimal
+                  grim
+                  hicolor-icon-theme
+                  imagemagick
+                  slurp
+                  wl-clipboard
+                  zenity))
     (synopsis "Wayland color picker")
     (description
      "@command{wl-color-picker} is a script that provides color picker for