rpeg-multimarkdown 0.1.1

data/ext/extconf.h

@@ -0,0 +1,3 @@
+#ifndef EXTCONF_H
+#define EXTCONF_H
+#endif

data/ext/extconf.rb

@@ -0,0 +1,15 @@
+require 'mkmf'
+
+dir_config('peg_multimarkdown')
+
+$objs = %w[markdown.o markdown_lib.o markdown_output.o markdown_parser.o]
+
+if pkg_config = find_executable('pkg-config')
+  $CFLAGS = "-fcommon "+`#{pkg_config} --cflags glib-2.0`
+  $LDFLAGS = `#{pkg_config} --libs glib-2.0`
+else
+  fail "glib2 not found"
+end
+
+create_header
+create_makefile('peg_multimarkdown')

data/ext/markdown.c

@@ -0,0 +1,88 @@
+#include "ruby.h"
+#include "markdown_peg.h"
+
+static VALUE rb_cMultiMarkdown;
+
+int get_exts(VALUE self)
+{
+    int extensions = 0;
+    if ( rb_funcall(self, rb_intern("smart"), 0) == Qtrue )
+        extensions = extensions | EXT_SMART ;
+    if ( rb_funcall(self, rb_intern("notes"), 0) == Qtrue )
+        extensions = extensions | EXT_NOTES ;
+    if ( rb_funcall(self, rb_intern("filter_html"), 0) == Qtrue )
+        extensions = extensions | EXT_FILTER_HTML ;
+    if ( rb_funcall(self, rb_intern("filter_styles"), 0) == Qtrue )
+        extensions = extensions | EXT_FILTER_STYLES ;
+    if ( rb_funcall(self, rb_intern("process_html"), 0) == Qtrue )
+        extensions = extensions | EXT_PROCESS_HTML;
+    /* Compatibility overwrites all other extensions */
+    if ( rb_funcall(self, rb_intern("compatibility"), 0) == Qtrue )
+        extensions = EXT_COMPATIBILITY;
+    return extensions;
+}
+
+static VALUE
+rb_multimarkdown_to_html(int argc, VALUE *argv, VALUE self)
+{
+    /* grab char pointer to multimarkdown input text */
+    VALUE text = rb_funcall(self, rb_intern("text"), 0);
+    Check_Type(text, T_STRING);
+    char * ptext = StringValuePtr(text);
+
+    int extensions = get_exts(self);
+
+    char *html = markdown_to_string(ptext, extensions, HTML_FORMAT);
+    VALUE result = rb_str_new2(html);
+    free(html);
+
+    return result;
+}
+
+static VALUE
+rb_multimarkdown_to_latex(int argc, VALUE *argv, VALUE self)
+{
+    /* grab char pointer to multimarkdown input text */
+    VALUE text = rb_funcall(self, rb_intern("text"), 0);
+    Check_Type(text, T_STRING);
+    char * ptext = StringValuePtr(text);
+    
+    int extensions = get_exts(self);
+
+    char *latex = markdown_to_string(ptext, extensions, LATEX_FORMAT);
+    VALUE result = rb_str_new2(latex);
+    free(latex);
+
+    return result;
+}
+
+static VALUE
+rb_multimarkdown_extract_metadata(VALUE self, VALUE key)
+{
+    /* grab char pointer to multimarkdown input text */
+    VALUE text = rb_funcall(self, rb_intern("text"), 0);
+    Check_Type(text, T_STRING);
+    char * ptext = StringValuePtr(text);
+
+    Check_Type(key, T_STRING);
+    char * pkey = StringValuePtr(key);
+    
+    int extensions = get_exts(self);
+
+    /* Display metadata on request */
+    char *metadata = extract_metadata_value(ptext, extensions, pkey);
+    VALUE result = rb_str_new2(metadata);
+    free(metadata);
+
+    return result;
+}
+
+void Init_peg_multimarkdown()
+{
+    rb_cMultiMarkdown = rb_define_class("PEGMultiMarkdown", rb_cObject);
+    rb_define_method(rb_cMultiMarkdown, "to_html", rb_multimarkdown_to_html, -1);
+    rb_define_method(rb_cMultiMarkdown, "to_latex", rb_multimarkdown_to_latex, -1);
+    rb_define_method(rb_cMultiMarkdown, "extract_metadata", rb_multimarkdown_extract_metadata, 1);
+}
+
+// vim: ts=4 sw=4

data/ext/markdown_lib.c

@@ -0,0 +1,211 @@
+/**********************************************************************
+
+  markdown_lib.c - markdown in C using a PEG grammar.
+  (c) 2008 John MacFarlane (jgm at berkeley dot edu).
+
+  portions Copyright (c) 2010-2011 Fletcher T. Penney
+
+  This program is free software; you can redistribute it and/or modify
+  it under the terms of the GNU General Public License or the MIT
+  license.  See LICENSE for details.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+ ***********************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "markdown_peg.h"
+
+#define TABSTOP 4
+
+/* preformat_text - allocate and copy text buffer while
+ * performing tab expansion. */
+static GString *preformat_text(char *text) {
+    GString *buf;
+    char next_char;
+    int charstotab;
+
+    int len = 0;
+
+    buf = g_string_new("");
+
+    charstotab = TABSTOP;
+    while ((next_char = *text++) != '\0') {
+        switch (next_char) {
+        case '\t':
+            while (charstotab > 0)
+                g_string_append_c(buf, ' '), len++, charstotab--;
+            break;
+        case '\n':
+            g_string_append_c(buf, '\n'), len++, charstotab = TABSTOP;
+            break;
+        default:
+            g_string_append_c(buf, next_char), len++, charstotab--;
+        }
+        if (charstotab == 0)
+            charstotab = TABSTOP;
+    }
+    g_string_append(buf, "\n\n");
+    return(buf);
+}
+
+/* print_tree - print tree of elements, for debugging only. */
+static void print_tree(element * elt, int indent) {
+    int i;
+    char * key;
+    while (elt != NULL) {
+        for (i = 0; i < indent; i++)
+            fputc(' ', stderr);
+        switch (elt->key) {
+            case LIST:               key = "LIST"; break;
+            case RAW:                key = "RAW"; break;
+            case SPACE:              key = "SPACE"; break;
+            case LINEBREAK:          key = "LINEBREAK"; break;
+            case ELLIPSIS:           key = "ELLIPSIS"; break;
+            case EMDASH:             key = "EMDASH"; break;
+            case ENDASH:             key = "ENDASH"; break;
+            case APOSTROPHE:         key = "APOSTROPHE"; break;
+            case SINGLEQUOTED:       key = "SINGLEQUOTED"; break;
+            case DOUBLEQUOTED:       key = "DOUBLEQUOTED"; break;
+            case STR:                key = "STR"; break;
+            case LINK:               key = "LINK"; break;
+            case IMAGE:              key = "IMAGE"; break;
+            case CODE:               key = "CODE"; break;
+            case HTML:               key = "HTML"; break;
+            case EMPH:               key = "EMPH"; break;
+            case STRONG:             key = "STRONG"; break;
+            case PLAIN:              key = "PLAIN"; break;
+            case PARA:               key = "PARA"; break;
+            case LISTITEM:           key = "LISTITEM"; break;
+            case BULLETLIST:         key = "BULLETLIST"; break;
+            case ORDEREDLIST:        key = "ORDEREDLIST"; break;
+            case H1:                 key = "H1"; break;
+            case H2:                 key = "H2"; break;
+            case H3:                 key = "H3"; break;
+            case H4:                 key = "H4"; break;
+            case H5:                 key = "H5"; break;
+            case H6:                 key = "H6"; break;
+            case BLOCKQUOTE:         key = "BLOCKQUOTE"; break;
+            case VERBATIM:           key = "VERBATIM"; break;
+            case HTMLBLOCK:          key = "HTMLBLOCK"; break;
+            case HRULE:              key = "HRULE"; break;
+            case REFERENCE:          key = "REFERENCE"; break;
+            case NOTE:               key = "NOTE"; break;
+            default:                 key = "?";
+        }
+        if ( elt->key == STR ) {
+            fprintf(stderr, "0x%x: %s   '%s'\n", (int)elt, key, elt->contents.str);
+        } else {
+            fprintf(stderr, "0x%x: %s\n", (int)elt, key);
+        }
+        if (elt->children)
+            print_tree(elt->children, indent + 4);
+        elt = elt->next;
+    }
+}
+
+/* process_raw_blocks - traverses an element list, replacing any RAW elements with
+ * the result of parsing them as markdown text, and recursing into the children
+ * of parent elements.  The result should be a tree of elements without any RAWs. */
+static element * process_raw_blocks(element *input, int extensions, element *references, element *notes, element *labels) {
+    element *current = NULL;
+    element *last_child = NULL;
+    char *contents;
+    current = input;
+
+    while (current != NULL) {
+        if (current->key == RAW) {
+            /* \001 is used to indicate boundaries between nested lists when there
+             * is no blank line.  We split the string by \001 and parse
+             * each chunk separately. */
+            contents = strtok(current->contents.str, "\001");
+            current->key = LIST;
+            current->children = parse_markdown(contents, extensions, references, notes, labels);
+            last_child = current->children;
+            while ((contents = strtok(NULL, "\001"))) {
+                while (last_child->next != NULL)
+                    last_child = last_child->next;
+                last_child->next = parse_markdown(contents, extensions, references, notes, labels);
+            }
+            free(current->contents.str);
+            current->contents.str = NULL;
+        }
+        if (current->children != NULL)
+            current->children = process_raw_blocks(current->children, extensions, references, notes, labels);
+        current = current->next;
+    }
+    return input;
+}
+
+/* markdown_to_gstring - convert markdown text to the output format specified.
+ * Returns a GString, which must be freed after use using g_string_free(). */
+GString * markdown_to_g_string(char *text, int extensions, int output_format) {
+    element *result;
+    element *references;
+    element *notes;
+    element *labels;
+    GString *formatted_text;
+    GString *out;
+    out = g_string_new("");
+
+    formatted_text = preformat_text(text);
+
+    if (output_format == OPML_FORMAT) {
+        result = parse_markdown_for_opml(formatted_text->str, extensions);
+    } else {
+        references = parse_references(formatted_text->str, extensions);
+        notes = parse_notes(formatted_text->str, extensions, references);
+        labels = parse_labels(formatted_text->str, extensions, references, notes);
+        result = parse_markdown_with_metadata(formatted_text->str, extensions, references, notes, labels);
+
+        result = process_raw_blocks(result, extensions, references, notes, labels);
+    }
+
+    g_string_free(formatted_text, TRUE);
+
+    print_element_list(out, result, output_format, extensions);
+
+    free_element_list(result);
+
+    if (output_format != OPML_FORMAT) {
+        free_element_list(references);
+        free_element_list(labels);
+    }
+    return out;
+}
+
+/* markdown_to_string - convert markdown text to the output format specified.
+ * Returns a null-terminated string, which must be freed after use. */
+char * markdown_to_string(char *text, int extensions, int output_format) {
+    GString *out;
+    char *char_out;
+    out = markdown_to_g_string(text, extensions, output_format);
+    char_out = out->str;
+    g_string_free(out, FALSE);
+    return char_out;
+}
+
+/* vim:set ts=4 sw=4: */
+
+/* extract_metadata_value - parse document and return value of specified
+   metadata key (e.g. "LateX Mode")/
+   Returns a null-terminated string, which must be freed after use. */
+char * extract_metadata_value(char *text, int extensions, char *key) {
+    char *value;
+    element *result;
+    char *meta;
+    GString *formatted_text;
+
+    formatted_text = preformat_text(text);
+    
+    result = parse_metadata_only(formatted_text->str, extensions);
+    
+    value = metavalue_for_key(key, result->children);
+    free_element_list(result);
+    return value;
+}

data/ext/markdown_lib.h

@@ -0,0 +1,28 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <glib.h>
+
+enum markdown_extensions {
+    EXT_SMART            = 0x01,
+    EXT_NOTES            = 0x02,
+    EXT_FILTER_HTML      = 0x04,
+    EXT_FILTER_STYLES    = 0x08,
+    EXT_COMPATIBILITY    = 0x10,
+    EXT_PROCESS_HTML     = 0x20,
+};
+
+enum markdown_formats {
+    HTML_FORMAT,
+    LATEX_FORMAT,
+    MEMOIR_FORMAT,
+    BEAMER_FORMAT,
+    OPML_FORMAT,
+    GROFF_MM_FORMAT,
+    ODF_FORMAT,
+    ODF_BODY_FORMAT
+};
+
+GString * markdown_to_g_string(char *text, int extensions, int output_format);
+char * markdown_to_string(char *text, int extensions, int output_format);
+
+/* vim: set ts=4 sw=4 : */

data/ext/markdown_output.c

@@ -0,0 +1,2704 @@
+/**********************************************************************
+
+  markdown_output.c - functions for printing Elements parsed by 
+                      markdown_peg.
+  (c) 2008 John MacFarlane (jgm at berkeley dot edu).
+  
+  portions Copyright (c) 2010-2011 Fletcher T. Penney
+
+  This program is free software; you can redistribute it and/or modify
+  it under the terms of the GNU General Public License or the MIT
+  license.  See LICENSE for details.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+ ***********************************************************************/
+
+#include <stdbool.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <assert.h>
+#include <glib.h>
+#include "markdown_peg.h"
+#include "utility_functions.c"
+#include "odf.c"
+
+static int extensions;
+static int base_header_level = 1;
+static char *latex_footer;
+static int table_column = 0;
+static char *table_alignment;
+static char cell_type = 'd';
+static int language = ENGLISH;
+static bool html_footer = FALSE;
+static int odf_type = 0;
+static bool in_list = FALSE;
+static bool no_latex_footnote = FALSE;
+
+static void print_html_string(GString *out, char *str, bool obfuscate);
+static void print_html_element_list(GString *out, element *list, bool obfuscate);
+static void print_html_element(GString *out, element *elt, bool obfuscate);
+static void print_latex_string(GString *out, char *str);
+static void print_latex_element_list(GString *out, element *list);
+static void print_latex_element(GString *out, element *elt);
+static void print_groff_string(GString *out, char *str);
+static void print_groff_mm_element_list(GString *out, element *list);
+static void print_groff_mm_element(GString *out, element *elt, int count);
+static void print_odf_code_string(GString *out, char *str);
+static void print_odf_string(GString *out, char *str);
+static void print_odf_element_list(GString *out, element *list);
+static void print_odf_element(GString *out, element *elt);
+static void print_odf_body_element_list(GString *out, element *list);
+static bool list_contains_key(element *list, int key);
+
+
+/* MultiMarkdown Routines */
+static void print_html_header(GString *out, element *elt, bool obfuscate);
+static void print_html_footer(GString *out, bool obfuscate);
+
+static void print_latex_header(GString *out, element *elt);
+static void print_latex_footer(GString *out);
+
+static void print_memoir_element_list(GString *out, element *list);
+static void print_memoir_element(GString *out, element *elt);
+
+static void print_beamer_element_list(GString *out, element *list);
+static void print_beamer_element(GString *out, element *elt);
+
+static void print_opml_string(GString *out, char *str);
+static void print_opml_element_list(GString *out, element *list);
+static void print_opml_element(GString *out, element *elt);
+static void print_opml_metadata(GString *out, element *elt);
+static void print_opml_section_and_children(GString *out, element *list);
+
+element * print_html_headingsection(GString *out, element *list, bool obfuscate);
+
+static bool is_html_complete_doc(element *meta);
+static int find_latex_mode(int format, element *list);
+element * metadata_for_key(char *key, element *list);
+char * metavalue_for_key(char *key, element *list);
+
+element * element_for_attribute(char *querystring, element *list);
+char * dimension_for_attribute(char *querystring, element *list);
+
+
+/**********************************************************************
+
+  Utility functions for printing
+
+ ***********************************************************************/
+
+static int padded = 2;      /* Number of newlines after last output.
+                               Starts at 2 so no newlines are needed at start.
+                               */
+
+static GSList *endnotes = NULL; /* List of endnotes to print after main content. */
+static int notenumber = 0;  /* Number of footnote. */
+
+/* pad - add newlines if needed */
+static void pad(GString *out, int num) {
+    while (num-- > padded)
+        g_string_append_printf(out, "\n");;
+    padded = num;
+}
+
+/* determine whether a certain element is contained within a given list */
+bool list_contains_key(element *list, int key) {
+    element *step = NULL;
+
+    step = list;
+    while ( step != NULL ) {
+        if (step->key == key) {
+            return TRUE;
+        }
+        if (step->children != NULL) {
+            if (list_contains_key(step->children, key)) {
+                return TRUE;
+            }
+        }
+       step = step->next;
+    }
+    return FALSE;
+}
+
+/**********************************************************************
+
+  Functions for printing Elements as HTML
+
+ ***********************************************************************/
+
+/* print_html_string - print string, escaping for HTML  
+ * If obfuscate selected, convert characters to hex or decimal entities at random */
+static void print_html_string(GString *out, char *str, bool obfuscate) {
+    while (*str != '\0') {
+        switch (*str) {
+        case '&':
+            g_string_append_printf(out, "&amp;");
+            break;
+        case '<':
+            g_string_append_printf(out, "&lt;");
+            break;
+        case '>':
+            g_string_append_printf(out, "&gt;");
+            break;
+        case '"':
+            g_string_append_printf(out, "&quot;");
+            break;
+        default:
+            if (obfuscate) {
+                if (rand() % 2 == 0)
+                    g_string_append_printf(out, "&#%d;", (int) *str);
+                else
+                    g_string_append_printf(out, "&#x%x;", (unsigned int) *str);
+            }
+            else
+                g_string_append_c(out, *str);
+        }
+    str++;
+    }
+}
+
+/* print_html_element_list - print a list of elements as HTML */
+static void print_html_element_list(GString *out, element *list, bool obfuscate) {
+    while (list != NULL) {
+        if (list->key == HEADINGSECTION) {
+            list = print_html_headingsection(out, list, obfuscate);
+        } else {
+            print_html_element(out, list, obfuscate);
+            list = list->next;
+        }
+    }
+}
+
+/* add_endnote - add an endnote to global endnotes list. */
+static void add_endnote(element *elt) {
+    endnotes = g_slist_prepend(endnotes, elt);
+}
+
+/* print_html_element - print an element as HTML */
+static void print_html_element(GString *out, element *elt, bool obfuscate) {
+    int lev;
+    char *label;
+    element *attribute;
+    char *height;
+    char *width;
+    switch (elt->key) {
+    case SPACE:
+        g_string_append_printf(out, "%s", elt->contents.str);
+        break;
+    case LINEBREAK:
+        g_string_append_printf(out, "<br/>\n");
+        break;
+    case STR:
+        print_html_string(out, elt->contents.str, obfuscate);
+        break;
+    case ELLIPSIS:
+        localize_typography(out, ELLIP, language, HTMLOUT);
+        break;
+    case EMDASH:
+        localize_typography(out, MDASH, language, HTMLOUT);
+        break;
+    case ENDASH:
+        localize_typography(out, NDASH, language, HTMLOUT);
+        break;
+    case APOSTROPHE:
+        localize_typography(out, APOS, language, HTMLOUT);
+        break;
+    case SINGLEQUOTED:
+        localize_typography(out, LSQUOTE, language, HTMLOUT);
+        print_html_element_list(out, elt->children, obfuscate);
+        localize_typography(out, RSQUOTE, language, HTMLOUT);
+        break;
+    case DOUBLEQUOTED:
+        localize_typography(out, LDQUOTE, language, HTMLOUT);
+        print_html_element_list(out, elt->children, obfuscate);
+        localize_typography(out, RDQUOTE, language, HTMLOUT);
+        break;
+    case CODE:
+        g_string_append_printf(out, "<code>");
+        print_html_string(out, elt->contents.str, obfuscate);
+        g_string_append_printf(out, "</code>");
+        break;
+    case HTML:
+        g_string_append_printf(out, "%s", elt->contents.str);
+        break;
+    case LINK:
+        if (strstr(elt->contents.link->url, "mailto:") == elt->contents.link->url)
+            obfuscate = true;  /* obfuscate mailto: links */
+        g_string_append_printf(out, "<a href=\"");
+        print_html_string(out, elt->contents.link->url, obfuscate);
+        g_string_append_printf(out, "\"");
+        if (strlen(elt->contents.link->title) > 0) {
+            g_string_append_printf(out, " title=\"");
+            print_html_string(out, elt->contents.link->title, obfuscate);
+            g_string_append_printf(out, "\"");
+        }
+        print_html_element_list(out, elt->contents.link->attr, obfuscate);
+        g_string_append_printf(out, ">");
+        print_html_element_list(out, elt->contents.link->label, obfuscate);
+        g_string_append_printf(out, "</a>");
+        break;
+    case IMAGEBLOCK:
+        pad(out, 2);
+    case IMAGE:
+        if (elt->key == IMAGEBLOCK) {
+            g_string_append_printf(out, "<figure>\n");
+        }
+        g_string_append_printf(out, "<img src=\"");
+        print_html_string(out, elt->contents.link->url, obfuscate);
+        g_string_append_printf(out, "\" alt=\"");
+        print_raw_element_list(out,elt->contents.link->label);
+        if ( extension(EXT_COMPATIBILITY) ) {
+            g_string_append_printf(out, "\"");
+        } else {
+            g_string_append_printf(out, "\" id=\"%s\"",elt->contents.link->identifier);
+        }
+        if (strlen(elt->contents.link->title) > 0) {
+            g_string_append_printf(out, " title=\"");
+            print_html_string(out, elt->contents.link->title, obfuscate);
+            g_string_append_printf(out, "\"");
+        }
+        width = NULL;
+        height = NULL;
+        attribute = element_for_attribute("height", elt->contents.link->attr);
+        if (attribute != NULL) {
+            height = strdup(attribute->children->contents.str);
+        }
+        attribute = element_for_attribute("width", elt->contents.link->attr);
+        if (attribute != NULL) {
+            width = strdup(attribute->children->contents.str);
+        }
+        if ((height != NULL) || (width != NULL)) {
+            g_string_append_printf(out, " style=\"");
+            if (height != NULL)
+                g_string_append_printf(out, "height:%s;", height);
+            if (width != NULL)
+                g_string_append_printf(out, "width:%s;", width);
+            g_string_append_printf(out, "\"");
+        }
+        print_html_element_list(out, elt->contents.link->attr, obfuscate);
+        g_string_append_printf(out, " />");
+        if (elt->key == IMAGEBLOCK) {
+            if (elt->contents.link->label != NULL) {
+                g_string_append_printf(out, "\n<figcaption>");
+                print_html_element_list(out, elt->contents.link->label, obfuscate);
+                g_string_append_printf(out, "</figcaption>");
+            }
+            g_string_append_printf(out, "</figure>\n");
+        }
+        free(height);
+        free(width);
+        break;
+    case EMPH:
+        g_string_append_printf(out, "<em>");
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</em>");
+        break;
+    case STRONG:
+        g_string_append_printf(out, "<strong>");
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</strong>");
+        break;
+    case LIST:
+        print_html_element_list(out, elt->children, obfuscate);
+        break;
+    case RAW:
+        /* Shouldn't occur - these are handled by process_raw_blocks() */
+        assert(elt->key != RAW);
+        break;
+    case H1: case H2: case H3: case H4: case H5: case H6:
+        lev = elt->key - H1 + base_header_level;  /* assumes H1 ... H6 are in order */
+        if (lev > 6)
+            lev = 6;
+        pad(out, 2);
+        if ( extension(EXT_COMPATIBILITY) ) {
+            /* Use regular Markdown header format */
+            g_string_append_printf(out, "<h%1d>", lev);
+            print_html_element_list(out, elt->children, obfuscate);
+        } else if (elt->children->key == AUTOLABEL) {
+            /* generate a label for each header (MMD)*/
+            g_string_append_printf(out, "<h%d id=\"%s\">", lev,elt->children->contents.str);
+            print_html_element_list(out, elt->children->next, obfuscate);
+        } else {
+            label = label_from_element_list(elt->children, obfuscate);
+            g_string_append_printf(out, "<h%d id=\"%s\">", lev, label);
+            print_html_element_list(out, elt->children, obfuscate);
+            free(label);
+        }
+        g_string_append_printf(out, "</h%1d>", lev);
+        padded = 0;
+        break;
+    case PLAIN:
+        pad(out, 1);
+        print_html_element_list(out, elt->children, obfuscate);
+        padded = 0;
+        break;
+    case PARA:
+        pad(out, 2);
+        g_string_append_printf(out, "<p>");
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</p>");
+        padded = 0;
+        break;
+    case HRULE:
+        pad(out, 2);
+        g_string_append_printf(out, "<hr />");
+        padded = 0;
+        break;
+    case HTMLBLOCK:
+        pad(out, 2);
+        g_string_append_printf(out, "%s", elt->contents.str);
+        padded = 0;
+        break;
+    case VERBATIM:
+        pad(out, 2);
+        g_string_append_printf(out, "%s", "<pre><code>");
+        print_html_string(out, elt->contents.str, obfuscate);
+        g_string_append_printf(out, "%s", "</code></pre>");
+        padded = 0;
+        break;
+    case BULLETLIST:
+        pad(out, 2);
+        g_string_append_printf(out, "%s", "<ul>");
+        padded = 0;
+        print_html_element_list(out, elt->children, obfuscate);
+        pad(out, 1);
+        g_string_append_printf(out, "%s", "</ul>");
+        padded = 0;
+        break;
+    case ORDEREDLIST:
+        pad(out, 2);
+        g_string_append_printf(out, "%s", "<ol>");
+        padded = 0;
+        print_html_element_list(out, elt->children, obfuscate);
+        pad(out, 1);
+        g_string_append_printf(out, "</ol>");
+        padded = 0;
+        break;
+    case LISTITEM:
+        pad(out, 1);
+        g_string_append_printf(out, "<li>");
+        padded = 2;
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</li>");
+        padded = 0;
+        break;
+    case BLOCKQUOTE:
+        pad(out, 2);
+        g_string_append_printf(out, "<blockquote>\n");
+        padded = 2;
+        print_html_element_list(out, elt->children, obfuscate);
+        pad(out, 1);
+        g_string_append_printf(out, "</blockquote>");
+        padded = 0;
+        break;
+    case REFERENCE:
+        /* Nonprinting */
+        break;
+    case NOTELABEL:
+        /* Nonprinting */
+        break;
+    case NOTE:
+        /* if contents.str == 0, then print note; else ignore, since this
+         * is a note block that has been incorporated into the notes list */
+        if (elt->contents.str == 0) {
+            if ( (elt->children->contents.str == 0) ){
+                /* The referenced note has not been used before */
+                add_endnote(elt->children);
+                ++notenumber;
+                char buf[5];
+                sprintf(buf,"%d",notenumber);
+                /* Assign footnote number for future use */
+                elt->children->contents.str = strdup(buf);
+                if (elt->children->key == GLOSSARYTERM) {
+                    g_string_append_printf(out, "<a href=\"#fn:%d\" id=\"fnref:%d\" title=\"see footnote\" class=\"footnote glossary\">[%d]</a>",
+                                notenumber, notenumber, notenumber);
+                } else {
+                    g_string_append_printf(out, "<a href=\"#fn:%d\" id=\"fnref:%d\" title=\"see footnote\" class=\"footnote\">[%d]</a>",
+                                notenumber, notenumber, notenumber);
+                }
+            } else {
+                /* The referenced note has already been used */
+                g_string_append_printf(out, "<a href=\"#fn:%s\" title=\"see footnote\" class=\"footnote\">[%s]</a>",
+                    elt->children->contents.str, elt->children->contents.str);
+            }
+        }
+        elt->children = NULL;
+        break;
+    case GLOSSARY:
+        /* Shouldn't do anything */
+        break;
+    case GLOSSARYTERM:
+        g_string_append_printf(out,"<span class=\"glossary name\">");
+        print_html_string(out, elt->children->contents.str, obfuscate);
+        g_string_append_printf(out, "</span>");
+        if ((elt->next != NULL) && (elt->next->key == GLOSSARYSORTKEY) ) {
+            g_string_append_printf(out, "<span class=\"glossary sort\" style=\"display:none\">");
+            print_html_string(out, elt->next->contents.str, obfuscate);
+            g_string_append_printf(out, "</span>");
+        }
+        g_string_append_printf(out, ": ");
+        break;
+    case GLOSSARYSORTKEY:
+        break;
+    case NOCITATION:
+    case CITATION:
+        if ((elt->children != NULL) && (elt->children->key == LOCATOR)) {
+            GString *temp = g_string_new("");
+            print_html_element(temp,elt->children,obfuscate);
+            label = strdup(temp->str);
+            g_string_free(temp,true);
+            elt->children = elt->children->next;
+        } else {
+            label = NULL;
+        }
+        if (strncmp(elt->contents.str,"[#",2) == 0) {
+            /* reference specified externally */
+            if ( elt->key == NOCITATION ) {
+                g_string_append_printf(out, "<span class=\"notcited\" id=\"%s\"/>", elt->contents.str);
+            } else {
+                g_string_append_printf(out, "<span class=\"externalcitation\">");
+                if (label != NULL) g_string_append_printf(out, "[%s]", label);
+                g_string_append_printf(out, "%s",elt->contents.str);
+                g_string_append_printf(out, "</span>");
+            }
+        } else {
+            /* reference specified within the MMD document */
+            if (elt->children->contents.str == NULL) {
+                elt->children->key = CITATION;
+                add_endnote(elt->children);
+                ++notenumber;
+                char buf[5];
+                sprintf(buf,"%d",notenumber);
+                
+                elt->children->contents.str = strdup(buf);
+            }
+            if (label != NULL) {
+                if ( elt->key == NOCITATION ) {
+                    g_string_append_printf(out, "<span class=\"notcited\" id=\"%s\">",
+                        elt->children->contents.str);
+                } else {
+                    g_string_append_printf(out, "<a class=\"citation\" href=\"#fn:%s\" title=\"Jump to citation\">[<span class=\"locator\">%s</span>, %s]",
+                        elt->children->contents.str, label, elt->children->contents.str);
+                }
+                elt->children = NULL;               
+            } else {
+                g_string_append_printf(out, "<a class=\"citation\" href=\"#fn:%s\" title=\"Jump to citation\">[%s]",
+                    elt->children->contents.str, elt->children->contents.str);
+                elt->children = NULL;
+            }
+            g_string_append_printf(out, "<span class=\"citekey\" style=\"display:none\">%s</span>", elt->contents.str);
+            if (label != NULL) {
+                if ( elt->key == NOCITATION ) {
+                    g_string_append_printf(out,"</span>");
+                } else {
+                    g_string_append_printf(out,"</a>");
+                }
+            } else {
+                g_string_append_printf(out,"</a>");
+            }
+        }
+        free(label);
+        break;
+    case LOCATOR:
+        print_html_element_list(out, elt->children, obfuscate);
+        break;
+    case DEFLIST:
+        pad(out,1);
+        padded = 1;
+        g_string_append_printf(out, "<dl>\n");
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</dl>\n");
+        padded = 0;
+        break;
+    case TERM:
+        pad(out,1);
+        g_string_append_printf(out, "<dt>");
+        print_html_string(out, elt->contents.str, obfuscate);
+        g_string_append_printf(out, "</dt>\n");
+        padded = 1;
+        break;
+    case DEFINITION:
+        pad(out,1);
+        padded = 1;
+        g_string_append_printf(out, "<dd>");
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</dd>\n");
+        padded = 0;
+        break;
+    case METADATA:
+        /* Metadata is present, so this should be a "complete" document */
+        html_footer = is_html_complete_doc(elt);
+        if (html_footer) {
+            print_html_header(out, elt, obfuscate);
+        } else {
+            print_html_element_list(out, elt->children, obfuscate);
+        }
+        break;
+    case METAKEY:
+        if (strcmp(elt->contents.str, "title") == 0) {
+            g_string_append_printf(out, "\t<title>");
+            print_html_element(out, elt->children, obfuscate);
+            g_string_append_printf(out, "</title>\n");
+        } else if (strcmp(elt->contents.str, "css") == 0) {
+            g_string_append_printf(out, "\t<link type=\"text/css\" rel=\"stylesheet\" href=\"");
+            print_html_element(out, elt->children, obfuscate);
+            g_string_append_printf(out, "\"/>\n");
+        } else if (strcmp(elt->contents.str, "xhtmlheader") == 0) {
+            print_raw_element(out, elt->children);
+            g_string_append_printf(out, "\n");
+        } else if (strcmp(elt->contents.str, "htmlheader") == 0) {
+            print_raw_element(out, elt->children);
+            g_string_append_printf(out, "\n");
+        } else if (strcmp(elt->contents.str, "baseheaderlevel") == 0) {
+            base_header_level = atoi(elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "xhtmlheaderlevel") == 0) {
+            base_header_level = atoi(elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "htmlheaderlevel") == 0) {
+            base_header_level = atoi(elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "quoteslanguage") == 0) {
+            label = label_from_element_list(elt->children, 0);
+            if (strcmp(label, "dutch") == 0) { language = DUTCH; } else 
+            if (strcmp(label, "german") == 0) { language = GERMAN; } else 
+            if (strcmp(label, "germanguillemets") == 0) { language = GERMANGUILL; } else 
+            if (strcmp(label, "french") == 0) { language = FRENCH; } else 
+            if (strcmp(label, "swedish") == 0) { language = SWEDISH; }
+            free(label);
+       } else {
+            g_string_append_printf(out, "\t<meta name=\"");
+            print_html_string(out, elt->contents.str, obfuscate);
+            g_string_append_printf(out, "\" content=\"");
+            print_html_element(out, elt->children, obfuscate);
+            g_string_append_printf(out, "\"/>\n");
+        }
+        break;
+    case METAVALUE:
+        print_html_string(out, elt->contents.str, obfuscate);
+        break;
+    case FOOTER:
+        break;
+    case HEADINGSECTION:
+        print_html_element_list(out, elt->children, obfuscate);
+        break;
+    case TABLE:
+        g_string_append_printf(out, "\n\n<table>\n");
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</table>\n");
+        break;
+    case TABLESEPARATOR:
+        table_alignment = elt->contents.str;
+        break;
+    case TABLECAPTION:
+        if (elt->children->key == TABLELABEL) {
+            label = label_from_element_list(elt->children->children,obfuscate);
+        } else {
+            label = label_from_element_list(elt->children,obfuscate);
+        }
+        g_string_append_printf(out, "<caption id=\"%s\">", label);
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</caption>\n");
+        free(label);
+        break;
+    case TABLELABEL:
+        break;
+    case TABLEHEAD:
+        /* print column alignment for XSLT processing if needed */
+        g_string_append_printf(out, "<colgroup>\n");
+        for (table_column=0;table_column<strlen(table_alignment);table_column++) {
+           if ( strncmp(&table_alignment[table_column],"r",1) == 0) {
+                g_string_append_printf(out, "<col style=\"text-align:right;\"/>\n");
+            } else if ( strncmp(&table_alignment[table_column],"c",1) == 0) {
+                g_string_append_printf(out, "<col style=\"text-align:center;\"/>\n");
+            } else {
+                g_string_append_printf(out, "<col style=\"text-align:left;\"/>\n");
+            }
+        }
+        g_string_append_printf(out, "</colgroup>\n");
+        cell_type = 'h';
+        g_string_append_printf(out, "\n<thead>\n");
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</thead>\n");
+        cell_type = 'd';
+        break;
+    case TABLEBODY:
+        g_string_append_printf(out, "\n<tbody>\n");
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</tbody>\n");
+        break;
+    case TABLEROW:
+        g_string_append_printf(out, "<tr>\n");
+        table_column = 0;
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</tr>\n");
+        break;
+    case TABLECELL:
+        if ( strncmp(&table_alignment[table_column],"r",1) == 0) {
+            g_string_append_printf(out, "\t<t%c style=\"text-align:right;\"", cell_type);
+        } else if ( strncmp(&table_alignment[table_column],"c",1) == 0) {
+            g_string_append_printf(out, "\t<t%c style=\"text-align:center;\"", cell_type);
+        } else {
+            g_string_append_printf(out, "\t<t%c style=\"text-align:left;\"", cell_type);
+        }
+        if ((elt->children != NULL) && (elt->children->key == CELLSPAN)) {
+            g_string_append_printf(out, " colspan=\"%d\"",(int)strlen(elt->children->contents.str)+1);
+        }
+        g_string_append_printf(out, ">");
+        padded = 2;
+        print_html_element_list(out, elt->children, obfuscate);
+        g_string_append_printf(out, "</t%c>\n", cell_type);
+        table_column++;
+        break;
+    case CELLSPAN:
+        break;
+    case ATTRKEY:
+        if ( (strcmp(elt->contents.str,"height") == 0) || 
+            (strcmp(elt->contents.str, "width") == 0)) {
+        } else {
+            g_string_append_printf(out, " %s=\"%s\"", elt->contents.str,
+                elt->children->contents.str);
+        }
+        break;
+    case MATHSPAN:
+        if ( elt->contents.str[strlen(elt->contents.str)-1] == ']') {
+            elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+            g_string_append_printf(out, "<span class=\"math\">%s\\]</span>", elt->contents.str);
+        } else {
+            elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+            g_string_append_printf(out, "<span class=\"math\">%s\\)</span>", elt->contents.str);
+        }
+        break;
+    default: 
+        fprintf(stderr, "print_html_element encountered unknown element key = %d\n", elt->key); 
+        exit(EXIT_FAILURE);
+    }
+}
+
+static void print_html_endnotes(GString *out) {
+    int counter = 0;
+    GSList *note;
+    element *note_elt;
+    if (endnotes == NULL) 
+        return;
+    note = g_slist_reverse(endnotes);
+    g_string_append_printf(out, "<div class=\"footnotes\">\n<hr />\n<ol>");
+    while (note != NULL) {
+        note_elt = note->data;
+        counter++;
+        pad(out, 1);
+        if (note_elt->key == CITATION) {
+            g_string_append_printf(out, "<li id=\"fn:%s\" class=\"citation\"><span class=\"citekey\" style=\"display:none\">", note_elt->contents.str);
+            element *temp = note_elt;
+            while ( temp != NULL ) {
+                if (temp->key == NOTELABEL)
+                    print_html_string(out, temp->contents.str, 0);
+                temp = temp->next;
+            }
+            g_string_append_printf(out, "</span>");
+            padded = 2;
+            print_html_element_list(out, note_elt->children, false);
+            pad(out, 1);
+            g_string_append_printf(out, "</li>");
+        } else {
+            g_string_append_printf(out, "<li id=\"fn:%d\">\n", counter);
+            padded = 2;
+            print_html_element_list(out, note_elt, false);
+            g_string_append_printf(out, " <a href=\"#fnref:%d\" title=\"return to article\" class=\"reversefootnote\">&#160;&#8617;</a>", counter);
+            pad(out, 1);
+            g_string_append_printf(out, "</li>");
+        }
+        note = note->next;
+    }
+    pad(out, 1);
+    g_string_append_printf(out, "</ol>\n</div>\n");
+
+    g_slist_free(endnotes);
+}
+
+/**********************************************************************
+
+  Functions for printing Elements as LaTeX
+
+ ***********************************************************************/
+
+/* print_latex_string - print string, escaping for LaTeX */
+static void print_latex_string(GString *out, char *str) {
+    char *tmp;
+    while (*str != '\0') {
+        switch (*str) {
+          case '{': case '}': case '$': case '%':
+          case '&': case '_': case '#':
+            g_string_append_printf(out, "\\%c", *str);
+            break;
+        case '^':
+            g_string_append_printf(out, "\\^{}");
+            break;
+        case '\\':
+            g_string_append_printf(out, "$\\backslash$");
+            break;
+        case '~':
+            g_string_append_printf(out, "\\ensuremath{\\sim}");
+            break;
+        case '|':
+            g_string_append_printf(out, "\\textbar{}");
+            break;
+        case '<':
+            g_string_append_printf(out, "$<$");
+            break;
+        case '>':
+            g_string_append_printf(out, "$>$");
+            break;
+        case '/':
+            str++;
+            while (*str == '/') {
+                g_string_append_printf(out, "/");
+                str++;
+            }
+            g_string_append_printf(out, "\\slash ");
+            str--;
+            break;
+        case '\n':
+            tmp = str;
+            tmp--;
+            if (*tmp == ' ') {
+                tmp--;
+                if (*tmp == ' ') {
+                    g_string_append_printf(out, "\\\\\n");
+                } else {
+                    g_string_append_printf(out, "\n");
+                }
+            } else {
+                g_string_append_printf(out, "\n");
+            }
+            break;
+        default:
+            g_string_append_c(out, *str);
+        }
+    str++;
+    }
+}
+
+static void print_latex_endnotes(GString *out) {
+    GSList *note;
+    element *note_elt;
+    if (endnotes == NULL) 
+        return;
+    note = g_slist_reverse(endnotes);
+    pad(out,2);
+    g_string_append_printf(out, "\\begin{thebibliography}{0}");
+    while (note != NULL) {
+        note_elt = note->data;
+        pad(out, 1);
+        g_string_append_printf(out, "\\bibitem{%s}\n", note_elt->contents.str);
+        padded=2;
+        print_latex_element_list(out, note_elt);
+        pad(out, 1);
+        note = note->next;
+    }
+    pad(out, 1);
+    g_string_append_printf(out, "\\end{thebibliography}\n");
+    padded = 1;
+    g_slist_free(endnotes);
+}
+
+/* print_latex_element_list - print a list of elements as LaTeX */
+static void print_latex_element_list(GString *out, element *list) {
+    while (list != NULL) {
+        print_latex_element(out, list);
+        list = list->next;
+    }
+}
+
+/* print_latex_element - print an element as LaTeX */
+static void print_latex_element(GString *out, element *elt) {
+    int lev;
+    char *label;
+    char *height;
+    char *width;
+    double floatnum;
+    switch (elt->key) {
+    case SPACE:
+        g_string_append_printf(out, "%s", elt->contents.str);
+        break;
+    case LINEBREAK:
+        g_string_append_printf(out, "\\\\\n");
+        break;
+    case STR:
+        print_latex_string(out, elt->contents.str);
+        break;
+    case ELLIPSIS:
+        localize_typography(out, ELLIP, language, LATEXOUT);
+        break;
+    case EMDASH: 
+        localize_typography(out, MDASH, language, LATEXOUT);
+        break;
+    case ENDASH: 
+        localize_typography(out, NDASH, language, LATEXOUT);
+        break;
+    case APOSTROPHE:
+        localize_typography(out, APOS, language, LATEXOUT);
+        break;
+    case SINGLEQUOTED:
+        localize_typography(out, LSQUOTE, language, LATEXOUT);
+        print_latex_element_list(out, elt->children);
+        localize_typography(out, RSQUOTE, language, LATEXOUT);
+        break;
+    case DOUBLEQUOTED:
+        localize_typography(out, LDQUOTE, language, LATEXOUT);
+        print_latex_element_list(out, elt->children);
+        localize_typography(out, RDQUOTE, language, LATEXOUT);
+        break;
+    case CODE:
+        g_string_append_printf(out, "\\texttt{");
+        print_latex_string(out, elt->contents.str);
+        g_string_append_printf(out, "}");
+        break;
+    case HTML:
+        /* don't print HTML */
+        /* but do print HTML comments for raw LaTeX */
+        if (strncmp(elt->contents.str,"<!--",4) == 0) {
+            /* trim "-->" from end */
+            elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+            g_string_append_printf(out, "%s", &elt->contents.str[4]);
+        }
+        break;
+    case LINK:
+        if (elt->contents.link->url[0] == '#') {
+            /* This is a link to anchor within document */
+            label = label_from_string(elt->contents.link->url,0);
+            if (elt->contents.link->label != NULL) {
+                    print_latex_element_list(out, elt->contents.link->label);
+                g_string_append_printf(out, " (\\autoref\{%s})", label);             
+            } else {
+                g_string_append_printf(out, "\\autoref\{%s}", label);
+            }
+            free(label);
+        } else if ( (elt->contents.link->label != NULL) &&
+                ( elt->contents.link->label->contents.str != NULL) &&
+                ( strcmp(elt->contents.link->label->contents.str, 
+                elt->contents.link->url) == 0 )) {
+            /* This is a <link> */
+            g_string_append_printf(out, "\\href{%s}{", elt->contents.link->url);
+            print_latex_string(out, elt->contents.link->url);
+            g_string_append_printf(out, "}");
+        } else if ( (elt->contents.link->label != NULL) && 
+                ( elt->contents.link->label->contents.str != NULL) &&
+                ( strcmp(&elt->contents.link->url[7], 
+                elt->contents.link->label->contents.str) == 0 )) {
+            /* This is a <mailto> */
+            g_string_append_printf(out, "\\href{%s}{%s}", elt->contents.link->url, &elt->contents.link->url[7]);
+        } else {
+            /* This is a [text](link) */
+            g_string_append_printf(out, "\\href{%s}{", elt->contents.link->url);
+            print_latex_element_list(out, elt->contents.link->label);
+            g_string_append_printf(out, "}");
+            if ( no_latex_footnote == FALSE ) {
+                g_string_append_printf(out, "\\footnote{\\href{%s}{", elt->contents.link->url);
+                print_latex_string(out, elt->contents.link->url);
+                g_string_append_printf(out, "}}");
+            }
+        }
+        break;
+    case IMAGEBLOCK:
+        pad(out, 2);
+    case IMAGE:
+        /* Figure if we have height, width, neither */
+        height = dimension_for_attribute("height", elt->contents.link->attr);
+        width = dimension_for_attribute("width", elt->contents.link->attr);
+        if (elt->key == IMAGEBLOCK) {
+            g_string_append_printf(out, "\\begin{figure}[htbp]\n\\centering\n");
+        }
+        g_string_append_printf(out, "\\includegraphics[");
+        if ((height == NULL) && (width == NULL)) {
+            /* No dimensions given */
+            g_string_append_printf(out,"keepaspectratio,width=\\textwidth,height=0.75\\textheight");
+        } else {
+            /* at least one dimension given */
+            if ((height != NULL) && (width != NULL)) {
+                
+            } else {
+                g_string_append_printf(out, "keepaspectratio,");
+            }
+            if (width != NULL) {
+                if (width[strlen(width)-1] == '%') {
+                    width[strlen(width)-1] = '\0';
+                    floatnum = strtod(width, NULL);
+                    floatnum = floatnum/100;
+                    g_string_append_printf(out,"width=%.4f\\textwidth,", floatnum);
+                } else {
+                    g_string_append_printf(out,"width=%s,", width);
+                }
+            } else {
+                g_string_append_printf(out, "width=\\textwidth,");
+            }
+            if (height != NULL) {
+                if (height[strlen(height)-1] == '%') {
+                    height[strlen(height)-1] = '\0';
+                    floatnum = strtod(height, NULL);
+                    floatnum = floatnum/100;
+                    g_string_append_printf(out,"height=%.4f\\textheight,", floatnum);
+                } else {
+                    g_string_append_printf(out,"height=%s",height);
+                }
+            } else {
+                g_string_append_printf(out, "height=0.75\\textheight");
+            }
+        }
+
+        g_string_append_printf(out, "]{%s}\n", elt->contents.link->url);
+        if (elt->key == IMAGEBLOCK) {
+           if (elt->contents.link->label != NULL) {
+                g_string_append_printf(out, "\\caption{");
+                print_latex_element_list(out, elt->contents.link->label);
+                g_string_append_printf(out, "}\n");
+            }
+            g_string_append_printf(out, "\\label{%s}\n", elt->contents.link->identifier);
+            g_string_append_printf(out,"\\end{figure}\n");
+        }
+        free(height);
+        free(width);
+        break;
+    case EMPH:
+        g_string_append_printf(out, "\\emph{");
+        print_latex_element_list(out, elt->children);
+        g_string_append_printf(out, "}");
+        break;
+    case STRONG:
+        g_string_append_printf(out, "\\textbf{");
+        print_latex_element_list(out, elt->children);
+        g_string_append_printf(out, "}");
+        break;
+    case LIST:
+        print_latex_element_list(out, elt->children);
+        break;
+    case RAW:
+        /* Shouldn't occur - these are handled by process_raw_blocks() */
+        assert(elt->key != RAW);
+        break;
+    case H1: case H2: case H3: case H4: case H5: case H6:
+        pad(out, 2);
+        lev = elt->key - H1 + base_header_level;  /* assumes H1 ... H6 are in order */
+        switch (lev) {
+            case 1:
+                g_string_append_printf(out, "\\part{");
+                break;
+            case 2:
+                g_string_append_printf(out, "\\chapter{");
+                break;
+            case 3:
+                g_string_append_printf(out, "\\section{");
+                break;
+            case 4:
+                g_string_append_printf(out, "\\subsection{");
+                break;
+            case 5:
+                g_string_append_printf(out, "\\subsubsection{");
+                break;
+            case 6:
+                g_string_append_printf(out, "\\paragraph{");
+                break;
+            case 7:
+                g_string_append_printf(out, "\\subparagraph{");
+                break;
+            default:
+                g_string_append_printf(out, "\\noindent\\textbf{");
+                break;
+        }
+        /* generate a label for each header (MMD);
+            don't allow footnotes since invalid here */
+        no_latex_footnote = TRUE;
+        if (elt->children->key == AUTOLABEL) {
+            label = label_from_string(elt->children->contents.str,0);
+            print_latex_element_list(out, elt->children->next);
+        } else {
+            label = label_from_element_list(elt->children,0);
+            print_latex_element_list(out, elt->children);
+        }
+        no_latex_footnote = FALSE;
+        g_string_append_printf(out, "}\n\\label{");
+        g_string_append_printf(out, "%s", label);
+        g_string_append_printf(out, "}\n");
+        free(label);
+        padded = 1;
+        break;
+    case PLAIN:
+        pad(out, 1);
+        print_latex_element_list(out, elt->children);
+        padded = 0;
+        break;
+    case PARA:
+        pad(out, 2);
+        print_latex_element_list(out, elt->children);
+        padded = 0;
+        break;
+    case HRULE:
+        pad(out, 2);
+        g_string_append_printf(out, "\\begin{center}\\rule{3in}{0.4pt}\\end{center}\n");
+        padded = 0;
+        break;
+    case HTMLBLOCK:
+        /* don't print HTML block */
+        /* but do print HTML comments for raw LaTeX */
+        if (strncmp(elt->contents.str,"<!--",4) == 0) {
+            pad(out, 2);
+            /* trim "-->" from end */
+            elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+            g_string_append_printf(out, "%s", &elt->contents.str[4]);
+            padded = 0;
+        }
+        break;
+    case VERBATIM:
+        pad(out, 1);
+        g_string_append_printf(out, "\n\\begin{verbatim}\n");
+        print_raw_element(out, elt);
+        g_string_append_printf(out, "\\end{verbatim}\n");
+        padded = 0;
+        break;
+    case BULLETLIST:
+        pad(out, 1);
+        g_string_append_printf(out, "\n\\begin{itemize}");
+        padded = 0;
+        print_latex_element_list(out, elt->children);
+        g_string_append_printf(out, "\n\\end{itemize}");
+        padded = 0;
+        break;
+    case ORDEREDLIST:
+        pad(out, 2);
+        g_string_append_printf(out, "\\begin{enumerate}");
+        padded = 0;
+        print_latex_element_list(out, elt->children);
+        pad(out, 1);
+        g_string_append_printf(out, "\\end{enumerate}");
+        padded = 0;
+        break;
+    case LISTITEM:
+        pad(out, 1);
+        g_string_append_printf(out, "\\item ");
+        padded = 2;
+        print_latex_element_list(out, elt->children);
+        g_string_append_printf(out, "\n");
+        break;
+    case BLOCKQUOTE:
+        pad(out, 2);
+        g_string_append_printf(out, "\\begin{quote}");
+        padded = 0;
+        print_latex_element_list(out, elt->children);
+        pad(out, 1);
+        g_string_append_printf(out, "\\end{quote}");
+        padded = 0;
+        break;
+    case NOTELABEL:
+        /* Nonprinting */
+        break;
+    case NOTE:
+        /* if contents.str == 0, then print note; else ignore, since this
+         * is a note block that has been incorporated into the notes list */
+        if (elt->contents.str == 0) {
+            if (elt->children->key == GLOSSARYTERM) {
+                g_string_append_printf(out, "\\newglossaryentry{%s}{", elt->children->children->contents.str);
+                padded = 2;
+                if (elt->children->next->key == GLOSSARYSORTKEY) {
+                    g_string_append_printf(out, "sort={");
+                    print_latex_string(out, elt->children->next->contents.str);
+                    g_string_append_printf(out, "},");
+                }
+                print_latex_element_list(out, elt->children);
+                g_string_append_printf(out, "}}\\glsadd{%s}", elt->children->children->contents.str);
+                padded = 0;
+            } else {
+                g_string_append_printf(out, "\\footnote{");
+                padded = 2;
+                print_latex_element_list(out, elt->children);
+                g_string_append_printf(out, "}");
+                padded = 0;
+            }
+            elt->children = NULL;
+        }
+        break;
+    case GLOSSARY:
+        /* This shouldn't do anything */
+        break;
+    case GLOSSARYTERM:
+        g_string_append_printf(out, "name={");
+        print_latex_string(out, elt->children->contents.str);
+        g_string_append_printf(out, "},description={");
+        break;
+    case GLOSSARYSORTKEY:
+        break;
+    case REFERENCE:
+        /* Nonprinting */
+        break;
+    case NOCITATION:
+    case CITATION:
+        if (strncmp(elt->contents.str,"[#",2) == 0) {
+            /* This should be used as a bibtex citation key after trimming */
+            elt->contents.str[strlen(elt->contents.str)-1] = '\0';
+            if (elt->key == NOCITATION ) {
+                g_string_append_printf(out, "~\\nocite{%s}", &elt->contents.str[2]);
+            } else {
+                if ((elt->children != NULL) && (elt->children->key == LOCATOR)) {
+                    if (strcmp(&elt->contents.str[strlen(elt->contents.str) - 1],";") == 0) {
+                        g_string_append_printf(out, " \\citet[");
+                        elt->contents.str[strlen(elt->contents.str) - 1] = '\0';
+                    } else {
+                        g_string_append_printf(out, "~\\citep[");
+                    }
+                    print_latex_element(out,elt->children);
+                    g_string_append_printf(out, "]{%s}",&elt->contents.str[2]);
+                } else {
+                    if (strcmp(&elt->contents.str[strlen(elt->contents.str) - 1],";") == 0) {
+                        elt->contents.str[strlen(elt->contents.str) - 1] = '\0';
+                        g_string_append_printf(out, " \\citet{%s}", &elt->contents.str[2]);
+                    } else {
+                        g_string_append_printf(out, "~\\citep{%s}", &elt->contents.str[2]);
+                    }
+                }
+            }
+        } else {
+            /* This citation was specified in the document itself */
+            if (elt->key == NOCITATION ) {
+                g_string_append_printf(out, "~\\nocite{%s}", elt->contents.str);
+                element *temp;
+                temp = elt->children;
+                elt->children = temp->next;
+                free_element(temp);
+            } else {
+                if ((elt->children != NULL) && (elt->children->key == LOCATOR)){
+                    if (strcmp(&elt->contents.str[strlen(elt->contents.str) - 1],";") == 0) {
+                        g_string_append_printf(out, " \\citet[");
+                        elt->contents.str[strlen(elt->contents.str) - 1] = '\0';
+                    } else {
+                        g_string_append_printf(out, "~\\citep[");
+                    }
+                    print_latex_element(out,elt->children);
+                    g_string_append_printf(out, "]{%s}",elt->contents.str);
+                    element *temp;
+                    temp = elt->children;
+                    elt->children = temp->next;
+                    free_element(temp);
+                } else {
+                    if (strcmp(&elt->contents.str[strlen(elt->contents.str) - 1],";") == 0) {
+                        elt->contents.str[strlen(elt->contents.str) - 1] = '\0';
+                        g_string_append_printf(out, " \\citet{%s}", elt->contents.str);
+                    } else {
+                        g_string_append_printf(out, "~\\citep{%s}", elt->contents.str);
+                    }
+                }
+            }
+            if (elt->children->contents.str == NULL) {
+                elt->children->contents.str = strdup(elt->contents.str);
+                add_endnote(elt->children);
+            }
+            elt->children = NULL;
+        }
+        break;
+    case LOCATOR:
+        print_latex_element_list(out, elt->children);
+        break;
+    case DEFLIST:
+        g_string_append_printf(out, "\\begin{description}");
+        padded = 0;
+        print_latex_element_list(out, elt->children);
+        pad(out,1);
+        g_string_append_printf(out, "\\end{description}");
+        padded = 0;
+        break;
+    case TERM:
+        pad(out,2);
+        g_string_append_printf(out, "\\item[%s]", elt->contents.str);
+        padded = 0;
+        break;
+    case DEFINITION:
+        pad(out,2);
+        padded = 2;
+        print_latex_element_list(out, elt->children);
+        padded = 0;
+        break;
+    case METADATA:
+        /* Metadata is present, so this should be a "complete" document */
+        print_latex_header(out, elt);
+        break;
+    case METAKEY:
+        if (strcmp(elt->contents.str, "title") == 0) {
+            g_string_append_printf(out, "\\def\\mytitle{");
+            print_latex_element_list(out, elt->children);
+            g_string_append_printf(out, "}\n");
+        } else if (strcmp(elt->contents.str, "author") == 0) {
+            g_string_append_printf(out, "\\def\\myauthor{");
+            print_latex_element_list(out, elt->children);
+            g_string_append_printf(out, "}\n");
+        } else if (strcmp(elt->contents.str, "date") == 0) {
+            g_string_append_printf(out, "\\def\\mydate{");
+            print_latex_element_list(out, elt->children);
+            g_string_append_printf(out, "}\n");
+        } else if (strcmp(elt->contents.str, "copyright") == 0) {
+            g_string_append_printf(out, "\\def\\mycopyright{");
+            print_latex_element_list(out, elt->children);
+            g_string_append_printf(out, "}\n");
+        } else if (strcmp(elt->contents.str, "baseheaderlevel") == 0) {
+            base_header_level = atoi(elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "latexheaderlevel") == 0) {
+            base_header_level = atoi(elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "latexinput") == 0) {
+            g_string_append_printf(out, "\\input{%s}\n", elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "latexfooter") == 0) {
+            latex_footer = elt->children->contents.str;
+        } else if (strcmp(elt->contents.str, "bibtex") == 0) {
+            g_string_append_printf(out, "\\def\\bibliocommand{\\bibliography{%s}}\n",elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "xhtmlheader") == 0) {
+        } else if (strcmp(elt->contents.str, "htmlheader") == 0) {
+        } else if (strcmp(elt->contents.str, "css") == 0) {
+        } else if (strcmp(elt->contents.str, "quoteslanguage") == 0) {
+            label = label_from_element_list(elt->children, 0);
+            if (strcmp(label, "dutch") == 0) { language = DUTCH; } else 
+            if (strcmp(label, "german") == 0) { language = GERMAN; } else 
+            if (strcmp(label, "germanguillemets") == 0) { language = GERMANGUILL; } else 
+            if (strcmp(label, "french") == 0) { language = FRENCH; } else 
+            if (strcmp(label, "swedish") == 0) { language = SWEDISH; }
+            free(label);
+        } else {
+            g_string_append_printf(out, "\\def\\");
+            print_latex_string(out, elt->contents.str);
+            g_string_append_printf(out, "{");
+            print_latex_element_list(out, elt->children);
+            g_string_append_printf(out, "}\n");
+        }
+        break;
+    case METAVALUE:
+        print_latex_string(out, elt->contents.str);
+        break;
+    case FOOTER:
+        print_latex_endnotes(out);
+        print_latex_footer(out);
+        break;
+    case HEADINGSECTION:
+        print_latex_element_list(out, elt->children);
+        break;
+    case TABLE:
+        pad(out, 2);
+        g_string_append_printf(out, "\\begin{table}[htbp]\n\\begin{minipage}{\\linewidth}\n\\setlength{\\tymax}{0.5\\linewidth}\n\\centering\n\\small\n");
+        print_latex_element_list(out, elt->children);
+        g_string_append_printf(out, "\n\\end{tabular}\n\\end{minipage}\n\\end{table}\n");
+        padded = 0;
+        break;
+    case TABLESEPARATOR:
+        g_string_append_printf(out, "\\begin{tabular}{@{}%s@{}} \\toprule\n", elt->contents.str);
+        break;
+    case TABLECAPTION:
+        if (elt->children->key == TABLELABEL) {
+            label = label_from_element_list(elt->children->children,0);
+        } else {
+            label = label_from_element_list(elt->children,0);
+        }
+        g_string_append_printf(out, "\\caption{");
+        print_latex_element_list(out, elt->children);
+        g_string_append_printf(out, "}\n\\label{%s}\n",label);
+        free(label);
+        break;
+    case TABLELABEL:
+        break;
+    case TABLEHEAD:
+        print_latex_element_list(out, elt->children);
+        g_string_append_printf(out, "\\midrule\n");
+        break;
+    case TABLEBODY:
+        print_latex_element_list(out, elt->children);
+        if ( ( elt->next != NULL ) && (elt->next->key == TABLEBODY) ) {
+            g_string_append_printf(out, "\n\\midrule\n");
+        } else {
+            g_string_append_printf(out, "\n\\bottomrule\n");
+        }
+        break;
+    case TABLEROW:
+        print_latex_element_list(out, elt->children);
+        g_string_append_printf(out, "\\\\\n");
+        break;
+    case TABLECELL:
+        padded = 2;
+        if ((elt->children != NULL) && (elt->children->key == CELLSPAN)) {
+            g_string_append_printf(out, "\\multicolumn{%d}{c}{", (int)strlen(elt->children->contents.str)+1);
+        }
+        print_latex_element_list(out, elt->children);
+        if ((elt->children != NULL) && (elt->children->key == CELLSPAN)) {
+            g_string_append_printf(out, "}");
+        }
+        if (elt->next != NULL) {
+            g_string_append_printf(out, "&");
+        }
+        break;
+    case CELLSPAN:
+        break;
+    case ATTRKEY:
+        g_string_append_printf(out, " %s=\"%s\"", elt->contents.str,
+            elt->children->contents.str);
+        break;
+    case MATHSPAN:
+        if (strncmp(&elt->contents.str[2],"\\begin",5) == 0) {
+            elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+            g_string_append_printf(out, "%s",&elt->contents.str[2]);
+        } else {
+            if ( elt->contents.str[strlen(elt->contents.str)-1] == ']') {
+                elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+                g_string_append_printf(out, "%s\\]", elt->contents.str);
+            } else {
+                elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+                g_string_append_printf(out, "$%s$", &elt->contents.str[2]);
+            }
+        }
+        break;
+    default: 
+        fprintf(stderr, "print_latex_element encountered unknown element key = %d\n", elt->key); 
+        exit(EXIT_FAILURE);
+    }
+}
+
+/**********************************************************************
+
+  Functions for printing Elements as groff (mm macros)
+
+ ***********************************************************************/
+
+static bool in_list_item = false; /* True if we're parsing contents of a list item. */
+
+/* print_groff_string - print string, escaping for groff */
+static void print_groff_string(GString *out, char *str) {
+    while (*str != '\0') {
+        switch (*str) {
+        case '\\':
+            g_string_append_printf(out, "\\e");
+            break;
+        default:
+            g_string_append_c(out, *str);
+        }
+    str++;
+    }
+}
+
+/* print_groff_mm_element_list - print a list of elements as groff ms */
+static void print_groff_mm_element_list(GString *out, element *list) {
+    int count = 1;
+    while (list != NULL) {
+        print_groff_mm_element(out, list, count);
+        list = list->next;
+        count++;
+    }
+}
+
+/* print_groff_mm_element - print an element as groff ms */
+static void print_groff_mm_element(GString *out, element *elt, int count) {
+    int lev;
+    switch (elt->key) {
+    case SPACE:
+        g_string_append_printf(out, "%s", elt->contents.str);
+        padded = 0;
+        break;
+    case LINEBREAK:
+        pad(out, 1);
+        g_string_append_printf(out, ".br\n");
+        padded = 0;
+        break;
+    case STR:
+        print_groff_string(out, elt->contents.str);
+        padded = 0;
+        break;
+    case ELLIPSIS:
+        g_string_append_printf(out, "...");
+        break;
+    case EMDASH:
+        g_string_append_printf(out, "\\[em]");
+        break;
+    case ENDASH:
+        g_string_append_printf(out, "\\[en]");
+        break;
+    case APOSTROPHE:
+        g_string_append_printf(out, "'");
+        break;
+    case SINGLEQUOTED:
+        g_string_append_printf(out, "`");
+        print_groff_mm_element_list(out, elt->children);
+        g_string_append_printf(out, "'");
+        break;
+    case DOUBLEQUOTED:
+        g_string_append_printf(out, "\\[lq]");
+        print_groff_mm_element_list(out, elt->children);
+        g_string_append_printf(out, "\\[rq]");
+        break;
+    case CODE:
+        g_string_append_printf(out, "\\fC");
+        print_groff_string(out, elt->contents.str);
+        g_string_append_printf(out, "\\fR");
+        padded = 0;
+        break;
+    case HTML:
+        /* don't print HTML */
+        break;
+    case LINK:
+        print_groff_mm_element_list(out, elt->contents.link->label);
+        g_string_append_printf(out, " (%s)", elt->contents.link->url);
+        padded = 0;
+        break;
+    case IMAGE:
+        g_string_append_printf(out, "[IMAGE: ");
+        print_groff_mm_element_list(out, elt->contents.link->label);
+        g_string_append_printf(out, "]");
+        padded = 0;
+        /* not supported */
+        break;
+    case EMPH:
+        g_string_append_printf(out, "\\fI");
+        print_groff_mm_element_list(out, elt->children);
+        g_string_append_printf(out, "\\fR");
+        padded = 0;
+        break;
+    case STRONG:
+        g_string_append_printf(out, "\\fB");
+        print_groff_mm_element_list(out, elt->children);
+        g_string_append_printf(out, "\\fR");
+        padded = 0;
+        break;
+    case LIST:
+        print_groff_mm_element_list(out, elt->children);
+        padded = 0;
+        break;
+    case RAW:
+        /* Shouldn't occur - these are handled by process_raw_blocks() */
+        assert(elt->key != RAW);
+        break;
+    case H1: case H2: case H3: case H4: case H5: case H6:
+        lev = elt->key - H1 + 1;
+        pad(out, 1);
+        g_string_append_printf(out, ".H %d \"", lev);
+        print_groff_mm_element_list(out, elt->children);
+        g_string_append_printf(out, "\"");
+        padded = 0;
+        break;
+    case PLAIN:
+        pad(out, 1);
+        print_groff_mm_element_list(out, elt->children);
+        padded = 0;
+        break;
+    case PARA:
+        pad(out, 1);
+        if (!in_list_item || count != 1)
+            g_string_append_printf(out, ".P\n");
+        print_groff_mm_element_list(out, elt->children);
+        padded = 0;
+        break;
+    case HRULE:
+        pad(out, 1);
+        g_string_append_printf(out, "\\l'\\n(.lu*8u/10u'");
+        padded = 0;
+        break;
+    case HTMLBLOCK:
+        /* don't print HTML block */
+        break;
+    case VERBATIM:
+        pad(out, 1);
+        g_string_append_printf(out, ".VERBON 2\n");
+        print_groff_string(out, elt->contents.str);
+        g_string_append_printf(out, ".VERBOFF");
+        padded = 0;
+        break;
+    case BULLETLIST:
+        pad(out, 1);
+        g_string_append_printf(out, ".BL");
+        padded = 0;
+        print_groff_mm_element_list(out, elt->children);
+        pad(out, 1);
+        g_string_append_printf(out, ".LE 1");
+        padded = 0;
+        break;
+    case ORDEREDLIST:
+        pad(out, 1);
+        g_string_append_printf(out, ".AL");
+        padded = 0;
+        print_groff_mm_element_list(out, elt->children);
+        pad(out, 1);
+        g_string_append_printf(out, ".LE 1");
+        padded = 0;
+        break;
+    case LISTITEM:
+        pad(out, 1);
+        g_string_append_printf(out, ".LI\n");
+        in_list_item = true;
+        padded = 2;
+        print_groff_mm_element_list(out, elt->children);
+        in_list_item = false;
+        break;
+    case BLOCKQUOTE:
+        pad(out, 1);
+        g_string_append_printf(out, ".DS I\n");
+        padded = 2;
+        print_groff_mm_element_list(out, elt->children);
+        pad(out, 1);
+        g_string_append_printf(out, ".DE");
+        padded = 0;
+        break;
+    case NOTELABEL:
+        /* Nonprinting */
+        break;
+    case NOTE:
+        /* if contents.str == 0, then print note; else ignore, since this
+         * is a note block that has been incorporated into the notes list */
+        if (elt->contents.str == 0) {
+            g_string_append_printf(out, "\\*F\n");
+            g_string_append_printf(out, ".FS\n");
+            padded = 2;
+            print_groff_mm_element_list(out, elt->children);
+            pad(out, 1);
+            g_string_append_printf(out, ".FE\n");
+            padded = 1; 
+        }
+        break;
+    case REFERENCE:
+        /* Nonprinting */
+        break;
+    default: 
+        fprintf(stderr, "print_groff_mm_element encountered unknown element key = %d\n", elt->key); 
+        exit(EXIT_FAILURE);
+    }
+}
+
+/**********************************************************************
+
+  Functions for printing Elements as ODF
+
+ ***********************************************************************/
+
+/* print_odf_code_string - print string, escaping for HTML and saving newlines 
+*/
+static void print_odf_code_string(GString *out, char *str) {
+    char *tmp;
+    while (*str != '\0') {
+        switch (*str) {
+        case '&':
+            g_string_append_printf(out, "&amp;");
+            break;
+        case '<':
+            g_string_append_printf(out, "&lt;");
+            break;
+        case '>':
+            g_string_append_printf(out, "&gt;");
+            break;
+        case '"':
+            g_string_append_printf(out, "&quot;");
+            break;
+        case '\n':
+            g_string_append_printf(out, "<text:line-break/>");
+            break;
+        case ' ':
+            tmp = str;
+            tmp++;
+            if (*tmp == ' ') {
+                tmp++;
+                if (*tmp == ' ') {
+                    tmp++;
+                    if (*tmp == ' ') {
+                        g_string_append_printf(out, "<text:tab/>");
+                        str = tmp;
+                    } else {
+                        g_string_append_printf(out, " ");
+                    }
+                } else {
+                    g_string_append_printf(out, " ");
+                }
+            } else {
+                g_string_append_printf(out, " ");
+            }
+            break;
+        default:
+               g_string_append_c(out, *str);
+        }
+    str++;
+    }
+}
+
+/* print_odf_string - print string, escaping for HTML and saving newlines */
+static void print_odf_string(GString *out, char *str) {
+    char *tmp;
+    while (*str != '\0') {
+        switch (*str) {
+        case '&':
+            g_string_append_printf(out, "&amp;");
+            break;
+        case '<':
+            g_string_append_printf(out, "&lt;");
+            break;
+        case '>':
+            g_string_append_printf(out, "&gt;");
+            break;
+        case '"':
+            g_string_append_printf(out, "&quot;");
+            break;
+        case '\n':
+            tmp = str;
+            tmp--;
+            if (*tmp == ' ') {
+                tmp--;
+                if (*tmp == ' ') {
+                    g_string_append_printf(out, "<text:line-break/>");
+                } else {
+                    g_string_append_printf(out, "\n");
+                }
+            } else {
+                g_string_append_printf(out, "\n");
+            }
+            break;
+        case ' ':
+            tmp = str;
+            tmp++;
+            if (*tmp == ' ') {
+                tmp++;
+                if (*tmp == ' ') {
+                    tmp++;
+                    if (*tmp == ' ') {
+                        g_string_append_printf(out, "<text:tab/>");
+                        str = tmp;
+                    } else {
+                        g_string_append_printf(out, " ");
+                    }
+                } else {
+                    g_string_append_printf(out, " ");
+                }
+            } else {
+                g_string_append_printf(out, " ");
+            }
+            break;
+        default:
+               g_string_append_c(out, *str);
+        }
+    str++;
+    }
+}
+
+/* print_odf_element_list - print an element list as ODF */
+void print_odf_element_list(GString *out, element *list) {
+    while (list != NULL) {
+        print_odf_element(out, list);
+        list = list->next;
+    }
+}
+
+/* print_odf_element - print an element as ODF */
+void print_odf_element(GString *out, element *elt) {
+    int lev;
+    char *label;
+    char *height;
+    char *width;
+    int old_type = 0;
+    switch (elt->key) {
+    case SPACE:
+        g_string_append_printf(out, "%s", elt->contents.str);
+        break;
+    case LINEBREAK:
+        g_string_append_printf(out, "<text:line-break/>");
+        break;
+    case STR:
+        print_html_string(out, elt->contents.str, 0);
+        break;
+    case ELLIPSIS:
+        localize_typography(out, ELLIP, language, HTMLOUT);
+        break;
+    case EMDASH:
+        localize_typography(out, MDASH, language, HTMLOUT);
+        break;
+    case ENDASH:
+        localize_typography(out, NDASH, language, HTMLOUT);
+        break;
+    case APOSTROPHE:
+        localize_typography(out, APOS, language, HTMLOUT);
+        break;
+    case SINGLEQUOTED:
+        localize_typography(out, LSQUOTE, language, HTMLOUT);
+        print_odf_element_list(out, elt->children);
+        localize_typography(out, RSQUOTE, language, HTMLOUT);
+        break;
+    case DOUBLEQUOTED:
+        localize_typography(out, LDQUOTE, language, HTMLOUT);
+        print_odf_element_list(out, elt->children);
+        localize_typography(out, RDQUOTE, language, HTMLOUT);
+        break;
+    case CODE:
+        g_string_append_printf(out, "<text:span text:style-name=\"Source_20_Text\">");
+        print_html_string(out, elt->contents.str, 0);
+        g_string_append_printf(out, "</text:span>");
+        break;
+    case HTML:
+        break;
+    case LINK:
+        if (elt->contents.link->url[0] == '#') {
+            /* This is a cross-reference */
+            label = label_from_string(elt->contents.link->url,0);
+            if (elt->contents.link->label != NULL) {
+                g_string_append_printf(out, "<text:a xlink:type=\"simple\" xlink:href=\"#%s\">",label);
+                print_latex_element_list(out, elt->contents.link->label);
+                g_string_append_printf(out,"</text:a>");
+            } else {
+                
+            }
+        } else {
+            g_string_append_printf(out, "<text:a xlink:type=\"simple\" xlink:href=\"");
+            print_html_string(out, elt->contents.link->url, 0);
+            g_string_append_printf(out, "\"");
+            if (strlen(elt->contents.link->title) > 0) {
+                g_string_append_printf(out, " office:name=\"");
+                print_html_string(out, elt->contents.link->title, 0);
+                g_string_append_printf(out, "\"");
+            }
+    /*        print_html_element_list(out, elt->contents.link->attr, obfuscate);*/
+            g_string_append_printf(out, ">");
+            print_odf_element_list(out, elt->contents.link->label);
+            g_string_append_printf(out, "</text:a>");
+        }
+        break;
+    case IMAGEBLOCK:
+        g_string_append_printf(out, "<text:p>\n");
+    case IMAGE:
+        height = dimension_for_attribute("height", elt->contents.link->attr);
+        width = dimension_for_attribute("width", elt->contents.link->attr);
+        g_string_append_printf(out, "<draw:frame text:anchor-type=\"as-char\"\ndraw:z-index=\"0\" draw:style-name=\"fr1\" ");
+        /* need both attributes for image to be visible */
+        if ((width != NULL)) {
+            g_string_append_printf(out, "svg:width=\"%s\"\n", width);
+        } else {
+            g_string_append_printf(out, "svg:width=\"95%%\"\n");
+        }
+        g_string_append_printf(out, ">\n<draw:text-box><text:p><draw:frame text:anchor-type=\"as-char\" draw:z-index=\"1\" ");
+        if ((height != NULL) && (width != NULL)) {
+            g_string_append_printf(out, "svg:height=\"%s\"\n",height);
+            g_string_append_printf(out, "svg:width=\"%s\"\n", width);
+        }
+        g_string_append_printf(out, "><draw:image xlink:href=\"");
+        print_odf_string(out, elt->contents.link->url);
+        g_string_append_printf(out,"\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\" draw:filter-name=\"&lt;All formats&gt;\"/>\n</draw:frame></text:p>");
+        if (elt->key == IMAGEBLOCK) {
+            g_string_append_printf(out, "<text:p>");
+            if (elt->contents.link->label != NULL) {
+                g_string_append_printf(out, "Figure <text:sequence text:name=\"Figure\" text:formula=\"ooow:Figure+1\" style:num-format=\"1\"> Update Fields to calculate numbers</text:sequence>: ");
+                print_odf_element_list(out, elt->contents.link->label);
+            }
+            g_string_append_printf(out, "</text:p></draw:text-box></draw:frame>\n</text:p>\n");
+        } else {
+            g_string_append_printf(out, "</draw:text-box></draw:frame>\n");
+        }
+        break;
+    case EMPH:
+        g_string_append_printf(out,
+            "<text:span text:style-name=\"MMD-Italic\">");
+        print_odf_element_list(out, elt->children);
+        g_string_append_printf(out, "</text:span>");
+        break;
+    case STRONG:
+        g_string_append_printf(out,
+            "<text:span text:style-name=\"MMD-Bold\">");
+        print_odf_element_list(out, elt->children);
+        g_string_append_printf(out, "</text:span>");
+        break;
+    case LIST:
+        print_odf_element_list(out, elt->children);
+        break;
+    case RAW:
+        /* Shouldn't occur - these are handled by process_raw_blocks() */
+        assert(elt->key != RAW);
+        break;
+    case H1: case H2: case H3: case H4: case H5: case H6:
+        lev = elt->key - H1 + base_header_level;  /* assumes H1 ... H6 are in order */
+        g_string_append_printf(out, "<text:h text:outline-level=\"%d\">", lev);
+        if (elt->children->key == AUTOLABEL) {
+            /* generate a label for each header (MMD)*/
+            g_string_append_printf(out,"<text:bookmark text:name=\"%s\"/>", elt->children->contents.str);
+            print_odf_element_list(out, elt->children->next);
+            g_string_append_printf(out,"<text:bookmark-end text:name=\"%s\"/>", elt->children->contents.str);
+        } else {
+            label = label_from_element_list(elt->children, 0);
+            g_string_append_printf(out,"<text:bookmark text:name=\"%s\"/>", label);
+            print_odf_element_list(out, elt->children);
+            g_string_append_printf(out,"<text:bookmark-end text:name=\"%s\"/>", label);
+            free(label);
+        }
+        g_string_append_printf(out, "</text:h>\n");
+        padded = 0;
+        break;
+    case PLAIN:
+        print_odf_element_list(out, elt->children);
+        padded = 0;
+        break;
+    case PARA:
+        g_string_append_printf(out, "<text:p");
+        switch (odf_type) {
+            case DEFINITION:
+            case BLOCKQUOTE:
+                g_string_append_printf(out," text:style-name=\"Quotations\"");
+                break;
+            case CODE:
+                g_string_append_printf(out," text:style-name=\"Preformatted Text\"");
+                break;
+            case VERBATIM:
+                g_string_append_printf(out," text:style-name=\"Preformatted Text\"");
+                break;
+            case ORDEREDLIST:
+            case BULLETLIST:
+                g_string_append_printf(out," text:style-name=\"P2\"");
+                break;
+            case NOTE:
+                g_string_append_printf(out," text:style-name=\"Footnote\"");
+                break;
+            default:
+                g_string_append_printf(out," text:style-name=\"Standard\"");
+                break;
+        }
+        g_string_append_printf(out, ">");
+        print_odf_element_list(out, elt->children);
+        g_string_append_printf(out, "</text:p>\n");
+        break;
+    case HRULE:
+        g_string_append_printf(out,"<text:p text:style-name=\"Horizontal_20_Line\"/>\n");
+        break;
+    case HTMLBLOCK:
+        /* don't print HTML block */
+        /* but do print HTML comments for raw ODF */
+        if (strncmp(elt->contents.str,"<!--",4) == 0) {
+            /* trim "-->" from end */
+            elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+            g_string_append_printf(out, "%s", &elt->contents.str[4]);
+        }
+        break;
+    case VERBATIM:
+        old_type = odf_type;
+        odf_type = VERBATIM;
+        g_string_append_printf(out, "<text:p text:style-name=\"Preformatted Text\">");
+        print_odf_code_string(out, elt->contents.str);
+        g_string_append_printf(out, "</text:p>\n");
+        odf_type = old_type;
+        break;
+    case BULLETLIST:
+        if ((odf_type == BULLETLIST) ||
+            (odf_type == ORDEREDLIST)) {
+            /* I think this was made unnecessary by another change.
+            Same for ORDEREDLIST below */
+            /*  g_string_append_printf(out, "</text:p>"); */
+        }
+        old_type = odf_type;
+        odf_type = BULLETLIST;
+        g_string_append_printf(out, "%s", "<text:list>");
+        print_odf_element_list(out, elt->children);
+        g_string_append_printf(out, "%s", "</text:list>");
+        odf_type = old_type;
+        break;
+    case ORDEREDLIST:
+        if ((odf_type == BULLETLIST) ||
+            (odf_type == ORDEREDLIST)) {
+            /* g_string_append_printf(out, "</text:p>"); */
+        }
+        old_type = odf_type;
+        odf_type = ORDEREDLIST;
+        g_string_append_printf(out, "%s", "<text:list>\n");
+        print_odf_element_list(out, elt->children);
+        g_string_append_printf(out, "%s", "</text:list>\n");
+        odf_type = old_type;
+        break;
+    case LISTITEM:
+        g_string_append_printf(out, "<text:list-item>\n");
+        if (elt->children->children->key != PARA) {
+            g_string_append_printf(out, "<text:p text:style-name=\"P2\">");
+        }
+        print_odf_element_list(out, elt->children);
+
+        if ((list_contains_key(elt->children,BULLETLIST) ||
+            (list_contains_key(elt->children,ORDEREDLIST)))) {
+            } else {
+                if (elt->children->children->key != PARA) {
+                    g_string_append_printf(out, "</text:p>");
+                }
+            }
+        g_string_append_printf(out, "</text:list-item>\n");
+        break;
+    case BLOCKQUOTE:
+        old_type = odf_type;
+        odf_type = BLOCKQUOTE;
+        print_odf_element_list(out, elt->children);
+        odf_type = old_type;
+        break;
+    case REFERENCE:
+        break;
+    case NOTELABEL:
+        break;
+    case NOTE:
+        old_type = odf_type;
+        odf_type = NOTE;
+        /* if contents.str == 0 then print; else ignore - like above */
+        if (elt->contents.str == 0) {
+            if (elt->children->key == GLOSSARYTERM) {
+                g_string_append_printf(out, "<text:note text:id=\"\" text:note-class=\"glossary\"><text:note-body>\n");
+                print_odf_element_list(out, elt->children);
+                g_string_append_printf(out, "</text:note-body>\n</text:note>\n");
+            } else {
+                g_string_append_printf(out, "<text:note text:id=\"\" text:note-class=\"footnote\"><text:note-body>\n");
+                print_odf_element_list(out, elt->children);
+                g_string_append_printf(out, "</text:note-body>\n</text:note>\n");
+            }
+       }
+        elt->children = NULL;
+        odf_type = old_type;
+        break;
+    case GLOSSARY:
+        break;
+    case GLOSSARYTERM:
+        g_string_append_printf(out, "<text:p text:style-name=\"Glossary\">");
+        print_odf_string(out, elt->children->contents.str);
+        g_string_append_printf(out, ":");
+        g_string_append_printf(out, "</text:p>");
+        break;
+    case GLOSSARYSORTKEY:
+        break;
+    case NOCITATION:
+    case CITATION:
+        if (strncmp(elt->contents.str,"[#",2) == 0) {
+            /* bibtex citation key */
+            g_string_append_printf(out, "%s", elt->contents.str);
+        } else {
+            g_string_append_printf(out, "[#%s]", elt->contents.str);
+        }
+        elt->children = NULL;
+        break;
+    case DEFLIST:
+        print_odf_element_list(out, elt->children);
+        break;
+    case TERM:
+        g_string_append_printf(out, "<text:p><text:span text:style-name=\"MMD-Bold\">");
+        print_odf_string(out, elt->contents.str);
+        g_string_append_printf(out, "</text:span></text:p>");
+        break;
+    case DEFINITION:
+        old_type = odf_type;
+        odf_type = DEFINITION;
+        g_string_append_printf(out, "<text:p text:style-name=\"Quotations\">");
+        print_odf_element_list(out, elt->children);
+        g_string_append_printf(out, "</text:p>");
+        odf_type = old_type;
+        break;
+    case METADATA:
+        g_string_append_printf(out, "<office:meta>\n");
+        print_odf_element_list(out, elt->children);
+        g_string_append_printf(out, "</office:meta>\n");
+        element *header;
+        header = metadata_for_key("odfheader",elt);
+        if (header != NULL) {
+            print_raw_element(out,header->children);
+        }
+        break;
+    case METAKEY:
+        if (strcmp(elt->contents.str, "title") == 0) {
+            g_string_append_printf(out, "<dc:title>");
+            print_odf_element(out, elt->children);
+            g_string_append_printf(out,"</dc:title>\n");
+        } else if (strcmp(elt->contents.str, "css") == 0) {
+        } else if (strcmp(elt->contents.str, "baseheaderlevel") == 0) {
+            base_header_level = atoi(elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "odfheaderlevel") == 0) {
+            base_header_level = atoi(elt->children->contents.str);
+        } else if (strcmp(elt->contents.str, "xhtmlheader") == 0) {
+        } else if (strcmp(elt->contents.str, "htmlheader") == 0) {
+        } else if (strcmp(elt->contents.str, "odfheader") == 0) {
+        } else if (strcmp(elt->contents.str, "latexfooter") == 0) {
+        } else if (strcmp(elt->contents.str, "latexinput") == 0) {
+        } else if (strcmp(elt->contents.str, "latexmode") == 0) {
+        } else if (strcmp(elt->contents.str, "keywords") == 0) {
+            g_string_append_printf(out, "<meta:keyword>");
+            print_odf_element(out,elt->children);
+            g_string_append_printf(out, "</meta:keyword>\n");
+        } else if (strcmp(elt->contents.str, "quoteslanguage") == 0) {
+             label = label_from_element_list(elt->children, 0);
+             if (strcmp(label, "dutch") == 0) { language = DUTCH; } else 
+             if (strcmp(label, "german") == 0) { language = GERMAN; } else 
+             if (strcmp(label, "germanguillemets") == 0) { language = GERMANGUILL; } else 
+             if (strcmp(label, "french") == 0) { language = FRENCH; } else 
+             if (strcmp(label, "swedish") == 0) { language = SWEDISH; }
+             free(label);
+        } else {
+            g_string_append_printf(out, "<meta:user-defined meta:name=\"");
+            print_odf_string(out,elt->contents.str);
+            g_string_append_printf(out, "\">");
+            print_odf_element(out, elt->children);
+            g_string_append_printf(out,"</meta:user-defined>\n");
+        }
+        break;
+    case METAVALUE:
+        print_odf_string(out, elt->contents.str);
+        break;
+    case FOOTER:
+        break;
+    case HEADINGSECTION:
+        print_odf_element_list(out, elt->children);
+        break;
+    case TABLE:
+        g_string_append_printf(out,"\n<table:table>\n");
+        print_odf_element_list(out, elt->children);
+        g_string_append_printf(out, "</table:table>");
+        /* print caption if present */
+        if (elt->children->key == TABLECAPTION) {
+            if (elt->children->children->key == TABLELABEL) {
+                label = label_from_element_list(elt->children->children->children,0);
+            } else {
+                label = label_from_element_list(elt->children->children,0);
+            }
+            g_string_append_printf(out,"<text:p><text:bookmark text:name=\"%s\"/>Table <text:sequence text:name=\"Table\" text:formula=\"ooow:Table+1\" style:num-format=\"1\"> Update Fields to calculate numbers</text:sequence>:", label);
+            print_odf_element_list(out,elt->children->children);
+            g_string_append_printf(out, "<text:bookmark-end text:name=\"%s\"/></text:p>\n",label);
+            free(label);
+        }
+        break;
+   case TABLESEPARATOR:
+       table_alignment = elt->contents.str;
+       break;
+    case TABLECAPTION:
+        break;
+    case TABLELABEL:
+        break;
+    case TABLEHEAD:
+        for (table_column=0;table_column<strlen(table_alignment);table_column++) {
+            g_string_append_printf(out, "<table:table-column/>\n");
+        }
+        cell_type = 'h';
+        print_odf_element_list(out, elt->children);
+        cell_type = 'd';
+        break;
+    case TABLEBODY:
+        print_odf_element_list(out,elt->children);
+        break;
+    case TABLEROW:
+        g_string_append_printf(out, "<table:table-row>\n");
+        table_column = 0;
+        print_odf_element_list(out,elt->children);
+        g_string_append_printf(out,"</table:table-row>\n");
+        break;
+    case TABLECELL:
+        g_string_append_printf(out, "<table:table-cell");
+        if ((elt->children != NULL) && (elt->children->key == CELLSPAN)) {
+            g_string_append_printf(out, " table:number-columns-spanned=\"%d\"",(int)strlen(elt->children->contents.str)+1);
+        }
+        g_string_append_printf(out,">\n<text:p");
+        if (cell_type == 'h') {
+            g_string_append_printf(out, " text:style-name=\"Table_20_Heading\"");
+        } else {
+            if ( strncmp(&table_alignment[table_column],"r",1) == 0) {
+                g_string_append_printf(out, " text:style-name=\"MMD-Table-Right\"");
+            } else if ( strncmp(&table_alignment[table_column],"c",1) == 0) {
+                g_string_append_printf(out, " text:style-name=\"MMD-Table-Center\"");
+            } else {
+                g_string_append_printf(out, " text:style-name=\"MMD-Table\"");
+}
+        }
+        g_string_append_printf(out, ">");
+        print_odf_element_list(out,elt->children);
+        g_string_append_printf(out, "</text:p>\n</table:table-cell>\n");
+        table_column++;
+        break;
+    case CELLSPAN:
+        break;  
+    case MATHSPAN:
+        if ( elt->contents.str[strlen(elt->contents.str)-1] == ']') {
+            elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+            g_string_append_printf(out, "<text:span text:style-name=\"math\">%s\\]</text:span>", elt->contents.str);
+        } else {
+            elt->contents.str[strlen(elt->contents.str)-3] = '\0';
+            g_string_append_printf(out, "<text:span text:style-name=\"math\">%s\\)</text:span>", elt->contents.str);
+        }
+        break;  default:
+        fprintf(stderr, "print_html_element encountered unknown element key = %d\n", elt->key);
+        exit(EXIT_FAILURE);
+    }
+}
+
+/**********************************************************************
+
+  Parameterized function for printing an Element.
+
+ ***********************************************************************/
+
+void print_element_list(GString *out, element *elt, int format, int exts) {
+    /* Initialize globals */
+    endnotes = NULL;
+    notenumber = 0;
+
+    /* And MultiMarkdown globals */
+    base_header_level = 1;
+    language = ENGLISH;
+    html_footer = FALSE;
+    no_latex_footnote = FALSE;
+
+    extensions = exts;
+    padded = 2;  /* set padding to 2, so no extra blank lines at beginning */
+
+    format = find_latex_mode(format, elt);
+    switch (format) {
+    case HTML_FORMAT:
+        print_html_element_list(out, elt, false);
+        if (endnotes != NULL) {
+            pad(out, 2);
+            print_html_endnotes(out);
+        }
+        if (html_footer == TRUE) print_html_footer(out, false);
+        break;
+    case LATEX_FORMAT:
+        print_latex_element_list(out, elt);
+        break;
+    case MEMOIR_FORMAT:
+        print_memoir_element_list(out, elt);
+        break;
+    case BEAMER_FORMAT:
+        print_beamer_element_list(out, elt);
+        break;
+    case OPML_FORMAT:
+        g_string_append_printf(out, "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<opml version=\"1.0\">\n");
+        g_string_append_printf(out, "<body>\n");
+        print_opml_element_list(out, elt);
+        if (html_footer == TRUE) print_opml_metadata(out, elt);
+        g_string_append_printf(out, "</body>\n</opml>");
+        break;
+    case ODF_FORMAT:
+        print_odf_header(out);
+        if (elt->key == METADATA) {
+            /* print metadata */
+            print_odf_element(out,elt);
+            elt = elt->next;
+        }
+        g_string_append_printf(out, "<office:body>\n<office:text>\n");
+        if (elt != NULL) print_odf_element_list(out,elt);
+        print_odf_footer(out);
+        break;
+    case ODF_BODY_FORMAT:
+        if (elt != NULL) print_odf_body_element_list(out, elt);
+        break;
+    case GROFF_MM_FORMAT:
+        print_groff_mm_element_list(out, elt);
+        break;
+    default:
+        fprintf(stderr, "print_element - unknown format = %d\n", format); 
+        exit(EXIT_FAILURE);
+    }
+}
+
+
+/**********************************************************************
+
+  MultiMarkdown Routines - Used for generating "complete" documents
+
+ ***********************************************************************/
+
+
+void print_html_header(GString *out, element *elt, bool obfuscate) {
+    g_string_append_printf(out,
+"<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\" ?>\n<!DOCTYPE html>\n<html xmlns=\"http://www.w3.org/1999/xhtml\">\n<head>\n");
+
+    print_html_element_list(out, elt->children, obfuscate);
+    g_string_append_printf(out, "</head>\n<body>\n");    
+}
+
+
+void print_html_footer(GString *out, bool obfuscate) {
+    g_string_append_printf(out, "\n</body>\n</html>");
+}
+
+
+void print_latex_header(GString *out, element *elt) {
+    print_latex_element_list(out, elt->children);
+}
+
+
+void print_latex_footer(GString *out) {
+    if (latex_footer != NULL) {
+        pad(out,2);
+        g_string_append_printf(out, "\\input{%s}\n", latex_footer);
+    }
+	g_string_append_printf(out, "\n\\end{document}");
+}
+
+
+/* print_memoir_element_list - print an element as LaTeX for memoir class */
+void print_memoir_element_list(GString *out, element *list) {
+    while (list != NULL) {
+        print_memoir_element(out, list);
+        list = list->next;
+    }
+}
+
+
+/* print_memoir_element - print an element as LaTeX for memoir class */
+static void print_memoir_element(GString *out, element *elt) {
+    int lev;
+    char *label;
+    switch (elt->key) {
+    case VERBATIM:
+        pad(out, 1);
+        g_string_append_printf(out, "\n\\begin{adjustwidth}{2.5em}{2.5em}\n\\begin{verbatim}\n\n");
+        print_raw_element(out, elt);
+        g_string_append_printf(out, "\n\\end{verbatim}\n\\end{adjustwidth}");
+        padded = 0;
+        break;
+    case HEADINGSECTION:
+        print_memoir_element_list(out, elt->children);
+        break;
+    case DEFLIST:
+        g_string_append_printf(out, "\\begin{description}");
+        padded = 0;
+        print_memoir_element_list(out, elt->children);
+        pad(out,1);
+        g_string_append_printf(out, "\\end{description}");
+        padded = 0;
+        break;
+    case DEFINITION:
+        pad(out,2);
+        padded = 2;
+        print_memoir_element_list(out, elt->children);
+        padded = 0;
+        break;
+    default:
+        /* most things are not changed for memoir output */
+        print_latex_element(out, elt);
+    }
+}
+
+
+/* print_beamer_element_list - print an element as LaTeX for beamer class */
+void print_beamer_element_list(GString *out, element *list) {
+    while (list != NULL) {
+        print_beamer_element(out, list);
+        list = list->next;
+    }
+}
+
+static void print_beamer_endnotes(GString *out) {
+    GSList *note;
+    element *note_elt;
+    if (endnotes == NULL) 
+        return;
+    note = g_slist_reverse(endnotes);
+    pad(out,2);
+    g_string_append_printf(out, "\\part{Bibliography}\n\\begin{frame}[allowframebreaks]\n\\frametitle{Bibliography}\n\\def\\newblock{}\n\\begin{thebibliography}{0}\n");
+    while (note != NULL) {
+        note_elt = note->data;
+        pad(out, 1);
+        g_string_append_printf(out, "\\bibitem{%s}\n", note_elt->contents.str);
+        padded=2;
+        print_latex_element_list(out, note_elt);
+        pad(out, 1);
+        note = note->next;
+    }
+    pad(out, 1);
+    g_string_append_printf(out, "\\end{thebibliography}\n\\end{frame}\n\n");
+    padded = 2;
+    g_slist_free(endnotes);
+}
+
+/* print_beamer_element - print an element as LaTeX for beamer class */
+static void print_beamer_element(GString *out, element *elt) {
+    int lev;
+    char *label;
+    switch (elt->key) {
+        case FOOTER:
+            print_beamer_endnotes(out);
+            g_string_append_printf(out, "\\mode<all>\n");
+            print_latex_footer(out);
+            g_string_append_printf(out, "\\mode*\n");
+            break;
+        case LISTITEM:
+            pad(out, 1);
+            g_string_append_printf(out, "\\item<+-> ");
+            padded = 2;
+            print_latex_element_list(out, elt->children);
+            g_string_append_printf(out, "\n");
+            break;
+        case HEADINGSECTION:
+            if (elt->children->key -H1 + base_header_level == 3) {
+                pad(out,2);
+               g_string_append_printf(out, "\\begin{frame}");
+                if (list_contains_key(elt->children,VERBATIM)) {
+                    g_string_append_printf(out, "[fragile]");
+                }
+                padded = 0;
+                print_beamer_element_list(out, elt->children);
+                g_string_append_printf(out, "\n\n\\end{frame}\n\n");
+                padded = 2;
+            } else if (elt->children->key -H1 + base_header_level == 4) {
+                pad(out, 1);
+                g_string_append_printf(out, "\\mode<article>{\n");
+                padded = 0;
+                print_beamer_element_list(out, elt->children->next);
+                g_string_append_printf(out, "\n\n}\n\n");
+                padded = 2;
+            } else {
+                print_beamer_element_list(out, elt->children);
+            }
+            break;
+        case H1: case H2: case H3: case H4: case H5: case H6:
+            pad(out, 2);
+            lev = elt->key - H1 + base_header_level;  /* assumes H1 ... H6 are in order */
+            switch (lev) {
+                case 1:
+                    g_string_append_printf(out, "\\part{");
+                    break;
+                case 2:
+                    g_string_append_printf(out, "\\section{");
+                    break;
+                case 3:
+                    g_string_append_printf(out, "\\frametitle{");
+                    break;
+                default:
+                    g_string_append_printf(out, "\\emph{");
+                    break;
+            }
+            /* generate a label for each header (MMD);
+                don't allow footnotes since invalid here */
+            no_latex_footnote = TRUE;
+            if (elt->children->key == AUTOLABEL) {
+                label = label_from_string(elt->children->contents.str,0);
+                print_latex_element_list(out, elt->children->next);
+            } else {
+                label = label_from_element_list(elt->children,0);
+                print_latex_element_list(out, elt->children);
+            }
+            no_latex_footnote = FALSE;
+            g_string_append_printf(out, "}\n\\label{");
+            g_string_append_printf(out, "%s", label);
+            g_string_append_printf(out, "}\n");
+            free(label);
+            padded = 1;
+            break;
+        default:
+        print_latex_element(out, elt);
+    }
+}
+
+
+element * print_html_headingsection(GString *out, element *list, bool obfuscate) {
+    element *base = list;
+    print_html_element_list(out, list->children, obfuscate);
+    
+    list = list->next;
+    while ( (list != NULL) && (list->key == HEADINGSECTION) && (list->children->key > base->children->key) && (list->children->key <= H6)) {
+        list = print_html_headingsection(out, list, obfuscate);
+    }
+
+    return list;
+}
+
+/* look for "LaTeX Mode" metadata and change format to match */
+static int find_latex_mode(int format, element *list) {
+    element *latex_mode;
+    char *label;
+    
+    if (format != LATEX_FORMAT) return format;
+    
+    if (list_contains_key(list,METAKEY)) {
+        latex_mode = metadata_for_key("latexmode", list);
+        if ( latex_mode != NULL) {
+            label = label_from_element_list(latex_mode->children, 0);
+            if (strcmp(label, "beamer") == 0) { format = BEAMER_FORMAT; } else 
+            if (strcmp(label, "memoir") == 0) { format = MEMOIR_FORMAT; } 
+            free(label);
+        }
+        return format;
+    } else {
+        return format;
+    }
+}
+
+
+/* find specified metadata key, if present */
+element * metadata_for_key(char *key, element *list) {
+    element *step = NULL;
+    step = list;
+    char *label;
+    
+    label = label_from_string(key,0);
+    
+    while (step != NULL) {
+        if (step->key == METADATA) {
+           /* search METAKEY children */
+            step = step->children;
+            while ( step != NULL) {
+                if (strcmp(step->contents.str, label) == 0) {
+                    free(label);
+                    return step;
+                }
+                step = step->next;
+            }
+            free(label);
+            return NULL;
+        }
+       step = step->next;
+    }
+    free(label);
+    return NULL;
+}
+
+
+/* find specified metadata key, if present */
+char * metavalue_for_key(char *key, element *list) {
+    element *step = NULL;
+    step = list;
+    char *label;
+    char *result;
+    
+    label = label_from_string(key,0);
+    
+    while (step != NULL) {
+        if (step->key == METADATA) {
+           /* search METAKEY children */
+            step = step->children;
+            while ( step != NULL) {
+                if (strcmp(step->contents.str, label) == 0) {
+                    /* Found a match */
+                    if ((strcmp(label,"latexmode") == 0) ||
+                        (strcmp(label,"quoteslanguage") == 0)) {
+                        result = label_from_string(step->children->contents.str,0);
+                    } else {
+                        result = strdup(step->children->contents.str);
+                    }
+                    free(label);
+                   return result;
+                }
+                step = step->next;
+            }
+            free(label);
+            return NULL;
+        }
+       step = step->next;
+    }
+    free(label);
+    return NULL;
+}
+
+/* find attribute, if present */
+element * element_for_attribute(char *querystring, element *list) {
+    element *step = NULL;
+    step = list;
+    char *query;
+    query = label_from_string(querystring,0);
+    
+    while (step != NULL) {
+        if (strcmp(step->contents.str,query) == 0) {
+            free(query);
+            return step;
+        }
+        step = step->next;
+    }
+    free(query);
+    return NULL;
+}
+
+/* convert attribute to dimensions suitable for LaTeX or ODF */
+/* returns c string that needs to be freed */
+
+char * dimension_for_attribute(char *querystring, element *list) {
+    element *attribute;
+    char *dimension;
+    char *ptr;
+    int i;
+    char *upper;
+    GString *result;
+
+    attribute = element_for_attribute(querystring, list);
+    if (attribute == NULL) return NULL;
+
+    dimension = strdup(attribute->children->contents.str);
+    upper = strdup(attribute->children->contents.str);
+
+    for(i = 0; dimension[ i ]; i++)
+        dimension[i] = tolower(dimension[ i ]);
+
+    for(i = 0; upper[ i ]; i++)
+        upper[i] = toupper(upper[ i ]);
+
+    if (strstr(dimension, "px")) {
+        ptr = strstr(dimension,"px");
+        ptr[0] = '\0';
+        strcat(ptr,"pt");
+    }
+
+    result = g_string_new(dimension);
+    
+    if ((strcmp(dimension,upper) == 0) && (dimension[strlen(dimension) -1] != '%')) {
+        /* no units */
+        g_string_append_printf(result, "pt");
+    }
+
+    free(upper);
+    free(dimension);
+    
+    dimension = result->str;
+    g_string_free(result, false);
+    return(dimension);
+}
+
+/* Check metadata keys and determine if I need a complete document */
+static bool is_html_complete_doc(element *meta) {
+    element *step;
+    step = meta->children;
+    
+    while (step != NULL) {
+        if ((strcmp(step->contents.str, "baseheaderlevel") != 0) &&
+            (strcmp(step->contents.str, "xhtmlheaderlevel") != 0) &&
+            (strcmp(step->contents.str, "htmlheaderlevel") != 0) &&
+            (strcmp(step->contents.str, "latexheaderlevel") != 0) &&
+            (strcmp(step->contents.str, "odfheaderlevel") != 0) &&
+            (strcmp(step->contents.str, "quoteslanguage") != 0))
+        {
+            return TRUE;
+        }
+        step = step->next;
+    }
+    
+    return FALSE;
+}
+
+
+/* print_opml_element_list - print an element list as OPML */
+void print_opml_element_list(GString *out, element *list) {
+    int lev;
+    while (list != NULL) {
+        if (list->key == HEADINGSECTION) {
+            lev = list->children->key;
+            
+            print_opml_section_and_children(out, list);
+            
+            while ((list->next != NULL) && (list->next->key == HEADINGSECTION)
+                && (list->next->children->key > lev)) {
+                    list = list->next;
+            }
+        } else {
+            print_opml_element(out, list);
+        }
+        list = list->next;
+    }
+}
+
+/* print_opml_section_and_children - print section and "children" */
+static void print_opml_section_and_children(GString *out, element *list) {
+    int lev = list->children->key;
+    /* Print current section, aka "parent" */
+    print_opml_element(out, list);
+    
+    /* check for children */
+    while ((list->next != NULL) && (list->next->key == HEADINGSECTION) 
+        && (list->next->children->key > lev)) {
+            /* next item is also HEADINGSECTION and is child */
+            if (list->next->children->key - lev == 1)
+                print_opml_section_and_children(out,list->next);
+            list = list->next;
+        }
+    g_string_append_printf(out, "</outline>\n");
+}
+
+/* print_opml_element - print an element as OPML */
+static void print_opml_element(GString *out, element *elt) {
+    switch (elt->key) {
+        case METADATA:
+            /* Metadata is present, so will need to be appended */
+            html_footer = true;
+            break;
+        case METAKEY:
+            g_string_append_printf(out, "<outline text=\"");
+            print_opml_string(out,elt->contents.str);
+            g_string_append_printf(out, "\" _note=\"");
+            print_opml_string(out, elt->children->contents.str);
+            g_string_append_printf(out, "\"/>");
+            break;
+        case HEADINGSECTION:
+            /* Need to handle "nesting" properly */
+            g_string_append_printf(out, "<outline ");
+            
+            /* Print header */
+            print_opml_element(out,elt->children);
+            
+            /* print remainder of paragraphs as note */
+            g_string_append_printf(out, " _note=\"");
+            print_opml_element_list(out,elt->children->next);
+            g_string_append_printf(out, "\">");
+            break;
+        case H1: case H2: case H3: case H4: case H5: case H6: 
+            g_string_append_printf(out, "text=\"");
+            print_opml_string(out, elt->contents.str);
+            g_string_append_printf(out,"\"");
+            break;
+        case VERBATIM:
+            print_opml_string(out, elt->contents.str);
+            break;
+        case SPACE:
+            print_opml_string(out, elt->contents.str);
+            break;
+        case STR:
+            print_opml_string(out, elt->contents.str);
+            break;
+        case LINEBREAK:
+            g_string_append_printf(out, "  &#10;");
+            break;
+        case PLAIN:
+            print_opml_element_list(out,elt->children);
+            if ((elt->next != NULL) && (elt->next->key == PLAIN)) {
+                g_string_append_printf(out, "&#10;");
+            }
+            break;
+        default: 
+            fprintf(stderr, "print_opml_element encountered unknown element key = %d\n", elt->key);
+            /*exit(EXIT_FAILURE);*/
+    }
+}
+
+/* print_opml_string - print string, escaping for OPML */
+static void print_opml_string(GString *out, char *str) {
+    while (*str != '\0') {
+        switch (*str) {
+        case '&':
+            g_string_append_printf(out, "&amp;");
+            break;
+        case '<':
+            g_string_append_printf(out, "&lt;");
+            break;
+        case '>':
+            g_string_append_printf(out, "&gt;");
+            break;
+        case '"':
+            g_string_append_printf(out, "&quot;");
+            break;
+        case '\n': case '\r':
+            g_string_append_printf(out, "&#10;");
+            break;
+        default:
+            g_string_append_c(out, *str);
+        }
+    str++;
+    }
+}
+
+
+/* print_opml_metadata - add metadata as last outline item */
+static void print_opml_metadata(GString *out, element *elt) {
+    g_string_append_printf(out, "<outline text=\"Metadata\">\n");
+    print_opml_element_list(out, elt->children);
+    g_string_append_printf(out, "</outline>");
+}
+
+/* print_odf_body_element - print an element as ODF */
+void print_odf_body_element(GString *out, element *elt) {
+    switch (elt->key) {
+    case PARA:
+        print_odf_element_list(out, elt->children);
+        break;
+    default:
+        print_odf_element(out, elt);
+    }
+}
+
+/* print_odf_body_element_list - print an element list as ODF for specific 
+    places, eg image captions */
+void print_odf_body_element_list(GString *out, element *list) {
+    while (list != NULL) {
+        print_odf_body_element(out, list);
+        list = list->next;
+    }
+}