Rename project-row to include eliss namespace
This commit is contained in:
parent
f4d37d1178
commit
57a4ee838a
1 changed files with 2 additions and 2 deletions
4
eliss.el
4
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$"))))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue