package.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

(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))

(defpackage #:phaser
  (:use
   #:cl
   #:phaser.unhtml
   #:phaser.toots
   #:phaser.tracker
   #:phaser.reporter)
  (:shadowing-import-from #:phaser.reporter #:block)
  (:export
   #:summarize-and-post-top-statuses))

(dolist (package '(#:phaser.reporter #:phaser.tracker))
  (do-symbols (symbol package)
    (export symbol '#:phaser)))