10sr 4 лет назад
Родитель
Сommit
7c52524971
Подписано: 10sr Идентификатор GPG ключа: C384BB17CBB19347
1 измененных файлов: 0 добавлений и 36 удалений
  1. +0
    -36
      emacs.el

+ 0
- 36
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


Загрузка…
Отмена
Сохранить