;; SPDX-FileCopyrightText: 2022 Hilton Chain <hako@ultrarare.space>
;;
;; SPDX-License-Identifier: GPL-3.0-or-later

(define-module (rosenthal packages freedesktop)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (gnu packages freedesktop))

(define-public wayland-1.21.0
  (let ((base wayland))
    (package
      (inherit base)
      (name "wayland")
      (version "1.21.0")
      (source (origin
                (method url-fetch)
                (uri (string-append "https://gitlab.freedesktop.org/wayland/wayland"
                                    "/-/releases/" version "/downloads/"
                                    "wayland-" version ".tar.xz"))
                (sha256
                 (base32
                  "1b0ixya9bfw5c9jx8mzlr7yqnlyvd3jv5z8wln9scdv8q5zlvikd"))))
      (arguments
       (substitute-keyword-arguments (package-arguments base)
         ((#:phases phases)
          #~(modify-phases #$phases
              ;; FIXME
              (delete 'check))))))))

(define-public wayland-protocols-1.30
  (let ((base wayland-protocols))
    (package
      (inherit base)
      (name "wayland-protocols")
      (version "1.31")
      (source (origin
                (method url-fetch)
                (uri (string-append
                      "https://gitlab.freedesktop.org/wayland/wayland-protocols"
                      "/-/releases/" version "/downloads/"
                      "wayland-protocols-" version ".tar.xz"))
                (sha256
                 (base32
                  "0f72359fzvh6jzri4fd79m34rwm2r55p2ryq4306wrw7xliafzx0"))))
      (native-inputs
       (modify-inputs (package-native-inputs base)
         (replace "wayland" wayland-1.21.0)))
      (inputs (list wayland-1.21.0)))))