5df76ed1d1
When Spacemacs is used in daemon mode, the `PATH` is not always filled up with user-defined run paths when Spacemacs load the packages. The `toggle` of the `vmd` package is checking for the `vmd` executable which may be in one of the user path, what prevent the package to be loaded, even if the executable is available at execution time. If people want to use `vmd`, setting `markdown-live-preview-engine` should be enough, there is no need for checking for the executable to be present, this is the responsability of the user to ensure this.
226 lines
8.8 KiB
EmacsLisp
226 lines
8.8 KiB
EmacsLisp
;;; packages.el --- Markdown Layer packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2016 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(setq markdown-packages
|
|
'(
|
|
company
|
|
company-emoji
|
|
emoji-cheat-sheet-plus
|
|
gh-md
|
|
markdown-mode
|
|
markdown-toc
|
|
mmm-mode
|
|
smartparens
|
|
(vmd-mode :toggle (eq 'vmd markdown-live-preview-engine))
|
|
))
|
|
|
|
(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))
|
|
|
|
(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
|
|
"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
|
|
"<RET>" 'markdown-jump)
|
|
(when (eq 'eww markdown-live-preview-engine)
|
|
(spacemacs/set-leader-keys-for-major-mode 'markdown-mode
|
|
"cP" 'markdown-live-preview-mode))
|
|
;; 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))))
|
|
|
|
(defun markdown/init-vmd-mode ()
|
|
(use-package vmd-mode
|
|
:defer t
|
|
:init (spacemacs/set-leader-keys-for-major-mode 'markdown-mode
|
|
"cP" 'vmd-mode)))
|