1 files changed, 37 insertions, 0 deletions
diff --git a/modules/init-markdown.el b/modules/init-markdown.el
new file mode 100644
index 0000000..b7032db
--- /dev/null
+++ b/modules/init-markdown.el
@@ -0,0 +1,37 @@
+;;; init-markdown.el --- .Emacs Configuration -*- lexical-binding: t -*-
+;;; Commentary:
+;;
+
+;;; Code:
+(use-package markdown-mode
+  :mode (("\\.markdown\\'" . markdown-mode)
+         ("\\.md\\'"       . markdown-mode))
+
+  :config
+  ;;----------------------------------------------------------------------------
+  ;; Generated HTML 5 and UTF-8 with Markdown
+  ;;----------------------------------------------------------------------------
+  (eval-after-load "markdown-mode"
+    '(defalias 'markdown-add-xhtml-header-and-footer 'as/markdown-add-xhtml-header-and-footer))
+
+  (defun as/markdown-add-xhtml-header-and-footer (title)
+    "Wrap XHTML header and footer with given TITLE around current buffer."
+    (goto-char (point-min))
+    (insert "<!DOCTYPE html>\n"
+	    "<html>\n"
+	    "<head>\n<title>")
+    (insert title)
+    (insert "</title>\n")
+    (insert "<meta charset=\"utf-8\" />\n")
+    (when (> (length markdown-css-paths) 0)
+      (insert (mapconcat 'markdown-stylesheet-link-string markdown-css-paths "\n")))
+    (insert "\n</head>\n\n"
+	    "<body>\n\n")
+    (goto-char (point-max))
+    (insert "\n"
+	    "</body>\n"
+	    "</html>\n")))
+
+(provide 'init-markdown)
+
+;;; init-markdown.el ends here