From 57a4ee838a91e2116b6d09cd8d401aa1c27f6fa1 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 19 May 2013 03:07:11 +0200 Subject: Rename project-row to include eliss namespace --- eliss.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eliss.el b/eliss.el index fbc948e..17dd625 100644 --- a/eliss.el +++ b/eliss.el @@ -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$")))))) -- cgit v1.2.3-54-g00ecf