ryuslash/eliss
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Rename project-row to include eliss namespace

Browse source
This commit is contained in:
Tom Willemse 2013-05-19 03:07:11 +02:00
parent f4d37d1178
commit 57a4ee838a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
eliss.el
View file

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