From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Thompson Subject: [PATCH] gnu: Add byzanz. Date: Sat, 27 Feb 2016 10:02:57 -0500 Message-ID: <8760xatcv2.fsf@izanagi.i-did-not-set--mail-host-address--so-tickle-me> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:49566) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aZgOd-0007Cs-49 for guix-devel@gnu.org; Sat, 27 Feb 2016 10:03:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aZgOZ-0006RC-Tx for guix-devel@gnu.org; Sat, 27 Feb 2016 10:03:03 -0500 Received: from mail-qg0-x235.google.com ([2607:f8b0:400d:c04::235]:35409) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aZgOZ-0006R8-N4 for guix-devel@gnu.org; Sat, 27 Feb 2016 10:02:59 -0500 Received: by mail-qg0-x235.google.com with SMTP id y89so86398873qge.2 for ; Sat, 27 Feb 2016 07:02:59 -0800 (PST) Received: from izanagi (209-6-40-86.c3-0.smr-ubr1.sbo-smr.ma.cable.rcn.com. [209.6.40.86]) by smtp.gmail.com with ESMTPSA id c135sm7453224qka.23.2016.02.27.07.02.58 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 27 Feb 2016 07:02:58 -0800 (PST) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org --=-=-= Content-Type: text/plain Here's a package for a convenient little program to capture desktop recordings as animated GIFs. It hasn't seen a stable release in 5 years so we use what's in the Git repo instead. --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-gnu-Add-byzanz.patch >From 2192e78f9b46901c581a4288d5dc28fa820871ed Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 27 Feb 2016 09:58:50 -0500 Subject: [PATCH] gnu: Add byzanz. * gnu/packages/gnome.scm (byzanz): New variable. --- gnu/packages/gnome.scm | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 578b431..2006fb6 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -34,6 +34,7 @@ #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix git-download) #:use-module (guix utils) #:use-module (guix build-system gnu) #:use-module (guix build-system glib-or-gtk) @@ -4811,3 +4812,56 @@ software that do not provide their own configuration interface.") "GNOME is an intutive and attractive desktop environment. It aims to be an easy and elegant way to use your computer.") (license license:gpl2+))) + +(define-public byzanz + ;; The last stable release of Byzanz was in 2011, but there have been many + ;; useful commits made to the Byzanz repository since then that it would be + ;; silly to use such an old release. + (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af")) + (package + (name "byzanz") + (version (string-append "0.2-1." (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "git://git.gnome.org/byzanz") + (commit commit))) + (sha256 + (base32 + "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3")))) + (build-system glib-or-gtk-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'bootstrap + (lambda _ + ;; The build system cleverly detects that we're not building from + ;; a release tarball and turns on -Werror for GCC. + ;; Unsurprisingly, there is a warning during compilation that + ;; causes the build to fail unnecessarily, so we remove the flag. + (substitute* '("configure.ac") + (("-Werror") "")) + ;; The autogen.sh script in gnome-common will run ./configure + ;; by default, which is problematic because source shebangs + ;; have not yet been patched. + (setenv "NOCONFIGURE" "t") + (zero? (system* "sh" "autogen.sh"))))))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("gnome-common" ,gnome-common) + ("intltool" ,intltool) + ("libtool" ,libtool) + ("pkg-config" ,pkg-config) + ("which" ,which))) + (inputs + `(("glib" ,glib) + ("gstreamer" ,gstreamer) + ("gst-plugins-base" ,gst-plugins-base) + ("gtk+" ,gtk+))) + (synopsis "Desktop recording program") + (description "Byzanz is a simple desktop recording program with a +command-line interface. It can record part or all of an X display for a +specified duration and save it as a GIF encoded animated image file.") + (home-page "https://git.gnome.org/browse/byzanz") + (license license:gpl2+)))) -- 2.6.3 --=-=-= Content-Type: text/plain -- David Thompson GPG Key: 0FF1D807 --=-=-=--