;;; 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 © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org>
;;; 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>
;;;
;;; 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 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 ruby)
#: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))
bindings and many of the powerful features of GNU Emacs.")
(license license:gpl3+)))
+(define-public jucipp
+ (package
+ (name "jucipp")
+ (version "1.5.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 "0v7fmsya2zn1xx59bkv4cbyinmcnv52hm4j40nbfwalcks631xrr"))))
+ (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))
+
+ ;; This phase is necessary to fix a test failure, see
+ ;; <https://gitlab.com/cppit/jucipp/-/issues/423>.
+ (add-after 'unpack 'add-reference-to-clang-internal-header
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "src/compile_commands.cc"
+ ((".*-I/usr/lib/clang.*" all)
+ (string-append "arguments.emplace_back(\"-I"
+ (assoc-ref inputs "libclang")
+ "/lib/clang/"
+ ,@(list (package-version clang))
+ "/include\");\n"
+ all)))
+ #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)))))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("xorg-server" ,xorg-server-for-tests)))
+ (inputs
+ `(("aspell" ,aspell)
+ ("boost" ,boost)
+ ("gtkmm" ,gtkmm)
+ ("gtksourceviewmm" ,gtksourceviewmm)
+ ("libclang" ,clang)
+ ("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 ghostwriter
(package
(name "ghostwriter")
- (version "1.7.4")
+ (version "1.8.0")
(source (origin
(method git-fetch)
(uri (git-reference
(file-name (git-file-name name version))
(sha256
(base32
- "1pqlr08z5syqcq5p282asxwzrrm7c1w94baxyb467swh8yp3fj5m"))))
+ "13yn82m1l2pq93wbl569a2lzpc3sn8a8g30hsgdch1l9xlmhwran"))))
(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
(define-public manuskript
(package
(name "manuskript")
- (version "0.10.0")
+ (version "0.11.0")
(source
(origin
(method git-fetch)
(commit version)))
(file-name (git-file-name name version))
(sha256
- (base32 "0q413vym7hzjpyg3krj5y63hwpncdifjkyswqmr76zg5yqnklnh3"))))
+ (base32 "1l6l9k6k69yv8xqpll0zv9cwdqqg4zvxy90l6sx5nv2yywh5crla"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ;no test
(define-public scintilla
(package
(name "scintilla")
- (version "4.2.2")
- (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
- "01gq31ggvasw4sy9xs544h7v1dmxrlxs5bzxpasqb9yi3ps3nl0f"))))
+ (version "4.3.2")
+ (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 "0d8ssl0d8r6bslbzd507l9c5g8mwn1zriak3fnf85936pdmkhq9h"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list "GTK3=1" "CC=gcc" "-Cgtk")
`(("ncurses" ,ncurses)))
(home-page "http://www.moria.de/~michael/fe/")
(synopsis "Small folding editor")
- (description "Fe is a small folding editor. It allows to fold
+ (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.