From 4f56c54a4bce052d785c16e54d90cbdb42e2a0b1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 7 Aug 2014 17:30:57 -0400
Subject: Rename weblabels to librejs.

* guix-web (run-route): Call librejs.
  (weblabels): Renamed.
  (librejs): New procedure.
---
 guix-web | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix-web b/guix-web
index 1a63e69..24e7c6e 100755
--- a/guix-web
+++ b/guix-web
@@ -131,8 +131,8 @@
      (render-json (all-packages-json)))
     ((GET "package" name)
      (render-html (view-package name)))
-    ((GET "weblabels")
-     (render-html (weblabels)))
+    ((GET "librejs")
+     (render-html (librejs)))
     (_ #f)))
 
 (define (all-packages-json)
@@ -220,7 +220,6 @@
                     "versions"
                     "version"))))
 
-(define (weblabels)
     (main-layout
      name
      `((h1 ,name (span (@ (class "badge"))
@@ -229,6 +228,8 @@
            ,@(map (lambda (p)
                     `(li ,(describe-package p)))
                   packages))))))
+
+(define (librejs)
   (define (weblabel js)
     `(tr
       (td
-- 
cgit v1.2.3