(defpackage :phaser.unhtml (:use :common-lisp) (:export #:text-excerpt)) (defpackage :phaser.toots (:use :cl) (:export #:get-timeline #:*client* #:get-status #:post-toot)) (defpackage :phaser.tracker (:use :cl) (:import-from :phaser.toots #:get-timeline) (:import-from :phaser.toots #:get-status) (:export #:track-statuses #:collect-tracking)) (defpackage :phaser.reporter (:use :common-lisp :phaser.toots) (:import-from :phaser.unhtml #:text-excerpt) (:import-from :phaser.tracker #:track-statuses) (:export #:reblog-top-statuses #:summarize-and-post-top-statuses)) (defpackage #:phaser (:use #:cl #:phaser.unhtml #:phaser.toots #:phaser.tracker #:phaser.reporter) (:shadowing-import-from #:phaser.reporter #:block)) (dolist (package '(#:phaser.reporter #:phaser.tracker)) (do-symbols (symbol package) (export symbol '#:phaser)))