me
/
guix
Archived
1
0
Fork 0
Code

gnu: r-rintrojs: Update to 0.3.0. 

* gnu/packages/cran.scm (r-rintrojs): Update to 0.3.0.
[source]: Delete minified JavaScript in snippet.
[arguments]: Minify with esbuild.
[native-inputs]: Replace uglify-js with esbuild; update intro.js to 3.2.1.
[license]: Add license of intro.js.
master
Ricardo Wurmus 2021-07-10 09:12:18 +02:00
parent 5c45ed059c
commit 94be433332
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 16 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
gnu/packages/cran.scm
View File

@ -19773,50 +19773,39 @@ cell free DNA} (cfDNA).")
(define-public r-rintrojs (define-public r-rintrojs
(package (package
(name "r-rintrojs") (name "r-rintrojs")
(version "0.2.2") (version "0.3.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "rintrojs" version)) (uri (cran-uri "rintrojs" version))
(sha256 (sha256
(base32 (base32
"0vyqb3pyrh12saddar71ac9csn2vkd2j8ln6ygpqys8ky1lc3427")))) "00l5mk80gj3xkbf3m1kip566ic98bhd88lh0bg69ybkpk4gifpyw"))
(snippet
'(delete-file "inst/javascript/introjs/intro.min.js"))))
(properties `((upstream-name . "rintrojs"))) (properties `((upstream-name . "rintrojs")))
(build-system r-build-system) (build-system r-build-system)
(arguments (arguments
`(#:modules ((guix build utils) `(#:phases
(guix build r-build-system)
(srfi srfi-1)
(ice-9 popen))
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'process-javascript (add-after 'unpack 'process-javascript
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "inst/javascript/introjs/" (with-directory-excursion "inst/javascript/introjs/"
(call-with-values (let ((source (assoc-ref inputs "intro.js"))
(lambda () (target "intro.min.js"))
(unzip2 (format #true "Processing ~a --> ~a~%"
`((,(assoc-ref inputs "intro.js") source target)
"intro.min.js")))) (invoke "esbuild" source "--minify"
(lambda (sources targets) (string-append "--outfile=" target)))))))))
(for-each (lambda (source target)
(format #t "Processing ~a --> ~a~%"
source target)
(let ((minified (open-pipe* OPEN_READ "uglify-js" source)))
(call-with-output-file target
(lambda (port)
(dump-port minified port)))))
sources targets))))
#t)))))
(native-inputs (native-inputs
`(("uglify-js" ,uglify-js) `(("esbuild" ,esbuild)
("intro.js" ("intro.js"
,(origin ,(origin
(method url-fetch) (method url-fetch)
(uri "https://raw.githubusercontent.com/usablica/intro.js/v2.9.3/intro.js") (uri "https://cdn.jsdelivr.net/npm/intro.js@3.2.1/intro.js")
(sha256 (sha256
(base32 (base32
"1qf8n1sfy9qkiqqnfgg0xbhmfgh0g3mqsjas8qhz230h3zzlzxj8")))))) "0vh5n7hqqyx2pdvlqq6xadfqibcn78h5961rwhpf817kpxfzv8v7"))))))
(propagated-inputs (propagated-inputs
`(("r-jsonlite" ,r-jsonlite) `(("r-jsonlite" ,r-jsonlite)
("r-shiny" ,r-shiny))) ("r-shiny" ,r-shiny)))
@ -19828,7 +19817,8 @@ Intro.js} library. This package makes it easy to include step-by-step
introductions, and clickable hints in a Shiny application. It supports both introductions, and clickable hints in a Shiny application. It supports both
static introductions in the UI, and programmatic introductions from the static introductions in the UI, and programmatic introductions from the
server-side.") server-side.")
(license license:agpl3+))) ;; The intro.js library is licensed under Expat.
(license (list license:agpl3+ license:expat))))
(define-public r-sysfonts (define-public r-sysfonts
(package (package