(defpackage :afa-user
   (:use cl)
   (:export #:define-package))
 (in-package :afa-user)
 
 (defmacro define-package (name &body arguments)
   (let ((uses (cons :use
 		    (union '(:cl :alexandria :serapeum)
 			   (cdr (assoc :use arguments))))))
     `(progn
        (defpackage ,name
 	 ,uses
 	 ,@(remove :use arguments :key 'car)))))
 
 (define-package :alimenta.feed-archive.tools
   (:use :fw.lu)

   (:shadow :->)
   (:export :fix-pathname :sha256-string :get-id :older-than-a-week :-> :get-feed-store-name
 	   :store :get-item-store-name :restart-once :coerce-feed-link :with-retry
 	   :older-than-a-month))
 

 (define-package :alimenta.feed-archive.encoders
   (:use :fw.lu :alimenta.feed-archive.tools)

   (:shadowing-import-from :alimenta.feed-archive.tools :->)
   (:export :skip-item :the-condition :the-feed :feed-error

            :unwrap-feed-errors :feed-stream-provider))

 (define-package :alimenta.feed-archive
   (:use :fw.lu :alimenta.feed-archive.tools)

   (:shadowing-import-from :alimenta.feed-archive.tools :->)
   (:export #:init-feeds #:archive-feeds #:command-line-main))