From 64db283c1d3df6e1f098ef3fb5b43f21a34f11a6 Mon Sep 17 00:00:00 2001
From: Wouter Scherphof <wouter.scherphof@gmail.com>
Date: Tue, 19 Mar 2013 15:29:12 +0100
Subject: [PATCH] Added construction of chapters and contacts tables

Do demonstrate how to use it to do something useful. Maybe this could
be generalized. But maybe better in a seperate module.
---
 test.lua | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/test.lua b/test.lua
index 77ed097..2e549d0 100644
--- a/test.lua
+++ b/test.lua
@@ -50,3 +50,28 @@ select("ul *")
 select("ul > *")
 select("body [class]")
 select("body > [class]")
+
+local sel, chapters = root:select("ol.chapters > li"), {}
+for i,v in ipairs(sel) do
+  table.insert(chapters, v:getcontent())
+end
+print("\nchapters")
+for i,v in ipairs(chapters) do
+  print(i, v)
+end
+
+local sel, contacts = root:select("ul.contacts > li"), {}
+for i,v in ipairs(sel) do
+  local c = {}
+  for fi,fv in ipairs(v:select("span[class]")) do
+    c[fv.classes[1]] = fv:getcontent()
+  end
+  contacts[v.id] = c
+end
+print("\ncontacts")
+for k,v in pairs(contacts) do
+  print(k)
+  for fk,fv in pairs(v) do
+    print(fk, fv)
+  end
+end