ça passe dans laptop

packages/defs/ada.scm

@@ -0,0 +1,193 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
+;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
+;;; Copyright © 2016, 2018, 2021 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de>
+;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
+;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2021 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
+;;; Copyright © 2022 Peter Polidoro <peter@polidoro.io>
+;;;
+;;; 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 (ada)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bootstrap)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages multiprecision)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages elf)
+  #:use-module (guix build-system copy)
+  #:use-module (guix build utils)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module (ice-9 match)
+  #:use-module (ice-9 regex)
+  #:use-module (ice-9 popen))
+
+(define-public libgnat-bootstrap
+  (package
+    (name "libgnat-bootstrap")
+    (version "10.3.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://us.archive.trisquel.info/trisquel/pool/main/g/"
+                                  "gcc-10/libgnat-10_"
+                                  version
+                                  "-15ubuntu1_amd64.deb"))
+              (sha256
+               (base32
+                "1grd7k4qjdclj12lqvrm5iamqixf0f5292zigrp4q9b3r509q13x"))))
+    (build-system copy-build-system)
+    (arguments
+     (list
+      #:validate-runpath? #f
+      #:phases
+      #~(modify-phases %standard-phases
+         (replace 'unpack
+           (lambda* (#:key source #:allow-other-keys)
+             (invoke "ar" "x" source)
+             (invoke "tar" "axvf" "data.tar.zst")
+             ;(invoke "mv" "usr/bin" "bin")
+             (invoke "mv" "usr/lib" "lib")
+             (invoke "mv" "usr/share" "share")
+             ;(invoke "mv" "usr/x86_64-linux-gnu" "x86_64-linux-gnu")
+             (invoke "rm" "control.tar.zst")
+             (invoke "rm" "debian-binary")
+             (invoke "rm" "data.tar.zst")
+             (invoke "rm" "-r" "usr")
+             #t))
+          (add-after 'install 'wrap
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (gnat (string-append out "/bin/gnat")))
+                 (wrap-program gnat ))))
+          ;(add-after 'install 'fix-rpath
+          ; (lambda* (#:key outputs #:allow-other-keys)
+          ;   (let ((libdir (string-append (assoc-ref outputs "out") "/lib")))
+          ;     (for-each
+          ;      (lambda (file)
+          ;        (let* ((pipe (open-pipe* OPEN_READ "patchelf"
+          ;                                "--print-rpath" file))
+          ;               (line (read-line pipe)))
+          ;          (and (zero? (close-pipe pipe))
+          ;               (invoke "patchelf" "--set-rpath"
+          ;                       (string-append libdir ":" line)
+          ;                       file))))
+          ;      (find-files libdir ".*\\.so$")))))
+                )))
+    (inputs
+      (list
+        libgccjit
+        gcc))        
+    (native-inputs
+      (list
+        zstd
+        patchelf))
+    (home-page "https://gnu.org/software/gnat")
+    (synopsis "Ada language compiler")
+    (description (string-append "GNAT is a compiler for the Ada programming language."
+                 "It produces optimized code on platforms supported by the GNU"
+                 "Compiler Collection (GCC). The libgnat library provides runtime"
+                 "components needed by most applications produced with GNAT."))
+    (license license:gpl3)))
+
+(define-public gnat-bootstrap
+  (package
+    (name "gnat-bootstrap")
+    (version "10.3.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://us.archive.trisquel.info/trisquel/pool/main/g/"
+                                  "gcc-10/gnat-10_"
+                                  version
+                                  "-15ubuntu1_amd64.deb"))
+              (sha256
+               (base32
+                "0b8fmqwbgpg0fy2f27z2gz6lnha4nqil30bbzhrmasai98l4mcpp"))))
+    (build-system copy-build-system)
+    (arguments
+     (list
+      #:validate-runpath? #f
+      #:phases
+      #~(modify-phases %standard-phases
+         (replace 'unpack
+           (lambda* (#:key source #:allow-other-keys)
+             (invoke "ar" "x" source)
+             (invoke "tar" "axvf" "data.tar.zst")
+             (invoke "mv" "usr/bin" "bin")
+             (invoke "mv" "usr/lib" "lib")
+             (invoke "mv" "usr/share" "share")
+             ;(invoke "mv" "usr/x86_64-linux-gnu" "x86_64-linux-gnu")
+             (invoke "rm" "control.tar.zst")
+             (invoke "rm" "debian-binary")
+             (invoke "rm" "data.tar.zst")
+             (invoke "rm" "-r" "usr")
+             #t))
+        (add-after 'install 'input-symlink
+          (lambda* (#:key inputs outputs #:allow-other-keys)
+            ;(setenv "CONFIG_SHELL" (which "bash"))
+            ;(setenv "LD_LIBRARY_PATH" 
+            ;(string-append (assoc-ref inputs "gmp") "/lib"))
+            ;invoke "patchelf" "--set-interpreter" 
+            ;        (search-input-file inputs #$(glibc-dynamic-linker))
+            ;        (string-append (assoc-ref inputs "libgnat-bootstrap") 
+            ;                        "/lib/x86_64-linux-gnu/libgnarl-10.so"))
+            ;(invoke "patchelf" "--set-interpreter" 
+            ;        (search-input-file inputs #$(glibc-dynamic-linker))
+            ;        (string-append (assoc-ref inputs "libgnat-bootstrap") 
+            ;                        "/lib/x86_64-linux-gnu/libgnat-10.so"))
+            (invoke "echo" (string-append (assoc-ref inputs "libgnat-bootstrap") 
+                                    "/lib/x86_64-linux-gnu/libgnarl-10.so"))
+            (invoke "echo" (string-append (assoc-ref outputs "out") 
+                                    "/lib/x86_64-linux-gnu/libgnarl-10.so"))
+            (symlink (string-append (assoc-ref inputs "libgnat-bootstrap") 
+                                    "/lib/x86_64-linux-gnu/libgnarl-10.so")
+                     (string-append (assoc-ref outputs "out") 
+                                    "/lib/x86_64-linux-gnu/libgnarl-10.so"))
+
+            (symlink (string-append (assoc-ref inputs "libgnat-bootstrap") 
+                                    "/lib/x86_64-linux-gnu/libgnat-10.so")
+                     (string-append (assoc-ref outputs "out") 
+                                    "/lib/x86_64-linux-gnu/libgnat-10.so"))
+          #t)))))
+    (inputs
+      (list
+        libgnat-bootstrap
+        elfutils
+        gmp
+        isl
+        mpc
+        mpfr
+        libgccjit
+        zstd
+        zlib))        
+    (native-inputs
+      (list
+        zstd
+        patchelf))
+    (home-page "https://gnu.org/software/gnat")
+    (synopsis "Ada language compiler")
+    (description " GNAT is a compiler for the Ada programming language. It produces optimized code on platforms supported by the GNU Compiler Collection (GCC). The libgnat library provides runtime components needed by most applications produced with GNAT. ")
+    (license license:gpl3)))

packages/defs/brainparty.scm

@@ -0,0 +1,49 @@
+(define-module (brainparty)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages sdl)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages audio)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages game-development)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages xorg)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build utils)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (guix utils))
+
+(define-public brainparty
+  (package
+    (name "brainparty")
+    (version "0.61")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://launchpad.net/brainparty/trunk/"
+                                  version "/+download/brainparty" version ".tar.gz"))
+              (sha256
+               (base32 "09d6f43d7ij8xfimc9pqhml7d7k16dfyv8wgn98m94szniivac39"))))
+    (build-system gnu-build-system)
+    (inputs `(("sdl" ,sdl)
+              ("sdl-image" ,sdl-image)
+              ("sdl-mixer" ,sdl-mixer)
+              ("sdl-ttf" ,sdl-ttf)
+              ("sdl-gfx" ,sdl-gfx)
+              ("mesa" ,mesa) ; For OpenGL support
+              ("glu" ,glu)))
+    (arguments
+     `(#:phases (modify-phases %standard-phases
+        (delete 'configure))))
+    (home-page "https://launchpad.net/brainparty")
+    (synopsis "Brain Party - a fun, free puzzle game for all the family")
+    (description "Brain Party is a fun, free puzzle game for all the family 
+                  that's made up of 36 minigames designed to push your brain to its limits 
+                  by testing memory, logic, mathematics, reaction time and more!")
+    (license license:gpl3+)))

packages/defs/kdenlive-movit.scm

@@ -0,0 +1,239 @@
+(define-module (kdenlive-movit)
+ #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system cmake)
+  #:use-module (guix build-system qt)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages video)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages audio)
+  #:use-module (gnu packages photo)
+  #:use-module (gnu packages xiph)
+  #:use-module (gnu packages pulseaudio)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages algebra)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages kde-plasma)
+  #:use-module (gnu packages kde-frameworks)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages sdl)
+  #:use-module (gnu packages check)
+  #:use-module (gnu packages pkg-config))
+  
+(define-public movit
+  (package
+    (name "movit")
+    (version "1.7.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://movit.sesse.net/movit-" version
+                                  ".tar.gz"))
+              (sha256
+               (base32
+                "06n1zfqjq74c4b82v6jfpd07nh0m2lam3ks296nbdk7h0nvp6c5k"))))
+    (build-system gnu-build-system)
+    (arguments
+      (list 
+        #:tests? #f
+        #:make-flags #~'("GTEST_DIR=gtest/googletest")
+        #:phases
+         #~(modify-phases %standard-phases
+           (add-after 'unpack 'unpack-googletest
+             ;; Copy the googletest sources to where the build system expects them.
+             (lambda* (#:key inputs #:allow-other-keys)
+               (let ((source (assoc-ref inputs "googletest-source"))
+                     (target "gtest"))
+                 (mkdir-p target)
+                 (copy-recursively source target)
+               #t))))))
+    (native-inputs
+        `(("googletest-source" ,(package-source googletest))))
+    (inputs 
+      (list
+        pkg-config
+        googletest
+        libepoxy
+        sdl2
+        fftw
+        eigen))
+    (synopsis "Modern Video Toolkit, a high performance library for video filters")
+    (description
+     "Movit is the Modern Video Toolkit, notwithstanding that anything that's called “modern” usually isn't, and it's really not a toolkit. It aims to be a high-quality, high-performance, free software library for video filters.")
+    (home-page "https://movit.sesse.net")
+    (license license:gpl2)))
+    
+(define-public mlt-movit
+  (package
+    (name "mlt-movit")
+    (version "7.20.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/mltframework/mlt")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1dc09j8yvis6ilba5a13qicf6wbgxnzwllab6h48kzfl1lc0n8g7"))))
+    (build-system cmake-build-system)
+    (arguments
+     (list
+      #:tests? #f                       ;requires "Kwalify"
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'configure 'override-LDFLAGS
+            (lambda _
+              (setenv "LDFLAGS"
+                      (string-append "-Wl,-rpath=" #$output "/lib"))))
+          (add-after 'install 'wrap-executable
+            (lambda _
+              (let* ((frei0r #$(this-package-input "frei0r-plugins"))
+                     (ladspa #$(this-package-input "ladspa"))
+                     (movit #$(this-package-input "movit"))
+                     ;; In MLT 7, 'melt' symlinks to 'melt-7'.  Try to keep
+                     ;; compatibility with MLT 6 where it's only 'melt'.
+                     (major #$(version-major version))
+                     (exec (if (file-exists?
+                                (string-append #$output "/bin/melt-" major))
+                               (string-append "melt-" major)
+                               "melt")))
+                (wrap-program (string-append #$output "/bin/" exec)
+                  `("FREI0R_PATH" ":" =
+                    (,(string-append frei0r "/lib/frei0r-1")))
+                  `("LADSPA_PATH" ":" =
+                    (,(string-append ladspa "/lib/ladspa"))))))))))
+    (inputs
+     (list alsa-lib
+           `(,alsa-plugins "pulseaudio")
+           bash-minimal
+           ffmpeg
+           fftw
+           frei0r-plugins
+           gdk-pixbuf
+           gtk+
+           libxml2
+           jack-1
+           ladspa
+           libebur128
+           libexif
+           libvorbis
+           movit
+           eigen
+           rubberband
+           libsamplerate
+           pulseaudio
+           qtbase-5
+           qtsvg-5
+           rtaudio
+           sdl2
+           sdl2-image
+           sox
+           vidstab))
+    (native-inputs
+     (list pkg-config))
+    (home-page "https://www.mltframework.org/")
+    (synopsis "Author, manage, and run multitrack audio/video compositions")
+    (description
+     "MLT is a multimedia framework, designed and developed for television
+broadcasting.  It provides a toolkit for broadcasters, video editors, media
+players, transcoders, web streamers and many more types of applications.  The
+functionality of the system is provided via an assortment of ready to use
+tools, XML authoring components, and an extensible plug-in based API.")
+    (license license:lgpl2.1+)))
+    
+(define-public kdenlive-movit
+  (package
+    (name "kdenlive-movit")
+    (version "23.04.2")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://invent.kde.org/multimedia/kdenlive")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0dgrgnnq38nphfzbapr7dkb21lv4idqynxqmzv9x3maijmp1jjfr"))))
+    (build-system qt-build-system)
+    (arguments
+     ;; XXX: there is a single test that spawns other tests and
+     ;; 1/3 tests failed and 1/327 assertions failed.  It seems
+     ;; that individual tests can't be skipped.
+     (list
+      #:configure-flags #~(list "-DBUILD_TESTING=off")
+      #:tests? #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'wrap-executable
+            (lambda _
+              (let* ((ffmpeg #$(this-package-input "ffmpeg"))
+                     (frei0r #$(this-package-input "frei0r-plugins"))
+                     (ladspa #$(this-package-input "ladspa"))
+                     (qtbase #$(this-package-input "qtbase")))
+                (wrap-program (string-append #$output "/bin/kdenlive")
+                  `("PATH" ":" prefix
+                    ,(list (string-append ffmpeg "/bin")))
+                  `("FREI0R_PATH" ":" =
+                    (,(string-append frei0r "/lib/frei0r-1")))
+                  `("LADSPA_PATH" ":" =
+                    (,(string-append ladspa "/lib/ladspa")))
+                  `("QT_QPA_PLATFORM_PLUGIN_PATH" ":" =
+                    (,(string-append qtbase "/lib/qt5/plugins/platforms")))
+                  `("MLT_PREFIX" ":" =
+                    (,#$(this-package-input "mlt-movit"))))))))))
+    (native-inputs
+     (list extra-cmake-modules kdoctools pkg-config qttools-5))
+    (inputs
+     (list bash-minimal
+           breeze                       ; make dark them available easily
+           breeze-icons                 ; recommended icon set
+           ffmpeg
+           frei0r-plugins
+           karchive
+           kcrash
+           kdbusaddons
+           kdeclarative
+           kdoctools
+           kfilemetadata
+           kguiaddons
+           kiconthemes
+           kirigami
+           knewstuff
+           knotifications
+           knotifyconfig
+           kparts
+           kplotting
+           ladspa
+           mlt-movit
+           movit
+           rtaudio
+           purpose
+           qtbase-5
+           qtdeclarative-5
+           qtgraphicaleffects
+           qtmultimedia-5
+           qtnetworkauth-5
+           qtquickcontrols-5
+           qtquickcontrols2-5
+           qtscript
+           qtsvg-5
+           shared-mime-info))
+    (home-page "https://kdenlive.org")
+    (synopsis "Non-linear video editor")
+    (description "Kdenlive is an acronym for KDE Non-Linear Video Editor.
+
+Non-linear video editing is much more powerful than beginner's (linear)
+editors, hence it requires a bit more organization before starting.  However,
+it is not reserved to specialists and can be used for small personal
+projects.")
+    (license license:gpl2+)))

packages/defs/my_opengl_program.scm

@@ -0,0 +1,48 @@
+(define-module (my_opengl_program)
+  #:use-module (guix packages)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages commencement)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages bash)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages image))
+
+(define-public my_opengl_program
+  (package
+    (name "my_opengl_program")
+    (version "1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "file:///home/neox/Projets/compute_shader_test/archive.tar.xz"))
+              (sha256
+               (base32
+                "1zwpgis7py1bf8p88pz3mpai6a02qrdb8ww2fa9kxxdl9b8r2k81"))))
+    (build-system gnu-build-system)
+    (inputs
+     `(("bash" ,bash)
+       ("coreutils" ,coreutils)
+       ("gcc-toolchain" ,gcc-toolchain)
+       ("pkg-config" ,pkg-config)
+       ("findutils" ,findutils)
+       ("make" ,make)
+       ("glu" ,glu)
+       ("glew" ,glew)
+       ("glfw" ,glfw)
+       ("mesa-headers" ,mesa-headers)
+       ("mesa" ,mesa)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'patch-source
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (substitute* "path/to/source/file.c"
+               (("WIDTH 512") (string-append "WIDTH " (number->string WIDTH)))
+               (("HEIGHT 512") (string-append "HEIGHT " (number->string HEIGHT))))
+             #t)))))
+    (home-page "https://example.com/my-opengl-program")
+    (synopsis "My OpenGL Program")
+    (description "A program that uses OpenGL compute shaders to blur an image without display.")
+    (license license:gpl3)))

packages/defs/nitrocli-nk3.scm

@@ -0,0 +1,314 @@
+(define-module (nitrocli-nk3)
+  #:use-module (gnu packages)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module (guix git-download)
+  #: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 pyproject)
+  #:use-module (guix build-system python)
+  #:use-module (guix build-system qt)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages check)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages crates-io)
+  #:use-module (gnu packages docbook)
+  #:use-module (gnu packages documentation)
+  #:use-module (gnu packages dns)
+  #:use-module (gnu packages flex)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages graphviz)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gnupg)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages libusb)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages lua)
+  #:use-module (gnu packages man)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages cyrus-sasl)
+  #:use-module (gnu packages popt)
+  #:use-module (gnu packages readline)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages tex)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages python-build)
+  #:use-module (gnu packages python-crypto)
+  #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages swig)
+  #:use-module (gnu packages suckless)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages xml))
+
+(define-public rust-libudev-sys-custom
+  (package
+    (name "rust-libudev-sys-custom")
+    (version "0.1.4")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "libudev-sys" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "09236fdzlx9l0dlrsc6xx21v5x8flpfm3d5rjq9jr5ivlas6k11w"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Tests want font files.
+       #:cargo-inputs
+       (("rust-pkg-config" ,rust-pkg-config-0.3)
+       ("rust-libc-0.2" ,rust-libc-0.2))))
+    (inputs
+     (list eudev pkg-config))
+    (home-page "https://github.com/d-e-s-o/nitrocli")
+    (synopsis "Command line tool for Nitrokey devices")
+    (description
+     "nitrocli-nk3 is a program that provides a command line interface
+for interaction with Nitrokey 3")
+    (license license:gpl3+)))
+
+(define-public rust-udev-custom
+  (package
+    (name "rust-udev-custom")
+    (version "0.7.0")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "udev" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "06hr927z0fdn7ay0p817b9x19i5fagmpmvz95yhl4d1pf3bbpgaf"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Tests want font files.
+       #:cargo-inputs
+       (("rust-io-lifetimes" ,rust-io-lifetimes-1)
+       ("rust-mio" ,rust-mio-0.8)
+       ("rust-pkg-config" ,rust-pkg-config-0.3)
+       ("rust-libudev-sys-custom" ,rust-libudev-sys-custom)
+       ("rust-libc-0.2" ,rust-libc-0.2))))
+    (inputs
+     (list pkg-config eudev))
+    (home-page "https://github.com/d-e-s-o/nitrocli")
+    (synopsis "Command line tool for Nitrokey devices")
+    (description
+     "nitrocli-nk3 is a program that provides a command line interface
+for interaction with Nitrokey 3")
+    (license license:gpl3+)))
+    
+
+(define-public rust-hidapi-custom
+  (package
+    (name "rust-hidapi-custom")
+    (version "1.4.1")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "hidapi" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "08kqkz9vcayylfsp0w63svaz0vff3p6vyrhpp3g9h6b98drp3c9q"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Tests want font files.
+       #:cargo-inputs
+       (("rust-cc" ,rust-cc-1)
+       ("rust-pkg-config" ,rust-pkg-config-0.3)
+       ("rust-nix" ,rust-nix-0.26)
+       ("rust-udev-custom" ,rust-udev-custom)
+       ("rust-libc-0.2" ,rust-libc-0.2))))
+    (inputs
+     (list hidapi gnupg eudev pkg-config libusb))
+    (home-page "https://github.com/d-e-s-o/nitrocli")
+    (synopsis "Command line tool for Nitrokey devices")
+    (description
+     "nitrocli-nk3 is a program that provides a command line interface
+for interaction with Nitrokey 3")
+    (license license:gpl3+)))
+
+(define-public rust-ctaphid-types-custom
+  (package
+    (name "rust-ctaphid-types-custom")
+    (version "0.2.0")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "ctaphid-types" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0l4k4gry2aik77ra55kys3n52s0avds6gapcklmm6d2idpccs527"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Tests want font files.
+       #:cargo-inputs
+       (("rust-bitflags" ,rust-bitflags-1)
+       ("rust-quickcheck" ,rust-quickcheck-1))))
+    (home-page "https://github.com/d-e-s-o/nitrocli")
+    (synopsis "Command line tool for Nitrokey devices")
+    (description
+     "nitrocli-nk3 is a program that provides a command line interface
+for interaction with Nitrokey 3")
+    (license license:gpl3+)))
+
+(define-public rust-ctaphid-custom
+  (package
+    (name "rust-ctaphid-custom")
+    (version "0.3.1")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "ctaphid" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "04gyyxgplp3wwlr6g6m34lqpbp1x5dalp1bha794hzklw51jfqma"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Tests want font files.
+       #:cargo-inputs
+       (("rust-pkg-config" ,rust-pkg-config-0.3)
+       ("rust-hidapi-custom" ,rust-hidapi-custom)
+       ("rust-log" ,rust-log-0.4)
+       ("rust-rand-core" ,rust-rand-core-0.6)
+       ("rust-ctaphid-types-custom" ,rust-ctaphid-types-custom)
+       ("rust-hex" ,rust-hex-0.4)
+       ("rust-env-logger" ,rust-env-logger-0.9)
+       ("rust-tap" ,rust-tap-1)
+       ("rust-serde-cbor" ,rust-serde-cbor-0.11)
+       ("rust-once-cell" ,rust-once-cell-1)
+       ("rust-libc-0.2" ,rust-libc-0.2))))
+    (inputs
+     (list eudev pkg-config))
+    (home-page "https://github.com/d-e-s-o/nitrocli")
+    (synopsis "Command line tool for Nitrokey devices")
+    (description
+     "nitrocli-nk3 is a program that provides a command line interface
+for interaction with Nitrokey 3")
+    (license license:gpl3+)))
+
+(define-public rust-nitrokey3-custom
+  (package
+    (name "rust-nitrokey3-custom")
+    (version "0.3.0")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "nitrokey3" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0g75qfwvbfl4dg3zq2pdf06n5lwhmvqnl64jmisqvynqncksh4w0"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Tests want font files.
+       #:cargo-inputs
+       (("rust-pkg-config" ,rust-pkg-config-0.3)
+       ("rust-hidapi-custom" ,rust-hidapi-custom)
+       ("rust-ctaphid-custom" ,rust-ctaphid-custom)
+       ("rust-log" ,rust-log-0.4)
+       ("rust-tap" ,rust-tap-1))))
+    (home-page "https://github.com/d-e-s-o/nitrocli")
+    (synopsis "Command line tool for Nitrokey devices")
+    (description
+     "nitrocli-nk3 is a program that provides a command line interface
+for interaction with Nitrokey 3")
+    (license license:gpl3+)))
+
+(define-public nitrocli-nk3
+  (package
+    (name "nitrocli-nk3")
+    (version "main")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                (url "https://git.sr.ht/~ireas/nitrocli-nk3")
+                (commit version)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0pipwxf166lkc3kjrnl6qfmjavwbhx4l7l9qk86l6g51l8qzq15d"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f ;; 2/164 tests fail, nitrocli-ext tests failing
+       #:cargo-inputs
+       (("rust-anyhow" ,rust-anyhow-1)
+        ("rust-base32" ,rust-base32-0.4)
+        ("rust-directories" ,rust-directories-3)
+        ("rust-envy" ,rust-envy-0.4)
+        ("rust-libc-0.2" ,rust-libc-0.2)
+        ("rust-merge" ,rust-merge-0.1)
+        ("rust-nitrokey3-custom" ,rust-nitrokey3-custom)
+        ("rust-progressing" ,rust-progressing-3)
+        ("rust-serde" ,rust-serde-1)
+        ("rust-structopt" ,rust-structopt-0.3)
+        ("rust-termion" ,rust-termion-1)
+        ("rust-hex" ,rust-hex-0.4)
+        ("rust-hidapi-custom" ,rust-hidapi-custom)
+        ("rust-toml" ,rust-toml-0.5))
+       #:cargo-development-inputs
+       (("rust-nitrokey-test" ,rust-nitrokey-test-0.5)
+        ("rust-nitrokey-test-state" ,rust-nitrokey-test-state-0.1)
+        ("rust-regex" ,rust-regex-1)
+        ("rust-tempfile" ,rust-tempfile-3))))
+    (inputs
+     (list hidapi gnupg pkg-config))
+    (home-page "https://github.com/d-e-s-o/nitrocli")
+    (synopsis "Command line tool for Nitrokey devices")
+    (description
+     "nitrocli-nk3 is a program that provides a command line interface
+for interaction with Nitrokey 3")
+    (license license:gpl3+)))
+
+(define-public nitrocli-custom
+  (package
+    (name "nitrocli-custom")
+    (version "devel")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                (url "https://github.com/d-e-s-o/nitrocli")
+                (commit version)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0xy169qf5vckvzx48lmkcpd83pw5crnvfl8a7p5wp2cbkrl60pnc"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f ;; 2/164 tests fail, nitrocli-ext tests failing
+       #:cargo-inputs
+       (("rust-anyhow" ,rust-anyhow-1)
+        ("rust-base32" ,rust-base32-0.4)
+        ("rust-directories" ,rust-directories-4)
+        ("rust-envy" ,rust-envy-0.4)
+        ("rust-libc-0.2" ,rust-libc-0.2)
+        ("rust-merge" ,rust-merge-0.1)
+        ("rust-nitrokey" ,rust-nitrokey-0.9)
+        ("rust-progressing" ,rust-progressing-3)
+        ("rust-serde" ,rust-serde-1)
+        ("rust-structopt" ,rust-structopt-0.3)
+        ("rust-termion" ,rust-termion-1)
+        ("rust-toml" ,rust-toml-0.5))
+       #:cargo-development-inputs
+       (("rust-nitrokey-test" ,rust-nitrokey-test-0.5)
+        ("rust-nitrokey-test-state" ,rust-nitrokey-test-state-0.1)
+        ("rust-regex" ,rust-regex-1)
+        ("rust-tempfile" ,rust-tempfile-3))))
+    (inputs
+     (list hidapi gnupg))
+    (home-page "https://github.com/d-e-s-o/nitrocli")
+    (synopsis "Command line tool for Nitrokey devices")
+    (description
+     "nitrocli is a program that provides a command line interface
+for interaction with Nitrokey Pro, Nitrokey Storage, and Librem Key
+devices.")
+    (license license:gpl3+)))

packages/defs/speed-dreams.scm

@@ -0,0 +1,148 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
+;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
+;;; Copyright © 2016, 2018, 2021 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de>
+;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
+;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2021 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
+;;; Copyright © 2022 Peter Polidoro <peter@polidoro.io>
+;;;
+;;; 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 (speed-dreams)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages graphics)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages xiph)
+  #:use-module (gnu packages sdl)
+  #:use-module (gnu packages audio)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages game-development)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages xorg)
+  #:use-module (guix build-system cmake)
+  #:use-module (guix build-system trivial)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build utils)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (guix utils))
+
+(define-public plib-fpic
+  (package
+    (name "plib-fpic")
+    (version "1.8.5")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://plib.sourceforge.net/dist/"
+                                  "plib-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0cha71mflpa10vh2l7ipyqk67dq2y0k5xbafwdks03fwdyzj4ns8"))
+              (patches (search-patches "plib-CVE-2011-4620.patch"
+                                       "plib-CVE-2012-4552.patch"))))
+    (build-system gnu-build-system)
+    (arguments
+       (list
+        #:make-flags
+        #~(list
+          "CFLAGS=-fPIC"
+          "CXXFLAGS=-fPIC")))
+    (inputs
+     (list mesa libxi libxmu))
+    (native-inputs
+     (list pkg-config))
+    (home-page "https://plib.sourceforge.net/")
+    (synopsis "Suite of portable game libraries")
+    (description "PLIB is a set of libraries that will permit programmers to
+write games and other realtime interactive applications that are 100% portable
+across a wide range of hardware and operating systems.  PLIB includes sound
+effects, music, a complete 3D engine, font rendering, a simple Windowing
+library, a game scripting language, a GUI, networking, 3D math library and a
+collection of handy utility functions.  All are 100% portable across nearly
+all modern computing platforms.  Each library component is fairly independent
+of the others")
+    (license license:lgpl2.0+)))
+
+
+(define-public speed-dreams
+  (package
+    (name "speed-dreams")
+    (version "2.3.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://forge.chalec.org/neox/speed-dreams")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+         (base32 "0w9l6lg4d20jiddkp1599l3hvy3y1745qv8pzb137kn8j2lz73c0"))))
+    (build-system cmake-build-system)
+    (arguments
+     (list
+      #:configure-flags
+      #~(list
+        "-DOPTION_UNLOAD_SSGGRAPH:BOOL=ON"
+        "-DCMAKE_CXX_FLAGS=-march=native"
+        "-DCMAKE_BUILD_TYPE=Release"
+        "-DOPTION_OFFICIAL_ONLY:BOOL=ON")
+      #:phases
+      #~(modify-phases %standard-phases
+         ;(add-after 'unpack 'make-git-checkout-writable
+          ;(lambda* (#:key inputs #:allow-other-keys)
+            ;(make-file-writable "CMakeLists.txt")))
+         ;(add-after 'unpack 'apply-patches
+          ;(lambda* (#:key inputs #:allow-other-keys)
+            ;(invoke "patch" "--force" "-p1" 
+                    ;"speed-dreams-add-desktop-entry.patch")))
+        (delete 'validate-runpath)
+        (delete 'check))))
+    (native-inputs
+      (list
+        pkg-config))
+    (inputs
+      (list
+        openscenegraph
+        freeglut
+        libvorbis
+        sdl2
+        sdl2-mixer
+        openal
+        enet
+        expat
+        ijg-libjpeg
+        plib-fpic
+        libpng
+        curl))
+    (license license:gpl2)
+    (synopsis "SPEED")
+    (description
+      "SPEEEEEED.")
+    (home-page "https://www.speed-dreams.net/en/")))
+
+

packages/defs/xmlcopyeditor.scm

@@ -0,0 +1,83 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2023 Adrien 'neox' Bourmault <neox@gnu.org>
+;;;
+;;; 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 (xmlcopyeditor)
+  #:use-module ((guix licenses)
+                #:select (gpl3+ lgpl2.0+ lgpl3+ public-domain))
+  #:use-module (gnu packages)
+  #:use-module (gnu packages aspell)
+  #:use-module (gnu packages boost)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages wxwidgets)
+  #:use-module (gnu packages xml)
+  #:use-module (guix i18n)
+  #:use-module (guix utils)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system trivial)
+  #:use-module ((guix licenses) #:prefix license:))
+
+(define-public xmlcopyeditor
+  (package
+    (name "xmlcopyeditor")
+    (version "1.3.1.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri
+        (git-reference
+         (url "https://forge.chalec.org/neox/xml-copy-editor-code.git")
+         (commit version)))
+       (file-name
+        (git-file-name name version))
+       (sha256
+        (base32 "05fryg98knxlqsjgx3wwj6pqkw5nz6q5wgjcql8xdfxc2ggbcyb5"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f
+      #:configure-flags
+      #~(list 
+          (string-append 
+            "--prefix=" #$output)
+          (string-append
+            "--exec-prefix=" #$output))))
+    (native-inputs
+      (list
+        intltool
+        pkg-config))
+    (inputs
+      (list 
+        pcre2
+        wxwidgets
+        aspell
+        boost
+        xerces-c
+        libxml2
+        libxslt
+        expat))
+    (synopsis "XML Copy Editor")
+    (description
+     "Fast, free, validating XML editor.")
+    (home-page "https://xml-copy-editor.sourceforge.io/")
+    (license gpl3+)))