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

customize look of rendered code

Browse source
This commit is contained in:
David Botton 2024-04-15 20:05:50 -04:00
parent 86217ad0f8
commit fd2afcefd9
3 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-render.lisp
View file

@ -125,8 +125,8 @@
(with-output-to-string (s r) (with-output-to-string (s r)
(with-input-from-string (n result) (with-input-from-string (n result)
(let ((*standard-output* s) (let ((*standard-output* s)
(*print-right-margin* 80) (*print-right-margin* *builder-render-right-margin* )
(*print-case* :downcase)) (*print-case* *builder-render-case*))
(format t ";;;; CLOG Builder generated code - modify original .clog file and rerender") (format t ";;;; CLOG Builder generated code - modify original .clog file and rerender")
(loop (loop
(let ((l (read n nil))) (let ((l (read n nil)))

4
tools/clog-builder-settings.lisp
View file

@ -49,6 +49,10 @@
(defparameter *clog-repl-send-result-to-console* nil) (defparameter *clog-repl-send-result-to-console* nil)
(defparameter *clog-repl-private-console* nil) (defparameter *clog-repl-private-console* nil)
;; Panel Builder
(defparameter *builder-render-right-margin* 80)
;; Builder Look and Feel ;; Builder Look and Feel
(defparameter *builder-window-desktop-class* "w3-blue-grey") (defparameter *builder-window-desktop-class* "w3-blue-grey")

4
tools/preferences.lisp.sample vendored
View file

@ -57,6 +57,10 @@
(setf *clog-repl-send-result-to-console* nil) (setf *clog-repl-send-result-to-console* nil)
(setf *clog-repl-private-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 ;; Builder Look and Feel
(setf *builder-window-desktop-class* "w3-blue-grey") (setf *builder-window-desktop-class* "w3-blue-grey")