Commit 71cb129a authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

corrected html-wrap-document; Added DO NOT EDIT comment to html-unwrap-document output.

parent 74359a8b
......@@ -80,6 +80,8 @@
(class "document")
(document (first (grandchildren-tagged-and-valued html :div :class class)))
(id (value-of-attribute-named document :id)))
(write-line "<!-- THIS FILE IS GENERATED BY html-unwrap-document -->" output)
(write-line "<!-- PLEASE DO NOT EDIT THIS FILE! -->" output)
(unparse-html `(:div (:class ,class
:id ,id
:title ,(or title "")
......
......@@ -97,7 +97,7 @@
<!-- MENU-END -->
" output)
(unparse-html `(:div (:class ,class :id ,id)
,@contents)
,@(element-children document))
output)
(write-string "
<!-- MENU-BEGIN -->
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment