gnu: arcan: Restyle format.
* gnu/packages/arcan.scm (arcan): Run 'guix style' over the package and manually break some long lines. Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Ahmad Draidi
Maxim Cournoyer
parent
076660f2ef
commit
c3e001f368
|
|
@ -59,108 +59,110 @@
|
||||||
#:use-module (srfi srfi-1))
|
#:use-module (srfi srfi-1))
|
||||||
|
|
||||||
(define-public arcan
|
(define-public arcan
|
||||||
(package
|
(package
|
||||||
(name "arcan")
|
(name "arcan")
|
||||||
(version "0.6.2.1")
|
(version "0.6.2.1")
|
||||||
(source (origin
|
(source (origin
|
||||||
(method git-fetch)
|
(method git-fetch)
|
||||||
(file-name (git-file-name name version))
|
(file-name (git-file-name name version))
|
||||||
(uri (git-reference
|
(uri (git-reference
|
||||||
(url "https://github.com/letoram/arcan")
|
(url "https://github.com/letoram/arcan")
|
||||||
(commit version)))
|
(commit version)))
|
||||||
(sha256
|
(sha256
|
||||||
(base32 "14wwb7mgq8ab39dfprps7hzdz7a37r3cl8dc5q6m1r8n5daxyzgc"))
|
(base32
|
||||||
(modules '((guix build utils)))
|
"14wwb7mgq8ab39dfprps7hzdz7a37r3cl8dc5q6m1r8n5daxyzgc"))
|
||||||
(snippet
|
(modules '((guix build utils)))
|
||||||
;; Remove some bundled packages.
|
(snippet
|
||||||
#~(begin
|
;; Remove some bundled packages.
|
||||||
(delete-file-recursively "external/git")
|
#~(begin
|
||||||
(delete-file-recursively "external/lua")
|
(delete-file-recursively "external/git")
|
||||||
(delete-file-recursively "external/sqlite")))))
|
(delete-file-recursively "external/lua")
|
||||||
(build-system cmake-build-system)
|
(delete-file-recursively "external/sqlite")))))
|
||||||
(arguments
|
(build-system cmake-build-system)
|
||||||
(list #:configure-flags #~'("-DBUILD_PRESET=everything"
|
(arguments
|
||||||
"-DDISTR_TAG='Guix'")
|
(list #:configure-flags #~'("-DBUILD_PRESET=everything"
|
||||||
#:phases #~(modify-phases %standard-phases
|
"-DDISTR_TAG='Guix'")
|
||||||
(add-after 'unpack 'patch-paths
|
#:phases #~(modify-phases %standard-phases
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(add-after 'unpack 'patch-paths
|
||||||
(substitute* "src/platform/posix/paths.c"
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(("/usr/local")
|
(substitute* "src/platform/posix/paths.c"
|
||||||
(assoc-ref outputs "out")))))
|
(("/usr/local")
|
||||||
;; Normally, it tries to fetch patched openal with git
|
(assoc-ref outputs "out")))))
|
||||||
;; but copying files manually in the right place seems to work too.
|
;; Normally, it tries to fetch patched openal with git
|
||||||
(add-after 'unpack 'prepare-static-openal
|
;; but copying files manually in the right place seems
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
;; to work too.
|
||||||
(let ((arcan-openal (assoc-ref inputs
|
(add-after 'unpack 'prepare-static-openal
|
||||||
"arcan-openal")))
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(copy-recursively arcan-openal
|
(let ((arcan-openal (assoc-ref inputs
|
||||||
"external/git/openal")) #t))
|
"arcan-openal")))
|
||||||
(add-after 'prepare-static-openal 'generate-man
|
(copy-recursively arcan-openal
|
||||||
(lambda _
|
"external/git/openal")) #t))
|
||||||
(with-directory-excursion "doc"
|
(add-after 'prepare-static-openal 'generate-man
|
||||||
(invoke "ruby" "docgen.rb" "mangen")) #t))
|
(lambda _
|
||||||
(add-before 'configure 'chdir
|
(with-directory-excursion "doc"
|
||||||
(lambda _
|
(invoke "ruby" "docgen.rb" "mangen")) #t))
|
||||||
(chdir "src") #t)))
|
(add-before 'configure 'chdir
|
||||||
#:tests? #f))
|
(lambda _
|
||||||
(inputs
|
(chdir "src") #t)))
|
||||||
`(("bash-minimal" ,bash-minimal)
|
#:tests? #f))
|
||||||
("espeak" ,espeak)
|
(inputs `(("bash-minimal" ,bash-minimal)
|
||||||
("ffmpeg" ,ffmpeg)
|
("espeak" ,espeak)
|
||||||
("freetype" ,freetype)
|
("ffmpeg" ,ffmpeg)
|
||||||
("gumbo-parser" ,gumbo-parser)
|
("freetype" ,freetype)
|
||||||
("harfbuzz" ,harfbuzz)
|
("gumbo-parser" ,gumbo-parser)
|
||||||
("jbig2dec" ,jbig2dec)
|
("harfbuzz" ,harfbuzz)
|
||||||
("leptonica" ,leptonica)
|
("jbig2dec" ,jbig2dec)
|
||||||
("libdrm" ,libdrm)
|
("leptonica" ,leptonica)
|
||||||
("libjpeg-turbo" ,libjpeg-turbo)
|
("libdrm" ,libdrm)
|
||||||
("libseccomp" ,libseccomp)
|
("libjpeg-turbo" ,libjpeg-turbo)
|
||||||
("libusb" ,libusb)
|
("libseccomp" ,libseccomp)
|
||||||
("libvnc" ,libvnc)
|
("libusb" ,libusb)
|
||||||
("libxkbcommon" ,libxkbcommon)
|
("libvnc" ,libvnc)
|
||||||
("luajit" ,luajit)
|
("libxkbcommon" ,libxkbcommon)
|
||||||
("mupdf" ,mupdf)
|
("luajit" ,luajit)
|
||||||
("openal" ,openal)
|
("mupdf" ,mupdf)
|
||||||
("openjpeg" ,openjpeg)
|
("openal" ,openal)
|
||||||
("sdl2" ,sdl2)
|
("openjpeg" ,openjpeg)
|
||||||
("sqlite" ,sqlite)
|
("sdl2" ,sdl2)
|
||||||
("tesseract-ocr" ,tesseract-ocr)
|
("sqlite" ,sqlite)
|
||||||
("vlc" ,vlc)
|
("tesseract-ocr" ,tesseract-ocr)
|
||||||
("wayland" ,wayland)
|
("vlc" ,vlc)
|
||||||
("wayland-protocols" ,wayland-protocols)
|
("wayland" ,wayland)
|
||||||
("xcb-util" ,xcb-util)
|
("wayland-protocols" ,wayland-protocols)
|
||||||
("xcb-util-wm" ,xcb-util-wm)
|
("xcb-util" ,xcb-util)
|
||||||
("zlib" ,zlib)
|
("xcb-util-wm" ,xcb-util-wm)
|
||||||
;; To build arcan_lwa, we need a patched version of openal.
|
("zlib" ,zlib)
|
||||||
;; https://github.com/letoram/arcan/wiki/packaging
|
;; To build arcan_lwa, we need a patched version of openal.
|
||||||
("arcan-openal" ,(origin
|
;; https://github.com/letoram/arcan/wiki/packaging
|
||||||
(method git-fetch)
|
("arcan-openal"
|
||||||
(file-name "arcan-openal-0.6.2")
|
,(origin
|
||||||
(uri (git-reference
|
(method git-fetch)
|
||||||
(url "https://github.com/letoram/openal")
|
(file-name "arcan-openal-0.6.2")
|
||||||
(commit "0.6.2")))
|
(uri (git-reference (url
|
||||||
(sha256
|
"https://github.com/letoram/openal")
|
||||||
(base32
|
(commit "0.6.2")))
|
||||||
"0vg3fda47q2dk1n43ijcc64q39z044pa8h6scmfyi22g6r6bfw2z"))))))
|
(sha256
|
||||||
(native-inputs
|
(base32
|
||||||
(list pkg-config ruby)) ; For documentation and testing
|
"0vg3fda47q2dk1n43ijcc64q39z044pa8h6scmfyi22g6r6bfw2z"))))))
|
||||||
(home-page "https://arcan-fe.com")
|
(native-inputs (list pkg-config ruby)) ;For documentation and testing
|
||||||
(synopsis "Display server, multimedia framework and game engine")
|
(home-page "https://arcan-fe.com")
|
||||||
(description "Arcan is a development framework for creating virtually
|
(synopsis "Display server, multimedia framework and game engine")
|
||||||
|
(description
|
||||||
|
"Arcan is a development framework for creating virtually
|
||||||
anything from user interfaces for specialized embedded applications
|
anything from user interfaces for specialized embedded applications
|
||||||
all the way to full-blown desktop environments. At its heart lies a multimedia
|
all the way to full-blown desktop environments. At its heart lies a multimedia
|
||||||
engine with a Lua scripting interface.")
|
engine with a Lua scripting interface.")
|
||||||
;; https://github.com/letoram/arcan/blob/master/COPYING
|
;; https://github.com/letoram/arcan/blob/master/COPYING
|
||||||
(license (list license:asl2.0
|
(license (list license:asl2.0
|
||||||
license:bsd-3
|
license:bsd-3
|
||||||
license:cc-by3.0
|
license:cc-by3.0
|
||||||
license:expat
|
license:expat
|
||||||
license:gpl2+
|
license:gpl2+
|
||||||
license:lgpl2.0
|
license:lgpl2.0
|
||||||
license:lgpl2.0+
|
license:lgpl2.0+
|
||||||
license:public-domain
|
license:public-domain
|
||||||
license:silofl1.1
|
license:silofl1.1
|
||||||
license:zlib))))
|
license:zlib))))
|
||||||
|
|
||||||
(define-public arcan-sdl
|
(define-public arcan-sdl
|
||||||
(package
|
(package
|
||||||
|
|
|
||||||
Reference in New Issue