Clean up wiki a bit

db4
Slava Pestov 2008-06-02 15:33:33 -05:00
parent 442ef1e8f0
commit 13578a780d
4 changed files with 18 additions and 11 deletions

View File

@ -23,13 +23,11 @@
<t:comparison t:name="diff" />
<t:bind t:name="old">
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
</div>
</t:bind>
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
</div>
</t:chloe>

View File

@ -16,5 +16,10 @@
</t:form>
<t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
</div>
</t:chloe>

View File

@ -8,12 +8,13 @@
<t:farkup t:name="content" />
</div>
<p><em>This revision created on <t:label t:name="date" /> by <t:a t:href="user-edits" t:query="author"><t:label t:name="author" /></t:a>.</em></p>
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
| This revision created on <t:label t:name="date" /> by <t:a t:href="user-edits" t:query="author"><t:label t:name="author" /></t:a>.
</div>
</t:chloe>

View File

@ -184,7 +184,10 @@ revision "REVISIONS" {
"old-id" "new-id"
[ value <revision> select-tuple ] bi@
[ [ "old" set-value ] [ "new" set-value ] bi* ]
[
[ [ title>> "title" set-value ] [ "old" set-value ] bi ]
[ "new" set-value ] bi*
]
[ [ content>> string-lines ] bi@ diff "diff" set-value ]
2bi
] >>init