src/user-context.lisp

   1 (uiop:define-package #:lw2.user-context
   2   (:use #:cl)
   3   (:export #:*current-auth-token* #:*current-auth-status* #:*current-userid* #:*current-username* #:*current-user-slug* #:*current-ignore-hash*
   4            #:logged-in-userid #:logged-in-username #:logged-in-user-slug))
   5
   6 (in-package #:lw2.user-context)
   7
   8 (defvar *current-auth-token*)
   9 (defvar *current-auth-status*)
  10 (defvar *current-userid*)
  11 (defvar *current-username*)
  12 (defvar *current-user-slug*)
  13 (defvar *current-ignore-hash*)
  14
  15 (defun logged-in-userid (&optional is-userid)
  16   (let ((current-userid *current-userid*))
  17     (if is-userid
  18         (string= current-userid is-userid)
  19         current-userid)))
  20
  21 (defun logged-in-username ()
  22   *current-username*)
  23
  24 (defun logged-in-user-slug ()
  25   *current-user-slug*)