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

add color coding for lisp and asd files

Browse source
This commit is contained in:
David Botton 2022-07-19 18:04:31 -04:00
parent ebecb2269e
commit 5906d9b7df
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder.lisp
View file

@ -2031,6 +2031,7 @@ of controls and double click to select control."
(setf (height btn-test) "12px")
(setf (height btn-save) "12px")
(setf (height btn-load) "12px")
(setf (clog-ace:theme ace) "ace/theme/xcode")
(set-geometry ace :units "" :width "100%" :height "100%" :top 0 :bottom 0)
(clog-ace:resize ace)
(set-on-window-size-done win
@ -2042,6 +2043,9 @@ of controls and double click to select control."
(lambda (fname)
(window-focus win)
(when fname
(when (or (equalp (pathname-type fname) "lisp")
(equalp (pathname-type fname) "asd"))
(setf (clog-ace:mode ace) "ace/mode/lisp"))
(setf file-name fname)
(setf (window-title win) fname)
(setf (clog-ace:text-value ace)