hiro/quickdocs-server
1
0
Fork 0
mirror of https://github.com/vale981/quickdocs-server synced 2025-03-04 16:51:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Show APP_ENV at the bottom of index page.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-07-21 19:29:06 +09:00
parent 7b91daa83f
commit d2c0288bd7
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/web.lisp
View file

@ -39,7 +39,8 @@
(defroute "/" ()
(render #P"index.html"
(list :ql-dist-version (preference "ql-dist-version"))))
(list :ql-dist-version (preference "ql-dist-version")
:app-env (appenv))))
@route GET "/:project-name/"
(defun project-page (&key project-name)

3
templates/index.html
View file

@ -61,7 +61,8 @@
<footer id="global-footer">
<a href="#global-header" class="back-to-top-link lsf-icon" title="arrowup">Back to Top</a>
<div class="dist-version">
Quicklisp: {{ ql-dist-version }}
Quicklisp: {{ ql-dist-version }}<br />
APP_ENV: {{ app-env }}
</div>
<small>&copy; 2013-2015 <a href="http://8arrow.org/">Eitaro Fukamachi</a></small>