DATARAMA

Get rid of metadata headers

April 25, 2016
Project: plutonium

These aren't particularly useful without the sidebar.

1 files changed, 6 insertions / 11 deletions

diff --git a/plutonium.scm b/plutonium.scm
index 905019a..a3d4b81 100755
--- a/plutonium.scm
+++ b/plutonium.scm
@@ -287,11 +287,9 @@
   `(li (a (@ (href ,(string-append (uri-encode-string rel) ".html"))) 
           ,(page-title (string-append rel "." extension)))))
 
-(define (render-metadata head content)
+(define (render-metadata content)
   (if content
-    `(div 
-       (h2 ,head)
-       ,content)
+    `(div ,content)
     ""))
 
 ; == Site Archive =============================================================
@@ -417,7 +415,7 @@
 
 (page-element author
   VWCODE
-  (render-metadata "Author" ELEMENT))
+  (render-metadata ELEMENT))
 
 (page-element pageclass
   (string-append "page_" (irregex-replace 
@@ -428,24 +426,21 @@
 
 (page-element date
   (if VWCODE (string->date VWCODE date-format/file) #f)
-  (render-metadata "Date" (date->string ELEMENT date-format/html)))
+  (render-metadata (date->string ELEMENT date-format/html)))
 
 (page-element focus
   VWCODE
   (let ((links (map string-trim-both (string-split ELEMENT ","))))
     (render-metadata 
-      (if (= (length links) 1) 
-        "Current Obsession" 
-        "Current Obsessions")
       `(ul ,(map focuslink links)))))
 
 (page-element rating
   (and VWCODE (string->number VWCODE))
-  (render-metadata "Rating" (rating->stars ELEMENT)))
+  (render-metadata (rating->stars ELEMENT)))
 
 (page-element related
   (and (assoc NAME ramap) (sort (cdr (assoc NAME ramap)) string<?))
-  (render-metadata "Related" 
+  (render-metadata 
     (and (not (null? ELEMENT)) `(ul ,(map rel->link ELEMENT)))))
 
 (define (focuslink lnk)
 
Powered by Plutonium