88f06fd015
* gnu/local.mk: Include lisp-xyz.scm. * gnu/packages/lisp-xyz.scm: New file. * gnu/packages/lisp.scm: Move all lisp libraries to lisp-xyz.scm, uglify-js to javascript.scm and stumpwm to wm.scm. * gnu/packages/javascript.scm: Add uglify-js. * gnu/packages/wm.scm: Add stumpwm. * gnu/packages/bioinformatics.scm: Find uglify-js in javascript.scm. * gnu/packages/machine-learning.scm: Depend on lisp-xyz.scm instead of lisp.scm. * gnu/packages/web.scm: Find uglify-js in javascript.scm. * gnu/packages/web-browsers.scm: Depend on lisp-xyz.scm instead of lisp.scm. * guix/build-system/minify.scm (default-uglify-js): Find uglify-js in javascript module instead of lisp.
502 lines
21 KiB
Scheme
502 lines
21 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
|
||
;;; Copyright © 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages javascript)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages lisp)
|
||
#:use-module (gnu packages lisp-xyz)
|
||
#:use-module (gnu packages readline)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (guix build-system minify))
|
||
|
||
(define-public font-mathjax
|
||
(package
|
||
(name "font-mathjax")
|
||
(version "2.7.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/mathjax/MathJax/archive/"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1r72di4pg4i6pfhcskkxqmf1158m81ki6a7lbw6nz4zh7xw23hy4"))))
|
||
(build-system trivial-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils)
|
||
(ice-9 match))
|
||
(set-path-environment-variable
|
||
"PATH" '("bin") (map (match-lambda
|
||
((_ . input)
|
||
input))
|
||
%build-inputs))
|
||
(let ((install-directory (string-append %output "/share/fonts/mathjax")))
|
||
(mkdir-p install-directory)
|
||
(invoke "tar" "-C" install-directory "-xvf"
|
||
(assoc-ref %build-inputs "source")
|
||
,(string-append "MathJax-" version "/fonts")
|
||
"--strip" "2")))))
|
||
(native-inputs
|
||
`(("gzip" ,gzip)
|
||
("tar" ,tar)))
|
||
(home-page "https://www.mathjax.org/")
|
||
(synopsis "Fonts for MathJax")
|
||
(description "This package contains the fonts required for MathJax.")
|
||
(license license:asl2.0)))
|
||
|
||
(define-public js-mathjax
|
||
(package
|
||
(inherit font-mathjax)
|
||
(name "js-mathjax")
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils)
|
||
(ice-9 match)
|
||
(ice-9 popen)
|
||
(ice-9 regex))
|
||
(set-path-environment-variable
|
||
"PATH" '("bin") (map (match-lambda
|
||
((_ . input)
|
||
input))
|
||
%build-inputs))
|
||
(set-path-environment-variable
|
||
"GUIX_LOCPATH" '("lib/locale")
|
||
(list (assoc-ref %build-inputs "glibc-utf8-locales")))
|
||
(setenv "LANG" "en_US.UTF-8")
|
||
(let ((install-directory (string-append %output "/share/javascript/mathjax")))
|
||
(invoke "tar" "xvf" (assoc-ref %build-inputs "source")
|
||
,(string-append "MathJax-" (package-version font-mathjax)
|
||
"/unpacked")
|
||
"--strip" "2")
|
||
(mkdir-p install-directory)
|
||
(symlink (string-append (assoc-ref %build-inputs "font-mathjax")
|
||
"/share/fonts/mathjax")
|
||
(string-append install-directory "/fonts"))
|
||
|
||
(for-each
|
||
(lambda (file)
|
||
(let ((installed (string-append install-directory
|
||
;; remove prefix "."
|
||
(string-drop file 1))))
|
||
(format #t "~a -> ~a~%" file installed)
|
||
(cond
|
||
((string-match "\\.js$" file)
|
||
(mkdir-p (dirname installed))
|
||
(let ((minified (open-pipe* OPEN_READ "uglify-js" file)))
|
||
(call-with-output-file installed
|
||
(lambda (port)
|
||
(dump-port minified port)))
|
||
|
||
(let ((exit (close-pipe minified)))
|
||
(unless (zero? exit)
|
||
(error "dear, uglify-js failed" exit)))))
|
||
(else
|
||
(install-file file (dirname installed))))))
|
||
(find-files "."))
|
||
|
||
#t))))
|
||
(native-inputs
|
||
`(("font-mathjax" ,font-mathjax)
|
||
("glibc-utf8-locales" ,glibc-utf8-locales)
|
||
("uglify-js" ,uglify-js)
|
||
,@(package-native-inputs font-mathjax)))
|
||
(synopsis "JavaScript display engine for LaTeX, MathML, and AsciiMath")
|
||
(description "MathJax is a JavaScript display engine for LaTeX, MathML,
|
||
and AsciiMath notation that works in all modern browsers. It requires no
|
||
plugins or software to be installed on the browser. So the page author can
|
||
write web documents that include mathematics and be confident that readers will
|
||
be able to view it naturally and easily.")))
|
||
|
||
(define-public js-respond
|
||
(package
|
||
(name "js-respond")
|
||
(version "1.4.2")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/scottjehl/Respond")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"00xid731rirc7sdy1gc8qal3v9g0agr2qx15hm4x97l1lcbylyn2"))))
|
||
(build-system minify-build-system)
|
||
(arguments
|
||
`(#:javascript-files '("src/matchmedia.addListener.js"
|
||
"src/matchmedia.polyfill.js"
|
||
"src/respond.js")))
|
||
(home-page "https://github.com/scottjehl/Respond")
|
||
(synopsis "Polyfill for min/max-width CSS3 Media Queries")
|
||
(description "The goal of this script is to provide a fast and lightweight
|
||
script to enable responsive web designs in browsers that don't support CSS3
|
||
Media Queries.")
|
||
(license license:expat)))
|
||
|
||
(define-public js-html5shiv
|
||
(package
|
||
(name "js-html5shiv")
|
||
(version "3.7.3")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/aFarkas/html5shiv")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0y1c5nyq0brl9fjdihhax33vks4s1ij9iv113879sg3zflmgqpd0"))))
|
||
(build-system minify-build-system)
|
||
(home-page "https://github.com/aFarkas/html5shiv")
|
||
(synopsis "Enable HTML5 sectioning elements in legacy browsers")
|
||
(description "The HTML5 Shiv enables use of HTML5 sectioning elements in
|
||
legacy Internet Explorer and provides basic HTML5 styling for Internet
|
||
Explorer 6-9, Safari 4.x (and iPhone 3.x), and Firefox 3.x.")
|
||
;; From the file "MIT and GPL2 licenses.md":
|
||
;;
|
||
;; This software is licensed under a dual license system (MIT or GPL
|
||
;; version 2). This means you are free to choose with which of both
|
||
;; licenses (MIT or GPL version 2) you want to use this library.
|
||
(license (list license:expat license:gpl2))))
|
||
|
||
(define-public js-json2
|
||
(let ((commit "031b1d9e6971bd4c433ca85e216cc853f5a867bd")
|
||
(revision "1"))
|
||
(package
|
||
(name "js-json2")
|
||
(version (string-append "2016-10-28." revision "-" (string-take commit 7)))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/douglascrockford/JSON-js.git")
|
||
(commit commit)))
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"1fvb6b2y5sd3sqdgcj683sdxcbxdii34q0ysc9wg0dq1sy81l11v"))))
|
||
(build-system minify-build-system)
|
||
(arguments
|
||
`(#:javascript-files '("json2.js"
|
||
"json_parse.js"
|
||
"json_parse_state.js"
|
||
"cycle.js")))
|
||
(home-page "https://github.com/douglascrockford/JSON-js")
|
||
(synopsis "JSON encoders and decoders")
|
||
(description "The files in this collection implement JSON
|
||
encoders/decoders in JavaScript.
|
||
|
||
@code{json2.js}: This file creates a JSON property in the global object, if
|
||
there isn't already one, setting its value to an object containing a stringify
|
||
method and a parse method. The @code{parse} method uses the @code{eval}
|
||
method to do the parsing, guarding it with several regular expressions to
|
||
defend against accidental code execution hazards. On current browsers, this
|
||
file does nothing, preferring the built-in JSON object.
|
||
|
||
@code{json_parse.js}: This file contains an alternative JSON @code{parse}
|
||
function that uses recursive descent instead of @code{eval}.
|
||
|
||
@code{json_parse_state.js}: This files contains an alternative JSON
|
||
@code{parse} function that uses a state machine instead of @code{eval}.
|
||
|
||
@code{cycle.js}: This file contains two functions, @code{JSON.decycle} and
|
||
@code{JSON.retrocycle}, which make it possible to encode cyclical structures
|
||
and DAGs in JSON, and to then recover them. This is a capability that is not
|
||
provided by ES5. @code{JSONPath} is used to represent the links.")
|
||
(license license:public-domain))))
|
||
|
||
(define-public js-strftime
|
||
(package
|
||
(name "js-strftime")
|
||
(version "0.10.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url"https://github.com/samsonjs/strftime")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"131nmlivazwxyba25kh9lda99749fq4xsyin6lzfalaaydviby4p"))))
|
||
(build-system minify-build-system)
|
||
(arguments
|
||
`(#:javascript-files '("strftime.js")))
|
||
(home-page "https://github.com/samsonjs/strftime")
|
||
(synopsis "Implementation of strftime to JavaScript")
|
||
(description "This is an implementation of the @code{strftime} procedure
|
||
for JavaScript. It works in (at least) node.js and browsers. It supports
|
||
localization and timezones. Most standard specifiers from C are supported as
|
||
well as some other extensions from Ruby.")
|
||
(license license:expat)))
|
||
|
||
(define-public js-highlight
|
||
(package
|
||
(name "js-highlight")
|
||
(version "9.12.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/isagalaev/highlight.js")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"12qz22qjpd6svj58pwgcwg2x2rzhihfdrxg6lgj39nfpaln6dris"))))
|
||
(build-system minify-build-system)
|
||
(arguments
|
||
`(#:javascript-files '("src/highlight.js")))
|
||
(home-page "https://github.com/isagalaev/highlight.js")
|
||
(synopsis "Syntax highlighting for JavaScript")
|
||
(description "Highlight.js is a syntax highlighter written in JavaScript.
|
||
It works in the browser as well as on the server. It works with pretty much
|
||
any markup, doesn’t depend on any framework and has automatic language
|
||
detection.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public js-datatables
|
||
(package
|
||
(name "js-datatables")
|
||
(version "1.10.19")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://datatables.net/releases/DataTables-"
|
||
version ".zip"))
|
||
(sha256
|
||
(base32
|
||
"0cff8a1g7pjwbjdqq0yzqd963ar7pfi4splmm6rwdzganr77rkhb"))))
|
||
(build-system minify-build-system)
|
||
(arguments
|
||
`(#:javascript-files '("media/js/dataTables.bootstrap.js"
|
||
"media/js/jquery.dataTables.js")))
|
||
(native-inputs
|
||
`(("unzip" ,unzip)))
|
||
(home-page "https://datatables.net")
|
||
(synopsis "DataTables plug-in for jQuery")
|
||
(description "DataTables is a table enhancing plug-in for the jQuery
|
||
Javascript library, adding sorting, paging and filtering abilities to plain
|
||
HTML tables with minimal effort.")
|
||
(license license:expat)))
|
||
|
||
(define-public js-requirejs
|
||
(package
|
||
(name "js-requirejs")
|
||
(version "2.3.6")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/requirejs/requirejs.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0cvd5y2mb3h6yil3niqn3gjqrzixdsxcz4rvc2f0hg4kzp5y0w86"))))
|
||
(build-system minify-build-system)
|
||
(arguments `(#:javascript-files '("require.js")))
|
||
(home-page "https://github.com/requirejs/requirejs/")
|
||
(synopsis "File and module loader for JavaScript")
|
||
(description "RequireJS loads plain JavaScript files as well as more
|
||
defined modules. It is optimized for in-browser use, including in a Web
|
||
Worker, but it can be used in other JavaScript environments.")
|
||
(license license:expat)))
|
||
|
||
(define-public js-selectize
|
||
(package
|
||
(name "js-selectize")
|
||
(version "0.12.6")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/selectize/selectize.js")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"15gichl8wi6yxag2ps723nxrgyan15976dzsnvw9h9py8sbyyzjn"))))
|
||
(build-system minify-build-system)
|
||
(arguments `(#:javascript-files '("src/selectize.js")))
|
||
(home-page "http://selectize.github.io/selectize.js/")
|
||
(synopsis "Hybrid widget between a textbox and <select> box")
|
||
(description "Selectize is the hybrid of a textbox and @code{<select>}
|
||
box. It's jQuery based and it has autocomplete and native-feeling keyboard
|
||
navigation; it is useful for tagging, contact lists, etc.")
|
||
(license license:asl2.0)))
|
||
|
||
(define-public js-es5-shim
|
||
(package
|
||
(name "js-es5-shim")
|
||
(version "4.5.13")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/es-shims/es5-shim")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"142w384fbyllq4yggv173g82lw3wix4jqcg6hkhx1ymq89vvnpmh"))))
|
||
(build-system minify-build-system)
|
||
(arguments `(#:javascript-files
|
||
'("es5-sham.js"
|
||
"es5-shim.js")))
|
||
(home-page "https://github.com/es-shims/es5-shim")
|
||
(synopsis "ECMAScript 5 compatibility shims for legacy JavaScript engines")
|
||
(description "@code{es5-shim.js} patches a JavaScript context to contain
|
||
all ECMAScript 5 methods that can be faithfully emulated with a legacy
|
||
JavaScript engine. @code{es5-sham.js} patches other ES5 methods as closely as
|
||
possible. Many of these shams are intended only to allow code to be written
|
||
to ES5 without causing run-time errors in older engines. In many cases, this
|
||
means that these shams cause many ES5 methods to silently fail.")
|
||
(license license:expat)))
|
||
|
||
(define-public js-filesaver
|
||
(package
|
||
(name "js-filesaver")
|
||
(version "1.3.8")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/eligrey/FileSaver.js")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0gvqk0hnr8fig0n4da7vj7q6z31bcyv52916xz3rbmdj3pgpiv1d"))))
|
||
(build-system minify-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-uglification
|
||
;; Remove "export" keyword which prevents the file from being
|
||
;; uglified by uglify-js. Moreover, that keyword is not present in
|
||
;; the minified version of the library some projects are using,
|
||
;; e.g.,
|
||
;; <https://github.com/jmoenig/Snap--Build-Your-Own-Blocks/blob/master/FileSaver.min.js>
|
||
(lambda _
|
||
(substitute* "src/FileSaver.js"
|
||
(("export ") ""))
|
||
#t)))))
|
||
(home-page
|
||
"https://eligrey.com/blog/saving-generated-files-on-the-client-side/")
|
||
(synopsis "HTML5 saveAs() FileSaver implementation")
|
||
(description "@file{FileSaver.js} implements the @code{saveAs()}
|
||
FileSaver interface in browsers that do not natively support it.
|
||
|
||
@file{FileSaver.js} is the solution to saving files on the
|
||
client-side, and is perfect for webapps that need to generate files,
|
||
or for saving sensitive information that shouldn't be sent to an
|
||
external server.")
|
||
(license license:expat)))
|
||
|
||
(define-public mujs
|
||
(package
|
||
(name "mujs")
|
||
(version "1.0.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://mujs.com/downloads/mujs-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1q9w2dcspfp580pzx7sw7x9gbn8j0ak6dvj75wd1ml3f3q3i43df"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure) ; no configure
|
||
(add-after 'install 'install-shared-library
|
||
(lambda* (#:key (make-flags '()) #:allow-other-keys)
|
||
(apply invoke "make" "install-shared" make-flags))))
|
||
#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out"))
|
||
(string-append "CC=gcc"))
|
||
#:tests? #f)) ; no tests
|
||
(inputs
|
||
`(("readline" ,readline)))
|
||
(home-page "https://mujs.com/")
|
||
(synopsis "JavaScript interpreter written in C")
|
||
(description "MuJS is a lightweight Javascript interpreter designed for
|
||
embedding in other software to extend them with scripting capabilities. MuJS
|
||
was designed with a focus on small size, correctness, and simplicity. It is
|
||
written in portable C and implements ECMAScript as specified by ECMA-262. The
|
||
interface for binding with native code is designed to be as simple as possible
|
||
to use, and is very similar to Lua. There is no need to interact with byzantine
|
||
C++ template mechanisms, or worry about marking and unmarking garbage collection
|
||
roots, or wrestle with obscure build systems.")
|
||
(license license:isc)))
|
||
|
||
(define-public uglify-js
|
||
(package
|
||
(inherit sbcl-cl-uglify-js)
|
||
(name "uglify-js")
|
||
(build-system trivial-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder
|
||
(let* ((bin (string-append (assoc-ref %outputs "out") "/bin/"))
|
||
(script (string-append bin "uglify-js")))
|
||
(use-modules (guix build utils))
|
||
(mkdir-p bin)
|
||
(with-output-to-file script
|
||
(lambda _
|
||
(format #t "#!~a/bin/sbcl --script
|
||
(require :asdf)
|
||
(push (truename \"~a/lib/sbcl\") asdf:*central-registry*)"
|
||
(assoc-ref %build-inputs "sbcl")
|
||
(assoc-ref %build-inputs "sbcl-cl-uglify-js"))
|
||
;; FIXME: cannot use progn here because otherwise it fails to
|
||
;; find cl-uglify-js.
|
||
(for-each
|
||
write
|
||
'(;; Quiet, please!
|
||
(let ((*standard-output* (make-broadcast-stream))
|
||
(*error-output* (make-broadcast-stream)))
|
||
(asdf:load-system :cl-uglify-js))
|
||
(let ((file (cadr *posix-argv*)))
|
||
(if file
|
||
(format t "~a"
|
||
(cl-uglify-js:ast-gen-code
|
||
(cl-uglify-js:ast-mangle
|
||
(cl-uglify-js:ast-squeeze
|
||
(with-open-file (in file)
|
||
(parse-js:parse-js in))))
|
||
:beautify nil))
|
||
(progn
|
||
(format *error-output*
|
||
"Please provide a JavaScript file.~%")
|
||
(sb-ext:exit :code 1))))))))
|
||
(chmod script #o755)
|
||
#t)))
|
||
(inputs
|
||
`(("sbcl" ,sbcl)
|
||
("sbcl-cl-uglify-js" ,sbcl-cl-uglify-js)))
|
||
(synopsis "JavaScript compressor")))
|