(define-public showtime
  (package
    (name "showtime")
    (version "50.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                     (url "https://gitlab.gnome.org/GNOME/showtime")
                     (commit version)))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "190xsv4csdj8xfh1rv3yvls5m63k6aca4sh5pmqk6r18bz03jj40"))
              (patches (search-patches "showtime-python-3.11-compat.patch"))))
    (build-system meson-build-system)
    (arguments
     (list
      #:imported-modules (append %meson-build-system-modules
                                 %pyproject-build-system-modules)
      #:modules `((guix build meson-build-system)
                  ((guix build pyproject-build-system) #:prefix py:)
                  (guix build utils))
      #:glib-or-gtk? #t
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'unpack 'skip-gtk-update-icon-cache
            (lambda _
              (substitute* "meson.build"
                (("gtk_update_icon_cache: true")
                 "gtk_update_icon_cache: false")
                (("glib_compile_schemas: true")
                 "glib_compile_schemas: false")
                (("update_desktop_database: true")
                 "update_desktop_database: false"))))
          (add-after 'install 'add-install-to-pythonpath
            (assoc-ref py:%standard-phases 'add-install-to-pythonpath))
          (add-after 'add-install-to-pythonpath 'wrap-python
            (assoc-ref py:%standard-phases 'wrap))
          (add-after 'wrap-python 'gi-wrap
            (lambda _
              (wrap-program (string-append #$output "/bin/showtime")
                `("GI_TYPELIB_PATH" suffix
                  (,(pk 'GI_TYPELIB_PATH: (getenv "GI_TYPELIB_PATH"))))))))))
    (native-inputs
     (list blueprint-compiler
           desktop-file-utils
           gettext-minimal
           `(,glib "bin")
           `(,gtk "bin")
           pkg-config))
    (inputs
     (list gstreamer
           gst-plugins-bad              ;for GstPlay
           gtk
           libadwaita
           python
           python-pygobject))
    (home-page "https://gitlab.gnome.org/GNOME/showtime")
    (synopsis "Video player")
    (description "Showtime, also known as Video Player in GNOME, aims to be
modern and capable while being simple to use, avoid distractions.  Video
Player features simple playback controls that fade out of your way when you're
watching, fullscreen, adjustable playback speed, multiple language and
subtitle tracks, and screenshots.")
    (license license:gpl3+)))