Commit | Line | Data |
---|---|---|
4a219a1a | 1 | ;;; GNU Guix --- Functional package management for GNU |
9b1bf330 | 2 | ;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> |
6fea8ade | 3 | ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org> |
de0c3141 | 4 | ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> |
49b92a24 | 5 | ;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il> |
50fe318c | 6 | ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> |
3c8ba11a | 7 | ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net> |
9cc03bbf | 8 | ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> |
d9d836c3 | 9 | ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu> |
8a0e29d8 | 10 | ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> |
4a219a1a LC |
11 | ;;; |
12 | ;;; This file is part of GNU Guix. | |
13 | ;;; | |
14 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
15 | ;;; under the terms of the GNU General Public License as published by | |
16 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
17 | ;;; your option) any later version. | |
18 | ;;; | |
19 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
20 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 | ;;; GNU General Public License for more details. | |
23 | ;;; | |
24 | ;;; You should have received a copy of the GNU General Public License | |
25 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
26 | ||
1ffa7090 | 27 | (define-module (gnu packages tcl) |
4a219a1a LC |
28 | #:use-module (guix packages) |
29 | #:use-module (guix download) | |
d9d836c3 | 30 | #:use-module (guix git-download) |
49b92a24 | 31 | #:use-module (guix utils) |
4a219a1a | 32 | #:use-module (guix build-system gnu) |
d9d836c3 | 33 | #:use-module (guix build-system go) |
de0c3141 | 34 | #:use-module (guix build-system perl) |
f5ea273a | 35 | #:use-module (gnu packages) |
e55354b8 | 36 | #:use-module (gnu packages image) |
c3aeac38 | 37 | #:use-module (gnu packages fontutils) |
de0c3141 EB |
38 | #:use-module (gnu packages perl) |
39 | #:use-module (gnu packages pkg-config) | |
511539ae | 40 | #:use-module (gnu packages xml) |
765904ce | 41 | #:use-module (gnu packages xorg) |
d9d836c3 | 42 | #:use-module ((guix licenses) #:prefix license:)) |
4a219a1a LC |
43 | |
44 | (define-public tcl | |
45 | (package | |
46 | (name "tcl") | |
72c7788f | 47 | (version "8.6.10") |
f8e7fdc4 LC |
48 | (source (origin |
49 | (method url-fetch) | |
50 | (uri (string-append "mirror://sourceforge/tcl/Tcl/" | |
51 | version "/tcl" version "-src.tar.gz")) | |
52 | (sha256 | |
53 | (base32 | |
8a0e29d8 MO |
54 | "1vc7imilx6kcb5319r7hnrp4jn5pqb41an3vr3azhgcfcgvdp5ji")) |
55 | (patches (search-patches "tcl-fix-cross-compilation.patch")))) | |
4a219a1a LC |
56 | (build-system gnu-build-system) |
57 | (arguments | |
2ce30a37 | 58 | `(#:phases (modify-phases %standard-phases |
1004a92c MB |
59 | (add-before 'configure 'pre-configure |
60 | (lambda _ (chdir "unix") #t)) | |
61 | (add-after 'install 'install-private-headers | |
62 | (lambda* (#:key outputs #:allow-other-keys) | |
63 | ;; Private headers are needed by Expect. | |
6fea8ade MW |
64 | (invoke "make" "install-private-headers") |
65 | (let ((bin (string-append (assoc-ref outputs "out") | |
66 | "/bin"))) | |
67 | ;; Create a tclsh -> tclsh8.6 symlink. | |
68 | ;; Programs such as Ghostscript rely on it. | |
69 | (with-directory-excursion bin | |
70 | (symlink (car (find-files "." "tclsh")) | |
71 | "tclsh")) | |
72 | #t)))) | |
eb6d676e | 73 | |
c9a46555 MW |
74 | ;; By default, man pages are put in PREFIX/man, but we want them in |
75 | ;; PREFIX/share/man. The 'validate-documentation-location' phase is | |
76 | ;; not able to fix this up because the default install populates both | |
77 | ;; PREFIX/man and PREFIX/share/man. | |
2ce30a37 MO |
78 | #:configure-flags |
79 | (list (string-append "--mandir=" | |
80 | (assoc-ref %outputs "out") | |
81 | "/share/man") | |
82 | ;; This is needed when cross-compiling, see: | |
83 | ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=719247 | |
84 | ,@(if (%current-target-system) | |
85 | '("tcl_cv_strtod_buggy=1" | |
86 | "ac_cv_func_strtod=yes") | |
87 | '())) | |
c9a46555 | 88 | |
eb6d676e LC |
89 | ;; XXX: There are a few test failures (related to HTTP, most |
90 | ;; likely related to name resolution), but that doesn't cause | |
91 | ;; `make' to fail. | |
92 | #:test-target "test")) | |
068d0a1c | 93 | (home-page "https://www.tcl.tk/") |
4a219a1a LC |
94 | (synopsis "The Tcl scripting language") |
95 | (description "The Tcl (Tool Command Language) scripting language.") | |
d9d836c3 | 96 | (license license:tcl/tk))) |
4a219a1a | 97 | |
0e36ea23 SH |
98 | (define-public itcl |
99 | (package | |
100 | (name "itcl") | |
101 | (version "4.2.0") | |
102 | (source | |
103 | (origin | |
104 | (method url-fetch) | |
105 | (uri (string-append | |
106 | "mirror://sourceforge/incrtcl/%5Bincr%20Tcl_Tk%5D-4-source/itcl%20" | |
107 | version "/itcl" version ".tar.gz")) | |
108 | (file-name (string-append "incrtcl-" version ".tar.gz")) | |
109 | (sha256 | |
110 | (base32 "0w28v0zaraxcq1s9pa6cihqqwqvvwfgz275lks7w4gl7hxjxmasw")))) | |
111 | (build-system gnu-build-system) | |
112 | (arguments | |
113 | `(#:configure-flags | |
114 | (list | |
115 | (string-append | |
116 | "--exec-prefix=" (assoc-ref %outputs "out")) | |
117 | (string-append | |
118 | "--with-tclinclude=" (assoc-ref %build-inputs "tcl") "/include") | |
119 | (string-append | |
120 | "--with-tcl=" (assoc-ref %build-inputs "tcl") "/lib")) | |
121 | #:test-target "test" | |
122 | #:phases | |
123 | (modify-phases %standard-phases | |
124 | (add-after 'install 'cleanup-bin-and-lib | |
125 | (lambda* (#:key outputs #:allow-other-keys) | |
126 | ;; NOTE: (Sharlatan-20210213T204336+0000): libraries appearer in | |
127 | ;; "out/lib/itcl{{version}}" and there are no binaries, some extra | |
128 | ;; rename and remove spells are to be applied. | |
129 | (let ((out (assoc-ref outputs "out"))) | |
130 | (rmdir | |
131 | (string-append out "/bin")) | |
132 | (rename-file | |
133 | (string-append out "/lib/itcl" ,version) (string-append out "/libtmp")) | |
134 | (rename-file | |
135 | (string-append out "/libtmp") (string-append out "/lib"))) | |
136 | #t))))) | |
137 | (native-inputs | |
138 | `(("tcl" ,tcl))) | |
139 | (inputs | |
140 | `(("tcllib" ,tcllib))) | |
141 | (home-page "http://incrtcl.sourceforge.net/") | |
142 | (synopsis "Object Oriented programming (OOP) extension for Tcl") | |
143 | (description | |
144 | "[incr Tcl] is a widely used object-oriented system for Tcl. The name is | |
145 | a play on C++, and [incr Tcl] provides a similar object model, including | |
a1d6d8bc | 146 | multiple inheritance and public and private classes and variables.") |
0e36ea23 | 147 | (license license:public-domain))) |
4a219a1a LC |
148 | |
149 | (define-public expect | |
150 | (package | |
151 | (name "expect") | |
9cc03bbf | 152 | (version "5.45.4") |
4a219a1a LC |
153 | (source |
154 | (origin | |
155 | (method url-fetch) | |
156 | (uri (string-append "mirror://sourceforge/expect/Expect/" | |
157 | version "/expect" version ".tar.gz")) | |
158 | (sha256 | |
159 | (base32 | |
9cc03bbf | 160 | "0d1cp5hggjl93xwc8h1y6adbnrvpkk0ywkd00inz9ndxn21xm9s9")))) |
4a219a1a LC |
161 | (build-system gnu-build-system) |
162 | (inputs | |
163 | `(;; TODO: Add these optional dependencies. | |
164 | ;; ("libX11" ,libX11) | |
6a6db57f | 165 | ;; ("xorgproto" ,xorgproto) |
4a219a1a LC |
166 | ;; ("tk" ,tk) |
167 | ("tcl" ,tcl))) | |
168 | (arguments | |
169 | '(#:configure-flags | |
988cecfd MW |
170 | (let ((out (assoc-ref %outputs "out")) |
171 | (tcl (assoc-ref %build-inputs "tcl"))) | |
172 | (list (string-append "--with-tcl=" tcl "/lib") | |
173 | (string-append "--with-tclinclude=" tcl "/include") | |
174 | (string-append "--exec-prefix=" out) | |
175 | (string-append "--mandir=" out "/share/man"))) | |
eb6d676e | 176 | |
dc1d3cde KK |
177 | #:phases |
178 | (modify-phases %standard-phases | |
179 | (add-before 'configure 'set-path-to-stty | |
180 | (lambda _ | |
181 | (substitute* "configure" | |
182 | (("STTY_BIN=/bin/stty") | |
183 | (string-append "STTY_BIN=" (which "stty")))) | |
184 | #t))) | |
d5529a91 | 185 | |
eb6d676e | 186 | #:test-target "test")) |
ad549242 | 187 | (home-page "http://expect.sourceforge.net/") |
9e771e3b | 188 | (synopsis "Tool for automating interactive applications") |
4a219a1a LC |
189 | (description |
190 | "Expect is a tool for automating interactive applications such as | |
191 | telnet, ftp, passwd, fsck, rlogin, tip, etc. Expect really makes this | |
35b9e423 EB |
192 | stuff trivial. Expect is also useful for testing these same |
193 | applications. And by adding Tk, you can wrap interactive applications in | |
4a219a1a | 194 | X11 GUIs.") |
d9d836c3 | 195 | (license license:public-domain))) ; as written in `license.terms' |
765904ce LC |
196 | |
197 | (define-public tk | |
198 | (package | |
199 | (name "tk") | |
72c7788f | 200 | (version "8.6.10") |
765904ce LC |
201 | (source (origin |
202 | (method url-fetch) | |
203 | (uri (string-append "mirror://sourceforge/tcl/Tcl/" | |
b5a72640 MB |
204 | (version-prefix version 3) "/tk" |
205 | version "-src.tar.gz")) | |
765904ce LC |
206 | (sha256 |
207 | (base32 | |
72c7788f | 208 | "11p3ycqbr5116vpaxv6fl6md6gcav1ffspgr8wrlc2lxhn543pv3")) |
fc1adab1 | 209 | (patches (search-patches "tk-find-library.patch")))) |
765904ce LC |
210 | (build-system gnu-build-system) |
211 | (arguments | |
49b92a24 | 212 | `(#:phases (modify-phases %standard-phases |
c3aeac38 LC |
213 | (add-before |
214 | 'configure 'pre-configure | |
215 | (lambda _ | |
eed6985f MW |
216 | (chdir "unix") |
217 | #t)) | |
49b92a24 EF |
218 | (add-after |
219 | 'install 'create-wish-symlink | |
220 | (lambda* (#:key outputs #:allow-other-keys) | |
221 | (let ((out (assoc-ref outputs "out"))) | |
222 | (symlink (string-append out "/bin/wish" | |
223 | ,(version-major+minor | |
224 | (package-version tk))) | |
225 | (string-append out "/bin/wish"))) | |
226 | #t)) | |
c3aeac38 LC |
227 | (add-after |
228 | 'install 'add-fontconfig-flag | |
229 | (lambda* (#:key inputs outputs #:allow-other-keys) | |
230 | ;; Add the missing -L flag for Fontconfig in 'tk.pc' and | |
231 | ;; 'tkConfig.sh'. | |
232 | (let ((out (assoc-ref outputs "out")) | |
233 | (fontconfig (assoc-ref inputs "fontconfig"))) | |
234 | (substitute* (find-files out | |
235 | "^(tkConfig\\.sh|tk\\.pc)$") | |
236 | (("-lfontconfig") | |
237 | (string-append "-L" fontconfig | |
238 | "/lib -lfontconfig"))) | |
239 | #t)))) | |
765904ce | 240 | |
ee4c8c89 MO |
241 | #:configure-flags |
242 | (list (string-append "--with-tcl=" | |
243 | (assoc-ref %build-inputs "tcl") | |
244 | "/lib") | |
245 | ;; This is needed when cross-compiling, see: | |
246 | ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=719247 | |
247 | ,@(if (%current-target-system) | |
248 | '("tcl_cv_strtod_buggy=1" | |
249 | "ac_cv_func_strtod=yes") | |
250 | '())) | |
765904ce LC |
251 | |
252 | ;; The tests require a running X server, so we just skip them. | |
253 | #:tests? #f)) | |
8a0263f1 SB |
254 | (native-inputs `(("pkg-config" ,pkg-config))) |
255 | (inputs `(("libxft" ,libxft) | |
c3aeac38 | 256 | ("fontconfig" ,fontconfig) |
8a0263f1 | 257 | ("tcl" ,tcl))) |
765904ce LC |
258 | ;; tk.h refers to X11 headers, hence the propagation. |
259 | (propagated-inputs `(("libx11" ,libx11) | |
260 | ("libxext" ,libxext))) | |
261 | ||
49b92a24 | 262 | (home-page "https://www.tcl.tk/") |
765904ce LC |
263 | (synopsis "Graphical user interface toolkit for Tcl") |
264 | (description | |
cb150ca3 LC |
265 | "Tk is a graphical toolkit for building graphical user |
266 | interfaces (GUIs) in the Tcl language.") | |
765904ce | 267 | (license (package-license tcl)))) |
de0c3141 EB |
268 | |
269 | (define-public perl-tk | |
270 | (package | |
271 | (name "perl-tk") | |
b1c699c4 | 272 | (version "804.034") |
de0c3141 EB |
273 | (source (origin |
274 | (method url-fetch) | |
275 | (uri (string-append | |
276 | "mirror://cpan/authors/id/S/SR/SREZIC/Tk-" | |
277 | version ".tar.gz")) | |
278 | (sha256 | |
279 | (base32 | |
b1c699c4 | 280 | "1qiz55dmw7hm1wgpjdzf2jffwcj0hisr3kf80qi8lli3qx2b39py")))) |
de0c3141 EB |
281 | (build-system perl-build-system) |
282 | (native-inputs `(("pkg-config" ,pkg-config))) | |
283 | (inputs `(("libx11" ,libx11) | |
284 | ("libpng" ,libpng) | |
4bd428a7 | 285 | ("libjpeg" ,libjpeg-turbo))) |
de0c3141 EB |
286 | (arguments |
287 | `(#:make-maker-flags `(,(string-append | |
cb150ca3 LC |
288 | "X11=" (assoc-ref %build-inputs "libx11"))) |
289 | ||
290 | ;; Fails to build in parallel: <http://bugs.gnu.org/18262>. | |
291 | #:parallel-build? #f)) | |
de0c3141 EB |
292 | (synopsis "Graphical user interface toolkit for Perl") |
293 | (description | |
294 | "Tk is a Graphical User Interface ToolKit.") | |
9aba9b12 | 295 | (home-page "https://metacpan.org/release/Tk") |
de0c3141 EB |
296 | ;; From the package README: "... you can redistribute it and/or modify it |
297 | ;; under the same terms as Perl itself, with the exception of all the | |
298 | ;; files in the pTk sub-directory which have separate terms derived from | |
299 | ;; those of the orignal Tix4.1.3 or Tk8.4.* sources. See the files | |
300 | ;; pTk/license.terms, pTk/license.html_lib, and pTk/Tix.license for | |
301 | ;; details of this license." | |
d9d836c3 | 302 | (license license:perl-license))) |
50fe318c JN |
303 | |
304 | (define-public tcllib | |
305 | (package | |
306 | (name "tcllib") | |
345eec82 | 307 | (version "1.19") |
50fe318c JN |
308 | (source (origin |
309 | (method url-fetch) | |
f86f1531 TGR |
310 | (uri (string-append "mirror://sourceforge/tcllib/tcllib/" |
311 | version "/tcllib-" version ".tar.gz")) | |
50fe318c JN |
312 | (sha256 |
313 | (base32 | |
345eec82 | 314 | "173abxaazdmf210v651708ab6h7xhskvd52krxk6ifam337qgzh1")))) |
50fe318c JN |
315 | (build-system gnu-build-system) |
316 | (native-inputs | |
317 | `(("tcl" ,tcl))) | |
318 | (native-search-paths | |
319 | (list (search-path-specification | |
320 | (variable "TCLLIBPATH") | |
321 | (separator " ") | |
322 | (files (list (string-append "lib/tcllib" version)))))) | |
323 | (home-page "https://core.tcl.tk/tcllib/home") | |
324 | (synopsis "Standard Tcl Library") | |
325 | (description "Tcllib, the standard Tcl library, is a collection of common | |
326 | utility functions and modules all written in high-level Tcl.") | |
327 | (license (package-license tcl)))) | |
511539ae | 328 | |
1966481f DM |
329 | (define-public tklib |
330 | (package | |
331 | (name "tklib") | |
332 | (version "0.6") | |
333 | (source (origin | |
334 | (method url-fetch) | |
335 | (uri (string-append "https://core.tcl.tk/tklib/tarball/tklib-" | |
336 | version ".tar.gz?uuid=tklib-0-6")) | |
337 | (sha256 | |
338 | (base32 | |
339 | "03y0bzgwbh7nnyqkh8n00bbkq2fyblq39s3bdb6mawna0bbn0wwg")))) | |
340 | (build-system gnu-build-system) | |
341 | (native-inputs | |
342 | `(("tcl" ,tcl))) | |
343 | (propagated-inputs | |
344 | `(("tcllib" ,tcllib) | |
345 | ("tk" ,tk))) ; for "wish" | |
346 | (native-search-paths | |
347 | (list (search-path-specification | |
348 | (variable "TCLLIBPATH") | |
349 | (separator " ") | |
350 | (files (list (string-append "lib/tklib" version)))))) | |
351 | (home-page "https://www.tcl.tk/software/tklib/") | |
352 | (synopsis "Tk utility modules for Tcl") | |
353 | (description "Tklib is a collection of common utility functions and | |
354 | modules for Tk, all written in high-level Tcl. Examples of provided widgets: | |
355 | @enumerate | |
356 | @item @code{chatwidget} | |
357 | @item @code{datefield} | |
958be7a4 | 358 | @item @code{tooltip} |
1966481f DM |
359 | @item @code{cursor} |
360 | @item @code{ipentry} | |
361 | @item @code{tablelist} | |
362 | @item @code{history} | |
363 | @item @code{tkpiechart} | |
364 | @item @code{ico} | |
365 | @item @code{crosshair} | |
366 | @item @code{ntext} | |
367 | @item @code{plotchart} | |
368 | @item @code{ctext} | |
369 | @item @code{autosscroll} | |
370 | @item @code{canvas} | |
eb52d637 | 371 | @end enumerate") |
1966481f DM |
372 | (license (package-license tcl)))) |
373 | ||
511539ae JN |
374 | (define-public tclxml |
375 | (package | |
376 | (name "tclxml") | |
377 | (version "3.2") | |
378 | (source (origin | |
379 | (method url-fetch) | |
de67e922 LF |
380 | (uri (string-append "mirror://sourceforge/" name "/TclXML/" |
381 | version "/" name "-" version ".tar.gz")) | |
511539ae JN |
382 | (sha256 |
383 | (base32 | |
384 | "0ffb4aw63inig3aql33g4pk0kjk14dv238anp1scwjdjh1k6n4gl")) | |
fc1adab1 | 385 | (patches (search-patches "tclxml-3.2-install.patch")))) |
511539ae JN |
386 | (build-system gnu-build-system) |
387 | (native-inputs | |
388 | `(("tcl" ,tcl) | |
511539ae JN |
389 | ("libxml2" ,libxml2) |
390 | ("libxslt" ,libxslt))) | |
bc01c891 DM |
391 | (propagated-inputs |
392 | `(("tcllib" ,tcllib))) ; uri | |
511539ae JN |
393 | (native-search-paths |
394 | (list (search-path-specification | |
395 | (variable "TCLLIBPATH") | |
396 | (separator " ") | |
397 | (files (list (string-append "lib/Tclxml" version)))))) | |
398 | (arguments | |
399 | `(#:configure-flags | |
400 | (list (string-append "--exec-prefix=" (assoc-ref %outputs "out")) | |
401 | (string-append "--with-tclconfig=" | |
402 | (assoc-ref %build-inputs "tcl") "/lib") | |
403 | (string-append "--with-xml2-config=" | |
404 | (assoc-ref %build-inputs "libxml2") | |
405 | "/bin/xml2-config") | |
406 | (string-append "--with-xslt-config=" | |
407 | (assoc-ref %build-inputs "libxslt") | |
408 | "/bin/xslt-config")) | |
409 | #:test-target "test")) | |
410 | (home-page "http://tclxml.sourceforge.net/") | |
411 | (synopsis "Tcl library for XML parsing") | |
412 | (description "TclXML provides event-based parsing of XML documents. The | |
413 | application may register callback scripts for certain document features, and | |
414 | when the parser encounters those features while parsing the document the | |
415 | callback is evaluated.") | |
d9d836c3 | 416 | (license (license:non-copyleft |
511539ae JN |
417 | "file://LICENCE" |
418 | "See LICENCE in the distribution.")))) | |
0ef83ec9 KK |
419 | |
420 | (define-public tclx | |
421 | (package | |
422 | (name "tclx") | |
423 | (version "8.4.1") | |
424 | (source (origin | |
425 | (method url-fetch) | |
426 | (uri (string-append "mirror://sourceforge/tclx/TclX/" | |
427 | version "/tclx" version ".tar.bz2")) | |
428 | (sha256 | |
429 | (base32 | |
430 | "1v2qwzzidz0is58fd1p7wfdbscxm3ip2wlbqkj5jdhf6drh1zd59")))) | |
431 | (build-system gnu-build-system) | |
432 | (arguments | |
433 | '(#:tests? #f ; a test named profile.test segfaults | |
434 | #:configure-flags (list (string-append "--with-tcl=" | |
435 | (assoc-ref %build-inputs "tcl") | |
436 | "/lib") | |
437 | (string-append "--libdir=" | |
438 | (assoc-ref %outputs "out") | |
439 | "/lib")))) | |
440 | (inputs | |
441 | `(("tcl" ,tcl) | |
442 | ("tk" ,tk))) | |
443 | (home-page "http://tclx.sourceforge.net/") | |
444 | (synopsis "System programming extensions for Tcl") | |
445 | (description | |
446 | "Extended Tcl is oriented towards system programming tasks and large | |
447 | application development. TclX provides additional interfaces to the operating | |
448 | system, and adds many new programming constructs, text manipulation tools, and | |
449 | debugging tools.") | |
d9d836c3 | 450 | (license license:tcl/tk))) |
a5c86aa0 JL |
451 | |
452 | (define-public go-github.com-nsf-gothic | |
453 | (let ((commit "97dfcc195b9de36c911a69a6ec2b5b2659c05652") | |
454 | (revision "0")) | |
455 | (package | |
456 | (name "go-github.com-nsf-gothic") | |
457 | (version (git-version "0.0.0" revision commit)) | |
458 | (source (origin | |
459 | (method git-fetch) | |
460 | (uri (git-reference | |
461 | (url "https://github.com/nsf/gothic") | |
462 | (commit commit))) | |
463 | (sha256 | |
464 | (base32 | |
465 | "1lrhbml6r4sh22rrn3m9bck70pv0g0c1diprg7cil90x0jidxczr")) | |
466 | (file-name (git-file-name name version)))) | |
467 | (build-system go-build-system) | |
468 | (arguments | |
469 | `(#:import-path "github.com/nsf/gothic")) | |
470 | (propagated-inputs | |
471 | `(("tk" ,tk) | |
472 | ("tcl" ,tcl))) | |
473 | (home-page "https://github.com/nsf/gothic") | |
474 | (synopsis "Tcl/Tk Go bindings") | |
475 | (description "Gothic contains Go bindings for Tcl/Tk. The package contains | |
476 | only one type and one function that can be used to create a Tk interpreter.") | |
477 | (license license:expat)))) |