1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;;
;;; This file is part of 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 (gnu packages zile)
#:use-module (guix licenses)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bash)
#:use-module (gnu packages bdw-gc)
#:use-module (gnu packages guile)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages m4)
#:use-module (gnu packages man)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages version-control))
(define-public zile
(package
(name "zile")
(version "2.4.15")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/zile/zile-"
version ".tar.gz"))
(sha256
(base32
"0ph3wd0cz3ysdyka6ds2w5l5b89mb5l79kwkfyk7phvq9yih1hrr"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'patch-/bin/sh
(lambda* (#:key inputs #:allow-other-keys)
(let ((bash (assoc-ref inputs "bash")))
;; Refer to the actual shell.
(substitute* '("lib/spawni.c" "src/funcs.c")
(("/bin/sh")
(string-append bash "/bin/sh")))
#t)))
;; Zile generates its manual pages by calling the built Zile
;; with the --help argument. That does not work when cross-
;; compiling; use the native Zile added below in that case.
,@(if (%current-target-system)
'((add-before 'build 'use-native-zile-for-documentation
(lambda _
(substitute* "build-aux/zile-help2man-wrapper"
(("src/zile")
(which "zile")))
#t)))
'()))))
(inputs
`(("boehm-gc" ,libgc)
("ncurses" ,ncurses)
("bash" ,bash)))
(native-inputs
`(("perl" ,perl)
("help2man" ,help2man)
;; When cross-compiling, Zile needs a native version of itself to
;; generate the manual pages (see the related phase above).
,@(if (%current-target-system)
`(("self" ,this-package))
'())
("pkg-config" ,pkg-config)))
(home-page "https://www.gnu.org/software/zile/")
(synopsis "Lightweight Emacs clone")
(description
"GNU Zile is a lightweight Emacs clone. It usage is similar to the
default Emacs configuration, but it carries a much lighter feature set.")
(license gpl3+)))
(define-public zile-on-guile
;; This is a fork of Zile that uses Guile, announced here:
;; <http://lists.gnu.org/archive/html/guile-user/2012-02/msg00033.html>.
(let ((commit "fd097811a60e58696d734c35b0eb7da3afc1adb7")
(revision "0"))
(package
(inherit zile)
(name "zile-on-guile")
(version (string-append (package-version zile)
"-" revision "."
(string-take commit 7)))
(home-page "https://github.com/spk121/zile")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit commit)
(recursive? #t))) ;for the Gnulib sub-module
(sha256
(base32
"0wlli8hqal9ikmbl3a49kyhzyf164jk6mdbir3bclq2gxszs532d"))
(file-name (string-append name "-" version "-checkout"))))
(inputs
`(("guile" ,guile-2.0)
,@(package-inputs zile)))
(native-inputs
`(("m4" ,m4) ;for 'bootstrap'
("autoconf" ,autoconf-wrapper)
("automake" ,automake)
;; For some reason, 'bootstrap' insists on having these.
("git" ,git)
("gpg" ,gnupg)
,@(package-native-inputs zile)))
(arguments
(substitute-keyword-arguments (package-arguments zile)
((#:phases phases)
`(modify-phases ,phases
(replace 'bootstrap
(lambda _
;; Make sure all the files are writable so that ./bootstrap
;; can proceed.
(for-each (lambda (file)
(chmod file #o755))
(find-files "."))
(patch-shebang "gnulib/gnulib-tool")
(invoke "sh" "./bootstrap"
"--gnulib-srcdir=gnulib"
"--skip-git" "--skip-po"
"--verbose")))
(add-after 'install 'wrap-command
(lambda* (#:key outputs #:allow-other-keys)
;; Add zile.scm to the search path.
(let* ((out (assoc-ref outputs "out"))
(scheme (dirname
(car (find-files out "^zile\\.scm$")))))
(wrap-program (string-append out "/bin/zile-on-guile")
`("GUILE_LOAD_PATH" ":" prefix (,scheme)))
#t)))))))
(synopsis "Lightweight clone of the Emacs editor using Guile")
(description
"GNU Zile is a lightweight clone of the Emacs editor, and Zile-on-Guile
is a variant of Zile that can be extended in Guile Scheme. Hitting
@kbd{M-C} (or: @kbd{Alt} and @kbd{C}) brings up a Guile REPL from which
interactive functions akin to those of Emacs can be invoked."))))
|