projects
/
candle
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Update date/time format to include zeroes correctly
[candle]
/
src
/
main
/
server.lisp
diff --git
a/src/main/server.lisp
b/src/main/server.lisp
index 1f9a96cc1d2fd2888995c1f998c6a627911cef28..ef80743b6cd9ab45bb5de390f73892a539858845 100644
(file)
--- a/
src/main/server.lisp
+++ b/
src/main/server.lisp
@@
-103,3
+103,11
@@
(when (not project) (error "Project does not exist"))
(when (not job) (error "Job does not exist"))
(job-log job)))
+
+(defun list-projects ()
+ (mapcar
+ (lambda (project)
+ (list
+ (project-name project)
+ (project-src project)))
+ *all-project*))