aboutsummaryrefslogtreecommitdiff
;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2016, 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2017-2023 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net> ;;; Copyright © 2020 Guy Fleury Iteriteka <gfleury@disroot.org> ;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net> ;;; Copyright © 2020 Prafulla Giri <pratheblackdiamond@gmail.com> ;;; Copyright © 2021 Nicolò Balzarotti <nicolo@nixo.xyz> ;;; Copyright © 2022 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com> ;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2024 Luis Higino <luishenriquegh2701@gmail.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 education) #:use-module (ice-9 regex) #:use-module (gnu packages) #:use-module (gnu packages audio) #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages compression) #:use-module (gnu packages curl) #:use-module (gnu packages databases) #:use-module (gnu packages django) #:use-module (gnu packages flex) #:use-module (gnu packages fonts) #:use-module (gnu packages fontutils) #:use-module (gnu packages freedesktop) #:use-module (gnu packages game-development) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages golang) #:use-module (gnu packages golang-build) #:use-module (gnu packages golang-check) #:use-module (gnu packages golang-web) #:use-module (gnu packages golang-xyz) #:use-module (gnu packages gtk) #:use-module (gnu packages gstreamer) #:use-module (gnu packages image) #:use-module (gnu packages javascript) #:use-module (gnu packages kde) #:use-module (gnu packages kde-frameworks) ; extra-cmake-modules #:use-module (gnu packages linux) #:use-module (gnu packages mp3) #:use-module (gnu packages ncurses) #:use-module (gnu packages pdf) #: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 readline) #:use-module (gnu packages sdl) #:use-module (gnu packages sqlite) #:use-module (gnu packages texinfo) #:use-module (gnu packages tls) #:use-module (gnu packages video) #:use-module (gnu packages xiph) #:use-module (gnu packages xorg) #:use-module (gnu packages xml) #:use-module (guix gexp) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-d-rw-r--r--gnu/local.mk1
-rw-r--r--gnu/packages/inkscape.scm1
-rw-r--r--gnu/packages/patches/inkscape-poppler-0.76.patch36
-rw-r--r--gnu/packages/patches/texlive-bin-luatex-poppler-compat.patch34
-rw-r--r--gnu/packages/pdf.scm4
-rw-r--r--gnu/packages/scribus.scm29
-rw-r--r--gnu/packages/tex.scm10
7 files changed, 106 insertions, 9 deletions
diff --git a/gnu/local.mk b/gnu/local.mk
index 7c68b40976..2a6908d4bb 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -938,6 +938,7 @@ dist_patch_DATA = \
%D%/packages/patches/idris-test-no-node.patch \
%D%/packages/patches/ilmbase-fix-tests.patch \
%D%/packages/patches/inkscape-poppler-compat3.patch \
+ %D%/packages/patches/inkscape-poppler-0.76.patch \
%D%/packages/patches/intltool-perl-compatibility.patch \
%D%/packages/patches/irrlicht-use-system-libs.patch \
%D%/packages/patches/isl-0.11.1-aarch64-support.patch \
diff --git a/gnu/packages/inkscape.scm b/gnu/packages/inkscape.scm
index a2c6778b57..1ad23a92d4 100644
--- a/gnu/packages/inkscape.scm
+++ b/gnu/packages/inkscape.scm
@@ -52,6 +52,7 @@
(uri (string-append "https://media.inkscape.org/dl/"
"resources/file/"
"inkscape-" version ".tar.bz2"))
+ (patches (search-patches "inkscape-poppler-0.76.patch"))
(sha256
(base32
"0pjinhjibfsz1aywdpgpj3k23xrsszpj4a1ya5562dkv2yl2vv2p"))))
diff --git a/gnu/packages/patches/inkscape-poppler-0.76.patch b/gnu/packages/patches/inkscape-poppler-0.76.patch
new file mode 100644
index 0000000000..08e8303892
--- /dev/null
+++ b/gnu/packages/patches/inkscape-poppler-0.76.patch
@@ -0,0 +1,36 @@
+This patch adds support for Poppler 0.76 and later.
+
+Taken from upstream:
+<https://gitlab.com/inkscape/inkscape/commit/e831b034746f8dc3c3c1b88372751f6dcb974831>
+
+diff --git a/src/extension/internal/pdfinput/pdf-parser.cpp b/src/extension/internal/pdfinput/pdf-parser.cpp
+index 8484984bdf..4f798e35bf 100644
+--- a/src/extension/internal/pdfinput/pdf-parser.cpp
++++ b/src/extension/internal/pdfinput/pdf-parser.cpp
+@@ -421,7 +421,7 @@ void PdfParser::parse(Object *obj, GBool topLevel) {
+ error(errInternal, -1, "Weird page contents");
+ return;
+ }
+- parser = new Parser(xref, new Lexer(xref, obj), gFalse);
++ parser = new _POPPLER_NEW_PARSER(xref, obj);
+ go(topLevel);
+ delete parser;
+ parser = nullptr;
+diff --git a/src/extension/internal/pdfinput/poppler-transition-api.h b/src/extension/internal/pdfinput/poppler-transition-api.h
+index 61a15083a0..5e8bc4ae90 100644
+--- a/src/extension/internal/pdfinput/poppler-transition-api.h
++++ b/src/extension/internal/pdfinput/poppler-transition-api.h
+@@ -14,6 +14,13 @@
+
+ #include <glib/poppler-features.h>
+
++#if POPPLER_CHECK_VERSION(0, 76, 0)
++#define _POPPLER_NEW_PARSER(xref, obj) Parser(xref, obj, gFalse)
++#else
++#define _POPPLER_NEW_PARSER(xref, obj) Parser(xref, new Lexer(xref, obj), gFalse)
++#endif
++
++
+ #if POPPLER_CHECK_VERSION(0, 72, 0)
+ #define getCString c_str
+ #endif
diff --git a/gnu/packages/patches/texlive-bin-luatex-poppler-compat.patch b/gnu/packages/patches/texlive-bin-luatex-poppler-compat.patch
index df6121c6e1..024ff416af 100644
--- a/gnu/packages/patches/texlive-bin-luatex-poppler-compat.patch
+++ b/gnu/packages/patches/texlive-bin-luatex-poppler-compat.patch
@@ -257,3 +257,37 @@ diff --git a/texk/web2c/luatexdir/lua/lepdflib.cc b/texk/web2c/luatexdir/lua/lep
uout = new_StructTreeRoot_userdata(L);
uout->d = obj;
uout->pc = uin->pc;
+--- texlive-source/texk/web2c/luatexdir/lua/lepdflib.cc.orig 2019-04-24 09:41:05.090522664 +0000
++++ texlive-source/texk/web2c/luatexdir/lua/lepdflib.cc 2019-04-24 09:43:37.119184926 +0000
+@@ -994,7 +994,8 @@
+ pdfdoc_changed_error(L);
+ num = luaL_checkint(L, 2);
+ gen = luaL_checkint(L, 3);
+- i = ((Catalog *) uin->d)->findPage(num, gen);
++ Ref numgen = {num, gen};
++ i = ((Catalog *) uin->d)->findPage(numgen);
+ if (i > 0)
+ lua_pushinteger(L, i);
+ else
+@@ -2596,8 +2597,9 @@
+ pdfdoc_changed_error(L);
+ num = luaL_checkint(L, 2);
+ gen = luaL_checkint(L, 3);
++ Ref numgen = {num, gen};
+ if (((PdfDocument *) uin->d)->doc->getCatalog()->isOk()) {
+- i = ((PdfDocument *) uin->d)->doc->findPage(num, gen);
++ i = ((PdfDocument *) uin->d)->doc->findPage(numgen);
+ if (i > 0)
+ lua_pushinteger(L, i);
+ else
+--- texlive-source/texk/web2c/luatexdir/image/pdftoepdf.w.orig 2019-04-24 09:56:38.406498975 +0000
++++ texlive-source/texk/web2c/luatexdir/image/pdftoepdf.w 2019-04-24 09:56:57.020081327 +0000
+@@ -630,7 +630,7 @@
+ if (link == NULL || !link->isOk())
+ formatted_error("pdf inclusion","invalid destination '%s'",img_pagename(idict));
+ Ref ref = link->getPageRef();
+- img_pagenum(idict) = catalog->findPage(ref.num, ref.gen);
++ img_pagenum(idict) = catalog->findPage(ref);
+ if (img_pagenum(idict) == 0)
+ formatted_error("pdf inclusion","destination is not a page '%s'",img_pagename(idict));
+ delete link;
diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm
index eab97a1a52..9cfac6fb9d 100644
--- a/gnu/packages/pdf.scm
+++ b/gnu/packages/pdf.scm
@@ -84,14 +84,14 @@
(define-public poppler
(package
(name "poppler")
- (version "0.75.0")
+ (version "0.77.0")
(source (origin
(method url-fetch)
(uri (string-append "https://poppler.freedesktop.org/poppler-"
version ".tar.xz"))
(sha256
(base32
- "16hr0y3pv66s01bcd4k8xjgd1r038ca9srd06g4wm5r7zaqfvfiv"))))
+ "0szk09hk8r98ck9cx97nqwrbzdn1q41ic8dq8j1aar6dpi6fnrvj"))))
(build-system cmake-build-system)
;; FIXME:
;; use libcurl: no
diff --git a/gnu/packages/scribus.scm b/gnu/packages/scribus.scm
index 5b770fd696..322a096414 100644
--- a/gnu/packages/scribus.scm
+++ b/gnu/packages/scribus.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
+;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -97,9 +98,33 @@
(file-name "scribus-poppler-0.70.patch")
(sha256
(base32
- "0dw7ix3jaj0y1q97cmmqwb2qgdx760yhxx86wa8rnx0xhfi5x6qr"))))
-
+ "0dw7ix3jaj0y1q97cmmqwb2qgdx760yhxx86wa8rnx0xhfi5x6qr")))
+ ;; This and the preceding patch are taken from Arch Linux
+ ;; because they are adjusted for the Scribus release tarball
+ ;; rather than the upstream master branch.
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://git.archlinux.org/svntogit/"
+ "community.git/plain/trunk/scribus-"
+ "poppler-0.75.patch?h=packages/scribus&id="
+ "4d35c4ad4869c1dcce9243c4786ff303bdd5c601"))
+ (file-name "scribus-poppler-0.75.patch")
+ (sha256
+ (base32
+ "1lhf2srp7iv44zzdbr3kqa0lfjmm77nalxnx80jqaixhr5yq2s8f")))
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/scribusproject/scribus/commit/"
+ "9449265592a5195153d72c2a511d2010b0cf5b0b.patch"))
+ (file-name "scribus-poppler-0.76.patch")
+ (sha256
+ (base32
+ "0zghiqra9s6f6v06fdr97gdhiw41zr8r6vqh4ar4yw7rqn2771jd"))))
(search-patches "scribus-poppler-0.73.patch")))
+ ;; The --binary flag is required for 'scribus-poppler-0.75.patch', because
+ ;; we need to retain the CRLF line endings.
+ (patch-flags '("-p1" "--binary"))
(modules '((guix build utils)))
(snippet
'(begin
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index e28b36fd98..10233a05b7 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -111,12 +111,12 @@
"&id=" revision))
(file-name (string-append "texlive-bin-" name))
(sha256 (base32 hash)))))
- (arch-revision "418dd6f008c3d41a461353fdb60f2d73d87c58ed"))
+ (arch-revision "c4b99aba97213ea554b6592a4916d3c7394a6d7b"))
(append (search-patches "texlive-bin-CVE-2018-17407.patch"
"texlive-bin-luatex-poppler-compat.patch")
(list
- (arch-patch "pdftex-poppler0.75.patch" arch-revision
- "1cqpcp7h1qyxyp3wjbpcmx2wgvj9ywpz60hvy280mp9w633yzyg3")
+ (arch-patch "pdftex-poppler0.76.patch" arch-revision
+ "15ypbh21amfsdxy7ca825x28lkmmkklxk1w660gpgvzdi7s70h0b")
(arch-patch "xetex-poppler-fixes.patch" arch-revision
"1jj1p5zkjljb7id9pjv29cw0cf8mwrgrh4ackgzz9c200vaqpsvx")))))))
(build-system gnu-build-system)
@@ -194,9 +194,9 @@
#t))
(add-after 'unpack 'use-code-for-new-poppler
(lambda _
- (copy-file "texk/web2c/pdftexdir/pdftoepdf-poppler0.75.0.cc"
+ (copy-file "texk/web2c/pdftexdir/pdftoepdf-poppler0.76.0.cc"
"texk/web2c/pdftexdir/pdftoepdf.cc")
- (copy-file "texk/web2c/pdftexdir/pdftosrc-poppler0.75.0.cc"
+ (copy-file "texk/web2c/pdftexdir/pdftosrc-poppler0.76.0.cc"
"texk/web2c/pdftexdir/pdftosrc.cc")
#t))
(add-after 'use-code-for-new-poppler 'use-code-for-even-newer-poppler
generated by cgit
(commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1lxwf50n0bfjjnpq5z82f3apsv9mn834js7f2spw1k1f06a72z41")))) (build-system qt-build-system) (arguments (list #:tests? #f ;no tests #:phases #~(modify-phases %standard-phases (add-after 'unpack 'set-initial-values ;; Remove useless "Check for updates" action from menu. Also ;; prevent pop-up window about importing Open Sankore documents ;; since we don't package OpenBoard-Importer. (lambda _ (substitute* "src/core/UBSettings.cpp" (("(appHideCheckForSoftwareUpdate = .*?)false(\\);)" _ beg end) (string-append beg "true" end)) (("(appLookForOpenSankoreInstall = .*?)true(\\);)" _ beg end) (string-append beg "false" end))))) (add-after 'unpack 'fix-hard-coded-env (lambda* (#:key inputs #:allow-other-keys) (substitute* "src/frameworks/UBPlatformUtils_linux.cpp" (("/usr/bin/env") (search-input-file inputs "/bin/env"))))) (add-after 'unpack 'fix-library-path (lambda* (#:key inputs #:allow-other-keys) (substitute* "OpenBoard.pro" (("/usr/include/quazip5") (search-input-directory inputs "/include/quazip5")) (("/usr/include/poppler") (search-input-directory inputs "/include/poppler"))))) (replace 'configure (lambda _ (invoke "qmake" "OpenBoard.pro"))) (replace 'install (lambda* (#:key inputs #:allow-other-keys) (let* ((share (string-append #$output "/share")) (openboard (string-append share "/openboard")) (i18n (string-append openboard "/i18n"))) ;; Install data. (with-directory-excursion "resources" (for-each (lambda (directory) (let ((target (string-append openboard "/" directory))) (mkdir-p target) (copy-recursively directory target))) '("customizations" "etc" "library")) (mkdir-p i18n) (for-each (lambda (f) (install-file f i18n)) (find-files "i18n" "\\.qm$"))) ;; Install desktop file an icon. (install-file "resources/images/OpenBoard.png" (string-append share "/icons/hicolor/64x64/apps/")) (make-desktop-entry-file (string-append share "/applications/" #$name ".desktop") #:name "OpenBoard" #:comment "Interactive whiteboard application" #:exec "openboard %f" #:icon "OpenBoard" #:mime-type "application/ubz" #:categories '("Education")) ;; Install executable. (install-file "build/linux/release/product/OpenBoard" openboard) (let ((bin (string-append #$output "/bin"))) (mkdir-p bin) (symlink (string-append openboard "/OpenBoard") (string-append bin "/openboard"))))))))) (native-inputs (list qttools-5)) (inputs (list alsa-lib coreutils-minimal ;for patched 'env' shebang ffmpeg-4 freetype lame libass libfdk libressl libtheora libva libvorbis libvpx libx264 opus poppler qtbase-5 qtdeclarative-5 qtmultimedia-5 qtsvg-5 qtwebchannel-5 qtwebengine-5 qtxmlpatterns quazip-0 sdl zlib)) (home-page "https://openboard.ch/") (synopsis "Interactive whiteboard for schools and universities") (description "OpenBoard is a teaching software for interactive whiteboard designed primarily for use in schools and universities. It can be used both with interactive whiteboards or in a dual-screen setup with a pen-tablet display and a beamer.") (license license:gpl3))) (define-public fet (package (name "fet") (version "6.22.2") (source (origin (method url-fetch) (uri (let ((directory "https://www.lalescu.ro/liviu/fet/download/") (base (string-append "fet-" version ".tar.bz2"))) (list (string-append directory base) (string-append directory "old/" base)))) (sha256 (base32 "1h0yhqcpw6nhzj30fjmwwj63i1nsvrmggm56yqs4v14mli0c08y0")))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'fix-hardcoded-directories (lambda _ (substitute* (list "fet.pro" "src/src.pro" "src/src-cl.pro" "src/interface/fet.cpp") (("/usr") #$output)))) (replace 'configure (lambda _ (invoke "qmake" "fet.pro")))))) (inputs (list qtbase)) (home-page "https://www.lalescu.ro/liviu/fet/") (synopsis "Timetabling software") (description "FET is a program for automatically scheduling the timetable of a school, high-school or university. It uses a fast and efficient timetabling algorithm. Usually, FET is able to solve a complicated timetable in maximum 5-20 minutes. For extremely difficult timetables, it may take a longer time, a matter of hours.") (license license:agpl3+))) (define-public klavaro (package (name "klavaro") (version "3.14") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/klavaro/klavaro-" version ".tar.bz2")) (sha256 (base32 "1avdwpmd7jmdkrwzsxd8s8qg0sqj2avcv620jvk11i81sd4pw647")))) (build-system gnu-build-system) (native-inputs (list intltool pkg-config)) (inputs (list cairo curl gtk+ gtkdatabox pango)) (home-page "https://klavaro.sourceforge.io/en/index.html") (synopsis "Touch typing tutor") (description "Klavaro is a simple tutor to teach correct typing, almost independently of language and very flexible regarding to new or unknown keyboard layouts.") (license license:gpl3+))) (define-public kqtquickcharts (package (name "kqtquickcharts") (version "24.05.2") (source (origin (method url-fetch) (uri (string-append "mirror://kde/stable/release-service/" version "/src/kqtquickcharts-" version ".tar.xz")) (sha256 (base32 "0b0nqg77lzfw6accfsr4yg9fgq78skryd1qwkqf1zijhq4h65708")))) (build-system qt-build-system) (native-inputs (list extra-cmake-modules)) (inputs (list qtdeclarative-5)) (home-page "https://invent.kde.org/libraries/kqtquickcharts") (synopsis "QtQuick plugin to render beautiful and interactive charts") (description "This package provides a QtQuick plugin to render beautiful and interactive charts.") (license (list license:lgpl2.0+ license:gpl2+)))) (define-public ktouch (package (name "ktouch") (version "24.05.2") (source (origin (method url-fetch) (uri (string-append "mirror://kde/stable/release-service/" version "/src/ktouch-" version ".tar.xz")) (sha256 (base32 "1636s1brigmd7wbmjlfgz2qlrrp592rrk9nylh9bi0j1nf3xa8c5")))) (build-system qt-build-system) (native-inputs (list extra-cmake-modules kdoctools-5 pkg-config)) (inputs (list kcmutils-5 kcompletion-5 kconfig-5 kconfigwidgets-5 kcoreaddons-5 kdeclarative-5 ki18n-5 kiconthemes-5 kitemviews-5 ktextwidgets-5 kwidgetsaddons-5 kwindowsystem-5 kxmlgui-5 kqtquickcharts libxcb libxkbfile qtbase-5 qtdeclarative-5 qtgraphicaleffects qtquickcontrols2-5 qtx11extras qtxmlpatterns)) (home-page "https://edu.kde.org/ktouch/") (synopsis "Touch typing tutor") (description "KTouch is an aid for learning how to type with speed and accuracy. It provides a sample text to type and indicates which fingers should be used for each key. A collection of lessons are included for a wide range of different languages and keyboard layouts, and typing statistics are used to dynamically adjust the level of difficulty.") (license license:gpl2))) (define-public kanatest ;; Latest release tarball is 0.4.8, which is really old and does not build ;; commit on sourceforge are not tagged, we take the latest (let ((commit "860e790a35f547cc96669f805d371a5ba3d8daff") (revision "0")) (package (name "kanatest") (version (git-version "0.4.10" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.code.sf.net/p/kanatest/code") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0dz63m9p4ggzw0yb309qmgnl664qb5q268vaa3i9v0i8qsl66d78")))) (build-system gnu-build-system) (native-inputs (list gettext-minimal ; for msgfmt pkg-config)) (inputs (list libxml2 gtk+)) (home-page "https://kanatest.sourceforge.io/") (synopsis "Hiragana and Katakana simple flashcard tool") (description "Kanatest is a Japanese kana (Hiragana and Katakana) simple flashcard tool. During test the Kanatest displays randomly selected kana char (respecting mode and lesson) and waits for user answer expected as romaji equivalent. This process continues until all questions will be answered or all questions will be answered correctly (depends on options). At the end of test a short info about drilling time and correctness ratio is displayed. The results are stored and user can review his performance in any time.") (license license:gpl2+)))) (define-public anki (package (name "anki") ;; Later versions have dependencies on npm packages not yet in Guix. (version "2.1.16") (source (origin (method url-fetch) (uri (string-append "https://apps.ankiweb.net/downloads/archive/anki-" version "-source.tgz")) (sha256 (base32 "1gfr51rnllkyzli73p4r51h5ypzfa3m7lic3m3rzpywmqwrxs07k")) (modules '((guix build utils))) ;; Fix preferences error: <https://issues.guix.gnu.org/65506>. (snippet '(substitute* "aqt/preferences.py" (("qc\\['collapseTime']/60\\.0" x) (format #f "int(~a)" x)) (("qc\\['timeLim']/60\\.0" x) (format #f "int(~a)" x)))) (patches (search-patches "anki-mpv-args.patch")))) (build-system gnu-build-system) (arguments `(#:make-flags (list (string-append "PREFIX=" %output)) #:tests? #f ;no check target #:modules ((guix build gnu-build-system) (guix build utils) (ice-9 match)) #:phases (modify-phases %standard-phases (add-after 'unpack 'disable-update-check ;; Don't ‘phone home’ unasked to check for updates. (lambda _ (substitute* "aqt/update.py" (("requests\\.post") "throw.an.exception.instead")) #t)) (delete 'configure) ;no configure script (add-after 'install 'wrap (lambda* (#:key inputs outputs #:allow-other-keys) (let ((bin (string-append (assoc-ref outputs "out") "/bin")) ;; List of paths to the site-packages directories of Python ;; library inputs. (site-packages (map (lambda (pyinput) (string-append (cdr pyinput) "/lib/python" ;; Calculate the python version to avoid breaking ;; with future 3.X releases. ,(version-major+minor (package-version python-wrapper)) "/site-packages")) (filter (match-lambda ((label . _) (string-prefix? "python-" label))) inputs))) (qtwebengineprocess (search-input-file inputs "lib/qt5/libexec/QtWebEngineProcess"))) ;; The program fails to find the QtWebEngineProcess program, so ;; we set QTWEBENGINEPROCESS_PATH to help it. PYTHONPATH is ;; wrapped to avoid declaring Python libraries as propagated ;; inputs. (for-each (lambda (program) (wrap-program program `("QTWEBENGINEPROCESS_PATH" = (,qtwebengineprocess)) `("PATH" prefix (,(string-append (assoc-ref inputs "mpv") "/bin"))) `("GUIX_PYTHONPATH" = ,site-packages))) (find-files bin "."))) #t))))) (native-inputs (list xdg-utils)) (inputs `(("lame" ,lame) ("mpv" ,mpv) ("python" ,python-wrapper) ("python-beautifulsoup4" ,python-beautifulsoup4) ("python-decorator" ,python-decorator) ("python-distro" ,python-distro) ("python-jsonschema" ,python-jsonschema) ("python-markdown" ,python-markdown) ("python-pyaudio" ,python-pyaudio) ;; `python-pyqtwebengine' must precede `python-pyqt' in PYTHONPATH. ("python-pyqtwebengine" ,python-pyqtwebengine) ("python-pyqt" ,python-pyqt) ("python-requests" ,python-requests) ("python-send2trash" ,python-send2trash) ("python-sip" ,python-sip) ;; `qtwebengine-5' is included in `pyqtwebengine', included here for easy ;; wrapping. ("qtwebengine-5" ,qtwebengine-5))) (home-page "https://apps.ankiweb.net/") (synopsis "Powerful, intelligent flash cards") (description "Anki is a program which makes remembering things easy. Because it's a lot more efficient than traditional study methods, you can either greatly decrease your time spent studying, or greatly increase the amount you learn. Anyone who needs to remember things in their daily life can benefit from Anki. Since it is content-agnostic and supports images, audio, videos and scientific markup (via LaTeX), the possibilities are endless. For example: @itemize @item Learning a language @item Studying for medical and law exams @item Memorizing people's names and faces @item Brushing up on geography @item Mastering long poems @item Even practicing guitar chords! @end itemize") (license license:agpl3+))) (define-public t4k-common (package (name "t4k-common") (version "0.1.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/tux4kids/t4kcommon") (commit (string-append "upstream/" version)))) (file-name (git-file-name name version)) (sha256 (base32 "13q02xpmps9qg8zrzzy2gzv4a6afgi28lxk4z242j780v0gphchp")) (patches (search-patches "t4k-common-libpng16.patch")) (modules '((guix build utils))) (snippet `(begin (substitute* "src/t4k_common.h" (("char wrapped_lines") "extern char wrapped_lines")) #t)))) (build-system cmake-build-system) (arguments `(#:tests? #f ;FIXME: cannot find how to run tests #:phases (modify-phases %standard-phases (add-after 'set-paths 'set-sdl-paths (lambda* (#:key inputs #:allow-other-keys) (setenv "CPATH" (string-append (search-input-directory inputs "/include/SDL") ":" (or (getenv "CPATH") ""))))) (add-after 'unpack 'fix-andika-font-path (lambda* (#:key inputs #:allow-other-keys) (substitute* "src/t4k_sdl.c" (("(/usr/share/.*?)/AndikaDesRevG\\.ttf") (string-append (assoc-ref inputs "font-andika") "/share/fonts/truetype"))) #t))))) (native-inputs (list pkg-config)) (inputs `(("font-andika" ,font-sil-andika) ("libpng" ,libpng) ("librsvg" ,(librsvg-for-system)) ("libxml2" ,libxml2) ("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-net sdl-pango))))) (home-page "https://github.com/tux4kids/t4kcommon") (synopsis "Library of code shared between TuxMath and TuxType") (description "Tux4Kids-Common is a library of code shared between TuxMath and TuxType.") (license license:gpl3+))) (define-public tuxmath (package (name "tuxmath") (version "2.0.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/tux4kids/tuxmath") (commit (string-append "upstream/" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1f1pz83w6d3mbik2h6xavfxmk5apxlngxbkh80x0m55lhniwkdxv")) (modules '((guix build utils))) ;; Unbundle fonts. (snippet `(begin ;; Remove duplicate definition. (substitute* "src/menu_lan.c" (("lan_player_type.*MAX_CLIENTS\\];") "")) (for-each delete-file (find-files "data/fonts" "\\.ttf$")) #t)))) (build-system gnu-build-system) (arguments `(#:tests? #f ;no test #:phases (modify-phases %standard-phases (add-after 'set-paths 'set-sdl-paths (lambda* (#:key inputs #:allow-other-keys) (setenv "CPATH" (string-append (search-input-directory inputs "/include/SDL") ":" (or (getenv "CPATH") ""))))) (add-after 'install 'install-desktop-file (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (apps (string-append out "/share/applications")) (pixmaps (string-append out "/share/pixmaps"))) (install-file "tuxmath.desktop" apps) (for-each (lambda (f) (install-file f pixmaps)) (find-files "data/images/icons/" "tuxmath\\.(png|ico|svg)$")) #t)))))) (native-inputs (list pkg-config)) (inputs `(("librsvg" ,(librsvg-for-system)) ("libxml2" ,libxml2) ("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-net sdl-pango))) ("t4k-common" ,t4k-common))) (home-page "https://github.com/tux4kids/tuxmath") (synopsis "Educational math tutorial game") (description "@emph{Tux, of Math Command} is an educational math tutorial game starring Tux, the Linux penguin, in which you play the part of Commander Tux, as he defends his friends from an attack of math equations. Comets are crashing towards the friendly penguins in their igloos, and you must destroy the comets by solving their equations. TuxMath also includes Factoroids, a game that gives practice in factoring numbers and simplifying fractions, as well as zapping rocks floating through space.") (license license:gpl3+))) (define-public libeb (package (name "libeb") (version "4.4.3") (source (origin (method url-fetch) (uri (string-append "ftp://ftp.sra.co.jp/pub/misc/eb/eb-" version ".tar.bz2")) (sha256 (base32 "0psbdzirazfnn02hp3gsx7xxss9f1brv4ywp6a15ihvggjki1rxb")))) (build-system gnu-build-system) (native-inputs ; Required for building docs (list perl)) (inputs (list zlib)) (synopsis "C library for accessing Japanese CD-ROM books") (description "The EB library is a library for accessing CD-ROM books, which are a common way to distribute electronic dictionaries in Japan. It supports the EB, EBG, EBXA, EBXA-C, S-EBXA and EPWING formats.") ;; FIXME: I cannot find a real home page (home-page "https://sra.co.jp/") (license license:bsd-3))) (define-public qolibri (package (name "qolibri") (version "2.1.4") (source (origin (method git-fetch) (uri (git-reference (url"https://github.com/ludios/qolibri") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "066y7jcq9vg6hnvn7qxckzhd1qkgfzpzhw69nw5psm43qbaca8lg")))) (build-system qt-build-system) (arguments '(#:tests? #f)) ; no test target (native-inputs (list qttools-5)) (inputs (list libeb qtbase-5 qtmultimedia-5 qtquickcontrols2-5 qtdeclarative-5 qtwebchannel-5 qtwebengine-5 zlib)) (synopsis "EPWING dictionary reader") (description "qolibri is a dictionary viewer for the EPWING dictionary format. Most monolingual Japanese dictionaries can only be found in the EPWING format.") (home-page "https://github.com/ludios/qolibri") (license license:gpl2))) (define-public mdk (package (name "mdk") (version "1.3.0") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/mdk/v" version "/mdk-" version ".tar.gz")) (sha256 (base32 "0bhk3c82kyp8167h71vdpbcr852h5blpnwggcswqqwvvykbms7lb")))) (build-system gnu-build-system) (arguments `(#:configure-flags (list "--enable-gui=yes" "-with-readline=yes"))) (native-inputs (list flex intltool pkg-config)) (inputs (list glib gtk+ libglade ncurses pango readline)) (home-page "https://www.gnu.org/software/mdk/manual/") (synopsis "Virtual development environment for Knuth's MIX") (description "GNU MDK is the Mix Development Kit, an emulation of the pedagogical computer MIX and its assembly language MIXAL. MIX has a virtual CPU with standard features such as registers, memory cells, an overflow toggle, comparison flags, input-output devices, and a set of binary instructions. The package includes a compiler, a virtual machine, a GUI for the virtual machine, and more.") (license license:gpl3+))) (define-public exercism (package (name "exercism") (version "3.1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/exercism/cli") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0ah5v4pqq31bvj7s4rg3jyjn7jwxa15w31cn4c317gsqmi0n8rzl")) (patches (search-patches "exercism-disable-self-update.patch")))) (build-system go-build-system) (arguments `(#:import-path "github.com/exercism/cli/exercism" #:unpack-path "github.com/exercism/cli" #:install-source? #f #:phases (modify-phases %standard-phases (add-after 'install 'install-completions (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bash (string-append out "/etc/bash_completion.d/exercism")) (fish (string-append out "/share/fish/vendor_completions.d/exercism.fish")) (zsh (string-append out "/share/zsh/site-functions/_exercism"))) (mkdir-p (dirname bash)) (with-output-to-file bash (lambda () (invoke (string-append out "/bin/exercism") "completion" "bash"))) (mkdir-p (dirname fish)) (with-output-to-file fish (lambda () (invoke (string-append out "/bin/exercism") "completion" "fish"))) (mkdir-p (dirname zsh)) (with-output-to-file zsh (lambda () (invoke (string-append out "/bin/exercism") "completion" "zsh"))))))))) (inputs (list go-github-com-blang-semver go-github-com-spf13-cobra go-github-com-spf13-pflag go-github-com-spf13-viper go-golang-org-x-net go-golang-org-x-text)) (home-page "https://exercism.org/") (synopsis "Mentored learning for programming languages") (description "Commandline client for exercism.io, a free service providing mentored learning for programming languages.") (license license:expat))) (define-public mazo (package (name "mazo") (version "1.1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://codeberg.org/luis-felipe/mazo.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "14nk3qsj6lg7wp2ws8lxhb4hyjnczvw1cn9f3m466dkkfimp7ygf")))) (build-system python-build-system) (arguments `(#:use-setuptools? #f #:phases (modify-phases %standard-phases (delete 'build) (replace 'check (lambda* (#:key tests? inputs outputs #:allow-other-keys) (when tests? (let* ((out (assoc-ref outputs "out")) (home (string-append out "/tmp"))) (add-installed-pythonpath inputs outputs) (setenv "HOME" home) (invoke "python3" "manage.py" "test"))))) (replace 'install (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin")) (script (string-append bin "/mazo")) (share (string-append out "/share")) (help (string-append share "/help/C/mazo")) (icons (string-append share "/icons/hicolor/scalable/apps")) (apps (string-append share "/applications")) (site (string-append (site-packages inputs outputs) "/mazo"))) (mkdir-p help) (mkdir-p bin) (copy-file "mazo.py" script) (chmod script #o555) (install-file "icons/mazo.svg" icons) (install-file "lugare.ulkeva.Mazo.desktop" apps) (copy-recursively "help/C/mazo" help) (copy-recursively "mazo" site))))))) (native-inputs (list python-django python-django-cleanup python-django-svg-image-form-field python-pillow python-pycairo)) (propagated-inputs (list adwaita-icon-theme dbus gstreamer gtk python python-django python-django-cleanup python-django-svg-image-form-field python-pillow python-pycairo python-pygobject yelp)) (home-page "https://luis-felipe.gitlab.io/mazo/") (synopsis "Memorize concepts using multimedia flash cards") (description "Mazo is a learning application that helps you memorize simple concepts using multimedia flash cards and spaced reviews.") (license license:public-domain))) (define-public tagainijisho (package (name "tagainijisho") (version "1.2.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/Gnurou/tagainijisho/releases/download/" version "/tagainijisho-" version ".tar.gz")) (sha256 (base32 "00whfcnpn42asxmafcfbcmpwfwyv40qaqdk28psa1vp0lainmyhh")))) (build-system qt-build-system) (arguments (list #:tests? #f)) ;no test target (native-inputs (list qttools-5)) (synopsis "Japanese dictionary and learning assistant") (description "Tagaini Jisho is a Japanese dictionary and kanji lookup tool. It aims at becoming your Japanese study assistant. It allows you to quickly search for entries and mark those that you wish to study, along with tags and personal notes. It also let you train entries you are studying and follows your progression in remembering them. Finally, it makes it easy to review entries you did not remember by listing them on screen or printing them on a small booklet. Tagaini Jisho also features complete stroke order animations for more than 6000 kanji.") (home-page "https://www.tagaini.net") (license license:gpl3+)))
generated by cgit