Changes to use new htmlviewfunctions functions and change connectedpeers to return cfe

1 files changed, 11 insertions, 8 deletions

diff --git a/openssh-connectedpeers-html.lsp b/openssh-connectedpeers-html.lsp
index 9740e72..363d726 100644
--- a/openssh-connectedpeers-html.lsp
+++ b/openssh-connectedpeers-html.lsp
@@ -1,17 +1,19 @@
-<% local data, viewlibrary, page_info = ... 
+<% local data, viewlibrary, page_info, session = ... 
+htmlviewfunctions = require("htmlviewfunctions")
 html = require("acf.html")
 %>
 
-<h1>Connected peers</h1>
+<% local header_level = htmlviewfunctions.displaysectionstart(data, page_info) %>
+<% local header_level2 = htmlviewfunctions.incrementheader(header_level) %>
 <%
-if #data == 0 then
+if #data.value == 0 then
 	io.write("<p>No peers found</p>\n")
 end
 local col1="180px"
-for k,v in pairs(data) do
-	io.write("<h3>" .. html.html_escape(v.host))
-	if v.name and v.name ~= v.host then io.write(" - "..html.html_escape(v.name)) end
-	io.write("</h3>\n")
+for k,v in pairs(data.value) do
+	local label = v.host
+	if v.name and v.name ~= v.host then label = label.." - "..html.html_escape(v.name) end
+	htmlviewfunctions.displaysectionstart(cfe({label=label}), page_info, header_level2)
 	io.write("<table>")
 	for i=1, v.cnt do
 		io.write("<tr>")
@@ -43,6 +45,7 @@ for k,v in pairs(data) do
 		io.write("</tr>")
 	end
 	io.write("</table>")
+	htmlviewfunctions.displaysectionend(header_level2)
 end
 %>
-
+<% htmlviewfunctions.displaysectionend(header_level) %>