diff options
| author | Guillaume Le Vaillant <glv@posteo.net> | 2020-02-02 11:16:11 +0100 |
|---|---|---|
| committer | Guillaume Le Vaillant <glv@posteo.net> | 2020-02-02 12:03:05 +0100 |
| commit | d3a2df680b42ae2c7a2fe0d884557cc749bbe8f0 (patch) | |
| tree | f4e5f11cf2605e0fd04b29f8eb8985eed4050ec4 /gnu/packages/lisp-xyz.scm | |
| parent | 7536321e4ba6b1c3e92de9d48d516ac3a1f7547e (diff) | |
| download | guix-d3a2df680b42ae2c7a2fe0d884557cc749bbe8f0.tar.gz | |
gnu: Add cl-ltk.
* gnu/packages/lisp-xyz.scm (sbcl-ltk, cl-ltk, ecl-ltk): New variables.
Diffstat (limited to 'gnu/packages/lisp-xyz.scm')
| -rw-r--r-- | gnu/packages/lisp-xyz.scm | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index 48be9747a4..8b929e8f83 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -51,6 +51,7 @@ #:use-module (gnu packages compression) #:use-module (gnu packages glib) #:use-module (gnu packages gtk) + #:use-module (gnu packages imagemagick) #:use-module (gnu packages libevent) #:use-module (gnu packages libffi) #:use-module (gnu packages lisp) @@ -59,6 +60,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) #:use-module (gnu packages sqlite) + #:use-module (gnu packages tcl) #:use-module (gnu packages tls) #:use-module (gnu packages webkit) #:use-module (gnu packages xdisorg) @@ -9773,3 +9775,49 @@ ZeroMQ.") (define-public ecl-cl-z85 (sbcl-package->ecl-package sbcl-cl-z85)) + +(define-public sbcl-ltk + (package + (name "sbcl-ltk") + (version "0.992") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/herth/ltk.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "13l2q4mskzilya9xh5wy2xvy30lwn104bd8wrq6ifds56r82iy3x")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("imagemagick" ,imagemagick) + ("tk" ,tk))) + (arguments + `(#:asd-file "ltk/ltk.asd" + #:tests? #f + #:phases (modify-phases %standard-phases + (add-after 'unpack 'fix-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "ltk/ltk.lisp" + (("#-freebsd \"wish\"") + (string-append "#-freebsd \"" + (assoc-ref inputs "tk") + "/bin/wish\"")) + (("do-execute \"convert\"") + (string-append "do-execute \"" + (assoc-ref inputs "imagemagick") + "/bin/convert\""))) + #t))))) + (synopsis "Common Lisp bindings for the Tk GUI toolkit") + (description + "LTK is a Common Lisp binding for the Tk graphics toolkit. It is written +in pure Common Lisp and does not require any Tk knowledge for its usage.") + (home-page "http://www.peter-herth.de/ltk/") + (license license:llgpl))) + +(define-public cl-ltk + (sbcl-package->cl-source-package sbcl-ltk)) + +(define-public ecl-ltk + (sbcl-package->ecl-package sbcl-ltk)) |