forked from emacs-evil/evil-cleverparens
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathevil-cleverparens-text-objects.el
90 lines (79 loc) · 3.63 KB
/
evil-cleverparens-text-objects.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
;;; evil-cleverparens-text-objects.el --- Text Objects for evil-cleverparens.
;;
;; Copyright (C) 2015 Olli Piepponen
;;
;; Author: Olli Piepponen <[email protected]>
;; URL: https://github.com/luxbock/evil-cleverparens
;; Keywords: cleverparens, parentheses, evil, paredit, smartparens
;; Version: 0.1.0
;; Package-Requires: ((evil "1.0") (smartparens "1.6.1"))
;;
;; This file is NOT part of GNU Emacs.
;;
;; This file is free software (MIT License)
;;; Commentary:
;; Text objects for forms, comments and defuns, used in evil-cleverparens, but
;; potentially useful in non-lisp-like modes as well. In such a case,
;; key-bindings are left open for the user to decide.
;;; Code:
(require 'evil-common)
(require 'smartparens)
(require 'evil-cleverparens-util)
;;;###autoload (autoload 'evil-cp-a-form "evil-cleverparens-text-objects" nil t)
(evil-define-text-object evil-cp-a-form (count &optional beg end type)
"Smartparens sexp object."
(let* ((bounds (evil-cp--get-enclosing-bounds t)))
(if (not bounds)
(error "No surrounding form found.")
;; I'm not sure what difference 'inclusive / 'exclusive makes here
(evil-range (car bounds) (cdr bounds) 'inclusive :expanded t))))
;;;###autoload (autoload 'evil-cp-inner-form "evil-cleverparens-text-objects" nil t)
(evil-define-text-object evil-cp-inner-form (count &optional beg end type)
"Smartparens inner sexp object."
(let ((range (evil-cp--get-enclosing-bounds)))
(if (not range)
(error "No surrounding form found.")
(let ((beg (car range))
(end (cdr range)))
(evil-range (1+ beg) (1- end) 'inclusive :expanded t)))))
;;;###autoload (autoload 'evil-cp-a-comment "evil-cleverparens-text-objects" nil t)
(evil-define-text-object evil-cp-a-comment (count &optional beg end type)
"An outer comment text object as defined by `sp-get-comment-bounds'."
(let ((bounds (sp-get-comment-bounds)))
(if (not bounds)
(error "Not inside a comment.")
(let ((beg (car bounds))
(end (cdr bounds)))
(evil-range beg end 'exclusive :expanded t)))))
;;;###autoload (autoload 'evil-cp-inner-comment "evil-cleverparens-text-objects" nil t)
(evil-define-text-object evil-cp-inner-comment (count &optional beg end type)
"An inner comment text object as defined by `sp-get-comment-bounds'."
(let ((bounds (sp-get-comment-bounds)))
(if (not bounds)
(error "Not inside a comment.")
(let ((beg (save-excursion
(goto-char (car bounds))
(forward-word 1)
(forward-word -1)
(point)))
(end (save-excursion
(goto-char (cdr bounds))
(evil-end-of-line)
(point))))
(evil-range beg end 'block :expanded t)))))
;;;###autoload (autoload 'evil-cp-a-defun "evil-cleverparens-text-objects" nil t)
(evil-define-text-object evil-cp-a-defun (count &optional beg end type)
"An outer text object for a top level sexp (defun)."
(if (evil-cp--inside-form-p)
(let ((bounds (evil-cp--top-level-bounds)))
(evil-range (car bounds) (cdr bounds) 'inclusive :expanded t))
(error "Not inside a sexp.")))
;;;###autoload (autoload 'evil-cp-inner-defun "evil-cleverparens-text-objects" nil t)
(evil-define-text-object evil-cp-inner-defun (count &optional beg end type)
"An inner text object for a top level sexp (defun)."
(if (evil-cp--inside-form-p)
(let ((bounds (evil-cp--top-level-bounds)))
(evil-range (1+ (car bounds)) (1- (cdr bounds)) 'inclusive :expanded t))
(error "Not inside a sexp.")))
(provide 'evil-cleverparens-text-objects)
;;; evil-cleverparens-text-objects.el ends here