aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-09-24 23:00:02 +0200
committerLudovic Courtès <ludo@gnu.org>2015-09-24 23:01:22 +0200
commitc3aeac385aba64996c8470975fea853030d1cc3a (patch)
treee6b58644bf78a00a8312dffb1f48593790a8e2d0 /gnu
parent1007b6bf0bef3f662f65ffdd0d4383179dd07355 (diff)
downloadpatches-c3aeac385aba64996c8470975fea853030d1cc3a.tar
patches-c3aeac385aba64996c8470975fea853030d1cc3a.tar.gz
gnu: tcl: Add missing -L flag in tk.pc and tkConfig.sh.
* gnu/packages/tcl.scm (tk)[arguments]: Use 'modify-phases'. Add 'add-fontconfig-flag' phase. [inputs]: Add FONTCONFIG.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/tcl.scm25
1 files changed, 20 insertions, 5 deletions
diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index 7bcc59e78f..5b55cccbde 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -25,6 +25,7 @@
#:use-module (guix build-system perl)
#:use-module (gnu packages)
#:use-module (gnu packages image)
+ #:use-module (gnu packages fontutils)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages xorg)
@@ -142,11 +143,24 @@ X11 GUIs.")
"1h96vp15zl5xz0d4qp6wjyrchqmrmdm3q5k22wkw9jaxbvw9vy88"))))
(build-system gnu-build-system)
(arguments
- '(#:phases (alist-cons-before
- 'configure 'pre-configure
- (lambda _
- (chdir "unix"))
- %standard-phases)
+ '(#:phases (modify-phases %standard-phases
+ (add-before
+ 'configure 'pre-configure
+ (lambda _
+ (chdir "unix")))
+ (add-after
+ 'install 'add-fontconfig-flag
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ ;; Add the missing -L flag for Fontconfig in 'tk.pc' and
+ ;; 'tkConfig.sh'.
+ (let ((out (assoc-ref outputs "out"))
+ (fontconfig (assoc-ref inputs "fontconfig")))
+ (substitute* (find-files out
+ "^(tkConfig\\.sh|tk\\.pc)$")
+ (("-lfontconfig")
+ (string-append "-L" fontconfig
+ "/lib -lfontconfig")))
+ #t))))
#:configure-flags (list (string-append "--with-tcl="
(assoc-ref %build-inputs "tcl")
@@ -156,6 +170,7 @@ X11 GUIs.")
#:tests? #f))
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("libxft" ,libxft)
+ ("fontconfig" ,fontconfig)
("tcl" ,tcl)))
;; tk.h refers to X11 headers, hence the propagation.
(propagated-inputs `(("libx11" ,libx11)