libre: Add st-solarized.
[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 gnome)
30 #:use-module (gnu packages gtk)
31 #:use-module (gnu packages guile)
32 #:use-module (gnu packages libusb)
33 #:use-module (gnu packages texinfo)
34 #:use-module (gnu packages xorg)
35 #:use-module (gnu packages webkit))
36
37 (define-public my/haunt
38 (let ((commit "5b09c3c3feaf00a39f2faee2a4f8f833e07df919")
39 (revision "20160116"))
40 (package
41 (inherit haunt)
42 (name "haunt")
43 (version (string-append "0.2-" revision "." commit))
44 (source (origin
45 (method git-fetch)
46 (uri (git-reference
47 (url "git://dthompson.us/haunt.git")
48 (commit commit)))
49 (file-name (string-append name "-" version "-checkout"))
50 (sha256
51 (base32
52 "1vhrwa8r2gb0jck7d6bj7bx3dazpapw2399q0sh8g8i7hs06kcyx"))))
53 (arguments
54 `(#:phases
55 (modify-phases %standard-phases
56 (add-after 'unpack 'autogen
57 (lambda _
58 (zero? (system* "bash" "bootstrap")))))))
59 (propagated-inputs
60 `(("guile-reader" ,guile-reader)
61 ,@(package-propagated-inputs haunt)))
62 (native-inputs
63 `(("automake" ,automake)
64 ("autoconf" ,autoconf)
65 ("texinfo" ,texinfo))))))
66
67 (define-public my/emacs
68 (let ((commit "5edf76ba15fb012e9cb3112ee4a2c9ef4b02f20e")
69 (revision "1"))
70 (package (inherit emacs)
71 (name "emacs")
72 (version (string-append "25.1-" revision "." (string-take commit 9)))
73 (source (origin
74 (method git-fetch)
75 (uri (git-reference
76 (url "git://git.sv.gnu.org/emacs.git")
77 (commit commit)))
78 (file-name (string-append name "-" version "-checkout"))
79 (sha256
80 (base32
81 "04vw0q21kwbwrhycj0vbfrhxyb2nycnnqlch4nhl03v473fsxri4"))))
82 (arguments
83 (substitute-keyword-arguments
84 (append '(#:tests? #f ; tests fail in this development version
85 #:configure-flags '("--with-xwidgets=yes"))
86 (package-arguments emacs))
87 ((#:phases phases)
88 `(modify-phases ,phases
89 (add-after 'unpack 'autogen
90 (lambda _
91 (zero? (system* "autoreconf" "-vif"))))))))
92 (inputs
93 `(("libxcomposite" ,libxcomposite)
94 ("webkitgtk+" ,webkitgtk)
95 ;; These two are needed to get HTTPS support in Webkit.
96 ("glib-networking" ,glib-networking)
97 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
98 ,@(package-inputs emacs)))
99 (native-inputs
100 `(("autoconf" ,autoconf)
101 ("automake" ,automake)
102 ,@(package-native-inputs emacs))))))