Add from-name.

cl-sendgrid.lisp

@@ -3,7 +3,7 @@
 (define-condition sendgrid-error (error)
   ((sendgrid-error-message :initarg :sendgrid-error-message :reader sendgrid-error-message)))
 
-(defun send-email (&key api-user api-key subject to text html from reply-to)
+(defun send-email (&key api-user api-key subject to text html from reply-to from-name)
   (let ((r (parse (flexi-streams:octets-to-string
                    (http-request "https://sendgrid.com/api/mail.send.json"
                                  :method :post
@@ -12,6 +12,7 @@
                                                ("subject" . ,subject)
                                                ("to" . ,to)
                                                ("replyto" . ,reply-to)
+                                               ("fromname" . ,from-name)
                                                ("text" . ,text)
                                                ("html" . ,html)
                                                ("from" . ,from))))