diff --git a/tools/clog-builder-render.lisp b/tools/clog-builder-render.lisp index b57ba69..e941372 100644 --- a/tools/clog-builder-render.lisp +++ b/tools/clog-builder-render.lisp @@ -125,8 +125,8 @@ (with-output-to-string (s r) (with-input-from-string (n result) (let ((*standard-output* s) - (*print-right-margin* 80) - (*print-case* :downcase)) + (*print-right-margin* *builder-render-right-margin* ) + (*print-case* *builder-render-case*)) (format t ";;;; CLOG Builder generated code - modify original .clog file and rerender") (loop (let ((l (read n nil))) diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp index 3a3f538..95efe16 100644 --- a/tools/clog-builder-settings.lisp +++ b/tools/clog-builder-settings.lisp @@ -49,6 +49,10 @@ (defparameter *clog-repl-send-result-to-console* nil) (defparameter *clog-repl-private-console* nil) +;; Panel Builder + +(defparameter *builder-render-right-margin* 80) + ;; Builder Look and Feel (defparameter *builder-window-desktop-class* "w3-blue-grey") diff --git a/tools/preferences.lisp.sample b/tools/preferences.lisp.sample index 77ddd8b..f96719b 100644 --- a/tools/preferences.lisp.sample +++ b/tools/preferences.lisp.sample @@ -57,6 +57,10 @@ (setf *clog-repl-send-result-to-console* nil) (setf *clog-repl-private-console* nil) +;; Panel Builder +(setf *builder-render-right-margin* 80) +(setf *builder-render-case* :downcase) + ;; Builder Look and Feel (setf *builder-window-desktop-class* "w3-blue-grey")