From 862ed34a048362c2682d82c32ea8c0ec4b2d6399 Mon Sep 17 00:00:00 2001
Message-Id: <862ed34a048362c2682d82c32ea8c0ec4b2d6399.1646522108.git.mail@nicolasgoaziou.fr>
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sun, 6 Mar 2022 00:14:25 +0100
Subject: [PATCH v2] gnu: Add openboard.
* gnu/packages/education.scm (openboard): New variable.
---
gnu/packages/education.scm | 126 +++++++++++++++++++++++++++++++++++++
1 file changed, 126 insertions(+)
@@ -543,6 +543,132 @@ (define-public childsplay
(home-page "http://www.schoolsplay.org")
(license license:gpl3+)))
+(define-public openboard
+ (let ((commit "3bd40ebe67c665950fffa4a7cee4943919f04add"))
+ (package
+ (name "openboard")
+ (version "1.7.0-a0255")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/OpenBoard-org/OpenBoard")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0kh2i02qgankda9ygq01bkm58fd2p6mcaddvw0ny901dg7a0qkbr"))))
+ (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-build-error
+ ;; XXX: `errorOpeningVirtualKeyboard' variable is only
+ ;; defined when building for OSX. Yet,
+ ;; "UBBoardController.cpp" relies on it unconditionally,
+ ;; resulting in a build failure. Here, we get rid of
+ ;; that variable, assuming it is always false (its
+ ;; default value when building for OSX).
+ (lambda _
+ (substitute* "src/board/UBBoardController.cpp"
+ (("if \\(!UBPlatformUtils::errorOpeningVirtualKeyboard\\)")
+ ""))))
+ (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/quazip")
+ (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))
+ (inputs
+ (list alsa-lib
+ ffmpeg
+ freetype
+ lame
+ libass
+ libfdk
+ libressl
+ libtheora
+ libva
+ libvorbis
+ libvpx
+ libx264
+ opus
+ poppler
+ qtbase-5
+ qtdeclarative
+ qtmultimedia
+ qtsvg
+ qtwebchannel
+ qtwebengine
+ 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 omnitux
(package
(name "omnitux")
--
2.34.0