paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Format

Browse source
This commit is contained in:
paku 2024-10-03 10:28:59 +09:00
parent 8c539dc879
commit bc2bc378c7
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/utils.lisp
View file

@ -46,15 +46,16 @@
(defun minify (input-string) (defun minify (input-string)
(with-output-to-string (out) (with-output-to-string (out)
(let ((previous-space-p nil)) (let ((previous-space-p nil))
(loop for char across input-string do (loop
(cond :for char :across input-string
((whitespace-p char) :do (cond
(unless previous-space-p ((whitespace-p char)
(write-char #\Space out)) (unless previous-space-p
(setf previous-space-p t)) (write-char #\Space out))
(t (setf previous-space-p t))
(write-char char out) (t
(setf previous-space-p nil))))))) (write-char char out)
(setf previous-space-p nil)))))))
(defun whitespace-p (char) (defun whitespace-p (char)
(member char '(#\Space #\Newline #\Tab #\Return) :test #'char=)) (member char '(#\Space #\Newline #\Tab #\Return) :test #'char=))