| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'smartparens) | |
| 16 | #@17 | |
| 17 | ||
| 18 | (fn MS MB ME) | |
| 19 | (defalias 'sp-haskell-skip-apostrophe #[771 "\212\300\301!!)\302=?\207" [syntax-class syntax-after 7] 6 (#$ . 431)]) | |
| 20 | #@331 Ignore trailing ' when navigating. | |
| 21 | ||
| 22 | Because ' in haskell is symbol class it gets picked up as part of | |
| 23 | a words such as myFunction', and then strict mode won't allow us | |
| 24 | to delete it. Also show-smartparens-mode incorrectly highlights | |
| 25 | it as missing an opener. | |
| 26 | ||
| 27 | So we ignore that pair when at the end of word. | |
| 28 | ||
| 29 | (fn ID ACTION CONTEXT) | |
| 30 | (defalias 'sp-haskell-strict-ignore-apostrophe-after-word #[771 "\300=\205 \301\302!\207" [navigate sp--looking-back-p "\\(\\sw\\|\\s_\\)'+"] 5 (#$ . 572)]) | |
| 31 | (byte-code "\300\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311\312\313\314\315&\210\301\316\311\317\311%\210\207" [(haskell-mode haskell-interactive-mode) sp-local-pair "{-" "-}" "{-#" "#-}" "{-@" "@-}" "'" nil :unless (sp-point-after-word-p sp-haskell-strict-ignore-apostrophe-after-word) :skip-match sp-haskell-skip-apostrophe "\\(" :actions] 9) | |
| 32 | #@64 Limit the backward search to the prompt if point is on prompt. | |
| 33 | (defalias 'sp--inferior-haskell-mode-backward-bound-fn #[0 "\302\300!\203 \203 \303A!\202\" \302\301!\203! \203! \304 !\202\" \305\211\205- `V\205- \211\207" [comint-last-prompt comint-last-prompt-overlay boundp marker-position overlay-end nil] 3 (#$ . 1438)]) | |
| 34 | #@75 Limit the forward search to exclude the prompt if point is before prompt. | |
| 35 | (defalias 'sp--inferior-haskell-mode-forward-bound-fn #[0 "\302\300!\203 \203 \303@!\202\" \302\301!\203! \203! \304 !\202\" \305\211\205- `W\205- \211\207" [comint-last-prompt comint-last-prompt-overlay boundp marker-position overlay-start nil] 3 (#$ . 1774)]) | |
| 36 | #@205 Setup the search bound. | |
| 37 | ||
| 38 | If the point is after the last prompt, limit the backward search | |
| 39 | only for the propmt. | |
| 40 | ||
| 41 | If the point is before the last prompt, limit the forward search up until the prompt start. | |
| 42 | (defalias 'sp--setup-inferior-haskell-mode-search-bounds #[0 "\302\303\211\207" [sp-forward-bound-fn sp-backward-bound-fn sp--inferior-haskell-mode-forward-bound-fn sp--inferior-haskell-mode-backward-bound-fn] 2 (#$ . 2123)]) | |
| 43 | (byte-code "\300\301\302\"\210\303\304!\207" [add-hook inferior-haskell-mode-hook sp--setup-inferior-haskell-mode-search-bounds provide smartparens-haskell] 3) | |
