@@ -35,6 +35,7 @@ (define-module (gnu packages pantheon)
#:use-module (gnu packages python)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages xml)
+ #:use-module (gnu packages video)
#:use-module (gnu packages web)
#:use-module (gnu packages webkit)
#:use-module (gnu packages xorg)
@@ -264,6 +265,54 @@ (define-public pantheon-terminal
(home-page "https://elementary.io/open-source")
(license license:lgpl3)))
+(define-public pantheon-videos
+ (package
+ (name "pantheon-videos")
+ (version "3.0.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/elementary/videos")
+ (commit version)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0873g3mcrpgwmjamy8dhdya7fxki4qpwp8wa6lv5cdipq7pkiprv"))))
+ (build-system meson-build-system)
+ (arguments
+ `(#:glib-or-gtk? #t
+ #:phases (modify-phases %standard-phases
+ (add-after 'install 'install-symlinks
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out
+ "/bin/io.elementary.videos"))
+ (link (string-append out "/bin/pantheon-videos")))
+ (symlink bin link)))))))
+ (native-inputs (list gettext-minimal ;for msgfmt.
+ `(,glib "bin") ;glib-compile-schemas.
+ pkg-config
+ vala))
+ (inputs (list flatpak
+ ffmpeg
+ granite-6
+ gst-libav
+ gst-plugins-bad
+ gst-plugins-base
+ gst-plugins-good
+ gst-plugins-ugly
+ gstreamer
+ gtk+
+ libgee
+ libhandy))
+ (synopsis "Video player and library app designed for the Pantheon desktop")
+ (description
+ "Videos is a video player and video library application. It
+originally comes from elementary OS and is designed for the Pantheon desktop
+environment (but can be used with others as well).")
+ (home-page "https://elementary.io/open-source")
+ (license license:gpl3+)))
+
(define-public sideload
(package
(name "sideload")