emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add narf:org-export (and for markdown-mode too)

Browse source
This commit is contained in:
Henrik Lissner 2015-11-17 02:10:49 -05:00
parent c1147e912b
commit 2a1809cf63
2 changed files with 33 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/lib/defuns-org.el
View file

@ -226,6 +226,17 @@ COUNT-FOOTNOTES? is non-nil."
(t (copy-file link new-path))) (t (copy-file link new-path)))
(insert (format "[[./%s]]" (abbreviate-file-name new-path)))))) (insert (format "[[./%s]]" (abbreviate-file-name new-path))))))
;;;###autoload (autoload 'narf:org-export "defuns-org" nil t)
(evil-define-command narf:org-export (dest)
(interactive "<a>")
(let ((path (if (string-match-p "^[/~]" dest)
dest
(expand-file-name dest default-directory))))
(shell-command
(format "/usr/local/bin/pandoc '%s' -o '%s'"
(buffer-file-name) path))
(message "Done! Exported to: %s" path)))
;;;###autoload ;;;###autoload
(defun narf/org-remove-link () (defun narf/org-remove-link ()
"Replace an org link by its description or if empty its address" "Replace an org link by its description or if empty its address"

19
modules/module-markdown.el
View file

@ -11,27 +11,32 @@
:init :init
(add-hook! markdown-mode 'narf|enable-hard-wrap) (add-hook! markdown-mode 'narf|enable-hard-wrap)
:config :config
(bind! :map markdown-mode-map (add-hook! markdown-mode
(exmap! "preview" 'narf/markdown-preview)
(exmap! "export" 'narf:org-export))
(bind! (:map markdown-mode-map
"<backspace>" nil "<backspace>" nil
"<M-left>" nil "<M-left>" nil
"<M-right>" nil "<M-right>" nil
;; Assumes you have a markdown renderer plugin in chrome
:nv "M-r" (λ (narf-open-with "Google Chrome"))
"M-*" 'markdown-insert-list-item "M-*" 'markdown-insert-list-item
"M-b" 'markdown-insert-bold "M-b" 'markdown-insert-bold
"M-i" 'markdown-insert-italic "M-i" 'markdown-insert-italic
"M-`" 'narf/markdown-insert-del "M-`" 'narf/markdown-insert-del
(:prefix "," ; <leader> :nv ",i" 'markdown-insert-image
:nv "i" 'markdown-insert-image :nv ",l" 'markdown-insert-link
:nv "l" 'markdown-insert-link :nv ",L" 'markdown-insert-reference-link-dwim
:nv "L" 'markdown-insert-reference-link-dwim :nv ",b" 'markdown-preview
:nv "b" 'markdown-preview)
;; TODO: Make context sensitive ;; TODO: Make context sensitive
:n "[p" 'markdown-promote :n "[p" 'markdown-promote
:n "]p" 'markdown-demote :n "]p" 'markdown-demote
:i "M--" 'markdown-insert-hr)) :i "M--" 'markdown-insert-hr)))
;; TODO: Test previewing capability ;; TODO: Test previewing capability