session, log-in+++

Author: vindarel

content/building-blocks/building-binaries.md

@@ -30,8 +30,7 @@ So, the recipe to run our project from sources can look like this (you can find
 
 (in-package :myproject)
 (handler-case
-    ;; The START function starts the web server.
-    (myproject::start :port (ignore-errors (parse-integer (uiop:getenv "PROJECT_PORT"))))
+    (myproject::start-app :port (ignore-errors (parse-integer (uiop:getenv "PROJECT_PORT"))))
   (error (c)
     (format *error-output* "~&An error occured: ~a~&" c)
     (uiop:quit 1)))

content/building-blocks/database.md

@@ -254,13 +254,12 @@ To set them, look at your DB driver how to run a raw SQL query.
 With `cl-dbi`, this would be `dbi:do-sql`:
 
 ```lisp
-(dbi:do-sql *connection*
-            "PRAGMA auto_vacuum;")
+(dbi:do-sql *connection* "PRAGMA cache_size = -20000;")
 ```
 
 Here's a nice list of pragmas useful for web development:
 
-- [https://dev.to/briandouglasie/sensible-sqlite-defaults-5ei7](https://dev.to/briandouglasie/sensible-sqlite-defaults-5ei7)
+- [https://briandouglas.ie/sqlite-defaults/](https://briandouglas.ie/sqlite-defaults/)
 
 
 ## References

content/building-blocks/errors-interactivity.md

@@ -60,6 +60,7 @@ Hunchentoot defines condition classes:
 - `hunchentoot-warning`, the superclass for all warnings
 - `hunchentoot-error`, the superclass for errors
 - `parameter-error`
+- `bad-request`
 
 See the (light) documentation: [https://edicl.github.io/hunchentoot/#conditions](https://edicl.github.io/hunchentoot/#conditions).
 

content/building-blocks/session.md

@@ -2,3 +2,25 @@
 title = "Sessions"
 weight = 35
 +++
+
+When a web client (a user's browser) connects to your app, you can
+start a session with it, and store data, the time of the session.
+
+Hunchentoot uses cookies to store the session ID, and if not possible
+it rewrites URLs. So, at every subsequent request by this web client,
+you can check if there is a session data.
+
+You can store any Lisp object in a web session. You only have to:
+
+- start a session with `(hunchentoot:start-session)`
+  - for example, when a user logs in successfully
+- store an object with `(setf (hunchentoot:session-value 'key) val)`
+  - for example, store the username at the log-in
+- and get the object with `(hunchentoot:session-value 'key)`.
+  - for example, in any route where you want to check that a user is logged in. If you don't find a session key you want, you would redirect to the login page.
+
+See our example in the next section about log-in.
+
+## References
+
+- [https://common-lisp-libraries.readthedocs.io/hunchentoot/#8-session](https://common-lisp-libraries.readthedocs.io/hunchentoot/#8-session)