miniblog

Miniblog: A command-line static blog system in Common Lisp
Log | Files | Refs | README | LICENSE

pagetemplate.lhtml (1078B)

      1 <!DOCTYPE html>
      2 <html>
      3   <% @include html-head.lhtml %>
      4   <body>
      5     <% @include header.lhtml %>
      6     <% @include left-column.lhtml %>
      7     <section id="miniblog-main">
      8       <% @if post/content %>
      9         <% (destructuring-bind (&key ((:post (&key content created-at last-updated-at created-at-long last-updated-at-long last-updated-by &allow-other-keys))) content-formatter &allow-other-keys) env %>
     10           <h2><% @var post/title %></h2>
     11           <article>
     12             <%= (funcall content-formatter content) %>
     13           </article>
     14           <p>
     15             <small>
     16               Posted by <% @var post/created-by %> on
     17               <% @var post/created-at-long %>
     18               <% (if (local-time:timestamp/= created-at last-updated-at)
     19                    (format t "<br>~%Last updated by ~A on ~A~%"
     20                            last-updated-by
     21                            last-updated-at-long)) %>
     22             </small>
     23           </p>
     24         <% ) %>
     25       <% @else %>
     26         No page found.
     27       <% @endif %>
     28     </section>
     29     <% @include nav.lhtml %>
     30   </body>
     31 </html>