blob: 1e85513be934b27f9f0b0f415e6cc7490c36af9d (
plain)
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
91
92
93
94
95
96
97
98
99
100
101
102
|
;;; evil-nerd-commenter-sdk.el --- SDK used by other files
;; Copyright (C) 2017 Chen Bin
;; Author: Chen Bin <chenin DOT sh AT gmail DOT com>
;;; License:
;; This file is not part of GNU Emacs.
;; This program 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 2, or (at your option)
;; any later version.
;; This program 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 this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; SDK used internally
;;; Code:
(defun evilnc--check-fonts (fonts-under-cursor fonts-list)
"Check whether FONTS-UNDER-CURSOR among FONTS-LIST."
(delq nil
(mapcar #'(lambda (f)
;; learn this trick from flyspell
(member f fonts-list))
fonts-under-cursor)))
(defun evilnc-web-mode-is-comment (&optional pos)
"Check whether the code at POS is comment.
`web-mode' removes its API, so create our own."
(unless pos (setq pos (point)))
(not (null (or (eq (get-text-property pos 'tag-type) 'comment)
(eq (get-text-property pos 'block-token) 'comment)
(eq (get-text-property pos 'part-token) 'comment)))))
(defun evilnc-is-pure-comment (pos)
"Check character at POS is pure comment."
(let* ((fontfaces (if (> pos 0) (get-text-property pos 'face))))
(if (not (listp fontfaces))
(setf fontfaces (list fontfaces)))
(or (and (string= major-mode "web-mode")
(evilnc-web-mode-is-comment pos))
(evilnc--check-fonts fontfaces
'(font-lock-comment-face
font-lock-comment-delimiter-face)))))
(defun evilnc-is-whitespace (pos)
"Character at POS is white space."
(member (evilnc-get-char pos) '(32 9)))
(defun evilnc-is-line-end (pos)
"Character at POS is line end."
(member (evilnc-get-char pos) '(10 11)))
(defun evilnc-get-comment-end (end)
(if (= end (point-max)) end (1- end)))
(defun evilnc-is-comment (pos)
"Check whether the code at POS is comment by comparing font face.
Please note the white spaces out of comment is treated as comment,
or else we can't select multiple lines comment."
(let* ((fontfaces (if (> pos 0) (get-text-property pos 'face))))
(if (not (listp fontfaces))
(setf fontfaces (list fontfaces)))
(cond
((or (< pos (point-min)) (> pos (point-max)))
nil)
((not fontfaces)
;; character under cursor is SPACE or TAB
;; and out of comment
(evilnc-is-whitespace pos))
(t
(evilnc-is-pure-comment pos)))))
(defun evilnc-get-char (pos)
"Get character at POS."
(save-excursion
(goto-char pos)
(following-char)))
(defun evilnc-is-comment-delimiter (pos)
"Is character at POS a comment delimiter?"
(let* ((fontfaces (if (> pos 0) (get-text-property pos 'face))))
(if (not (listp fontfaces))
(setf fontfaces (list fontfaces)))
(and fontfaces
(evilnc--check-fonts fontfaces
'(font-lock-comment-delimiter-face)))))
(provide 'evil-nerd-commenter-sdk)
;;; evil-nerd-commenter-sdk.el ends here
|
