Browse Source

Add commented

master
10sr 5 years ago
parent
commit
816c2caa12
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 24 additions and 0 deletions
  1. +24
    -0
      emacs.el

+ 24
- 0
emacs.el View File

@@ -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)


Loading…
Cancel
Save