From 44ac478eff87b22cf1c3fb53d4c3a23f79cf73c4 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 29 May 2007 18:44:46 +0200
Subject: Rotate subtitles randomly.

darcs-hash:d1a8e850f8d05729db7447b7f7313151f3bfb826
---
 journal.lisp | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/journal.lisp b/journal.lisp
index 9afbff4..2b720e2 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -445,8 +445,12 @@ after another in any arbitrary order."
            (<:a :href "journal.cgi?action=index"
                 "Kompottkins Weisheiten"))
      (<:div :id :main-subtitle (<:as-is
-                                "NEU! Jetzt ohne regelm&auml;&szlig;ige
-                                 Serverabst&uuml;rze!")))
+                                (random-elt
+                                 '(("Geschwafel eines
+                                     libert&auml;rsozialistischen Geeks")
+                                   ("NEU!  Jetzt ohne regelm&auml;&szlig;ige
+                                     Serverabst&uuml;rze!")
+                                   ("NEU!  Jetzt mit mehr als 3 % Uptime!"))))))
     (<:div :id :contents
      (case *action*
        ((:index nil)
@@ -498,7 +502,8 @@ after another in any arbitrary order."
 
 
 (defun main ()
-  (let ((*journal-entries* (read-journal-entries)))
+  (let ((*journal-entries* (read-journal-entries))
+        (*random-state* (make-random-state t)))
     (ext:letf ((custom:*terminal-encoding* (ext:make-encoding
                                             :charset charset:utf-8)))
       (case *action*
-- 
cgit v1.2.3