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

handle tabbify on blank lines

Browse source
This commit is contained in:
David Botton 2024-04-18 08:13:52 -04:00
parent e45ca1ea9a
commit 965f17b847
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder-files.lisp
View file

@ -474,7 +474,7 @@
(let ((r (make-array '(0) :element-type 'base-char
:fill-pointer 0 :adjustable t)))
(with-output-to-string (s r)
(with-input-from-string (n data)
(with-input-from-string (n (format nil "~A|" data))
(let ((*standard-output* s))
(indentify:indentify n))))
(loop
@ -485,6 +485,7 @@
(setf r (subseq r end))))
(unless (or (eq r nil)
(equal r ""))
(setf r (subseq r 0 (1- (length r))))
(js-execute ace (format nil "~A.insert('~A',true)"
(clog-ace::js-ace ace)
(escape-string r)))