package.lisp

(format *error-output* "~&
┌───────────────────────────────────────────────────────────────────┐
│ !!       Twitter is an alt-right recruitment platform          !! │
│You should not support its existence by continuing to use it in any│
│fashion. This library in particular will not be updated any further│
│and may be intentionally broken in the near future.                │
└───────────────────────────────────────────────────────────────────┘
")

(in-package #:cl-user)
(defpackage #:chirp-objects
  (:nicknames #:org.tymoonnext.chirp.objects)
  ;; account.lisp
  (:export
   #:settings
   #:force-https
   #:email-discoverable
   #:geo
   #:language
   #:protected
   #:screen-name
   #:show-inline-media
   #:sleep-time
   #:sleep-time-start
   #:sleep-time-end
   #:time-zone-name
   #:time-zone-info
   #:time-zone-offset
   #:cookie-personalization
   #:trend)
  ;; cursor.lisp
  (:export
   #:cursor
   #:id
   #:url
   #:parameters
   #:data
   #:request-method)
  ;; direct-messages.lisp
  (:export
   #:direct-message
   #:id
   #:text
   #:recipient
   #:sender
   #:created-at
   #:entities)
  ;; entities.lisp
  (:export
   #:entity
   
   #:hashtag
   #:text
   #:start
   #:end
   
   #:media
   #:url
   #:id
   #:display-url
   #:expanded-url
   #:start
   #:end
   #:sizes
   #:media-url
   #:media-url-https
   #:media-type
   #:source-status
   
   #:size
   #:height
   #:width
   #:resize-method
   
   #:url
   #:display-url
   #:expanded-url
   #:start
   #:end
   
   #:mention
   #:id
   #:start
   #:end
   #:name
   #:screen-name
   
   #:t-symbol
   #:text
   #:start
   #:end)
  ;; friends.lisp
  (:export
   #:relationship
   #:id
   #:screen-name
   #:name
   #:followed-by
   #:following
   #:can-dm
   #:blocking
   #:all-replies
   #:want-retweets
   #:marked-spam
   #:notifications-enabled
   #:connections)
  ;; help.lisp
  (:export
   #:configuration
   #:photo-size-limit
   #:photo-sizes
   #:short-url-length
   #:short-url-length-https
   #:non-username-paths
   #:max-media-per-upload
   #:characters-reserved-per-media
   #:dm-text-character-limit
   
   #:language
   #:name
   #:code
   #:status
   
   #:resource
   #:address
   #:remaining
   #:reset
   #:limit)
  ;; lists.lisp
  (:export
   #:user-list
   #:id
   #:user
   #:name
   #:full-name
   #:description
   #:created-at
   #:uri
   #:counts
   #:mode
   #:following
   #:slug)
  ;; location.lisp
  (:export
   #:location
   #:id
   #:name
   #:full-name
   #:location-type
   #:latitude
   #:longitude
   #:url
   #:country-name
   #:country-code
   #:bounding-box
   #:poly-lines
   #:contained-within
   
   #:geometry
   #:shape
   #:coordinates)
  ;; oauth.lisp
  (:export
   #:oauth-error
   
   #:oauth-parameter-missing
   #:parameter
   
   #:oauth-request-error
   #:http-status
   #:http-body
   #:http-headers
   #:target-url
   #:target-method
   #:target-parameters
   #:target-headers)
  ;; media.lisp
  (:export
   #:media
   #:id
   #:id-string
   #:size
   #:expires-after-secs
   #:image
   #:video
   #:processing-info)
  ;; saved-searches.lisp
  (:export
   #:saved-search
   #:id
   #:created-at
   #:name
   #:search-position
   #:query)
  ;; search.lisp
  (:export
   #:search-metadata
   #:max-id
   #:since-id
   #:refresh-url
   #:next-results
   #:result-count
   #:completed-in
   #:query)
  ;; statuses.lisp
  (:export
   #:status
   #:id
   #:text
   #:full-text
   #:display-text-range
   #:entities
   #:extended-entities
   #:created-at
   #:user
   #:contributors
   #:source
   #:coordinates
   #:geo
   #:place
   #:retweeted-status
   #:counts
   #:in-reply-to
   #:possibly-sensitive
   #:retweeted
   #:favorited
   #:truncated
   
   #:oembed
   #:html
   #:url
   #:height
   #:width
   #:version
   #:oembed-type
   #:cache-age
   #:author-name
   #:author-url
   #:provider-url
   #:provider-name)
  ;; stream.lisp
  (:export
   #:message
   
   #:stream-unknown
   #:data
   
   #:stream-delete
   #:id
   #:user-id
   
   #:stream-scrub-geo
   #:up-to-status-id
   #:user-id
   
   #:stream-limit
   #:track
   
   #:stream-status-withheld
   #:id
   #:withheld-in-countries
   
   #:stream-user-withheld
   #:id
   #:withheld-in-countries
   
   #:stream-disconnect
   #:code
   #:stream-name
   #:reason
   
   #:stream-friends
   #:friends
   
   #:stream-event
   #:target
   #:source
   #:target-object
   #:created-at
   
   #:event-unknown
   #:event-access-revoked
   #:event-block
   #:event-unblock
   #:event-favorite
   #:event-unfavorite
   #:event-follow
   #:event-unfollow
   #:event-list-create
   #:event-list-destroy
   #:event-list-update
   #:event-list-member-add
   #:event-list-member-remove
   #:event-list-user-subscribe
   #:event-list-user-unsubscribe
   #:event-user-update
   
   #:stream-warning
   #:code
   #:message
   #:user-id
   
   #:stream-control
   #:control-uri
   
   #:stream-envelope
   #:for-user
   #:message)
  ;; suggestions.lisp
  (:export
   #:slug
   #:name
   #:size
   #:users)
  ;; trends.lisp
  (:export
   #:trend
   #:events
   #:name
   #:promoted-content
   #:query
   #:url
   
   #:trend-location
   #:country
   #:country-code
   #:name
   #:parent
   #:place-code
   #:place-name
   #:url
   #:woeid)
  ;; user.lisp
  (:export
   #:user
   #:id
   #:screen-name
   #:contributors
   #:created-at
   #:coutns
   #:language
   #:location
   #:notifications
   #:status
   #:follow-request-sent
   #:following
   #:entities
   #:geo
   #:translator
   #:protected
   #:verified
   #:time-zone
   #:url
   #:utc-offset
   #:default
   #:name
   #:description
   #:show-inline-media
   #:background
   #:avatar
   #:colors
   
   #:banner
   #:size
   #:width
   #:height
   #:url)
  ;; collections.lisp
  (:export
   #:id
   #:collection-type
   #:visibility
   #:order
   #:associated-url
   #:url
   #:users
   #:tweets
   #:user-id
   #:name))

(defpackage #:chirp-api
  (:nicknames #:org.tymoonnext.chirp.api)
  ;; account.lisp
  (:export
   #:account/settings
   #:account/verify-credentials
   #:account/self
   #:account/update-profile
   #:account/update-profile-background-image
   #:account/update-profile-colors
   #:account/update-profile-image
   #:account/update-profile-banner
   #:account/remove-profile-banner)
  ;; blocks.lisp
  (:export
   #:blocks/list
   #:blocks/ids
   #:blocks/create
   #:blocks/destroy)
  ;; directmessages.lisp
  (:export
   #:direct-messages
   #:direct-messages/sent
   #:direct-messages/show
   #:direct-messages/destroy
   #:direct-messages/new)
  ;; favorites.lisp
  (:export
   #:favorites/list
   #:favorites/destroy
   #:favorites/create)
  ;; friends.lisp
  (:export
   #:friends/ids
   #:friends/list
   #:followers/ids
   #:followers/list   
   #:friendships/incoming
   #:friendships/outgoing
   #:friendships/create
   #:friendships/destroy
   #:friendships/update
   #:friendships/show
   #:friendships/lookup
   #:friendships/no-retweets/ids)
  ;; help.lisp
  (:export
   #:help/configuration
   #:help/languages
   #:help/privacy
   #:help/tos
   #:application/rate-limit-status)
  ;; lists.lisp
  (:export
   #:lists/list
   #:lists/statuses
   #:lists/show
   #:lists/create
   #:lists/update
   #:lists/destroy
   #:lists/members
   #:lists/members/show
   #:lists/members/create
   #:lists/members/create-all
   #:lists/members/destroy
   #:lists/members/destroy-all
   #:lists/subscribers
   #:lists/subscribers/show
   #:lists/subscribers/create
   #:lists/subscribers/destroy
   #:lists/subscriptions
   #:lists/memberships
   #:lists/ownerships)
  ;; location.lisp
  (:export
   #:geo/id
   #:geo/reverse-geocode
   #:geo/search
   #:geo/similar-places)
  ;; media.lisp
  (:export
   #:media/upload
   #:media/upload/init
   #:media/upload/append
   #:media/upload/status
   #:media/upload/finalize)
  ;; oauth.lisp
  (:export   
   #:oauth/request-token
   #:oauth/authenticate
   #:oauth/authorize
   #:oauth/access-token)
  ;; saved-searches.lisp
  (:export
   #:saved-searches/list
   #:saved-searches/show/id
   #:saved-searches/create
   #:saved-searches/destroy/id)
  ;; search.lisp
  (:export
   #:search/tweets)
  ;; statuses.lisp
  (:export
   #:statuses/retweets
   #:statuses/show
   #:statuses/destroy
   #:statuses/retweet
   #:statuses/update
   #:statuses/update-with-media
   #:statuses/oembed
   #:statuses/retweeters/ids)
  ;; stream.lisp
  (:export
   #:stream/user
   #:stream/site
   #:stream/statuses/filter
   #:stream/statuses/sample
   #:stream/statuses/firehose)
  ;; suggestions.lisp
  (:export
   #:users/suggestions/slug
   #:users/suggestions
   #:users/suggestions/slug/members)
  ;; timelines.lisp
  (:export
   #:statuses/mentions-timeline
   #:statuses/user-timeline
   #:statuses/home-timeline
   #:statuses/retweets-of-me)
  ;; trends.lisp
  (:export
   #:trends/place
   #:trends/available
   #:trends/closest)
  ;; user.lisp
  (:export
   #:users/lookup
   #:users/show
   #:users/search
   #:users/contributees
   #:users/contributors
   #:users/profile-banner
   #:users/report-spam)
  ;; collections.lisp
  (:export
   #:collections/entries
   #:collections/list
   #:collections/show
   #:collections/create
   #:collections/destroy
   #:collections/add
   #:collections/curate
   #:collections/move
   #:collections/remove
   #:collections/update))

(defpackage #:chirp-extra
  (:nicknames #:org.tymoonnext.chirp.extra)
  ;; account.lisp
  (:export
   #:*cached-self*)
  ;; cursor.lisp
  (:export
   #:cursored-request
   #:cursor-request
   #:cursor-next
   #:cursor-previous
   #:do-cursor
   #:map-cursor
   #:cursor-collect)
  ;; friends.lisp
  (:export
   #:*connection-values*)
  ;; generics.lisp
  (:export
   #:fetch-user
   #:list-user
   #:unlist-user
   #:subscribe-to-list
   #:unsubscribe-from-list
   #:block-user
   #:unblock-user
   #:follow-user
   #:unfollow-user
   #:report-user
   #:message-user
   #:mention-user
   #:tweet
   #:reply
   #:reply-all
   #:retweet
   #:favorite
   #:unfavorite
   #:delete-object
   #:start-stream
   #:map-timeline)
  ;; help.lisp
  (:export
   #:*cached-languages*
   #:*cached-configuration*
   #:valid-language-p)
  ;; oauth.lisp
  (:export
   #:*oauth-api-key*
   #:*oauth-api-secret*
   #:*oauth-access-token*
   #:*oauth-access-secret*
   #:*oauth-signature-method*
   #:*oauth-version*
   #:*server-port*
   #:*access-levels*
   #:*cached-access*
   
   #:signed-request
   #:signed-data-request
   #:signed-stream-request
   #:pin-request-token
   #:complete-authentication
   #:initiate-authentication

   #:access-level)
  ;; statuses.lisp
  (:export
   #:compute-status-length
   #:replace-entity
   #:replace-entities
   #:with-replaced-entities
   #:text-with-expanded-urls
   #:text-with-markup
   #:retweet-p
   #:direct-mention-p
   #:mention-p)
  ;; toolkit.lisp
  (:export
   #:parse-month
   #:parse-twitter-time
   #:parse-boolean
   #:generate-nonce
   #:to-keyword
   #:from-keyword
   #:url-encode
   #:xml-encode
   #:xml-decode
   #:hmac
   #:prepare
   #:prepare*
   #:serialize-object
   #:file-to-base64-string))

(defpackage #:chirp
  (:nicknames #:org.tymoonnext.chirp)
  (:use #:cl #:split-sequence #:alexandria
        #:chirp-objects
        #:chirp-api
        #:chirp-extra)
  (:shadow #:parse-body))

;; Export everything from sub-packages
(let ((chirp (find-package "CHIRP")))
  (do-external-symbols (symb (find-package "CHIRP-OBJECTS"))
    (export symb chirp))
  (do-external-symbols (symb (find-package "CHIRP-API"))
    (export symb chirp))
  (do-external-symbols (symb (find-package "CHIRP-EXTRA"))
    (export symb chirp)))