mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2025-01-18 21:46:35 +01:00
gnu: Add r-waiter.
* gnu/packages/cran.scm (r-waiter): New variable. Change-Id: I98b27630eba86ab700ac30a361baf14a5d58dae8
This commit is contained in:
Ricardo Wurmus
parent
675d31a5df
commit
b1b981a477
1 changed files with 169 additions and 0 deletions
|
|
@ -1805,6 +1805,175 @@ (define-public r-waldo
|
|||
easier.")
|
||||
(license license:expat)))
|
||||
|
||||
;; We use the git repository, because it contains the JavaScript source code.
|
||||
;; We have to use this seemingly arbitrary commit after 0.2.5, because the
|
||||
;; sources for placeholder.js were not included in the latest release.
|
||||
(define-public r-waiter
|
||||
(let ((commit "927501bfa41c37e33d13a90bbc329a2887e0cec0")
|
||||
(revision "1"))
|
||||
(package
|
||||
(name "r-waiter")
|
||||
(version (git-version "0.2.5" revision commit))
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/JohnCoene/waiter")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0s5d09srd1d1s35lp2fb93dvyfkjv1rasbl25ps1p137jv7zn079"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(delete-file-recursively "inst/packer"))))
|
||||
(properties `((upstream-name . "waiter")))
|
||||
(build-system r-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:modules
|
||||
'((guix build r-build-system)
|
||||
(guix build minify-build-system)
|
||||
(guix build utils))
|
||||
#:imported-modules
|
||||
`(,@%r-build-system-modules
|
||||
(guix build minify-build-system))
|
||||
#:phases
|
||||
'(modify-phases (@ (guix build r-build-system) %standard-phases)
|
||||
(add-after 'unpack 'process-javascript
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(mkdir-p "inst/packer")
|
||||
(call-with-output-file "build.js"
|
||||
(lambda (port)
|
||||
(display "\
|
||||
const esbuild = require('esbuild');
|
||||
const path = require('path');
|
||||
const fs = require('fs');
|
||||
|
||||
// Define the entries and output directory
|
||||
const entries = {
|
||||
'waiter': './srcjs/exts/waiter/waiter.js',
|
||||
'waitress': './srcjs/exts/waitress/waitress.js',
|
||||
'hostess': './srcjs/exts/hostess/hostess.js',
|
||||
'attendant': './srcjs/exts/attendant/attendant.js',
|
||||
'placeholder': './srcjs/exts/placeholder/placeholder.js'
|
||||
};
|
||||
|
||||
// A little plugin to inject the CSS into the generated JavaScript file.
|
||||
let style = {
|
||||
name: 'style',
|
||||
setup(build) {
|
||||
const cwd = process.cwd();
|
||||
const opt = {
|
||||
logLevel: 'silent',
|
||||
bundle: true,
|
||||
write: false,
|
||||
minify: true,
|
||||
charset: 'utf8'
|
||||
};
|
||||
|
||||
build.onResolve({ filter: /\\.css$/, namespace: 'file' }, args => {
|
||||
const absPath = path.join(args.resolveDir, args.path);
|
||||
const relPath = path.relative(cwd, absPath);
|
||||
const resolved = fs.existsSync(absPath) ? relPath : args.path;
|
||||
return { path: resolved, namespace: 'style-stub' };
|
||||
});
|
||||
|
||||
build.onResolve({ filter: /\\.css$/, namespace: 'style-stub' }, args => {
|
||||
return { path: args.path, namespace: 'style-content' };
|
||||
});
|
||||
|
||||
build.onResolve({ filter: /^__style_helper__$/, namespace: 'style-stub' }, args => ({
|
||||
path: args.path,
|
||||
namespace: 'style-helper',
|
||||
sideEffects: false,
|
||||
}));
|
||||
|
||||
build.onLoad({ filter: /.*/, namespace: 'style-helper' }, async () => ({
|
||||
contents: `
|
||||
export function injectStyle(text) {
|
||||
if (typeof document !== 'undefined') {
|
||||
var style = document.createElement('style')
|
||||
var node = document.createTextNode(text)
|
||||
style.appendChild(node)
|
||||
document.head.appendChild(style)
|
||||
}
|
||||
}
|
||||
`,
|
||||
}));
|
||||
|
||||
build.onLoad({ filter: /.*/, namespace: 'style-stub' }, async args => ({
|
||||
contents: `
|
||||
import { injectStyle } from \"__style_helper__\"
|
||||
import css from ${JSON.stringify(args.path)}
|
||||
injectStyle(css)
|
||||
`,
|
||||
}));
|
||||
|
||||
build.onLoad({ filter: /.*/, namespace: 'style-content' }, async args => {
|
||||
const options = { entryPoints: [args.path], ...opt };
|
||||
const { errors, warnings, outputFiles } = await esbuild.build(options);
|
||||
return { errors, warnings, contents: outputFiles[0].text, loader: \"text\" };
|
||||
});
|
||||
},
|
||||
};
|
||||
|
||||
esbuild.build({
|
||||
entryPoints: Object.values(entries),
|
||||
entryNames: '[name]',
|
||||
outdir: './inst/packer',
|
||||
bundle: true,
|
||||
minify: true,
|
||||
format: 'iife',
|
||||
globalName: 'waiter',
|
||||
external: ['shiny', 'jquery'],
|
||||
loader: {
|
||||
'.js': 'js',
|
||||
},
|
||||
plugins: [style]
|
||||
})
|
||||
" port)))
|
||||
(install-file (search-input-file inputs "/dist/loading-bar.js")
|
||||
"srcjs/exts/hostess")
|
||||
(install-file (search-input-file inputs "/dist/loading-bar.css")
|
||||
"srcjs/exts/hostess")
|
||||
(substitute* "srcjs/exts/hostess/hostess.js"
|
||||
(("@loadingio/loading-bar/lib/") "./")
|
||||
(("@loadingio/loading-bar/dist/") "./"))
|
||||
(setenv "ESBUILD_BINARY_PATH" (search-input-file inputs "/bin/esbuild"))
|
||||
(invoke "node" "build.js")
|
||||
|
||||
;; Almost forgot this one...
|
||||
(minify (search-input-file inputs "loadgo-nojquery.js")
|
||||
#:target
|
||||
"inst/assets/garcon/garcon.min.js"))))))
|
||||
(propagated-inputs (list r-htmltools r-r6 r-shiny))
|
||||
(native-inputs
|
||||
(list esbuild-node node-lts r-knitr
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/loadingio/loading-bar")
|
||||
(commit "0.1.0")))
|
||||
(file-name (git-file-name "js-loading-bar" "0.1.0"))
|
||||
(sha256
|
||||
(base32
|
||||
"12z8m362k3gldkjhx3l65zrw7ifqkz21zgv9b2hw6ai5blkd33nv")))
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/franverona/loadgo")
|
||||
(commit "2.2.1")))
|
||||
(file-name (git-file-name "js-loadgo" "2.2.1"))
|
||||
(sha256
|
||||
(base32
|
||||
"1n11lhlv5i48xm0x7hj296lv363dbx4cldg12vr07q01pvj5fbdl")))))
|
||||
(home-page "https://waiter.john-coene.com/")
|
||||
(synopsis "Loading screen for Shiny")
|
||||
(description
|
||||
"This package provides full screen and partial loading screens for
|
||||
Shiny with spinners, progress bars, and notifications.")
|
||||
(license license:expat))))
|
||||
|
||||
(define-public r-wheatmap
|
||||
(package
|
||||
(name "r-wheatmap")
|
||||
|
|
|
|||
Loading…
Reference in a new issue