Commit 9c24a1ce authored by Antoine Martin's avatar Antoine Martin
Browse files

Add linking to cells

parent 1137221d
......@@ -53,7 +53,7 @@
(2 (values (+ split 1) (+ split 1) split))))))
(defun build-cell (s)
(format nil "<td></td><td>~A</td>" s))
(format nil "<td></td><td><a href=\"~A\">~A</a></td>" s s))
(defun print-columns (l size file)
(multiple-value-bind (lfirst lsecond lthird)
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