tvl-depot/configs/shared/emacs/.emacs.d/elpa/swiper-20180713.946/swiper.el

1041 lines
38 KiB
EmacsLisp
Raw Normal View History

;;; swiper.el --- Isearch with an overview. Oh, man! -*- lexical-binding: t -*-
;; Copyright (C) 2015-2018 Free Software Foundation, Inc.
;; Author: Oleh Krehel <ohwoeowho@gmail.com>
;; URL: https://github.com/abo-abo/swiper
;; Package-Version: 20180713.946
;; Version: 0.10.0
;; Package-Requires: ((emacs "24.1") (ivy "0.9.0"))
;; Keywords: matching
;; This file is part of GNU Emacs.
;; 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 program 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/>.
;;; Commentary:
;; This package gives an overview of the current regex search
;; candidates. The search regex can be split into groups with a
;; space. Each group is highlighted with a different face.
;;
;; It can double as a quick `regex-builder', although only single
;; lines will be matched.
;;; Code:
(require 'ivy)
(defgroup swiper nil
"`isearch' with an overview."
:group 'matching
:prefix "swiper-")
(defface swiper-match-face-1
'((t (:inherit lazy-highlight)))
"The background face for `swiper' matches.")
(defface swiper-match-face-2
'((t (:inherit isearch)))
"Face for `swiper' matches modulo 1.")
(defface swiper-match-face-3
'((t (:inherit match)))
"Face for `swiper' matches modulo 2.")
(defface swiper-match-face-4
'((t (:inherit isearch-fail)))
"Face for `swiper' matches modulo 3.")
(defface swiper-line-face
'((t (:inherit highlight)))
"Face for current `swiper' line.")
(defcustom swiper-faces '(swiper-match-face-1
swiper-match-face-2
swiper-match-face-3
swiper-match-face-4)
"List of `swiper' faces for group matches."
:group 'ivy-faces
:type '(repeat face))
(defcustom swiper-min-highlight 2
"Only highlight matches for regexps at least this long."
:type 'integer)
(defcustom swiper-include-line-number-in-search nil
"Include line number in text of search candidates."
:type 'boolean
:group 'swiper)
(defcustom swiper-goto-start-of-match nil
"When non-nil, go to the start of the match, not its end."
:type 'boolean
:group 'swiper)
(defvar swiper-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "M-q") 'swiper-query-replace)
(define-key map (kbd "C-l") 'swiper-recenter-top-bottom)
(define-key map (kbd "C-'") 'swiper-avy)
(define-key map (kbd "C-7") 'swiper-mc)
(define-key map (kbd "C-c C-f") 'swiper-toggle-face-matching)
map)
"Keymap for swiper.")
(defun swiper-query-replace ()
"Start `query-replace' with string to replace from last search string."
(interactive)
(if (null (window-minibuffer-p))
(user-error "Should only be called in the minibuffer through `swiper-map'")
(let* ((enable-recursive-minibuffers t)
(from (ivy--regex ivy-text))
(to (minibuffer-with-setup-hook
(lambda ()
(setq minibuffer-default
(if (string-match "\\`\\\\_<\\(.*\\)\\\\_>\\'" ivy-text)
(match-string 1 ivy-text)
ivy-text)))
(read-from-minibuffer (format "Query replace %s with: " from)))))
(swiper--cleanup)
(ivy-exit-with-action
(lambda (_)
(with-ivy-window
(move-beginning-of-line 1)
(let ((inhibit-read-only t))
(perform-replace from to
t t nil))))))))
(defun swiper-all-query-replace ()
"Start `query-replace' with string to replace from last search string."
(interactive)
(if (null (window-minibuffer-p))
(user-error
"Should only be called in the minibuffer through `swiper-all-map'")
(let* ((enable-recursive-minibuffers t)
(from (ivy--regex ivy-text))
(to (query-replace-read-to from "Query replace" t)))
(swiper--cleanup)
(ivy-exit-with-action
(lambda (_)
(let ((wnd-conf (current-window-configuration))
(inhibit-message t))
(unwind-protect
(dolist (cand ivy--old-cands)
(let ((buffer (get-text-property 0 'buffer cand)))
(switch-to-buffer buffer)
(goto-char (point-min))
(perform-replace from to t t nil)))
(set-window-configuration wnd-conf))))))))
(defvar avy-background)
(defvar avy-all-windows)
(defvar avy-style)
(defvar avy-keys)
(declare-function avy--regex-candidates "ext:avy")
(declare-function avy--process "ext:avy")
(declare-function avy--overlay-post "ext:avy")
(declare-function avy-action-goto "ext:avy")
(declare-function avy-candidate-beg "ext:avy")
(declare-function avy--done "ext:avy")
(declare-function avy--make-backgrounds "ext:avy")
(declare-function avy-window-list "ext:avy")
(declare-function avy-read "ext:avy")
(declare-function avy-read-de-bruijn "ext:avy")
(declare-function avy-tree "ext:avy")
(declare-function avy-push-mark "ext:avy")
(declare-function avy--remove-leading-chars "ext:avy")
;;;###autoload
(defun swiper-avy ()
"Jump to one of the current swiper candidates."
(interactive)
(unless (require 'avy nil 'noerror)
(error "Package avy isn't installed"))
(unless (string= ivy-text "")
(let* ((avy-all-windows nil)
;; We'll have overlapping overlays, so we sort all the
;; overlays in the visible region by their start, and then
;; throw out non-Swiper overlays or overlapping Swiper
;; overlays.
(visible-overlays (cl-sort (with-ivy-window
(overlays-in (window-start)
(window-end)))
#'< :key #'overlay-start))
(min-overlay-start 0)
(overlays-for-avy (cl-remove-if-not
(lambda (ov)
(when (and (>= (overlay-start ov)
min-overlay-start)
(memq (overlay-get ov 'face)
swiper-faces))
(setq min-overlay-start (overlay-start ov))))
visible-overlays))
(candidates (append
(mapcar (lambda (ov)
(cons (overlay-start ov)
(overlay-get ov 'window)))
overlays-for-avy)
(save-excursion
(save-restriction
(narrow-to-region (window-start) (window-end))
(goto-char (point-min))
(forward-line)
(let ((cands))
(while (< (point) (point-max))
(push (cons (1+ (point))
(selected-window))
cands)
(forward-line))
cands)))))
(candidate (unwind-protect
(prog2
(avy--make-backgrounds
(append (avy-window-list)
(list (ivy-state-window ivy-last))))
(if (eq avy-style 'de-bruijn)
(avy-read-de-bruijn
candidates avy-keys)
(avy-read (avy-tree candidates avy-keys)
#'avy--overlay-post
#'avy--remove-leading-chars))
(avy-push-mark))
(avy--done))))
(if (window-minibuffer-p (cdr candidate))
(progn
(ivy-set-index (- (line-number-at-pos (car candidate)) 2))
(ivy--exhibit)
(ivy-done)
(ivy-call))
(ivy-quit-and-run
(avy-action-goto (avy-candidate-beg candidate)))))))
(declare-function mc/create-fake-cursor-at-point "ext:multiple-cursors-core")
(declare-function multiple-cursors-mode "ext:multiple-cursors-core")
(defun swiper-mc ()
"Create a fake cursor for each `swiper' candidate."
(interactive)
(unless (require 'multiple-cursors nil t)
(error "Multiple-cursors isn't installed"))
(unless (window-minibuffer-p)
(error "Call me only from `swiper'"))
(let ((cands (nreverse ivy--old-cands)))
(unless (string= ivy-text "")
(ivy-exit-with-action
(lambda (_)
(let (cand)
(while (setq cand (pop cands))
(swiper--action cand)
(when cands
(mc/create-fake-cursor-at-point))))
(multiple-cursors-mode 1))))))
(defun swiper-recenter-top-bottom (&optional arg)
"Call (`recenter-top-bottom' ARG)."
(interactive "P")
(with-ivy-window
(recenter-top-bottom arg)))
(defvar swiper-font-lock-exclude
'(bbdb-mode
bookmark-bmenu-mode
package-menu-mode
gnus-summary-mode
gnus-article-mode
gnus-group-mode
emms-playlist-mode
emms-stream-mode
eshell-mode
erc-mode
forth-mode
forth-block-mode
helpful-mode
nix-mode
org-agenda-mode
dired-mode
jabber-chat-mode
elfeed-search-mode
elfeed-show-mode
fundamental-mode
Man-mode
woman-mode
mu4e-view-mode
mu4e-headers-mode
notmuch-tree-mode
notmuch-search-mode
help-mode
debbugs-gnu-mode
occur-mode
occur-edit-mode
bongo-mode
bongo-library-mode
magit-popup-mode
adoc-mode
bongo-playlist-mode
eww-mode
treemacs-mode
twittering-mode
vc-dir-mode
rcirc-mode
circe-channel-mode
circe-server-mode
circe-query-mode
sauron-mode
w3m-mode)
"List of major-modes that are incompatible with `font-lock-ensure'.")
(defun swiper-font-lock-ensure-p ()
"Return non-nil if we should `font-lock-ensure'."
(or (derived-mode-p 'magit-mode)
(bound-and-true-p magit-blame-mode)
(memq major-mode swiper-font-lock-exclude)))
(defun swiper-font-lock-ensure ()
"Ensure the entired buffer is highlighted."
(unless (swiper-font-lock-ensure-p)
(unless (or (> (buffer-size) 100000) (null font-lock-mode))
(if (fboundp 'font-lock-ensure)
(font-lock-ensure)
(with-no-warnings (font-lock-fontify-buffer))))))
(defvar swiper--format-spec ""
"Store the current candidates format spec.")
(defvar swiper--width nil
"Store the number of digits needed for the longest line nubmer.")
(defvar swiper-use-visual-line nil
"When non-nil, use `line-move' instead of `forward-line'.")
(defvar dired-isearch-filenames)
(declare-function dired-move-to-filename "dired")
(defun swiper--line ()
(let* ((beg (cond ((and (eq major-mode 'dired-mode)
(bound-and-true-p dired-isearch-filenames))
(dired-move-to-filename)
(point))
(swiper-use-visual-line
(save-excursion
(beginning-of-visual-line)
(point)))
(t
(point))))
(end (if swiper-use-visual-line
(save-excursion
(end-of-visual-line)
(point))
(line-end-position))))
(concat
" "
(buffer-substring beg end))))
(declare-function outline-show-all "outline")
(defun swiper--candidates (&optional numbers-width)
"Return a list of this buffer lines.
NUMBERS-WIDTH, when specified, is used for width spec of line
numbers; replaces calculating the width from buffer line count."
(if (and visual-line-mode
;; super-slow otherwise
(< (buffer-size) 20000))
(progn
(when (eq major-mode 'org-mode)
(require 'outline)
(if (fboundp 'outline-show-all)
(outline-show-all)
(with-no-warnings
(show-all))))
(setq swiper-use-visual-line t))
(setq swiper-use-visual-line nil))
(let ((n-lines (count-lines (point-min) (point-max))))
(unless (zerop n-lines)
(setq swiper--width (or numbers-width
(1+ (floor (log n-lines 10)))))
(setq swiper--format-spec
(format "%%-%dd " swiper--width))
(let ((line-number 0)
(advancer (if swiper-use-visual-line
(lambda (arg) (line-move arg t))
#'forward-line))
candidates)
(save-excursion
(goto-char (point-min))
(swiper-font-lock-ensure)
(while (< (point) (point-max))
(let ((str (swiper--line)))
(setq str (ivy-cleanup-string str))
(let ((line-number-str
(format swiper--format-spec (cl-incf line-number))))
(if swiper-include-line-number-in-search
(setq str (concat line-number-str str))
(put-text-property
0 1 'display line-number-str str))
(put-text-property
0 1 'swiper-line-number line-number-str str))
(push str candidates))
(funcall advancer 1))
(nreverse candidates))))))
(defvar swiper--opoint 1
"The point when `swiper' starts.")
;;;###autoload
(defun swiper (&optional initial-input)
"`isearch' with an overview.
When non-nil, INITIAL-INPUT is the initial search pattern."
(interactive)
(swiper--ivy (swiper--candidates) initial-input))
(defvar swiper--current-window-start nil)
(defun swiper--extract-matches (regex cands)
"Extract captured REGEX groups from CANDS."
(let (res)
(dolist (cand cands)
(setq cand (substring cand 1))
(when (string-match regex cand)
(push (mapconcat (lambda (n) (match-string-no-properties n cand))
(number-sequence
1
(/ (- (length (match-data)) 2) 2))
" ")
res)))
(nreverse res)))
(defun swiper-occur (&optional revert)
"Generate a custom occur buffer for `swiper'.
When REVERT is non-nil, regenerate the current *ivy-occur* buffer.
When capture groups are present in the input, print them instead of lines."
(let* ((buffer (ivy-state-buffer ivy-last))
(fname (propertize
(with-ivy-window
(if (buffer-file-name buffer)
(file-name-nondirectory
(buffer-file-name buffer))
(buffer-name buffer)))
'face
'compilation-info))
(re (progn (string-match "\"\\(.*\\)\"" (buffer-name))
(match-string 1 (buffer-name))))
(re (mapconcat #'identity (ivy--split re) ".*?"))
(cands
(mapcar
(lambda (s)
(let* ((n (get-text-property 0 'swiper-line-number s))
(i (string-match-p "[ \t\n\r]+\\'" n)))
(when i (setq n (substring n 0 i)))
(put-text-property 0 (length n) 'face 'compilation-line-number n)
(format "%s:%s:%s" fname n (substring s 1))))
(if (not revert)
ivy--old-cands
(setq ivy--old-re nil)
(let ((ivy--regex-function 'swiper--re-builder))
(ivy--filter re (with-current-buffer buffer
(swiper--candidates))))))))
(if (string-match-p "\\\\(" re)
(insert
(mapconcat #'identity
(swiper--extract-matches
re (with-current-buffer buffer
(swiper--candidates)))
"\n"))
(unless (eq major-mode 'ivy-occur-grep-mode)
(ivy-occur-grep-mode)
(font-lock-mode -1))
(setq swiper--current-window-start nil)
(insert (format "-*- mode:grep; default-directory: %S -*-\n\n\n"
default-directory))
(insert (format "%d candidates:\n" (length cands)))
(ivy--occur-insert-lines
(mapcar
(lambda (cand) (concat "./" cand))
cands))
(goto-char (point-min))
(forward-line 4))))
(ivy-set-occur 'swiper 'swiper-occur)
(declare-function evil-set-jump "ext:evil-jumps")
(defvar swiper--current-line nil)
(defvar swiper--current-match-start nil)
(defvar swiper--point-min nil)
(defvar swiper--point-max nil)
(defvar swiper--reveal-mode nil)
(defun swiper--init ()
"Perform initialization common to both completion methods."
(setq swiper--current-line nil)
(setq swiper--current-match-start nil)
(setq swiper--current-window-start nil)
(setq swiper--opoint (point))
(setq swiper--point-min (point-min))
(setq swiper--point-max (point-max))
(when (setq swiper--reveal-mode
(bound-and-true-p reveal-mode))
(reveal-mode -1))
(when (bound-and-true-p evil-mode)
(evil-set-jump)))
(declare-function char-fold-to-regexp "char-fold")
(defun swiper--re-builder (str)
"Transform STR into a swiper regex.
This is the regex used in the minibuffer where candidates have
line numbers. For the buffer, use `ivy--regex' instead."
(let* ((re-builder (ivy-alist-setting ivy-re-builders-alist))
(re (cond
((equal str "")
"")
((equal str "^")
(setq ivy--subexps 0)
".")
((string-match "^\\^" str)
(let ((re (funcall re-builder (substring str 1))))
(if (zerop ivy--subexps)
(prog1 (format "^ ?\\(%s\\)" re)
(setq ivy--subexps 1))
(format "^ %s" re))))
((eq (bound-and-true-p search-default-mode) 'char-fold-to-regexp)
(mapconcat #'char-fold-to-regexp (ivy--split str) ".*"))
(t
(funcall re-builder str)))))
re))
(defvar swiper-history nil
"History for `swiper'.")
(defvar swiper-invocation-face nil
"The face at the point of invocation of `swiper'.")
(defcustom swiper-stay-on-quit nil
"When non-nil don't go back to search start on abort."
:type 'boolean)
(defun swiper--ivy (candidates &optional initial-input)
"Select one of CANDIDATES and move there.
When non-nil, INITIAL-INPUT is the initial search pattern."
(swiper--init)
(setq swiper-invocation-face
(plist-get (text-properties-at (point)) 'face))
(let ((preselect
(if swiper-use-visual-line
(count-screen-lines
(point-min)
(save-excursion (beginning-of-visual-line) (point)))
(1- (line-number-at-pos))))
(minibuffer-allow-text-properties t)
res)
(unwind-protect
(and
(setq res
(ivy-read
"Swiper: "
candidates
:initial-input initial-input
:keymap swiper-map
:preselect preselect
:require-match t
:update-fn #'swiper--update-input-ivy
:unwind #'swiper--cleanup
:action #'swiper--action
:re-builder #'swiper--re-builder
:history 'swiper-history
:caller 'swiper))
(point))
(unless (or res swiper-stay-on-quit)
(goto-char swiper--opoint))
(when (and (null res) (> (length ivy-text) 0))
(cl-pushnew ivy-text swiper-history))
(when swiper--reveal-mode
(reveal-mode 1)))))
(defun swiper-toggle-face-matching ()
"Toggle matching only the candidates with `swiper-invocation-face'."
(interactive)
(setf (ivy-state-matcher ivy-last)
(if (ivy-state-matcher ivy-last)
nil
#'swiper--face-matcher))
(setq ivy--old-re nil))
(defun swiper--face-matcher (regexp candidates)
"Return REGEXP matching CANDIDATES.
Matched candidates should have `swiper-invocation-face'."
(cl-remove-if-not
(lambda (x)
(and
(string-match regexp x)
(let ((s (match-string 0 x))
(i 0))
(while (and (< i (length s))
(text-property-any
i (1+ i)
'face swiper-invocation-face
s))
(cl-incf i))
(eq i (length s)))))
candidates))
(defun swiper--ensure-visible ()
"Remove overlays hiding point."
(let ((overlays (overlays-at (1- (point))))
ov expose)
(while (setq ov (pop overlays))
(if (and (invisible-p (overlay-get ov 'invisible))
(setq expose (overlay-get ov 'isearch-open-invisible)))
(funcall expose ov)))))
(defvar swiper--overlays nil
"Store overlays.")
(defun swiper--cleanup ()
"Clean up the overlays."
(while swiper--overlays
(delete-overlay (pop swiper--overlays)))
(save-excursion
(goto-char (point-min))
(isearch-clean-overlays)))
(defun swiper--update-input-ivy ()
"Called when `ivy' input is updated."
(with-ivy-window
(swiper--cleanup)
(when (> (length (ivy-state-current ivy-last)) 0)
(let* ((regexp-or-regexps (funcall ivy--regex-function ivy-text))
(regexps
(if (listp regexp-or-regexps)
(mapcar #'car (cl-remove-if-not #'cdr regexp-or-regexps))
(list regexp-or-regexps))))
(dolist (re regexps)
(let* ((re (replace-regexp-in-string
" " "\t"
re))
(str (get-text-property 0 'swiper-line-number (ivy-state-current ivy-last)))
(num (if (string-match "^[0-9]+" str)
(string-to-number (match-string 0 str))
0)))
(unless (memq this-command '(ivy-yank-word
ivy-yank-symbol
ivy-yank-char
scroll-other-window))
(when (cl-plusp num)
(unless (if swiper--current-line
(eq swiper--current-line num)
(eq (line-number-at-pos) num))
(goto-char swiper--point-min)
(if swiper-use-visual-line
(line-move (1- num))
(forward-line (1- num))))
(if (and (equal ivy-text "")
(>= swiper--opoint (line-beginning-position))
(<= swiper--opoint (line-end-position)))
(goto-char swiper--opoint)
(if (eq swiper--current-line num)
(when swiper--current-match-start
(goto-char swiper--current-match-start))
(setq swiper--current-line num))
(when (re-search-forward re (line-end-position) t)
(setq swiper--current-match-start (match-beginning 0))))
(isearch-range-invisible (line-beginning-position)
(line-end-position))
(unless (and (>= (point) (window-start))
(<= (point) (window-end (ivy-state-window ivy-last) t)))
(recenter))
(setq swiper--current-window-start (window-start))))
(swiper--add-overlays
re
(max (window-start) swiper--point-min)
(min (window-end (selected-window) t) swiper--point-max))))))))
(defun swiper--add-overlays (re &optional beg end wnd)
"Add overlays for RE regexp in visible part of the current buffer.
BEG and END, when specified, are the point bounds.
WND, when specified is the window."
(setq wnd (or wnd (ivy-state-window ivy-last)))
(let ((ov (if visual-line-mode
(make-overlay
(save-excursion
(beginning-of-visual-line)
(point))
(save-excursion
(end-of-visual-line)
(point)))
(make-overlay
(line-beginning-position)
(1+ (line-end-position))))))
(overlay-put ov 'face 'swiper-line-face)
(overlay-put ov 'window wnd)
(push ov swiper--overlays)
(let* ((wh (window-height))
(beg (or beg (save-excursion
(forward-line (- wh))
(point))))
(end (or end (save-excursion
(forward-line wh)
(point))))
(case-fold-search (ivy--case-fold-p re)))
(when (>= (length re) swiper-min-highlight)
(save-excursion
(goto-char beg)
;; RE can become an invalid regexp
(while (and (ignore-errors (re-search-forward re end t))
(> (- (match-end 0) (match-beginning 0)) 0))
;; Don't highlight a match if it spans multiple
;; lines. `count-lines' returns 1 if the match is within a
;; single line, even if it includes the newline, and 2 or
;; greater otherwise. We hope that the inclusion of the
;; newline will not ever be a problem in practice.
(when (< (count-lines (match-beginning 0) (match-end 0)) 2)
(unless (and (consp ivy--old-re)
(null
(save-match-data
(ivy--re-filter ivy--old-re
(list
(buffer-substring-no-properties
(line-beginning-position)
(line-end-position)))))))
(let ((mb (match-beginning 0))
(me (match-end 0)))
(unless (> (- me mb) 2017)
(swiper--add-overlay mb me
(if (zerop ivy--subexps)
(cadr swiper-faces)
(car swiper-faces))
wnd 0))))
(let ((i 1)
(j 0))
(while (<= (cl-incf j) ivy--subexps)
(let ((bm (match-beginning j))
(em (match-end j)))
(when (and (integerp em)
(integerp bm))
(while (and (< j ivy--subexps)
(integerp (match-beginning (+ j 1)))
(= em (match-beginning (+ j 1))))
(setq em (match-end (cl-incf j))))
(swiper--add-overlay
bm em
(nth (1+ (mod (+ i 2) (1- (length swiper-faces))))
swiper-faces)
wnd i)
(cl-incf i))))))))))))
(defun swiper--add-overlay (beg end face wnd priority)
"Add overlay bound by BEG and END to `swiper--overlays'.
FACE, WND and PRIORITY are properties corresponding to
the face, window and priority of the overlay."
(let ((overlay (make-overlay beg end)))
(push overlay swiper--overlays)
(overlay-put overlay 'face face)
(overlay-put overlay 'window wnd)
(overlay-put overlay 'priority priority)))
(defcustom swiper-action-recenter nil
"When non-nil, recenter after exiting `swiper'."
:type 'boolean)
(defvar evil-search-module)
(defvar evil-ex-search-pattern)
(defvar evil-ex-search-persistent-highlight)
(defvar evil-ex-search-direction)
(declare-function evil-ex-search-activate-highlight "evil-ex")
(defun swiper--action (x)
"Goto line X."
(let ((ln (1- (read (or (get-text-property 0 'swiper-line-number x)
(and (string-match ":\\([0-9]+\\):.*\\'" x)
(match-string-no-properties 1 x))))))
(re (ivy--regex ivy-text)))
(if (null x)
(user-error "No candidates")
(with-ivy-window
(unless (equal (current-buffer)
(ivy-state-buffer ivy-last))
(switch-to-buffer (ivy-state-buffer ivy-last)))
(goto-char swiper--point-min)
(funcall (if swiper-use-visual-line
#'line-move
#'forward-line)
ln)
(when (and (re-search-forward re (line-end-position) t) swiper-goto-start-of-match)
(goto-char (match-beginning 0)))
(swiper--ensure-visible)
(cond (swiper-action-recenter
(recenter))
(swiper--current-window-start
(set-window-start (selected-window) swiper--current-window-start)))
(when (/= (point) swiper--opoint)
(unless (and transient-mark-mode mark-active)
(when (eq ivy-exit 'done)
(push-mark swiper--opoint t)
(message "Mark saved where search started"))))
(add-to-history
'regexp-search-ring
re
regexp-search-ring-max)
;; integration with evil-mode's search
(when (bound-and-true-p evil-mode)
(when (eq evil-search-module 'isearch)
(setq isearch-string ivy-text))
(when (eq evil-search-module 'evil-search)
(add-to-history 'evil-ex-search-history re)
(setq evil-ex-search-pattern (list re t t))
(setq evil-ex-search-direction 'forward)
(when evil-ex-search-persistent-highlight
(evil-ex-search-activate-highlight evil-ex-search-pattern))))))))
(defun swiper-from-isearch ()
"Invoke `swiper' from isearch."
(interactive)
(let ((query (if isearch-regexp
isearch-string
(regexp-quote isearch-string))))
(isearch-exit)
(swiper query)))
(defvar swiper-multi-buffers nil
"Store the current list of buffers.")
(defvar swiper-multi-candidates nil
"Store the list of candidates for `swiper-multi'.")
(defun swiper-multi-prompt ()
"Return prompt for `swiper-multi'."
(format "Buffers (%s): "
(mapconcat #'identity swiper-multi-buffers ", ")))
(defun swiper-multi ()
"Select one or more buffers.
Run `swiper' for those buffers."
(interactive)
(setq swiper-multi-buffers nil)
(let ((ivy-use-virtual-buffers nil))
(ivy-read (swiper-multi-prompt)
'internal-complete-buffer
:action 'swiper-multi-action-1))
(ivy-read "Swiper: " swiper-multi-candidates
:action 'swiper-multi-action-2
:unwind #'swiper--cleanup
:caller 'swiper-multi))
(defun swiper-multi-action-1 (x)
"Add X to list of selected buffers `swiper-multi-buffers'.
If X is already part of the list, remove it instead. Quit the selection if
X is selected by either `ivy-done', `ivy-alt-done' or `ivy-immediate-done',
otherwise continue prompting for buffers."
(if (member x swiper-multi-buffers)
(progn
(setq swiper-multi-buffers (delete x swiper-multi-buffers)))
(unless (equal x "")
(setq swiper-multi-buffers (append swiper-multi-buffers (list x)))))
(let ((prompt (swiper-multi-prompt)))
(setf (ivy-state-prompt ivy-last) prompt)
(setq ivy--prompt (concat "%-4d " prompt)))
(cond ((memq this-command '(ivy-done
ivy-alt-done
ivy-immediate-done))
(setq swiper-multi-candidates
(swiper--multi-candidates
(mapcar #'get-buffer swiper-multi-buffers))))
((eq this-command 'ivy-call)
(with-selected-window (active-minibuffer-window)
(delete-minibuffer-contents)))))
(defun swiper-multi-action-2 (x)
"Move to candidate X from `swiper-multi'."
(when (> (length x) 0)
(let ((buffer-name (get-text-property 0 'buffer x)))
(when buffer-name
(with-ivy-window
(switch-to-buffer buffer-name)
(goto-char (point-min))
(forward-line (1- (read (get-text-property 0 'swiper-line-number x))))
(re-search-forward
(ivy--regex ivy-text)
(line-end-position) t)
(isearch-range-invisible (line-beginning-position)
(line-end-position))
(unless (eq ivy-exit 'done)
(swiper--cleanup)
(swiper--add-overlays (ivy--regex ivy-text))))))))
(defun swiper-all-buffer-p (buffer)
"Return non-nil if BUFFER should be considered by `swiper-all'."
(let ((mode (buffer-local-value 'major-mode (get-buffer buffer))))
(cond
;; Ignore TAGS buffers, they tend to add duplicate results.
((eq mode #'tags-table-mode) nil)
;; Always consider dired buffers, even though they're not backed
;; by a file.
((eq mode #'dired-mode) t)
;; Always consider stash buffers too, as they may have
;; interesting content not present in any buffers. We don't #'
;; quote to satisfy the byte-compiler.
((eq mode 'magit-stash-mode) t)
;; Email buffers have no file, but are useful to search
((eq mode 'gnus-article-mode) t)
;; Otherwise, only consider the file if it's backed by a file.
(t (buffer-file-name buffer)))))
;;* `swiper-all'
(defun swiper-all-function (str)
"Search in all open buffers for STR."
(if (and (< (length str) 3))
(list "" (format "%d chars more" (- 3 (length ivy-text))))
(let* ((buffers (cl-remove-if-not #'swiper-all-buffer-p (buffer-list)))
(re-full (funcall ivy--regex-function str))
re re-tail
cands match
(case-fold-search (ivy--case-fold-p str)))
(if (stringp re-full)
(setq re re-full)
(setq re (caar re-full))
(setq re-tail (cdr re-full)))
(dolist (buffer buffers)
(with-current-buffer buffer
(save-excursion
(goto-char (point-min))
(while (re-search-forward re nil t)
(setq match (if (memq major-mode '(org-mode dired-mode))
(buffer-substring-no-properties
(line-beginning-position)
(line-end-position))
(buffer-substring
(line-beginning-position)
(line-end-position))))
(put-text-property
0 1 'buffer
(buffer-name)
match)
(put-text-property 0 1 'point (point) match)
(when (or (null re-tail) (ivy-re-match re-tail match))
(push match cands))))))
(setq ivy--old-re re-full)
(if (null cands)
(list "")
(setq ivy--old-cands (nreverse cands))))))
(defvar swiper-window-width 80)
(defun swiper--all-format-function (cands)
"Format CANDS for `swiper-all'.
See `ivy-format-function' for further information."
(let* ((ww swiper-window-width)
(col2 1)
(cands-with-buffer
(mapcar (lambda (s)
(let ((buffer (get-text-property 0 'buffer s)))
(setq col2 (max col2 (length buffer)))
(cons s buffer))) cands))
(col1 (- ww 4 col2)))
(setq cands
(mapcar (lambda (x)
(if (cdr x)
(let ((s (ivy--truncate-string (car x) col1)))
(concat
s
(make-string
(max 0
(- ww (string-width s) (length (cdr x))))
?\ )
(cdr x)))
(car x)))
cands-with-buffer))
(ivy--format-function-generic
(lambda (str)
(ivy--add-face str 'ivy-current-match))
(lambda (str)
str)
cands
"\n")))
(defvar swiper-all-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "M-q") 'swiper-all-query-replace)
map)
"Keymap for `swiper-all'.")
;;;###autoload
(defun swiper-all (&optional initial-input)
"Run `swiper' for all open buffers."
(interactive)
(let* ((swiper-window-width (- (frame-width) (if (display-graphic-p) 0 1)))
(ivy-format-function #'swiper--all-format-function))
(ivy-read "swiper-all: " 'swiper-all-function
:action 'swiper-all-action
:unwind #'swiper--cleanup
:update-fn (lambda ()
(swiper-all-action (ivy-state-current ivy-last)))
:dynamic-collection t
:keymap swiper-all-map
:initial-input initial-input
:caller 'swiper-multi)))
(defun swiper-all-action (x)
"Move to candidate X from `swiper-all'."
(when (> (length x) 0)
(let ((buffer-name (get-text-property 0 'buffer x)))
(when buffer-name
(with-ivy-window
(switch-to-buffer buffer-name)
(goto-char (get-text-property 0 'point x))
(isearch-range-invisible (line-beginning-position)
(line-end-position))
(unless (eq ivy-exit 'done)
(swiper--cleanup)
(swiper--add-overlays (ivy--regex ivy-text))))))))
(defun swiper--multi-candidates (buffers)
"Extract candidates from BUFFERS."
(let* ((ww (window-width))
(res nil)
(column-2 (apply #'max
(mapcar
(lambda (b)
(length (buffer-name b)))
buffers)))
(column-1 (- ww 4 column-2 1)))
(dolist (buf buffers)
(with-current-buffer buf
(setq res
(append
(mapcar
(lambda (s)
(setq s (concat (ivy--truncate-string s column-1) " "))
(let ((len (length s)))
(put-text-property
(1- len) len 'display
(concat
(make-string
(max 0
(- ww (string-width s) (length (buffer-name)) 3))
?\ )
(buffer-name))
s)
(put-text-property 0 len 'buffer buf s)
s))
(swiper--candidates 4))
res))
nil))
res))
(provide 'swiper)
;;; swiper.el ends here