From 7e4d5611c1bbf509f0e234c5daf0eb05f716d961 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 16 Sep 2012 15:43:01 +0200
Subject: Add some classes to the projects table

These classes should make all the tables look the same, the other way
was messy.
---
 tekuti/projects.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tekuti/projects.scm b/tekuti/projects.scm
index 5fe29c8..7f68eb6 100644
--- a/tekuti/projects.scm
+++ b/tekuti/projects.scm
@@ -43,10 +43,10 @@
 (define (project->row dir project)
   (let ((project-dir (string-append dir "/" project)))
     `(tr
-      (td ,(gitless project))
-      (td ,(project-description project-dir))
-      (td ,(git-last-update project-dir))
-      (td ""))))
+      (td (@ (class "span3")) ,(gitless project))
+      (td (@ (class "span6")) ,(project-description project-dir))
+      (td (@ (class "span2")) ,(git-last-update project-dir))
+      (td (@ (class "span1")) ""))))
 
 (define (project-list->table top-dir list lvl)
   (let ((head (car list))
-- 
cgit v1.2.3-54-g00ecf