cl-mvc-rest/cl-mvc-rest-skel/skel/config/app.lisp

• Show log

  Commit

• Hash : 1a246243
  Author : Thomas de Grivel
  Date : 2019-10-06T16:50:53
  

  update skel

Download

• skel/config/app.lisp

• (setf *layout* :main)
  (setf *port* 4207)
  (setf *session-timeout* (* 3600 24 7))
  (setf *smtp-server* "smtp.kmx.io")
  (setf *smtp-user* "noreply@kmx.io")
  (setf *smtp-password* "V7IwjWwLHOjRqemc")
  (setf facts:*db-path* #P"data/mentats")
  
  (define-template-var title
      "Mentats")
  
  (define-template-var nav
      '("<li><a href=\"/competence\">Compétences</a></li>"
        "<li><a href=\"/blog\">Blog</a></li>"))
  
  (define-template-var nav-right
      '())
  
  (define-template-var classroom nil)
  (define-template-var token nil)
  
  (require :re)
  (use-package :re)
  
  (require :can)
  (require :gravatar)
  (require :rw-ut)
  
  (cl-json:set-decoder-simple-clos-semantics)
  
  (defun setup-environment (env)
    (log-msg :INFO "setup environment ~A" (string-downcase env))
    (can:compile-rules)
    (case env
      ((:development)
       #+swank
       (setf (debug-p :conditions) t)
       (setf (debug-p :reply) t)
       (setf (debug-p :app) t)
       (setf (debug-p :assets) t)))
    (log-msg :DEBUG "tags:~{ ~A~}" cl-debug::*debug*))
  

Download