Remove projects duplication.
[software/elephly-net.git] / haunt.scm
index f8ef5f7..b28e07b 100644 (file)
--- a/haunt.scm
+++ b/haunt.scm
@@ -1,3 +1,5 @@
+;; -*- geiser-scheme-implementation: guile -*-
+
 (use-modules (srfi srfi-1)  ; list stuff
              (srfi srfi-11) ; let-values
              (srfi srfi-19) ; date functions
                  (src ,(string-append "/images/posts/" meta))))
         '())))
 
-(define (flattr-snippet post)
-  (let ((meta (post-ref post 'flattr)))
-    (if meta
-        `(a (@ (href ,(string-append "http://flattr.com/thing/" meta)))
-            (img (@ (title "Flattr this")
-                    (alt   "Flattr this")
-                    (src "http://api.flattr.com/button/flattr-badge-large.png"))))
-        '())))
-
 ;; TODO: use license
 (define (license-snippet post)
   (let ((meta (post-ref post 'license)))
@@ -198,12 +191,10 @@ in parentheses."
               (type "text/css")
               (href "/css/screen.css")))
      (link (@ (rel "shortcut icon")
-              (href "http://elephly.net/favicon.ico")))
-     (script (@ (type "text/javascript") (src "/js/libs/jquery-1.6.2.min.js")))
+              (href "https://elephly.net/favicon.ico")))
      (script (@ (type "text/javascript") (src "/js/deobfuscate.js")))
      (script (@ (type "text/javascript") (src "/js/hyphenator/Hyphenator.js")))
-     (script (@ (type "text/javascript")) "Hyphenator.run();")
-     (script (@ (type "text/javascript") (src "/js/loadComments.js"))))
+     (script (@ (type "text/javascript")) "Hyphenator.run();"))
     (body (@ (id "top"))
           (div (@ (id "index"))
                (a (@ (href "/") (title "show index"))
@@ -227,7 +218,6 @@ in parentheses."
                      ,(date->string* (post-date post))))
              ,(photo-snippet post)
              ,(post-sxml post)
-             ,(flattr-snippet post)
              ,(license-snippet post)
              (p (@ (class "back"))
                 (a (@ (href "/posts"))
@@ -267,7 +257,7 @@ in parentheses."
 (define %make-slug post/file-base-name)
 
 (site #:title "Rekado"
-      #:domain "http://elephly.net/posts"
+      #:domain "http://elephly.net"
       #:default-metadata
       '((author . "Ricardo Wurmus")
         (email  . "rekado+web@elephly.net"))
@@ -289,5 +279,5 @@ in parentheses."
                        (pin-blog-post "posts/2010-03-23-fur-man.skr"
                                       "fur-man.html"
                                       #:theme elephly-theme)
-                       (atom-feed)
-                       (atom-feeds-by-tag)))
+                       (atom-feed #:blog-prefix "/posts")
+                       (atom-feeds-by-tag #:blog-prefix "/posts")))