Change directory lisp/ to modules/

FS #2
2019-01-22 15:45:41 -05:00
parent d0f44d8546
commit ced0fe8f9e
44 changed files with 366 additions and 68 deletions
--- a/modules/init-markdown.el
+++ 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