Write modules + defuns

modules/module-markdown.el

@@ -0,0 +1,37 @@
+;;; 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)
+  :config
+  (bind! :map markdown-mode-map
+         "<backspace>"  nil
+         "<M-left>"     nil
+         "<M-right>"    nil
+
+         "M-*"  'markdown-insert-list-item
+         "M-b"  'markdown-insert-bold
+         "M-i"  'markdown-insert-italic
+         "M-`"  'narf/markdown-insert-del
+
+         (:prefix "," ; <leader>
+           :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