#!/bin/sh
# -*- scheme -*-
exec guile -s $0 "$@"
!#
;; time-stamp: <2002-05-12 13:24:56 ttn>

;;; Copyright (C) 2000-2002 Thien-Thi Nguyen
;;; This program is provided under the terms of the GNU GPL, version 2.
;;; See http://www.fsf.org/copyleft/gpl.html for details.

(set! *random-state* (seed->random-state (current-time)))

(define (pick-one . ls)
  (list-ref ls (random (length ls))))

(define *title* (pick-one
                 "Guile Lovers' Unofficial Gleanings"
                 "Guile Lovers Use Guile"
                 "Guilish Language Unalienably Garnered"
                 "Go! Love! Uproot! Gambol!"
                 "GLUG LGUL UGLG GULG"
                 ;; Add other titles here.
                 ))

(define *expression-of-love* (pick-one
                              "run things"
                              "play hide the salami"
                              "climb on the trees"
                              "wrestle the river"
                              "reflect on mortality"
                              "nurture the rude awakening"
                              ;; Add other expressions of love here.
                              ))

(define *diffident-time-adverb* (pick-one
                                 "sporadically"
                                 "occasionally"
                                 "every once in a while"
                                 "sometimes"
                                 "diffidently"
                                 ;; Add other diffident time adverbs here.
                                 ))

(define *improve* (pick-one
                   "improve society"
                   "make things better"
                   "clear the air of misunderstanding"
                   "slam some code into the repo"
                   ;; Add other improvements here.
                   ))

(use-modules ((ttn html-world) :select (html-world.html-data))
             ((ttn html-data) :renamer (symbol-prefix-proc '-)))

(define (*wurld)
  (-tt-pre (html-world.html-data "/home/ttn/.www-links")))

(use-modules ((ttn shell-command-to-string) :select (shell-command->string)))

(define (*cookie)
  (list "Fortune cookie:"
        (-p)
        (-tt-pre (shell-command->string
                  "fortune people/random/lambda.txt"))))

(use-modules ((ttn spewutils) :select (update-all-html-data-pages!)))

(define (update!)
  (update-all-html-data-pages! '("index.html")))

(use-modules ((ttn cron) :select (cron)))

(exit (cron (command-line)
        ((hourly) (update!))))

;;; .cron ends here