[nongnu] elpa/haskell-tng-mode aeaf363 220/385: bugfinding

[ELPA Syncer]

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

    bugfinding
---
 README.md                         | 2 +-
 haskell-tng-contrib-projectile.el | 1 +
 haskell-tng-font-lock.el          | 4 +++-
 haskell-tng-imenu.el              | 3 ++-
 haskell-tng-syntax.el             | 2 ++
 5 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 58e2516..aa394c0 100644
--- a/README.md
+++ b/README.md
@@ -44,7 +44,7 @@ Check out the source code repository and enable with 
[`use-package`](https://git
     ("C-c e" . next-error)))
   (:map
    haskell-tng-mode-map
-   ("<return>" . haskell-tng-newline)
+   ("RET" . haskell-tng-newline)
    ("C-c c" . haskell-tng-compile)
    ("C-c e" . next-error)))
 ```
diff --git a/haskell-tng-contrib-projectile.el 
b/haskell-tng-contrib-projectile.el
index af918c5..46a70f3 100644
--- a/haskell-tng-contrib-projectile.el
+++ b/haskell-tng-contrib-projectile.el
@@ -10,6 +10,7 @@
 (require 'projectile)
 
 ;; TODO fix the haskell-stack detection to also include cabal
+;; TODO populate the projectile compile/run/test commands
 
 (add-hook
  'haskell-tng-mode-hook
diff --git a/haskell-tng-font-lock.el b/haskell-tng-font-lock.el
index acbc923..d7830d5 100644
--- a/haskell-tng-font-lock.el
+++ b/haskell-tng-font-lock.el
@@ -275,7 +275,9 @@ succeeds and may further restrict the FIND search limit."
            (when (re-search-forward ,regexp-1 limit t)
              (goto-char (match-beginning 0))
              ,(finder 'limit)))
-         (add-to-list 'haskell-tng--font-lock-extend-region-functions ',extend 
t)))))
+         ;; TODO is this needed since we use multiline?
+         ;;(add-to-list 'haskell-tng--font-lock-extend-region-functions 
',extend t)
+         ))))
 
 (haskell-tng--font-lock-multiline explicit-type
                             (rx symbol-start "::" symbol-end)
diff --git a/haskell-tng-imenu.el b/haskell-tng-imenu.el
index 59a932d..13bdb21 100644
--- a/haskell-tng-imenu.el
+++ b/haskell-tng-imenu.el
@@ -18,7 +18,7 @@
   ;; Simple elements in the alist look like (INDEX-NAME . POSITION).
   ;; A nested sub-alist element looks like (INDEX-NAME . SUB-ALIST).
 
-  (let (entries)
+  (let ((entries `(,imenu--rescan-item)))
     (save-excursion
       (goto-char (point-min))
 
@@ -31,6 +31,7 @@
       (while (re-search-forward (rx bol "import" word-end) nil t))
 
       (while
+          ;; TODO ignore comments
           ;; TODO type / data / class / instance
           ;; TODO nested defns (use lexer not rx)
           ;; TODO inline symid defns `a <*> b ='
diff --git a/haskell-tng-syntax.el b/haskell-tng-syntax.el
index c8ce28a..f96776b 100644
--- a/haskell-tng-syntax.el
+++ b/haskell-tng-syntax.el
@@ -41,6 +41,8 @@
     (seq-do
      (lambda (it) (modify-syntax-entry it "_" table))
      (string-to-list "!#$%&*+./<=>?\\^|-~:"))
+    ;; TODO ! is a keyword when using LANG Strict*
+    ;; TODO # can be used for primitives
 
     ;; TODO: debatable. User nav vs fonts and lexing. getting "word boundaries"
     ;;       is important, same for apostrophe. small (underscore is a 
lowercase