create Caveman2 project using vindarel's cl-cookieweb program.

https://github.com/vindarel/cl-cookieweb (for GitHub Repo. and instructions). The reason for using this is because it makes it easier to run the website as a standalone thing. You don't need to link it up to Quicklisp's /local-project directory. It has scripts to help you build the binaries and to run the website (as a standalone) thing. I, also, hadn't use this 'cookie cutter' program before so it's a good time to get my feet wet.
2 years ago · 7d3d3e57d5
20 changed files with 1038 additions and 0 deletions
--- a/16
+++ b/16
@ -0,0 +1,16 @@
+LISP ?= sbcl
+
+all: test
+
+run:
+	rlwrap $(LISP) --load run.lisp
+
+build:
+	$(LISP)	--non-interactive \
+		--load ritherdon-archive.asd \
+		--eval '(ql:quickload :ritherdon-archive)' \
+		--eval '(asdf:make :ritherdon-archive)'
+
+test:
+	$(LISP) --non-interactive \
+		--load run-tests.lisp
--- a/README.md
+++ b/README.md
@ -0,0 +1,101 @@
+# ritherdon-archive
+
+Archive of Ritherdon and Nicola Ellis.
+
+# Usage
+
+Run from sources:
+
+    make run
+    # aka sbcl --load run.lisp
+
+choose your lisp:
+
+    LISP=ccl make run
+
+or build and run the binary:
+
+```
+$ make build
+$ ./ritherdon-archive [name]
+Hello [name] from ritherdon-archive
+```
+
+## Init config file
+
+Create a config file:
+
+    cp config-example.lisp config.lisp
+
+You can override global variables (for example, the port, which can be
+handy if you run the app from sources, without building a binary and
+using the `--port` flag.
+
+The config file is `load`ed before the web server starts (see the `(main)`).
+
+
+## Roswell integration
+
+Roswell is an implementation manager and [script launcher](https://github.com/roswell/roswell/wiki/Roswell-as-a-Scripting-Environment).
+
+A POC script is in the roswell/ directory.
+
+Your users can install the script with `craig/ritherdon-archive`.
+
+# Dev
+
+Load the .asd, quickload it then
+
+```
+CL-USER> (ritherdon-archive/web:start-app)
+```
+
+See also:
+
+- `web::load-config &key port load-init-p`
+
+
+## Tests
+
+Tests are defined with [Fiveam](https://common-lisp.net/project/fiveam/docs/).
+
+Run them from the terminal with `make test`. You should see a failing test.
+
+```bash
+$ make test
+Running test suite TESTMAIN
+ Running test TEST1 f
+ Did 1 check.
+    Pass: 0 ( 0%)
+    Skip: 0 ( 0%)
+    Fail: 1 (100%)
+
+ Failure Details:
+ --------------------------------
+ TEST1 in TESTMAIN []:
+
+3
+
+ evaluated to
+
+3
+
+ which is not
+
+=
+
+ to
+
+2
+
+Makefile:15: recipe for target 'test' failed
+
+$ echo $?
+2
+```
+
+On Slime, load the test package and run `run!`.
+
+---
+
+Licence: BSD
--- a/config-example.lisp
+++ b/config-example.lisp
@ -0,0 +1,12 @@
+
+(in-package :ritherdon-archive)
+
+(in-package :ritherdon-archive/web)
+
+;;
+;; To use an init configuration file:
+;; cp config-example.lisp config.lisp
+;;
+
+;; Override the port:
+;; (setf *port* 4545)
--- a/ritherdon-archive-tests.asd
+++ b/ritherdon-archive-tests.asd
@ -0,0 +1,18 @@
+(in-package :asdf-user)
+(defsystem "ritherdon-archive-tests"
+  :description "Test suite for the ritherdon-archive system"
+  :author "Craig Oates <craig@craigoates.net>"
+  :version "0.0.0"
+  :depends-on (:ritherdon-archive
+               :parachute)
+  :license "MIT"
+  :serial t
+  :components ((:module "tests"
+                        :serial t
+                        :components ((:file "packages")
+                                     (:file "test-ritherdon-archive"))))
+  :perform (test-op (op s) (symbol-call :parachute :test :tests))
+
+  ;; The following would not return the right exit code on error, but still 0.
+  ;; :perform (test-op (op _) (symbol-call :fiveam :run-all-tests))
+  )
--- a/ritherdon-archive.asd
+++ b/ritherdon-archive.asd
@ -0,0 +1,88 @@
+(in-package :asdf-user)
+
+(defsystem "ritherdon-archive"
+  :author "Craig Oates <craig@craigoates.net>"
+  :version "0.0.0"
+  :license "MIT"
+  :description "Archive of Ritherdon and Nicola Ellis."
+  :homepage ""
+  :bug-tracker ""
+  :source-control (:git "")
+
+  ;; Dependencies.
+  :depends-on (
+               ;; HTTP client
+               :dexador
+
+               ;; templates
+               :djula
+
+               ;; server, routing
+               :hunchentoot
+               :easy-routes
+
+               ;; JSON
+               :cl-json
+
+               ;; DB
+               :mito
+               :mito-auth
+
+               ;; utilities
+               :access
+               :cl-ppcre
+               :cl-slug
+               :local-time
+               :local-time-duration
+               :log4cl
+               :str
+
+               ;; scripting
+               :unix-opts
+
+               ;; deployment
+               :deploy
+
+               ;; development utilities
+               )
+
+  ;; Build a binary.
+  ;; :build-operation "program-op"  ;; usual op to build a binary.
+  ;; Deploy:
+  :defsystem-depends-on (:deploy)
+  :build-operation "deploy-op"
+  :build-pathname "ritherdon-archive"
+  :entry-point "ritherdon-archive:run"
+
+  ;; Project stucture.
+  :serial t
+  :components ((:module "src"
+                        :components
+                        ;; stand-alone packages.
+                        ((:file "packages")
+                         (:file "utils")
+                         ;; they depend on the above.
+                         ;; (:file "authentication")
+                         (:file "web")
+                         (:file "ritherdon-archive")
+                         (:file "database")))
+
+               (:module "src/models"
+                        :components
+                        ((:file "models")))
+
+               (:static-file "README.md")))
+
+;; Deploy may not find libcrypto on your system.
+;; But anyways, we won't ship it to rely instead
+;; on its presence on the target OS.
+(require :cl+ssl)  ; sometimes necessary.
+#+linux (deploy:define-library cl+ssl::libssl :dont-deploy T)
+#+linux (deploy:define-library cl+ssl::libcrypto :dont-deploy T)
+
+;; ASDF wants to update itself and fails.
+;; Yeah, it does that even when running the binary on my VPS O_o
+;; Please, don't.
+(deploy:define-hook (:deploy asdf) (directory)
+  #+asdf (asdf:clear-source-registry)
+  #+asdf (defun asdf:upgrade-asdf () NIL))
--- a/roswell/README.md
+++ b/roswell/README.md
@ -0,0 +1,37 @@
+
+## How to use Roswell to build and share binaries
+
+From the project root:
+
+Run as a script:
+
+    chmod +x roswell/ritherdon-archive.ros
+    ./roswell/ritherdon-archive.ros
+
+Build a binary:
+
+    ros build roswell/ritherdon-archive.ros
+
+and run it:
+
+    ./roswell/ritherdon-archive
+
+Or install it in ~/.roswell/bin:
+
+    ros install roswell/ritherdon-archive.ros
+
+It creates the binary in ~/.roswell/bin/
+Run it:
+
+    ~/.roswell/bin/ritherdon-archive [name]~&
+
+Your users can install the script with ros install craig/ritherdon-archive
+
+Use `+Q` if you don't have Quicklisp dependencies to save startup time.
+Use `ros build --disable-compression` to save on startup time and loose on application size.
+
+
+## See
+
+- https://github.com/roswell/roswell/wiki/
+- https://github.com/roswell/roswell/wiki/Reducing-Startup-Time
--- a/roswell/ritherdon-archive.ros
+++ b/roswell/ritherdon-archive.ros
@ -0,0 +1,28 @@
+#!/bin/sh
+#|-*- mode:lisp -*-|#
+#|
+exec ros -Q -- $0 "$@"
+|#
+
+;; use +Q if you don't have Quicklisp dependencies to save startup time.
+
+(defun help ()
+  (format t "~&Usage:
+
+  ritherdon-archive [name]
+
+"))
+
+;; XXX: this load does not load from everywhere
+;; it doesn't work for to run as a script.
+(load (truename "ritherdon-archive.asd"))
+(ql:quickload "ritherdon-archive")
+
+(defun main (&rest argv)
+  "Optional name parameter."
+  (when (member "-h" argv :test #'equal)
+    ;; To parse command line arguments, use a third-party library such as
+    ;; unix-opts, defmain, adopt…
+    (help)
+    (uiop:quit))
+  (ritherdon-archive::greet (first argv)))
--- a/run-tests.lisp
+++ b/run-tests.lisp
@ -0,0 +1,9 @@
+
+(load "ritherdon-archive.asd")
+(load "ritherdon-archive-tests.asd")
+
+(ql:quickload "ritherdon-archive-tests")
+
+(in-package :ritherdon-archive-tests)
+
+(uiop:quit (if (run-all-tests) 0 1))
--- a/run.lisp
+++ b/run.lisp
@ -0,0 +1,25 @@
+"
+Usage:
+
+rlwrap sbcl --load run.lisp
+
+This loads the project's asd, loads the quicklisp dependencies, and
+calls the main function.
+
+Then, we are given the lisp prompt.
+
+If you don't want to land in the REPL, you can (quit) below or call lisp with the --non-interactive flag.
+
+Another solution to run the app is to build and run a binary (see README).
+"
+
+(load "ritherdon-archive.asd")
+
+(ql:quickload "ritherdon-archive")
+
+(in-package :ritherdon-archive)
+(handler-case
+    (main)
+  (error (c)
+    (format *error-output* "~&An error occured: ~a~&" c)
+    (uiop:quit 1)))
--- a/src/database.lisp
+++ b/src/database.lisp
@ -0,0 +1,30 @@
+(in-package :ritherdon-archive/models)
+;;;
+;;; DB connection, migrations.
+;;;
+
+(defparameter *tables* '(product)
+  "List of the DB tables that need to be checked for migrations.")
+
+(defun connect (&optional (db-name *db-name*))
+  "Connect to the DB."
+  ;; *db* could be mito:*connection*
+  (log:debug "connecting to ~a~&" *db-name*)
+  (setf *db* (mito:connect-toplevel :sqlite3 :database-name db-name)))
+
+(defun ensure-tables-exist ()
+  "Run SQL to create the missing tables."
+  (unless mito::*connection*
+    (connect))
+  (mapcar #'mito:ensure-table-exists *tables*))
+
+(defun migrate-all ()
+  "Migrate the tables after we changed the class definition."
+  (mapcar #'mito:migrate-table *tables*))
+
+;;
+;; Entry points
+;;
+(defun init-db ()
+  "Connect to the DB, run the required migrations and define a couple base user roles."
+  (ensure-tables-exist))
--- a/src/models/models.lisp
+++ b/src/models/models.lisp
@ -0,0 +1,61 @@
+(in-package :ritherdon-archive/models)
+
+(defparameter *db-name* (asdf:system-relative-pathname :ritherdon-archive "ritherdon-archive.db"))
+
+(defparameter *db* nil
+  "DB connection object, returned by (connect).")
+
+;; After modification, run (migrate-all)
+;;
+;; - to create a date: (local-time:now)
+;; "
+(defclass product ()
+  ((title
+    :accessor title
+    :initarg :title
+    :initform nil
+    :type string
+    :col-type (:varchar 128))
+
+   (reference
+    :accessor reference
+    :initarg :reference
+    :initform nil
+    :type (or string null)
+    :col-type (or (:varchar 128) :null))
+
+   (price
+    :accessor price
+    :initarg :price
+    ;; we don't the price to 0 (nil denotes a missing field)
+    :initform nil
+    :type (or integer null)
+    :col-type (or :float :null)
+    :documentation "Store prices as integers. $9.80 => 980")
+
+   (quantity
+    :accessor quantity
+    :initform 1
+    :type (or integer null)
+    :col-type (or (:integer) :null)
+    :documentation "Quantity in stock."))
+
+  (:metaclass mito:dao-table-class)
+  (:documentation "A product."))
+
+(defun make-product (&key title reference price)
+  "Create a product instance.
+  It is not saved in the DB yet."
+  (make-instance 'product
+                 :title title
+                 :reference reference
+                 :price price))
+
+(defun select-products (&key (order :asc))
+  (mito:select-dao 'product
+    (sxql:order-by `(,order :created-at))))
+
+(defun find-by (key val)
+  "Find a product by slot. Example: (find-by :id xxx). Return only the first matching result."
+  (when val
+    (mito:find-dao 'product key val)))
--- a/src/packages.lisp
+++ b/src/packages.lisp
@ -0,0 +1,41 @@
+;;;
+;;; define helper packages,
+;;; the models,
+;;; the web,
+;;; and the base package that relies on all of them.
+;;;
+
+(defpackage ritherdon-archive/utils
+  (:use :cl
+        :log4cl)
+  (:export #:format-date
+           #:i18n-load
+           #:_
+           #:parse-iso-date)
+  (:documentation "Utilities that do not depend on models."))
+
+(defpackage ritherdon-archive/models
+  (:use :cl)
+  (:export :connect
+           :make-product
+           :select-products
+           :find-by))
+
+(defpackage ritherdon-archive/web
+  (:use :cl)
+  (:import-from :easy-routes
+                :defroute)
+  (:export :start-app
+           :stop-app)
+  (:local-nicknames (#:a #:alexandria)
+                    (#:models #:ritherdon-archive/models)
+                    (#:utils #:ritherdon-archive/utils)))
+
+(defpackage ritherdon-archive
+  (:use :cl
+        :log4cl)
+  (:export :main :run)
+  (:local-nicknames (#:a #:alexandria)
+                    (#:models #:ritherdon-archive/models)
+                    (#:web #:ritherdon-archive/web)
+                    (#:utils #:ritherdon-archive/utils)))
--- a/src/ritherdon-archive.lisp
+++ b/src/ritherdon-archive.lisp
@ -0,0 +1,105 @@
+(in-package :ritherdon-archive)
+
+;; Define your project functionality here...
+
+(defparameter +version+ "0.0.1") ;; xxx: read from .asd
+
+(defun print-system-info (&optional (stream t))
+  ;; see also https://github.com/40ants/cl-info
+  (format stream "~&OS: ~a ~a~&" (software-type) (software-version))
+  (format stream "~&Lisp: ~a ~a~&" (lisp-implementation-type) (lisp-implementation-version))
+  #+asdf
+  (format stream "~&ASDF: ~a~&" (asdf:asdf-version))
+  #-asdf
+  (format stream "NO ASDF!")
+  #+quicklisp
+  (format stream "~&Quicklisp: ~a~&" (ql-dist:all-dists))
+  #-quicklisp
+  (format stream "!! Quicklisp is not installed !!"))
+
+(defun handle-parser-error (c)
+  "unix-opts error handler."
+  (format t "Argument error: ~a~&" (opts:option c)))
+
+(defun main ()
+  "Parse basic CLI args, start our web app."
+
+  (unless (uiop:file-exists-p models::*db-name*)
+    (uiop:format! t "Creating the database into ~a...~&" models::*db-name*)
+    (models::init-db))
+
+  (opts:define-opts
+    (:name :help
+           :description "print this help and exit."
+           :short #\h
+           :long "help")
+
+    (:name :version
+           :description "print the version number and exit."
+           :short #\v
+           :long "version")
+
+    (:name :verbose
+           :description "print debug info."
+           :short #\V
+           :long "verbose")
+
+    (:name :port
+           :arg-parser #'parse-integer
+           :description "set the port for the web server. You can also use the XYZ_PORT environment variable."
+           :short #\p
+           :long "port"))
+
+  (multiple-value-bind (options free-args)
+      (handler-bind ((error #'handle-parser-error))
+        (opts:get-opts))
+
+    (format t "ritherdon-archive version ~a~&" +version+)
+
+    (when (getf options :version)
+      (print-system-info)
+      (uiop:quit))
+
+    (when (getf options :help)
+      (opts:describe)
+      (uiop:quit))
+
+    (when (getf options :verbose)
+      (print-system-info))
+
+    (web::load-config)
+
+    (web:start-app :port (or (getf options :port)
+                             (ignore-errors (parse-integer (uiop:getenv "XYZ_PORT")))
+                             web::*port*))))
+
+(defun run ()
+  "Start our web app calling the MAIN function, and:
+
+  - put the server thread on the foreground, so that Lisp doesn't quit
+    instantly, and our binary keeps running
+  - catch a couple errors: port in use, a user's C-c."
+    (handler-case
+        (progn
+
+          (main)
+
+          ;; That's only needed for the binary, not when running from sources
+          ;; (except if you run for Systemd…).
+          ;; Put the server thread on the foreground.
+          ;; Without this, the binary exits immediately.
+          (bt:join-thread
+           (find-if (lambda (th)
+                      (search "hunchentoot" (bt:thread-name th)))
+                    (bt:all-threads))))
+
+      ;; Catch some errors.
+      (usocket:address-in-use-error ()
+        (format *error-output* "This port is already taken.~&"))
+      #+sbcl
+      (sb-sys:interactive-interrupt ()
+        (format *error-output* "~&Bye!~&")
+        (uiop:quit))
+      (error (c)
+        (format *error-output* "~&An error occured: ~a~&" c)
+        (uiop:quit 1))))
--- a/src/static/ritherdon-archive.js
+++ b/src/static/ritherdon-archive.js
@ -0,0 +1,2 @@
+
+console.log("Hello ritherdon-archive!");
--- a/src/templates/base.html
+++ b/src/templates/base.html
@ -0,0 +1,144 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+    <link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/bulma@0.8.0/css/bulma.min.css">
+    <link rel="stylesheet" type="text/css" href="../css/admin.css">
+    <script defer src="https://use.fontawesome.com/releases/v5.3.1/js/all.js"></script>
+    <script defer src="https://cdn.jsdelivr.net/npm/notiflix@2.1.3/dist/AIO/notiflix-aio-2.1.3.min.js"></script>
+
+    <!-- Vue.js -->
+    <script src="https://cdn.jsdelivr.net/npm/vue@2.6/dist/vue.js"></script>
+    <!-- Icons -->
+    <link rel="stylesheet" href="https://cdn.materialdesignicons.com/5.3.45/css/materialdesignicons.min.css">
+    <!-- lodash -->
+    <script src="https://cdn.jsdelivr.net/npm/lodash@4.17.15/lodash.min.js"></script>
+    <!-- Buefy (Vue UI components) -->
+    <link rel="stylesheet" href="https://unpkg.com/buefy/dist/buefy.min.css">
+    <script src="https://unpkg.com/buefy/dist/buefy.min.js"></script>
+    <script src="https://cdn.jsdelivr.net/npm/vue-resource@1.5.1"></script>
+
+    <!-- HTMX (yet another tool is the toolbet) -->
+    <script src="https://unpkg.com/htmx.org@1.3.3"></script>
+
+    <!-- The app -->
+    <script defer src="/static/ritherdon-archive.js"></script>
+
+    <title>{% block title %} ritherdon-archive {% endblock %}</title>
+  </head>
+
+  <body>
+    <!-- START NAV -->
+    <nav class="navbar is-white">
+      <div class="container">
+        <div class="navbar-brand">
+          <a class="navbar-item brand-text" href="/"> ritherdon-archive </a>
+          <div class="navbar-burger burger" data-target="navMenu">
+            <span></span>
+            <span></span>
+            <span></span>
+          </div>
+        </div>
+        <div id="navMenu" class="navbar-menu">
+          <div class="navbar-start">
+            <a class="navbar-item" href="/">
+              <div class="navbar-item has-dropdown is-hoverable">
+                <a class="navbar-link">
+                  Database
+                </a>
+              </div>
+            </a>
+
+            <div id ="quick-search" class="navbar-item field">
+              <p class="control has-icons-right">
+                  <b-autocomplete placeholder="ISBN or Keywords..."
+                                  v-model="name"
+                                  field="title"
+                                  :data ="data"
+                                  :loading="isFetching"
+                                  @typing="getAsyncData"
+                      @select="option => itemSelected(option)"
+                  ><template slot-scope="props">{$ {{ props.option.title }} $}</template>
+                  </b-autocomplete>
+                  <span class="icon is-small is-right">
+                  </span>
+              </p>
+            </div>
+
+          </div>
+        </div>
+
+        
+        <div class="navbar-end" >
+          <div class="navbar-item" >
+            {% if current-user %}
+            <div class="dropdown is-hoverable">
+              <div class="dropdown-trigger" >
+                <button class="button" aria-haspopup="true" aria-controls="profile-dropdown" >
+                  <span class="icon is-small" >
+                    <i class="fas fa-user" aria-hidden="true"></i>
+                  </span>
+                  <span>{{ current-user | user-name }}</span>
+                </button>
+              </div>
+              <div class="dropdown-menu" role="menu" id="profile-dropdown">
+                <div class="dropdown-content" >
+                  <div class="dropdown-item" >
+                    <form action="/logout" method="POST" >
+                      <button class="button is-light">Logout</button>
+                    </form>
+                  </div>
+                </div>
+              </div>
+            </div>
+            {% else %}
+            <form action="/login" >
+              <input name="referer-route" type="hidden" value="{{ request-uri }}"/>
+              <button class="button is-light" >Login</button>
+            </form>
+            {% endif %}
+          </div>
+        </div>
+    </nav>
+    <!-- END NAV -->
+
+    <!-- START MENU -->
+    <div class="container">
+      <div class="columns">
+        <div class="column is-3 ">
+          <aside class="menu is-hidden-mobile">
+            <p class="menu-label">
+              General
+            </p>
+            <ul class="menu-list">
+              <li><a {% if route == "/stock" %} class="is-active" {% endif %} href="/home"> Home </a></li>
+            </ul>
+          </aside>
+        </div>
+
+        <div class="column is-9">
+          {% block content %} {% endblock %}
+        </div>
+
+      </div>
+    </div>
+
+  </body>
+
+  
+
+  <script>
+    // bulma.js: hamburger toggle for mobile.
+    (function() {
+      var burger = document.querySelector('.burger');
+      var menu = document.querySelector('#'+burger.dataset.target);
+      burger.addEventListener('click', function() {
+        burger.classList.toggle('is-active');
+        menu.classList.toggle('is-active');
+      });
+    })();
+  </script>
+</html>
--- a/src/templates/dashboard.html
+++ b/src/templates/dashboard.html
@ -0,0 +1,177 @@
+
+
+{% extends "base.html" %}
+
+{% block content %}
+
+<!-- this comes straight from a Bulma demo. -->
+
+
+<section class="hero is-info welcome is-small">
+  <div class="hero-body">
+    <div class="container">
+      <h1 class="title">
+        Hello, Admin.
+      </h1>
+      <h2 class="subtitle">
+        I hope you are having a great day!
+      </h2>
+    </div>
+  </div>
+</section>
+<section class="info-tiles">
+  <div class="tile is-ancestor has-text-centered">
+    <div class="tile is-parent">
+      <article class="tile is-child box">
+        <p class="title"> {{ data.nb-titles }} </p>
+        <p class="subtitle"> Nombre de titres </p>
+      </article>
+    </div>
+    <div class="tile is-parent">
+      <article class="tile is-child box">
+        <p class="title"> {{ data.nb-books }} </p>
+        <p class="subtitle"> Nombre de livres </p>
+      </article>
+    </div>
+    <div class="tile is-parent">
+      <article class="tile is-child box">
+        <p class="title"> {{ data.nb-titles-negative }} </p>
+        <p class="subtitle"> Titres en stock négatif </p>
+      </article>
+    </div>
+    <div class="tile is-parent">
+      <article class="tile is-child box">
+        <p class="title">19</p>
+        <p class="subtitle">Exceptions</p>
+      </article>
+    </div>
+  </div>
+</section>
+<div class="columns">
+  <div class="column is-6">
+    <div class="card events-card">
+      <header class="card-header">
+        <p class="card-header-title">
+          Events
+        </p>
+        <a href="#" class="card-header-icon" aria-label="more options">
+          <span class="icon">
+            <i class="fa fa-angle-down" aria-hidden="true"></i>
+          </span>
+        </a>
+      </header>
+      <div class="card-table">
+        <div class="content">
+          <table class="table is-fullwidth is-striped">
+            <tbody>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+              <tr>
+                <td width="5%"><i class="fa fa-bell-o"></i></td>
+                <td>Lorum ipsum dolem aire</td>
+                <td class="level-right"><a class="button is-small is-primary" href="#">Action</a></td>
+              </tr>
+            </tbody>
+          </table>
+        </div>
+      </div>
+      <footer class="card-footer">
+        <a href="#" class="card-footer-item">View All</a>
+      </footer>
+    </div>
+  </div>
+  <div class="column is-6">
+    <div class="card">
+      <header class="card-header">
+        <p class="card-header-title">
+          Inventory Search
+        </p>
+        <a href="#" class="card-header-icon" aria-label="more options">
+          <span class="icon">
+            <i class="fa fa-angle-down" aria-hidden="true"></i>
+          </span>
+        </a>
+      </header>
+      <div class="card-content">
+        <div class="content">
+          <div class="control has-icons-left has-icons-right">
+            <input class="input is-large" type="text" placeholder="">
+            <span class="icon is-medium is-left">
+              <i class="fa fa-search"></i>
+            </span>
+            <span class="icon is-medium is-right">
+              <i class="fa fa-check"></i>
+            </span>
+          </div>
+        </div>
+      </div>
+    </div>
+    <div class="card">
+      <header class="card-header">
+        <p class="card-header-title">
+          User Search
+        </p>
+        <a href="#" class="card-header-icon" aria-label="more options">
+          <span class="icon">
+            <i class="fa fa-angle-down" aria-hidden="true"></i>
+          </span>
+        </a>
+      </header>
+      <div class="card-content">
+        <div class="content">
+          <div class="control has-icons-left has-icons-right">
+            <input class="input is-large" type="text" placeholder="">
+            <span class="icon is-medium is-left">
+              <i class="fa fa-search"></i>
+            </span>
+            <span class="icon is-medium is-right">
+              <i class="fa fa-check"></i>
+            </span>
+          </div>
+        </div>
+      </div>
+    </div>
+  </div>
+</div>
+
+{% endblock %}
+
+
--- a/src/utils.lisp
+++ b/src/utils.lisp
@ -0,0 +1,9 @@
+(in-package :ritherdon-archive/utils)
+
+
+(defun format-date (date)
+  "Format the given date with the default date format (yyyy-mm-dd). Return a string."
+  (local-time:format-timestring nil date :format +date-y-m-d+))
+
+(defun asciify (string)
+  (str:downcase (slug:asciify string)))
--- a/src/web.lisp
+++ b/src/web.lisp
@ -0,0 +1,115 @@
+(in-package :ritherdon-archive/web)
+
+(defvar *server* nil
+  "Current instance of easy-acceptor.")
+
+(defparameter *port* 4242)
+
+;;;
+;;; Djula filters.
+;;;
+
+(djula:def-filter :price (val)
+  (format nil "~,2F" val))
+
+;;;
+;;; Load templates.
+;;;
+(djula:add-template-directory
+ (asdf:system-relative-pathname "ritherdon-archive" "src/templates/"))
+
+(defparameter +base.html+ (djula:compile-template* "base.html"))
+(defparameter +dashboard.html+ (djula:compile-template* "dashboard.html"))
+
+; (defparameter +404.html+ (djula:compile-template* "404.html"))
+
+;;;
+;;; Serve static assets
+;;;
+(defparameter *default-static-directory* "src/static/"
+  "The directory where to serve static assets from (STRING). If it starts with a slash, it is an absolute directory. Otherwise, it will be a subdirectory of where the system :abstock is installed.
+  Static assets are reachable under the /static/ prefix.")
+
+(defun serve-static-assets ()
+  (push (hunchentoot:create-folder-dispatcher-and-handler
+         "/static/" (merge-pathnames *default-static-directory*
+                                     (asdf:system-source-directory :ritherdon-archive)))
+        hunchentoot:*dispatch-table*))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Routes.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; Root route.
+(defroute home-route ("/") ()
+  (djula:render-template* +dashboard.html+ nil
+                          :route "/"))
+
+(defroute card-page ("/product/:slug")
+    (&get raw)
+  "Show a product.
+
+  Dev helper: if the URL parameter RAW is \"t\" (the string), then display the card object literally (with describe)."
+  ;; The product URL is of the form: /xyz-product-title where xyz is its pk.
+  (let* ((product-id (ignore-errors
+                       (parse-integer (first (str:split "-" slug)))))
+         (product (when product-id
+                 (models:find-by :id product-id))))
+    (cond
+      ((null product-id)
+       (render-template* +404.html+ nil))
+      (product
+       (render-template* +product-stock.html+ nil
+                         :messages nil
+                         :route "/product"
+                         :product product
+                         :raw raw))
+      (t
+       (render-template* +404.html+ nil)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Start-up functions.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun find-config ()
+  (cond
+    ((uiop:file-exists-p "config.lisp")
+     "config.lisp")
+    (t
+     nil)))
+
+(defun load-config ()
+  "Load `config.lisp', situated at the project's root."
+  (let ((file (find-config)))
+    (if file
+        ;; One case of failure: a symbolic link exists, but
+        ;; the target file doesn't.
+        (progn
+          (uiop:format! t "Loading config file ~a…~&" file)
+          (load (uiop:native-namestring file)))
+        (format t "... no config file found.~&"))))
+
+(defun start-app (&key (port *port*) (load-config-p nil))
+  "Start the Hunchentoot web server on port PORT (defaults to `*PORT*'), serve static assets.
+
+  If LOAD-CONFIG-P is non nil, load the config file (this is normally done in the main function of run.lisp before)."
+  ;; You can use the find-port library to find an available port.
+
+  ;; Load the config.lisp init file.
+  (if load-config-p
+      (load-config)
+      (uiop:format! t "Skipping config file.~&"))
+
+  ;; Set up the DB.
+  (models:connect)
+
+  ;; Start the server.
+  (uiop:format! t "Starting Hunchentoot on port ~a…~&" port)
+  (setf *server* (make-instance 'easy-routes:easy-routes-acceptor :port port))
+  (hunchentoot:start *server*)
+  (serve-static-assets)
+  (uiop:format! t "~&Application started on port ~a.~&" port))
+
+(defun stop-app ()
+  ;; disconnect db ?
+  (hunchentoot:stop *server*))
--- a/tests/packages.lisp
+++ b/tests/packages.lisp
@ -0,0 +1,8 @@
+(in-package :asdf-user)
+(defpackage :ritherdon-archive-tests
+  (:use :common-lisp
+        :fiveam
+        :ritherdon-archive))
+
+
+(in-package :ritherdon-archive-tests)
--- a/tests/test-ritherdon-archive.lisp
+++ b/tests/test-ritherdon-archive.lisp
@ -0,0 +1,12 @@
+(in-package :ritherdon-archive-tests)
+
+;; Define your project tests here...
+
+(def-suite testmain
+    :description "test suite 1")
+
+(in-suite testmain)
+
+(test test1
+  (is (= (+ 1 1)
+         3)))