me
/
guix
Archived
1
0
Fork 0
Code

gnu: tk: Add symlink for 'wish' binary. 

* gnu/packages/tcl.scm (tk)[arguments]: Add custom phase to create a
symlink from 'wish' to 'wish8.6'.
[home-page]: Use https.
master
Efraim Flashner 2018-07-16 22:39:06 +03:00
parent 9bb98f6425
commit 49b92a2414
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/tcl.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
@ -25,6 +25,7 @@
(define-module (gnu packages tcl) (define-module (gnu packages tcl)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix utils)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system perl) #:use-module (guix build-system perl)
#:use-module (gnu packages) #:use-module (gnu packages)
@ -145,12 +146,21 @@ X11 GUIs.")
(patches (search-patches "tk-find-library.patch")))) (patches (search-patches "tk-find-library.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases `(#:phases (modify-phases %standard-phases
(add-before (add-before
'configure 'pre-configure 'configure 'pre-configure
(lambda _ (lambda _
(chdir "unix") (chdir "unix")
#t)) #t))
(add-after
'install 'create-wish-symlink
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(symlink (string-append out "/bin/wish"
,(version-major+minor
(package-version tk)))
(string-append out "/bin/wish")))
#t))
(add-after (add-after
'install 'add-fontconfig-flag 'install 'add-fontconfig-flag
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
@ -179,7 +189,7 @@ X11 GUIs.")
(propagated-inputs `(("libx11" ,libx11) (propagated-inputs `(("libx11" ,libx11)
("libxext" ,libxext))) ("libxext" ,libxext)))
(home-page "http://www.tcl.tk/") (home-page "https://www.tcl.tk/")
(synopsis "Graphical user interface toolkit for Tcl") (synopsis "Graphical user interface toolkit for Tcl")
(description (description
"Tk is a graphical toolkit for building graphical user "Tk is a graphical toolkit for building graphical user