(in-package :whitespace)

(define-view dark-css (params)
  (colors:let-palette (make-instance 'colors:palette)
    (eval '(get-theme-css))))

(define-view light-css (params)
  (colors:let-palette (colors:invert-palette (make-instance 'colors:palette))
    (eval '(get-theme-css))))

(define-view css (colorscheme)
  (string-case:string-case (colorscheme :default "")
    ("light" (view 'light-css colorscheme))
    ("dark" (view 'dark-css colorscheme))))

(define-view userinfo (params)
  (declare (ignore params))
  (ningle:with-context-variables (session)
    (cl-oid-connect:require-login
      (cl-oid-connect::with-endpoints (gethash :endpoint-schema session)
        `(200
          (:content-type "application/json")
          (,(cl-json:encode-json-to-string
             (gethash :userinfo session))))))))

(define-controller css (params)
  (cl-oid-connect.utils:assoc-cdr :scheme params))

(define-controller id (params)
  params)

(define-view redirect (destination)
  `(302 (:location ,destination)))

(define-view login (params)
  (cl-who: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"))))))

(define-controller logout (params)
  (declare (ignore params))
  (ningle:with-context-variables (session)
    (setf (gethash :userinfo session) nil)
    "/"))

(define-view root (feeds)
  (let ((*feeds* feeds))
    (base-template-f)))

(define-controller root (params)
  (cl-oid-connect.utils::with-login
    (ningle:with-context-variables (session)
      (cl-oid-connect:redirect-if-necessary session
        (let* ((user-info (gethash :app-user session)))
          (deserialize user-info))))
    (:unauthorized (c)
     (declare (ignore c))
     (format t "hmm...")
     (araneus::switch-view 'redirect)
     "/login")))