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