-
-
Notifications
You must be signed in to change notification settings - Fork 0
/
config-example.lisp
109 lines (83 loc) · 2.54 KB
/
config-example.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
;;
;; Configuration variables, loaded at startup.
;;
;; (in-package :abstock-user)
;; Enable the triple-quotes pythonic syntax.
;; Easier to write text with simple quotes.
(pythonic-string-reader:enable-pythonic-string-syntax)
(setf *port* 8989)
(setf *api-token* "your secret token")
(setf *contact-infos*
'(:|phone| "06 09 09 09 09"
:|phone2| "06 09 09 77 77"
:|email| "me@test.fr"))
;; SendGrid config:
(setf *email-config*
'(:|sender-api-key| "api-key"
:|from| "your@mail.com"
:|to| "bookstore@mail.com"))
;; Simple anti-script-kiddy question for the validation form:
(setf *secret-question* "stupid question")
(setf *secret-answer* "answer")
;; Theme
;; Themes are defined in src/templates/themes/<yourtheme>/
(setf *theme* nil)
;; Content.
(setf (user-content-brand-name *user-content*)
"My Shop")
(setf (user-content-brand-home-title *user-content*)
"My Shop Online")
(setf (user-content-brand-link *user-content*)
"http://foo.fr")
(setf (user-content-brand-link-title *user-content*)
"My Shop.fr")
(setf (user-content-brand-contact-link *user-content*)
"http://path/to/contact.html")
(setf (user-content-welcome-image *user-content*)
nil) ;; "path/to/img.png"
(setf (user-content-welcome-text *user-content*) " Welcome!")
(setf (user-content-welcome-second-text *user-content*)
""""
<p>
You can contact us at:
<ul>
<li> 0098 7 8 9 </li>
</ul>
</p>
"""" )
;;;
;;; Sélection du libraire.
;;;
(setf (user-content-enable-product-selection *user-content*)
nil)
(setf (user-content-product-selection-short-name *user-content*)
;; mainly for the navbar button. Defaults to "Sélection du libraire".
""""Our selection"""")
(setf (user-content-product-selection-intro-text *user-content*)
nil)
;;
;; Shopping basket.
;;
(setf (user-content-basket-title *user-content*)
;; Basket page title
"Your basket")
(setf (user-content-basket-short-name *user-content*)
;; button
"Basket")
(setf (user-content-basket-text *user-content*)
""""
<p>
You are nearly don. Fill in the validation form below and we'll come back to you. <br/>
Thank you!
""""
)
(setf (user-content-basket-show-validation-form *user-content*)
;; Show the validation form: already true by default.
t)
;;; Additional headers.
(setf (user-content-additional-headers *user-content*)
""""
HTML.
you can put here Matomo code.
"""")
(setf *ignore-shelves-starting-by* '("test-" "TEST"))