1 files changed, 102 insertions, 0 deletions
diff --git a/.emacs.d/elpa/evil-nerd-commenter-20171206.441/evil-nerd-commenter-sdk.el b/.emacs.d/elpa/evil-nerd-commenter-20171206.441/evil-nerd-commenter-sdk.el
new file mode 100644
index 0000000..1e85513
--- /dev/null
+++ b/.emacs.d/elpa/evil-nerd-commenter-20171206.441/evil-nerd-commenter-sdk.el
@@ -0,0 +1,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
+