cran: r-shinydashboardplus: Process all JavaScript.

* guix-science/packages/cran.scm (r-shinydashboardplus)[source]:
Delete all minified JavaScript.
[arguments]: Use minify-build-system; change 'process-javascript phase
to process two more files.
[native-inputs]: Add clone of MaterialAdminLTE repository.

1 files changed, 51 insertions, 29 deletions

diff --git a/guix-science/packages/cran.scm b/guix-science/packages/cran.scm
index 671608b..f8585de 100644
--- a/guix-science/packages/cran.scm
+++ b/guix-science/packages/cran.scm
@@ -856,9 +856,7 @@ bles and plots.")
 for Shiny with spinners, progress bars, and notifications.")
     (license license:expat)))
 
-;; TODO: still have to remove these:
-;; materialDesign-1.0/js/material.min.js
-;; materialDesign-1.0/js/ripples.min.js
+;; This depends on r-waiter.
 (define-public r-shinydashboardplus
   (package
     (name "r-shinydashboardplus")
@@ -871,13 +869,18 @@ for Shiny with spinners, progress bars, and notifications.")
                 "10sdb1vddx2ij867pqijr63l4233hw1vnn7mzbs0z23g77x8ra29"))
               (modules '((guix build utils)))
               (snippet
-               `(with-directory-excursion
-                    ,(string-append "inst/shinydashboardPlus-" version
-                                    "/js/")
-                  (for-each delete-file-recursively
-                            '("app.min.js"
-                              "shinydashboardPlus.min.js"
-                              "shinydashboardPlus.min.js.map"))))))
+               `(begin
+                  (with-directory-excursion
+                      ,(string-append "inst/shinydashboardPlus-" version
+                                      "/js/")
+                    (for-each delete-file
+                              '("app.min.js"
+                                "shinydashboardPlus.min.js"
+                                "shinydashboardPlus.min.js.map")))
+                  (with-directory-excursion "inst/materialDesign-1.0/js"
+                    (for-each delete-file
+                              '("material.min.js"
+                                "ripples.min.js")))))))
     (properties `((upstream-name . "shinydashboardPlus")))
     (build-system r-build-system)
     (arguments
@@ -885,23 +888,30 @@ for Shiny with spinners, progress bars, and notifications.")
       ;; The tests launch a shinyApp; they are interactive tests that
       ;; will block forever, so we just don't run them.
       #:tests? #false
+      #:modules
+      '((guix build r-build-system)
+        (guix build minify-build-system)
+        (guix build utils)
+        (ice-9 match))
+      #:imported-modules
+      `(,@%r-build-system-modules
+        (guix build minify-build-system))
       #:phases
-      `(modify-phases %standard-phases
-         (add-after 'unpack 'process-javascript
-           (lambda _
-             (with-directory-excursion
-                 ,(string-append "inst/shinydashboardPlus-" version
-                                 "/js/")
-               (let ((mapping
-                      `(("app.js" . "app.min.js")
-                        ("shinydashboardPlus.js" . "shinydashboardPlus.min.js"))))
-                 (for-each (lambda (source target)
-                             (format #true "Processing ~a --> ~a~%"
-                                     source target)
-                             (invoke "esbuild" source "--minify"
-                                     (string-append "--outfile=" target)))
-                           (map car mapping)
-                           (map cdr mapping)))))))))
+      #~(modify-phases (@ (guix build r-build-system) %standard-phases)
+          (add-after 'unpack 'process-javascript
+            (lambda* (#:key inputs #:allow-other-keys)
+              (with-directory-excursion
+                  (string-append "inst/shinydashboardPlus-" #$version "/js/")
+                (for-each
+                 (match-lambda
+                   ((source . target)
+                    (minify source #:target target)))
+                 `(("app.js" . "app.min.js")
+                   ("shinydashboardPlus.js" . "shinydashboardPlus.min.js")
+                   (,(search-input-file inputs "/dist/js/material.js")
+                    . "materialDesign-1.0/js/material.min.js")
+                   (,(search-input-file inputs "/dist/js/ripples.js")
+                    . "materialDesign-1.0/js/ripples.min.js")))))))))
     (propagated-inputs
      (list r-fresh
            r-htmltools
@@ -910,11 +920,23 @@ for Shiny with spinners, progress bars, and notifications.")
            r-shinydashboard
            r-waiter))
     (native-inputs
-     (list esbuild r-knitr))
+     (list esbuild
+           r-knitr
+           (let ((commit "92a2284b47aed56a9d7ae92cf9b40072d27982b3"))
+             (origin
+               (method git-fetch)
+               (uri (git-reference
+                     (url "https://github.com/DucThanhNguyen/MaterialAdminLTE")
+                     (commit commit)))
+               (file-name (git-file-name "MaterialAdminLTE"
+                                         (git-version "0" "0" commit)))
+               (sha256
+                (base32
+                 "0cn11hxpf25h7xj2lk473z24swgz979dz255zwk2m2fj00iljkn9"))))))
     (home-page "https://github.com/RinteRface/shinydashboardPlus")
     (synopsis "Add more AdminLTE2 components to shinydashboard")
     (description
      "This package extends shinydashboard with AdminLTE2 components.
-AdminLTE2 is a Bootstrap 3 dashboard template.  Customize boxes, add
-timelines and a lot more.")
+AdminLTE2 is a Bootstrap 3 dashboard template.  Customize boxes, add timelines
+and a lot more.")
     (license license:gpl2+)))