diff options
Diffstat (limited to 'elpa/smartparens-20200324.2147/smartparens-haskell.el')
| -rw-r--r-- | elpa/smartparens-20200324.2147/smartparens-haskell.el | 113 |
1 files changed, 0 insertions, 113 deletions
diff --git a/elpa/smartparens-20200324.2147/smartparens-haskell.el b/elpa/smartparens-20200324.2147/smartparens-haskell.el deleted file mode 100644 index 47a9ab5..0000000 --- a/elpa/smartparens-20200324.2147/smartparens-haskell.el +++ /dev/null @@ -1,113 +0,0 @@ -;;; smartparens-haskell.el --- Additional configuration for Haskell based modes. -*- lexical-binding: t; -*- - -;; Copyright (C) 2015 Michael Xavier - -;; Author: Michael Xavier <michael@michaelxavier.net> -;; Maintainer: Michael Xavier <michael@michaelxavier.net> -;; Created: 29 Apr 2016 -;; Keywords: abbrev convenience editing -;; URL: https://github.com/Fuco1/smartparens - -;; This file is not part of GNU Emacs. - -;;; License: - -;; This file is part of Smartparens. - -;; Smartparens is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; Smartparens is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with Smartparens. If not, see <http://www.gnu.org/licenses/>. - -;;; Commentary: - -;; This file provides some additional configuration for Haskell based -;; modes. To use it, simply add: -;; -;; (require 'smartparens-haskell) -;; -;; into your configuration. You can use this in conjunction with the -;; default config or your own configuration. - -;; If you have good ideas about what should be added please file an -;; issue on the github tracker. - -;; For more info, see github readme at -;; https://github.com/Fuco1/smartparens - -;;; Code: -(require 'smartparens) - -(defun sp-haskell-skip-apostrophe (_ms mb _me) - (save-excursion - ;; We test the syntax class because haskell mode overrides - ;; the class for ' on the fly when it run the syntax pass of - ;; font-lock... so that if '' is a valid string (char) it - ;; gets an override via 'syntax-table property. In which - ;; case we just agree with haskell mode and let it be used as - ;; a pair. - (not (eq (syntax-class (syntax-after mb)) 7)))) - -(defun sp-haskell-strict-ignore-apostrophe-after-word (_id action _context) - "Ignore trailing ' when navigating. - -Because ' in haskell is symbol class it gets picked up as part of -a words such as myFunction', and then strict mode won't allow us -to delete it. Also show-smartparens-mode incorrectly highlights -it as missing an opener. - -So we ignore that pair when at the end of word." - (when (eq action 'navigate) - (sp--looking-back-p (concat "\\(\\sw\\|\\s_\\)'+")))) - -(sp-with-modes '(haskell-mode haskell-interactive-mode) - (sp-local-pair "{-" "-}") - (sp-local-pair "{-#" "#-}") - (sp-local-pair "{-@" "@-}") - (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)) - -(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) - (marker-position (cdr comint-last-prompt))) - ((bound-and-true-p comint-last-prompt-overlay) - (overlay-end comint-last-prompt-overlay)) - (t nil))) - (and (> (point) limit) limit))) - -(defun sp--inferior-haskell-mode-forward-bound-fn () - "Limit the forward search to exclude the prompt if point is before prompt." - (-when-let (limit (cond ((bound-and-true-p comint-last-prompt) - (marker-position (car comint-last-prompt))) - ((bound-and-true-p comint-last-prompt-overlay) - (overlay-start comint-last-prompt-overlay)) - (t nil))) - (and (< (point) limit) limit))) - -(defun sp--setup-inferior-haskell-mode-search-bounds () - "Setup the search bound. - -If the point is after the last prompt, limit the backward search -only for the propmt. - -If the point is before the last prompt, limit the forward search up until the prompt start." - (setq sp-forward-bound-fn 'sp--inferior-haskell-mode-forward-bound-fn) - (setq sp-backward-bound-fn 'sp--inferior-haskell-mode-backward-bound-fn)) - -(add-hook 'inferior-haskell-mode-hook 'sp--setup-inferior-haskell-mode-search-bounds) - -(provide 'smartparens-haskell) - -;;; smartparens-haskell.el ends here |