|
|
|
@@ -2444,6 +2444,30 @@ Any output will be written to current buffer." |
|
|
|
(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)) |
|
|
|
;; ) |
|
|
|
|
|
|
|
) |
|
|
|
|
|
|
|
(when (fboundp 'dired-k) |
|
|
|
|
