branch: elpa/smartparens
commit 386e92360d7e70670486fa90d400658c04f64a77
Merge: b629b4e893b 47c498b0514
Author: Matus Goljer <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #1240 from alternateved/add-purescript-support
feat(purescript): add support for purescript-mode
---
smartparens-config.el | 4 ++--
smartparens-haskell.el | 8 ++++++++
smartparens.el | 1 +
3 files changed, 11 insertions(+), 2 deletions(-)
diff --git a/smartparens-config.el b/smartparens-config.el
index 03f02525bfa..5de0ef94ce3 100644
--- a/smartparens-config.el
+++ b/smartparens-config.el
@@ -141,8 +141,8 @@ ID, ACTION, CONTEXT."
(eval-after-load it '(require 'smartparens-erlang)))
(eval-after-load 'ess '(require 'smartparens-ess))
(eval-after-load 'go-mode '(require 'smartparens-go))
-(eval-after-load 'haskell-interactive-mode '(require 'smartparens-haskell))
-(eval-after-load 'haskell-mode '(require 'smartparens-haskell))
+(--each '(haskell-mode haskell-interactive-mode purescript-mode)
+ (eval-after-load it '(require 'smartparens-haskell)))
(--each sp--html-modes
(eval-after-load it '(require 'smartparens-html)))
(eval-after-load 'latex '(require 'smartparens-latex))
diff --git a/smartparens-haskell.el b/smartparens-haskell.el
index 0e229510a15..20c2c944632 100644
--- a/smartparens-haskell.el
+++ b/smartparens-haskell.el
@@ -78,6 +78,14 @@ So we ignore that pair when at the end of word."
:skip-match 'sp-haskell-skip-apostrophe)
(sp-local-pair "\\(" nil :actions nil))
+(sp-with-modes 'purescript-mode
+ (sp-local-pair "'" nil
+ :unless '(sp-point-after-word-p
+ sp-haskell-strict-ignore-apostrophe-after-word)
+ :skip-match 'sp-haskell-skip-apostrophe)
+ (sp-local-pair "\\{" nil :actions nil)
+ (sp-local-pair "\\(" nil :actions nil))
+
(defun sp--inferior-haskell-mode-backward-bound-fn ()
"Limit the backward search to the prompt if point is on prompt."
(-when-let (limit (cond ((bound-and-true-p comint-last-prompt)
diff --git a/smartparens.el b/smartparens.el
index 9cdc8dfbdfe..22bd829bc15 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -623,6 +623,7 @@ Symbol is defined as a chunk of text recognized by
(defcustom sp-no-reindent-after-kill-modes '(
python-mode
python-ts-mode
+ purescript-mode
coffee-mode
asm-mode
makefile-gmake-mode
