Commit 1137221d authored by Antoine Martin's avatar Antoine Martin
Browse files

Make function printing cells more modular

parent 75fe915d
......@@ -52,6 +52,9 @@
(1 (values (+ split 1) (+ split 1) (- split 1)))
(2 (values (+ split 1) (+ split 1) split))))))
(defun build-cell (s)
(format nil "<td></td><td>~A</td>" s))
(defun print-columns (l size file)
(multiple-value-bind (lfirst lsecond lthird)
(get-columns-length size)
......@@ -62,15 +65,15 @@
((= n lfirst) nil)
(if (>= n lsecond)
(format file
"<tr><td></td><td>~a</td></tr>~%"
(car f))
"<tr>~A</tr>~%"
(build-cell (car f)))
(if (>= n lthird)
(format file
"<tr><td></td><td>~a</td><td></td><td>~a</td></tr>~%"
(car f) (car s))
"<tr>~A~A</tr>~%"
(build-cell (car f)) (build-cell (car s)))
(format file
"<tr><td></td><td>~a</td><td></td><td>~a</td><td></td><td>~a</td></tr>~%"
(car f) (car s) (car th)))))))
"<tr>~A~A~A</tr>~%"
(build-cell (car f)) (build-cell (car s)) (build-cell (car th))))))))
(defun get-directory-list (path)
(loop for dir in (directory path)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment