Merge pull request #10 from purescript-emacs/github-actions

Add GitHub Actions CI

Author: purcell

.github/workflows/ci.yml

@@ -0,0 +1,30 @@
+name: CI
+
+on:
+  pull_request:
+  push:
+    paths-ignore:
+    - '**.md'
+
+jobs:
+  build:
+    runs-on: ubuntu-latest
+    strategy:
+      matrix:
+        emacs_version:
+          - 25.1
+          - 25.2
+          - 25.3
+          - 26.1
+          - 26.2
+          - 26.3
+          - 27.1
+          - snapshot
+    steps:
+    - uses: purcell/setup-emacs@master
+      with:
+        version: ${{ matrix.emacs_version }}
+
+    - uses: actions/checkout@v2
+    - name: Run tests
+      run: make check

.travis.yml

@@ -43,9 +43,7 @@ compile: $(ELCFILES)
 
 $(ELCHECKS): check-%: %.el
 	@$(BATCH) --eval '(when (check-declare-file "$*.el") (error "check-declare failed"))'
-	@$(BATCH) \
-		 --eval "(setq byte-compile-error-on-warn t)" \
-		 -f batch-byte-compile $*.el
+	@$(BATCH) -f batch-byte-compile $*.el
 	@$(RM) $*.elc
 	@if [ -f "$(<:%.el=tests/%-tests.el)" ]; then \
 	if $(BATCH) --eval "(require 'ert)" 2> /dev/null; then \

Makefile

@@ -1,3 +1,6 @@
+[![MELPA](https://melpa.org/packages/purescript-mode-badge.svg)](https://melpa.org/#/purescript-mode)
+[![Build Status](https://github.com/purescript-emacs/purescript-mode/workflows/ci/badge.svg)](https://github.com/purescript-emacs/purescript-mode/actions)
+
 PureScript Mode for Emacs
 ----------------------
 

README.md

@@ -114,7 +114,8 @@
     ("::" . ,(decode-char 'ucs 8759))
     ("forall" . ,(decode-char 'ucs 8704)))
   "A set of symbol compositions for use as `prettify-symbols-alist'."
-  :group 'purescript)
+  :group 'purescript
+  :type '(repeat (cons string character)))
 
 ;; Use new vars for the font-lock faces.  The indirection allows people to
 ;; use different faces than in other modes, as before.
@@ -361,6 +362,8 @@ that should be commented under LaTeX-style literate scripts."
 (defvar purescript-font-lock-seen-docstring nil)
 (make-variable-buffer-local 'purescript-font-lock-seen-docstring)
 
+(defvar purescript-literate)
+
 (defun purescript-syntactic-face-function (state)
   "`font-lock-syntactic-face-function' for PureScript."
   (cond

purescript-font-lock.el

@@ -1395,7 +1395,7 @@ TYPE is either 'guard or 'rpurs."
               (let ((eqn (caar eqns-start)))
                 (setq lastpos (if (cdr eqns-start)
                                   (save-excursion
-                                    (goto-char (caadr eqns-start))
+                                    (goto-char (cl-caadr eqns-start))
                                     (purescript-indent-forward-line -1)
                                     (line-end-position))
                                 end-block))