Sortable tables

TODO.md

@@ -7,8 +7,6 @@ Want to be able to see packages with build problems, and packages without build
 Some way of getting a list of all packages
  - "you should have the "285 package in the index" have a link like "hiding main-distribution (show)""
 
-Want to be able to sort result tables
-
 you should be able to specify git repos over http/https
 you should be able to specify subdirs in git repos
 you should check the existence of repos/github repos/urls/etc via XHR

src/bootstrap.rkt

@@ -50,8 +50,7 @@
 	   (link ((rel "stylesheet") (href "/bootstrap/css/bootstrap.min.css") (type "text/css")))
            (link ((rel "stylesheet") (href "/style.css") (type "text/css")))
 	   ,@(for/list ((sheet (bootstrap-page-stylesheets)))
-	       `(link ((rel "stylesheet") (href ,sheet) (type "text/css"))))
+	       `(link ((rel "stylesheet") (href ,sheet) (type "text/css")))))
-	   (script ((type "text/javascript") (src "/site.js"))))
      (body
       (nav ((class "navbar navbar-inverse navbar-fixed-top") (role "navigation"))
 	   (div ((class "container"))
@@ -72,9 +71,10 @@
 	   ,title-element
 	   ,@body-contents)
 
-      (script ((type "text/javascript")
+      (script ((type "text/javascript") (src "/jquery.min.js")))
-               (src "https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js")))
+      (script ((type "text/javascript") (src "/jquery.tablesorter.min.js")))
       (script ((type "text/javascript") (src "/bootstrap/js/bootstrap.min.js")))
+      (script ((type "text/javascript") (src "/site.js")))
       ,@(for/list ((script (bootstrap-page-scripts)))
           `(script ((type "text/javascript") (src ,script))))))))
 

src/main.rkt

@@ -411,10 +411,12 @@
   (define now (/ (current-inexact-milliseconds) 1000))
   `(table
     ((class "packages sortable"))
+    (thead
      (tr
       (th "Package")
       (th "Description")
-     (th "Build"))
+      (th "Build")))
+    (tbody
      ,@(maybe-splice (null? package-names)
                      `(tr (td ((colspan "3"))
                               (div ((class "alert alert-info"))
@@ -455,7 +457,7 @@
               `(td ((class "build_green"))
                 ,(buildhost-link (@ pkg build success-log) "succeeds"))]
              [else
-             `(td)])))))
+              `(td)]))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

static/site.js

@@ -0,0 +1,3 @@
+$(document).ready(function () {
+  $("table.sortable").tablesorter();
+});

static/style.css

@@ -94,3 +94,7 @@ input#new_version {
     font-size: 100%;
     text-decoration: none;
 }
+
+/* Sortable tables */
+th.headerSortUp::after { content: " ▲"; }
+th.headerSortDown::after { content: " ▼"; }