Mathjax plugin cleanups.

docs/plugin-use.md

@@ -24,13 +24,13 @@
 
 ### Options
 
-`:force`, when specified with a true value, will force the inclusion of MathJax, even if no posts are tagged "math".  Default value is `nil`.
+`:force`, when non-nil, will force the inclusion of MathJax on all posts.  Default value is `nil`.
 
-`:mathjax-url` specifies the location of the `MathJax.js`.  The default value is `"http://cdn.mathjax.org/mathjax/latest/MathJax.js"`.  This is useful if you want to force a specific value of MathJax, or if you have a local copy of MathJax and want to use that version.
+`:location` specifies the location of the `MathJax.js` file.  The default value is `"http://cdn.mathjax.org/mathjax/latest/MathJax.js"`.  This is useful if you have a local copy of MathJax and want to use that version.
 
-`:config` allows the specification of the config parameter of `MathJax.js`.  The default value is `"TeX-AMS-MML_HTMLorMML"`.  
+`:preset` allows the specification of the config parameter of `MathJax.js`.  The default value is `"TeX-AMS-MML_HTMLorMML"`.
 
-`:mathjax-config` allows specifying the content of the `...` in a `MathJax.Hub.Config ({ ... });` section.  The default is `tex2jax: {inlineMath: [['$$','$$']]}`, which allows display equations to be enclosed in `$$`.  If a `nil` argument is supplied the whole `<script>` section containing the `MathJax.Hub.Config` will be omitted.
+`:config` is used as supplementary inline configuration to the `MathJax.Hub.Config ({ ... });`. It is unused by default.
 
 ## ReStructuredText
 

plugins/mathjax.lisp

@@ -9,41 +9,19 @@
 
 (in-package :coleslaw-mathjax)
 
-(defvar *mathjax-config-header* "<script type=\"text/x-mathjax-config\">
-  MathJax.Hub.Config({
-    ~A
-  });
+(defvar *mathjax-header* "<script type=\"text/x-mathjax-config\">
+  MathJax.Hub.Config({~@[~A~]});
 </script>
-")
+<script type=\"text/javascript\" src=\"~A~@[?config=~A~]\"></script>")
 
-(defvar *default-mathjax-config* "tex2jax: {inlineMath: [['$$','$$']]}")
-
-(defvar *mathjax-load-header-no-config* "<script type=\"text/javascript\"
-src=\"~A\"> 
-</script>
-")
-
-(defvar *mathjax-load-header-with-config* "<script type=\"text/javascript\"
-src=\"~A?config=~A\"> 
-</script>
-")
-
-(defun enable (&key force 
-		 (mathjax-url "http://cdn.mathjax.org/mathjax/latest/MathJax.js")
-		 (config "TeX-AMS-MML_HTMLorMML")
-		 (mathjax-config *default-mathjax-config*))
+(defun enable (&key force config (preset "TeX-AMS-MML_HTMLorMML")
+                 (location "http://cdn.mathjax.org/mathjax/latest/MathJax.js"))
   (labels ((math-post-p (obj)
              (member "math" (content-tags obj) :test #'string=))
            (mathjax-p (obj)
-	     (or force
-		 (etypecase obj
-		   (content (math-post-p obj))
-		   (index (some #'math-post-p (index-posts obj)))))))
-
-    (let ((mathjax-header 
-	   (concatenate 'string
-			(if mathjax-config (format nil *mathjax-config-header* mathjax-config) "")
-			(if config
-			    (format nil *mathjax-load-header-with-config* mathjax-url config)
-			    (format nil *mathjax-load-header-no-config* mathjax-url)))))
+             (or force
+                 (etypecase obj
+                   (content (math-post-p obj))
+                   (index (some #'math-post-p (index-posts obj)))))))
+    (let ((mathjax-header (format nil *mathjax-header* config location preset)))
       (add-injection (list mathjax-header #'mathjax-p) :head))))

src/coleslaw.lisp

@@ -75,7 +75,7 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
 (defun main (config-key)
   "Load the user's config section corresponding to CONFIG-KEY, then
 compile and deploy the blog."
-  (let (*injections*) 
+  (let (*injections*)
     (load-config config-key)
     (load-content)
     (compile-theme (theme *config*))