[nongnu] elpa/haskell-tng-mode 174c63b 046/385: laying the foundations for SMIE

[ELPA Syncer]

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

    laying the foundations for SMIE
---
 haskell-tng-smie.el                | 41 ++++++++++++++++++++++++++++++++++++++
 test/haskell-tng-font-lock-test.el |  2 +-
 test/haskell-tng-smie-test.el      | 39 ++++++++++++++++++++++++++++++++++++
 3 files changed, 81 insertions(+), 1 deletion(-)

diff --git a/haskell-tng-smie.el b/haskell-tng-smie.el
new file mode 100644
index 0000000..436b17a
--- /dev/null
+++ b/haskell-tng-smie.el
@@ -0,0 +1,41 @@
+;;; haskell-tng-smie.el --- SMIE Rules for Haskell -*- lexical-binding: t -*-
+
+;; Copyright (C) 2018 Tseen She
+;; License: GPL 3 or any later version
+
+;;; Commentary:
+;;
+;;  SMIE lexer, precedence table (providing s-expression navigation), and
+;;  indentation rules.
+;;
+;;  https://www.gnu.org/software/emacs/manual/html_mono/elisp.html#SMIE
+;;
+;;; Code:
+
+(require 'smie)
+
+  ;; (defvar sample-keywords-regexp
+  ;;      (regexp-opt '("+" "*" "," ";" ">" ">=" "<" "<=" ":=" "=")))
+  ;;    (defun sample-smie-forward-token ()
+  ;;      (forward-comment (point-max))
+  ;;      (cond
+  ;;       ((looking-at sample-keywords-regexp)
+  ;;        (goto-char (match-end 0))
+  ;;        (match-string-no-properties 0))
+  ;;       (t (buffer-substring-no-properties
+  ;;           (point)
+  ;;           (progn (skip-syntax-forward "w_")
+  ;;                  (point))))))
+  ;;    (defun sample-smie-backward-token ()
+  ;;      (forward-comment (- (point)))
+  ;;      (cond
+  ;;       ((looking-back sample-keywords-regexp (- (point) 2) t)
+  ;;        (goto-char (match-beginning 0))
+  ;;        (match-string-no-properties 0))
+  ;;       (t (buffer-substring-no-properties
+  ;;           (point)
+  ;;           (progn (skip-syntax-backward "w_")
+  ;;                  (point))))))
+
+(provide 'haskell-tng-smie)
+;;; haskell-tng-smie.el ends here
diff --git a/test/haskell-tng-font-lock-test.el 
b/test/haskell-tng-font-lock-test.el
index afaba90..fe5c739 100644
--- a/test/haskell-tng-font-lock-test.el
+++ b/test/haskell-tng-font-lock-test.el
@@ -17,6 +17,6 @@
 (faceup-defexplainer have-expected-faces)
 
 (ert-deftest haskell-tng-font-lock-file-tests ()
-  (should (have-expected-faces "faces/medley.hs")) )
+  (should (have-expected-faces "faces/medley.hs")))
 
 ;;; haskell-tng-font-lock-test.el ends here
diff --git a/test/haskell-tng-smie-test.el b/test/haskell-tng-smie-test.el
new file mode 100644
index 0000000..2905484
--- /dev/null
+++ b/test/haskell-tng-smie-test.el
@@ -0,0 +1,39 @@
+;;; haskell-tng-smie-test.el --- Tests for fontification -*- lexical-binding: 
t -*-
+
+;; Copyright (C) 2018 Tseen She
+;; License: GPL 3 or any later version
+
+(require 'haskell-tng-mode)
+
+(require 'ert)
+(require 'faceup)
+
+(defun haskell-tng-smie:lex-forward-buffer ()
+  (let* ((buf (current-buffer))
+         (work (switch-to-buffer (concat (buffer-file-name) 
".lexer.forward"))))
+    (switch-to-buffer buf)
+    (goto-char (point-min))
+
+    ;; FIXME progress through the buf writing the returned values to work
+    ;; maybe with a character to indicate invocations, maybe newlines.
+
+    ))
+
+(defun have-expected-forward-lexer (file)
+  (let* ((filename (expand-file-name
+                    file
+                    (eval-when-compile (faceup-this-file-directory))))
+         (golden (concat filename ".lexer.forward")))
+
+    ;; FIXME run the lex-forward-buffer and compare the result with the version
+    ;; on disk, perhaps a trimmed diff.
+
+    ))
+
+(ert-deftest haskell-tng-smie-file-tests ()
+  (should (have-expected-forward-lexer "faces/medley.hs")))
+
+;; ideas for an indentation tester
+;; 
https://github.com/elixir-editors/emacs-elixir/blob/master/test/test-helper.el#L52-L63
+
+;;; haskell-tng-smie-test.el ends here