1 files changed, 53 insertions, 0 deletions
diff --git a/structure/book/00-preamble.md b/structure/book/00-preamble.md
new file mode 100644
index 0000000..fea2bc0
--- /dev/null
+++ b/structure/book/00-preamble.md
@@ -0,0 +1,53 @@
+<!-- Bookdown HTML before-body file -->
+
+<!-- Hack to generate a proper cover and fix the missing index.html file -->
+<!-- See https://stackoverflow.com/questions/58340924/bookdown-generates-index-file-with-a-chapter-title-instead-of-index-html-when -->
+<!-- See https://bookdown.org/yihui/rmarkdown-cookbook/document-metadata.html -->
+```{r echo=FALSE, results='asis'}
+if (knitr::is_html_output()) {
+  cat('# Início {#index .unnumbered}')
+  cat("\n")
+  cat('<img src="images/cover.png">')
+  cat("\n")
+  cat("<h2>Sobre</h2>")
+  cat("\n")
+  cat('<em>')
+  cat(readLines('DISCLAIMER'), sep='\n')
+  cat('</em>')
+  cat('<br/><br/>')
+  cat('Livro Vivo - Versão <strong><em>')
+  cat(readLines('.metadata/revision.txt'), sep='\n')
+  cat('</em></strong> - compilada em <strong><em>')
+  cat(readLines('.metadata/date.txt'), sep='\n')
+  cat('</em></strong>.')
+  cat('<br/>')
+  cat('Versões anteriores disponíveis no <a href="/archive">arquivo</a>.')
+  cat('<br/><br/>')
+  cat(readLines('snippets/project.txt'))
+  cat(' - ')
+  cat(readLines('snippets/volume.txt'))
+  cat('<br/>')
+  cat('Publicado por ')
+  cat(rmarkdown::metadata$publisher)
+  cat('<br/>')
+  cat('Publicado em ')
+  cat(readLines('snippets/url.txt'), sep='\n')
+  cat('<br/><br/>')
+  cat(readLines('snippets/keywords.txt'), sep='\n')
+  cat("\n")
+  cat("<h2>Créditos</h2>")
+  cat("\n")
+  cat(paste(rmarkdown::metadata$title, "<br/>", "Copyleft &copy;", readLines('.metadata/year.txt'), rmarkdown::metadata$author, readLines('snippets/contact.txt'), sep=' '))
+  cat('<br/><br/>')
+  cat(readLines('LICENSE'), sep='\n')
+  cat('<br/><br/>')
+  cat(readLines('snippets/cover.txt'), sep='\n')
+  cat("<h2>Versão PDF</h2>")
+  cat("\n")
+  cat('Baixe a versão PDF <a href="book.pdf">aqui</a>, ou navegue abaixo:')
+  cat("\n")
+  cat('<br/><br/>')
+  cat('<embed src="book.pdf" width="100%" height="375" type="application/pdf">')
+  cat('<br/><br/>')
+}
+```