Added a new config directive `html-local-head', which permits me to

[sgt/halibut] / bk_html.c
diff --git a/bk_html.c b/bk_html.c

index 1bd573a..96a8982 100644 (file)
--- a/bk_html.c
+++ b/bk_html.c
@@ -826,6 +826,25 @@ void html_backend(paragraph *sourceform, keywordlist *keywords,
             if (conf.head_end)
                 html_raw(&ho, conf.head_end);
  
+           /*
+            * Add any <head> data defined in specific sections
+            * that go in this file. (This is mostly to allow <meta
+            * name="AppleTitle"> tags for Mac online help.)
+            */
+           for (s = sects.head; s; s = s->next) {
+               if (s->file == f && s->text) {
+                   for (p = s->text;
+                        p && (p == s->text || !is_heading_type(p->type));
+                        p = p->next) {
+                       if (p->type == para_Config) {
+                           if (!ustricmp(p->keyword, L"html-local-head")) {
+                               html_raw(&ho, adv(p->origkeyword));
+                           }
+                       }
+                   }
+               }
+           }
+
             element_close(&ho, "head");
             html_nl(&ho);