From 4de9b9b06a3350d89f012c9ef7d22f8ece72a122 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 9 Jan 2011 17:37:59 +0100
Subject: Texinfo macrology

---
 doc/geiser.css   |  4 ++++
 doc/install.texi | 11 ++++++-----
 doc/macros.texi  | 18 ++++++++++++++++++
 doc/web.texi     |  8 +-------
 4 files changed, 29 insertions(+), 12 deletions(-)

diff --git a/doc/geiser.css b/doc/geiser.css
index 91a1e73..85bac22 100644
--- a/doc/geiser.css
+++ b/doc/geiser.css
@@ -101,6 +101,10 @@ div.version {
     font-style: italic;
 }
 
+div.version a {
+    text-decoration: none;
+}
+
 .navlink {
     text-decoration: none;
     /* color: white; */
diff --git a/doc/install.texi b/doc/install.texi
index f356c3e..745f398 100644
--- a/doc/install.texi
+++ b/doc/install.texi
@@ -13,15 +13,16 @@
 @cindex supported versions
 @cindex versions supported
 If Geiser came with any guarantees, you'd break all of them by not using
-GNU Emacs 23.2 (or better: i regularly use it with a recent Emacs
-snapshot) and at least one of the supported Schemes, namely:
+GNU Emacs @value{EMACS_VERSION} (or better: i regularly use it with a
+recent Emacs snapshot) and at least one of the supported Schemes,
+namely:
 
 @itemize @bullet
 @item
-@uref{http://www.racket-lang.org, Racket} 5.0.1 or better
+@uref{http://www.racket-lang.org, Racket} @value{RACKET_VERSION} or better
 @item
-@uref{http://www.gnu.org/software/guile, Guile} 1.9.14, directly
-compiled from a recent checkout of
+@uref{http://www.gnu.org/software/guile, Guile} @value{GUILE_VERSION},
+directly compiled from a recent checkout of
 @uref{http://www.gnu.org/software/guile/repository.html, its Git
 @i{master} branch}.
 @end itemize
diff --git a/doc/macros.texi b/doc/macros.texi
index b722f67..6ceada6 100644
--- a/doc/macros.texi
+++ b/doc/macros.texi
@@ -1,4 +1,7 @@
 @set VERSION 0.1.1
+@set GUILE_VERSION 1.9.14
+@set RACKET_VERSION 5.0.1
+@set EMACS_VERSION 23.2
 @set DOWN_BASE http://download.savannah.nongnu.org/releases/geiser
 @set TARBALL geiser-@value{VERSION}.tar.gz
 
@@ -6,6 +9,21 @@
 @uref{@value{DOWN_BASE}/@value{VERSION}/\FILE\, \CAPT\}
 @end macro
 
+@macro vblurb{GVERS, RVERS, DATE}
+@html
+<div class="version" align="right">
+@end html
+@downfile{@value{TARBALL},
+          Version @value{VERSION} (\DATE\) Guile \GVERS\+ and Racket \RVERS\+}
+@html
+</div>
+@end html
+@end macro
+
+@macro dvblurb{DATE}
+@vblurb{@value{GUILE_VERSION}, @value{RACKET_VERSION}, \DATE\}
+@end macro
+
 @macro alt{HTML, NOHTML}
 @ifhtml
 \HTML\
diff --git a/doc/web.texi b/doc/web.texi
index 5225252..675ac15 100644
--- a/doc/web.texi
+++ b/doc/web.texi
@@ -7,13 +7,7 @@
 @node Top, Introduction, (dir), (dir)
 
 @include top.texi
-@html
-<div class="version" align="right"><a class="navlink"
-href="http://download.savannah.nongnu.org/releases/geiser/0.1/geiser-0.1.tar.gz">
-Version 0.1, Dec 2010, Guile 1.9.14 and Racket 5.0.x
-</a>
-</div>
-@end html
+@dvblurb{Jan 2011}
 
 @menu
 * Introduction::
-- 
cgit v1.2.3