git.fiddlerwoaroof.com
package.lisp
373a5a27
 ;;;; package.lisp
83295250
 (in-package :cl-user)
 
 (defpackage :whitespace.tables
4ed5f067
   (:shadowing-import-from :iterate :with)
83295250
   (:use #:cl #:alexandria #:postmodern #:annot.class #:iterate #:fwoar.lisputils))
 
 (defpackage :whitespace.feeds.autodiscovery
4ed5f067
   (:shadowing-import-from :iterate :with)
83295250
   (:use #:cl #:alexandria #:postmodern #:lquery #:cl-syntax #:cl-annot.syntax #:cl-annot.class
         #:whitespace.tables #:iterate #:fwoar.lisputils)
   (:import-from anaphora it)
   (:export :discover-feeds))
 
 (defpackage :whitespace.feeds.opml
4ed5f067
   (:shadowing-import-from :iterate :with)
83295250
   (:use #:cl #:alexandria #:postmodern #:lquery #:cl-syntax #:cl-annot.syntax #:cl-annot.class
         #:whitespace.tables #:iterate #:fwoar.lisputils)
   (:import-from anaphora it))
 
 (defpackage :whitespace.feeds.rss
4ed5f067
   (:shadowing-import-from :iterate :with)
83295250
   (:use #:cl #:alexandria #:postmodern #:lquery #:cl-syntax #:cl-annot.syntax #:cl-annot.class
         #:whitespace.tables #:iterate #:fwoar.lisputils #:whitespace.feeds.autodiscovery)
   (:import-from anaphora it)
   (:export :get-elements :get-elements-by-tagname :extract-text :xml-text-bind :upsert-feed :deserialize
            :deserialize-feed :deserialize-items :deserialize-item :subscribe-to-feed :store-feed
            :make-rss-feed :make-rss-item))
 
 (defpackage :whitespace
4ed5f067
   (:use #:cl #:anaphora #:araneus #:fwoar.lisputils #:whitespace.feeds.rss #:whitespace.tables))
373a5a27
 
89bed873