From: Richard Kettlewell <rjk@greenend.org.uk>
Date: Thu, 5 Jun 2008 14:15:59 +0000 (+0100)
Subject: Macro-ize (most) <A>-based buttons
X-Git-Tag: 4.0~23
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/disorder/commitdiff_plain/3b95af9c3a2e21cc5e6567b8ca08376d1c289528

Macro-ize (most) <A>-based buttons
---

diff --git a/templates/choose.tmpl b/templates/choose.tmpl
index a405a25..06e04f6 100644
--- a/templates/choose.tmpl
+++ b/templates/choose.tmpl
@@ -96,10 +96,7 @@ USA
               size=50>
        @submit{@label{search.search}}
        <input name=action type=hidden value=choose>
-       <a class=button
-          href="@url?action=choose">
-         @label{search.clear}
-       </a>
+       @actbutton{@label{search.clear}}{}{choose}
      </p>
    </form>
 
diff --git a/templates/macros.tmpl b/templates/macros.tmpl
index 2ec7205..5d33446 100644
--- a/templates/macros.tmpl
+++ b/templates/macros.tmpl
@@ -282,6 +282,19 @@ and then redefines macros as desired.
 @define {submit} {text}
         {<span class=buttonouter><button class=button name=submit type=submit><span class=buttoninner>@text</span></button></span>}
 
+@# Expand to an action button
+@#  @text is the text to put inside the button
+@#  @long is the text to put in the caption
+@#  @action is the target action
+@define {actbutton} {text long action}
+        {<a class=button
+              href="@url?action=@action@back"
+              title="@long">@text</a>}
+
+@# Expands to &back=manage or to nothing depending on context;
+@# see playing.tmpl.
+@define {back} {} {}
+
 Local variables:
 mode:sgml
 sgml-always-quote-attributes:nil
diff --git a/templates/playing.tmpl b/templates/playing.tmpl
index 07cbd6a..a7bb804 100644
--- a/templates/playing.tmpl
+++ b/templates/playing.tmpl
@@ -25,11 +25,9 @@ USA
   @#  @action should be the action to switch to the opposite state
   @#  @state should be the current state
   @define {onoff} {class action state}
-          {<a class=button
-              href="@url?action=@action@back"
-              title="@label{playing.@q{@action}verbose}">
-             @label{playing.@class}
-           </a>
+          {@actbutton{@label{playing.@class}}
+                     {@label{playing.@q{@action}verbose}}
+                     {@action}
            <img width=@width height=@height class=imgbutton
                 src="@image{@state}">}