gnu/packages/javascript.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
   3 ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
   4 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   5 ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
   6 ;;; Copyright © 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr>
   7 ;;;
   8 ;;; This file is part of GNU Guix.
   9 ;;;
  10 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  11 ;;; under the terms of the GNU General Public License as published by
  12 ;;; the Free Software Foundation; either version 3 of the License, or (at
  13 ;;; your option) any later version.
  14 ;;;
  15 ;;; GNU Guix is distributed in the hope that it will be useful, but
  16 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;;; GNU General Public License for more details.
  19 ;;;
  20 ;;; You should have received a copy of the GNU General Public License
  21 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 (define-module (gnu packages javascript)
  24   #:use-module ((guix licenses) #:prefix license:)
  25   #:use-module (gnu packages)
  26   #:use-module (gnu packages base)
  27   #:use-module (gnu packages compression)
  28   #:use-module (gnu packages lisp)
  29   #:use-module (gnu packages readline)
  30   #:use-module (guix packages)
  31   #:use-module (guix download)
  32   #:use-module (guix git-download)
  33   #:use-module (guix build-system gnu)
  34   #:use-module (guix build-system trivial)
  35   #:use-module (guix build-system minify))
  36
  37 (define-public font-mathjax
  38   (package
  39     (name "font-mathjax")
  40     (version "2.7.2")
  41     (source
  42      (origin
  43        (method url-fetch)
  44        (uri (string-append
  45              "https://github.com/mathjax/MathJax/archive/"
  46              version ".tar.gz"))
  47        (file-name (string-append name "-" version ".tar.gz"))
  48        (sha256
  49         (base32
  50          "1r72di4pg4i6pfhcskkxqmf1158m81ki6a7lbw6nz4zh7xw23hy4"))))
  51     (build-system trivial-build-system)
  52     (arguments
  53      `(#:modules ((guix build utils))
  54        #:builder
  55        (begin
  56          (use-modules (guix build utils)
  57                       (ice-9 match))
  58          (set-path-environment-variable
  59           "PATH" '("bin") (map (match-lambda
  60                                  ((_ . input)
  61                                   input))
  62                                %build-inputs))
  63          (let ((install-directory (string-append %output "/share/fonts/mathjax")))
  64            (mkdir-p install-directory)
  65            (invoke "tar" "-C" install-directory "-xvf"
  66                    (assoc-ref %build-inputs "source")
  67                    ,(string-append "MathJax-" version "/fonts")
  68                    "--strip" "2")))))
  69     (native-inputs
  70      `(("gzip" ,gzip)
  71        ("tar" ,tar)))
  72     (home-page "https://www.mathjax.org/")
  73     (synopsis "Fonts for MathJax")
  74     (description "This package contains the fonts required for MathJax.")
  75     (license license:asl2.0)))
  76
  77 (define-public js-mathjax
  78   (package
  79     (inherit font-mathjax)
  80     (name "js-mathjax")
  81     (arguments
  82      `(#:modules ((guix build utils))
  83        #:builder
  84        (begin
  85          (use-modules (guix build utils)
  86                       (ice-9 match)
  87                       (ice-9 popen)
  88                       (ice-9 regex))
  89          (set-path-environment-variable
  90           "PATH" '("bin") (map (match-lambda
  91                                  ((_ . input)
  92                                   input))
  93                                %build-inputs))
  94          (set-path-environment-variable
  95           "GUIX_LOCPATH" '("lib/locale")
  96           (list (assoc-ref %build-inputs "glibc-utf8-locales")))
  97          (setenv "LANG" "en_US.UTF-8")
  98          (let ((install-directory (string-append %output "/share/javascript/mathjax")))
  99            (invoke "tar" "xvf" (assoc-ref %build-inputs "source")
 100                    ,(string-append "MathJax-" (package-version font-mathjax)
 101                                    "/unpacked")
 102                    "--strip" "2")
 103            (mkdir-p install-directory)
 104            (symlink (string-append (assoc-ref %build-inputs "font-mathjax")
 105                                    "/share/fonts/mathjax")
 106                     (string-append install-directory "/fonts"))
 107
 108            (for-each
 109             (lambda (file)
 110               (let ((installed (string-append install-directory
 111                                               ;; remove prefix "."
 112                                               (string-drop file 1))))
 113                 (format #t "~a -> ~a~%" file installed)
 114                 (cond
 115                  ((string-match "\\.js$" file)
 116                   (mkdir-p (dirname installed))
 117                   (let ((minified (open-pipe* OPEN_READ "uglify-js" file)))
 118                     (call-with-output-file installed
 119                       (lambda (port)
 120                         (dump-port minified port)))))
 121                  (else
 122                   (install-file file (dirname installed))))))
 123             (find-files "."))
 124
 125            #t))))
 126     (native-inputs
 127      `(("font-mathjax" ,font-mathjax)
 128        ("glibc-utf8-locales" ,glibc-utf8-locales)
 129        ("uglify-js" ,uglify-js)
 130        ,@(package-native-inputs font-mathjax)))
 131     (synopsis "JavaScript display engine for LaTeX, MathML, and AsciiMath")
 132     (description "MathJax is a JavaScript display engine for LaTeX, MathML,
 133 and AsciiMath notation that works in all modern browsers.  It requires no
 134 plugins or software to be installed on the browser.  So the page author can
 135 write web documents that include mathematics and be confident that readers will
 136 be able to view it naturally and easily.")))
 137
 138 (define-public js-respond
 139   (package
 140     (name "js-respond")
 141     (version "1.4.2")
 142     (source (origin
 143               (method url-fetch)
 144               (uri (string-append "https://github.com/scottjehl/Respond/"
 145                                   "archive/" version ".tar.gz"))
 146               (file-name (string-append name "-" version ".tar.gz"))
 147               (sha256
 148                (base32
 149                 "0ds1ya2a185jp93mdn07159c2x8zczwi960ykrawpp62bwk2n93d"))))
 150     (build-system trivial-build-system)
 151     (arguments
 152      `(#:modules ((guix build utils))
 153        #:builder
 154        (begin
 155          (use-modules (guix build utils)
 156                       (ice-9 match)
 157                       (ice-9 popen)
 158                       (srfi srfi-26))
 159          (set-path-environment-variable
 160           "PATH" '("bin") (map (match-lambda
 161                                  ((_ . input)
 162                                   input))
 163                                %build-inputs))
 164          (let ((install-directory (string-append %output
 165                                                  "/share/javascript/respond/")))
 166            (invoke "tar" "xvf"
 167                    (assoc-ref %build-inputs "source")
 168                    "--strip" "1")
 169            (mkdir-p install-directory)
 170            (let* ((file "src/respond.js")
 171                   (installed (string-append install-directory "respond.min.js")))
 172              (let ((minified (open-pipe* OPEN_READ "uglify-js" file)))
 173                (call-with-output-file installed
 174                  (cut dump-port minified <>)))))
 175          #t)))
 176     (home-page "https://github.com/scottjehl/Respond")
 177     (native-inputs
 178      `(("uglify-js" ,uglify-js)
 179        ("source" ,source)
 180        ("gzip" ,gzip)
 181        ("tar" ,tar)))
 182     (synopsis "Polyfill for min/max-width CSS3 Media Queries")
 183     (description "The goal of this script is to provide a fast and lightweight
 184 script to enable responsive web designs in browsers that don't support CSS3
 185 Media Queries.")
 186     (license license:expat)))
 187
 188 (define-public js-html5shiv
 189   (package
 190     (name "js-html5shiv")
 191     (version "3.7.3")
 192     (source (origin
 193               (method url-fetch)
 194               (uri (string-append "https://github.com/aFarkas/html5shiv/"
 195                                   "archive/" version ".tar.gz"))
 196               (file-name (string-append name "-" version ".tar.gz"))
 197               (sha256
 198                (base32
 199                 "0inlbpxpqzdyi24lqagzf7l24zxg0y02xcpqs2h4npjscazzw7hg"))))
 200     (build-system minify-build-system)
 201     (home-page "https://github.com/aFarkas/html5shiv")
 202     (synopsis "Enable HTML5 sectioning elements in legacy browsers")
 203     (description "The HTML5 Shiv enables use of HTML5 sectioning elements in
 204 legacy Internet Explorer and provides basic HTML5 styling for Internet
 205 Explorer 6-9, Safari 4.x (and iPhone 3.x), and Firefox 3.x.")
 206     ;; From the file "MIT and GPL2 licenses.md":
 207     ;;
 208     ;;   This software is licensed under a dual license system (MIT or GPL
 209     ;;   version 2). This means you are free to choose with which of both
 210     ;;   licenses (MIT or GPL version 2) you want to use this library.
 211     (license (list license:expat license:gpl2))))
 212
 213 (define-public js-json2
 214   (let ((commit "031b1d9e6971bd4c433ca85e216cc853f5a867bd")
 215         (revision "1"))
 216     (package
 217       (name "js-json2")
 218       (version (string-append "2016-10-28." revision "-" (string-take commit 7)))
 219       (source (origin
 220                 (method git-fetch)
 221                 (uri (git-reference
 222                       (url "https://github.com/douglascrockford/JSON-js.git")
 223                       (commit commit)))
 224                 (file-name (string-append name "-" version "-checkout"))
 225                 (sha256
 226                  (base32
 227                   "1fvb6b2y5sd3sqdgcj683sdxcbxdii34q0ysc9wg0dq1sy81l11v"))))
 228       (build-system minify-build-system)
 229       (arguments
 230        `(#:javascript-files '("json2.js"
 231                               "json_parse.js"
 232                               "json_parse_state.js"
 233                               "cycle.js")))
 234       (home-page "https://github.com/douglascrockford/JSON-js")
 235       (synopsis "JSON encoders and decoders")
 236       (description "The files in this collection implement JSON
 237 encoders/decoders in JavaScript.
 238
 239 @code{json2.js}: This file creates a JSON property in the global object, if
 240 there isn't already one, setting its value to an object containing a stringify
 241 method and a parse method.  The @code{parse} method uses the @code{eval}
 242 method to do the parsing, guarding it with several regular expressions to
 243 defend against accidental code execution hazards.  On current browsers, this
 244 file does nothing, preferring the built-in JSON object.
 245
 246 @code{json_parse.js}: This file contains an alternative JSON @code{parse}
 247 function that uses recursive descent instead of @code{eval}.
 248
 249 @code{json_parse_state.js}: This files contains an alternative JSON
 250 @code{parse} function that uses a state machine instead of @code{eval}.
 251
 252 @code{cycle.js}: This file contains two functions, @code{JSON.decycle} and
 253 @code{JSON.retrocycle}, which make it possible to encode cyclical structures
 254 and DAGs in JSON, and to then recover them.  This is a capability that is not
 255 provided by ES5.  @code{JSONPath} is used to represent the links.")
 256       (license license:public-domain))))
 257
 258 (define-public js-strftime
 259   (package
 260     (name "js-strftime")
 261     (version "0.10.0")
 262     (source (origin
 263               (method url-fetch)
 264               (uri (string-append "https://github.com/samsonjs/strftime/"
 265                                   "archive/v" version ".tar.gz"))
 266               (file-name (string-append name "-" version ".tar.gz"))
 267               (sha256
 268                (base32
 269                 "1iya43w7y26y2dp9l4d40bhjc4scb5a9mng5ng5c8hsqr82f1375"))))
 270     (build-system minify-build-system)
 271     (arguments
 272      `(#:javascript-files '("strftime.js")))
 273     (home-page "https://github.com/samsonjs/strftime")
 274     (synopsis "Implementation of strftime to JavaScript")
 275     (description "This is an implementation of the @code{strftime} procedure
 276 for JavaScript.  It works in (at least) node.js and browsers.  It supports
 277 localization and timezones.  Most standard specifiers from C are supported as
 278 well as some other extensions from Ruby.")
 279     (license license:expat)))
 280
 281 (define-public js-highlight
 282   (package
 283     (name "js-highlight")
 284     (version "9.12.0")
 285     (source (origin
 286               (method url-fetch)
 287               (uri (string-append "https://github.com/isagalaev/highlight.js/"
 288                                   "archive/" version ".tar.gz"))
 289               (file-name (string-append name "-" version ".tar.gz"))
 290               (sha256
 291                (base32
 292                 "1jjn9mj7fwq4zpr6is438bscf03b3q8jkj0k5c3fc6pkmjnhw939"))))
 293     (build-system minify-build-system)
 294     (arguments
 295      `(#:javascript-files '("src/highlight.js")))
 296     (home-page "https://github.com/isagalaev/highlight.js")
 297     (synopsis "Syntax highlighting for JavaScript")
 298     (description "Highlight.js is a syntax highlighter written in JavaScript.
 299 It works in the browser as well as on the server.  It works with pretty much
 300 any markup, doesn’t depend on any framework and has automatic language
 301 detection.")
 302     (license license:bsd-3)))
 303
 304 (define-public js-datatables
 305   (package
 306     (name "js-datatables")
 307     (version "1.10.15")
 308     (source (origin
 309               (method url-fetch)
 310               (uri (string-append "https://datatables.net/releases/DataTables-"
 311                                   version ".zip"))
 312               (sha256
 313                (base32
 314                 "1y9xqyqyz7x1ls3ska71pshl2hpiy3qnw1f7wygyslbhy4ssgf57"))))
 315     (build-system minify-build-system)
 316     (arguments
 317      `(#:javascript-files '("media/js/dataTables.bootstrap.js"
 318                             "media/js/jquery.dataTables.js")))
 319     (native-inputs
 320      `(("unzip" ,unzip)))
 321     (home-page "https://datatables.net")
 322     (synopsis "DataTables plug-in for jQuery")
 323     (description "DataTables is a table enhancing plug-in for the jQuery
 324 Javascript library, adding sorting, paging and filtering abilities to plain
 325 HTML tables with minimal effort.")
 326     (license license:expat)))
 327
 328 (define-public js-selectize
 329   (package
 330     (name "js-selectize")
 331     (version "0.12.4")
 332     (source (origin
 333               (method url-fetch)
 334               (uri (string-append "https://github.com/selectize/selectize.js/"
 335                                   "archive/v" version ".tar.gz"))
 336               (file-name (string-append name "-" version ".tar.gz"))
 337               (sha256
 338                (base32
 339                 "0756p49aaz34mw2dx8k1gxf210mngfrri25vkba0j7wihd2af8gn"))))
 340     (build-system minify-build-system)
 341     (arguments `(#:javascript-files '("src/selectize.js")))
 342     (home-page "http://selectize.github.io/selectize.js/")
 343     (synopsis "Hybrid widget between a textbox and <select> box")
 344     (description "Selectize is the hybrid of a textbox and @code{<select>}
 345 box.  It's jQuery based and it has autocomplete and native-feeling keyboard
 346 navigation; it is useful for tagging, contact lists, etc.")
 347     (license license:asl2.0)))
 348
 349 (define-public js-es5-shim
 350   (package
 351     (name "js-es5-shim")
 352     (version "4.5.9")
 353     (source (origin
 354               (method url-fetch)
 355               (uri (string-append "https://github.com/es-shims/es5-shim/"
 356                                   "archive/v" version ".tar.gz"))
 357               (file-name (string-append name "-" version ".tar.gz"))
 358               (sha256
 359                (base32
 360                 "0yfndyijz0ykddzprpvfjb2453gzpn528klmwycwbqc1bqd3m1hl"))))
 361     (build-system minify-build-system)
 362     (arguments `(#:javascript-files
 363                  '("es5-sham.js"
 364                    "es5-shim.js")))
 365     (home-page "https://github.com/es-shims/es5-shim")
 366     (synopsis "ECMAScript 5 compatibility shims for legacy JavaScript engines")
 367     (description "@code{es5-shim.js} patches a JavaScript context to contain
 368 all ECMAScript 5 methods that can be faithfully emulated with a legacy
 369 JavaScript engine.  @code{es5-sham.js} patches other ES5 methods as closely as
 370 possible.  Many of these shams are intended only to allow code to be written
 371 to ES5 without causing run-time errors in older engines.  In many cases, this
 372 means that these shams cause many ES5 methods to silently fail.")
 373     (license license:expat)))
 374
 375 (define-public js-filesaver
 376   (package
 377     (name "js-filesaver")
 378     (version "1.3.8")
 379     (source (origin
 380               (method url-fetch)
 381               (uri (string-append "https://github.com/eligrey/FileSaver.js/"
 382                                   "archive/" version ".tar.gz"))
 383               (file-name (string-append name "-" version))
 384               (sha256
 385                (base32
 386                 "1rkhfqs5plaj628kzj7qgm5qahy4v7ihygifidqr6g6265mil97h"))))
 387     (build-system minify-build-system)
 388     (arguments
 389      `(#:phases
 390        (modify-phases %standard-phases
 391          (add-after 'unpack 'fix-uglification
 392            ;; Remove "export" keyword which prevents the file from being
 393            ;; uglified by uglify-js.  Moreover, that keyword is not present in
 394            ;; the minified version of the library some projects are using,
 395            ;; e.g.,
 396            ;; <https://github.com/jmoenig/Snap--Build-Your-Own-Blocks/blob/master/FileSaver.min.js>
 397            (lambda _
 398              (substitute* "src/FileSaver.js"
 399                (("export ") ""))
 400              #t)))))
 401     (home-page
 402      "https://eligrey.com/blog/saving-generated-files-on-the-client-side/")
 403     (synopsis "HTML5 saveAs() FileSaver implementation")
 404     (description "@file{FileSaver.js} implements the @code{saveAs()}
 405 FileSaver interface in browsers that do not natively support it.
 406
 407 @file{FileSaver.js} is the solution to saving files on the
 408 client-side, and is perfect for webapps that need to generate files,
 409 or for saving sensitive information that shouldn't be sent to an
 410 external server.")
 411     (license license:expat)))
 412
 413 (define-public mujs
 414   (package
 415     (name "mujs")
 416     (version "1.0.4")
 417     (source (origin
 418               (method git-fetch)
 419               (uri (git-reference
 420                     (url "https://git.ghostscript.com/mujs.git")
 421                     (commit version)))
 422               (file-name (string-append name "-" version "-checkout"))
 423               (sha256
 424                (base32
 425                 "1ly0yybs66nk63517kg4dmdc7dbikhqqqf2r2kvccgzzvv6k0vs8"))))
 426     (build-system gnu-build-system)
 427     (arguments
 428      '(#:phases (modify-phases %standard-phases
 429                   (delete 'configure))  ; no configure
 430        #:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out"))
 431                           (string-append "CC=gcc"))
 432        #:tests? #f))                    ; no tests
 433     (inputs
 434      `(("readline" ,readline)))
 435     (home-page "https://artifex.com/mujs/")
 436     (synopsis "JavaScript interpreter written in C")
 437     (description "MuJS is a lightweight Javascript interpreter designed for
 438 embedding in other software to extend them with scripting capabilities.  MuJS
 439 was designed with a focus on small size, correctness, and simplicity.  It is
 440 written in portable C and implements ECMAScript as specified by ECMA-262.  The
 441 interface for binding with native code is designed to be as simple as possible
 442 to use, and is very similar to Lua.  There is no need to interact with byzantine
 443 C++ template mechanisms, or worry about marking and unmarking garbage collection
 444 roots, or wrestle with obscure build systems.")
 445     (license license:isc)))