Merge pull request #5 from dmurdoch/move_js_to_src

Move the uncompressed source to src/mathjax.

Author: wviechtb

.Rbuildignore

@@ -5,3 +5,4 @@
 ^docs$
 ^.*\.Rproj$
 ^\.Rproj\.user$
+^inst/doc/mathjax

inst/doc/.gitignore

@@ -0,0 +1 @@
+mathjax

src/install.libs.R

@@ -1,15 +1,25 @@
-message(getwd())
-
-mjdir <- "../inst/doc/mathjax"
-
-jsfiles <- list.files(mjdir, pattern = "[.]js$",   recursive = TRUE)
-
+srcdir <- "../src"
+destdir <- "../inst/doc"
+jsfiles <- list.files(srcdir, pattern = "[.]js$",
+                      recursive = TRUE)
+fontfiles <- list.files(srcdir, pattern = "[.]woff$",
+                        recursive = TRUE)
 minify <- requireNamespace("js", quietly = TRUE)
-
-if (minify) {
-   for (f in jsfiles) {
-      dir <- file.path(mjdir, dirname(f))
-      mini <- js::uglify_files(file.path(mjdir, f), unused = FALSE)
-      writeLines(mini, file.path(dir, basename(f)))
-   }
+for (f in jsfiles) {
+  dir <- file.path(destdir, dirname(f))
+  if (!dir.exists(dir))
+    dir.create(dir, recursive = TRUE)
+  if (minify) {
+    mini <- js::uglify_files(file.path(srcdir, f), unused = FALSE)
+    writeLines(mini, file.path(dir, basename(f)))
+  } else
+    file.copy(file.path(srcdir, f),
+              file.path(destdir, f))
 }
+for (f in fontfiles) {
+  dir <- file.path(destdir, dirname(f))
+  if (!dir.exists(dir))
+    dir.create(dir, recursive = TRUE)
+  file.copy(file.path(srcdir, f),
+            file.path(destdir, f))
+}