From 3d682ee76bb3891f7f8bacd753236bc92a5d7676 Mon Sep 17 00:00:00 2001 From: Chris Cochrun Date: Fri, 12 Jan 2024 07:23:01 -0600 Subject: [PATCH] removing some cruft --- src/main.lisp | 21 ++++----------------- 1 file changed, 4 insertions(+), 17 deletions(-) diff --git a/src/main.lisp b/src/main.lisp index c67a957..0b76021 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -13,26 +13,13 @@ (in-package :tfcserver) -(defvar *last*) -(defvar *last-data*) -(defvar *last-list-data*) -(defvar *stream*) -(defvar *auth-token* "Basic Y2hyaXM6MlZIZUd4ZUNeWmY5S3FGS15HQFB0IXp1MnFeNkBi") - (defvar *server*) - (defun start-server (port) (setq *server* (hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port port)))) -;; (defun setup-for-nextcloud-tables (data-list) -;; "moving the list into a form that makes sense for -;; Nextcloud tables" -;; (setf idk (car (assoc "Student Name" data-list :test 'string=) -;; "value"))) - (defparameter *mail-css* '((table :border-collapse "collapse" :width "100%") (("th," td) :padding "8px") @@ -313,18 +300,18 @@ with the image attached to us" (defun mail-health-form (form attachment) "Takes the form as an alist and sends a table formatted email with the image attached" - (let* ((first-name (serapeum:trim-whitespace + (let* ((first-name (trim-whitespace (cdr (assoc "firstname" form :test 'string=)))) - (last-name (serapeum:trim-whitespace + (last-name (trim-whitespace (cdr (assoc "lastname" form :test 'string=)))) (parent-name (concatenate 'string - (serapeum:trim-whitespace + (trim-whitespace (cdr (assoc "parentfirstname" form :test 'string=))) " " - (serapeum:trim-whitespace + (trim-whitespace (cdr (assoc "parentlastname" form :test 'string=)))))) (not (cl-smtp:send-email