[~] make_menu return an HTML_Off_Form instead of List(HTML_Off_Form) and don't u…

…se anymore the literal for the <nav> and <span> whom now exist as HTML tag

[~] make_menu return an HTML_Off_Form instead of List(HTML_Off_Form) and don't u…
…se anymore the literal for the <nav> and <span> whom now exist as HTML tag
David RENÉ
1 parent 6a265e88
Showing 1 changed file with 10 additions and 11 deletions Show diff stats
web/widgets/menu.anubis
@@ -6,7 +6,6 @@
  * © David RENÉ
  */
-
 transmit tools/basis.anubis
 read system/string.anubis
@@ -200,19 +199,19 @@ define List(HTML_Off_Form)
 //        }
 //  }.
-  
-define List(HTML_Off_Form)
+define HTML_Off_Form
   make_menu
   (
     (String) -> String  _T,         //translator function 
     List(Menu_Item)     menu_items,
     String              direction
   )=
-    [literal("<nav id=\"nav-"+direction+"\" role=\"navigation\">")] +
-      [ul([class("menu")], generate_menu(_T, menu_items, [], 0))] +
-      [literal("    <span class=\"menu-collapse\"><i class=\"fa fa-step-backward\" aria-hidden=\"true\"></i></span>"),
-       literal("</nav>")].
-    
+    nav([id("nav-"+direction), attr("role","navigation")], [ 
+      ul([class("menu")], generate_menu(_T, menu_items, [], 0)),
+      span(class("menu-collapse"), to_HTML(awesome("step-backward")))
+    ])
+.
+
 public define HTML_Partial_Content
   make_menu
   (
@@ -226,6 +225,6 @@ public define HTML_Partial_Content
     menu(items) then
       partial_content([css(css_file("xlib/css/menu.css"))],
       //partial_content([css(css_file("/css/admin_theme.css"))],
-        sequence(make_menu(_T, items, _direction)))
-  }.
-  
+        make_menu(_T, items, _direction))
+  }
+.