{% include "shared/errors.html" %}
<p>{{entry.date-posted}}</p>
<table class="attr">
        <tr>
                <th width="80"><label for="title">Title</label></th>
                <td><input type="text" name="TITLE" id="title" size="50" value="{{entry.title}}"/></td>
        </tr>
        <tr>
                <th><label for="body">Body</label></th>
                <td><textarea name="BODY" id="body" rows="10" cols="45">{{entry.body}}</textarea></td>
        </tr>
        <tr>
                <th><label for="posted-at">Date</label></th>
                <td>
                        <select id="posted-year" name="POSTED-YEAR">
                                {{ entry.date-posted
                                 | lisp: (lambda(timestamp)
                                           (let ((year (local-time:timestamp-year (local-time:now))))
                                             (date-options :start 2000 :end (1+ year)
                                                           :target (local-time:timestamp-year timestamp))))
                                 | safe
                                 }}
                        </select>
                        <select id="posted-month" name="POSTED-MONTH">
                                {{ entry.date-posted
                                 | lisp: (lambda(timestamp)
                                           (date-options :start 1 :end 12
                                                         :target (local-time:timestamp-month timestamp)))
                                 | safe }}
                        </select>
                        <select id="posted-day" name="POSTED-DAY">
                                {{ entry.date-posted
                                 | lisp: (lambda(timestamp)
                                           (date-options :start 1 :end 31
                                                         :target (local-time:timestamp-day timestamp)))
                                 | safe }}
                        </select>
                        -
                        <select id="posted-hour" name="POSTED-HOUR">
                                {{ entry.date-posted
                                 | lisp: (lambda(timestamp)
                                           (date-options :end 59 :target (local-time:timestamp-hour timestamp)))
                                 | safe }}
                        </select>
                        <select id="posted-min" name="POSTED-MIN">
                                {{ entry.date-posted
                                 | lisp: (lambda(timestamp)
                                           (date-options :end 59 :target (local-time:timestamp-minute timestamp)))
                                 | safe }}
                        </select>
                </td>
        </tr>
        <tr>
                <th><label for="status">Status</label></th>
                <td><select id="status" name="STATUS">
                                <option value="draft" selected>Draft</option>
                                <option value="member-only">Member only</option>
                                <option value="public">Public</option>
                        </select>
                </td>
        </tr>
</table>