;;; packages.el --- Markdown Layer packages File for Spacemacs ;; ;; Copyright (c) 2012-2016 Sylvain Benner & Contributors ;; ;; Author: Sylvain Benner ;; URL: https://github.com/syl20bnr/spacemacs ;; ;; This file is not part of GNU Emacs. ;; ;;; License: GPLv3 (setq markdown-packages '( emoji-cheat-sheet-plus gh-md markdown-mode markdown-toc mmm-mode company company-emoji smartparens )) (defun markdown/post-init-emoji-cheat-sheet-plus () (add-hook 'markdown-mode-hook 'emoji-cheat-sheet-plus-display-mode)) (defun markdown/init-gh-md () (use-package gh-md :defer t :init (spacemacs/set-leader-keys-for-major-mode 'markdown-mode "cr" 'gh-md-render-buffer))) (defun markdown/post-init-smartparens () (add-hook 'markdown-mode-hook 'smartparens-mode)) (defun markdown/init-markdown-mode () (use-package markdown-mode :mode ("\\.m[k]d" . markdown-mode) :defer t :config (progn ;; Insert key for org-mode and markdown a la C-h k ;; from SE endless http://emacs.stackexchange.com/questions/2206/i-want-to-have-the-kbd-tags-for-my-blog-written-in-org-mode/2208#2208 (defun spacemacs/insert-keybinding-markdown (key) "Ask for a key then insert its description. Will work on both org-mode and any mode that accepts plain html." (interactive "kType key sequence: ") (let* ((tag "~%s~")) (if (null (equal key "\r")) (insert (format tag (help-key-description key nil))) (insert (format tag "")) (forward-char -6)))) ;; Declare prefixes and bind keys (dolist (prefix '(("mc" . "markdown/command") ("mh" . "markdown/header") ("mi" . "markdown/insert") ("ml" . "markdown/lists") ("mx" . "markdown/text"))) (spacemacs/declare-prefix-for-mode 'markdown-mode (car prefix) (cdr prefix))) (spacemacs/set-leader-keys-for-major-mode 'markdown-mode ;; Movement "{" 'markdown-backward-paragraph "}" 'markdown-forward-paragraph ;; Completion, and Cycling "]" 'markdown-complete ;; Indentation ">" 'markdown-indent-region "<" 'markdown-exdent-region ;; Buffer-wide commands "c]" 'markdown-complete-buffer "cc" 'markdown-check-refs "ce" 'markdown-export "cm" 'markdown-other-window "cn" 'markdown-cleanup-list-numbers "co" 'markdown-open "cp" 'markdown-preview "cP" 'markdown-live-preview-mode "cv" 'markdown-export-and-preview "cw" 'markdown-kill-ring-save ;; headings "hi" 'markdown-insert-header-dwim "hI" 'markdown-insert-header-setext-dwim "h1" 'markdown-insert-header-atx-1 "h2" 'markdown-insert-header-atx-2 "h3" 'markdown-insert-header-atx-3 "h4" 'markdown-insert-header-atx-4 "h5" 'markdown-insert-header-atx-5 "h6" 'markdown-insert-header-atx-6 "h!" 'markdown-insert-header-setext-1 "h@" 'markdown-insert-header-setext-2 ;; Insertion of common elements "-" 'markdown-insert-hr "if" 'markdown-insert-footnote "ii" 'markdown-insert-image "ik" 'spacemacs/insert-keybinding-markdown "iI" 'markdown-insert-reference-image "il" 'markdown-insert-link "iL" 'markdown-insert-reference-link-dwim "iw" 'markdown-insert-wiki-link "iu" 'markdown-insert-uri ;; Element removal "k" 'markdown-kill-thing-at-point ;; List editing "li" 'markdown-insert-list-item ;; region manipulation "xb" 'markdown-insert-bold "xi" 'markdown-insert-italic "xc" 'markdown-insert-code "xC" 'markdown-insert-gfm-code-block "xq" 'markdown-insert-blockquote "xQ" 'markdown-blockquote-region "xp" 'markdown-insert-pre "xP" 'markdown-pre-region ;; Following and Jumping "N" 'markdown-next-link "f" 'markdown-follow-thing-at-point "P" 'markdown-previous-link "" 'markdown-jump) ;; Header navigation in normal state movements (evil-define-key 'normal markdown-mode-map "gj" 'outline-forward-same-level "gk" 'outline-backward-same-level "gh" 'outline-up-heading ;; next visible heading is not exactly what we want but close enough "gl" 'outline-next-visible-heading) ;; Promotion, Demotion (define-key markdown-mode-map (kbd "M-h") 'markdown-promote) (define-key markdown-mode-map (kbd "M-j") 'markdown-move-down) (define-key markdown-mode-map (kbd "M-k") 'markdown-move-up) (define-key markdown-mode-map (kbd "M-l") 'markdown-demote)))) (defun markdown/init-markdown-toc () (use-package markdown-toc :defer t)) (defun markdown/init-mmm-mode () (use-package mmm-mode :commands mmm-parse-buffer :init (spacemacs/set-leader-keys-for-major-mode 'markdown-mode ;; Highlight code blocks "cs" 'mmm-parse-buffer) :config (progn (mmm-add-classes '((markdown-python :submode python-mode :face mmm-declaration-submode-face :front "^```python[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-html :submode web-mode :face mmm-declaration-submode-face :front "^```html[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-java :submode java-mode :face mmm-declaration-submode-face :front "^```java[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-ruby :submode ruby-mode :face mmm-declaration-submode-face :front "^```ruby[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-c :submode c-mode :face mmm-declaration-submode-face :front "^```c[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-c++ :submode c++-mode :face mmm-declaration-submode-face :front "^```c\+\+[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-elisp :submode emacs-lisp-mode :face mmm-declaration-submode-face :front "^```elisp[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-javascript :submode javascript-mode :face mmm-declaration-submode-face :front "^```javascript[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-ess :submode R-mode :face mmm-declaration-submode-face :front "^```{?r.*}?[\n\r]+" :back "^```$"))) (mmm-add-classes '((markdown-rust :submode rust-mode :face mmm-declaration-submode-face :front "^```rust[\n\r]+" :back "^```$"))) (setq mmm-global-mode t) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-python) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-java) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-ruby) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-c) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-c++) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-elisp) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-html) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-javascript) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-ess) (mmm-add-mode-ext-class 'markdown-mode nil 'markdown-rust)))) (when (configuration-layer/layer-usedp 'auto-completion) (defun markdown/post-init-company () (spacemacs|add-company-hook markdown-mode) (push 'company-capf company-backends-markdown-mode)) (defun markdown/post-init-company-emoji () (push 'company-emoji company-backends-markdown-mode)))