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

color coding for known types, lisp, js, css etc

Browse source
This commit is contained in:
David Botton 2022-07-19 18:54:30 -04:00
parent 5906d9b7df
commit ca2fdd3585
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder.lisp
View file

@ -2043,9 +2043,11 @@ 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"))
(if (or (equalp (pathname-type fname) "lisp")
(equalp (pathname-type fname) "asd"))
(setf (clog-ace:mode ace) "ace/mode/lisp")
(setf (clog-ace:mode ace)
(clog-ace:get-mode-from-extension ace fname)))
(setf file-name fname)
(setf (window-title win) fname)
(setf (clog-ace:text-value ace)