2fc2e6f8447a5e8f2197fecb2db86c31275d7a33
[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 (arguments (append '(#:configure-flags '("--with-xwidgets=yes"
70 "--with-cairo=yes"))
71 (package-arguments emacs)))
72 (inputs
73 `(("cairo" ,cairo)
74 ("webkitgtk+" ,webkitgtk)
75 ("libxcomposite" ,libxcomposite)
76 ,@(package-inputs emacs)))))