From 47d1b278687988739b214025788f7c5739916e70 Mon Sep 17 00:00:00 2001
From: Andre Noll <maan@tuebingen.mpg.de>
Date: Tue, 25 Feb 2020 15:25:27 +0100
Subject: [PATCH] Add table of contents to the main page.

At least the netsurf browser completely ignores the hamburger icon,
so provide an alternative way to navigate the pages.
---
 Introduction.m4    |  3 +++
 include/m4/aple.m4 | 38 +++++++++++++++++++++-----------------
 2 files changed, 24 insertions(+), 17 deletions(-)

diff --git a/Introduction.m4 b/Introduction.m4
index ce96e8e..66be111 100644
--- a/Introduction.m4
+++ b/Introduction.m4
@@ -11,6 +11,9 @@ OVERVIEW(«
 	corner to open the navigation menu.
 »)
 
+SECTION(«Table of Contents»)
+TABLE_OF_CONTENTS()
+
 SECTION(«About»)
 
 ifelse(PUBLIC(), «true», «dnl public version of the pages
diff --git a/include/m4/aple.m4 b/include/m4/aple.m4
index a612970..a995dfc 100644
--- a/include/m4/aple.m4
+++ b/include/m4/aple.m4
@@ -75,6 +75,26 @@ define(«HEADER», «
 
 »)
 
+define(«TABLE_OF_CONTENTS», «
+	<ul id="chapter_list">
+		<li> TOC_ENTRY(«Introduction», «$2») </li>
+		<li> TOC_ENTRY(«Unix_Concepts», «$2») </li>
+		ifelse(PUBLIC(), «false», «
+			<li> TOC_ENTRY(Command_Line_Utilities, «$2») </li>
+		»)
+		<li> TOC_ENTRY(Networking, «$2») </li>
+		<li> TOC_ENTRY(LVM, «$2») </li>
+		<li> TOC_ENTRY(«Filesystems», «$2») </li>
+		<li> TOC_ENTRY(OS-Level_Virtualization, «$2») </li>
+		ifelse(PUBLIC(), «false», «
+			<li> TOC_ENTRY(Gridengine, «$2») </li>
+			<li> TOC_ENTRY(Git, «$2») </li>
+			<li> TOC_ENTRY(Bash, «$2») </li>
+			<li> TOC_ENTRY(Debugging, «$2») </li>
+		»)
+	</ul>
+»)
+
 define(«TITLE», «
 HEADER(«$1», «$2», «$3»)
 <hr>
@@ -90,23 +110,7 @@ HEADER(«$1», «$2», «$3»)
 </svg>
 	<div class="dropdown-content">
 		<h3> Chapter </h3>
-		<ul id="chapter_list">
-			<li> TOC_ENTRY(«Introduction», «$2») </li>
-			<li> TOC_ENTRY(«Unix_Concepts», «$2») </li>
-			ifelse(PUBLIC(), «false», «
-				<li> TOC_ENTRY(Command_Line_Utilities, «$2») </li>
-			»)
-			<li> TOC_ENTRY(Networking, «$2») </li>
-			<li> TOC_ENTRY(LVM, «$2») </li>
-			<li> TOC_ENTRY(«Filesystems», «$2») </li>
-			<li> TOC_ENTRY(OS-Level_Virtualization, «$2») </li>
-			ifelse(PUBLIC(), «false», «
-				<li> TOC_ENTRY(Gridengine, «$2») </li>
-				<li> TOC_ENTRY(Git, «$2») </li>
-				<li> TOC_ENTRY(Bash, «$2») </li>
-				<li> TOC_ENTRY(Debugging, «$2») </li>
-			»)
-		</ul>
+		TABLE_OF_CONTENTS()
 		<h4> Section </h4>
 		<ul>
 divert(«1»)
-- 
2.39.2