[nongnu] elpa/haskell-tng-mode 6ade588 195/385: key bindings in compilation mode

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit 6ade588f5fb6d3aca853c1c191eba2336289f6cb
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    key bindings in compilation mode
---
 haskell-tng-compile.el   | 6 +++++-
 haskell-tng-font-lock.el | 1 +
 haskell-tng-mode.el      | 5 +----
 haskell-tng-smie.el      | 1 +
 4 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/haskell-tng-compile.el b/haskell-tng-compile.el
index a7fb555..a644704 100644
--- a/haskell-tng-compile.el
+++ b/haskell-tng-compile.el
@@ -116,7 +116,11 @@ will cause the subsequent call to prompt."
 
 (define-compilation-mode haskell-tng-compilation-mode "haskell-tng-compilation"
   (add-hook 'compilation-filter-hook
-            'haskell-tng--compile-ansi-color nil t))
+            'haskell-tng--compile-ansi-color nil t)
+  (cl-flet ((bind (key def)
+                  (define-key haskell-tng-compilation-mode-map (kbd key) def)))
+    (bind "C-c c" 'haskell-tng-compile)
+    (bind "C-c e" 'next-error)))
 
 (provide 'haskell-tng-compile)
 ;;; haskell-tng-compile.el ends here
diff --git a/haskell-tng-font-lock.el b/haskell-tng-font-lock.el
index cbe8343..17c3d6b 100644
--- a/haskell-tng-font-lock.el
+++ b/haskell-tng-font-lock.el
@@ -284,6 +284,7 @@ succeeds and may further restrict the FIND search limit."
                             haskell-tng--util-paren-close
                             haskell-tng--util-indent-close-previous
                             haskell-tng--util-do-bind)
+;; TODO commas end a type signature in a record of functions
 
 (haskell-tng--font-lock-multiline topdecl
                             (rx line-start (| "data" "newtype" "class" 
"instance") word-end)
diff --git a/haskell-tng-mode.el b/haskell-tng-mode.el
index fe6c027..954350b 100644
--- a/haskell-tng-mode.el
+++ b/haskell-tng-mode.el
@@ -86,15 +86,12 @@ Load `prettify-symbols-mode' in `haskell-tng-mode-hook'."
 
   (haskell-tng--smie-setup)
 
-  (cl-flet ((bind (key def) (define-key haskell-tng-mode-map (kbd key) def))
-            (bind-compile (key def) (define-key haskell-tng-mode-map (kbd key) 
def)))
+  (cl-flet ((bind (key def) (define-key haskell-tng-mode-map (kbd key) def)))
     (bind "<return>" 'haskell-tng-newline)
 
     ;; core compilation loop, supports C-u and C-- prefixes
     (bind "C-c c" 'haskell-tng-compile)
     (bind "C-c e" 'next-error)
-    (bind-compile "C-c c" 'haskell-tng-compile)
-    (bind-compile "C-c e" 'next-error)
 
     ;; external tools
     (bind "C-c C" 'haskell-tng-stack2cabal)
diff --git a/haskell-tng-smie.el b/haskell-tng-smie.el
index b3429f8..dfd5d6a 100644
--- a/haskell-tng-smie.el
+++ b/haskell-tng-smie.el
@@ -46,6 +46,7 @@
     (call-interactively #'comment-indent-new-line)
     (when rem
       (save-excursion
+        ;; TODO prune trailing whitespace
         (insert rem)))))
 
 ;; TODO autodetection of indent options