;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\306\316%\210\312\317\320\321\306\316%\210\312\322\323\324\306\316%\210\312\325\326\327\306\316%\210\312\330\331\332\306\316%\210\312\333\334\335\306\316%\210\312\336\337\340\306\316%\210\312\341\342\343\306\316%\210\312\344\345\346\306\316%\210\347\350\351\352\353DD\354\306\316\355\356&\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 lazy-highlight)) "The background face for `swiper' matches." ivy-faces 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-background-match-face-1 ((t :inherit swiper-match-face-1)) "The background face for non-current `swiper' matches." swiper-background-match-face-2 ((t :inherit swiper-match-face-2)) "Face for non-current `swiper' matches modulo 1." swiper-background-match-face-3 ((t :inherit swiper-match-face-3)) "Face for non-current `swiper' matches modulo 2." swiper-background-match-face-4 ((t :inherit swiper-match-face-4)) "Face for non-current `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." :type (repeat face)] 8) #@71 Like `swiper-faces', but used for all matches except the current one. (defvar swiper-background-faces '(swiper-background-match-face-1 swiper-background-match-face-2 swiper-background-match-face-3 swiper-background-match-face-4) (#$ . 1710)) (defalias 'swiper--recompute-background-faces #[0 "\302\303\304\305 #)\207" [colir-compose-method swiper-faces (swiper-background-match-face-1 swiper-background-match-face-2 swiper-background-match-face-3 swiper-background-match-face-4) colir-compose-soft-light cl-mapc #[514 "\300!\211\205\n\301!\211\205\302\301\303!\"\262\304\"\207" [face-background colir-color-parse colir-blend "#ffffff" set-face-background] 8 "\n\n(fn F1 F2)"]] 5]) (byte-code "\300 \210\301\302\303\304\305DD\306\307\310%\210\301\311\303\304\312DD\313\307\314\315\316&\210\301\317\303\304\320DD\321\307\314\315\316&\207" [swiper--recompute-background-faces custom-declare-variable swiper-min-highlight funcall function #[0 "\300\207" [2] 1] "Only highlight matches for regexps at least this long." :type integer swiper-include-line-number-in-search #[0 "\300\207" [nil] 1] "Include line number in text of search candidates." boolean :group swiper swiper-goto-start-of-match #[0 "\300\207" [nil] 1] "When non-nil, go to the start of the match, not its end.\nTreated as non-nil when searching backwards."] 8) #@133 Move cursor vertically down ARG candidates. If the input is empty, select the previous history element instead. (fn &optional ARG) (defalias 'swiper-C-s #[256 "\301\230\203\n\302\303!\207\304!\207" [ivy-text "" ivy-previous-history-element 1 ivy-next-line] 3 (#$ . 3053) "p"]) #@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\301\314\315#\210\207" [make-sparse-keymap define-key "" swiper-C-s [134217841] swiper-query-replace "\f" swiper-recenter-top-bottom [67108903] swiper-avy [67108919] swiper-mc "" swiper-toggle-face-matching] 5) (#$ . 3340)) (defvar swiper--query-replace-overlays nil) (defalias 'swiper--query-replace-updatefn #[0 "\3021\303\304\305\"80\202\210\306 \211\205P\211@\307\310\311\3121Br\313!q\210\314\315\316\"!\210:\203:\317!\202=\320!)0\202D\210\321\322##\210A\266\202\202\207" [ivy-text swiper--query-replace-overlays (error) 2 query-replace-compile-replacement t nil overlay-put after-string propertize (error) overlay-buffer set-match-data overlay-get md eval match-substitute-replacement face error] 11]) (defalias 'swiper--query-replace-cleanup #[0 "\205\301\211A\242!\210\202\207" [swiper--query-replace-overlays delete-overlay] 3]) (defalias 'swiper--query-replace-setup #[0 "\303\304!!r\305\306\"\216\307@\310\"\210\311\312 \313\"\314 !\212\315 \210\316\313#\205Z\317\320\225S\320\225\"\321\313!\322\323\324\325\326\320G\327\245S\"\"#\210\322\330#\210\nB\266\320\225\320\224V\204\331u\210\202)\266\202*\207" [ivy-last ivy-regex swiper--query-replace-overlays internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord window-end selected-window t ivy-re-to-str beginning-of-line re-search-forward make-overlay 0 match-data overlay-put matches mapcar #[257 "\300D\300!D\207" [match-string] 4 "\n\n(fn X)"] number-sequence 2 md nil] 14]) #@71 Start `query-replace' with string to replace from last search string. (defalias 'swiper-query-replace #[0 "\304 \204 \305\306!\207\307\230\203\305\310!\207\311 \210\312\216\313\314\n!\315\316 \"\317\320\321#\322\323 \316X\2032\324\2027\317\325\326#\"D\327\330\322\331\"\332\333\334\335&\313\"\336 \210\337\340\341#!)\266\204)\207" [ivy-text enable-recursive-minibuffers ivy-regex ivy--subexps window-minibuffer-p user-error "Should only be called in the minibuffer through `swiper-map'" "" "Empty input" swiper--query-replace-setup #[0 "\300 \207" [swiper--query-replace-cleanup] 1] t ivy-re-to-str number-sequence 1 mapconcat #[257 "\300\301\"\207" [format "\\%d"] 4 "\n\n(fn I)"] " " format "\\,(concat %s)" "\\&" #[257 "\300\301\"\207" [format "\\%d"] 4 "\n\n(fn I)"] " \" \" " query-replace-compile-replacement ivy-read "Query replace %s with: " nil :def :caller swiper-query-replace swiper--cleanup ivy-exit-with-action make-closure #[257 "\304\305\n!!r\306\307\"\216\310@\311\"\210\312\313!\210\314\315\300\301\314\211\316%+\207" [V0 V1 ivy-last inhibit-read-only internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord move-beginning-of-line 1 t perform-replace nil] 8 "\n\n(fn _)"]] 11 (#$ . 5083) nil]) (byte-code "\300\301\302\303#\210\304\301\305\306#\207" [ivy-configure swiper-query-replace :update-fn swiper--query-replace-updatefn put no-counsel-M-x t] 4) #@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#!)\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-closure #[257 "\304 \305\306\307\"\216 \211\205,\211@\310\311\312#\313!\210eb\210\314\300\301\305\211\315%\266A\266\202\202\n\262*\207" [V0 V1 inhibit-message ivy--old-cands current-window-configuration t make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] get-text-property 0 buffer switch-to-buffer perform-replace nil] 11 "\n\n(fn _)"]] 7 (#$ . 6580) nil]) (put 'swiper-all-query-replace 'no-counsel-M-x t) (defalias 'swiper--avy-candidates #[0 "\301\302\303!!r\304\305\"\216\306@\307\"\210\310\311 \312 \"*\262\313\314\315$\316C\317\304\320\"\"\321H\322=\2034\323\2025\316\324\325\"\212\214\311 \312 }\210eb\210\326y\210\327 \326m\204]`\\BB\262\326y\210\202J\262*\244\207" [ivy-last cl-sort internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord overlays-in window-start window-end < :key overlay-start 0 cl-remove-if-not #[257 "\303!\300\242Y\205\304\305\"\306 \n\">\205\300\303!\240\207" [V0 swiper-faces swiper-background-faces overlay-start overlay-get face append] 5 "\n\n(fn OV)"] 22 swiper 1 mapcar #[257 "\300!\301\302\"B\207" [overlay-start overlay-get window] 5 "\n\n(fn OV)"] nil selected-window] 9]) (defalias 'swiper--avy-candidate #[0 "\304 \305\306\216\307\310\311 \312HC\"!\210\n\313=\203\314 \"\202&\315\316 \"\317\320#\321 \210*\207" [avy-all-windows ivy-last avy-style avy-keys swiper--avy-candidates nil #[0 "\300 \207" [avy--done] 1] avy--make-backgrounds append avy-window-list 12 de-bruijn avy-read-de-bruijn avy-read avy-tree avy--overlay-post avy--remove-leading-chars avy-push-mark] 6]) #@70 Return `ivy--index' for `avy' candidate at minibuffer POS. (fn POS) (defalias 'swiper--avy-index #[257 "\304\305\"\211\203\306\"\2065\307ed\"\310\311 \n #@\312! TU\204*\n W\203.\313\2021 Z\314$\262\207" [ivy--all-candidates ivy--index ivy--length ivy-height get-text-property point cl-position count-lines + ivy--minibuffer-index-bounds line-number-at-pos 0 -2] 8 (#$ . 8681)]) #@18 (fn CANDIDATE) (defalias 'swiper--avy-goto #[257 "\211\243\211\205 \301!\262\203\302@!\303 \210\304 \210\305 \207\211:\204'\306!\2058\307\310\311\312#\210\313\314\211\315\316\"#\210\317 \207" [ivy--index window-minibuffer-p swiper--avy-index ivy--exhibit ivy-done ivy-call number-or-marker-p put quit error-message "" run-at-time nil make-closure #[0 "\301\302\303\304#\210\3051\306\307\300!!0\207\310\311\"\210\312\207" [V0 put quit error-message "Quit" (debug error) avy-action-goto avy-candidate-beg message "Error: %S" nil] 4] abort-recursive-edit] 7 (#$ . 9079)]) #@58 Jump to one of the current swiper candidates with `avy'. (defalias 'swiper-avy #[0 "\303\304\305\306#\204\f\307\310!\210G\211\311\267\210\202/\307\312!\266\202/ \313H;\203.\314\315 \210)\210\202/\210\316\317 !\207" [ivy-text ivy-last swiper-min-highlight require avy nil noerror user-error "Package avy isn't installed" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 21 1 29)) "Need at least one char of input" 23 1 swiper--update-input-ivy swiper--avy-goto swiper--avy-candidate] 4 (#$ . 9670) nil]) #@107 Create a fake cursor for each `swiper' candidate. Make sure `swiper-mc' is on `mc/cmds-to-run-once' list. (defalias 'swiper-mc #[0 "\303\304\305\306#\204\f\307\310!\210\311 \204\307\312!\210\237C\313 !\n\314\230?\205)\315\316\317#!\207" [ivy--old-cands ivy-last ivy-text require multiple-cursors nil t error "Multiple-cursors isn't installed" window-minibuffer-p "Call me only from `swiper'" ivy--get-action "" ivy-exit-with-action make-closure #[257 "\302\300\242\300\211\242A\240\210\242\211\262\203\301!\210\300\242\203\303 \210\202\210\304\305!\207" [V0 V1 nil mc/create-fake-cursor-at-point multiple-cursors-mode 1] 5 "\n\n(fn _)"]] 7 (#$ . 10227) nil]) #@163 Store `window-start' to restore it later. This prevents a "jumping" behavior which occurs when variables such as `scroll-conservatively' are set to a high value. (defvar swiper--current-window-start nil (#$ . 10908)) #@55 Call (`recenter-top-bottom' ARG). (fn &optional ARG) (defalias 'swiper-recenter-top-bottom #[256 "\302\303!!r\304\305\"\216\306@\307\"\210\310!\210\311 \211*\207" [ivy-last swiper--current-window-start internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord recenter-top-bottom window-start] 5 (#$ . 11131) "P"]) #@68 List of major-modes that are incompatible with `font-lock-ensure'. (defvar swiper-font-lock-exclude '(Man-mode adoc-mode bbdb-mode bongo-library-mode bongo-mode bongo-playlist-mode bookmark-bmenu-mode circe-channel-mode circe-query-mode circe-server-mode deadgrep-mode debbugs-gnu-mode dired-mode elfeed-search-mode elfeed-show-mode emms-playlist-mode emms-stream-mode erc-mode eshell-mode eww-mode forth-block-mode forth-mode fundamental-mode gnus-article-mode gnus-group-mode gnus-summary-mode help-mode helpful-mode jabber-chat-mode magit-popup-mode matrix-client-mode matrix-client-room-list-mode mu4e-headers-mode mu4e-view-mode nix-mode notmuch-search-mode notmuch-tree-mode occur-edit-mode occur-mode org-agenda-mode package-menu-mode rcirc-mode sauron-mode sieve-mode treemacs-mode twittering-mode vc-dir-mode w3m-mode woman-mode xref--xref-buffer-mode) (#$ . 11555)) #@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>\206\303\306!?\207" [magit-blame-mode major-mode swiper-font-lock-exclude derived-mode-p magit-mode boundp prog-mode] 2 (#$ . 12437)]) #@42 Ensure the entire 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 (#$ . 12711)]) #@43 Store the current candidates format spec. (defvar swiper--format-spec "" (#$ . 12999)) #@64 Store the number of digits needed for the longest line number. (defvar swiper--width nil (#$ . 13092)) #@58 When non-nil, use `line-move' instead of `forward-line'. (defvar swiper-use-visual-line nil (#$ . 13201)) (defalias 'swiper--line #[0 "\303=\203\304\301!\203 \203\305 \210`\202%\n\203$\212\306 \210`)\202%`\n\2032\212\307 \210`)\2024\310 \311{P\207" [major-mode dired-isearch-filenames swiper-use-visual-line dired-mode boundp dired-move-to-filename beginning-of-visual-line end-of-visual-line line-end-position " "] 5]) #@113 A predicate that decides whether `line-move' or `forward-line' is used. Note that `line-move' can be very slow. (defvar swiper-use-visual-line-p #[257 "\205\301 \302W\205\211\303W\207" [visual-line-mode buffer-size 20000 400] 3 "\n\n(fn N-LINES)"] (#$ . 13642)) #@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 "\306\307ed\" !\203*\n\310=\203%\311\312!\210\313\314!\203\"\314 \210\202%\315 \210\306\202,\316\211\317U?\205\242\206>\320\321\322\"!T\323\324\f\"\325 \203M\326\202N\327\316\212eb\210\330 \210`dW\203\235\331 \203\222\332 \333!\262\323 \"\203y\211P\262\202\202\334\317\325\335%\210\334\317\325\336%\266\211B\266\202\325!\210T\262\202V\211\237)\266\203)\207" [inhibit-field-text-motion swiper-use-visual-line-p major-mode swiper-use-visual-line swiper--width swiper--format-spec t count-lines org-mode require outline fboundp outline-show-all show-all nil 0 floor log 10 format "%%-%dd " 1 #[257 "\300\301\"\207" [line-move t] 4 "\n\n(fn ARG)"] forward-line swiper-font-lock-ensure swiper-match-usable-p swiper--line ivy-cleanup-string put-text-property display swiper-line-number swiper-include-line-number-in-search] 13 (#$ . 13916)]) #@33 The point when `swiper' starts. (defvar swiper--opoint 1 (#$ . 15029)) #@127 `isearch-backward' with an overview. When non-nil, INITIAL-INPUT is the initial search pattern. (fn &optional INITIAL-INPUT) (defalias 'swiper-backward #[256 "\301\302!)\207" [ivy-index-functions-alist ((swiper . ivy-recompute-index-swiper-backward)) swiper] 3 (#$ . 15107) nil]) #@37 `swiper' with `ivy-thing-at-point'. (defalias 'swiper-thing-at-point #[0 "\300 \301 \203\n\302 \210\303\304!!\207" [ivy-thing-at-point use-region-p deactivate-mark swiper regexp-quote] 4 (#$ . 15396) nil]) #@41 `swiper-all' with `ivy-thing-at-point'. (defalias 'swiper-all-thing-at-point #[0 "\300 \301 \203\n\302 \210\303\304!!\207" [ivy-thing-at-point use-region-p deactivate-mark swiper-all regexp-quote] 4 (#$ . 15610) nil]) #@61 Extract captured REGEX groups from CANDS. (fn REGEX CANDS) (defalias 'swiper--extract-matches #[514 "\300\211\2035\211@C\211\242\301\300O\240\210\302\242\"\203.\303\304\305\"\306\301\307 G\310Z\310\245\"\311#B\262A\266\202\202\210\211\237\207" [nil 1 string-match mapconcat make-closure #[257 "\301\300\242\"\207" [V0 match-string-no-properties] 4 "\n\n(fn N)"] number-sequence match-data 2 " "] 11 (#$ . 15836)]) #@20 (fn FNAME CANDS) (defalias 'swiper--occur-cands #[514 "\211\205Er\301Hq\210\302H\303=\203\304\305\"\262e\214~\210\306!S)\302H\303=\203/\307!\2023\304\310\"G\311\\\304\312\313$\"\266\204)\207" [ivy-last 13 22 swiper-isearch mapcar swiper--line-at-point line-number-at-pos swiper--isearch-occur-cands #[257 "\300!\301\302O\262\303\304\301\305D$\210\211B\207" [swiper--line-number 1 nil add-text-properties 0 swiper-line-number] 7 "\n\n(fn S)"] 2 make-closure #[257 "\303@\301\\!\304\305\306\307A$\210\310\305G\311\312%\210\310\305\306\313\302G\\\300%\210\314\315\300A$\207" [V0 V1 V2 number-to-string remove-text-properties 0 1 (display) put-text-property face ivy-grep-line-number offset format "%s:%s:%s"] 8 "\n\n(fn X)"]] 12 (#$ . 16270)]) #@14 (fn CANDS) (defalias 'swiper--isearch-occur-cands #[257 "\300\301\302@#\303!T\304\211\211\2035\211@\300\301\302#\262\305\"S\\\262BB\262\262A\266\202\202 \210\237\207" [get-text-property 0 point line-number-at-pos nil count-lines] 11 (#$ . 17052)]) #@14 (fn CANDS) (defalias 'swiper--occur-insert-lines #[257 "\302\303\304 \"c\210\303\305G\"c\210\306!\210eb\210\307y)\207" [inhibit-read-only default-directory t format "-*- mode:grep; default-directory: %S -*-\n\n\n" "%d candidates:\n" ivy--occur-insert-lines 4] 4 (#$ . 17328)]) (defalias 'swiper--occur-buffer #[0 "\301H\302!\204/\211\301\303\304\305H\306\"!I\262\262\307 r\310\311\"\216\312!\210*\210\211\313\314 I\266\207" [ivy-last 13 buffer-live-p find-file-noselect plist-get 27 :fname internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] pop-to-buffer 12 selected-window] 8]) #@143 Generate a custom occur buffer for `swiper'. When capture groups are present in the input, print them instead of lines. (fn &optional CANDS) (defalias 'swiper-occur #[256 "\206\211\262\306 \307\310\311 !!r\312\313\"\216\314@\315\"\210\316!\203)\317\316!!\202,\320!*\262\321\322#\323\324\320 \"\210\325\326\327\320 \"!\210\330\331\332\n!\333#\334\206t\335 \312\336\"\216\337!\210 \340H\341=\203n\342\343\344\345 \")\202q\346\n!)\262\"\347\343\350\323#)\266\203\203\226\330\331\351rq\210\345 )\"\352#c\2071\353=\204\244\353 \210\354\355!\210\356\357\360\"!\207" [ivy-marked-candidates ivy-last ivy-text ivy--regex-function ivy--old-re inhibit-changing-match-data swiper--occur-buffer propertize internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord buffer-file-name file-name-nondirectory buffer-name face ivy-grep-info string-match "\"\\(.*\\)\"" ivy-set-text match-string 1 mapconcat identity ivy--split ".*?" swiper--occur-cands current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer 22 swiper swiper--re-builder nil ivy--filter swiper--candidates swiper-isearch-function "\\\\(" t swiper--extract-matches "\n" ivy-occur-grep-mode font-lock-mode -1 swiper--occur-insert-lines mapcar #[257 "\300P\207" ["./"] 3 "\n\n(fn CAND)"] major-mode] 12 (#$ . 17995)]) (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\203\310\311!\210\312\313!\210\306\307\314!\2052\f\2052\315 \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 lazy-highlight-cleanup t evil-mode evil-set-jump swiper--reveal-mode isearch-opened-overlays] 3 (#$ . 19612)]) #@125 Normalize the swiper regex RE. Add a space after a leading `^' if needed and apply `search-default-mode' if bound. (fn RE) (defalias 'swiper--normalize-regex #[257 "\302\303\304\305H\306=\203\307\202\310P\311\312\301!\205 !\203)\313\314\315\316\"\310#\202*\317$\207" [ivy-last search-default-mode replace-regexp-in-string "^\\(?:\\\\(\\)?\\^" "\\&" 22 swiper " " "" functionp boundp mapconcat #[257 "\302\303\304\305#)\266\203\203 !\207\207" [inhibit-changing-match-data search-default-mode "\\`[^$\\^]+\\'" nil t string-match] 8 "\n\n(fn X)"] split-string "\\b" t] 9 (#$ . 20090)]) #@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 "\301!\302\303\304#!\211:\203\305\306\"\207\307!\207" [ivy-re-builders-alist ivy-alist-setting replace-regexp-in-string "\\\\n" "\n" mapcar #[257 "\300@!AB\207" [swiper--normalize-regex] 3 "\n\n(fn X)"] swiper--normalize-regex] 7 (#$ . 20701)]) #@23 History for `swiper'. (defvar swiper-history nil (#$ . 21163)) #@50 The face at the point of invocation of `swiper'. (defvar swiper-invocation-face nil (#$ . 21232)) (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) #@126 `isearch-forward' with an overview. When non-nil, INITIAL-INPUT is the initial search pattern. (fn &optional INITIAL-INPUT) (defalias 'swiper #[256 "\306 \307 \210\310\311`!\312\" \204\n\204 \313e\212\314 \210`)\"\202#\315 S\316\317C\320\321\"\216\211\322\323\324 \325\f\326 \203O\327\320\330\"\317\331\"\"\202Q \332\316\333\334\335\336\337\340\341\342\343 D\344\345&\240\205g`*\207" [swiper-invocation-face swiper-use-visual-line search-invisible minibuffer-allow-text-properties swiper-map ivy--old-re swiper--candidates swiper--init plist-get text-properties-at face count-screen-lines beginning-of-visual-line line-number-at-pos t nil make-closure #[0 "\300\242\204\f \204\f\nb\210\306 \210\300\242\204- \307\230\204- \310\f\"\203(\f\266\202-\211\fB\210\311\f\2057\312\313!\207" [V0 swiper-stay-on-quit swiper--opoint ivy-text swiper-history swiper--current-window-start isearch-clean-overlays "" memql nil reveal-mode 1 swiper--reveal-mode] 4] ivy-read "Swiper: " :initial-input :keymap :preselect cl-position-if #[257 "\300T\301!U\207" [V0 swiper--line-number] 4 "\n\n(fn X)"] ivy--filter :require-match :action swiper--action :re-builder swiper--re-builder :history swiper-history :extra-props :fname buffer-file-name :caller swiper] 27 (#$ . 21549) nil]) (ivy-configure 'swiper :occur 'swiper-occur :update-fn 'swiper--update-input-ivy :unwind-fn 'swiper--cleanup :index-fn 'ivy-recompute-index-swiper) #@68 Toggle matching only the candidates with `swiper-invocation-face'. (defalias 'swiper-toggle-face-matching #[0 "\211\302\302H?\205 \303I\266\304\211\207" [ivy-last ivy--old-re 18 swiper--face-matcher nil] 5 (#$ . 23004) nil]) #@117 Return REGEXP matching CANDIDATES. Matched candidates should have `swiper-invocation-face'. (fn REGEXP CANDIDATES) (defalias 'swiper--face-matcher #[514 "\300\301\302\"\"\207" [cl-remove-if-not make-closure #[257 "\302\300\"\205,\303\304\"\211G\304\211W\203'\305\211T\306 %\203'\211T\262\202\211U\266\203\207" [V0 swiper-invocation-face string-match match-string 0 text-property-any face] 10 "\n\n(fn X)"]] 6 (#$ . 23241)]) #@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 (#$ . 23687)]) #@17 Store overlays. (defvar swiper--overlays nil (#$ . 23969)) #@52 This timer used by `swiper--delayed-add-overlays'. (defvar swiper--isearch-highlight-timer nil (#$ . 24034)) #@24 Clean up the overlays. (defalias 'swiper--cleanup #[0 "\203\304\211A\242!\210\202\302 \305=\203\n\202\306!\210\307 !\205*\310 !\210\311\211\207" [swiper--overlays ivy-exit lazy-highlight-cleanup swiper--isearch-highlight-timer delete-overlay done t timerp cancel-timer nil] 3 (#$ . 24149)]) #@12 (fn WND) (defalias 'swiper--add-cursor-overlay #[257 "l\206\301\302!\303`\203`\202`T\"\203%\304\305\306\307\310\311##\210\202+\304\310\311#\210\304\312#\210\304\313\314#\210\211B\211\207" [swiper--overlays looking-at " " make-overlay overlay-put after-string propertize " " face ivy-cursor window priority 2] 10 (#$ . 24459)]) #@12 (fn WND) (defalias 'swiper--add-line-overlay #[257 "\203 \212\302 \210`)\202\303 \203\212\304 \210`)\202\305 T\306\307\310% B\211\207" [visual-line-mode swiper--overlays beginning-of-visual-line line-beginning-position end-of-visual-line line-end-position swiper--make-overlay swiper-line-face 0] 9 (#$ . 24811)]) #@174 Create an overlay bound by BEG and END. FACE, WND and PRIORITY are properties corresponding to the face, window and priority of the overlay. (fn BEG END FACE WND PRIORITY) (defalias 'swiper--make-overlay #[1285 "\300\"\301\302#\210\301\303#\210\301\304#\210\207" [make-overlay overlay-put face window priority] 10 (#$ . 25148)]) (defalias 'swiper--recenter-p #[0 "\301 \206?\207" [recenter-redisplay display-graphic-p] 1]) (defalias 'swiper--positive-regexps #[0 "<\203 \301\302\303\304\"\"\207C\207" [ivy-regex mapcar car cl-remove-if-not cdr] 5]) #@37 Called when `ivy' input is updated. (defalias 'swiper--update-input-ivy #[0 "\306\307!!r\310\311\"\216\312@\313\"\210\314 \210\315HG\316V\205\357\317 \320\321 !\211\205\352\211@T\262\322\323\324#\325\315H! \326>\204\266\211\211\316V\262\203\266\f\203R\f=\202V\327 =\204m b\210&\203i\330S!\210\202m\211Sy\210 \331\232\203\212'\332 Y\203\212'\333 X\203\212'b\210\202\253\f=\203\234(\203\236(b\210\202\236\211\334\333 \335#\203\253\316\224()\332 \333 \"\210\336 \210\337\340 \203\302\341 \202\307\332\342 [! ]\340 \203\326\343\344 \335\"\202\332\333\342 !*^\345 %\266A\266\202\202%\262)\266\202*\207" [ivy-last ivy-text case-fold-search this-command swiper--current-line swiper--point-min internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord swiper--cleanup 23 0 swiper--positive-regexps -1 ivy--case-fold-p replace-regexp-in-string " " " " swiper--line-number (ivy-yank-word ivy-yank-symbol ivy-yank-char scroll-other-window) line-number-at-pos line-move "" line-beginning-position line-end-position re-search-forward t swiper--maybe-recenter swiper--add-overlays swiper--recenter-p window-start window-height window-end selected-window nil swiper-use-visual-line swiper--opoint swiper--current-match-start isearch-filter-predicate swiper--point-max] 13 (#$ . 25720)]) #@191 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 RE-IDX) (defalias 'swiper--add-overlays #[1281 "C\211\242\206 \306H\240\210\307\242!\210`\310 \206!\212\211[y\210`)\206,\212y\210`)\311\n! G\nY\205\255\212b\210l\203Hm\204H\312u\210\3131V\314\n\315#0\202[\210\312\202\254\205\254\316\225\316\224Z\316V\205\254\317\316\224\316\225\"\320W\203=\316\225U\203~ \202\f\321\322\" :\203\240\323 \321\324\"\216\325 \326\327 \330 \"C\")\262\203\247\331\n#\210\266\202=))\207" [ivy-last case-fold-search swiper-min-highlight swiper-faces swiper-background-faces ivy--old-re 12 swiper--add-line-overlay window-height ivy--case-fold-p nil (error) re-search-forward t 0 count-lines 2 make-closure #[1028 "\302\300\242% B\211\207" [V0 isearch-lazy-highlight-overlays swiper--make-overlay] 10 "\n\n(fn BEG END FACE PRIORITY)"] match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] ivy--re-filter buffer-substring-no-properties line-beginning-position line-end-position swiper--add-properties] 18 (#$ . 27152)]) #@40 (fn FACES ADDER-FN &optional RE-IDX) (defalias 'swiper--add-properties #[770 "\303\224\303\225\211Z\304V\2042\203, \303U\203,\305\206 \303 GS\"T8\202/@\303$\210\266\306\303\211T\211\262 X\205\225\211\224\225\211\250\203\220\250\203\220\307\n\310\"\311=\203w W\203wT\224\250\203w\211T\224U\203wT\211\262\225\262\202W\305\312\\ GS\"T\n8$\210T\262\266\2026\207" [ivy-use-group-face-if-no-groups ivy--subexps ivy-re-builders-alist 0 2017 mod 1 ivy-alist-setting t ivy--regex-fuzzy 2] 13 (#$ . 28346)]) (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) (defalias 'swiper--maybe-recenter #[0 "\203\n\303 \210\202.\304 \203. \203\305\306 \"\210`\307 W\204+`\310\n\311H\312\"V\203.\303 \210\307 \211\207" [swiper-action-recenter swiper--current-window-start ivy-last recenter swiper--recenter-p set-window-start selected-window window-start window-end 12 t] 4]) #@10 (fn X) (defalias 'swiper--line-number #[257 "\300\301\302#\206 \300\303\302#\207" [get-text-property 0 swiper-line-number 1] 5 (#$ . 29425)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable swiper-verbose funcall function #[0 "\300\207" [t] 1] "When non-nil, print more informational messages." :type boolean] 6) (defalias 'swiper--push-mark #[0 "`U?\205\" \205\f\n?\205\" \305=\205\"\306\307\"\210\f\205\"\310\311!\207" [swiper--opoint transient-mark-mode mark-active ivy-exit swiper-verbose done push-mark t message "Mark saved where search started"] 3]) #@22 Goto line X. (fn X) (defalias 'swiper--action #[257 "\306!S\307!\310!\204\311\312!\202p\313\314\n!!r\315\316\"\216\317@\320\"\210p\n\321H\232\2044\322\n\321H!\210deZ\323 U\204A \202Beb\210\f\203L\324\202M\325!\210\326\327 \330#\203a \203a\331\224b\210\332 \210\333 \210\334 \210\335!*\262)\207" [ivy-text case-fold-search ivy-last swiper--point-min swiper-use-visual-line swiper-goto-start-of-match swiper--line-number ivy--regex ivy--case-fold-p user-error "No candidates" internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord 13 switch-to-buffer buffer-size line-move forward-line re-search-forward line-end-position t 0 swiper--ensure-visible swiper--maybe-recenter swiper--push-mark swiper--remember-search-history] 8 (#$ . 30030)]) #@64 Add the search pattern RE to the search history ring. (fn RE) (defalias 'swiper--remember-search-history #[257 "\306\307#\210\310\301!\2053 \2053\n\311=\203 \n\312=\2053\306\313\"\210\211\314\211E\315\2053\316 !\207" [regexp-search-ring-max evil-mode evil-search-module ivy-text isearch-string evil-ex-search-pattern add-to-history regexp-search-ring boundp isearch evil-search evil-ex-search-history t forward evil-ex-search-activate-highlight evil-ex-search-direction evil-ex-search-persistent-highlight] 5 (#$ . 30896)]) #@31 Invoke `swiper' from isearch. (defalias 'swiper-from-isearch #[0 "\303\203 \202\f\304 !\305\306 \210)!\207" [isearch-regexp isearch-string search-nonincremental-instead swiper regexp-quote nil isearch-exit] 3 (#$ . 31442) nil]) #@36 Store the current list of buffers. (defvar swiper-multi-buffers nil (#$ . 31681)) #@50 Store the list of candidates for `swiper-multi'. (defvar swiper-multi-candidates nil (#$ . 31769)) #@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 (#$ . 31874)]) (defvar swiper-window-width 80) #@61 Select one or more buffers. Run `swiper' for those buffers. (defalias 'swiper-multi #[0 "\304\211\305\306 \307\310\311$\210)\312 \313 \203\314\202\315Z\316Z\305\317 \310\320\321\322&)\207" [swiper-multi-buffers ivy-use-virtual-buffers swiper-window-width swiper-multi-candidates nil ivy-read swiper-multi-prompt internal-complete-buffer :action swiper-multi-action-1 frame-width display-graphic-p 0 1 4 "Swiper: " swiper-multi-action-2 :caller swiper-multi] 8 (#$ . 32100) nil]) (ivy-configure 'swiper-multi :unwind-fn 'swiper--cleanup :index-fn 'ivy-recompute-index-swiper :format-fn 'swiper--all-format-function) #@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\305\"\202\211\306\232\204\307C\"\310 \211\311I\266\312P\210 \313\267\202K\314\315\316\"!\211\207\317\320 !r\321\322\"\216\323@\324\"\210\325 *\207\326\207" [swiper-multi-buffers ivy-last ivy--prompt this-command swiper-multi-candidates delete "" append swiper-multi-prompt 1 "%-4d " #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ivy-done 46 ivy-alt-done 46 ivy-immediate-done 46 ivy-call 55)) swiper--multi-candidates mapcar get-buffer internal--before-with-selected-window active-minibuffer-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord delete-minibuffer-contents nil] 6 (#$ . 32730)]) #@50 Move to candidate X from `swiper-multi'. (fn X) (defalias 'swiper-multi-action-2 #[257 "\211G\304V\205R\305\304\306#\211\205P\307\310!!r\311\312\"\216\313@\314\"\210\315!\210eb\210\316!Sy\210\317\320 !\321 \322#\210\n\323 \321 \"\210 \324=?\205M\325 \210\326\320 !!*\262\262\207" [ivy-last ivy-text isearch-filter-predicate ivy-exit 0 get-text-property buffer internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord switch-to-buffer swiper--line-number re-search-forward ivy--regex line-end-position t line-beginning-position done swiper--cleanup swiper--add-overlays] 7 (#$ . 33761)]) #@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\267\202\304\207\305\207\305\207\305\207\306!\207" [buffer-local-value major-mode get-buffer #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tags-table-mode 12 dired-mode 14 magit-stash-mode 16 gnus-article-mode 18)) nil t buffer-file-name] 5 (#$ . 34464)]) #@47 Search in all open buffers for STR. (fn STR) (defalias 'swiper-all-function #[257 "\305 \206\221\306\307\310 \"\311\211\211\211\312!\313!\262:\203\"A\262\211\203~\211@r\211q\210\212eb\210\314\311\315#\203v\n\316>\203I\317\320 \321 \"\202N\320 \321 {\262\322\323\324\325\326 %\210\322\323\324\327`%\210\203n\330\"\2031B\262\2021*A\266\202\202#\210\204\212\331C\202\216\237\211)\266\206\207" [ivy-regex case-fold-search major-mode ivy--old-re ivy--old-cands ivy-more-chars cl-remove-if-not swiper-all-buffer-p buffer-list nil ivy--case-fold-p ivy-re-to-str 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 ""] 15 (#$ . 34907)]) #@102 Format CANDS for `swiper-all'. See `ivy-format-functions-alist' for further information. (fn CANDS) (defalias 'swiper--all-format-function #[257 "\301C\302\303\304\"\"\305Z\242Z\302\303\306#\"\262\307\310\311\312$\207" [swiper-window-width 1 mapcar make-closure #[257 "\301\302\303#\300\211\242G]\240\210B\207" [V0 get-text-property 0 buffer] 5 "\n\n(fn S)"] 4 #[257 "\211A\203\302@\301\"\211\303\304\300\305!ZAGZ]\306\"AQ\207\211@\207" [V0 V1 ivy--truncate-string make-string 0 string-width 32] 8 "\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"] 10 (#$ . 35708)]) #@26 Keymap for `swiper-all'. (defvar swiper-all-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key [134217841] swiper-all-query-replace] 5) (#$ . 36412)) #@66 Run `swiper' for all open buffers. (fn &optional INITIAL-INPUT) (defalias 'swiper-all #[256 "\302 \303 \203 \304\202\f\305Z\306\307\310\311\312\313\314\315 \316\n\317\320&\f)\207" [swiper-window-width swiper-all-map frame-width display-graphic-p 0 1 ivy-read "swiper-all: " swiper-all-function :action swiper-all-action :dynamic-collection t :keymap :initial-input :caller swiper-all] 14 (#$ . 36593) nil]) (ivy-configure 'swiper-all :update-fn 'auto :unwind-fn 'swiper--cleanup :format-fn 'swiper--all-format-function) #@48 Move to candidate X from `swiper-all'. (fn X) (defalias 'swiper-all-action #[257 "\211G\304V\205G\305\304\306#\211\205E\307\310!!r\311\312\"\216\313@\314\"\210\315!\210\305\304\316#b\210 \317 \320 \"\210\n\321=?\205B\322 \210\323\324 !!*\262\262\207" [ivy-last isearch-filter-predicate ivy-exit ivy-text 0 get-text-property buffer internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord switch-to-buffer point line-beginning-position line-end-position done swiper--cleanup swiper--add-overlays ivy--regex] 7 (#$ . 37124)]) #@48 Extract candidates from BUFFERS. (fn BUFFERS) (defalias 'swiper--multi-candidates #[257 "\300\211\203\211@r\211q\210\301\302\303\304!\"\244\262)A\266\202\202\210\207" [nil mapcar #[257 "\300\301\302\303\304 %\210\207" [put-text-property 0 1 buffer buffer-name] 7 "\n\n(fn S)"] swiper--candidates 4] 8 (#$ . 37764)]) #@75 Collect STR matches in the current buffer for `swiper-isearch'. (fn STR) (defalias 'swiper-isearch-function #[257 "\301\302!!r\303\304\"\216\305@\306\"\210\307!*\207" [ivy-last internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord swiper--isearch-function] 5 (#$ . 38096)]) (defalias 'swiper-match-usable-p #[0 "\206 \301\302\303`!\"?\207" [search-invisible cl-find-if #[257 "\300\301\302\"!\207" [invisible-p overlay-get invisible] 5 "\n\n(fn OV)"] overlays-at] 4]) (defvar swiper--isearch-backward nil) (defvar swiper--isearch-start-point nil) #@20 (fn RE BACKWARD) (defalias 'swiper--isearch-function-1 #[514 "\301\230?\205u\302\212\203d\202eb\210\203\303\202\304\302\305#\203h\306\224\306\225U\2038\2034o\2025m\204h\307 \203P\204E\203J\306\224\202K`\211B\266\202\306\224\306\225U\203\203b\310u\210\202\302u\210\202)\203q\211\202s\211\237\262\207" [swiper-goto-start-of-match "." nil re-search-backward re-search-forward t 0 swiper-match-usable-p -1] 7 (#$ . 38757)]) #@17 (fn RE CANDS) (defalias 'swiper--isearch-next-item #[514 "C\203\212\211\302\242\303Q\240\210\304\305\306\"\307\310$)\202\"\311 \312\313$\206&\314\207" [swiper--isearch-backward swiper--isearch-start-point "\\=\\(?:" "\\)" cl-position-if make-closure #[257 "\211 W\205\211b\210\302\300\242 \303#\207" [V0 swiper--isearch-start-point re-search-forward t] 5 "\n\n(fn X)"] :from-end t cl-position :test < 0] 8 (#$ . 39223)]) #@22 (fn RE-FULL CANDS) (defalias 'swiper--isearch-filter-ignore-order #[514 "\300\211\203G\211@\212\211\2037\211@\211b\210\301 \210\302@\303 \304#\203&A?\202(A\2040\211B\262A\266\202\202\n\210)\237\262\300\262A\266\202\202\207" [nil beginning-of-line re-search-forward line-end-position t] 11 (#$ . 39664)]) #@12 (fn STR) (defalias 'swiper--isearch-function #[257 "\211\305\232?\205?\306!\211;\203\211\202!\307\310\311\312\313\314\"\"\315#\316\n\":\2030\317\"\262\320\321\"!\210\211\211)\266\202\207" [ivy-regex case-fold-search swiper--isearch-backward ivy--old-re ivy--old-cands "" ivy--case-fold-p mapconcat ivy--regex-or-literal delq nil mapcar #[257 "\211A\205\211@\207" [] 2 "\n\n(fn X)"] "\\|" swiper--isearch-function-1 swiper--isearch-filter-ignore-order ivy-set-index swiper--isearch-next-item] 9 (#$ . 39997)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable swiper-isearch-highlight-delay funcall function #[0 "\300\207" [(2 0.2)] 1] "When `ivy-text' is too short, delay showing the overlay.\n\nThe default value will delay showing the overlay by 0.2 seconds\nif `ivy-text' is shorter than 2 characters.\n\nThe aim is to reduce the visual clutter, since it's very rare\nthat we search only for one character." :type (list (integer :tag "Text length") (float :tag "Delay in seconds"))] 6) (defalias 'swiper--delayed-add-overlays #[0 "\203 G@W\203\303A@\304\305#\211\207\306 \211\205)\211@\307!\210A\266\202\202\207" [swiper-isearch-highlight-delay ivy-text swiper--isearch-highlight-timer run-with-idle-timer nil #[0 "\302\303!!r\304\305\"\216\306@\307\"\210\310\311 !!*\207" [ivy-last ivy-text internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord swiper--add-overlays ivy--regex] 4] swiper--positive-regexps swiper--add-overlays] 4]) #@41 Move to X for `swiper-isearch'. (fn X) (defalias 'swiper-isearch-action #[257 "\211\247\204\211G\306V\203q\307\306\310#\211\262\203q\311\312!!r\313\314\"\216\315@\316\"\210b\210 \317=\204= \320=\203I\n\317=\203I\321 \322 \"\203I\306\224b\210\f``T\"\210\323 \210 \324=\203d\325 \210\326\327!!\202o\330 \210\331 \210\332\333H!*\207\330 \207" [ivy-last this-command last-command ivy-regex isearch-filter-predicate ivy-exit 0 get-text-property point internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord ivy-previous-line-or-history ivy-done looking-back line-beginning-position swiper--maybe-recenter done swiper--push-mark swiper--remember-search-history ivy--regex swiper--cleanup swiper--delayed-add-overlays swiper--add-cursor-overlay 12 ivy-text] 5 (#$ . 41608)]) #@41 Copy line at point and go back. (fn X) (defalias 'swiper-action-copy #[257 "\301\302\303 \304 \"!\210b\207" [swiper--opoint kill-new buffer-substring-no-properties line-beginning-position line-end-position] 5 (#$ . 42501)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [ivy-add-actions swiper-isearch (("w" swiper-action-copy "copy")) swiper (("w" swiper-action-copy "copy"))] 3) #@120 Insert `symbol-at-point' into the minibuffer of `swiper-isearch'. When not running `swiper-isearch' already, start it. (defalias 'swiper-isearch-thing-at-point #[0 "\301 \203F\302\211\211\303\304!!r\305\306\"\216\307@\310\"\210\311 \211\262\203,\312 \313 B\314 \210\202/\315\316!\262\317@A\"\262*\210c\210\211?\205E\320 \207\302\321 \203^\317\312 \313 \"\262\312 b\210\314 \210\202m\315\316!\211\203i\211@b\210\322 \266\202\323!\207" [ivy-last window-minibuffer-p nil internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord region-active-p region-beginning region-end deactivate-mark bounds-of-thing-at-point symbol buffer-substring-no-properties ivy--insert-symbol-boundaries use-region-p ivy-thing-at-point swiper-isearch] 7 (#$ . 42895) nil]) #@123 Move cursor vertically up ARG candidates. When the input is empty, browse the search history instead. (fn &optional ARG) (defalias 'swiper-isearch-C-r #[256 "\301\230\203 \302 \207\303!\207" [ivy-text "" ivy-reverse-i-search ivy-previous-line] 3 (#$ . 43765) "p"]) #@30 Keymap for `swiper-isearch'. (defvar swiper-isearch-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\207" [swiper-map make-sparse-keymap set-keymap-parent define-key [134217838] swiper-isearch-thing-at-point "" swiper-isearch-C-r] 5) (#$ . 44040)) #@64 Check if S1 and S2 are equal and on the same line. (fn S1 S2) (defalias 'swiper--isearch-same-line-p #[514 "\232\205\300\301\302\303#\301\302\303#\"\304X\207" [count-lines get-text-property 0 point 1] 8 (#$ . 44316)]) #@14 (fn CANDS) (defalias 'swiper-isearch-format-function #[257 "\211\242\247\203(\306!\211\307\230\203\310\207\311\312\313 \n \206\f \314H \315H&\316#\207\317\320\"!\207" [ivy-regex ivy--index ivy--length ivy--old-cands ivy--all-candidates ivy-last ivy-re-to-str "^$" "" mapconcat identity swiper--isearch-format 23 13 "\n" ivy-alist-setting t ivy-format-functions-alist] 12 (#$ . 44548)]) #@11 (fn PT) (defalias 'swiper--line-at-point #[257 "\212\211b\210\300 \301 {\211\302\230\203\211\202\303\304\305\306%\210\307!\262)\207" [line-beginning-position line-end-position "" put-text-property 0 1 point ivy-cleanup-string] 8 (#$ . 44954)]) #@30 (fn STR &optional CURRENT) (defalias 'swiper--isearch-highlight #[513 "\303\211\304!\3052A\306#\205@\303\224\303\225U\203\"\307\305\310\"\210\202&\303\225\262\311=\2031 \2022\n\312\313\"\"\210T\262\202 0\210\207" [ivy-regex swiper-faces swiper-background-faces 0 ivy-re-to-str done string-match throw t swiper--add-properties make-closure #[1028 "\301\302\300%\207" [V0 add-face-text-property nil] 10 "\n\n(fn BEG END FACE PRIORITY)"]] 10 (#$ . 45214)]) #@48 (fn INDEX LENGTH CANDS REGEX CURRENT BUFFER) (defalias 'swiper--isearch-format #[1542 "\301\245S\302\211\303\211rq\210\302Y\2030\304\305\f8!\305\n!\"\2030S\262T\262\202\302Y\203_W\203_\305 8!\262\304@\"\204X\306!B\262T\262S\262\2020\237\262\305!\302T\302\211W\203\207\303\307#\210\302\225\262\210\211T\262\202k\266\310\302G\311\312%\210\306\"\210B\262\266T\262 T\262 W\203\307\304\305\f8!\305\n!\"\203\307T\262\202\251 W\203\366W\203\366\305 8!\262\304@\"\204\357\306!B\262T\262T\262\202\307\237)\207" [ivy-height 2 0 nil swiper--isearch-same-line-p swiper--line-at-point swiper--isearch-highlight string-match font-lock-prepend-text-property face swiper-line-face] 21 (#$ . 45699)]) #@30 Initialize `swiper-isearch'. (defalias 'swiper--isearch-init #[0 "\301 \210`\302 \207" [swiper--isearch-start-point swiper--init swiper-font-lock-ensure] 1 (#$ . 46492)]) (defalias 'swiper--isearch-unwind #[0 "\305 \210\306=\204 \204\nb\210\307 \210\310 \210\306=\206 \311\230?\2056 \312\f\"\203/\f\2024\211\fB\211\262\207" [ivy-exit swiper-stay-on-quit swiper--opoint ivy-text swiper-history swiper--cleanup done isearch-clean-overlays swiper--ensure-visible "" memql] 4]) #@65 A `swiper' that's not line-based. (fn &optional INITIAL-INPUT) (defalias 'swiper-isearch #[256 "\304\305\306\307\310\311\312\313 \314\304\315\304\316\317\320\321\322\323\324\325\326 D\327\330&+\207" [swiper-min-highlight cursor-in-non-selected-windows ivy-fixed-height-minibuffer swiper-isearch-map t nil 1 ivy-read "Swiper: " swiper-isearch-function :initial-input :keymap :dynamic-collection :require-match :action swiper-isearch-action :re-builder swiper--re-builder :history swiper-history :extra-props :fname buffer-file-name :caller swiper-isearch] 22 (#$ . 46987) nil]) (ivy-configure 'swiper-isearch :occur 'swiper-occur :init-fn 'swiper--isearch-init :update-fn 'auto :unwind-fn 'swiper--isearch-unwind :format-fn 'swiper-isearch-format-function) #@95 Like `swiper-isearch' but the first result is before the point. (fn &optional INITIAL-INPUT) (defalias 'swiper-isearch-backward #[256 "\301\302!)\207" [swiper--isearch-backward t swiper-isearch] 3 (#$ . 47755) nil]) #@115 Two-way toggle between `swiper-isearch' and isearch. Intended to be bound in `isearch-mode-map' and `swiper-map'. (defalias 'swiper-isearch-toggle #[0 "\203! \203\f\n\202\305\n!\306 \210 \203\f\206`b\210\307!\207\310\311!\207" [isearch-mode isearch-regexp isearch-string isearch-forward isearch-other-end regexp-quote isearch-exit swiper-isearch ivy-exit-with-action #[257 "\302\303!\304 \"\203\305\224b\210\306\307!\210 \310\230?\205\311 !\207" [ivy-regex ivy-text looking-back ivy-re-to-str line-beginning-position 0 isearch-mode t "" isearch-yank-string] 4 "\n\n(fn _)"]] 3 (#$ . 47981) nil]) (provide 'swiper)