;;; module-markdown.el
;; see lib/markdown-defuns.el

(use-package markdown-mode
  :mode (("\\.md$"   . markdown-mode)
         ("/README$" . markdown-mode))
  :functions (markdown-use-region-p
              markdown-unwrap-things-in-region
              markdown-wrap-or-insert
              markdown-unwrap-thing-at-point)
  :init
  (add-hook! markdown-mode 'narf|enable-hard-wrap)
  :config
  (add-hook! markdown-mode
    (exmap! "preview"  'narf/markdown-preview)
    (exmap! "export"   'narf:org-export))
  (bind! (:map markdown-mode-map
           "<backspace>"  nil
           "<M-left>"     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-b"  'markdown-insert-bold
           "M-i"  'markdown-insert-italic
           "M-`"  'narf/markdown-insert-del

           :nv ",i"   'markdown-insert-image
           :nv ",l"   'markdown-insert-link
           :nv ",L"   'markdown-insert-reference-link-dwim
           :nv ",b"   'markdown-preview

           ;; TODO: Make context sensitive
           :n "[p"   'markdown-promote
           :n "]p"   'markdown-demote

           :i "M--"  'markdown-insert-hr)))

;; TODO: Test previewing capability

(provide 'module-markdown)
;;; module-markdown.el ends here