mailgun.asd

(defsystem mailgun
           :description "A thin wrapper to post HTML emails through mailgun.com"
           :version (:read-file-form "version.lisp-expr")
           :author "Alexander Artemenko"
           :license "Unlicense"
           :class :package-inferred-system
           :pathname "src"
           :depends-on ("mailgun/core")
           :long-description
           #.(with-open-file (stream (merge-pathnames
                                      #p"README.rst"
                                      (or *load-pathname* *compile-file-pathname*))
                                     :if-does-not-exist nil
                                     :direction :input)
               (when stream
                 (let ((seq (make-array (file-length stream)
                                        :element-type 'character
                                        :fill-pointer t)))
                   (setf (fill-pointer seq)
                         (read-sequence seq stream))
                   seq))))