heckyel/emacs-base
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added support Markdown

Browse Source
This commit is contained in:
Jesús 2018-07-25 22:23:12 -05:00
parent b5062a4097
commit 9392325a5b
No known key found for this signature in database
GPG Key ID: F6EE7BC59A315766
3 changed files with 39 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
custom.el
View File

@ -8,7 +8,9 @@
'(anzu-replace-threshold 1000)
'(anzu-replace-to-string-separator " => ")
'(anzu-search-threshold 1000)
'(package-selected-packages (quote (flycheck nlinum sublime-themes fullframe))))
'(package-selected-packages
(quote
(markdown-mode sublime-themes sml-modeline smart-mode-line-powerline-theme nlinum flycheck anzu))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.

2
init.el
View File

@ -36,7 +36,7 @@
;; Tools
(require 'init-flycheck)
;; Languages
(require 'init-markdown)
;;; Loads custom file
(when (file-exists-p custom-file)

35
lisp/init-markdown.el Normal file
View File

@ -0,0 +1,35 @@
;;----------------------------------------------------------------------------
;; Markdown mode
;;----------------------------------------------------------------------------
(require-package 'markdown-mode)
(autoload 'markdown-mode "markdown-mode"
"Major mode for editing Markdown files" t)
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
(eval-after-load "markdown-mode"
'(defalias 'markdown-add-xhtml-header-and-footer 'as/markdown-add-xhtml-header-and-footer))
;;----------------------------------------------------------------------------
;; Generated HTML 5 and UTF-8 with Markdown
;;----------------------------------------------------------------------------
(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)