dev.fron.io rc / 5afaafc
packages: fix multimc from games Tony Olagbaiye 5 months ago
2 changed file(s) with 34 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
4747 #:use-module (flat packages emacs)
4848 #:use-module (rde packages)
4949 #:use-module (rc packages discord)
50 #:use-module (rc packages minecraft)
5051 #:use-module (rc packages pipewire)
5152 #:use-module ((rc packages zsh) #:prefix zsh-)
5253 #:export (env))
111112 ncurses termite alacritty st dvtm-custom abduco-custom tmate
112113 alsa-utils pavucontrol pulsemixer
113114 taskwarrior mako adb fastboot
114 flatpak steam))
115 flatpak steam multimc))
115116 (services
116117 (cons*
117118 (service home-bash-service-type
00 (define-module (rc packages minecraft)
11 #:use-module (rc packages)
2 #:use-module (guix download)
23 #:use-module (guix gexp)
34 #:use-module (guix packages)
4 #:use-module (guix download)
5 #:use-module (guix utils)
56 #:use-module ((guix licenses) #:prefix license:)
67 #:use-module (guix build-system trivial)
78 #:use-module (gnu packages)
89 #:use-module (gnu packages bash)
910 #:use-module (gnu packages java)
10 #:export (minecraft-server))
11 #:use-module (gnu packages qt)
12 #:use-module ((games packages minecraft) #:prefix games:)
13 #:export (multimc minecraft-server))
14
15 (define multimc
16 (package
17 (inherit games:multimc)
18 (arguments
19 (substitute-keyword-arguments (package-arguments games:multimc)
20 ((#:phases phases)
21 `(modify-phases ,phases
22 (add-after 'patch-paths 'repatch-paths-with-java
23 (lambda* (#:key inputs outputs #:allow-other-keys)
24 (let* ((out (assoc-ref outputs "out"))
25 (bin (string-append out "/bin"))
26 (exe (string-append bin "/multimc"))
27 (java (assoc-ref inputs "java")))
28 (wrap-program exe
29 `("PATH" ":" prefix (,(string-append java "/bin"))))
30 #t)))))))
31 (native-inputs
32 (assoc-set!
33 (package-native-inputs games:multimc)
34 "jdk" (list icedtea "jdk")))
35 (inputs
36 (cons*
37 `("java" ,openjdk16 "jdk")
38 (assoc-set!
39 (assoc-remove! (package-inputs games:multimc) "jdk")
40 "qtbase" (list qtbase-5))))))
1141
1242 (define* (make-minecraft-server
1343 #:key (mc-version "1.17")