From ced0fe8f9ef7cd16ade900bb34393c627f6d0c69 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jes=C3=BAs?= Date: Tue, 22 Jan 2019 15:45:41 -0500 Subject: Change directory lisp/ to modules/ FS #2 --- modules/init-markdown.el | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 modules/init-markdown.el (limited to 'modules/init-markdown.el') 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 "\n" + "\n" + "\n") + (insert title) + (insert "\n") + (insert "\n") + (when (> (length markdown-css-paths) 0) + (insert (mapconcat 'markdown-stylesheet-link-string markdown-css-paths "\n"))) + (insert "\n\n\n" + "\n\n") + (goto-char (point-max)) + (insert "\n" + "\n" + "\n"))) + +(provide 'init-markdown) + +;;; init-markdown.el ends here -- cgit v1.2.3