added new minor mode, added default key bindings for the same

haskell · Jun 21, 2017 · afcd729 · afcd729
1 parent 42fa502
commit afcd729
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/haskell-collapse.el b/haskell-collapse.el
@@ -86,4 +86,17 @@ indentation if dir=-1"
         (end-of-line)
         (point)))))
 
+(defvar haskell-collapse-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-c @ C-c") 'haskell-hide-toggle)
+    map)
+  "Keymap for using `haskell-collapse-mode'.")
+
+;;;###autoload
+(define-minor-mode haskell-collapse-mode
+  "Minor mode to collapse and expand haskell expressions"
+  :init-value nil
+  :lighter " Haskell-Collapse"
+  :keymap haskell-collapse-mode-map)
+
 (provide 'haskell-collapse)