diff options
-rw-r--r-- | eliss.el | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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$")))))) |