mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

builder specific js

Browse source
This commit is contained in:
David Botton 2024-07-02 22:58:18 -04:00
parent f66c9e34e1
commit fa7133f4d8
4 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

0
static-files/js/beautify-css.js → static-files/builder-js/beautify-css.js vendored
View file

0
static-files/js/beautify-html.js → static-files/builder-js/beautify-html.js vendored
View file

0
static-files/js/beautify.js → static-files/builder-js/beautify.js vendored
View file

9
tools/clog-builder.lisp
View file

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