me
/
guix
Archived
1
0
Fork 0
Code

gnu: Add MLT 7. 

* gnu/packages/video.scm (mlt): New variable.
(mlt-6): Inherit from above.

Signed-off-by: Leo Famulari <leo@famulari.name>
master
Vinicius Monego 2021-07-06 18:36:26 +00:00 committed by Leo Famulari
parent 0913843efc
commit 37ce56af34
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 40 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
gnu/packages/video.scm
View File

@ -3014,29 +3014,22 @@ from sites like Twitch.tv and pipes them into a video player of choice.")
"This package provides a command-line interface for Twitch.tv") "This package provides a command-line interface for Twitch.tv")
(license license:gpl3+)))) (license license:gpl3+))))
(define-public mlt-6 (define-public mlt
(package (package
(name "mlt") (name "mlt")
(version "6.26.1") (version "7.0.1")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/mltframework/mlt") (url "https://github.com/mltframework/mlt")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "13c5miph9jjbz69dhy0zvbkk5zbb05dr3vraaci0d5fdbrlhyscf"))))
"1gz79xvs5jrzqhwhfk0dqdd3xiavnjp4q957h7nb02rij32byb39"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ;no tests `(#:tests? #f ;requires "Kwalify"
#:configure-flags
(list (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
(assoc-ref %build-inputs "gtk+")
"/lib/gtk-2.0/include")
(string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
(assoc-ref %build-inputs "glib")
"/lib/glib-2.0/include"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'override-LDFLAGS (add-before 'configure 'override-LDFLAGS
@ -3052,7 +3045,7 @@ from sites like Twitch.tv and pipes them into a video player of choice.")
("fftw" ,fftw) ("fftw" ,fftw)
("frei0r-plugins" ,frei0r-plugins) ("frei0r-plugins" ,frei0r-plugins)
("gdk-pixbuf" ,gdk-pixbuf) ("gdk-pixbuf" ,gdk-pixbuf)
("gtk+" ,gtk+-2) ("gtk+" ,gtk+)
("libxml2" ,libxml2) ("libxml2" ,libxml2)
("jack" ,jack-1) ("jack" ,jack-1)
("ladspa" ,ladspa) ("ladspa" ,ladspa)
@ -3081,6 +3074,33 @@ functionality of the system is provided via an assortment of ready to use
tools, XML authoring components, and an extensible plug-in based API.") tools, XML authoring components, and an extensible plug-in based API.")
(license license:lgpl2.1+))) (license license:lgpl2.1+)))
(define-public mlt-6
(package
(inherit mlt)
(name "mlt")
(version "6.26.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mltframework/mlt")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1gz79xvs5jrzqhwhfk0dqdd3xiavnjp4q957h7nb02rij32byb39"))))
(arguments
`(#:configure-flags
(list (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
(assoc-ref %build-inputs "gtk+")
"/lib/gtk-2.0/include")
(string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
(assoc-ref %build-inputs "glib")
"/lib/glib-2.0/include"))
,@(package-arguments mlt)))
(inputs
`(("gtk+", gtk+-2)
,@(alist-delete "gtk+" (package-inputs mlt))))))
(define-public v4l-utils (define-public v4l-utils
(package (package
(name "v4l-utils") (name "v4l-utils")