Initial commit.

1 files changed, 87 insertions, 0 deletions

diff --git a/libre/custom/packages/variants.scm b/libre/custom/packages/variants.scm
new file mode 100644
index 0000000..7865c58
--- /dev/null
+++ b/libre/custom/packages/variants.scm
@@ -0,0 +1,87 @@
+;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
+;;;
+;;; This file is not part of GNU Guix but is distributed under the same
+;;; license as GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (custom packages variants)
+  #:use-module (guix utils)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages emacs)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages guile)
+  #:use-module (gnu packages libusb)
+  #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages webkit))
+
+(define-public my/haunt
+  (let ((commit "5b09c3c3feaf00a39f2faee2a4f8f833e07df919")
+        (revision "20160116"))
+    (package
+      (inherit haunt)
+      (name "haunt")
+      (version (string-append "0.2-" revision "." commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "git://dthompson.us/haunt.git")
+                      (commit commit)))
+                (file-name (string-append name "-" version "-checkout"))
+                (sha256
+                 (base32
+                  "1vhrwa8r2gb0jck7d6bj7bx3dazpapw2399q0sh8g8i7hs06kcyx"))))
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'autogen
+             (lambda _
+               (zero? (system* "bash" "bootstrap")))))))
+      (propagated-inputs
+       `(("guile-reader" ,guile-reader)
+         ,@(package-propagated-inputs haunt)))
+      (native-inputs
+       `(("automake" ,automake)
+         ("autoconf" ,autoconf)
+         ("texinfo" ,texinfo))))))
+
+(define-public my/emacs
+  (package
+    (inherit emacs)
+    (version "25.1-rc1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "ftp://alpha.gnu.org/gnu/emacs/pretest/emacs-"
+                                  version ".tar.xz"))
+              (sha256
+               (base32
+"0cv1hars9zxlv040h7f3zz50fhn67dqa18ms4hg9sdblckk50360"))
+              (patches (search-patches "emacs-exec-path.patch"
+                                       "emacs-source-date-epoch.patch"))))
+    (arguments (append '(#:configure-flags '("--with-xwidgets=yes"
+                                             ;;"--with-cairo=yes"
+))
+                       (package-arguments emacs)))
+    (inputs
+     `(;;("cairo" ,cairo)
+       ("webkitgtk+" ,webkitgtk-2.4)
+       ("libxcomposite" ,libxcomposite)
+       ,@(package-inputs emacs)))))