[bug#55769] [PATCH] gnu: Add xwhite.

[derekchuank]

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm

index e5a98edb35..250860274d 100644

--- a/gnu/packages/xdisorg.scm

+++ b/gnu/packages/xdisorg.scm

@@ -54,6 +54,7 @@

 ;;; Copyright © 2021 jgart <jgart@dismail.de>

 ;;; Copyright © 2022 John Kehayias <john.kehayias@protonmail.com>

 ;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com>

+;;; Copyright © 2022 Derek Chuank <derekchuank@outlook.com>

 ;;;

 ;;; This file is part of GNU Guix.

 ;;;

@@ -1499,6 +1500,40 @@ (define-public redshift-wayland

 protocol.")

       (license license:gpl3+))))

 

+(define-public xwhite

+  (package

+    (name "xwhite")

+    (version "0.0.1")

+    (source

+     (origin

+       (method url-fetch)

+       (uri

+        (string-append "https://github.com/derekchuank/xwhite/"

+                       "releases/download/v" version

+                       "/xwhite-" version ".tar.gz"))

+       (sha256

+        (base32 "1gadgvl408zdl9drz6rb0dhq285a6w57bn94ql2sgcpp9mq7ym5q"))))

+    (build-system gnu-build-system)

+    (arguments

+     `(#:tests? #f

+       #:phases

+       (modify-phases %standard-phases

+         (delete 'configure)

+         (replace 'install

+           (lambda* (#:key outputs #:allow-other-keys)

+             (let ((out (assoc-ref outputs "out")))

+               (install-file "xwhite" (string-append out "/bin"))

+               #t))))))

+    (inputs

+     (list libxrandr))

+    (home-page "https://github.com/derekchuank/xwhite")

+    (synopsis "Adjust color balance")

+    (description "xwhite is a command line tool for adjusting color

+balance of screen.  It is based on xrandr's gamma correction and

+brightness adjustment.  Typically used for tuning color balance

+while setting color temperature.")

+    (license license:gpl2)))

+

 (define-public gammastep

   (package

     (name "gammastep")