guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: Add sbcl-mcclim-harfbuzz.

Browse source 
* gnu/packages/lisp-xyz.scm (sbcl-mcclim-harfbuzz): New variable.
This commit is contained in:
Guillaume Le Vaillant 2020-07-17 11:51:46 +02:00
parent db09401805
commit 892f1ef054
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gnu/packages/lisp-xyz.scm
View file

@ -12953,3 +12953,36 @@ specification}, a toolkit for writing GUIs in Common Lisp.")
(("\\(asdf:defsystem #:mcclim-fontconfig" all)
(string-append "(asdf:load-system :cffi-grovel)\n" all)))
#t)))))))
(define-public sbcl-mcclim-harfbuzz
(package
(inherit sbcl-clim-lisp)
(name "sbcl-mcclim-harfbuzz")
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("alexandria" ,sbcl-alexandria)
("cffi" ,sbcl-cffi)
("cffi-grovel" ,sbcl-cffi-grovel)
("freetype" ,freetype)
("harfbuzz" ,harfbuzz)
("trivial-garbage" ,sbcl-trivial-garbage)))
(arguments
'(#:asd-file "Extensions/harfbuzz/mcclim-harfbuzz.asd"
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "Extensions/harfbuzz/src/functions.lisp"
(("libharfbuzz\\.so")
(string-append (assoc-ref inputs "harfbuzz")
"/lib/libharfbuzz.so")))
#t))
(add-after 'unpack 'fix-build
(lambda _
;; The cffi-grovel system does not get loaded automatically,
;; so we load it explicitly.
(substitute* "Extensions/harfbuzz/mcclim-harfbuzz.asd"
(("\\(asdf:defsystem #:mcclim-harfbuzz" all)
(string-append "(asdf:load-system :cffi-grovel)\n" all)))
#t)))))))