From 7c52524971e003eac562c44689e45333a165aa38 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Thu, 30 Jan 2020 01:40:58 +0900
Subject: [PATCH] Remove swoop configs

---
 emacs.el | 36 ------------------------------------
 1 file changed, 36 deletions(-)

diff --git a/emacs.el b/emacs.el
index 0497276..21a9d87 100644
--- a/emacs.el
+++ b/emacs.el
@@ -160,7 +160,6 @@ Otherwize hook it."
        fic-mode
        term-cursor
        pydoc
-       swoop
        color-identifiers-mode
        dired-k
        blacken
@@ -2840,41 +2839,6 @@ Any output will be written to current buffer."
 (when (fboundp 'swiper)
   (define-key esc-map (kbd "C-s") 'swiper))
 
-(when (fboundp 'swoop)
-  ;; (global-set-key (kbd "C-s") 'swoop)
-  ;; (global-set-key (kbd "C-r") 'swoop)
-  ;; (define-key esc-map (kbd "C-s") 'swoop-multi)
-  ;; (define-key esc-map (kbd "C-s") 'swoop)
-  (with-eval-after-load 'swoop-lib
-    (defvar swoop-map)
-    (define-key swoop-map (kbd "C-s") 'swoop-action-goto-line-next)
-    (define-key swoop-map (kbd "C-r") 'swoop-action-goto-line-prev)
-    )
-  ;; TODO: case sensitive swoop
-  ;; Wrap swoop-async-get-match-lines-list?
-  ;; (with-eval-after-load 'swoop-lib
-  ;;   (defun my-swoop-advice-smart-case (orig-func &rest args)
-  ;;     "Function to wrap swoop function."
-  ;;     (message "args: %S" args)
-  ;;     (let* (
-  ;;            (query (car args))
-  ;;            ;; (query (plist-get args
-  ;;            ;;                   :$query))
-  ;;            (case-fold-search
-  ;;             (let ((case-fold-search nil))
-  ;;               (not (string-match-p (rx upper) query))))
-  ;;            )
-  ;;       ;; (message "case-fold-search: %S" case-fold-search)
-  ;;       ;; (message "query: %S" query)
-  ;;       (apply orig-func args)))
-  ;;   (advice-add 'swoop-async-get-match-lines-list
-  ;;               :around
-  ;;               'my-swoop-advice-smart-case)
-  ;;   (set-variable 'swoop-async-get-match-lines-list
-  ;;                 (byte-compile 'swoop-async-get-match-lines-list))
-  ;;   )
-
-  )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; dired-k