From b7fb67233ad320830bd1fa660608ae71184f79d6 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Tue, 15 Oct 2013 07:14:17 -0600
Subject: [PATCH] More atom info

---
 .../meta/pkg-index/official/static.rkt        | 20 ++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/pkgs/plt-services/meta/pkg-index/official/static.rkt b/pkgs/plt-services/meta/pkg-index/official/static.rkt
index 7936da3107..15f462434a 100644
--- a/pkgs/plt-services/meta/pkg-index/official/static.rkt
+++ b/pkgs/plt-services/meta/pkg-index/official/static.rkt
@@ -51,18 +51,18 @@
   (for ([pkg-name (in-list pkg-list)])
     (define ht (file->value (build-path pkgs-path pkg-name)))
 
-    (define versions-ht 
+    (define versions-ht
       (hash-set (hash-ref ht 'versions (hash))
                 'default
                 (hasheq 'source (hash-ref ht 'source "")
                         'checksum (hash-ref ht 'checksum ""))))
-    
+
     (define (hash-ref-or ht ks)
       (or (for/or ([k (in-list ks)])
             (hash-ref ht k #f))
           (error 'hash-ref-or "Keys (~v) not found in ~e" ks ht)))
 
-    (define versions-5.3.6 
+    (define versions-5.3.6
       (hash-ref-or versions-ht '("5.3.6" default)))
     (define source-5.3.6
       (hash-ref versions-5.3.6 'source))
@@ -183,7 +183,7 @@
         'conflicts conflicts
         'versions
         (for/hash ([(v vht) (in-hash (hash-ref ht 'versions))])
-          (values v 
+          (values v
                   (hash-set vht 'source_url
                             (package-url->useful-url (hash-ref vht 'source)))))
         'search-terms
@@ -258,9 +258,15 @@
               ,(cdata #f #f
                       (format "<![CDATA[~a]]>"
                               (xexpr->string
-                               `(p
-                                 ,(format "~a package updated on ~a."
-                                          p lu)))))))))))
+                               `(div
+                                 (p ,(format "~a package updated on ~a."
+                                             p lu))
+                                 (p ,(format
+                                      "Checksum: ~a"
+                                      (hash-ref (hash-ref (hash-ref i 'versions (hash)) 
+                                                          'default (hasheq))
+                                                'checksum "")))
+                                 (p ,(hash-ref i 'description))))))))))))
 
   (define-values (main-dispatch main-url)
     (dispatch-rules