1263 lines
51 KiB
Scheme
1263 lines
51 KiB
Scheme
;;; 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>
|
||
;;; Copyright © 2017, 2018, 2020, 2022 Eric Bavier <bavier@posteo.net>
|
||
;;; Copyright © 2017 Feng Shu <tumashu@163.com>
|
||
;;; Copyright © 2017 Nikita <nikita@n0.is>
|
||
;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org>
|
||
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2019, 2022 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2019 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2019, 2020, 2021, 2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
|
||
;;; Copyright © 2020-2022 Marius Bakke <marius@gnu.org>
|
||
;;; Copyright © 2020 Tom Zander <tomz@freedommail.ch>
|
||
;;; Copyright © 2020 Mark Meyer <mark@ofosos.org>
|
||
;;; Copyright © 2020 Maxime Devos <maximedevos@telenet.be>
|
||
;;; Copyright © 2021 aecepoglu <aecepoglu@fastmail.fm>
|
||
;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
|
||
;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com>
|
||
;;; Copyright © 2021 Calum Irwin <calumirwin1@gmail.com>
|
||
;;; Copyright © 2022 Luis Henrique Gomes Higino <luishenriquegh2701@gmail.com>
|
||
;;; Copyright © 2022 Foo Chuan Wei <chuanwei.foo@hotmail.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 text-editors)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix gexp)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix build-system cargo)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system glib-or-gtk)
|
||
#:use-module (guix build-system python)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages aspell)
|
||
#:use-module (gnu packages assembly)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages boost)
|
||
#:use-module (gnu packages code)
|
||
#:use-module (gnu packages cpp)
|
||
#:use-module (gnu packages crates-io)
|
||
#:use-module (gnu packages datastructures)
|
||
#:use-module (gnu packages documentation)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages gettext)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages guile)
|
||
#:use-module (gnu packages haskell-xyz)
|
||
#:use-module (gnu packages icu4c)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages libbsd)
|
||
#:use-module (gnu packages libreoffice)
|
||
#:use-module (gnu packages llvm)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages ncurses)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages python-web)
|
||
#:use-module (gnu packages python-xyz)
|
||
#:use-module (gnu packages qt)
|
||
#:use-module (gnu packages regex)
|
||
#:use-module (gnu packages ruby)
|
||
#:use-module (gnu packages sqlite)
|
||
#:use-module (gnu packages terminals)
|
||
#:use-module (gnu packages texinfo)
|
||
#:use-module (gnu packages version-control)
|
||
#:use-module (gnu packages xml)
|
||
#:use-module (gnu packages xorg))
|
||
|
||
(define-public vis
|
||
(package
|
||
(name "vis")
|
||
(version "0.7") ; also update the vis-test input
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://git.sr.ht/~martanne/vis")
|
||
(commit (string-append "v" version))))
|
||
(sha256
|
||
(base32 "1g05ncsnk57kcqm9wsv6sz8b24kyzj8r5rfpa1wfwj8qkjzx3vji"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:test-target "test"
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'unpack-test-suite
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((vis-test (assoc-ref inputs "vis-test")))
|
||
(copy-recursively vis-test "test")
|
||
#t)))
|
||
(delete 'check) ; the tests need a wrapped vis
|
||
(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)))
|
||
(add-after 'wrap-binary 'check
|
||
(assoc-ref %standard-phases 'check))
|
||
(add-before 'check 'set-up-tests
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
;; DEFAULT_COMPILER is hard-coded here.
|
||
(substitute* "test/core/ccan-config.c"
|
||
(("\"cc\"")
|
||
(format #f "\"~a\"" ,(cc-for-target))))
|
||
|
||
;; Use the ‘vis’ executable that we wrapped above.
|
||
(install-file (string-append out "/bin/vis") ".")
|
||
|
||
;; XXX Delete 2 failing tests. TODO: make them not fail. :-)
|
||
(for-each delete-file
|
||
(find-files "test/vis/selections" "^complement"))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("vis-test"
|
||
,(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://git.sr.ht/~martanne/vis-test")
|
||
(commit "bbd2f34ff788e87a51a74069069273ad83c44f1f")))
|
||
(sha256
|
||
(base32 "1jsvg2lg3xqfgi79x08kx94mc34mh62ivca10vsci6fqsk68jbd0"))
|
||
(file-name (git-file-name "vis-test" version))))))
|
||
(inputs (list lua ncurses libtermkey lua-lpeg tre))
|
||
(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
|
||
(package
|
||
(name "kakoune")
|
||
(version "2021.11.08")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/mawww/kakoune/"
|
||
"releases/download/v" version "/"
|
||
"kakoune-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "1x5mvmpf0rgmr2xdw5wjn4hr6qd8yvj0zx588fi324x1knfqhc5a"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags
|
||
(list (string-append "PREFIX=" (assoc-ref %outputs "out")))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-source
|
||
(lambda _
|
||
;; kakoune uses confstr with _CS_PATH to find out where to find
|
||
;; a posix shell, but this doesn't work in the build
|
||
;; environment. This substitution just replaces that result
|
||
;; with the "sh" path.
|
||
(substitute* "src/shell_manager.cc"
|
||
(("if \\(m_shell.empty\\(\\)\\)" line)
|
||
(string-append "m_shell = \"" (which "sh")
|
||
"\";\n " line)))))
|
||
(delete 'configure)))) ; no configure script
|
||
(native-inputs (list pkg-config))
|
||
(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 "https://kakoune.org/")
|
||
(license license:unlicense)))
|
||
|
||
(define-public kak-lsp
|
||
(package
|
||
(name "kak-lsp")
|
||
(version "9.0.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/kak-lsp/kak-lsp")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256 "1wfv2fy5ga6kc51zka3pak0hq97csm2l11bz74w3n1hrf5q9nnf8")))
|
||
(build-system cargo-build-system)
|
||
(arguments
|
||
`(#:cargo-inputs
|
||
(("rust-crossbeam-channel" ,rust-crossbeam-channel-0.4)
|
||
("rust-clap" ,rust-clap-2)
|
||
("rust-daemonize" ,rust-daemonize-0.4)
|
||
("rust-dirs" ,rust-dirs-2)
|
||
("rust-enum_primitive" ,rust-enum-primitive-0.1)
|
||
("rust-glob" ,rust-glob-0.3)
|
||
("rust-itertools" ,rust-itertools-0.9)
|
||
("rust-lsp-types" ,rust-lsp-types-0.80)
|
||
("rust-jsonrpc-core" ,rust-jsonrpc-core-14)
|
||
("rust-libc" ,rust-libc-0.2)
|
||
("rust-rand" ,rust-rand-0.7)
|
||
("rust-regex" ,rust-regex-1)
|
||
("rust-ropey" ,rust-ropey-1)
|
||
("rust-serde" ,rust-serde-1)
|
||
("rust-serde_derive" ,rust-serde-derive-1)
|
||
("rust-serde_json" ,rust-serde-json-1)
|
||
("rust-slog" ,rust-slog-2)
|
||
("rust-slog-scope" ,rust-slog-scope-4)
|
||
("rust-sloggers" ,rust-sloggers-1)
|
||
("rust-toml" ,rust-toml-0.5)
|
||
("rust-url" ,rust-url-2)
|
||
("rust-whoami" ,rust-whoami-0.8))))
|
||
(home-page "https://github.com/kak-lsp/kak-lsp")
|
||
(synopsis "Language Server Protocol (LSP) client for Kakoune")
|
||
(description
|
||
"kak-lsp is a Language Server Protocol client for Kakoune implemented in
|
||
Rust.")
|
||
(license license:unlicense)))
|
||
|
||
(define-public parinfer-rust
|
||
(package
|
||
(name "parinfer-rust")
|
||
(version "0.4.3")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/eraserhd/parinfer-rust")
|
||
(commit (string-append "v" version))))
|
||
(sha256
|
||
(base32 "0hj5in5h7pj72m4ag80ing513fh65q8xlsf341qzm3vmxm3y3jgd"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system cargo-build-system)
|
||
(arguments
|
||
`(#:cargo-inputs
|
||
(("rust-getopts" ,rust-getopts-0.2)
|
||
("rust-libc" ,rust-libc-0.2)
|
||
("rust-emacs" ,rust-emacs-0.11)
|
||
("rust-serde" ,rust-serde-1)
|
||
("rust-serde-json" ,rust-serde-json-1)
|
||
("rust-serde-derive" ,rust-serde-derive-1)
|
||
("rust-unicode-segmentation" ,rust-unicode-segmentation-1)
|
||
("rust-unicode-width" ,rust-unicode-width-0.1))))
|
||
(inputs
|
||
(list clang))
|
||
(home-page "https://github.com/justinbarclay/parinfer-rust")
|
||
(synopsis "Infer parentheses for Clojure, Lisp and Scheme")
|
||
(description
|
||
"Parinfer is a plugin for Kakoune, Vim, Neovim and Emacs that infers
|
||
parentheses and indentation. This library can be called from other editors that
|
||
can load dynamic libraries.")
|
||
(license license:expat)))
|
||
|
||
(define-public joe
|
||
(package
|
||
(name "joe")
|
||
(version "4.6")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://sourceforge.net/projects/joe-editor/"
|
||
"files/JOE sources/joe-" version "/"
|
||
"joe-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1pmr598xxxm9j9dl93kq4dv36zyw0q2dh6d7x07hf134y9hhlnj9"))))
|
||
(build-system gnu-build-system)
|
||
(inputs (list ncurses))
|
||
(home-page "http://joe-editor.sourceforge.net/")
|
||
(synopsis "Console screen editor")
|
||
(description
|
||
"JOE is a powerful console screen editor with a \"mode-less\" user
|
||
interface similar to many user-friendly editors. JOE has some of the key
|
||
bindings and many of the powerful features of GNU Emacs.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public jucipp
|
||
(package
|
||
(name "jucipp")
|
||
(version "1.7.1")
|
||
(home-page "https://gitlab.com/cppit/jucipp")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference (url home-page)
|
||
(commit (string-append "v" version))
|
||
;; Two submodules are required which are
|
||
;; developed alongside JuCi++ and difficult
|
||
;; to package separately.
|
||
(recursive? #t)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0xyf1fa7jvxzvg1dxh5vc50fbwjjsar4fmlvbfhicdd1f8bhz1ii"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; Delete bundled copy of nlohmann/json.
|
||
(delete-file-recursively "lib/json")))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
(list #:configure-flags #~(list "-DBUILD_TESTING=ON")
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-tiny-process-library
|
||
(lambda* (#:key native-inputs inputs #:allow-other-keys)
|
||
(with-directory-excursion "lib/tiny-process-library"
|
||
(substitute* '("process_unix.cpp"
|
||
"tests/io_test.cpp")
|
||
(("/bin/sh") (search-input-file (or native-inputs inputs)
|
||
"bin/sh"))))))
|
||
(add-after 'unpack 'disable-some-tests
|
||
(lambda _
|
||
(substitute* "tests/CMakeLists.txt"
|
||
;; Disable the CMake build test, as it does not test
|
||
;; functionality of the package, and requires doing
|
||
;; an "in-source" build.
|
||
(("add_test\\(cmake_build_test.*\\)")
|
||
"")
|
||
;; Disable the git test, as it requires the full checkout.
|
||
(("add_test\\(git_test.*\\)")
|
||
""))))
|
||
(add-before 'check 'pre-check
|
||
(lambda* (#:key native-inputs inputs #:allow-other-keys)
|
||
;; Tests do not expect HOME to be empty.
|
||
(setenv "HOME" "/etc")
|
||
|
||
;; Most tests require an X server.
|
||
(let ((xvfb (search-input-file (or native-inputs inputs)
|
||
"bin/Xvfb"))
|
||
(display ":1"))
|
||
(setenv "DISPLAY" display)
|
||
(system (string-append xvfb " " display " &")))))
|
||
(add-after 'install 'wrap
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; The package needs GTK+ and GtkSourceView on XDG_DATA_DIRS
|
||
;; for syntax highlighting to work. shared-mime-info is
|
||
;; necessary for MIME handling.
|
||
;; XXX: Ideally we'd reuse glib-or-gtk-wrap here, but it
|
||
;; does not pick up "share/gtksourceview-3.0".
|
||
(wrap-program (string-append #$output "/bin/juci")
|
||
`("XDG_DATA_DIRS" ":" prefix
|
||
(,(string-join
|
||
(cons (string-append #$output "/share")
|
||
(map (lambda (directory)
|
||
(dirname (search-input-directory
|
||
inputs
|
||
(string-append "share/"
|
||
directory))))
|
||
'("gtk-3.0" "gtksourceview-3.0" "mime")))
|
||
":")))))))))
|
||
(native-inputs
|
||
(list pkg-config xorg-server-for-tests))
|
||
(inputs
|
||
(list aspell
|
||
boost
|
||
clang-11 ;XXX: must be the same version as Mesas LLVM
|
||
gtkmm-3
|
||
gtksourceviewmm
|
||
json-modern-cxx
|
||
libgit2
|
||
universal-ctags))
|
||
(synopsis "Lightweight C++ IDE")
|
||
(description
|
||
"juCi++ is a small @acronym{IDE, Integrated Development Environment}
|
||
designed especially towards libclang with speed, stability, and ease of use
|
||
in mind.
|
||
|
||
It supports autocompletion, on-the-fly warnings and errors, syntax
|
||
highlighting, and integrates with Git as well as the CMake and Meson build
|
||
systems.")
|
||
(license license:expat)))
|
||
|
||
(define-public leafpad
|
||
(package
|
||
(name "leafpad")
|
||
(version "0.8.18.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/"
|
||
"leafpad/leafpad-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0b0az2wvqgvam7w0ns1j8xp2llslm1rx6h7zcsy06a7j0yp257cm"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
(list intltool pkg-config))
|
||
(inputs
|
||
(list gtk+-2))
|
||
(home-page "http://tarot.freeshell.org/leafpad/")
|
||
(synopsis "GTK+ based text editor")
|
||
(description "Leafpad is a GTK+ text editor that emphasizes simplicity. As
|
||
development focuses on keeping weight down to a minimum, only the most essential
|
||
features are implemented in the editor. Leafpad is simple to use, is easily
|
||
compiled, requires few libraries, and starts up quickly.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public l3afpad
|
||
(let ((commit "5235c9e13bbf0d31a902c6776918c2d7cdbb61ff")
|
||
(revision "0"))
|
||
(package
|
||
(name "l3afpad")
|
||
(version (git-version "0.8.18.1.11" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(file-name (git-file-name name version))
|
||
(uri (git-reference
|
||
(url "https://github.com/stevenhoneyman/l3afpad")
|
||
(commit commit)))
|
||
(sha256
|
||
(base32
|
||
"1alyghm2wpakzdfag0g4g8gb1h9l4wdg7mnhq8bk0iq5ryqia16a"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
(list intltool autoconf automake pkg-config))
|
||
(inputs
|
||
(list gtk+))
|
||
(home-page "http://tarot.freeshell.org/leafpad/")
|
||
(synopsis "GTK+ 3 based text editor")
|
||
(description "L3afpad is a GTK+ 3 text editor that emphasizes simplicity. As
|
||
development focuses on keeping weight down to a minimum, only the most essential
|
||
features are implemented in the editor. L3afpad is simple to use, is easily
|
||
compiled, requires few libraries, and starts up quickly. L3afpad is a
|
||
fork of Leafpad that uses GTK+ 3 instead of GTK+ 2.")
|
||
(license license:gpl2+))))
|
||
|
||
(define-public e3
|
||
(package
|
||
(name "e3")
|
||
(version "2.82")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://sites.google.com/site/e3editor/Home/"
|
||
"e3-" version ".tgz"))
|
||
(sha256
|
||
(base32
|
||
"0919kadkas020maqq37852isnzp053q2fnws2zh3mz81d1jiviak"))
|
||
(modules '((guix build utils)))
|
||
|
||
;; Remove pre-built binaries.
|
||
(snippet '(begin
|
||
(delete-file-recursively "bin")
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f
|
||
#:make-flags (list (string-append "PREFIX="
|
||
(assoc-ref %outputs "out")))
|
||
#:phases (modify-phases %standard-phases
|
||
(delete 'configure))))
|
||
(native-inputs
|
||
(list nasm))
|
||
(home-page "https://sites.google.com/site/e3editor/")
|
||
(synopsis "Tiny text editor written in assembly")
|
||
(description
|
||
"e3 is a micro text editor with an executable code size between 3800 and
|
||
35000 bytes. Except for ``syntax highlighting'', the e3 binary supports all
|
||
of the basic functions one expects plus built in arithmetic calculations.
|
||
UTF-8 coding of unicode characters is supported as well. e3 can use
|
||
Wordstar-, EMACS-, Pico, Nedit or vi-like key bindings. e3 can be used on
|
||
16, 32, and 64-bit CPUs.")
|
||
(supported-systems '("x86_64-linux" "i686-linux"))
|
||
(license license:gpl2+)))
|
||
|
||
(define-public mg
|
||
(package
|
||
(name "mg")
|
||
(version "20220614")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/hboetes/mg")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"145qk4bzys4igv98645vikswv9hqym46chh6xb9d82ihsvjq1wjk"))
|
||
(modules '((guix build utils)))
|
||
(snippet '(begin
|
||
(substitute* "GNUmakefile"
|
||
(("/usr/bin/") ""))))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs (list pkg-config))
|
||
(inputs (list diffutils libbsd ncurses))
|
||
(arguments
|
||
;; No test suite available.
|
||
(list #:tests? #f
|
||
#:make-flags
|
||
#~(list (string-append "prefix=" #$output)
|
||
(string-append "CC=" #$(cc-for-target))
|
||
(string-append "PKG_CONFIG=" #$(pkg-config-for-target)))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(delete 'configure) ;no configure script
|
||
(add-before 'build 'correct-location-of-diff
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "buffer.c"
|
||
(("/usr/bin/diff")
|
||
(search-input-file inputs "/bin/diff")))))
|
||
(add-before 'install 'patch-tutorial-location
|
||
(lambda _
|
||
(substitute* "mg.1"
|
||
(("/usr") #$output))))
|
||
(add-after 'install 'install-tutorial
|
||
(lambda _
|
||
(let ((doc (string-append #$output "/share/doc/mg")))
|
||
(install-file "tutorial" doc)))))))
|
||
(home-page "https://homepage.boetes.org/software/mg/")
|
||
(synopsis "Microscopic GNU Emacs clone")
|
||
(description
|
||
"Mg (@command{mg}) is a GNU Emacs style editor, with which it is
|
||
\"broadly\" compatible. This is a portable version of the mg maintained by the
|
||
OpenBSD team.")
|
||
(license license:public-domain)))
|
||
|
||
(define-public qemacs
|
||
(package
|
||
(name "qemacs")
|
||
(version "0.3.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://bellard.org/qemacs/"
|
||
"qemacs-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "156z4wpj49i6j388yjird5qvrph7hz0grb4r44l4jf3q8imadyrg"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;no test
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'build 'build-qhtml
|
||
;; Build fails without first creating qHTML library.
|
||
(lambda _ (invoke "make" "-C" "libqhtml")))
|
||
(add-before 'install 'fix-man-pages-directory
|
||
;; Install in $out/share/man instead of $out/man.
|
||
(lambda _
|
||
(substitute* "Makefile"
|
||
(("/man/man1" all) (string-append "/share" all)))
|
||
#t))
|
||
(add-before 'install 'create-directories
|
||
;; Ensure directories exist before installing files.
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(for-each (lambda (d) (mkdir-p (string-append out d)))
|
||
'("/bin" "/share/man/man1" "/share/qe"))
|
||
#t)))
|
||
(add-after 'install 'install-extra-documentation
|
||
;; Install sample configuration file, Info, and HTML manual.
|
||
(lambda* (#:key native-inputs inputs outputs #:allow-other-keys)
|
||
(let* ((share (string-append (assoc-ref outputs "out") "/share"))
|
||
(doc (string-append share "/doc/" ,name "-" ,version))
|
||
(html (string-append share "/html"))
|
||
(info (string-append share "/info"))
|
||
(makeinfo (string-append
|
||
(assoc-ref (or native-inputs inputs) "texinfo")
|
||
"/bin/makeinfo")))
|
||
;; First fix Texinfo documentation, create appropriate
|
||
;; directories, then generate Info and HTML files there.
|
||
(substitute* "qe-doc.texi"
|
||
(("^M-([{}])" _ bracket) (string-append "M-@" bracket)))
|
||
(for-each (lambda (d) (mkdir-p d)) (list html info))
|
||
(invoke makeinfo "qe-doc.texi" "-o" info)
|
||
(invoke makeinfo "qe-doc.texi" "--html" "--no-split" "-o" html)
|
||
;; Install sample configuration file.
|
||
(install-file "config.eg" doc)
|
||
#t))))))
|
||
(native-inputs
|
||
(list texinfo))
|
||
(inputs
|
||
(list libx11 libxext libxv))
|
||
(home-page "https://bellard.org/qemacs/")
|
||
(synopsis "Small but powerful text editor")
|
||
(description "QEmacs (for Quick Emacs) is a very small but
|
||
powerful editor. It has features that even big editors lack:
|
||
|
||
@itemize
|
||
|
||
@item Full screen editor with an Emacs look and feel with all Emacs
|
||
common features: multi-buffer, multi-window, command mode, universal
|
||
argument, keyboard macros, config file with C-like syntax, minibuffer
|
||
with completion and history.
|
||
|
||
@item Can edit files of hundreds of Megabytes without being slow by
|
||
using a highly optimized internal representation and by mmaping the
|
||
file.
|
||
|
||
@item Full Unicode support, including multi charset handling (8859-x,
|
||
UTF8, SJIS, EUC-JP, ...) and bidirectional editing respecting the
|
||
Unicode bidi algorithm. Arabic and Indic scripts handling (in
|
||
progress).
|
||
|
||
@item WYSIWYG HTML/XML/CSS2 mode graphical editing. Also supports
|
||
Lynx like rendering on VT100 terminals.
|
||
|
||
@item WYSIWYG DocBook mode based on XML/CSS2 renderer.
|
||
|
||
@item C mode: coloring with immediate update. Emacs like auto-indent.
|
||
|
||
@item Shell mode: colorized VT100 emulation so that your shell work
|
||
exactly as you expect. Compile mode with next/prev error.
|
||
|
||
@item Input methods for most languages, including Chinese (input
|
||
methods come from the Yudit editor).
|
||
|
||
@item Hexadecimal editing mode with insertion and block commands.
|
||
Unicode hexa editing is also supported.
|
||
|
||
@item Works on any VT100 terminals without termcap. UTF8 VT100
|
||
support included with double width glyphs.
|
||
|
||
@item X11 support. Support multiple proportional fonts at the same
|
||
time (as XEmacs). X Input methods supported. Xft extension supported
|
||
for anti aliased font display.
|
||
|
||
@item Small! Full version (including HTML/XML/CSS2/DocBook rendering
|
||
and all charsets): 200KB big. Basic version (without bidir/unicode
|
||
scripts/input/X11/C/Shell/HTML/Dired): 49KB.
|
||
@end itemize")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public ghostwriter
|
||
(package
|
||
(name "ghostwriter")
|
||
(version "2.1.4")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/wereturtle/ghostwriter")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1w8a6vkhmdbp4kzb7aprvfni9ny47dj0vigbcnsh539dn3sp1gan"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list pkg-config qttools-5)) ; for lrelease
|
||
(inputs
|
||
(list hunspell
|
||
qtbase-5
|
||
qtdeclarative-5
|
||
qtmultimedia-5
|
||
qtquickcontrols-5
|
||
qtsvg-5
|
||
qtwebchannel-5))
|
||
(propagated-inputs ; To get native-search-path
|
||
(list qtwebengine-5))
|
||
(arguments
|
||
(list
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(invoke "qmake" (string-append "PREFIX=" #$output))))
|
||
(add-after 'configure 'create-translations
|
||
(lambda _
|
||
;; `lrelease` will not overwrite, so delete existing .qm files
|
||
(for-each delete-file (find-files "translations" ".*\\.qm"))
|
||
(apply invoke "lrelease" (find-files "translations" ".*\\.ts"))))
|
||
;; Ensure that icons are found at runtime.
|
||
(add-after 'install 'wrap-executable
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(wrap-program (string-append #$output "/bin/ghostwriter")
|
||
`("QT_PLUGIN_PATH" ":" prefix
|
||
#$(map (lambda (label)
|
||
(file-append (this-package-input label)
|
||
"/lib/qt5/plugins"))
|
||
'("qtsvg" "qtmultimedia")))))))))
|
||
(home-page "https://wereturtle.github.io/ghostwriter/")
|
||
(synopsis "Write without distractions")
|
||
(description
|
||
"@code{ghostwriter} provides a relaxing, distraction-free writing
|
||
environment with Markdown markup.")
|
||
(license license:gpl3+))) ; icons/* under CC-BY-SA3
|
||
|
||
(define-public manuskript
|
||
(package
|
||
(name "manuskript")
|
||
(version "0.14.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/olivierkes/manuskript")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0qhr9bkq4yl2qjainpsv7blzcji2q9ic9zcynawmhfqy3rmf8qlr"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
(list
|
||
#:tests? #f ;no test
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(delete 'build)
|
||
(replace 'install
|
||
(lambda _
|
||
(let ((share (string-append #$output "/share/manuskript")))
|
||
;; Install data.
|
||
(mkdir-p share)
|
||
(for-each
|
||
(lambda (d)
|
||
(let ((destination (string-append share "/" d)))
|
||
(mkdir-p destination)
|
||
(copy-recursively d destination)))
|
||
'("bin" "i18n" "icons" "libs" "manuskript" "resources"))
|
||
;; Install documentation.
|
||
(let ((doc (string-append #$output
|
||
"/doc/manuskript-" #$version
|
||
"/sample-projects")))
|
||
(mkdir-p doc)
|
||
(copy-recursively "sample-projects" doc))
|
||
;; Wrap executable in "$out/share/manuskript/bin" and
|
||
;; link to it from "$out/bin".
|
||
(let ((bin (string-append #$output "/bin"))
|
||
(executable (string-append share "/bin/manuskript")))
|
||
(wrap-program executable
|
||
(list "GUIX_PYTHONPATH" 'prefix
|
||
(list (getenv "GUIX_PYTHONPATH"))))
|
||
(mkdir-p bin)
|
||
(with-directory-excursion bin
|
||
(symlink (string-append share "/bin/manuskript")
|
||
"manuskript")))
|
||
;; Install icons and create .desktop file.
|
||
(let ((apps (string-append #$output "/share/applications"))
|
||
(icons-dir (string-append #$output "/share/pixmaps")))
|
||
(install-file "icons/Manuskript/manuskript.svg" icons-dir)
|
||
(mkdir-p apps)
|
||
(make-desktop-entry-file
|
||
(string-append apps "/manuskript.desktop")
|
||
#:name "Manuskript"
|
||
#:mime-type "application/x-manuskript-book;"
|
||
#:exec (string-append #$output "/bin/manuskript %f")
|
||
#:comment '((#f "Tool for writers")
|
||
("es" "Herramienta para escritores/as"))
|
||
#:keywords "manuskript;office;write;edit;novel;text;msk"
|
||
#:terminal #f
|
||
#:type "Application"
|
||
#:icon "manuskript"
|
||
#:categories "Office;WordProcessor;"))))))))
|
||
(inputs
|
||
(list pandoc python-lxml python-markdown python-pyqt qtsvg-5))
|
||
(home-page "http://www.theologeek.ch/manuskript/")
|
||
(synopsis "Tool for writers")
|
||
(description "Manuskript provides a rich environment to help
|
||
writers create their first draft and then further refine and edit
|
||
their masterpiece. With Manuskript you can:
|
||
|
||
@itemize
|
||
@item Grow your premise from one sentence, to a paragraph, to a full
|
||
summary,
|
||
@item Create characters,
|
||
@item Conceive plots,
|
||
@item Construct outlines (Outline mode and/or Index cards),
|
||
@item Write with focus (Distraction free mode),
|
||
@item Build worlds,
|
||
@item Track items,
|
||
@item Edit and re-organize chapters and scenes,
|
||
@item View Story line,
|
||
@item Compose with fiction or non-fiction templates and writing modes,
|
||
@item Import and export document formats such as HTML, ePub,
|
||
OpenDocument, DocX, and more.
|
||
@end itemize
|
||
|
||
Additionally Manuskript can help in many more ways with a spell
|
||
checker, markdown highlighter, frequency analyzer, and automatic save
|
||
in plain text file format.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public editorconfig-core-c
|
||
(package
|
||
(name "editorconfig-core-c")
|
||
(version "0.12.5")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/editorconfig/editorconfig-core-c")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "073sh18y0v8wm10iphaia54pkdmwylalccpn1k5i9dwyfjzgj7yg"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'insert-tests
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((tests (assoc-ref inputs "tests")))
|
||
(copy-recursively tests "tests"))
|
||
#t))
|
||
(add-after 'install 'delete-static-library
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(lib (string-append out "/lib")))
|
||
(with-directory-excursion lib
|
||
(delete-file "libeditorconfig_static.a"))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("tests"
|
||
,(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/editorconfig/editorconfig-core-test")
|
||
;; The tests submodule commit matching this package's version.
|
||
(commit "48610d43b7455af12195473377f93c4ceea654f5")))
|
||
(file-name (git-file-name "editorconfig-core-test" version))
|
||
(sha256
|
||
(base32 "1s29p4brmcsc3xsww3gk85dg45f1kk3iykh1air3ij0hymf5dyqy"))))))
|
||
(inputs
|
||
(list pcre2))
|
||
(home-page "https://editorconfig.org/")
|
||
(synopsis "EditorConfig core library written in C")
|
||
(description "EditorConfig makes it easy to maintain the correct coding
|
||
style when switching between different text editors and between different
|
||
projects. The EditorConfig project maintains a file format and plugins for
|
||
various text editors which allow this file format to be read and used by those
|
||
editors.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public texmacs
|
||
(package
|
||
(name "texmacs")
|
||
(version "2.1.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://www.texmacs.org/Download/ftp/tmftp/"
|
||
"source/TeXmacs-" version "-src.tar.gz"))
|
||
(sha256
|
||
(base32 "0c780vcwppzhb70d3d96md3hra7338d4fv3aj0sm7jx0mj2a334i"))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
(list pkg-config xdg-utils)) ;for xdg-icon-resource
|
||
(inputs
|
||
(list freetype
|
||
guile-1.8
|
||
libjpeg-turbo
|
||
perl
|
||
python-wrapper
|
||
qtbase-5
|
||
qtsvg-5
|
||
sqlite))
|
||
(arguments
|
||
`(#:tests? #f ; no check target
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-icon-directory
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* "packages/linux/icons.sh"
|
||
(("/usr/share")
|
||
(string-append out "/share"))))))
|
||
(add-before 'configure 'gzip-flags
|
||
(lambda _
|
||
(substitute* "Makefile.in"
|
||
(("^GZIP = gzip -f") "GZIP = gzip -f -n")))))))
|
||
(synopsis "Editing platform with special features for scientists")
|
||
(description
|
||
"GNU TeXmacs is a text editing platform which is specialized for
|
||
scientists. It is ideal for editing structured documents with different types
|
||
of content. It has robust support for mathematical formulas and plots. It
|
||
can also act as an interface to external mathematical programs such as R and
|
||
Octave. TeXmacs is completely extensible via Guile.")
|
||
(license license:gpl3+)
|
||
(home-page "https://www.texmacs.org/tmweb/home/welcome.en.html")))
|
||
|
||
(define-public scintilla
|
||
(package
|
||
(name "scintilla")
|
||
(version "5.3.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (let ((v (apply string-append (string-split version #\.))))
|
||
(string-append "https://www.scintilla.org/scintilla" v ".tgz")))
|
||
(sha256
|
||
(base32 "0ys0836qjljzqk0wj6y9pnmrcw7ydzn8c06rwbawjk74dpsn0lpx"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list
|
||
#:make-flags
|
||
#~(list "GTK3=1"
|
||
(string-append "CC=" #$(cc-for-target))
|
||
"-Cgtk")
|
||
#:tests? #f ;require un-packaged Pyside
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(delete 'configure) ;no configure script
|
||
(replace 'install
|
||
;; Upstream provides no install script.
|
||
(lambda _
|
||
(let ((lib (string-append #$output "/lib"))
|
||
(inc (string-append #$output "/include")))
|
||
(for-each (lambda (f) (install-file f lib))
|
||
(find-files "bin/" "\\.so$"))
|
||
(for-each (lambda (f) (install-file f inc))
|
||
(find-files "include/" "."))))))))
|
||
(native-inputs
|
||
(list pkg-config python-wrapper))
|
||
(inputs
|
||
(list gtk+))
|
||
(home-page "https://www.scintilla.org/")
|
||
(synopsis "Code editor for GTK+")
|
||
(description "Scintilla is a source code editing component for
|
||
GTK+. It has the usual features found in text editing components, as
|
||
well as some that are especially useful for editing and debugging
|
||
source code; these include support for syntax styling, error
|
||
indicators, code completion and call tips. Styling choices are more
|
||
open than with many editors: Scintilla lets you use proportional
|
||
fonts, bold and italics, multiple foreground and background colours,
|
||
and multiple fonts.")
|
||
(license license:hpnd)))
|
||
|
||
(define-public geany
|
||
(package
|
||
(name "geany")
|
||
(version "1.38")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://download.geany.org/"
|
||
"geany-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "0inmmb9wra2w99pfv6p64d66s2zrhafc8drhwmga7gj89mp1gzxb"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list autoconf
|
||
automake
|
||
doxygen
|
||
`(,glib "bin")
|
||
intltool
|
||
libtool
|
||
pkg-config
|
||
python-docutils)) ;for rst2html
|
||
(inputs
|
||
(list gtk+
|
||
;; FIXME: Geany bundles a 3.X release of Scintilla. It is not
|
||
;; currently possible to replace it with our Scintilla package.
|
||
;; ("scintilla" ,scintilla)
|
||
))
|
||
(arguments
|
||
`(#:imported-modules ((guix build glib-or-gtk-build-system)
|
||
,@%gnu-build-system-modules)
|
||
#:modules (((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
|
||
(guix build gnu-build-system)
|
||
(guix build utils))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'glib-or-gtk-wrap
|
||
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
|
||
(home-page "https://www.geany.org")
|
||
(synopsis "Fast and lightweight IDE")
|
||
(description "Geany is a small and fast Integrated Development
|
||
Environment (IDE) that only has a few dependencies on other packages and is as
|
||
independent as possible from special desktop environments like KDE or GNOME.
|
||
|
||
The basic features of Geany are:
|
||
@itemize
|
||
@item syntax highlighting
|
||
@item code completion
|
||
@item auto completion of often constructed constructs like if, for and while
|
||
@item auto completion of XML and HTML tags
|
||
@item call tips
|
||
@item folding
|
||
@item many supported filetypes like C, Java, PHP, HTML, Python, Perl, Pascal
|
||
@item symbol lists
|
||
@item embedded terminal emulation
|
||
@item extensibility through plugins
|
||
@end itemize")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public fe
|
||
(package
|
||
(name "fe")
|
||
;; Stable release is 1.9. However, this development version
|
||
;; introduces support for UTF-8.
|
||
(version "2.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.moria.de/~michael/fe/"
|
||
"fe-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"10mk5wc3dsdp46b3hkjyd740gcdv6m1gvlr3p8xjxf55b3vfs0la"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;no test
|
||
;; Sendmail is only used to send a crash log. Disable the
|
||
;; feature since it is (1) undocumented (2) not very useful.
|
||
#:configure-flags (list "--disable-sendmail")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'install-doc
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(doc (string-append out "/share/doc/" ,name "-" ,version)))
|
||
(for-each (lambda (f) (install-file f doc))
|
||
'("fe.doc" "fe.html" "fe.ps" "feref.ps" "README"))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)))
|
||
(inputs
|
||
(list ncurses))
|
||
(home-page "http://www.moria.de/~michael/fe/")
|
||
(synopsis "Small folding editor")
|
||
(description "Fe is a small folding editor. It folds
|
||
arbitrary text regions; it is not bound to syntactic units.
|
||
|
||
Fe has no configuration or extension language and requires no setup.
|
||
Its user interface is emacs-like and it has menus for the very most
|
||
important functions to help beginners. Further there is a reference
|
||
card. It offers:
|
||
|
||
@itemize
|
||
@item Regions and Emacs-like kill ring
|
||
@item Incremental search
|
||
@item Keyboard macros
|
||
@item Editing binary files
|
||
@item Multiple windows and views
|
||
@item Compose function for Latin 1 characters
|
||
@end itemize")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public ne
|
||
(package
|
||
(name "ne")
|
||
(version "3.3.1")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/vigna/ne")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0sg2f6lxq6cjkpd3dvlxxns82hvq826rjnams5in97pssmknr77g"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list perl texinfo))
|
||
(inputs
|
||
(list ncurses))
|
||
(arguments
|
||
`(#:tests? #f
|
||
#:make-flags
|
||
(list "CC=gcc"
|
||
(string-append "PREFIX=" (assoc-ref %outputs "out"))
|
||
(string-append "LDFLAGS=-L" (assoc-ref %build-inputs "ncurses")
|
||
"/lib"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'patch-early-shebang
|
||
(lambda _
|
||
(substitute* "version.pl"
|
||
(("/usr/bin/env .*perl") (which "perl")))))
|
||
(replace 'configure
|
||
(lambda _
|
||
(substitute* "src/makefile"
|
||
(("-lcurses") "-lncurses")))))))
|
||
(home-page "https://ne.di.unimi.it/")
|
||
(synopsis "Text editor with menu bar")
|
||
(description "This package provides a modeless text editor with menu bar.
|
||
It supports syntax highlighting, regular expressions, configurable menus,
|
||
keybindings, autocomplete and unlimited undo. It can pipe a marked block
|
||
of text through any command line filter. It can also open very large binary
|
||
files. It was originally developed on the Amiga 3000T.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public hexer
|
||
(package
|
||
(name "hexer")
|
||
(version "1.0.6")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://devel.ringlet.net/files/editors/hexer/"
|
||
"hexer-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "157z17z8qivdin2km2wp86x1bv1nx15frrwcz11mk0l3ab74mf76"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;no upstream tests
|
||
#:make-flags
|
||
(list "CC=gcc"
|
||
(string-append "PREFIX=" (assoc-ref %outputs "out"))
|
||
(string-append "LTERMCAP=-lncurses")
|
||
(string-append "LDFLAGS=-L" (assoc-ref %build-inputs "ncurses")
|
||
"/lib"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)))) ;no configure script
|
||
(inputs
|
||
(list ncurses))
|
||
(home-page "https://devel.ringlet.net/editors/hexer/")
|
||
(synopsis "Multi buffer editor for binary files with vi-like interface")
|
||
(description "Hexer is a multi-buffer editor for binary files for Unix-like
|
||
systems that displays its buffer(s) as a hex dump. The user interface is kept
|
||
similar to vi/ex.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public edlin
|
||
(package
|
||
(name "edlin")
|
||
(version "2.20")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/freedos-edlin/freedos-edlin/"
|
||
version "/edlin-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "0cdv42ffminncwj5ph9lw0j7zpbv8l35acppy90wj7x1qm4qk6x8"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'make-read-only
|
||
(lambda _
|
||
;; Remove executable bits.
|
||
(chmod "COPYING" #o444)
|
||
(chmod "edlin.htm" #o444)))
|
||
(add-after 'install 'install-doc
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((doc-dir (string-append (assoc-ref outputs "out")
|
||
"/share/doc/edlin-" ,version)))
|
||
(mkdir-p doc-dir)
|
||
(install-file "edlin.htm" doc-dir)))))))
|
||
(home-page "https://sourceforge.net/projects/freedos-edlin/")
|
||
(synopsis "The line editor of the FreeDOS operating system")
|
||
(description "The @code{edlin} program is a small line editor, written for
|
||
FreeDOS as a functional clone of the old MS-DOS program edlin.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public tree-sitter
|
||
(package
|
||
(name "tree-sitter")
|
||
(version "0.20.6")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/tree-sitter/tree-sitter")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1z20518snyg0zp75qgs5bxmzjqws4dd19vnp6sya494za3qp5b6d"))
|
||
(modules '((guix build utils)))
|
||
(snippet '(begin
|
||
;; Remove bundled ICU parts
|
||
(delete-file-recursively "lib/src/unicode")
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(inputs (list icu4c))
|
||
(arguments
|
||
(list #:phases
|
||
'(modify-phases %standard-phases
|
||
(delete 'configure))
|
||
#:tests? #f ; there are no tests for the runtime library
|
||
#:make-flags
|
||
#~(list (string-append "PREFIX="
|
||
#$output)
|
||
(string-append "CC="
|
||
#$(cc-for-target)))))
|
||
(home-page "https://tree-sitter.github.io/tree-sitter/")
|
||
(synopsis "Incremental parsing system for programming tools")
|
||
(description
|
||
"Tree-sitter is a parser generator tool and an incremental parsing
|
||
library. It can build a concrete syntax tree for a source file and efficiently
|
||
update the syntax tree as the source file is edited.
|
||
|
||
Tree-sitter aims to be:
|
||
|
||
@itemize
|
||
@item General enough to parse any programming language
|
||
@item Fast enough to parse on every keystroke in a text editor
|
||
@item Robust enough to provide useful results even in the presence of syntax errors
|
||
@item Dependency-free so that the runtime library (which is written in pure C)
|
||
can be embedded in any application
|
||
@end itemize
|
||
|
||
This package includes the @code{libtree-sitter} runtime library.
|
||
")
|
||
(license license:expat)))
|
||
|
||
(define-public mle
|
||
(package
|
||
(name "mle")
|
||
(version "1.5.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/adsr/mle")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1nhd00lsx9v12zdmps92magz76c2d8zzln3lxvzl4ng73gbvq3n0"))))
|
||
(build-system gnu-build-system)
|
||
(inputs (list lua pcre uthash))
|
||
(arguments
|
||
`(#:test-target "test"
|
||
#:phases (modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-lua
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "mle.h"
|
||
(("<lua5.4/") "<"))
|
||
(substitute* "Makefile"
|
||
(("-llua5.4") "-llua")
|
||
(("/bin/sh") (which "sh")))))
|
||
(add-after 'unpack 'patch-test-shebangs
|
||
(lambda _
|
||
(substitute* (find-files "tests/func" "\\.sh$")
|
||
(("/usr/bin/env bash") (which "bash")))))
|
||
(delete 'configure) ;no configure script
|
||
(add-after 'install 'install-man-pages
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(man (string-append out
|
||
"/share/man/man1")))
|
||
(install-file "mle.1"
|
||
(string-append man))))))
|
||
#:make-flags (list (string-append "CC="
|
||
,(cc-for-target))
|
||
(string-append "prefix=" %output))))
|
||
(home-page "https://github.com/adsr/mle")
|
||
(synopsis "Small, flexible, terminal-based text editor")
|
||
(description
|
||
"mle is a small, flexible, terminal-based text editor written in C.
|
||
Notable features include: full Unicode support, syntax highlighting,
|
||
scriptable rc file, macros, search and replace (PCRE), window
|
||
splitting, multiple cursors, and integration with various shell
|
||
commands.")
|
||
(license license:asl2.0)))
|