Added workaround for broken texinfo references

diff --git a/doc/Makefile b/doc/Makefile
index dd305af..c326f23 100644 (file)
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -15,13 +15,15 @@ gobject/style.css: style.css
 gobject/index.html: gobject.texi gobject.ref.texi gobject/style.css
        makeinfo --html --css-ref=style.css $<
        sbcl --noinform --no-sysinit --no-userinit --disable-debugger --load colorize-lisp-examples.lisp $@
+       ./fix-tex-references.sh gobject
 
 gtk/style.css: style.css
        ([ -x gtk ] || mkdir gtk) && cp $< $@
 
 gtk/index.html: gtk.texi gtk.ref.texi gdk.ref.texi gobject.ref.texi glib.ref.texi gtk/style.css
        makeinfo --html --css-ref=style.css $<
-       #sbcl --noinform --no-sysinit --no-userinit --disable-debugger --load colorize-lisp-examples.lisp $@
+       sbcl --noinform --no-sysinit --no-userinit --disable-debugger --load colorize-lisp-examples.lisp $@
+       ./fix-tex-references.sh gtk
 
 #gtk.ref.texi gdk.ref.texi gobject.ref.texi: introspection.lisp
 #      sbcl --noinfo --no-sysinit --no-user-init --disable-debugger --eval "(asdf:oos 'asdf:load-op :cl-gtk2-gtk)" --load "introspection.lisp" --eval '(gtk-doc-introspection:generate-texinfo-for-packages *default-pathname-defaults* (list :gdk :gobject :gtk))'

diff --git a/doc/fix-tex-references-1.sh b/doc/fix-tex-references-1.sh
new file mode 100755 (executable)
index 0000000..a2e3336
--- /dev/null
+++ b/doc/fix-tex-references-1.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+file="$1"
+(egrep '<meta http-equiv="refresh"' -q < "$file") && \
+sed -e 's/%/_00/g' -i "$file"
+true

diff --git a/doc/fix-tex-references.sh b/doc/fix-tex-references.sh
new file mode 100755 (executable)
index 0000000..4198917
--- /dev/null
+++ b/doc/fix-tex-references.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+dir="$1"
+for file in $dir/*.html; do
+    ./fix-tex-references-1.sh "$file"
+done