actual final changes and get rid of junk in lisp dir

actually works fine

3 files changed, 0 insertions, 162 deletions

diff --git a/.config/emacs/lisp/evil-collection/test/evil-collection-magit-tests.el b/.config/emacs/lisp/evil-collection/test/evil-collection-magit-tests.el
deleted file mode 100644
index 9b4c892..0000000
--- a/.config/emacs/lisp/evil-collection/test/evil-collection-magit-tests.el
+++ /dev/null
@@ -1,112 +0,0 @@
-;;; evil-collection-magit-tests.el --- evil-based key bindings for magit
-
-;; Copyright (C) 2015-2016 Justin Burkett
-
-;; Author: Justin Burkett <justin@burkett.cc>
-;; Homepage: https://github.com/emacs-evil/evil-collection
-
-;; This file 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, or (at your
-;; option) any later version.
-;;
-;; This file 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.
-;;
-;; For a full copy of the GNU General Public License
-;; see <http://www.gnu.org/licenses/>.
-(require 'evil-collection)
-(evil-collection-require 'magit)
-
-(ert-deftest evil-collection-magit-mode-map-tests ()
-    "Test that original bindings in `evil-collection-magit-mode-map-bindings'
-are correct."
-  (dolist (binding evil-collection-magit-mode-map-bindings)
-    (when (nth 4 binding)
-      (should (eq (lookup-key (symbol-value (nth 1 binding)) (kbd (nth 4 binding)))
-                  (nth 3 binding)))))
-  (dolist (binding evil-collection-magit-minor-mode-map-bindings)
-    (when (nth 4 binding)
-      (should (eq (lookup-key (symbol-value (nth 1 binding)) (kbd (nth 4 binding)))
-                  (nth 3 binding))))))
-
-(ert-deftest evil-collection-magit-section-map-tests ()
-  "Test that original bindings in
-`evil-collection-magit-original-section-bindings' are correct."
-  (dolist (binding evil-collection-magit-original-section-bindings)
-    (should (eq (lookup-key (nth 0 binding) (nth 1 binding))
-                (nth 2 binding)))))
-
-;; (ert-deftest evil-collection-magit-popup-action-tests ()
-;;   "Test that bindings are as expected in popups."
-;;   (when evil-collection-magit-popup-keys-changed
-;;     (dolist (change evil-collection-magit-popup-changes)
-;;       (let ((alist (plist-get (symbol-value (nth 0 change)) (nth 1 change))))
-;;         (should
-;;          (eq (nth 2 (assoc (string-to-char (nth 3 change)) alist))
-;;              (nth 4 change)))))))
-
-(defun evil-collection-magit-collect-magit-section-maps ()
-  (let (res)
-    (mapatoms
-     (lambda (sym)
-       (when (string-match-p "^magit-.*-section-map$" (symbol-name sym))
-                     (push sym res))))
-    res))
-
-(setq evil-collection-magit-section-maps-test (evil-collection-magit-collect-magit-section-maps))
-;; (setq evil-collection-magit-commands-in-section-maps
-;;       (let (res)
-;;         (dolist (map evil-collection-magit-section-maps-test)
-;;           (when (and (boundp map) (keymapp (symbol-value map)))
-;;             (map-keymap
-;;              (lambda (_ def)
-;;                (when (commandp def)
-;;                  (if res
-;;                      (add-to-list 'res def)
-;;                    (setq res (list def)))))
-;;              (symbol-value map))))
-;;         res))
-
-(ert-deftest evil-collection-magit-section-maps-accounted-for ()
-  "Check that `evil-collection-magit-section-maps' includes all section-maps
-we can find."
-  (dolist (map evil-collection-magit-section-maps-test)
-    (when (and (boundp map) (keymapp (symbol-value map)))
-      (should (memq map evil-collection-magit-section-maps)))))
-
-(defun evil-collection-magit-collect-git-magit-modes ()
-  (let (res)
-    (mapatoms
-     (lambda (sym)
-       (when (and (or (boundp sym)
-                      (fboundp sym))
-                  (string-match-p "^\\(git\\|magit\\)-.*-mode$" (symbol-name sym)))
-         (push sym res))))
-    res))
-
-(ert-deftest evil-collection-magit-all-modes-accounted-for ()
-  "Check that mode lists include all modes we can find."
-  (let ((modes (evil-collection-magit-collect-git-magit-modes))
-        res)
-    (dolist (mode modes)
-      (when (boundp mode)
-        (should (memq mode
-                      (append
-                       evil-collection-magit-emacs-to-default-state-modes
-                       evil-collection-magit-emacs-to-evil-collection-magit-state-modes
-                       evil-collection-magit-default-to-evil-collection-magit-state-modes
-                       evil-collection-magit-untouched-modes
-                       evil-collection-magit-ignored-modes)))))))
-
-(ert-deftest evil-collection-magit-expand-region-arg-number ()
-  "Check that the number of args accepted by
-`evil-visual-expand-region' does not change."
-  (should-not (evil-visual-expand-region))
-  (should-not (evil-visual-expand-region t))
-  (should-error (evil-visual-expand-region t t) :type
-                'wrong-number-of-arguments))
-
-;;; evil-collection-magit-tests.el ends here
diff --git a/.config/emacs/lisp/evil-collection/test/evil-collection-test.el b/.config/emacs/lisp/evil-collection/test/evil-collection-test.el
deleted file mode 100644
index a88fce4..0000000
--- a/.config/emacs/lisp/evil-collection/test/evil-collection-test.el
+++ /dev/null
@@ -1,41 +0,0 @@
-;;; evil-collection-test.el --- Tests for evil-collection -*- lexical-binding: t -*-
-(require 'evil-collection)
-
-(ert-deftest evil-collection-zero-test ()
-  "Zero check blank test."
-  (should (equal 0 0)))
-
-(ert-deftest evil-collection-filtering-states-test ()
-  "Test `evil-collection--filter-states'."
-  (let ((evil-collection-state-denylist '())
-        (evil-collection-state-passlist '()))
-    (should
-     (equal nil
-            (evil-collection--filter-states nil)))
-    (should
-     (equal '(normal)
-            (evil-collection--filter-states 'normal)))
-    (should
-     (equal '(normal)
-            (evil-collection--filter-states '(normal)))))
-  (let ((evil-collection-state-denylist '(insert))
-        (evil-collection-state-passlist '()))
-    (should
-     (equal '()
-            (evil-collection--filter-states 'insert)))
-    (should
-     (equal '(visual)
-            (evil-collection--filter-states '(visual insert)))))
-  (let ((evil-collection-state-denylist '(insert))
-        (evil-collection-state-passlist '(normal visual)))
-    (should
-     (equal '()
-            (evil-collection--filter-states '())))
-    (should
-     (equal '(visual)
-            (evil-collection--filter-states '(insert visual))))
-    (should
-     (seq-set-equal-p '(visual normal)
-                      (evil-collection--filter-states '(motion normal visual insert))))))
-
-;;; evil-collection-test.el ends here
diff --git a/.config/emacs/lisp/evil-collection/test/test-helper.el b/.config/emacs/lisp/evil-collection/test/test-helper.el
deleted file mode 100644
index b5d9e63..0000000
--- a/.config/emacs/lisp/evil-collection/test/test-helper.el
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; test-helper.el --- Helpers for evil-collection-test.el -*- lexical-binding: t -*-
-(require 'ert)
-
-;; FIXME: Adding `f' as a dependency just for this line.
-(require 'f)
-(let ((evil-collection-dir (f-parent (f-dirname (f-this-file)))))
-  (add-to-list 'load-path evil-collection-dir))
-(require 'evil-collection)
-;;; test-helper.el ends here