Use pattern matching to clean things up
author |
Steve Losh <steve@stevelosh.com> |
date |
Fri, 20 Jan 2017 00:02:27 +0000 |
parents |
1a365d4ae7bc |
children |
afcbcecb1fc9 |
(defpackage :magitek.twitter
(:use
:cl
:iterate
:cl-arrows
:losh
:magitek.quickutils)
(:export
:tt-load-credentials
:tt-authorize
:tt-tweetable-p
:tt-tweet))
(defpackage :magitek.database
(:use
:cl
:losh
:sqlite
:magitek.quickutils)
(:export
:db-connect
:db-initialize
:db-insert-tweet
:db-tweeted-since-p))
(defpackage :magitek.markov
(:use
:cl
:losh
:iterate
:cl-arrows
:magitek.quickutils)
(:export
:build-markov-generator
:generate-sentence))
(defpackage :magitek.robots.git-commands
(:use
:cl
:iterate
:cl-arrows
:losh
:chancery
:magitek.quickutils)
(:export :random-string))
(defpackage :magitek.robots.rpg-shopkeeper
(:use
:cl
:iterate
:cl-arrows
:losh
:trivia
:chancery
:magitek.quickutils)
(:export :random-string))
(defpackage :magitek.robots.hacker-booze
(:use
:cl
:iterate
:cl-arrows
:losh
:magitek.quickutils)
(:export :random-string))
(defpackage :magitek
(:use
:cl
:iterate
:cl-arrows
:losh
:magitek.twitter
:magitek.database
:magitek.quickutils)
(:export
:main))