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
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 José Miguel Sánchez García <jmi2k@openmailbox.org>
;;; Copyright © 2016 Carlo Zancanaro <carlo@zancanaro.id.au>
;;;
;;; 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 text-editors)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages)
#:use-module (gnu packages lua)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages terminals)
#:use-module (gnu packages gcc)
#:use-module (gnu packages bash)
#:use-module (gnu packages documentation)
#:use-module (gnu packages boost)
#:use-module (gnu packages ruby)
#:use-module (gnu packages xml))
(define-public vis
(package
(name "vis")
(version "0.2")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/martanne/"
name "/archive/v" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0bbmkblpndc53pvr8xcfywdn8g351yxfj8c46zp5d744c3bq2nry"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags '("CFLAGS=-pie")
#:tests? #f ; No tests.
#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-binary
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lpeg (assoc-ref inputs "lua-lpeg"))
(lua-version ,(version-major+minor (package-version lua)))
(LUA_PATH (string-append lpeg "/share/lua/"
lua-version "/?.lua"))
(LUA_CPATH (string-append lpeg "/lib/lua/"
lua-version "/?.so")))
(wrap-program (string-append out "/bin/vis")
`("LUA_PATH" ":" prefix (,LUA_PATH))
`("LUA_CPATH" ":" prefix (,LUA_CPATH)))
#t))))))
(native-search-paths
(list (search-path-specification
(variable "VIS_PATH")
(files '("share/vis")))))
(inputs `(("lua", lua)
("ncurses", ncurses)
("libtermkey", libtermkey)
("lua-lpeg", lua-lpeg)))
(synopsis "Vim-like text editor")
(description
"Vis aims to be a modern, legacy free, simple yet efficient vim-like text
editor. It extends vim's modal editing with built-in support for multiple
cursors/selections and combines it with sam's structural regular expression
based command language.")
(home-page "https://github.com/martanne/vis")
(license (list license:isc ; Main distribution.
license:public-domain ; map.[ch]
license:expat)))) ; lexers and libutf.[ch]
(define-public kakoune
(let ((commit "4f986776423f5cd5fd80a16735f873ae23c10da2"))
(package
(name "kakoune")
(version (string-append "0.0.1-" (string-take commit 7)))
(source
(origin
(file-name (string-append "kakoune-" version))
(method git-fetch)
(uri (git-reference
(url "https://github.com/mawww/kakoune.git")
(commit commit)))
(sha256
(base32
"1nwkz18f73xcygayj42ijd70afzvwpasnqj84x4pdxgf4s349ipy"))
(patches
(search-patches
"kakoune-fix-bash-path.patch"
"kakoune-leave-manpages-uncompressed.patch"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'patch-bash-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/shell_manager.cc"
(("__BASH_PATH__")
(assoc-ref inputs "bash")))))
;; Kakoune doesn't have a configure script, but it still
;; requires us to do some setup/configuration.
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
;; Make has to be run in the src/ directory, so let's
;; move there now.
(chdir "src")
;; Boost is compiled with the older ABI, so we can't use
;; the new ABI if we want to link againt it.
(setenv "CPPFLAGS" "-D_GLIBCXX_USE_CXX11_ABI=0")
(setenv "PREFIX" (assoc-ref outputs "out"))))
(add-before 'check 'fix-test-permissions
(lambda* _
;; The tests fail if they can't write over files in the
;; test directory, so make sure we can write everywhere
;; we might possibly need to.
(system* "chmod" "-R" "u+w" "../test"))))))
(native-inputs `(("gcc" ,gcc-5)
("libxslt" ,libxslt)
("asciidoc" ,asciidoc)
("ruby" ,ruby)))
(inputs `(("gcc:lib" ,gcc-5 "lib")
("bash" ,bash)
("ncurses" ,ncurses)
("boost" ,boost)))
(synopsis "Vim-inspired code editor")
(description
"Kakoune is a code editor heavily inspired by Vim, as such most of its
commands are similar to Vi's ones, and it shares Vi's \"keystrokes as a text
editing language\" model. Kakoune has a strong focus on interactivity, most
commands provide immediate and incremental results, while still being
competitive (as in keystroke count) with Vim.")
(home-page "http://kakoune.org/")
(license license:unlicense))))
|