From fa7133f4d8030f71ee2a715df2fe1c4c147cd5a0 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Tue, 2 Jul 2024 22:58:18 -0400
Subject: [PATCH] builder specific js

---
 static-files/{js => builder-js}/beautify-css.js  | 0
 static-files/{js => builder-js}/beautify-html.js | 0
 static-files/{js => builder-js}/beautify.js      | 0
 tools/clog-builder.lisp                          | 9 ++++++---
 4 files changed, 6 insertions(+), 3 deletions(-)
 rename static-files/{js => builder-js}/beautify-css.js (100%)
 rename static-files/{js => builder-js}/beautify-html.js (100%)
 rename static-files/{js => builder-js}/beautify.js (100%)

diff --git a/static-files/js/beautify-css.js b/static-files/builder-js/beautify-css.js
similarity index 100%
rename from static-files/js/beautify-css.js
rename to static-files/builder-js/beautify-css.js
diff --git a/static-files/js/beautify-html.js b/static-files/builder-js/beautify-html.js
similarity index 100%
rename from static-files/js/beautify-html.js
rename to static-files/builder-js/beautify-html.js
diff --git a/static-files/js/beautify.js b/static-files/builder-js/beautify.js
similarity index 100%
rename from static-files/js/beautify.js
rename to static-files/builder-js/beautify.js
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 7d6d503..d272199 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -382,9 +382,9 @@ clog-builder window.")
                           (make-instance 'console-in-stream :clog-obj body)))
     (clog-gui-initialize body :use-clog-debugger t :standard-output (stdout app))
     (add-class body *builder-window-desktop-class*)
-    (load-script (html-document body) "/js/beautify.js" :load-only-once t)
-    (load-script (html-document body) "/js/beautify-css.js" :load-only-once t)
-    (load-script (html-document body) "/js/beautify-html.js" :load-only-once t)
+    (load-script (html-document body) "/builder-js/beautify.js" :load-only-once t)
+    (load-script (html-document body) "/builder-js/beautify-css.js" :load-only-once t)
+    (load-script (html-document body) "/builder-js/beautify-html.js" :load-only-once t)
     (when *password-protect*
       (input-dialog body "Enter password:" (lambda (result)
                                              (unless (equal result (if (functionp *password-protect*)
@@ -634,6 +634,9 @@ clog-builder window.")
         (format nil "~A/preferences.lisp"
                 (merge-pathnames "tools"
                                  (asdf:system-source-directory :clog))))
+  (clog-connection:add-plugin-path "^/builder-js/"
+                                   (merge-pathnames "./static-files/"
+                                                    (asdf:system-source-directory :clog)))
   (load *preferances-file*
         :if-does-not-exist nil
         :verbose t)