From: "Gábor Boskovits" <boskovits@gmail.com>
To: 30771@debbugs.gnu.org
Cc: "Mark Meyer" <mark@ofosos.org>, "Gábor Boskovits" <boskovits@gmail.com>
Subject: [bug#30771] [PATCH] gnu: Add kdenlive.
Date: Sat, 22 Sep 2018 22:08:35 +0200 [thread overview]
Message-ID: <20180922200835.3554-1-boskovits@gmail.com> (raw)
In-Reply-To: <1520802749.79146.1299312200.57E1AD5C@webmail.messagingengine.com>
From: Mark Meyer <mark@ofosos.org>
* gnu/packages/kde.scm (kdenlive): New variable.
Co-authored-by: Gábor Boskovits <boskovits@gmail.com>
Signed-off-by: Gábor Boskovits <boskovits@gmail.com>
---
gnu/packages/kde.scm | 82 +++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 81 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm
index aa5be6b51..196b8de0d 100644
--- a/gnu/packages/kde.scm
+++ b/gnu/packages/kde.scm
@@ -1,8 +1,9 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Thomas Danckaert <post@thomasdanckaert.be>
-;;; Copyright © 2017 Mark Meyer <mark@ofosos.org>
+;;; Copyright © 2017, 2018 Mark Meyer <mark@ofosos.org>
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -22,6 +23,7 @@
(define-module (gnu packages kde)
#:use-module (guix build-system cmake)
#:use-module (guix download)
+ #:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
@@ -47,8 +49,86 @@
#:use-module (gnu packages tls)
#:use-module (gnu packages qt)
#:use-module (gnu packages version-control)
+ #:use-module (gnu packages video)
#:use-module (gnu packages xorg))
+(define-public kdenlive
+ (let ((version "18.08.1"))
+ (package
+ (name "kdenlive")
+ (version version)
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "git://anongit.kde.org/kdenlive.git")
+ (commit (string-append "v" version))))
+ (file-name (string-append name "-" version "-checkout"))
+ (sha256
+ (base32
+ "0ifnaclsz7w08mc485i3j1kkcpd1m8q5qamckrfwc375ac13xf4g"))))
+ (build-system cmake-build-system)
+ (native-inputs
+ `(("extra-cmake-modules" ,extra-cmake-modules)
+ ("qttools" ,qttools)))
+ (propagated-inputs
+ `(("mlt" ,mlt)))
+ (inputs
+ `(("shared-mime-info" ,shared-mime-info)
+ ("frei0r-plugins" ,frei0r-plugins)
+ ("qtbase" ,qtbase)
+ ("qtscript" ,qtscript)
+ ("qtsvg" ,qtsvg)
+ ("kparts" ,kparts)
+ ("knotifications" ,knotifications)
+ ("karchive" ,karchive)
+ ("kdbusaddons" ,kdbusaddons)
+ ("kcrash" ,kcrash)
+ ("kguiaddons" ,kguiaddons)
+ ("knewstuff" ,knewstuff)
+ ("knotifyconfig" ,knotifyconfig)
+ ("kfilemetadata" ,kfilemetadata)
+ ("kdoctools" ,kdoctools)
+ ("kdeclarative", kdeclarative)
+ ("qtdeclarative", qtdeclarative)
+ ("qtquickcontrols", qtquickcontrols)
+ ("kiconthemes", kiconthemes)
+ ("qtgraphicaleffects" ,qtgraphicaleffects)
+ ("kplotting", kplotting)))
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-after 'install 'wrap-executable
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (qtquickcontrols (assoc-ref inputs "qtquickcontrols"))
+ (qtbase (assoc-ref inputs "qtbase"))
+ (qtdeclarative (assoc-ref inputs "qtdeclarative"))
+ (frei0r (assoc-ref inputs "frei0r-plugins"))
+ (qml "/lib/qt5/qml"))
+ (wrap-program (string-append out "/bin/kdenlive")
+ `("QT_PLUGIN_PATH" ":" prefix
+ ,(map (lambda (label)
+ (string-append (assoc-ref inputs label)
+ "/lib/qt5/plugins/"))
+ '("qtbase", "qtsvg")))
+ `("FREI0R_PATH" ":" =
+ (,(string-append frei0r "/lib/frei0r-1/")))
+ `("QT_QPA_PLATFORM_PLUGIN_PATH" ":" =
+ (,(string-append qtbase "/lib/qt5/plugins/platforms")))
+ `("QML2_IMPORT_PATH" ":" prefix
+ (,(string-append qtquickcontrols qml)
+ ,(string-append qtdeclarative qml))))))))))
+ (home-page "https://kdenlive.org")
+ (synopsis "Non-linear video editor")
+ (description "Kdenlive is an acronym for KDE Non-Linear Video Editor.
+
+Non-linear video editing is much more powerful than beginner's (linear)
+editors, hence it requires a bit more organization before starting. However,
+it is not reserved to specialists and can be used for small personal
+projects.")
+ (license license:gpl2+))))
+
(define-public kdevelop
(package
(name "kdevelop")
--
2.18.0
next prev parent reply other threads:[~2018-09-23 0:47 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-03-11 21:12 [bug#30771] Add kdenlive Mark Meyer
2018-03-11 21:17 ` [bug#30771] Quick update for lint Mark Meyer
2018-03-11 21:25 ` [bug#30771] Change formatting Mark Meyer
2018-09-22 20:08 ` Gábor Boskovits [this message]
2018-09-29 21:52 ` [bug#30771] [PATCH] gnu: Add kdenlive Ludovic Courtès
2018-10-01 9:20 ` [bug#30771] " Nils Gillmann
2019-02-13 0:04 ` bug#30771: " Leo Famulari
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20180922200835.3554-1-boskovits@gmail.com \
--to=boskovits@gmail.com \
--cc=30771@debbugs.gnu.org \
--cc=mark@ofosos.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.