me/guix
Archived
1
0
Fork 0
Code Activity

gnu: brltty: Use G-expressions.

Browse source 
* gnu/packages/accessibility.scm (brltty)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-16 02:00:01 +02:00
parent 448e75ff9b
commit fdfea4c4ed
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 40 additions and 50 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

90
gnu/packages/accessibility.scm
View file

@ -103,56 +103,46 @@ terminals.")
(base32 "1z54rin4zhg3294pq47gamzjy2c56zfkl07rx2qy2khlpyczds0k")))) (base32 "1z54rin4zhg3294pq47gamzjy2c56zfkl07rx2qy2khlpyczds0k"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:tests? #f ; No target (list
#:tests? #f ; no target
;; High parallelism may cause errors such as: ;; High parallelism may cause errors such as:
;; ranlib: ./libbrlapi_stubs.a: error reading brlapi_stubs.o: file truncated ;; ranlib: ./libbrlapi_stubs.a: error reading brlapi_stubs.o: file truncated
#:parallel-build? #f #:parallel-build? #f
#:configure-flags
#:configure-flags #~(list
(list (string-append "--with-libbraille="
(string-append "--with-libbraille=" #$(this-package-input "libbraille"))
(assoc-ref %build-inputs "libbraille")) (string-append "--with-espeak_ng="
(string-append "--with-espeak_ng=" #$(this-package-input "espeak-ng"))
(assoc-ref %build-inputs "espeak-ng")) (string-append "--with-espeak="
(string-append "--with-espeak=" #$(this-package-input "espeak"))
(assoc-ref %build-inputs "espeak")) (string-append "--with-flite="
(string-append "--with-flite=" #$(this-package-input "flite"))
(assoc-ref %build-inputs "flite")) ;; Required for RUNPATH validation.
;; Required for RUNPATH validation. (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib"))
(string-append "LDFLAGS=-Wl,-rpath=" #:make-flags
(assoc-ref %outputs "out") #~(list
"/lib")) (string-append "JAVA_JAR_DIR=" #$output)
#:make-flags (string-append "JAVA_JNI_DIR=" #$output)
(list (string-append "OCAML_DESTDIR=" #$output "/lib")
(string-append "JAVA_JAR_DIR=" (string-append "PYTHON_PREFIX=" #$output)
(assoc-ref %outputs "out")) "PYTHON_ROOT=/"
(string-append "JAVA_JNI_DIR=" (string-append "TCL_DIR=" #$output "/lib")
(assoc-ref %outputs "out")) "INSTALL_WRITABLE_DIRECTORY=no-thanks")
(string-append "OCAML_DESTDIR=" #:phases
(assoc-ref %outputs "out") #~(modify-phases %standard-phases
"/lib") (add-after 'unpack 'fix-errors
(string-append "PYTHON_PREFIX=" (lambda _
(assoc-ref %outputs "out")) (substitute* "configure"
"PYTHON_ROOT=/" (("/sbin/ldconfig")
(string-append "TCL_DIR=" (which "true")))
(assoc-ref %outputs "out") ;; Make Python bindings use rpath.
"/lib") (substitute* "Bindings/Python/setup.py.in"
"INSTALL_WRITABLE_DIRECTORY=no-thanks") (("extra_compile_args =")
#:phases (string-append "extra_link_args = ['-Wl,-rpath="
(modify-phases %standard-phases #$output
(add-after 'unpack 'fix-errors "/lib'], "
(lambda* (#:key outputs #:allow-other-keys) "extra_compile_args = "))))))))
(substitute* "configure"
(("/sbin/ldconfig")
(which "true")))
;; Make Python bindings use rpath.
(substitute* "Bindings/Python/setup.py.in"
(("extra_compile_args =")
(string-append "extra_link_args = ['-Wl,-rpath="
(assoc-ref outputs "out")
"/lib'], "
"extra_compile_args = "))))))))
(native-inputs (native-inputs
(list clisp (list clisp
python-cython python-cython