From 048d98300c89cdbbe52c1cb744a4b891a9563b4f Mon Sep 17 00:00:00 2001
From: Claire Medeiros <listp@5ess.net>
Date: Mon, 24 Jul 2017 01:25:15 -0400
Subject: [PATCH] update the disqus universal embed script

---
 plugins/disqus.lisp | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/plugins/disqus.lisp b/plugins/disqus.lisp
index a2cab65..f52d6d1 100644
--- a/plugins/disqus.lisp
+++ b/plugins/disqus.lisp
@@ -6,25 +6,25 @@
 
 (in-package :coleslaw-disqus)
 
-(defvar *disqus-header*
+(defparameter *disqus-header*
   "<div id=\"disqus_thread\"></div>
-     <script type=\"text/javascript\">
-       /* * * CONFIGURATION VARIABLES: EDIT BEFORE PASTING INTO YOUR WEBPAGE * * */
-       var disqus_shortname = '~a';
-       /* * * DON'T EDIT BELOW THIS LINE * * */
-       (function() {
-         var dsq = document.createElement('script');
-         dsq.type = 'text/javascript';
-         dsq.async = true;
-         dsq.src = 'http://' + disqus_shortname + '.disqus.com/embed.js';
-         (document.getElementsByTagName('head')[0] || document.getElementsByTagName('body')[0]).appendChild(dsq);
+  <script>
+  var disqus_config = function () {
+  this.page.url = \"~A\";
+  this.page.identifier = \"~A\";
+  };
+  (function() { // DON'T EDIT BELOW THIS LINE
+           var d = document, s = d.createElement('script');
+           s.src = 'https://~A.disqus.com/embed.js';
+           s.setAttribute('data-timestamp', +new Date());
+           (d.head || d.body).appendChild(s);
            })();
-     </script>
-     <noscript>Please enable JavaScript to view the <a href=\"http://disqus.com/?ref_noscript\">comments powered by Disqus.</a></noscript>
-     <a href=\"http://disqus.com\" class=\"dsq-brlink\">comments powered by <span class=\"logo-disqus\">Disqus</span></a>")
+           </script>
+           <noscript>Please enable JavaScript to view the <a href=\"https://disqus.com/?ref_noscript\">comments powered by Disqus.</a></noscript>")
 
-(defun enable (&key shortname)
+(defun enable (&key shortname site-url)
   (flet ((inject-p (x)
            (when (typep x 'post)
-             (format nil *disqus-header* shortname))))
+             (format nil *disqus-header* site-url shortname shortname))))
     (add-injection #'inject-p :body)))
+