bug#69667: build of sway-1.9-checkout.drv failed

[Ignas Lapėnas]

Dropping this here, if anyone still needs it. Still looking how would I
go to send a merge request or a patch. Also as I see this might just be
a duplication of work with Isaac van Bakel. Sorry about that.

#+BEGIN_SRC Guile
(define-module (packages sway)
  #:use-module (guix packages)
  #:use-module (gnu packages base)
  #:use-module (guix download)
  #:use-module (guix build-system copy)
  #:use-module (guix git-download)
  #:use-module (gnu packages wm)
  #:use-module (gnu packages image)
  #:use-module (gnu packages web)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages man)
  #:use-module (guix gexp)
  #:use-module (guix utils)
  #:use-module ((guix licenses) #:prefix license:))

(define-public grimshot
  (package
    (name "grimshot")
    (version "1.9-contrib.0")
    (source (origin
             (method git-fetch)
             (uri (git-reference
                   (url "https://github.com/OctopusET/sway-contrib";)
                   (commit version)))
             (sha256
              (base32
               "16fa8l81zjy25nsky1i525hb7zjprqz74mbirm9b76pvksschdv5"))))
    (build-system copy-build-system)
    (arguments
     (list #:install-plan #~`(("grimshot" "bin/")
                              ("grimshot.1" "share/man/man1/"))
           #:phases #~(modify-phases %standard-phases
                        (add-after 'chdir 'patch-script-dependencies
                          (lambda* (#:key inputs #:allow-other-keys)
                            (substitute* "grimshot"
                              
(("\\b(date|grim|jq|notify-send|slurp|swaymsg|wl-copy)\\b"
                                _ binary)
                               (search-input-file
                                inputs (string-append "bin/" binary))))))
                        (add-after 'patch-script-dependencies 'build-man-page
                          (lambda _
                            (with-input-from-file "grimshot.1.scd"
                              (lambda _
                                (with-output-to-file "grimshot.1"
                                  (lambda _
                                    (invoke "scdoc"))))))))))
    (native-inputs (list scdoc))
    (inputs (list coreutils
                  grim
                  jq
                  libnotify
                  slurp
                  sway
                  wl-clipboard))
    (synopsis "Screenshot utility for the Sway window manager")
    (description "Grimshot is a screenshot utility for @code{sway}.  It provides
an interface over @code{grim}, @code{slurp} and @code{jq}, and supports storing
the screenshot either directly to the clipboard using @code{wl-copy} or to a
file.")
    (home-page "https://github.com/OctopusET/sway-contrib";)
    (license license:expat)))
#+END_SRC scm

-- 
Best regards,
Ignas Lapėnas