From 2bf7d3a4324a3870eb0d8fe0076d68735769d7a4 Mon Sep 17 00:00:00 2001
From: Steffen Jaeckel <s@jaeckel.eu>
Date: Mon, 18 Dec 2017 23:43:26 +0100
Subject: [PATCH] add function name to index

This fixes #98
---
 doc/booker.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/doc/booker.pl b/doc/booker.pl
index 2b295f9..590e6ea 100644
--- a/doc/booker.pl
+++ b/doc/booker.pl
@@ -85,8 +85,12 @@ while (<$in>) {
 
       my $line = 0;
       my $tmp = $m[1];
+      my $fun = $tmp;
       $tmp =~ s/_/"\\_"/ge;
-      print {$out} "\\vspace{+3mm}\\begin{small}\n\\hspace{-5.1mm}{\\bf File}: $tmp\n\\vspace{-3mm}\n\\begin{alltt}\n";
+      $fun =~ s/^bn_//;
+      $fun =~ s/\.c$//;
+      $fun =~ s/_/"\\_"/ge;
+      print {$out} "\\index{$fun}\\vspace{+3mm}\\begin{small}\n\\hspace{-5.1mm}{\\bf File}: $tmp\n\\vspace{-3mm}\n\\begin{alltt}\n";
       $wroteline += 5;
 
       if ($skipheader == 1) {