added full egg support

send-grid.scm

@@ -1,3 +1,40 @@
+; author: Thomas Hintz
+; email: t@thintz.com
+; license: bsd
+
+; Copyright (c) 2012, Thomas Hintz
+; All rights reserved.
+
+; Redistribution and use in source and binary forms, with or without
+; modification, are permitted provided that the following conditions are met:
+;     * Redistributions of source code must retain the above copyright
+;       notice, this list of conditions and the following disclaimer.
+;     * Redistributions in binary form must reproduce the above copyright
+;       notice, this list of conditions and the following disclaimer in the
+;       documentation and/or other materials provided with the distribution.
+;     * Neither the name of the <organization> nor the
+;       names of its contributors may be used to endorse or promote products
+;       derived from this software without specific prior written permission.
+
+; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+; DISCLAIMED. IN NO EVENT SHALL THOMAS HINTZ BE LIABLE FOR ANY
+; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+; 	    LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+; 	    ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+; 	    (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+; 	    SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+(module send-grid
+  (;; params
+   api-user api-key
+
+   ;; procs
+   send-mail)
+
+(import scheme chicken)
 (use http-client uri-common intarweb json srfi-1 srfi-18)
 
 (define api-user (make-parameter ""))
@@ -18,4 +55,5 @@
                      ,(if html `(html . ,html) `(text . ,text))
                      (from . ,from)
                      (fromname . ,from-name)))
-      (abort "You must specify all keyword parameters!")))
+      (abort "All parameters are required for successfully sending mail.")))
+)

send-grid.setup

@@ -2,7 +2,7 @@
 ; email: t@thintz.com
 ; license: bsd
 
-(compile -s -O2 -d1 send-grid.scm -j amazon-s3)
+(compile -s -O2 -d1 send-grid.scm -j send-grid)
 (compile -s send-grid.import.scm -O2 -d0)
 (compile -c -O2 -d1 send-grid.scm -unit send-grid -j send-grid)