[+] add CommonInfo and https Bool as arguments into format_html_head which it's …

…need for formatting the HTML output

[+] add CommonInfo and https Bool as arguments into format_html_head which it's …
…need for formatting the HTML output
David RENÉ
1 parent 12cf42eb
Showing 1 changed file with 24 additions and 30 deletions Show diff stats
web/making_a_web_site.anubis
@@ -4609,11 +4609,11 @@ define Printable_tree
   }
 .
-define Printable_tree // c'est le nôtre et c'est meilleur
-   format
-     (
-       HTML_Meta         m,
-     ) =
+ define Printable_tree // c'est le nôtre et c'est meilleur
+  format
+  (
+    HTML_Meta         m,
+  ) =
    if m is 
      {
        keywords(l)        then ["<meta name=\"keywords\" content=\"",format_keywords(l),"\" />\n"],
@@ -4663,6 +4663,8 @@ define Printable_tree
 define Printable_tree
   _format_html_head
   (
+    CommonInfo                  cinfo,
+    Bool                        is_https,
     List(HTML_Head_Tag)         lwf,
     Printable_tree              so_far,
     Dictionary(String, Word32)  js_dict
@@ -4676,35 +4678,35 @@ define Printable_tree
         if h is
         {
           meta(meta)        then
-            [format(meta) . _format_html_head(t, so_far, js_dict)],
+            [format(cinfo, meta, is_https) . _format_html_head(cinfo, is_https, t, so_far, js_dict)],
           title(title)      then
-            ["<title>"+title+"</title>\n" . _format_html_head(t, so_far, js_dict)],
+            ["<title>"+title+"</title>\n" . _format_html_head(cinfo, is_https, t, so_far, js_dict)],
           js(jsf)           then
             since jsf is js_file(filename, _),
             if js_dict.get(filename) is
             {
               failure then
                 forget(js_dict.insert(filename, 0));
-                [add_js_files([jsf]) . _format_html_head(t, so_far, js_dict)],
+                [add_js_files([jsf]) . _format_html_head(cinfo, is_https, t, so_far, js_dict)],
               success(_) then
-                _format_html_head(t, so_far, js_dict),
+                _format_html_head(cinfo, is_https, t, so_far, js_dict),
             }
           js_inline(jsi)    then
             if jsi is
             {
                 script(type, _) then
-                  ["<script type=\"" + type + "\">"+content(jsi)+"</script>\n" . _format_html_head(t, so_far, js_dict)],
+                  ["<script type=\"" + type + "\">"+content(jsi)+"</script>\n" . _format_html_head(cinfo, is_https, t, so_far, js_dict)],
             }
           css(cssf)         then
             since cssf is css_file(file_name, media),          
-            ["<link rel=\"stylesheet\" type=\"text/css\" href=\""+file_name+"\" media=\""+to_String(media)+"\" />\n" . _format_html_head(t, so_far, js_dict)],
+            ["<link rel=\"stylesheet\" type=\"text/css\" href=\""+file_name+"\" media=\""+to_String(media)+"\" />\n" . _format_html_head(cinfo, is_https, t, so_far, js_dict)],
           css_inline(cssi)  then
-            ["<style>"+cssi+"</style>\n" . _format_html_head(t, so_far, js_dict)]
+            ["<style>"+cssi+"</style>\n" . _format_html_head(cinfo, is_https, t, so_far, js_dict)]
           link(link_attrs)  then
-            ["<link " + to_String(link_attrs) + " />\n" . _format_html_head(t, so_far, js_dict)]
+            ["<link " + to_String(link_attrs) + " />\n" . _format_html_head(cinfo, is_https, t, so_far, js_dict)]
         }
     }
 .
@@ -4712,19 +4714,23 @@ define Printable_tree
 public define Printable_tree
   format_html_head
   (
+    CommonInfo          cinfo,
+    Bool                is_https,
     List(HTML_Head_Tag) lwf,
     String              charset
   )
   =
-  _format_html_head((List(HTML_Head_Tag))[ meta(http_equiv("content-type", "text/html; charset="+charset)) . lwf], [], make_dictionary((Word32)0, dictionaryComparerString)).
+  _format_html_head(cinfo, is_https, (List(HTML_Head_Tag))[ meta(http_equiv("content-type", "text/html; charset="+charset)) . lwf], [], make_dictionary((Word32)0, dictionaryComparerString)).
 public define Printable_tree
   format_html_head
   (
+    CommonInfo          cinfo,
+    Bool                is_https,
     List(HTML_Head_Tag) lwf
   )
   =
-  _format_html_head(lwf, [], make_dictionary((Word32)0, dictionaryComparerString)).
+  _format_html_head(cinfo, is_https, lwf, [], make_dictionary((Word32)0, dictionaryComparerString)).
 public type HTML_ajax_content:
@@ -4847,7 +4853,7 @@ public define AWP_Handler_Answer //Printable_tree
             [doctype_w3c_header,
              // html_header,
-              "<head>\n", format_html_head(head_tags + *p_content_head_tags, charset),"</head>\n",
+              "<head>\n", format_html_head(cinfo, is_https, head_tags + *p_content_head_tags, charset),"</head>\n",
             ],
           printable_tree([ 
             "HTTP/1.1 " + status_string, crlf,
@@ -4866,7 +4872,7 @@ public define AWP_Handler_Answer //Printable_tree
           with
             answer_body_body = (Printable_tree)
             [  "<body ", format_attrs(options), ">",                       // format body options
-              format(cinfo,ic_v,element,is_https, var(0), p_content_head_tags), 
+              format(cinfo, ic_v, element, is_https, var(0), p_content_head_tags), 
               "</body>\n",
               "</html>"
             ],
@@ -4879,20 +4885,8 @@ public define AWP_Handler_Answer //Printable_tree
               add_js_files(js_files),
               add_script(script),
               "<link rel=\"shortcut icon\" href=\"favicon.ico\" />\n", 
-              "<script type = \"text/javascript\" language=\"JavaScript\">",
-              "  function show_local_popup(divname,stvname) {",
-              "  if (document.layers) { var d = eval(document.divname); } else\n",
-              "  if (document.getElementById) { var d = eval(\"document.getElementById(divname)\"); } else\n",
-              "  if (document.all) { var d = eval(document.all.divname.style)};\n",
-              // " alert(typeof(eval(stvname))); ", 
-              " var s = eval(stvname); ", 
-              "  if (s[0]==0) ",
-              "   { s[0]=1; d.style.visibility = 'visible'; d.zIndex = 100; } else\n",
-              "   { s[0]=0; d.style.visibility = 'hidden'; }; }", 
-              "</script>\n",
               "<title>",title,"</title>\n",              // put title
-              //format(cinfo,metas,is_https,charset),      // format the metas
-              format_html_head(head_tags + *p_content_head_tags, charset),
+              format_html_head(cinfo, is_https, head_tags + *p_content_head_tags, charset),
               "</head>\n"
            ],
         printable_tree([