From fd2afcefd9cd60cde5d0b6a9f83c6609eacf8f1a Mon Sep 17 00:00:00 2001 From: David Botton Date: Mon, 15 Apr 2024 20:05:50 -0400 Subject: [PATCH] customize look of rendered code --- tools/clog-builder-render.lisp | 4 ++-- tools/clog-builder-settings.lisp | 4 ++++ tools/preferences.lisp.sample | 4 ++++ 3 files changed, 10 insertions(+), 2 deletions(-) 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")