TFC/tfcconnection
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

trying to setup lisp server to work with janky nc tables

Browse source
This commit is contained in:
Chris Cochrun 2023-12-08 17:12:13 -06:00
parent be523b1220
commit 350e7d4b33
1 changed files with 48 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
src/main.lisp
View file

@ -35,17 +35,17 @@ Nextcloud tables"
(defun post-health-form (data-list) (defun post-health-form (data-list)
"Takes the health form as an alist and posts it to nocodb" "Takes the health form as an alist and posts it to nocodb"
(let* ((student-name (concatenate 'string (let* ((student-name (concatenate 'string
(cdr (assoc "firstname" data-list (serapeum:trim-whitespace (cdr (assoc "firstname" data-list
:test 'string=)) :test 'string=)))
" " " "
(cdr (assoc "lastname" data-list (serapeum:trim-whitespace (cdr (assoc "lastname" data-list
:test 'string=)))) :test 'string=)))))
(parent-name (concatenate 'string (parent-name (concatenate 'string
(cdr (assoc "parentfirstname" data-list (serapeum:trim-whitespace (cdr (assoc "parentfirstname" data-list
:test 'string=)) :test 'string=)))
" " " "
(cdr (assoc "parentlastname" data-list (serapeum:trim-whitespace (cdr (assoc "parentlastname" data-list
:test 'string=)))) :test 'string=)))))
(image (assoc "image" data-list)) (image (assoc "image" data-list))
(headers (list (cons "Authorization" *auth-token*) (headers (list (cons "Authorization" *auth-token*)
(cons "Content-Type" "application/json")))) (cons "Content-Type" "application/json"))))
@ -88,16 +88,52 @@ Nextcloud tables"
"allergy-treatments") "allergy-treatments")
(setf (car (assoc "tetanus-shot" data-list :test 'string=)) (setf (car (assoc "tetanus-shot" data-list :test 'string=))
"tetanus-shot-date") "tetanus-shot-date")
(setq data-list (loop :for entry :in data-list (loop :for entry :in data-list
:collect (format t "~&~A" entry))) :do (format t "~&~A" entry))
(format t "~&~A" "Let's print out the data") (format t "~&~A" "Let's print out the data")
(format t "~&~A" data-list) (format t "~&~A" data-list)
(setq *last-list-data* data-list) (setq *last-list-data* data-list)
(println *last-list-data*)
(setf data `#(("columnId" 37 "value" ,(serapeum:trim-whitespace (cdr (assoc "Student Name" *last-list-data* :test 'string=))))
("columnId" 38 "value" ,(serapeum:trim-whitespace (cdr (assoc "Parent Name" *last-list-data* :test 'string=))))
("columnId" 39 "value" ,(serapeum:trim-whitespace (cdr (assoc "birthdate" *last-list-data* :test 'string=))))
("columnId" 40 "value" ,(serapeum:trim-whitespace (cdr (assoc "street" *last-list-data* :test 'string=))))
("columnId" 41 "value" ,(serapeum:trim-whitespace (cdr (assoc "city" *last-list-data* :test 'string=))))
("columnId" 42 "value" ,(serapeum:trim-whitespace (cdr (assoc "state" *last-list-data* :test 'string=))))
("columnId" 43 "value" ,(serapeum:trim-whitespace (cdr (assoc "zip" *last-list-data* :test 'string=))))
("columnId" 44 "value" ,(serapeum:trim-whitespace (cdr (assoc "cellphone" *last-list-data* :test 'string=))))
("columnId" 45 "value" ,(serapeum:trim-whitespace (cdr (assoc "homephone" *last-list-data* :test 'string=))))
("columnId" 46 "value" ,(serapeum:trim-whitespace (cdr (assoc "emergency-contact" *last-list-data* :test 'string=))))
("columnId" 47 "value" ,(serapeum:trim-whitespace (cdr (assoc "doctor" *last-list-data* :test 'string=))))
("columnId" 48 "value" ,(serapeum:trim-whitespace (cdr (assoc "doctor-city" *last-list-data* :test 'string=))))
("columnId" 49 "value" ,(serapeum:trim-whitespace (cdr (assoc "doctor-phone" *last-list-data* :test 'string=))))
("columnId" 50 "value" ,(serapeum:trim-whitespace (cdr (assoc "medical-coverage" *last-list-data* :test 'string=))))
("columnId" 51 "value" ,(serapeum:trim-whitespace (cdr (assoc "insurance-name" *last-list-data* :test 'string=))))
("columnId" 52 "value" ,(serapeum:trim-whitespace (cdr (assoc "policy-number" *last-list-data* :test 'string=))))
("columnId" 53 "value" ,(serapeum:trim-whitespace (cdr (assoc "insurance-card" *last-list-data* :test 'string=))))
("columnId" 54 "value" ,(serapeum:trim-whitespace (cdr (assoc "agreement" *last-list-data* :test 'string=))))
("columnId" 55 "value" ,(serapeum:trim-whitespace (cdr (assoc "allergies" *last-list-data* :test 'string=))))
("columnId" 56 "value" ,(serapeum:trim-whitespace (cdr (assoc "specific-allergies" *last-list-data* :test 'string=))))
("columnId" 57 "value" ,(serapeum:trim-whitespace (cdr (assoc "allergy-treatment" *last-list-data* :test 'string=))))
("columnId" 58 "value" ,(serapeum:trim-whitespace (cdr (assoc "conditions" *last-list-data* :test 'string=))))
("columnId" 59 "value" ,(serapeum:trim-whitespace (cdr (assoc "tetanus-shot-date" *last-list-data* :test 'string=))))
("columnId" 60 "value" ,(serapeum:trim-whitespace (cdr (assoc "medication-schedule" *last-list-data* :test 'string=))))
("columnId" 61 "value" ,(serapeum:trim-whitespace (cdr (assoc "other-notes" *last-list-data* :test 'string=))))
("columnId" 62 "value" ,(serapeum:trim-whitespace (cdr (assoc "swimming-ability" *last-list-data* :test 'string=))))
))
;; (loop for i in *last-list-data*
;; do (let ((key (car i))
;; (value (serapeum:trim-whitespace (cdr i))))
;; (format t "~&~a: ~a" key value)
;; (cond ((string= key "Student Name") (terpri) (println "woo")))))
(dex:post "https://staff.tfcconnection.org/apps/tables/api/1/tables/4/rows" (dex:post "https://staff.tfcconnection.org/apps/tables/api/1/tables/4/rows"
:basic-auth '("chris" . "2VHeGxeC^Zf9KqFK^G@Pt!zu2q^6@b") :basic-auth '("chris" . "2VHeGxeC^Zf9KqFK^G@Pt!zu2q^6@b")
:content `(("tableid" . 4) ("data" . ,(stringify data-list))) :content (stringify `(("tableid" . 4) ("data" . ,data)))
:verbose t))) :verbose t)
))
(defun print-hash-entry (key value) (defun print-hash-entry (key value)
(format t "~S: ~S~%" key (format t "~S: ~S~%" key