From 90cb942f5d7196c02eed194dc832e4444e059363 Mon Sep 17 00:00:00 2001
From: Alexander Artemenko <svetlyak.40wt@gmail.com>
Date: Thu, 29 Aug 2024 21:15:39 +0300
Subject: [PATCH] Enable MathJax plugin for 40ants-doc documentation.

---
 full/doc.lisp | 16 +++++++++++++---
 qlfile.lock   |  6 +++---
 2 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/full/doc.lisp b/full/doc.lisp
index cda31f2..f76ccf3 100644
--- a/full/doc.lisp
+++ b/full/doc.lisp
@@ -58,6 +58,10 @@
                 #:defautodoc)
   (:import-from #:40ants-doc/locatives/asdf-system
                 #:asdf-system-documentation-title)
+  (:import-from #:40ants-doc-full/plugins/mathjax
+                #:mathjax)
+  (:import-from #:40ants-doc-full/plugins/highlightjs
+                #:highlightjs)
   (:export #:@index
            #:@readme
            #:@changelog))
@@ -745,6 +749,12 @@ See full list of changes in the 40ANTS-DOC/CHANGELOG::@CHANGELOG section.
   ;; unnecessary dependencies here:
   (uiop:symbol-call :ql :quickload
                     :40ants-doc-theme-40ants)
-  (list :theme
-        (find-symbol "40ANTS-THEME"
-                     (find-package "40ANTS-DOC-THEME-40ANTS"))))
+  (let ((theme (find-symbol "40ANTS-THEME"
+                            (find-package "40ANTS-DOC-THEME-40ANTS"))))
+    (unless theme
+      (error "Unable to find 40ANTS-DOC-THEME-40ANTS::40ANTS-THEME symbol"))
+    
+    (list :theme
+          (make-instance theme
+                         :plugins (list (highlightjs)
+                                        (mathjax))))))
diff --git a/qlfile.lock b/qlfile.lock
index 113a6be..aab4797 100644
--- a/qlfile.lock
+++ b/qlfile.lock
@@ -1,8 +1,8 @@
 ("quicklisp" .
  (:class qlot/source/dist:source-dist
-  :initargs (:distribution "http://beta.quicklisp.org/dist/quicklisp.txt" :%version :latest)
+  :initargs (:distribution "https://beta.quicklisp.org/dist/quicklisp.txt" :%version :latest)
   :version "2023-10-21"))
 ("ultralisp" .
  (:class qlot/source/dist:source-dist
-  :initargs (:distribution "http://dist.ultralisp.org" :%version :latest)
-  :version "20240715082001"))
+  :initargs (:distribution "https://dist.ultralisp.org" :%version :latest)
+  :version "20240829155500"))