Rename project-row to include eliss namespace

This commit is contained in:
Tom Willemse 2013-05-19 03:07:11 +02:00
parent f4d37d1178
commit 57a4ee838a

View file

@ -24,7 +24,7 @@
,@body))
(put 'with-eliss-http-params 'lisp-indent-function 2)
(defun project-row (project)
(defun eliss-project-row (project)
"Print a table row for PROJECT."
(let ((pname (substring project 0 -4)))
`(tr (td (a (@ (href ,(concat "/" pname "/"))) ,pname)))))
@ -56,7 +56,7 @@ container div."
(eliss-page
"project list"
`(table (@ (class "table"))
,@(mapcar #'project-row
,@(mapcar #'eliss-project-row
(directory-files eliss-data-directory nil
"\\.org$"))))))