From bf4f53bb4cd7ca4c61760e3de6ecb1dcab4a083f Mon Sep 17 00:00:00 2001 From: "t@thintz.com" Date: Sat, 14 Jan 2012 19:29:17 -0800 Subject: [PATCH] added full egg support --- send-grid.scm | 40 +++++++++++++++++++++++++++++++++++++++- send-grid.setup | 2 +- 2 files changed, 40 insertions(+), 2 deletions(-) diff --git a/send-grid.scm b/send-grid.scm index ee68a66..103193c 100644 --- a/send-grid.scm +++ b/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 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!"))) \ No newline at end of file + (abort "All parameters are required for successfully sending mail."))) +) \ No newline at end of file diff --git a/send-grid.setup b/send-grid.setup index 14d0328..c1963f9 100644 --- a/send-grid.setup +++ b/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)