script for catching up on reading the #commonlisp irc channel.

[vindarel]

see this snippet: https://gist.github.com/bo-tato/9df8182150dc49d0943f13635430b647 by @bo-tato (I'd like to see if you have more scripts!)

(in-package :ciel-user)
(use-package '(local-time periods))
(import 'periods::do-times)

(defconstant +last-date-file+ "~/.irc-log-reader-last")

(defun fmt-date (date)
 (format-timestring nil date :format +rfc3339-format/date-only+))

(do-times (day (-> +last-date-file+ str:from-file str:trim parse-timestring)
               (duration :days 1)
               (today))
  (let* ((url #?"https://libera.irclog.whitequark.org/commonlisp/${(fmt-date day)}")
         (doc (lquery:$ (initialize (dex:get url)))))
    (format t "~%:: ~a ::~%" day)
    (lquery:$ doc ".talk.op-msg" (text)
      (map [#'println {substitute #\Space #\Newline}]))))

(str:to-file +last-date-file+ (fmt-date (today)))

It uses the periods library, that we are evaluating to include in CIEL.

[vindarel]

bo-tato built his own CIEL with periods inside. You can quickload the library at startup:

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload "periods"))

(it adds some start up time, yes, that's why we include useful libraries)