new file mode 100644

@@ -0,0 +1,60 @@

+(ql:quickload :ningle)

+(ql:quickload :clack)

+(ql:quickload :cl-oid-connect)

+(ql:quickload :cl-who)

+(ql:quickload :ubiquitous)

+(ql:quickload :clack-errors)

+

+(defpackage :cl-oid-connect.demo

+  (:use :cl :cl-oid-connect.utils :cl-oid-connect :cl-who))

+(in-package :cl-oid-connect.demo)

+

+(defparameter *app* (make-instance 'ningle:<app>))

+

+(def-route ("/login" (params) :app *app*)

+  `(200 ()

+    ,(with-html-output-to-string (s)

+       (:html (:head (:title "Login"))

+        (:body

+          (:div :class "login-button facebook"

+           (:a :href "/login/facebook" "Facebook"))

+          (:div :class "login-button google"

+           (:a :href "/login/google" "Google")))))))

+

+(def-route ("/" (params) :app *app*)

+  (declare (ignore params))

+  (ningle:with-context-variables (session)

+    (require-login

+      (redirect-if-necessary session

+        (with-endpoints (gethash :endpoint-schema session)

+          `(200 (:content-type "application/json")

+            ,(cl-json:encode-json-to-string (gethash :userinfo session))))))))

+

+(cl-oid-connect::setup-oid-connect *app* (userinfo &rest args))

+

+(let ((handler nil))

+  (ubiquitous:restore :whitespace)

+  (defun stop () (clack:stop (pop handler)))

+

+  (defun start (&optional tmp)

+    (cl-oid-connect:initialize-oid-connect

+      (ubiquitous:value 'facebook 'secrets)

+      (ubiquitous:value 'google 'secrets))

+    (let ((server (if (> (length tmp) 1)

+                    (intern (string-upcase (elt tmp 1)) 'keyword)

+                    :hunchentoot)))

+      (push (clack:clackup

+              (lack.builder:builder

+                :backtrace

+                :session

+                *app*

+                )

+              :port 9090

+              :server server)

+            handler)))

+

+  (defun restart-clack ()

+    (do () ((null handler)) (stop))

+    (start)))

+

+