From d59a0232dbc699caf991f00b96038ccd62005927 Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Mon, 7 Sep 2020 06:35:41 -0500
Subject: ratpub: Use js-filesaver-1.3.2.

---
 gn/packages/javascript.scm | 26 ++++++++++++++++++++++++++
 gn/packages/ratspub.scm    |  4 ++--
 2 files changed, 28 insertions(+), 2 deletions(-)

(limited to 'gn/packages')

diff --git a/gn/packages/javascript.scm b/gn/packages/javascript.scm
index 51e0e10..1325a29 100644
--- a/gn/packages/javascript.scm
+++ b/gn/packages/javascript.scm
@@ -1,6 +1,7 @@
 (define-module (gn packages javascript)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages javascript)
   #:use-module (gn packages web)
   #:use-module (guix packages)
   #:use-module (guix utils)
@@ -801,6 +802,31 @@ not natively support it.")
 client-side, and is perfect for web apps that generates files on the client.")
     (license license:expat)))
 
+(define-public js-filesaver-1.3.2
+  (package
+    (inherit js-filesaver)
+    (name "js-filesaver")
+    (version "1.3.2")
+    (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
+                "02f34yr56i5fyppna52bhn6i9wj0zhvj4vp9vkg9v74yls1hdczz"))))
+    (arguments
+     `(#:javascript-files '("FileSaver.js")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'install-unminified-version
+           (lambda* (#:key outputs #:allow-other-keys)
+             (install-file "FileSaver.js"
+                           (string-append (assoc-ref outputs "out")
+                                          "/share/javascript"))
+             #t)))))))
+
 (define-public javascript-underscore
   (package
     (name "javascript-underscore")
diff --git a/gn/packages/ratspub.scm b/gn/packages/ratspub.scm
index ea333db..d385ebf 100644
--- a/gn/packages/ratspub.scm
+++ b/gn/packages/ratspub.scm
@@ -52,7 +52,7 @@
                               "templates/tableview.html"
                               "templates/tableview0.html"
                               "templates/userarchive.html")
-                 ;(("https.*FileSaver.js.*>") "/static/FileSaver.js\">")            ; We have 1.3.8, origin is 1.3.2.
+                 ;(("https.*FileSaver.js.*>") "/static/FileSaver.js\">")    ; Something about our copy is different
                  ;(("https.*cytoscape-svg.js.*>") "/static/cytoscape-svg.js\">")    ; TODO
                  (("https.*cytoscape.min.js.*>") "/static/cytoscape.min.js\">"))
                (substitute* "templates/layout.html"
@@ -132,7 +132,7 @@
        ("cytoscape" ,javascript-cytoscape)
        ("font-awesome" ,web-font-awesome)
        ("jquery" ,web-jquery)
-       ("js-filesaver" ,js-filesaver)
+       ("js-filesaver" ,js-filesaver-1.3.2)
        ;("js-popper" ,js-popper)    ; empty output
        ))
     (home-page "http://rats.pub/")
-- 
cgit v1.2.3