libre: my/emacs: Update to 25.1-rc2.
[software/guix-rekado.git] / libre / custom / packages / variants.scm
1 ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
2 ;;;
3 ;;; This file is not part of GNU Guix but is distributed under the same
4 ;;; license as GNU Guix.
5 ;;;
6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
7 ;;; under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 3 of the License, or (at
9 ;;; your option) any later version.
10 ;;;
11 ;;; GNU Guix is distributed in the hope that it will be useful, but
12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;; GNU General Public License for more details.
15 ;;;
16 ;;; You should have received a copy of the GNU General Public License
17 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
18
19 (define-module (custom packages variants)
20 #:use-module (guix utils)
21 #:use-module (guix packages)
22 #:use-module (guix download)
23 #:use-module (guix git-download)
24 #:use-module ((guix licenses) #:prefix license:)
25 #:use-module (guix build-system gnu)
26 #:use-module (gnu packages)
27 #:use-module (gnu packages autotools)
28 #:use-module (gnu packages emacs)
29 #:use-module (gnu packages gtk)
30 #:use-module (gnu packages guile)
31 #:use-module (gnu packages libusb)
32 #:use-module (gnu packages texinfo)
33 #:use-module (gnu packages xorg)
34 #:use-module (gnu packages webkit))
35
36 (define-public my/haunt
37 (let ((commit "5b09c3c3feaf00a39f2faee2a4f8f833e07df919")
38 (revision "20160116"))
39 (package
40 (inherit haunt)
41 (name "haunt")
42 (version (string-append "0.2-" revision "." commit))
43 (source (origin
44 (method git-fetch)
45 (uri (git-reference
46 (url "git://dthompson.us/haunt.git")
47 (commit commit)))
48 (file-name (string-append name "-" version "-checkout"))
49 (sha256
50 (base32
51 "1vhrwa8r2gb0jck7d6bj7bx3dazpapw2399q0sh8g8i7hs06kcyx"))))
52 (arguments
53 `(#:phases
54 (modify-phases %standard-phases
55 (add-after 'unpack 'autogen
56 (lambda _
57 (zero? (system* "bash" "bootstrap")))))))
58 (propagated-inputs
59 `(("guile-reader" ,guile-reader)
60 ,@(package-propagated-inputs haunt)))
61 (native-inputs
62 `(("automake" ,automake)
63 ("autoconf" ,autoconf)
64 ("texinfo" ,texinfo))))))
65
66 (define-public my/emacs
67 (package
68 (inherit emacs)
69 (version "25.1-rc2")
70 (source (origin
71 (method url-fetch)
72 (uri (string-append "ftp://alpha.gnu.org/gnu/emacs/pretest/emacs-"
73 version ".tar.xz"))
74 (sha256
75 (base32
76 "1hffvyvl50mrivdv6lp92sbxi3l2zhblj8npmpbzk47zpl1mzm2v"))
77 (patches (search-patches "emacs-exec-path.patch"
78 "emacs-source-date-epoch.patch"))))
79 (arguments (append '(#:configure-flags '("--with-xwidgets=yes"
80 ;;"--with-cairo=yes"
81 ))
82 (package-arguments emacs)))
83 (inputs
84 `(;;("cairo" ,cairo)
85 ("webkitgtk+" ,webkitgtk-2.4)
86 ("libxcomposite" ,libxcomposite)
87 ,@(package-inputs emacs)))))