chickadee » phricken » send-entries

Sends multiple entries to the client, using send-entry.

(send-entries
 `((i "Chat log")
   (i "--------")
   (i)
   ,@(map (lambda (x)
            `(i ,(utc-seconds->string (car x))
                " | " ,(cadr x)))
          (read-file (chatfile)))
   (i)
   (7 "Say"     ,(request-selector req))
   (1 "Refresh" ,(request-selector req))
   (1 "Go home" "")))