The reblocks-auth Reference Manual

Source Control

(GIT https://github.com/40ants/reblocks-auth)

Bug Tracker

License

Unlicense

Long Description

# reblocks-auth - A system to add an authentication to the Reblocks based web-site.

## REBLOCKS-AUTH ASDF System Details

* Description: A system to add an authentication to the Reblocks based web-site.

* Licence: Unlicense

* Author: Alexander Artemenko <svetlyak.40wt@gmail.com>

* Homepage: [https://40ants.com/reblocks-auth/][e462]

* Bug tracker: [https://github.com/40ants/reblocks-auth/issues][4f85]

* Source control: [GIT][1668]

* Depends on: [alexandria][8236], [cl-strings][2ecb], [dexador][8347], [jonathan][6dd8], [local-time][46a1], [log4cl][7f8b], [mailgun][ef16], [mito][5b70], [quri][2103], [reblocks][184b], [reblocks-lass][28e0], [reblocks-ui][4376], [secret-values][cd18], [uuid][d6b3]

[![](https://github-actions.40ants.com/40ants/reblocks-auth/matrix.svg?only=ci.run-tests)][2ba2]

![](http://quickdocs.org/badge/reblocks-auth.svg)

Reblocks-auth is a system for adding authentication for your Reblocks application. It allows users to login using multiple ways. Right now GitHub is only supported but the list will be extended.

This system uses [Mito][c7c4] as a storage to store data about users and their data from service providers. Each user has a unique nickname and an optional email. Also, one or more identity providers can be bound to each user account.

## Installation

You can install this library from Quicklisp, but you want to receive updates quickly, then install it from Ultralisp.org:

“‘
(ql-dist:install-dist "http://dist.ultralisp.org/"
:prompt nil)
(ql:quickload :reblocks-auth)
“‘
<a id="x-28REBLOCKS-AUTH-DOCS-2FINDEX-3A-3A-40EXAMPLE-2040ANTS-DOC-2FLOCATIVES-3ASECTION-29"></a>

## Example App

I’ve made an example application to demonstrate how does [‘reblocks-auth‘][ac3a] system work.
To start this example application, run this code in the ‘REPL‘:

“‘
(asdf:load-system :reblocks-auth-example)

(reblocks-auth-example/server:start :port 8080)
“‘
When you’ll open the http://localhost:8080/ you will see this simple website:

![](https://storage.yandexcloud.net/40ants-blog-images/reblocks-auth-example.gif)

## Usage

This system provides a way for user authentifications. Each user is represented in the database
using [‘reblocks-auth/models:user‘][05f7] model user can be bound to one or more "social profiles" -
[‘reblocks-auth/models:social-profile‘][d9d6]. For example, if user logged in via GitHub, then
database will store one "user" record and one "social-profile" record. Each social profile
can hold additional information in it’s metadata slot.

To use this system, you have to define two routes which will be responsible for login and logout.
On each route you have to render either [‘reblocks-auth:login-processor‘][0dc2] or [‘reblocks-auth:logout-processor‘][4d0d] widgets.

Usually you can define your routes like this ([‘reblocks-navigation-widget:defroutes‘][5f0d] is used here):

“‘
(defroutes routes
("/" (make-page-frame
(make-landing-page)))
("/login"
(make-page-frame
(reblocks-auth:make-login-processor)))
("/logout"
(make-page-frame
(reblocks-auth:make-logout-processor))))
“‘
This code will render a set up buttons to login through enabled service providers.
Enabled service providers are listed in [‘reblocks-auth:*enabled-services*‘][ac4c] variable.

* renders buttons for enabled service providers calling [‘reblocks-auth/button:render‘][5d34] generic-function.

* service processor is executed when user clicks a "login" button. For example GitHub processor
redirects to https://github.com/login/oauth/authorize

* when user comes back to /login page, service processor gets or creates entries in the database
and stores current user in the session.

* after this, any code can retrieve current user by a call to [‘reblocks-auth/models:get-current-user‘][8c78].

Logout processor renders a "logout" button and when user clicks on it, removes user from the current session.

## API

### REBLOCKS-AUTH/AUTH

#### [package](660b) ‘reblocks-auth/auth‘

#### Generics

##### [generic-function](90bf) ‘reblocks-auth/auth:authenticate‘ service &rest params &key code

Called when user had authenticated in the service and returned
to our site.

All ‘GET‘ arguments are collected into a plist and passed as params.

Should return two values a user and a flag denotifing if user was just created.

### REBLOCKS-AUTH/BUTTON

#### [package](a148) ‘reblocks-auth/button‘

#### Generics

##### [generic-function](d4c7) ‘reblocks-auth/button:render‘ service &key retpath

Renders a button for given service.
Service should be a keyword like :github or :facebook.

### REBLOCKS-AUTH/CONDITIONS

#### [package](0ab3) ‘reblocks-auth/conditions‘

#### Classes

##### UNABLE-TO-AUTHENTICATE

###### [condition](718f) ‘reblocks-auth/conditions:unable-to-authenticate‘ ()

**Readers**

###### [reader](718f) ‘reblocks-auth/conditions:get-message‘ (unable-to-authenticate) (:message)

###### [reader](718f) ‘reblocks-auth/conditions:get-reason‘ (unable-to-authenticate) (:reason = ’nil)

### REBLOCKS-AUTH/CORE

#### [package](2c94) ‘reblocks-auth/core‘

#### Classes

##### LOGIN-PROCESSOR

###### [class](5e0e) ‘reblocks-auth/core:login-processor‘ (widget)

This widget should be rendered to process user’s login.

##### LOGOUT-PROCESSOR

###### [class](4190) ‘reblocks-auth/core:logout-processor‘ (widget)

This widget should be rendered to process user’s logout.

#### Functions

##### [function](9812) ‘reblocks-auth/core:make-login-processor‘

##### [function](f239) ‘reblocks-auth/core:make-logout-processor‘

##### [function](4121) ‘reblocks-auth/core:render-buttons‘ &key retpath

Renders a row of buttons for enabled service providers.

Optionally you can specify ‘RETPATH‘ argument with an ‘URI‘ to return user
after login.

#### Variables

##### [variable](3c6c) ‘reblocks-auth/core:*enabled-services*‘ (:github)

Set this variable to limit a services available to login through.

##### [variable](b8d4) ‘reblocks-auth/core:*login-hooks*‘ nil

Append a funcallable handlers which accept single argument - logged user.

### REBLOCKS-AUTH/ERRORS

#### [package](7135) ‘reblocks-auth/errors‘

#### Classes

##### NICKNAME-IS-NOT-AVAILABLE

###### [condition](c4d8) ‘reblocks-auth/errors:nickname-is-not-available‘ (error)

Signalled when there is already a user with given nickname.

### REBLOCKS-AUTH/GITHUB

#### [package](6acc) ‘reblocks-auth/github‘

#### Functions

##### [function](68d1) ‘reblocks-auth/github:get-scopes‘

Returns current user’s scopes.

##### [function](98b4) ‘reblocks-auth/github:get-token‘

Returns current user’s GitHub token.

##### [function](7e07) ‘reblocks-auth/github:render-button‘ &KEY (CLASS "button small") (SCOPES \*DEFAULT-SCOPES\*) (TEXT "Grant permissions") (RETPATH (GET-URI))

Renders a button to request more scopes.

#### Variables

##### [variable](1744) ‘reblocks-auth/github:*client-id*‘ nil

‘OA‘uth client id

##### [variable](9129) ‘reblocks-auth/github:*default-scopes*‘ ("user:email")

A listo of default scopes to request from GitHub.

##### [variable](ba45) ‘reblocks-auth/github:*secret*‘ nil

‘OA‘uth secret. It might be a string or secret-values:secret-value.

### REBLOCKS-AUTH/MODELS

#### [package](1385) ‘reblocks-auth/models‘

#### Classes

##### SOCIAL-PROFILE

###### [class](4620) ‘reblocks-auth/models:social-profile‘ (serial-pk-mixin dao-class record-timestamps-mixin)

Represents a User’s link to a social service.
User can be bound to multiple social services.

**Readers**

###### [reader](a31a) ‘reblocks-auth/models:profile-metadata‘ (social-profile) (:metadata :params)

###### [reader](bee0) ‘reblocks-auth/models:profile-service‘ (social-profile) (:service)

###### [reader](da3d) ‘reblocks-auth/models:profile-service-user-id‘ (social-profile) (:service-user-id)

###### [reader] ‘reblocks-auth/models:profile-user‘ (social-profile) (:user)

A [‘user‘][05f7] instance, bound to the [‘social-profile‘][d9d6].

**Accessors**

###### [accessor](a31a) ‘reblocks-auth/models:profile-metadata‘ (social-profile) (:metadata :params)

##### USER

###### [class](aae9) ‘reblocks-auth/models:user‘ (serial-pk-mixin dao-class record-timestamps-mixin)

This class stores basic information about user - it’s nickname and email.
Additional information is stored inside [‘social-profile‘][d9d6] instances.

**Readers**

###### [reader](75dd) ‘reblocks-auth/models:get-email‘ (user) (:email = nil)

###### [reader](ab57) ‘reblocks-auth/models:get-nickname‘ (user) (:nickname)

#### Functions

##### [function](0049) ‘reblocks-auth/models:anonymous-p‘ user

##### [function](5550) ‘reblocks-auth/models:change-email‘ user email

##### [function](5dff) ‘reblocks-auth/models:change-nickname‘ new-nickname

Changes nickname of the current user.

##### [function](ff0c) ‘reblocks-auth/models:create-social-user‘ service service-user-id &rest metadata &key email

##### [function](8f6b) ‘reblocks-auth/models:find-social-user‘ service service-user-id

##### [function](2789) ‘reblocks-auth/models:get-all-users‘

##### [function](ae5e) ‘reblocks-auth/models:get-current-user‘

Returns current user or ‘NIL‘.

##### [function](afa0) ‘reblocks-auth/models:get-user-by-email‘ email

Returns a user with given email.

##### [function](71ff) ‘reblocks-auth/models:get-user-by-nickname‘ nickname

Returns a user with given email.

##### [function](badc) ‘reblocks-auth/models:user-social-profiles‘ user

Returns a list of social profiles, bound to the user.

### REBLOCKS-AUTH/PROVIDERS/EMAIL/MAILGUN

#### [package](2d15) ‘reblocks-auth/providers/email/mailgun‘

#### Macros

##### [macro](025a) ‘reblocks-auth/providers/email/mailgun:define-code-sender‘ NAME (FROM-EMAIL URL-VAR &KEY (SUBJECT "Authentication code")) &BODY HTML-TEMPLATE-BODY

### REBLOCKS-AUTH/PROVIDERS/EMAIL/MODELS

#### [package](b7c4) ‘reblocks-auth/providers/email/models‘

#### Classes

##### REGISTRATION-CODE

###### [class](4bb8) ‘reblocks-auth/providers/email/models:registration-code‘ (serial-pk-mixin dao-class record-timestamps-mixin)

This model stores a code sent to an email for signup or log in.

**Readers**

###### [reader](cb50) ‘reblocks-auth/providers/email/models:registration-code‘ (registration-code) (:code)

###### [reader](d5de) ‘reblocks-auth/providers/email/models:registration-email‘ (registration-code) (:email)

User’s email.

###### [reader](2c98) ‘reblocks-auth/providers/email/models:valid-until‘ (registration-code) (:valid-until)

Expiration time.

#### Variables

##### [variable](6ce9) ‘reblocks-auth/providers/email/models:*send-code-callback*‘ -unbound-

Set this variable to a function of one argument of class [‘registration-code‘][1573].
It should send a registration code using template, suitable for your website.

## Roadmap

* Add support for authentication by a link sent to the email.

* Add ability to bind multiple service providers to a single user.

[e462]: https://40ants.com/reblocks-auth/
[ac3a]: https://40ants.com/reblocks-auth/#x-28-23A-28-2813-29-20BASE-CHAR-20-2E-20-22reblocks-auth-22-29-20ASDF-2FSYSTEM-3ASYSTEM-29
[5d34]: https://40ants.com/reblocks-auth/#x-28REBLOCKS-AUTH-2FBUTTON-3ARENDER-20GENERIC-FUNCTION-29
[ac4c]: https://40ants.com/reblocks-auth/#x-28REBLOCKS-AUTH-2FCORE-3A-2AENABLED-SERVICES-2A-20-28VARIABLE-29-29
[0dc2]: https://40ants.com/reblocks-auth/#x-28REBLOCKS-AUTH-2FCORE-3ALOGIN-PROCESSOR-20CLASS-29
[4d0d]: https://40ants.com/reblocks-auth/#x-28REBLOCKS-AUTH-2FCORE-3ALOGOUT-PROCESSOR-20CLASS-29
[8c78]: https://40ants.com/reblocks-auth/#x-28REBLOCKS-AUTH-2FMODELS-3AGET-CURRENT-USER-20FUNCTION-29
[d9d6]: https://40ants.com/reblocks-auth/#x-28REBLOCKS-AUTH-2FMODELS-3ASOCIAL-PROFILE-20CLASS-29
[05f7]: https://40ants.com/reblocks-auth/#x-28REBLOCKS-AUTH-2FMODELS-3AUSER-20CLASS-29
[1573]: https://40ants.com/reblocks-auth/#x-28REBLOCKS-AUTH-2FPROVIDERS-2FEMAIL-2FMODELS-3AREGISTRATION-CODE-20CLASS-29
[5f0d]: https://40ants.com/reblocks-navigation-widget/#x-28REBLOCKS-NAVIGATION-WIDGET-3ADEFROUTES-20-2840ANTS-DOC-2FLOCATIVES-3AMACRO-29-29
[1668]: https://github.com/40ants/reblocks-auth
[2ba2]: https://github.com/40ants/reblocks-auth/actions
[660b]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/auth.lisp#L1
[90bf]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/auth.lisp#L8
[a148]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/button.lisp#L1
[d4c7]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/button.lisp#L10
[0ab3]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/conditions.lisp#L1
[718f]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/conditions.lisp#L10
[2c94]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/core.lisp#L1
[3c6c]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/core.lisp#L41
[b8d4]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/core.lisp#L45
[5e0e]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/core.lisp#L49
[4190]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/core.lisp#L54
[9812]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/core.lisp#L59
[f239]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/core.lisp#L63
[4121]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/core.lisp#L74
[7135]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/errors.lisp#L1
[c4d8]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/errors.lisp#L7
[6acc]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/github.lisp#L1
[98b4]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/github.lisp#L143
[68d1]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/github.lisp#L148
[1744]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/github.lisp#L35
[ba45]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/github.lisp#L39
[9129]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/github.lisp#L43
[7e07]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/github.lisp#L81
[1385]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L1
[8f6b]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L101
[ff0c]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L110
[ae5e]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L130
[badc]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L136
[0049]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L149
[afa0]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L153
[71ff]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L158
[5dff]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L163
[5550]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L177
[aae9]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L36
[ab57]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L37
[75dd]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L40
[4620]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L51
[bee0]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L59
[da3d]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L65
[a31a]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L68
[2789]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/models.lisp#L97
[2d15]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/providers/email/mailgun.lisp#L1
[025a]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/providers/email/mailgun.lisp#L41
[b7c4]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/providers/email/models.lisp#L1
[6ce9]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/providers/email/models.lisp#L21
[4bb8]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/providers/email/models.lisp#L43
[d5de]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/providers/email/models.lisp#L44
[cb50]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/providers/email/models.lisp#L48
[2c98]: https://github.com/40ants/reblocks-auth/blob/fb0df3ad4d7d504a2a844e04ac941ab57a599bf1/src/providers/email/models.lisp#L52
[4f85]: https://github.com/40ants/reblocks-auth/issues
[c7c4]: https://github.com/fukamachi/mito
[8236]: https://quickdocs.org/alexandria
[2ecb]: https://quickdocs.org/cl-strings
[8347]: https://quickdocs.org/dexador
[6dd8]: https://quickdocs.org/jonathan
[46a1]: https://quickdocs.org/local-time
[7f8b]: https://quickdocs.org/log4cl
[ef16]: https://quickdocs.org/mailgun
[5b70]: https://quickdocs.org/mito
[2103]: https://quickdocs.org/quri
[184b]: https://quickdocs.org/reblocks
[28e0]: https://quickdocs.org/reblocks-lass
[4376]: https://quickdocs.org/reblocks-ui
[cd18]: https://quickdocs.org/secret-values
[d6b3]: https://quickdocs.org/uuid

* * *
###### [generated by [40ANTS-DOC](https://40ants.com/doc/)]

Version

0.9.0

Defsystem Dependency

40ants-asdf-system (system).

Dependencies

reblocks-auth/core (system).
reblocks-auth/github (system).
reblocks-auth/providers/email/processing (system).
reblocks-auth/providers/email/mailgun (system).
reblocks-auth/models (system).

Source

Next: reblocks-auth/button, Previous: reblocks-auth, Up: Systems [Contents][Index]

2.2 `reblocks-auth/core`

Author

Alexander Artemenko <svetlyak.40wt@gmail.com>

Home Page

Source Control

(GIT https://github.com/40ants/reblocks-auth)

Bug Tracker

License

Unlicense

Dependencies

log4cl (system).
reblocks-lass (system).
reblocks-auth/button (system).
reblocks-auth/auth (system).
reblocks/response (system).
reblocks/request (system).
reblocks/widget (system).
reblocks/page (system).
reblocks-auth/utils (system).
reblocks-auth/conditions (system).
reblocks/html (system).
reblocks-auth/models (system).
reblocks/dependencies (system).

Source

Next: reblocks-auth/auth, Previous: reblocks-auth/core, Up: Systems [Contents][Index]

2.3 `reblocks-auth/button`

Author: Alexander Artemenko <svetlyak.40wt@gmail.com>
Home Page: https://40ants.com/reblocks-auth/
Source Control: (GIT https://github.com/40ants/reblocks-auth)
Bug Tracker: https://github.com/40ants/reblocks-auth/issues
License: Unlicense
Dependency: reblocks/html (system).
Source: reblocks-auth.asd.

Next: reblocks-auth/utils, Previous: reblocks-auth/button, Up: Systems [Contents][Index]

2.4 `reblocks-auth/auth`

Author: Alexander Artemenko <svetlyak.40wt@gmail.com>
Home Page: https://40ants.com/reblocks-auth/
Source Control: (GIT https://github.com/40ants/reblocks-auth)
Bug Tracker: https://github.com/40ants/reblocks-auth/issues
License: Unlicense
Source: reblocks-auth.asd.

Next: reblocks-auth/conditions, Previous: reblocks-auth/auth, Up: Systems [Contents][Index]

2.5 `reblocks-auth/utils`

Author: Alexander Artemenko <svetlyak.40wt@gmail.com>
Home Page: https://40ants.com/reblocks-auth/
Source Control: (GIT https://github.com/40ants/reblocks-auth)
Bug Tracker: https://github.com/40ants/reblocks-auth/issues
License: Unlicense
Dependency: alexandria (system).
Source: reblocks-auth.asd.

Next: reblocks-auth/models, Previous: reblocks-auth/utils, Up: Systems [Contents][Index]

2.6 `reblocks-auth/conditions`

Author: Alexander Artemenko <svetlyak.40wt@gmail.com>
Home Page: https://40ants.com/reblocks-auth/
Source Control: (GIT https://github.com/40ants/reblocks-auth)
Bug Tracker: https://github.com/40ants/reblocks-auth/issues
License: Unlicense
Source: reblocks-auth.asd.

Next: reblocks-auth/errors, Previous: reblocks-auth/conditions, Up: Systems [Contents][Index]

2.7 `reblocks-auth/models`

Author

Alexander Artemenko <svetlyak.40wt@gmail.com>

Home Page

Source Control

(GIT https://github.com/40ants/reblocks-auth)

Bug Tracker

License

Unlicense

Dependencies

jonathan (system).
reblocks/session (system).
alexandria (system).
mito (system).
reblocks-auth/errors (system).

Source

Next: reblocks-auth/github, Previous: reblocks-auth/models, Up: Systems [Contents][Index]

2.8 `reblocks-auth/errors`

Author: Alexander Artemenko <svetlyak.40wt@gmail.com>
Home Page: https://40ants.com/reblocks-auth/
Source Control: (GIT https://github.com/40ants/reblocks-auth)
Bug Tracker: https://github.com/40ants/reblocks-auth/issues
License: Unlicense
Source: reblocks-auth.asd.

Next: reblocks-auth/providers/email/processing, Previous: reblocks-auth/errors, Up: Systems [Contents][Index]

2.9 `reblocks-auth/github`

Author

Alexander Artemenko <svetlyak.40wt@gmail.com>

Home Page

Source Control

(GIT https://github.com/40ants/reblocks-auth)

Bug Tracker

License

Unlicense

Dependencies

dexador (system).
log4cl (system).
jonathan (system).
reblocks-auth/button (system).
reblocks-auth/auth (system).
reblocks/html (system).
reblocks-auth/conditions (system).
reblocks-auth/models (system).
reblocks/response (system).
cl-strings (system).
quri (system).
reblocks/request (system).
secret-values (system).

Source

Next: reblocks-auth/providers/email/models, Previous: reblocks-auth/github, Up: Systems [Contents][Index]

2.10 `reblocks-auth/providers/email/processing`

Author

Alexander Artemenko <svetlyak.40wt@gmail.com>

Home Page

Source Control

(GIT https://github.com/40ants/reblocks-auth)

Bug Tracker

License

Unlicense

Dependencies

reblocks-auth/providers/email/models (system).
reblocks/html (system).
reblocks/widget (system).
reblocks-auth/button (system).
reblocks-ui/form (system).
reblocks-ui/popup (system).
reblocks-lass (system).
reblocks/dependencies (system).

Source

Next: reblocks-auth/providers/email/mailgun, Previous: reblocks-auth/providers/email/processing, Up: Systems [Contents][Index]

2.11 `reblocks-auth/providers/email/models`

Author

Alexander Artemenko <svetlyak.40wt@gmail.com>

Home Page

Source Control

(GIT https://github.com/40ants/reblocks-auth)

Bug Tracker

License

Unlicense

Dependencies

log4cl (system).
mailgun (system).
local-time (system).
uuid (system).
mito (system).

Source

Previous: reblocks-auth/providers/email/models, Up: Systems [Contents][Index]

2.12 `reblocks-auth/providers/email/mailgun`

Author

Alexander Artemenko <svetlyak.40wt@gmail.com>

Home Page

Source Control

(GIT https://github.com/40ants/reblocks-auth)

Bug Tracker

License

Unlicense

Dependencies

mailgun (system).
reblocks/response (system).
alexandria (system).
reblocks-auth/providers/email/models (system).

Source

Next: Packages, Previous: Systems, Up: The reblocks-auth Reference Manual [Contents][Index]

3 Files

Files are sorted by type and then listed depth-first from the systems components trees.

Lisp

Previous: Files, Up: Files [Contents][Index]

3.1 Lisp

reblocks-auth/reblocks-auth.asd
reblocks-auth/core/file-type.lisp
reblocks-auth/button/file-type.lisp
reblocks-auth/auth/file-type.lisp
reblocks-auth/utils/file-type.lisp
reblocks-auth/conditions/file-type.lisp
reblocks-auth/models/file-type.lisp
reblocks-auth/errors/file-type.lisp
reblocks-auth/github/file-type.lisp
reblocks-auth/providers/email/processing/file-type.lisp
reblocks-auth/providers/email/models/file-type.lisp
reblocks-auth/providers/email/mailgun/file-type.lisp

Next: reblocks-auth/core/file-type.lisp, Previous: Lisp, Up: Lisp [Contents][Index]

3.1.1 `reblocks-auth/reblocks-auth.asd`

Source

Parent Component

reblocks-auth (system).

ASDF Systems

reblocks-auth.
reblocks-auth/core.
reblocks-auth/button.
reblocks-auth/auth.
reblocks-auth/utils.
reblocks-auth/conditions.
reblocks-auth/models.
reblocks-auth/errors.
reblocks-auth/github.
reblocks-auth/providers/email/processing.
reblocks-auth/providers/email/models.
reblocks-auth/providers/email/mailgun.

Next: reblocks-auth/button/file-type.lisp, Previous: reblocks-auth/reblocks-auth.asd, Up: Lisp [Contents][Index]

3.1.2 `reblocks-auth/core/file-type.lisp`

Source

Parent Component

reblocks-auth/core (system).

Packages

reblocks-auth/core.

Public Interface

*enabled-services* (special variable).
*login-hooks* (special variable).
get-dependencies (method).
login-processor (class).
logout-processor (class).
make-login-processor (function).
make-logout-processor (function).
render (method).
render (method).
render-buttons (function).

Internals

reach-goal (generic function).

Next: reblocks-auth/auth/file-type.lisp, Previous: reblocks-auth/core/file-type.lisp, Up: Lisp [Contents][Index]

3.1.3 `reblocks-auth/button/file-type.lisp`

Source: reblocks-auth.asd.
Parent Component: reblocks-auth/button (system).
Packages: reblocks-auth/button.
Public Interface: render (generic function).

Next: reblocks-auth/utils/file-type.lisp, Previous: reblocks-auth/button/file-type.lisp, Up: Lisp [Contents][Index]

3.1.4 `reblocks-auth/auth/file-type.lisp`

Source: reblocks-auth.asd.
Parent Component: reblocks-auth/auth (system).
Packages: reblocks-auth/auth.
Public Interface: authenticate (generic function).

Next: reblocks-auth/conditions/file-type.lisp, Previous: reblocks-auth/auth/file-type.lisp, Up: Lisp [Contents][Index]

3.1.5 `reblocks-auth/utils/file-type.lisp`

Source

Parent Component

reblocks-auth/utils (system).

Packages

reblocks-auth/utils.

Internals

keywordify (function).
to-plist (function).

Next: reblocks-auth/models/file-type.lisp, Previous: reblocks-auth/utils/file-type.lisp, Up: Lisp [Contents][Index]

3.1.6 `reblocks-auth/conditions/file-type.lisp`

Source

Parent Component

reblocks-auth/conditions (system).

Packages

Public Interface

get-message (reader method).
get-reason (reader method).
unable-to-authenticate (condition).

Next: reblocks-auth/errors/file-type.lisp, Previous: reblocks-auth/conditions/file-type.lisp, Up: Lisp [Contents][Index]

3.1.7 `reblocks-auth/models/file-type.lisp`

Source

Parent Component

reblocks-auth/models (system).

Packages

Public Interface

anonymous-p (function).
change-email (function).
change-nickname (function).
create-social-user (function).
find-social-user (function).
get-all-users (function).
get-current-user (function).
(setf get-current-user) (function).
get-email (reader method).
get-nickname (reader method).
get-user-by-email (function).
get-user-by-nickname (function).
print-object (method).
print-object (method).
profile-metadata (reader method).
(setf profile-metadata) (writer method).
profile-service (reader method).
profile-service-user-id (reader method).
social-profile (class).
user (class).
user-social-profiles (function).

Next: reblocks-auth/github/file-type.lisp, Previous: reblocks-auth/models/file-type.lisp, Up: Lisp [Contents][Index]

3.1.8 `reblocks-auth/errors/file-type.lisp`

Source: reblocks-auth.asd.
Parent Component: reblocks-auth/errors (system).
Packages: reblocks-auth/errors.
Public Interface: nickname-is-not-available (condition).

Next: reblocks-auth/providers/email/processing/file-type.lisp, Previous: reblocks-auth/errors/file-type.lisp, Up: Lisp [Contents][Index]

3.1.9 `reblocks-auth/github/file-type.lisp`

Source

Parent Component

reblocks-auth/github (system).

Packages

reblocks-auth/github.

Public Interface

*client-id* (special variable).
*default-scopes* (special variable).
*secret* (special variable).
authenticate (method).
get-scopes (function).
get-token (function).
render (method).
render-button (function).

Internals

get-oauth-token-by (function).
make-authentication-url (function).
make-default-redirect-uri (function).

Next: reblocks-auth/providers/email/models/file-type.lisp, Previous: reblocks-auth/github/file-type.lisp, Up: Lisp [Contents][Index]

3.1.10 `reblocks-auth/providers/email/processing/file-type.lisp`

Source

Parent Component

reblocks-auth/providers/email/processing (system).

Packages

Public Interface

authenticate (method).
get-dependencies (method).
render (method).
render-popup-content (method).

Internals

email-query-widget (class).
retpath (reader method).
sent (reader method).
(setf sent) (writer method).

Next: reblocks-auth/providers/email/mailgun/file-type.lisp, Previous: reblocks-auth/providers/email/processing/file-type.lisp, Up: Lisp [Contents][Index]

3.1.11 `reblocks-auth/providers/email/models/file-type.lisp`

Source

Parent Component

reblocks-auth/providers/email/models (system).

Packages

Public Interface

*send-code-callback* (special variable).
print-object (method).
registration-code (reader method).
registration-code (class).
registration-email (reader method).
valid-until (reader method).

Internals

*code-ttl* (special variable).
check-registration-code (function).
code-expired (condition).
code-unknown (condition).
get-code (reader method).
get-code (reader method).
make-registration-code (function).
send-code (function).

Previous: reblocks-auth/providers/email/models/file-type.lisp, Up: Lisp [Contents][Index]

3.1.12 `reblocks-auth/providers/email/mailgun/file-type.lisp`

Source: reblocks-auth.asd.
Parent Component: reblocks-auth/providers/email/mailgun (system).
Packages: reblocks-auth/providers/email/mailgun.
Public Interface: define-code-sender (macro).
Internals: make-code-sender (function).

Next: Definitions, Previous: Files, Up: The reblocks-auth Reference Manual [Contents][Index]

4 Packages

Packages are listed by definition order.

reblocks-auth/providers/email/processing
reblocks-auth/conditions
reblocks-auth/models
reblocks-auth/button
reblocks-auth/providers/email/mailgun
reblocks-auth/auth
reblocks-auth/github
reblocks-auth/errors
reblocks-auth/utils
reblocks-auth/providers/email/models
reblocks-auth/core

Next: reblocks-auth/conditions, Previous: Packages, Up: Packages [Contents][Index]

4.1 `reblocks-auth/providers/email/processing`

Source

Use List

common-lisp.

Internals

email-query-widget (class).
retpath (generic reader).
sent (generic reader).
(setf sent) (generic writer).

Next: reblocks-auth/models, Previous: reblocks-auth/providers/email/processing, Up: Packages [Contents][Index]

4.2 `reblocks-auth/conditions`

Source

Use List

common-lisp.

Public Interface

get-message (generic reader).
get-reason (generic reader).
unable-to-authenticate (condition).

Next: reblocks-auth/button, Previous: reblocks-auth/conditions, Up: Packages [Contents][Index]

4.3 `reblocks-auth/models`

Source

Use List

common-lisp.

Public Interface

anonymous-p (function).
change-email (function).
change-nickname (function).
create-social-user (function).
find-social-user (function).
get-all-users (function).
get-current-user (function).
(setf get-current-user) (function).
get-email (generic reader).
get-nickname (generic reader).
get-user-by-email (function).
get-user-by-nickname (function).
profile-metadata (generic reader).
(setf profile-metadata) (generic writer).
profile-service (generic reader).
profile-service-user-id (generic reader).
profile-user (generic reader).
social-profile (class).
user (class).
user-social-profiles (function).

Next: reblocks-auth/providers/email/mailgun, Previous: reblocks-auth/models, Up: Packages [Contents][Index]

4.4 `reblocks-auth/button`

Source: file-type.lisp.
Use List: common-lisp.
Public Interface: render (generic function).

Next: reblocks-auth/auth, Previous: reblocks-auth/button, Up: Packages [Contents][Index]

4.5 `reblocks-auth/providers/email/mailgun`

Source: file-type.lisp.
Use List: common-lisp.
Public Interface: define-code-sender (macro).
Internals: make-code-sender (function).

Next: reblocks-auth/github, Previous: reblocks-auth/providers/email/mailgun, Up: Packages [Contents][Index]

4.6 `reblocks-auth/auth`

Source: file-type.lisp.
Use List: common-lisp.
Public Interface: authenticate (generic function).

Next: reblocks-auth/errors, Previous: reblocks-auth/auth, Up: Packages [Contents][Index]

4.7 `reblocks-auth/github`

Source

Use List

common-lisp.

Public Interface

*client-id* (special variable).
*default-scopes* (special variable).
*secret* (special variable).
get-scopes (function).
get-token (function).
render-button (function).

Internals

get-oauth-token-by (function).
make-authentication-url (function).
make-default-redirect-uri (function).

Next: reblocks-auth/utils, Previous: reblocks-auth/github, Up: Packages [Contents][Index]

4.8 `reblocks-auth/errors`

Source: file-type.lisp.
Use List: common-lisp.
Public Interface: nickname-is-not-available (condition).

Next: reblocks-auth/providers/email/models, Previous: reblocks-auth/errors, Up: Packages [Contents][Index]

4.9 `reblocks-auth/utils`

Source

Use List

common-lisp.

Internals

keywordify (function).
to-plist (function).

Next: reblocks-auth/core, Previous: reblocks-auth/utils, Up: Packages [Contents][Index]

4.10 `reblocks-auth/providers/email/models`

Source

Use List

common-lisp.

Public Interface

*send-code-callback* (special variable).
registration-code (generic reader).
registration-code (class).
registration-email (generic reader).
valid-until (generic reader).

Internals

*code-ttl* (special variable).
check-registration-code (function).
code-expired (condition).
code-unknown (condition).
get-code (generic reader).
make-registration-code (function).
send-code (function).

Previous: reblocks-auth/providers/email/models, Up: Packages [Contents][Index]

4.11 `reblocks-auth/core`

Source

Nickname

reblocks-auth

Use List

common-lisp.

Public Interface

*enabled-services* (special variable).
*login-hooks* (special variable).
login-processor (class).
logout-processor (class).
make-login-processor (function).
make-logout-processor (function).
render-buttons (function).

Internals

reach-goal (generic function).

Next: Indexes, Previous: Packages, Up: The reblocks-auth Reference Manual [Contents][Index]

5 Definitions

Definitions are sorted by export status, category, package, and then by lexicographic order.

Public Interface
Internals

Next: Internals, Previous: Definitions, Up: Definitions [Contents][Index]

Next: Macros, Previous: Public Interface, Up: Public Interface [Contents][Index]

5.1.1 Special variables

Special Variable: *client-id* ¶

OAuth client id

Package: reblocks-auth/github.
Source: file-type.lisp.

Special Variable: *default-scopes* ¶

A listo of default scopes to request from GitHub.

Package: reblocks-auth/github.
Source: file-type.lisp.

Special Variable: *enabled-services* ¶

Set this variable to limit a services available to login through.

Package: reblocks-auth/core.
Source: file-type.lisp.

Special Variable: *login-hooks* ¶

Append a funcallable handlers which accept single argument - logged user.

Package: reblocks-auth/core.
Source: file-type.lisp.

Special Variable: *secret* ¶

OAuth secret. It might be a string or secret-values:secret-value.

Package: reblocks-auth/github.
Source: file-type.lisp.

Special Variable: *send-code-callback* ¶

Set this variable to a function of one argument of class REGISTRATION-CODE. It should send a registration code using template, suitable for your website.

Package: reblocks-auth/providers/email/models.
Source: file-type.lisp.

Next: Ordinary functions, Previous: Special variables, Up: Public Interface [Contents][Index]

5.1.2 Macros

Macro: define-code-sender (name (from-email url-var &key subject) &body html-template-body) ¶

Package: reblocks-auth/providers/email/mailgun.
Source: file-type.lisp.

Next: Generic functions, Previous: Macros, Up: Public Interface [Contents][Index]

5.1.3 Ordinary functions

Function: anonymous-p (user) ¶

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: change-email (user email) ¶

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: change-nickname (new-nickname) ¶

Changes nickname of the current user.

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: create-social-user (service service-user-id &rest metadata &key email) ¶

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: find-social-user (service service-user-id) ¶

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: get-all-users () ¶

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: get-current-user () ¶

Returns current user or NIL.

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: (setf get-current-user) () ¶

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: get-scopes () ¶

Returns current user’s scopes.

Package: reblocks-auth/github.
Source: file-type.lisp.

Function: get-token () ¶

Returns current user’s GitHub token.

Package: reblocks-auth/github.
Source: file-type.lisp.

Function: get-user-by-email (email) ¶

Returns a user with given email.

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: get-user-by-nickname (nickname) ¶

Returns a user with given email.

Package: reblocks-auth/models.
Source: file-type.lisp.

Function: make-login-processor () ¶

Package: reblocks-auth/core.
Source: file-type.lisp.

Function: make-logout-processor () ¶

Package: reblocks-auth/core.
Source: file-type.lisp.

Function: render-button (&key class scopes text retpath) ¶

Renders a button to request more scopes.

Package: reblocks-auth/github.
Source: file-type.lisp.

Function: render-buttons (&key retpath) ¶

Renders a row of buttons for enabled service providers.

Optionally you can specify RETPATH argument with an URI to return user after login.

Package: reblocks-auth/core.
Source: file-type.lisp.

Function: user-social-profiles (user) ¶

Returns a list of social profiles, bound to the user.

Package: reblocks-auth/models.
Source: file-type.lisp.

Next: Standalone methods, Previous: Ordinary functions, Up: Public Interface [Contents][Index]

5.1.4 Generic functions

Generic Function: authenticate (service &rest params &key code) ¶

Called when user had authenticated in the service and returned
to our site.

All GET arguments are collected into a plist and passed as params.

Should return two values a user and a flag denotifing if user was just created.

Package

reblocks-auth/auth.

Source

Methods

Method: authenticate ((service (eql :email)) &rest params &key code) ¶

Source: file-type.lisp.

Method: authenticate ((service (eql :github)) &rest params &key code) ¶

Source: file-type.lisp.

Method: authenticate (service &rest params) ¶

Generic Reader: get-email (object) ¶

Package

Methods

Reader Method: get-email ((user user)) ¶

automatically generated reader method

Source: file-type.lisp.
Target Slot: email.

Generic Reader: get-message (condition) ¶

Package

Methods

Reader Method: get-message ((condition unable-to-authenticate)) ¶

Source: file-type.lisp.
Target Slot: message.

Generic Reader: get-nickname (object) ¶

Package

Methods

Reader Method: get-nickname ((user user)) ¶

automatically generated reader method

Source: file-type.lisp.
Target Slot: nickname.

Generic Reader: get-reason (condition) ¶

Package

Methods

Reader Method: get-reason ((condition unable-to-authenticate)) ¶

Source: file-type.lisp.
Target Slot: reason.

Generic Reader: profile-metadata (object) ¶

Package

Methods

Reader Method: profile-metadata ((social-profile social-profile)) ¶

automatically generated reader method

Source: file-type.lisp.
Target Slot: metadata.

Generic Writer: (setf profile-metadata) (object) ¶

Package

Methods

Writer Method: (setf profile-metadata) ((social-profile social-profile)) ¶

automatically generated writer method

Source: file-type.lisp.
Target Slot: metadata.

Generic Reader: profile-service (object) ¶

Package

Methods

Reader Method: profile-service ((social-profile social-profile)) ¶

automatically generated reader method

Source: file-type.lisp.
Target Slot: service.

Generic Reader: profile-service-user-id (object) ¶

Package

Methods

Reader Method: profile-service-user-id ((social-profile social-profile)) ¶

automatically generated reader method

Source: file-type.lisp.
Target Slot: service-user-id.

Generic Reader: profile-user (object) ¶

Package

Methods

Reader Method: profile-user ((object social-profile)) ¶

Target Slot: user.

Generic Reader: registration-code (object) ¶

Package

Methods

Reader Method: registration-code ((registration-code registration-code)) ¶

automatically generated reader method

Source: file-type.lisp.
Target Slot: code.

Generic Reader: registration-email (object) ¶

Package

Methods

Reader Method: registration-email ((registration-code registration-code)) ¶

User’s email.

Source: file-type.lisp.
Target Slot: email.

Generic Function: render (service &key retpath) ¶

Renders a button for given service.
Service should be a keyword like :github or :facebook.

Package

reblocks-auth/button.

Source

Methods

Method: render ((service (eql :email)) &key retpath) ¶

Source: file-type.lisp.

Method: render ((service (eql :github)) &key retpath) ¶

Source: file-type.lisp.

Method: render (service &key retpath) ¶

Generic Reader: valid-until (object) ¶

Package

Methods

Reader Method: valid-until ((registration-code registration-code)) ¶

Expiration time.

Source: file-type.lisp.
Target Slot: valid-until.

Next: Conditions, Previous: Generic functions, Up: Public Interface [Contents][Index]

5.1.5 Standalone methods

Method: get-dependencies ((widget email-query-widget)) ¶

Package: reblocks/dependencies.
Source: file-type.lisp.

Method: get-dependencies ((widget login-processor)) ¶

Package: reblocks/dependencies.
Source: file-type.lisp.

Method: print-object ((obj user) stream) ¶

Source: file-type.lisp.

Method: print-object ((obj social-profile) stream) ¶

Source: file-type.lisp.

Method: print-object ((obj registration-code) stream) ¶

Source: file-type.lisp.

Method: render ((widget logout-processor)) ¶

Package: reblocks/widget.
Source: file-type.lisp.

Method: render ((widget login-processor)) ¶

Package: reblocks/widget.
Source: file-type.lisp.

Method: render-popup-content ((widget email-query-widget)) ¶

Package: reblocks-ui/popup.
Source: file-type.lisp.

Next: Classes, Previous: Standalone methods, Up: Public Interface [Contents][Index]

5.1.6 Conditions

Condition: nickname-is-not-available ¶

Signalled when there is already a user with given nickname.

Package: reblocks-auth/errors.
Source: file-type.lisp.
Direct superclasses: error.

Condition: unable-to-authenticate ¶

Package

Source

Direct superclasses

condition.

Direct methods

get-message.
get-reason.

Direct slots

Slot: message ¶

Initargs: :message
Readers: get-message.
Writers: This slot is read-only.

Slot: reason ¶

Initform: (quote nil)
Initargs: :reason
Readers: get-reason.
Writers: This slot is read-only.

Previous: Conditions, Up: Public Interface [Contents][Index]

5.1.7 Classes

Class: login-processor ¶

This widget should be rendered to process user’s login.

Package

reblocks-auth/core.

Source

Direct superclasses

widget.

Direct methods

get-dependencies.
render.

Class: logout-processor ¶

This widget should be rendered to process user’s logout.

Package: reblocks-auth/core.
Source: file-type.lisp.
Direct superclasses: widget.
Direct methods: render.

Class: registration-code ¶

This model stores a code sent to an email for signup or log in.

Package

Source

Direct superclasses

dao-class.
record-timestamps-mixin.
serial-pk-mixin.

Direct methods

print-object.
registration-code.
registration-email.
valid-until.

Direct slots

Slot: email ¶

User’s email.

Initargs: :email
Readers: registration-email.
Writers: This slot is read-only.

Slot: code ¶

Initargs: :code
Readers: registration-code.
Writers: This slot is read-only.

Slot: valid-until ¶

Expiration time.

Initargs: :valid-until
Readers: valid-until.
Writers: This slot is read-only.

Class: social-profile ¶

Represents a User’s link to a social service.
User can be bound to multiple social services.

Package

Source

Direct superclasses

dao-class.
record-timestamps-mixin.
serial-pk-mixin.

Direct methods

print-object.
(setf profile-metadata).
profile-metadata.
profile-service.
profile-service-user-id.
profile-user.

Direct slots

Slot: user ¶

A USER instance, bound to the SOCIAL-PROFILE.

Initargs: :user
Readers: profile-user.
Writers: This slot is read-only.

Slot: user-id ¶

Initargs: :user-id

Slot: service ¶

Initargs: :service
Readers: profile-service.
Writers: This slot is read-only.

Slot: service-user-id ¶

Initargs: :service-user-id
Readers: profile-service-user-id.
Writers: This slot is read-only.

Slot: metadata ¶

Initargs: :metadata, :params
Readers: profile-metadata.
Writers: (setf profile-metadata).

Class: user ¶

This class stores basic information about user - it’s nickname and email. Additional information is stored inside SOCIAL-PROFILE instances.

Package

Source

Direct superclasses

dao-class.
record-timestamps-mixin.
serial-pk-mixin.

Direct methods

get-email.
get-nickname.
print-object.

Direct slots

Slot: nickname ¶

Initargs: :nickname
Readers: get-nickname.
Writers: This slot is read-only.

Slot: email ¶

Initargs: :email
Readers: get-email.
Writers: This slot is read-only.

Previous: Public Interface, Up: Definitions [Contents][Index]

5.2 Internals

Special variables
Ordinary functions
Generic functions
Conditions
Classes

Next: Ordinary functions, Previous: Internals, Up: Internals [Contents][Index]

5.2.1 Special variables

Special Variable: *code-ttl* ¶

Time to live for authentication code.

Package: reblocks-auth/providers/email/models.
Source: file-type.lisp.

Next: Generic functions, Previous: Special variables, Up: Internals [Contents][Index]

5.2.2 Ordinary functions

Function: check-registration-code (code) ¶

Authenticates a user.

If code wasn’t found, then condition code-unknown will be raised. If code is expired, then condition code-expired will be raised.

Возвращает пользователя, а вторым значением t если пользователь уже был и nil если это новая учётка.

Package: reblocks-auth/providers/email/models.
Source: file-type.lisp.

Function: get-oauth-token-by (code) ¶

Package: reblocks-auth/github.
Source: file-type.lisp.

Function: keywordify (string) ¶

Package: reblocks-auth/utils.
Source: file-type.lisp.

Function: make-authentication-url (&key scopes redirect-uri) ¶

Package: reblocks-auth/github.
Source: file-type.lisp.

Function: make-code-sender (thunk) ¶

Package: reblocks-auth/providers/email/mailgun.
Source: file-type.lisp.

Function: make-default-redirect-uri () ¶

Package: reblocks-auth/github.
Source: file-type.lisp.

Function: make-registration-code (email &key ttl) ¶

Package: reblocks-auth/providers/email/models.
Source: file-type.lisp.

Function: send-code (email &key retpath) ¶

Package: reblocks-auth/providers/email/models.
Source: file-type.lisp.

Function: to-plist (alist &key without) ¶

Package: reblocks-auth/utils.
Source: file-type.lisp.

Next: Conditions, Previous: Ordinary functions, Up: Internals [Contents][Index]

5.2.3 Generic functions

Generic Reader: get-code (condition) ¶

Package

Methods

Reader Method: get-code ((condition code-expired)) ¶

Source: file-type.lisp.
Target Slot: code.

Reader Method: get-code ((condition code-unknown)) ¶

Source: file-type.lisp.
Target Slot: code.

Generic Function: reach-goal (widget goal-name &key survive-redirect-p) ¶

Package

reblocks-auth/core.

Source

Methods

Method: reach-goal (widget goal-name &key survive-redirect-p) ¶

Generic Reader: retpath (object) ¶

Package

Methods

Reader Method: retpath ((email-query-widget email-query-widget)) ¶

automatically generated reader method

Source: file-type.lisp.
Target Slot: retpath.

Generic Reader: sent (object) ¶

Package

Methods

Reader Method: sent ((email-query-widget email-query-widget)) ¶

automatically generated reader method

Source: file-type.lisp.
Target Slot: sent.

Generic Writer: (setf sent) (object) ¶

Package

Methods

Writer Method: (setf sent) ((email-query-widget email-query-widget)) ¶

automatically generated writer method

Source: file-type.lisp.
Target Slot: sent.

Next: Classes, Previous: Generic functions, Up: Internals [Contents][Index]

5.2.4 Conditions

Condition: code-expired ¶

Signalled when code was found but already expired.

Package

Source

Direct superclasses

error.

Direct methods

get-code.

Direct slots

Slot: code ¶

Initargs: :code
Readers: get-code.
Writers: This slot is read-only.

Condition: code-unknown ¶

Signalled when code was not found in the database.

Package

Source

Direct superclasses

error.

Direct methods

get-code.

Direct slots

Slot: code ¶

Initargs: :code
Readers: get-code.
Writers: This slot is read-only.

Previous: Conditions, Up: Internals [Contents][Index]

5.2.5 Classes

Class: email-query-widget ¶

Package

Source