;;; 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 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2017, 2018, 2020 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2017 Feng Shu <tumashu@163.com>
-;;; Copyright © 2017 ng0 <ng0@n0.is>
+;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org>
-;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2019 Andreas Enge <andreas@enge.fr>
+;;; Copyright © 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
+;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2020 Tom Zander <tomz@freedommail.ch>
;;;
;;; This file is part of GNU Guix.
;;;
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix utils)
+ #:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system cmake)
#: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 boost)
+ #:use-module (gnu packages code)
#:use-module (gnu packages documentation)
+ #:use-module (gnu packages fontutils)
+ #:use-module (gnu packages freedesktop)
#:use-module (gnu packages gcc)
+ #: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 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-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages regex)
#:use-module (gnu packages ruby)
#:use-module (gnu packages terminals)
- #:use-module (gnu packages xml))
+ #: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.5")
- (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
- "1xbxb3q963s6sav63yw0x30lm0wvxsrzb7hr6a7dh4f8r7mp1skp"))))
+ (version "0.6") ; also update the vis-test input
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/martanne/vis")
+ (commit (string-append "v" version))))
+ (sha256
+ (base32 "1zjm89cn3rfq8fxpwp66khy53s6vqlmw6q103qyyvix8ydzxdmsh"))
+ (file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"
- #:tests? #f ; no releases; snapshots are missing tests
#: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"))
(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-search-paths
- (list (search-path-specification
- (variable "VIS_PATH")
- (files '("share/vis")))))
+ (native-inputs
+ `(("vis-test"
+ ,(origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/martanne/vis-test")
+ (commit "4c4f6645de77f697a45899e8645e0c2bbdc7208a")))
+ (sha256
+ (base32 "10vh1pxsqw88a5xwh5irkm85xr66dbycmgpmabyw9h0vm14cvcz2"))
+ (file-name (git-file-name "vis-test" version))))))
(inputs `(("lua" ,lua)
("ncurses" ,ncurses)
("libtermkey" ,libtermkey)
(define-public kakoune
(package
(name "kakoune")
- (version "2019.01.20")
+ (version "2020.09.01")
(source
(origin
(method url-fetch)
"releases/download/v" version "/"
"kakoune-" version ".tar.bz2"))
(sha256
- (base32 "15drk7i17qdiqxqkjxhrxfclryj9qzb5ymxd20dwl05y4yi064cr"))))
+ (base32 "0x81rxy7bqnhd9374g5ypy4w4nxmm0vnqw6b52bf62jxdg2qj6l6"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
"\";\n " line)))
#t))
(delete 'configure) ; no configure script
- ;; kakoune requires us to be in the src/ directory to build
+ ;; kakoune requires us to be in the src/ directory to build.
(add-before 'build 'chdir
(lambda _ (chdir "src") #t)))))
(native-inputs
bindings and many of the powerful features of GNU Emacs.")
(license license:gpl3+)))
+(define-public jucipp
+ (package
+ (name "jucipp")
+ (version "1.6.0")
+ (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 "177myy6qvjlb6j3f3i3xmfml5r3p9in8xzpvm0n59dn56s81gpnr"))))
+ (build-system cmake-build-system)
+ (arguments
+ `(#:configure-flags '("-DBUILD_TESTING=ON"
+
+ ;; These arguments are here to facilitate an "in-source"
+ ;; build using "./build" instead of the default "../build".
+ ;; The test suite expects that to be the case.
+ "..")
+ #:out-of-source? #f
+ #:phases (modify-phases %standard-phases
+ (add-before 'configure 'enter-build-directory
+ (lambda _
+ (mkdir "build")
+ (chdir "build")
+ #t))
+
+ (add-after 'unpack 'patch-tiny-process-library
+ (lambda _
+ (with-directory-excursion "lib/tiny-process-library"
+ (substitute* '("process_unix.cpp"
+ "tests/io_test.cpp")
+ (("/bin/sh") (which "sh"))))
+ #t))
+ (add-after 'unpack 'disable-git-test
+ (lambda _
+ (substitute* "tests/CMakeLists.txt"
+ ;; Disable the git test, as it requires the full checkout.
+ (("add_test\\(git_test.*\\)") ""))
+ #t))
+ (add-before 'check 'pre-check
+ (lambda* (#:key inputs #:allow-other-keys)
+ ;; Tests do not expect HOME to be empty.
+ (setenv "HOME" "/etc")
+
+ ;; Most tests require an X server.
+ (let ((xorg-server (assoc-ref inputs "xorg-server"))
+ (display ":1"))
+ (setenv "DISPLAY" display)
+ (system (string-append xorg-server "/bin/Xvfb "
+ display " &")))
+ #t))
+ (add-after 'install 'wrap
+ (lambda* (#:key inputs outputs #: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 $gtksourceview/share/gtksourceview-3.0.
+ (let ((out (assoc-ref outputs "out"))
+ (gtk+ (assoc-ref inputs "gtk+"))
+ (gtksourceview (assoc-ref inputs "gtksourceview"))
+ (shared-mime-info (assoc-ref inputs "shared-mime-info")))
+ (wrap-program (string-append out "/bin/juci")
+ `("XDG_DATA_DIRS" ":" prefix
+ (,(string-join
+ (map (lambda (pkg)
+ (string-append pkg "/share"))
+ (list out gtk+ gtksourceview shared-mime-info))
+ ":"))))
+ #t))))))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("xorg-server" ,xorg-server-for-tests)))
+ (inputs
+ `(("aspell" ,aspell)
+ ("boost" ,boost)
+ ("ctags" ,universal-ctags)
+ ("gtkmm" ,gtkmm)
+ ("gtksourceviewmm" ,gtksourceviewmm)
+ ("libclang" ,clang-10) ;XXX: must be the same version as Mesas LLVM
+ ("libgit2" ,libgit2)))
+ (synopsis "Lightweight C++ IDE")
+ (description
+ "juCi++ is a small @dfn{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")
(define-public mg
(package
(name "mg")
- (version "20180408")
+ (version "20180927")
(source (origin
(method git-fetch)
(uri (git-reference
(file-name (git-file-name name version))
(sha256
(base32
- "06w86xk7sjl2x2h3z6msn8kpmwj05qdimcym77wzhz5s94dzh1bl"))
+ "14vrm8lvwksf697sqks7xfd1xaqjlqjc9afjk33sksq5p27wr203"))
(modules '((guix build utils)))
(snippet '(begin
(substitute* "GNUmakefile"
(home-page "https://homepage.boetes.org/software/mg/")
(synopsis "Microscopic GNU Emacs clone")
(description
- "Mg (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.")
+ "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 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 %build-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
+ `(("texinfo" ,texinfo)))
+ (inputs
+ `(("libx11" ,libx11)
+ ("libxext" ,libxext)
+ ("libxv" ,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 "1.7.4")
+ (version "1.8.1")
(source (origin
(method git-fetch)
(uri (git-reference
- (url "https://github.com/wereturtle/ghostwriter.git")
+ (url "https://github.com/wereturtle/ghostwriter")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
- "1pqlr08z5syqcq5p282asxwzrrm7c1w94baxyb467swh8yp3fj5m"))))
+ "0jc6szfh5sdnafhwsr1xv7cn1fznniq58bix41hb9wlbkvq7wzi6"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
(inputs
`(("hunspell" ,hunspell)
("qtbase" ,qtbase)
+ ("qtdeclarative" ,qtdeclarative)
("qtmultimedia" ,qtmultimedia)
+ ("qtquickcontrols" ,qtquickcontrols)
("qtsvg" ,qtsvg)
- ("qtwebkit" ,qtwebkit)))
+ ("qtwebchannel" ,qtwebchannel)))
+ (propagated-inputs ; To get native-search-path
+ `(("qtwebengine" ,qtwebengine)))
(arguments
`(#:phases
(modify-phases %standard-phases
environment with Markdown markup.")
(license license:gpl3+))) ; icons/* under CC-BY-SA3
+(define-public manuskript
+ (package
+ (name "manuskript")
+ (version "0.11.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 "1l6l9k6k69yv8xqpll0zv9cwdqqg4zvxy90l6sx5nv2yywh5crla"))))
+ (build-system python-build-system)
+ (arguments
+ `(#:tests? #f ;no test
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (delete 'build)
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (share (string-append out "/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 out
+ "/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 out "/bin"))
+ (executable (string-append share "/bin/manuskript")))
+ (wrap-program executable
+ (list "PYTHONPATH" 'prefix (list (getenv "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 out "/share/applications"))
+ (icons-dir (string-append out "/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 out "/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;"))
+ #t))))))
+ (inputs
+ `(("pandoc" ,pandoc)
+ ("python-lxml" ,python-lxml)
+ ("python-markdown" ,python-markdown)
+ ("python-pyqt" ,python-pyqt)
+ ("qtsvg" ,qtsvg)))
+ (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.3")
+ (version "0.12.4")
(source
(origin
(method git-fetch)
(uri (git-reference
- (url "https://github.com/editorconfig/editorconfig-core-c.git")
+ (url "https://github.com/editorconfig/editorconfig-core-c")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
- (base32
- "0jkc69r4jwn4rih6h6cqvgljjc3ff49cxj8286mi515aczr48cm1"))))
+ (base32 "1311fhh2jfsja2hhk3nwb6nijlq03jw8dk35cwbrac0p9jvy03jx"))))
(build-system cmake-build-system)
(arguments
'(#:phases
(lambda* (#:key inputs #:allow-other-keys)
(let ((tests (assoc-ref inputs "tests")))
(copy-recursively tests "tests"))
- #t)))))
+ #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")
- (commit "6ea1d8ece62cac9cf72c79dce4879b046abe1fe7"))) ; matches version
- (file-name (git-file-name "editorconfig-core-test" version))
- (sha256
- (base32
- "1sf6910idnd4bgzbj8w8f9ldsbkaqa0lh6syymwy3hfqda63acj7"))))))
+ `(("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
`(("pcre2" ,pcre2)))
(home-page "https://editorconfig.org/")
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 "1.99.13")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://www.texmacs.org/Download/ftp/tmftp/"
+ "source/TeXmacs-" version "-src.tar.gz"))
+ (sha256
+ (base32 "1d590yyanh2ar88pd0ns4mf616bq1lq4cwg93m863anhir5irb82"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("xdg-utils" ,xdg-utils))) ;for xdg-icon-resource
+ (inputs
+ `(("freetype" ,freetype)
+ ("guile" ,guile-1.8)
+ ("perl" ,perl)
+ ("python" ,python-wrapper)
+ ("qt" ,qtbase)))
+ (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")))
+ #t)))
+ (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 "4.4.4")
+ (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 "1zjsb6iiqi4cw9r9md3xv8qyy86ssz11p680xn7vmllrxshxvs8y"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:make-flags (list "GTK3=1" "CC=gcc" "-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* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (lib (string-append out "/lib"))
+ (include (string-append out "/include")))
+ (for-each (lambda (f) (install-file f lib))
+ (find-files "bin/" "\\.so$"))
+ (for-each (lambda (f) (install-file f include))
+ (find-files "include/" "."))
+ #t))))))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("python" ,python-wrapper)))
+ (inputs
+ `(("gtk+" ,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.36")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://download.geany.org/"
+ "geany-" version ".tar.bz2"))
+ (sha256
+ (base32 "0gnm17cr4rf3pmkf0axz4a0fxwnvp55ji0q0lzy88yqbshyxv14i"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("doxygen" ,doxygen)
+ ("glib" ,glib "bin")
+ ("intltool" ,intltool)
+ ("libtool" ,libtool)
+ ("pkg-config" ,pkg-config)
+ ("python-docutils" ,python-docutils))) ;for rst2html
+ (inputs
+ `(("gtk+" ,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.8. 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
+ "1hwws7si1752z6hp61zxznvgsb6846lp8zl1hn5ddhsbafwalwb9"))))
+ (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
+ `(("ncurses" ,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.0")
+ (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
+ "01aglnsfljlvx0wvyvpjfn4y88jf450a06qnj9a8lgdqv1hdkq1a"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("perl" ,perl)
+ ("texinfo" ,texinfo)))
+ (inputs
+ `(("ncurses" ,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
+ (replace 'configure
+ (lambda _
+ (substitute* "src/makefile"
+ (("-lcurses") "-lncurses"))
+ #t)))))
+ (home-page "http://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
+ `(("ncurses" ,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)))