;ELC ;;; Compiled ;;; in Emacs version 25.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315#\210\312\316\317\320#\210\312\321\322\323#\210\312\324\325\326#\210\312\327\330\331#\210\332\333\334\335\336DD\337\306\340\341\342&\210\332\343\334\335\344DD\345\341\346%\210\332\347\334\335\350DD\351\341\352\306\303&\210\332\353\334\335\354DD\355\341\352\306\303&\207" [require ivy custom-declare-group swiper nil "`isearch' with an overview." :group matching :prefix "swiper-" custom-declare-face swiper-match-face-1 ((t (:inherit isearch-lazy-highlight-face))) "The background face for `swiper' matches." swiper-match-face-2 ((t (:inherit isearch))) "Face for `swiper' matches modulo 1." swiper-match-face-3 ((t (:inherit match))) "Face for `swiper' matches modulo 2." swiper-match-face-4 ((t (:inherit isearch-fail))) "Face for `swiper' matches modulo 3." swiper-line-face ((t (:inherit highlight))) "Face for current `swiper' line." custom-declare-variable swiper-faces funcall function #[0 "\300\207" [(swiper-match-face-1 swiper-match-face-2 swiper-match-face-3 swiper-match-face-4)] 1] "List of `swiper' faces for group matches." ivy-faces :type list swiper-min-highlight #[0 "\300\207" [2] 1] "Only highlight matches for regexps at least this long." integer swiper-include-line-number-in-search #[0 "\300\207" [nil] 1] "Include line number in text of search candidates." boolean swiper-goto-start-of-match #[0 "\300\207" [nil] 1] "When non-nil, go to the start of the match, not its end."] 8) #@20 Keymap for swiper. (defvar swiper-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\211\207" [make-sparse-keymap define-key [134217841] swiper-query-replace "\f" swiper-recenter-top-bottom [67108903] swiper-avy [67108919] swiper-mc "" swiper-toggle-face-matching] 5) (#$ . 1895)) #@71 Start `query-replace' with string to replace from last search string. (defalias 'swiper-query-replace #[0 "\302 \204 \303\304!\207\305\306 !\307\310C\211\311\312\313\314\315\"\316\"\317$\240\210\311\312\320\314\315!\321\"\317$\216\322\323\242\"\210\324\325\326\"!)\266\202\327 \210\330\311\331\332\314\315\"\333\"\334\335%!)\207" [enable-recursive-minibuffers ivy-text window-minibuffer-p user-error "Should only be called in the minibuffer through `swiper-map'" t ivy--regex #[0 "\302\303\"\203\304\305\"\202\211\207" [ivy-text minibuffer-default string-match "\\`\\\\_<\\(.*\\)\\\\_>\\'" match-string 1] 3] nil make-byte-code 0 "\302\303\301\242\"\210\300 \207" vconcat vector [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook read-from-minibuffer format "Query replace %s with: " swiper--cleanup ivy-exit-with-action 257 "\304\305\n!!r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210\317\320!\210\321\322\300\301\321\211\323%+\207" [ivy-last inhibit-read-only internal--before-with-selected-window ivy--get-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord move-beginning-of-line 1 t perform-replace nil] 8 "\n\n(fn _)"] 11 (#$ . 2245) nil]) #@71 Start `query-replace' with string to replace from last search string. (defalias 'swiper-all-query-replace #[0 "\302 \204 \303\304!\207\305\306 !\307\310\305#\311 \210\312\313\314\315\316\317\"\320\"\321\322%!)\207" [enable-recursive-minibuffers ivy-text window-minibuffer-p user-error "Should only be called in the minibuffer through `swiper-all-map'" t ivy--regex query-replace-read-to "Query replace" swiper--cleanup ivy-exit-with-action make-byte-code 257 "\304 \305\306\307\310\311\312!\313\"\314$\216 \211\2053\211@\315\307\316#\317!\210eb\210\320\300\301\305\211\321%\266A\266\202\202\262*\207" vconcat vector [inhibit-message ivy--old-cands current-window-configuration t make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 get-text-property buffer switch-to-buffer perform-replace nil] 11 "\n\n(fn _)"] 10 (#$ . 3572) nil]) #@47 Jump to one of the current swiper candidates. (defalias 'swiper-avy #[0 "\306\307\310\311#\204\f\312\313!\210\314\230?\205\357\310\315\316\317\n!!r\320\321\322\323\324!\325\"\326$\216\327@\330\"\210\331\332 \333 \"*\262\334\335\336$\321C\337\320\340\341\323\324!\342\"\343\344%\"\345\346\347\"\212\214\332 \333 }\210eb\210\310y\210\310`dW\203v`T\350 BB\262\310y\210\202a\211\262*\"\351\216\352\345\353 \n\321H >\204\220\354\355\356\nD\"\210\n\357HC\"!\210\f\360=\203\244\361 \"\202\254\362\363 \"\364\365#\366 \210)\367A!\203\313\370\371@!\326Z!\210\372 \210\373 \210\374 \202\354\375\376\377\314#\210\201@\310\211\320\321\201A\323\324!\201B\"\343$#\210\201C )\266\205\207" [ivy-text avy-all-windows ivy-last cl-struct-ivy-state-tags avy-style avy-keys require avy nil noerror error "Package avy isn't installed" "" cl-sort internal--before-with-selected-window ivy--get-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord overlays-in window-start window-end < :key overlay-start cl-remove-if-not 257 "\302!\300\242Y\205\303\304\" >\205\300\302!\240\207" [swiper-faces overlay-start overlay-get face] 4 "\n\n(fn OV)" append mapcar #[257 "\300!\301\302\"B\207" [overlay-start overlay-get window] 5 "\n\n(fn OV)"] selected-window #[0 "\300 \207" [avy--done] 1] avy--make-backgrounds avy-window-list signal wrong-type-argument ivy-state 12 de-bruijn avy-read-de-bruijn avy-read avy-tree avy--overlay-post avy--remove-leading-chars avy-push-mark window-minibuffer-p ivy-set-index line-number-at-pos ivy--exhibit ivy-done ivy-call put quit error-message run-at-time "\301\302\303\304#\210\305\306\300!!\207" [put quit error-message "Quit" avy-action-goto avy-candidate-beg] minibuffer-keyboard-quit] 14 (#$ . 4452) nil]) #@51 Create a fake cursor for each `swiper' candidate. (defalias 'swiper-mc #[0 "\302\303\304\305#\204\f\306\307!\210\310 \204\306\311!\210\237C \312\230?\205.\313\314\315\316\317\320!\321\"\322\323%!\207" [ivy--old-cands ivy-text require multiple-cursors nil t error "Multiple-cursors isn't installed" window-minibuffer-p "Call me only from `swiper'" "" ivy-exit-with-action make-byte-code 257 "\301\300\242\300\211\242A\240\210\242\211\262\203\302!\210\300\242\203\303 \210\202\210\304\305!\207" vconcat vector [nil swiper--action mc/create-fake-cursor-at-point multiple-cursors-mode 1] 5 "\n\n(fn _)"] 8 (#$ . 6281) nil]) #@55 Call (`recenter-top-bottom' ARG). (fn &optional ARG) (defalias 'swiper-recenter-top-bottom #[256 "\301\302!!r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210\314!*\207" [ivy-last internal--before-with-selected-window ivy--get-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord recenter-top-bottom] 8 (#$ . 6922) "P"]) #@68 List of major-modes that are incompatible with `font-lock-ensure'. (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 erc-mode forth-mode forth-block-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) (#$ . 7322)) #@49 Return non-nil if we should `font-lock-ensure'. (defalias 'swiper-font-lock-ensure-p #[0 "\303\304!\206\305\300!\203\206 \n>\207" [magit-blame-mode major-mode swiper-font-lock-exclude derived-mode-p magit-mode boundp] 2 (#$ . 8082)]) #@43 Ensure the entired buffer is highlighted. (defalias 'swiper-font-lock-ensure #[0 "\301 ?\205\302 \303V\206??\205\304\305!\203\305 \207\306 \207" [font-lock-mode swiper-font-lock-ensure-p buffer-size 100000 fboundp font-lock-ensure font-lock-fontify-buffer] 2 (#$ . 8329)]) #@43 Store the current candidates format spec. (defvar swiper--format-spec "" (#$ . 8617)) #@64 Store the number of digits needed for the longest line nubmer. (defvar swiper--width nil (#$ . 8709)) #@58 When non-nil, use `line-move' instead of `forward-line'. (defvar swiper-use-visual-line nil (#$ . 8817)) #@194 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. (fn &optional NUMBERS-WIDTH) (defalias 'swiper--candidates #[256 "\203)\306 \307W\203) \310=\203$\311\312!\210\313\314!\203!\314 \210\202$\315 \210\316\202+\317\320ed\"\211\321U?\205\272\206A\322\323\324\"!T\325\326 \"\321\n\203P\327\202Q\330\317\212eb\210\331 \210`dW\203\265\332\333\334\335\n\203w\212\336 \210`)\212\337 \210`){\202{`\340 {#P\341!\262\325\fT\211\262\" \203\226\211P\262\202\237\342\321\343\344%\210\342\321\343\345%\266\211B\266\202\343!\210\202Y\211\237)\266\203\207" [visual-line-mode major-mode swiper-use-visual-line swiper--width swiper--format-spec swiper-include-line-number-in-search buffer-size 20000 org-mode require outline fboundp outline-show-all show-all t nil count-lines 0 floor log 10 format "%%-%dd " #[257 "\300\301\"\207" [line-move t] 4 "\n\n(fn ARG)"] forward-line swiper-font-lock-ensure " " replace-regexp-in-string " " " " beginning-of-visual-line end-of-visual-line line-end-position ivy-cleanup-string put-text-property 1 display swiper-line-number] 13 (#$ . 8929)]) #@33 The point when `swiper' starts. (defvar swiper--opoint 1 (#$ . 10154)) #@118 `isearch' with an overview. When non-nil, INITIAL-INPUT is the initial search pattern. (fn &optional INITIAL-INPUT) (defalias 'swiper #[256 "\300\301 \"\207" [swiper--ivy swiper--candidates] 4 (#$ . 10232) nil]) (defvar swiper--current-window-start nil) #@136 Generate a custom occur buffer for `swiper'. When REVERT is non-nil, regenerate the current *ivy-occur* buffer. (fn &optional REVERT) (defalias 'swiper-occur #[256 "\306\307!\210\310H >\204\311\312\313D\"\210\314H\315\316\317!!r\320\310\321\322\323!\324\"\325$\216\326@\327\"\210\330!\203=\331\330!!\202@\332!*\262\333\334#\335\320\336\337\322\323!\340\"\341\342%\204\\\n\202u\343\344\345\346\347\332 \"\210\350\351\332 \"rq\210\352 )\")\" \353=\204\203\353 \210\354\355!\210\3434\356\3575\"c\210\356\360G\"c\210\361\335\362\"!\210eb\210\363y\207" [ivy-last cl-struct-ivy-state-tags ivy--old-cands ivy--old-re ivy--regex-function major-mode require subr-x 0 signal wrong-type-argument ivy-state 13 propertize internal--before-with-selected-window ivy--get-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord buffer-file-name file-name-nondirectory buffer-name face compilation-info mapcar 257 "\301\302\300\303\304\305\306\307#!\310\311#\312\313O$\207" [format "%s:%s:%s" propertize string-trim-right get-text-property 0 swiper-line-number face compilation-line-number 1 nil] 10 "\n\n(fn S)" nil swiper--re-builder ivy--filter string-match "\"\\(.*\\)\"" match-string 1 swiper--candidates ivy-occur-grep-mode font-lock-mode -1 format "-*- mode:grep; default-directory: %S -*-\n\n\n" "%d candidates:\n" ivy--occur-insert-lines #[257 "\300P\207" ["./"] 3 "\n\n(fn CAND)"] 4 swiper--current-window-start default-directory] 10 (#$ . 10495)]) (ivy-set-occur 'swiper 'swiper-occur) (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) #@59 Perform initialization common to both completion methods. (defalias 'swiper--init #[0 "\306\211\306`ed\307\310!\205\211\f\203\310\311!\210\307\312!\205+\n\205+\313 \207" [swiper--current-line swiper--current-match-start swiper--current-window-start swiper--opoint swiper--point-min swiper--point-max nil boundp reveal-mode -1 evil-mode evil-set-jump swiper--reveal-mode] 3 (#$ . 12244)]) #@166 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. (fn STR) (defalias 'swiper--re-builder #[257 "\303\304\"A\206 \303\305\"A\306\232\203\306\202a\307\232\203#\310\311\202a\312\313\"\203H\211\314\315O! \310U\203?\316\317\"\314\202C\316\320\"\262\202a\321\302!\205O\n\322=\203^\323\322\324!\325#\202a\211!\207" [ivy-re-builders-alist ivy--subexps search-default-mode assoc swiper t "" "^" 0 "." string-match "^\\^" 1 nil format "^ ?\\(%s\\)" "^ %s" boundp char-fold-to-regexp mapconcat ivy--split ".*"] 6 (#$ . 12655)]) #@23 History for `swiper'. (defvar swiper-history nil (#$ . 13310)) #@50 The face at the point of invocation of `swiper'. (defvar swiper-invocation-face nil (#$ . 13379)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable swiper-stay-on-quit funcall function #[0 "\300\207" [nil] 1] "When non-nil don't go back to search start on abort." :type boolean] 6) #@142 Select one of CANDIDATES and move there. When non-nil, INITIAL-INPUT is the initial search pattern. (fn CANDIDATES &optional INITIAL-INPUT) (defalias 'swiper--ivy #[513 "\304 \210\305\306`!\307\" \203\310e\212\311 \210`)\"\202\312 S\313\314C\315\316\317\320\321!\322\"\323$\216\211\324\325\326\327 \330 \331\313\332\333\334\335\336\337\340\341\342\343\344\345&\240\205P`*\207" [swiper-invocation-face swiper-use-visual-line minibuffer-allow-text-properties swiper-map swiper--init plist-get text-properties-at face count-screen-lines beginning-of-visual-line line-number-at-pos t nil make-byte-code 0 "\300\242\204\f \204\f\nb\210\300\242\204% G\306V\203% \307\f\"\204$\211\fB\210 \205,\310\311!\207" vconcat vector [swiper-stay-on-quit swiper--opoint ivy-text swiper-history swiper--reveal-mode 0 memql reveal-mode 1] 4 ivy-read "Swiper: " :initial-input :keymap :preselect :require-match :update-fn swiper--update-input-ivy :unwind swiper--cleanup :action swiper--action :re-builder swiper--re-builder :history swiper-history :caller swiper] 29 (#$ . 13696)]) #@68 Toggle matching only the candidates with `swiper-invocation-face'. (defalias 'swiper-toggle-face-matching #[0 "\303H >\204\304\305\306D\"\210\211\307\303H >\204!\304\305\306D\"\210\307H?\205)\310I\266\311\211\207" [ivy-last cl-struct-ivy-state-tags ivy--old-re 0 signal wrong-type-argument ivy-state 18 swiper--face-matcher nil] 7 (#$ . 14788) nil]) #@117 Return REGEXP matching CANDIDATES. Matched candidates should have `swiper-invocation-face'. (fn REGEXP CANDIDATES) (defalias 'swiper--face-matcher #[514 "\300\301\302\303\304\305!\306\"\307\310%\"\207" [cl-remove-if-not make-byte-code 257 "\302\300\"\205,\303\304\"\304\211GW\203&\305\211T\306 %\203&\211T\262\202\f\211G=\266\202\207" vconcat vector [swiper-invocation-face string-match match-string 0 text-property-any face] 9 "\n\n(fn X)"] 9 (#$ . 15157)]) #@31 Remove overlays hiding point. (defalias 'swiper--ensure-visible #[0 "\300`S!\301\211\211A\262\242\211\262\205,\302\303\304\"!\203\303\305\"\211\262\203\211!\210\202\207" [overlays-at nil invisible-p overlay-get invisible isearch-open-invisible] 7 (#$ . 15638)]) #@17 Store overlays. (defvar swiper--overlays nil (#$ . 15920)) #@24 Clean up the overlays. (defalias 'swiper--cleanup #[0 "\203\301\211A\242!\210\202\212eb\210\302 )\207" [swiper--overlays delete-overlay isearch-clean-overlays] 3 (#$ . 15985)]) #@37 Called when `ivy' input is updated. (defalias 'swiper--update-input-ivy #[0 "\306\307!!r\310\311\312\313\314!\315\"\316$\216\317@\320\"\210\321 \210\311H >\204*\322\323\324D\"\210\325HG\311V\205\"\n !\211;\203?\211\202B\211@@\326\327\330#\331\311\332\311H >\204Y\322\323\324D\"\210\325H#\333\334\"\203m\335\336\311\"!\202n\311\f\337=\204\211\211\311V\262\203 \203\207 =\202\213\340 =\204\243.b\210/\203\237\341S!\210\202\243\211Sy\210 \342\232\203\3000\343 Y\203\3000\344 X\203\3000b\210\202\341 =\203\3221\203\3241b\210\202\324\211\345\344 \346#\203\341\311\2241\347\343 \344 \"\210`\350 Y\203 `\351\311H >\204\322\323\324D\"\210\352H\346\"X\204\f\353 \210\350 2\354\350 .]\351\355 \346\"3^#\266\205*\207" [ivy-last cl-struct-ivy-state-tags ivy--regex-function ivy-text this-command swiper--current-line internal--before-with-selected-window ivy--get-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord swiper--cleanup signal wrong-type-argument ivy-state 23 replace-regexp-in-string " " " " get-text-property swiper-line-number string-match "^[0-9]+" string-to-number match-string ivy-yank-word line-number-at-pos line-move "" line-beginning-position line-end-position re-search-forward t isearch-range-invisible window-start window-end 12 recenter swiper--add-overlays selected-window swiper--point-min swiper-use-visual-line swiper--opoint swiper--current-match-start swiper--current-window-start swiper--point-max] 12 (#$ . 16175)]) #@184 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. (fn RE &optional BEG END WND) (defalias 'swiper--add-overlays #[1025 "\211\206\306H >\204\307\310\311D\"\210\312H\262\n\203-\313\212\314 \210`)\212\315 \210`)\"\2024\313\316 \317 T\"\320\321\322#\210\320\323#\210\211 B\324 \206Q\212\211[y\210`)\206[\212y\210`)\f\205d\211\227\230GY\205\212b\210\3251\200\326\327#0\202\205\210\330\202\205\306\225\306\224Z\306V\205\306\224\306\225\211Z\331V\204\267\332\306U\203\257 A@\202\262 @\n\306%\210\266\333\306\211T\211\262X\203\211\224\225\211\250\203\250\203W\203\365T\224\250\203\365\211T\224U\203\365T\211\262\225\262\202\324\332\334\335\\ GS\"T 8\f%\210T\262\266\202\273\266\202r))\266\203\207" [ivy-last cl-struct-ivy-state-tags visual-line-mode swiper--overlays ivy-case-fold-search case-fold-search 0 signal wrong-type-argument ivy-state 12 make-overlay beginning-of-visual-line end-of-visual-line line-beginning-position line-end-position overlay-put face swiper-line-face window window-height (error) re-search-forward t nil 2017 swiper--add-overlay 1 mod 2 swiper-min-highlight ivy--subexps swiper-faces] 18 (#$ . 17752)]) #@190 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. (fn BEG END FACE WND PRIORITY) (defalias 'swiper--add-overlay #[1285 "\301\"\211B\302\303#\210\302\304#\210\302\305#\207" [swiper--overlays make-overlay overlay-put face window priority] 10 (#$ . 19077)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable swiper-action-recenter funcall function #[0 "\300\207" [nil] 1] "When non-nil, recenter after exiting `swiper'." :type boolean] 6) #@22 Goto line X. (fn X) (defalias 'swiper--action #[257 "\306\307\310\311#\206\312\313\"\205\314\315\"!S\316!\204#\317\320!\202\366\321\322 !!r\323\310\324\325\326!\327\"\330$\216\331@\332\"\210p \310H\n>\204K\333\334\335 D\"\210 \336H\232\204g\337 \310H\n>\204b\333\334\335 D\"\210 \336H!\210 b\210\f\203r\340\202s\341!\210\342\343 \344#\203\207 \203\207\310\224b\210\345 \2105\203\225\346 \210\202\2416\203\241\347\350 6\"\210`7U\204\3038\203\2629\204\303:\351=\203\303\3527\344\"\210\353\354!\210\355\356;#\210\357\360!\205\3630\205\363<\361=\205\363\355\362\"\210\344\211E=\363>?\205\363\364=!*\262\207" [ivy-text ivy-last cl-struct-ivy-state-tags swiper--point-min swiper-use-visual-line swiper-goto-start-of-match read get-text-property 0 swiper-line-number string-match ":\\([0-9]+\\):.*\\'" match-string-no-properties 1 ivy--regex user-error "No candidates" internal--before-with-selected-window ivy--get-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord signal wrong-type-argument ivy-state 13 switch-to-buffer line-move forward-line re-search-forward line-end-position t swiper--ensure-visible recenter set-window-start selected-window done push-mark message "Mark saved where search started" add-to-history regexp-search-ring boundp evil-mode evil-search evil-ex-search-history forward evil-ex-search-activate-highlight swiper-action-recenter swiper--current-window-start swiper--opoint transient-mark-mode mark-active ivy-exit regexp-search-ring-max evil-search-module evil-ex-search-pattern evil-ex-search-direction evil-ex-search-persistent-highlight] 10 (#$ . 19666)]) #@31 Invoke `swiper' from isearch. (defalias 'swiper-from-isearch #[0 "\203 \202 \302 !\303 \210\304!\207" [isearch-regexp isearch-string regexp-quote isearch-exit swiper] 3 (#$ . 21372) nil]) #@36 Store the current list of buffers. (defvar swiper-multi-buffers nil (#$ . 21571)) #@50 Store the list of candidates for `swiper-multi'. (defvar swiper-multi-candidates nil (#$ . 21659)) #@35 Return prompt for `swiper-multi'. (defalias 'swiper-multi-prompt #[0 "\301\302\303\304\305#\"\207" [swiper-multi-buffers format "Buffers (%s): " mapconcat identity ", "] 6 (#$ . 21764)]) #@61 Select one or more buffers. Run `swiper' for those buffers. (defalias 'swiper-multi #[0 "\303\211\304\305 \306\307\310$\210)\304\311\n\307\312\313\314\315\316&\207" [swiper-multi-buffers ivy-use-virtual-buffers swiper-multi-candidates nil ivy-read swiper-multi-prompt internal-complete-buffer :action swiper-multi-action-1 "Swiper: " swiper-multi-action-2 :unwind swiper--cleanup :caller swiper-multi] 10 (#$ . 21958) nil]) #@261 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. (fn X) (defalias 'swiper-multi-action-1 #[257 "\211\235\203\306\"\202\211\307\232\204\310C\"\311 \312H\n>\204+\313\314\315 D\"\210 \211\316I\266\317P\210\f\320>\203F\321\322\323\"!\211\207\f\324=\205h\325\326 !r\327\312\330\331\332!\333\"\334$\216\335@\336\"\210\337 *\262\207" [swiper-multi-buffers ivy-last cl-struct-ivy-state-tags ivy--prompt this-command swiper-multi-candidates delete "" append swiper-multi-prompt 0 signal wrong-type-argument ivy-state 1 "%-4d " (ivy-done ivy-alt-done ivy-immediate-done) swiper--multi-candidates mapcar get-buffer ivy-call internal--before-with-selected-window active-minibuffer-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord delete-minibuffer-contents] 8 (#$ . 22392)]) #@50 Move to candidate X from `swiper-multi'. (fn X) (defalias 'swiper-multi-action-2 #[257 "\211G\303V\205^\304\303\305#\211\205\\\306\307!!r\310\303\311\312\313!\314\"\315$\216\316@\317\"\210\320!\210eb\210\321\304\303\322#!Sy\210\323\324 !\325 \326#\210\327\330 \325 \"\210\n\331=?\205Y\332 \210\333\324 !!*\262\262\207" [ivy-last ivy-text ivy-exit 0 get-text-property buffer internal--before-with-selected-window ivy--get-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord switch-to-buffer read swiper-line-number re-search-forward ivy--regex line-end-position t isearch-range-invisible line-beginning-position done swiper--cleanup swiper--add-overlays] 9 (#$ . 23459)]) #@77 Return non-nil if BUFFER should be considered by `swiper-all'. (fn BUFFER) (defalias 'swiper-all-buffer-p #[257 "\300\301\302!\"\211\303=\203\304\2021\211\305=\203\306\2021\211\307=\203$\306\2021\211\310=\203.\306\2021\311!\207" [buffer-local-value major-mode get-buffer tags-table-mode nil dired-mode t magit-stash-mode gnus-article-mode buffer-file-name] 5 (#$ . 24214)]) #@47 Search in all open buffers for STR. (fn STR) (defalias 'swiper-all-function #[257 "\211G\306W\203\307\310\311\306GZ\"D\207\312\313\314 \" !\315\211\211\211\n\205&\211\227\230;\2032\262\202;@@\262A\262\211\203\227\211@r\211q\210\212eb\210\316\315\317#\203\217\f\320>\203b\321\322 \323 \"\202g\322 \323 {\262\324\325\326\327\330 %\210\324\325\326\331`%\210\203\207\332\"\203JB\262\202J*A\266\202\202<\210\204\243\307C\202\250\237\211)\207" [ivy-text ivy--regex-function ivy-case-fold-search case-fold-search major-mode ivy--old-re 3 "" format "%d chars more" cl-remove-if-not swiper-all-buffer-p buffer-list nil re-search-forward t (org-mode dired-mode) buffer-substring-no-properties line-beginning-position line-end-position put-text-property 0 1 buffer buffer-name point ivy-re-match ivy--old-cands] 15 (#$ . 24607)]) (defvar swiper-window-width 80) #@95 Format CANDS for `swiper-all'. See `ivy-format-function' for further information. (fn CANDS) (defalias 'swiper--all-format-function #[257 "\301C\302\303\304\305\306\307!\310\"\311\312%\"\313\314\242#\302\303\304\315\306\307 \"\316\"\317\320%\"\262\321\322\323\324$\207" [swiper-window-width 1 mapcar make-byte-code 257 "\301\302\303#\300\211\242G]\240\210B\207" vconcat vector [get-text-property 0 buffer] 5 "\n\n(fn S)" - 4 "\211A\203\302@\301\"\211\303\304\305\300\306!AG#]\307\"AQ\207\211@\207" [ivy--truncate-string make-string 0 - string-width 32] 9 "\n\n(fn X)" ivy--format-function-generic #[257 "\300\301\"\207" [ivy--add-face ivy-current-match] 4 "\n\n(fn STR)"] #[257 "\207" [] 2 "\n\n(fn STR)"] "\n"] 13 (#$ . 25513)]) #@26 Keymap for `swiper-all'. (defvar swiper-all-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [134217841] swiper-all-query-replace] 5) (#$ . 26276)) #@66 Run `swiper' for all open buffers. (fn &optional INITIAL-INPUT) (defalias 'swiper-all #[256 "\303 \304 \203 \305\202\f\306Z\307\310\311\312\313\314\315\316\317\320\321\322\323\n\324\325\326&*\207" [swiper-window-width ivy-format-function swiper-all-map frame-width display-graphic-p 0 1 swiper--all-format-function ivy-read "swiper-all: " swiper-all-function :action swiper-all-action :unwind swiper--cleanup :update-fn #[0 "\302\303H >\204\304\305\306D\"\210\307H!\207" [ivy-last cl-struct-ivy-state-tags swiper-all-action 0 signal wrong-type-argument ivy-state 23] 5] :dynamic-collection t :keymap :initial-input :caller swiper-multi] 18 (#$ . 26461) nil]) #@48 Move to candidate X from `swiper-all'. (fn X) (defalias 'swiper-all-action #[257 "\211G\303V\205N\304\303\305#\211\205L\306\307!!r\310\303\311\312\313!\314\"\315$\216\316@\317\"\210\320!\210\304\303\321#b\210\322\323 \324 \"\210 \325=?\205I\326 \210\327\330\n!!*\262\262\207" [ivy-last ivy-exit ivy-text 0 get-text-property buffer internal--before-with-selected-window ivy--get-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord switch-to-buffer point isearch-range-invisible line-beginning-position line-end-position done swiper--cleanup swiper--add-overlays ivy--regex] 9 (#$ . 27139)]) #@48 Extract candidates from BUFFERS. (fn BUFFERS) (defalias 'swiper--multi-candidates #[257 "\300 \301\302\303\304\305\"\"\306\307\310$\211\203>\211@r\211q\210\311\304\312\313\314\315\316\f\n\"\317\"\320\321%\322\307!\"\"\262)A\266\202\202\210\207" [window-width nil apply max mapcar #[257 "\300!G\207" [buffer-name] 3 "\n\n(fn B)"] - 4 1 append make-byte-code 257 "\302\301\"\303P\262\211G\304S\305\306\307\310\300\311\n!\312 G\313$]\314\"\312 P%\210\207" vconcat vector [ivy--truncate-string " " put-text-property display make-string 0 - string-width buffer-name 3 32] 13 "\n\n(fn S)" swiper--candidates] 16 (#$ . 27812)]) (provide 'swiper)