;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313%\210\314\315\316\317\320DD\321\322\323%\210\314\324\316\317\325DD\326\322\327%\210\314\330\316\317\331DD\332\322\333%\210\314\334\316\317\335DD\336\322\337%\210\314\340\316\317\341DD\342\322\337%\210\314\343\316\317\344DD\345\322\346%\210\314\347\316\317\350DD\351\322\352%\210\314\353\316\317\354DD\355\322\356%\210\314\357\316\317\360DD\361\322\362%\207" [require colir ivy-overlay ivy-faces cl-lib ring custom-declare-group ivy nil "Incremental vertical completion." :group convenience custom-declare-variable ivy-height funcall function #[0 "\300\207" [10] 1] "Number of lines for the minibuffer window.\n\nSee also `ivy-height-alist'." :type integer ivy-count-format #[0 "\300\207" [#1="%-4d "] 1 #1#] "The style to use for displaying the current candidate count for `ivy-read'.\nSet this to \"\" to suppress the count visibility.\nSet this to \"(%d/%d) \" to display both the index and the count." (choice (const :tag "Count disabled" "") (const :tag "Count matches" "%-4d ") (const :tag "Count matches and show current match" "(%d/%d) ") string) ivy-pre-prompt-function #[0 "\300\207" [nil] 1] "When non-nil, add strings before the `ivy-read' prompt." (choice (const :tag "Do nothing" nil) (function :tag "Custom function")) ivy-add-newline-after-prompt #[0 "\300\207" [nil] 1] "When non-nil, add a newline after the `ivy-read' prompt." boolean ivy-wrap #[0 "\300\207" [nil] 1] "When non-nil, wrap around after the first and the last candidate." ivy-display-style #[0 "\300\207" [fancy] 1] "The style for formatting the minibuffer.\n\nBy default, the matched strings are copied as is.\n\nThe fancy display style highlights matching parts of the regexp,\na behavior similar to `swiper'." (choice (const :tag "Plain" nil) (const :tag "Fancy" fancy)) ivy-on-del-error-function #[0 "\300\207" [abort-recursive-edit] 1] "Function to call when deletion fails during completion.\nThe usual reason for `ivy-backward-delete-char' to fail is when\nthere is no text left to delete, i.e., when it is called at the\nbeginning of the minibuffer.\nThe default setting provides a quick exit from completion.\nAnother common option is `ignore', which does nothing." (choice (const :tag "Exit completion" abort-recursive-edit) (const :tag "Do nothing" ignore) (function :tag "Custom function")) ivy-extra-directories #[0 "\300\207" [("../" "./")] 1] "Add this to the front of the list when completing file names.\nOnly \"./\" and \"../\" apply here. They appear in reverse order." (repeat :tag "Dirs" (choice (const :tag "Parent Directory" "../") (const :tag "Current Directory" "./"))) ivy-use-virtual-buffers #[0 "\300\207" [nil] 1] "When non-nil, add recent files and/or bookmarks to `ivy-switch-buffer'.\nThe value `recentf' includes only recent files to the virtual\nbuffers list, whereas the value `bookmarks' does the same for\nbookmarks. Any other non-nil value includes both." (choice (const :tag "Don't use virtual buffers" nil) (const :tag "Recent files" recentf) (const :tag "Bookmarks" bookmarks) (const :tag "All virtual buffers" t))] 6) #@42 The display-function is used in current. (defvar ivy--display-function nil (#$ . 3232)) #@116 Map Ivy display functions to their property lists. Examples of properties include associated `:cleanup' functions. (defvar ivy-display-functions-props '((ivy-display-function-overlay :cleanup ivy-overlay-cleanup)) (#$ . 3327)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-display-functions-alist funcall function #[0 "\300\207" [((ivy-completion-in-region . ivy-display-function-overlay) (t))] 1] "An alist for customizing where to display the candidates.\n\nEach key is a caller symbol. When the value is nil (the default),\nthe candidates are shown in the minibuffer. Otherwise, the value\nis a function which takes a string argument comprising the\ncurrent matching candidates and displays it somewhere.\n\nSee also `https://github.com/abo-abo/swiper/wiki/ivy-display-function'." :type (alist :key-type symbol :value-type (choice (const :tag "Minibuffer" nil) (const :tag "LV" ivy-display-function-lv) (const :tag "Popup" ivy-display-function-popup) (const :tag "Overlay" ivy-display-function-overlay) (function :tag "Custom function")))] 6) #@57 Run `ivy-completing-read' with `:dynamic-collection t`. (defvar ivy-completing-read-dynamic-collection nil (#$ . 4417)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable ivy-completing-read-handlers-alist funcall function #[0 "\300\207" [((tmm-menubar . completing-read-default) (tmm-shortcut . completing-read-default) (bbdb-create . ivy-completing-read-with-empty-string-def) (auto-insert . ivy-completing-read-with-empty-string-def) (Info-on-current-buffer . ivy-completing-read-with-empty-string-def) (Info-follow-reference . ivy-completing-read-with-empty-string-def) (Info-menu . ivy-completing-read-with-empty-string-def) (Info-index . ivy-completing-read-with-empty-string-def) (Info-virtual-index . ivy-completing-read-with-empty-string-def) (info-display-manual . ivy-completing-read-with-empty-string-def))] 1] "An alist of handlers to replace `completing-read' in `ivy-mode'." :type (alist :key-type symbol :value-type function) ivy-height-alist #[0 "\300\207" [nil] 1] "An alist to customize `ivy-height'.\n\nIt is a list of (CALLER . HEIGHT). CALLER is a caller of\n`ivy-read' and HEIGHT is the number of lines displayed.\nHEIGHT can also be a function that returns the number of lines." (alist :key-type function :value-type (choice integer function))] 6) #@157 Used to avoid infinite recursion. If `(minibuffer-depth)' equals this, `ivy-completing-read' will act as if `ivy-completing-read-handlers-alist' is empty. (defvar ivy-completing-read-ignore-handlers-depth -1 (#$ . 5763)) #@29 List of grep-like commands. (defvar ivy-highlight-grep-commands nil (#$ . 5991)) #@38 A list of extra actions per command. (defvar ivy--actions-list nil (#$ . 6078)) #@57 Set CMD extra exit points to ACTIONS. (fn CMD ACTIONS) (defalias 'ivy-set-actions #[514 "\301#\211\207" [ivy--actions-list plist-put] 6 (#$ . 6164)]) #@145 Add extra exit points ACTIONS to CMD. Existing exit points of CMD are overwritten by those in ACTIONS that have the same key. (fn CMD ACTIONS) (defalias 'ivy-add-actions #[514 "\301\302\303\304\"\"\305\306\307\310%#\211\207" [ivy--actions-list plist-put cl-delete-duplicates append plist-get :key car :test equal] 11 (#$ . 6326)]) #@66 Add extra actions to ACTION based on CALLER. (fn ACTION CALLER) (defalias 'ivy--compute-extra-actions #[514 "\302\303\304\305\"\304 \"\304\"#\306\307\310\311%\312\313\"\211\203+\314\315\313\306\307\310\311&BB\207\2041\207\316!\203A\314\313\317BBBB\207\204K\314\320BB\207@\302\303\"A\306\307\310\311\321\305&B\207" [ivy--actions-list this-command cl-delete-duplicates append plist-get t :key car :test equal assoc "o" 1 cl-delete functionp ("default") ("o" identity "default") :from-end] 13 (#$ . 6672)]) (defvar ivy--prompts-list nil) #@127 Associate CALLER with PROMPT-FN. PROMPT-FN is a function of no arguments that returns a prompt string. (fn CALLER PROMPT-FN) (defalias 'ivy-set-prompt #[514 "\301#\211\207" [ivy--prompts-list plist-put] 6 (#$ . 7240)]) #@46 A list of str->str transformers per command. (defvar ivy--display-transformers-alist nil (#$ . 7470)) #@343 Set CMD a displayed candidate TRANSFORMER. It's a lambda that takes a string one of the candidates in the collection and returns a string for display, the same candidate plus some extra information. This lambda is called only on the `ivy-height' candidates that are about to be displayed, not on the whole collection. (fn CMD TRANSFORMER) (defalias 'ivy-set-display-transformer #[514 "\300\301#\207" [ivy--alist-set ivy--display-transformers-alist] 6 (#$ . 7579)]) (make-obsolete 'ivy-set-display-transformer "Use `ivy-configure' :display-transformer-fn" "<2020-05-20 Wed>") #@38 A list of extra sources per command. (defvar ivy--sources-list nil (#$ . 8165)) #@439 Attach to CMD a list of extra SOURCES. Each static source is a function that takes no argument and returns a list of strings. The (original-source) determines the position of the original dynamic source. Extra dynamic sources aren't supported yet. Example: (defun small-recentf () (cl-subseq recentf-list 0 20)) (ivy-set-sources 'counsel-locate '((small-recentf) (original-source))) (fn CMD SOURCES) (defalias 'ivy-set-sources #[514 "\301#\211\207" [ivy--sources-list plist-put] 6 (#$ . 8252)]) #@15 (fn CALLER) (defalias 'ivy--compute-extra-candidates #[257 "\301\"\206\302\303\211\2034\211@\211\304\232\203\211B\262\202-\211A\204-\211@@ DB\262A\266\202\202\n\210\207" [ivy--sources-list plist-get ((original-source)) nil (original-source)] 7 (#$ . 8795)]) #@116 Prefix arg to pass to actions. This is a global variable that is set by ivy functions for use in action functions. (defvar ivy-current-prefix-arg nil (#$ . 9079)) (require 'delsel) #@100 Forward to (`define-key' KEYMAP KEY DEF). Remove DEF from `counsel-M-x' list. (fn KEYMAP KEY DEF) (defalias 'ivy-define-key #[771 "\300\301\302#\210\303#\207" [put no-counsel-M-x t define-key] 7 (#$ . 9267)]) #@32 Keymap used in the minibuffer. (defvar ivy-minibuffer-map (byte-code "\300 \301\302\303#\210\304\305\306#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\304\331\332#\210\301\333\334#\210\301\335\334#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\343#\210\301\345\346#\210\301\347\350#\210\301\351\352#\210\301\353\354#\210\301\355\356#\210\304\357\360#\210\301\361\362#\210\301\363\364#\210\301\365\362#\210\301\366\364#\210\301\367\362#\210\301\370\364#\210\301\371\372#\210\301\373\374#\210\301\375\376#\210\301\377\201@#\210\301\201A\201B#\210\301\201C\201D#\210\301\201E\201F#\210\301\201G\201H#\210\301\201I\201J#\210\301\201K\201L#\210\301\201M\201N#\210\301\201O\201P#\210\301\201Q\201R#\210\301\201S\201T#\210\301\201U\201V#\210\301\201W\201X#\210\301\201Y\201Z#\210\301\201[\201\\#\210\301\201]\201^#\210\301\201_\201`#\210\207" [make-sparse-keymap ivy-define-key " " ivy-done define-key [down-mouse-1] ignore [mouse-1] ivy-mouse-done [mouse-3] ivy-mouse-dispatching-done [134217741] ivy-call "\n" ivy-alt-done [134217738] ivy-immediate-done " " ivy-partial-or-done [remap next-line] ivy-next-line [remap previous-line] ivy-previous-line "" ivy-reverse-i-search " " self-insert-command [remap delete-backward-char] ivy-backward-delete-char [remap backward-delete-char-untabify] [remap backward-kill-word] ivy-backward-kill-word [remap delete-char] ivy-delete-char [remap forward-char] ivy-forward-char [right] [remap kill-word] ivy-kill-word [remap beginning-of-buffer] ivy-beginning-of-buffer [remap end-of-buffer] ivy-end-of-buffer [134217838] ivy-next-history-element [134217840] ivy-previous-history-element "" minibuffer-keyboard-quit [remap scroll-up-command] ivy-scroll-up-command [remap scroll-down-command] ivy-scroll-down-command [next] [prior] "" [134217846] [134217742] ivy-next-line-and-call [134217744] ivy-previous-line-and-call [134217825] ivy-toggle-marks [134217842] ivy-toggle-regexp-quote [134217834] ivy-yank-word [134217833] ivy-insert-current [134217753] ivy-insert-current-full "" hydra-ivy/body [134217839] ivy-dispatching-done [134217743] ivy-dispatching-call [remap kill-line] ivy-kill-line [remap kill-whole-line] ivy-kill-whole-line [33554464] ivy-restrict-to-matches [remap kill-ring-save] ivy-kill-ring-save [134217729] ivy-read-action "" ivy-occur "" ivy-toggle-ignore "" ivy-rotate-sort [remap describe-mode] ivy-help "$" ivy-magic-read-file-env] 5) (#$ . 9487)) #@2  (autoload 'hydra-ivy/body "ivy-hydra" '(#$ . 12117) t) #@2  (autoload 'ivy-hydra-read-action "ivy-hydra" '(#$ . 12178) t) #@24 Keymap for `ivy-mode'. (defvar ivy-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\207" [make-sparse-keymap ivy-define-key [remap switch-to-buffer] ivy-switch-buffer [remap switch-to-buffer-other-window] ivy-switch-buffer-other-window] 5) (#$ . 12247)) #@68 compiler-macro for inlining `ivy-state-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-p (and (memq (type-of cl-x) cl-struct-ivy-state-tags) t)) nil] 9 (#$ . 12521)]) (put 'ivy-state-p 'compiler-macro 'ivy-state-p--cmacro) #@13 (fn CL-X) (defalias 'ivy-state-p #[257 "\301!>\205 \302\207" [cl-struct-ivy-state-tags type-of t] 3 (#$ . 12850)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ivy-state-p side-effect-free error-free put ivy-state cl-deftype-satisfies] 5) #@73 compiler-macro for inlining `ivy-state-prompt'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-prompt--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-prompt (progn (aref cl-x 1))) nil] 9 (#$ . 13121)]) (put 'ivy-state-prompt 'compiler-macro 'ivy-state-prompt--cmacro) #@61 Access slot "prompt" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-prompt #[257 "\211\300H\207" [1] 3 (#$ . 13442)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-prompt side-effect-free t] 4) #@77 compiler-macro for inlining `ivy-state-collection'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-collection--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-collection (progn (aref cl-x 2))) nil] 9 (#$ . 13672)]) (put 'ivy-state-collection 'compiler-macro 'ivy-state-collection--cmacro) #@65 Access slot "collection" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-collection #[257 "\211\300H\207" [2] 3 (#$ . 14013)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-collection side-effect-free t] 4) #@76 compiler-macro for inlining `ivy-state-predicate'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-predicate--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-predicate (progn (aref cl-x 3))) nil] 9 (#$ . 14255)]) (put 'ivy-state-predicate 'compiler-macro 'ivy-state-predicate--cmacro) #@64 Access slot "predicate" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-predicate #[257 "\211\300H\207" [3] 3 (#$ . 14591)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-predicate side-effect-free t] 4) #@80 compiler-macro for inlining `ivy-state-require-match'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-require-match--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-require-match (progn (aref cl-x 4))) nil] 9 (#$ . 14830)]) (put 'ivy-state-require-match 'compiler-macro 'ivy-state-require-match--cmacro) #@68 Access slot "require-match" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-require-match #[257 "\211\300H\207" [4] 3 (#$ . 15186)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-require-match side-effect-free t] 4) #@80 compiler-macro for inlining `ivy-state-initial-input'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-initial-input--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-initial-input (progn (aref cl-x 5))) nil] 9 (#$ . 15437)]) (put 'ivy-state-initial-input 'compiler-macro 'ivy-state-initial-input--cmacro) #@68 Access slot "initial-input" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-initial-input #[257 "\211\300H\207" [5] 3 (#$ . 15793)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-initial-input side-effect-free t] 4) #@74 compiler-macro for inlining `ivy-state-history'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-history--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-history (progn (aref cl-x 6))) nil] 9 (#$ . 16044)]) (put 'ivy-state-history 'compiler-macro 'ivy-state-history--cmacro) #@62 Access slot "history" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-history #[257 "\211\300H\207" [6] 3 (#$ . 16370)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-history side-effect-free t] 4) #@76 compiler-macro for inlining `ivy-state-preselect'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-preselect--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-preselect (progn (aref cl-x 7))) nil] 9 (#$ . 16603)]) (put 'ivy-state-preselect 'compiler-macro 'ivy-state-preselect--cmacro) #@64 Access slot "preselect" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-preselect #[257 "\211\300H\207" [7] 3 (#$ . 16939)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-preselect side-effect-free t] 4) #@73 compiler-macro for inlining `ivy-state-keymap'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-keymap--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-keymap (progn (aref cl-x 8))) nil] 9 (#$ . 17178)]) (put 'ivy-state-keymap 'compiler-macro 'ivy-state-keymap--cmacro) #@61 Access slot "keymap" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-keymap #[257 "\211\300H\207" [8] 3 (#$ . 17499)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-keymap side-effect-free t] 4) #@76 compiler-macro for inlining `ivy-state-update-fn'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-update-fn--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-update-fn (progn (aref cl-x 9))) nil] 9 (#$ . 17729)]) (put 'ivy-state-update-fn 'compiler-macro 'ivy-state-update-fn--cmacro) #@64 Access slot "update-fn" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-update-fn #[257 "\211\300H\207" [9] 3 (#$ . 18065)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-update-fn side-effect-free t] 4) #@71 compiler-macro for inlining `ivy-state-sort'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-sort--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-sort (progn (aref cl-x 10))) nil] 9 (#$ . 18304)]) (put 'ivy-state-sort 'compiler-macro 'ivy-state-sort--cmacro) #@59 Access slot "sort" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-sort #[257 "\211\300H\207" [10] 3 (#$ . 18616)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-sort side-effect-free t] 4) #@72 compiler-macro for inlining `ivy-state-frame'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-frame--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-frame (progn (aref cl-x 11))) nil] 9 (#$ . 18841)]) (put 'ivy-state-frame 'compiler-macro 'ivy-state-frame--cmacro) #@60 Access slot "frame" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-frame #[257 "\211\300H\207" [11] 3 (#$ . 19158)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-frame side-effect-free t] 4) #@73 compiler-macro for inlining `ivy-state-window'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-window--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-window (progn (aref cl-x 12))) nil] 9 (#$ . 19386)]) (put 'ivy-state-window 'compiler-macro 'ivy-state-window--cmacro) #@61 Access slot "window" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-window #[257 "\211\300H\207" [12] 3 (#$ . 19708)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-window side-effect-free t] 4) #@73 compiler-macro for inlining `ivy-state-buffer'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-buffer (progn (aref cl-x 13))) nil] 9 (#$ . 19939)]) (put 'ivy-state-buffer 'compiler-macro 'ivy-state-buffer--cmacro) #@61 Access slot "buffer" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-buffer #[257 "\211\300H\207" [13] 3 (#$ . 20261)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-buffer side-effect-free t] 4) #@71 compiler-macro for inlining `ivy-state-text'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-text--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-text (progn (aref cl-x 14))) nil] 9 (#$ . 20492)]) (put 'ivy-state-text 'compiler-macro 'ivy-state-text--cmacro) #@59 Access slot "text" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-text #[257 "\211\300H\207" [14] 3 (#$ . 20804)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-text side-effect-free t] 4) #@73 compiler-macro for inlining `ivy-state-action'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-action--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-action (progn (aref cl-x 15))) nil] 9 (#$ . 21029)]) (put 'ivy-state-action 'compiler-macro 'ivy-state-action--cmacro) #@61 Access slot "action" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-action #[257 "\211\300H\207" [15] 3 (#$ . 21351)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-action side-effect-free t] 4) #@73 compiler-macro for inlining `ivy-state-unwind'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-unwind--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-unwind (progn (aref cl-x 16))) nil] 9 (#$ . 21582)]) (put 'ivy-state-unwind 'compiler-macro 'ivy-state-unwind--cmacro) #@61 Access slot "unwind" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-unwind #[257 "\211\300H\207" [16] 3 (#$ . 21904)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-unwind side-effect-free t] 4) #@77 compiler-macro for inlining `ivy-state-re-builder'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-re-builder--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-re-builder (progn (aref cl-x 17))) nil] 9 (#$ . 22135)]) (put 'ivy-state-re-builder 'compiler-macro 'ivy-state-re-builder--cmacro) #@65 Access slot "re-builder" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-re-builder #[257 "\211\300H\207" [17] 3 (#$ . 22477)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-re-builder side-effect-free t] 4) #@74 compiler-macro for inlining `ivy-state-matcher'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-matcher--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-matcher (progn (aref cl-x 18))) nil] 9 (#$ . 22720)]) (put 'ivy-state-matcher 'compiler-macro 'ivy-state-matcher--cmacro) #@62 Access slot "matcher" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-matcher #[257 "\211\300H\207" [18] 3 (#$ . 23047)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-matcher side-effect-free t] 4) #@85 compiler-macro for inlining `ivy-state-dynamic-collection'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-dynamic-collection--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-dynamic-collection (progn (aref cl-x 19))) nil] 9 (#$ . 23281)]) (put 'ivy-state-dynamic-collection 'compiler-macro 'ivy-state-dynamic-collection--cmacro) #@73 Access slot "dynamic-collection" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-dynamic-collection #[257 "\211\300H\207" [19] 3 (#$ . 23663)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-dynamic-collection side-effect-free t] 4) #@89 compiler-macro for inlining `ivy-state-display-transformer-fn'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-display-transformer-fn--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-display-transformer-fn (progn (aref cl-x 20))) nil] 9 (#$ . 23930)]) (put 'ivy-state-display-transformer-fn 'compiler-macro 'ivy-state-display-transformer-fn--cmacro) #@77 Access slot "display-transformer-fn" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-display-transformer-fn #[257 "\211\300H\207" [20] 3 (#$ . 24332)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-display-transformer-fn side-effect-free t] 4) #@76 compiler-macro for inlining `ivy-state-directory'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-directory--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-directory (progn (aref cl-x 21))) nil] 9 (#$ . 24611)]) (put 'ivy-state-directory 'compiler-macro 'ivy-state-directory--cmacro) #@64 Access slot "directory" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-directory #[257 "\211\300H\207" [21] 3 (#$ . 24948)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-directory side-effect-free t] 4) #@73 compiler-macro for inlining `ivy-state-caller'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-caller--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-caller (progn (aref cl-x 22))) nil] 9 (#$ . 25188)]) (put 'ivy-state-caller 'compiler-macro 'ivy-state-caller--cmacro) #@61 Access slot "caller" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-caller #[257 "\211\300H\207" [22] 3 (#$ . 25510)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-caller side-effect-free t] 4) #@74 compiler-macro for inlining `ivy-state-current'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-current--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-current (progn (aref cl-x 23))) nil] 9 (#$ . 25741)]) (put 'ivy-state-current 'compiler-macro 'ivy-state-current--cmacro) #@62 Access slot "current" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-current #[257 "\211\300H\207" [23] 3 (#$ . 26068)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-current side-effect-free t] 4) #@70 compiler-macro for inlining `ivy-state-def'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-def--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-def (progn (aref cl-x 24))) nil] 9 (#$ . 26302)]) (put 'ivy-state-def 'compiler-macro 'ivy-state-def--cmacro) #@58 Access slot "def" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-def #[257 "\211\300H\207" [24] 3 (#$ . 26609)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-def side-effect-free t] 4) #@73 compiler-macro for inlining `ivy-state-ignore'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-ignore--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-ignore (progn (aref cl-x 25))) nil] 9 (#$ . 26831)]) (put 'ivy-state-ignore 'compiler-macro 'ivy-state-ignore--cmacro) #@61 Access slot "ignore" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-ignore #[257 "\211\300H\207" [25] 3 (#$ . 27153)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-ignore side-effect-free t] 4) #@79 compiler-macro for inlining `ivy-state-multi-action'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-multi-action--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-multi-action (progn (aref cl-x 26))) nil] 9 (#$ . 27384)]) (put 'ivy-state-multi-action 'compiler-macro 'ivy-state-multi-action--cmacro) #@67 Access slot "multi-action" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-multi-action #[257 "\211\300H\207" [26] 3 (#$ . 27736)]) (byte-code "\300\301\302\303#\300\207" [function-put ivy-state-multi-action side-effect-free t] 4) #@78 compiler-macro for inlining `ivy-state-extra-props'. (fn CL-WHOLE-ARG CL-X) (defalias 'ivy-state-extra-props--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ivy-state-extra-props (progn (aref cl-x 27))) nil] 9 (#$ . 27985)]) (put 'ivy-state-extra-props 'compiler-macro 'ivy-state-extra-props--cmacro) #@66 Access slot "extra-props" of `ivy-state' struct CL-X. (fn CL-X) (defalias 'ivy-state-extra-props #[257 "\211\300H\207" [27] 3 (#$ . 28332)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ivy-state-extra-props side-effect-free t defalias copy-ivy-state copy-sequence] 4) #@334 compiler-macro for inlining `make-ivy-state'. (fn CL-WHOLE &cl-quote &key PROMPT COLLECTION PREDICATE REQUIRE-MATCH INITIAL-INPUT HISTORY PRESELECT KEYMAP UPDATE-FN SORT FRAME WINDOW BUFFER TEXT ACTION UNWIND RE-BUILDER MATCHER DYNAMIC-COLLECTION DISPLAY-TRANSFORMER-FN DIRECTORY CALLER CURRENT DEF IGNORE MULTI-ACTION EXTRA-PROPS) (defalias 'make-ivy-state--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"A@\300\322\"A@\300\323\"A@\300\324\"A@\300\325\"A@\300\326\"A@\300\327\"A@\300\330\"A@\300\331\"A@\300\332\"A@\300\333\"A@\334\335\336\337 \337                           & \207" [plist-member :prompt :collection :predicate :require-match :initial-input :history :preselect :keymap :update-fn :sort :frame :window :buffer :text :action :unwind :re-builder :matcher :dynamic-collection :display-transformer-fn :directory :caller :current :def :ignore :multi-action :extra-props cl--defsubst-expand (prompt collection predicate require-match initial-input history preselect keymap update-fn sort frame window buffer text action unwind re-builder matcher dynamic-collection display-transformer-fn directory caller current def ignore multi-action extra-props) (cl-block make-ivy-state (record 'ivy-state prompt collection predicate require-match initial-input history preselect keymap update-fn sort frame window buffer text action unwind re-builder matcher dynamic-collection display-transformer-fn directory caller current def ignore multi-action extra-props)) nil] 62 (#$ . 28627)]) (put 'make-ivy-state 'compiler-macro 'make-ivy-state--cmacro) #@314 Constructor for objects of type `ivy-state'. (fn &key PROMPT COLLECTION PREDICATE REQUIRE-MATCH INITIAL-INPUT HISTORY PRESELECT KEYMAP UPDATE-FN SORT FRAME WINDOW BUFFER TEXT ACTION UNWIND RE-BUILDER MATCHER DYNAMIC-COLLECTION DISPLAY-TRANSFORMER-FN DIRECTORY CALLER CURRENT DEF IGNORE MULTI-ACTION EXTRA-PROPS) (defalias 'make-ivy-state #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"A@\300\322\"A@\300\323\"A@\300\324\"A@\300\325\"A@\300\326\"A@\300\327\"A@\300\330\"A@\300\331\"A@\300\332\"A@\300\333\"A@\334\335&\207" [plist-member :prompt :collection :predicate :require-match :initial-input :history :preselect :keymap :update-fn :sort :frame :window :buffer :text :action :unwind :re-builder :matcher :dynamic-collection :display-transformer-fn :directory :caller :current :def :ignore :multi-action :extra-props record ivy-state] 57 (#$ . 30432)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-ivy-state side-effect-free t cl-struct-define ivy-state nil cl-structure-object record ((cl-tag-slot) (prompt) (collection) (predicate) (require-match) (initial-input) (history) (preselect) (keymap) (update-fn) (sort) (frame) (window) (buffer) (text) (action) (unwind) (re-builder) (matcher) (dynamic-collection) (display-transformer-fn) (directory) (caller) (current) (def) (ignore) (multi-action) (extra-props)) cl-struct-ivy-state-tags] 11) #@128 The last parameters passed to `ivy-read'. This should eventually become a stack so that you could use `ivy-read' recursively. (defvar ivy-last (byte-code "\300\301\302\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211&\207" [record ivy-state nil] 29) (#$ . 32104)) #@55 Alist mapping session symbols to `ivy-state' objects. (defvar ivy--sessions nil (#$ . 32431)) (defvar ivy-recursive-last nil) #@159 When non-nil, restore the above state when exiting the minibuffer. This variable is let-bound to nil by functions that take care of the restoring themselves. (defvar ivy-recursive-restore t (#$ . 32564)) #@58 Set the current `ivy-last' field to ACTION. (fn ACTION) (defalias 'ivy-set-action #[257 "\211\301I\207" [ivy-last 15] 5 (#$ . 32774)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ivy-set-action speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@65 Return a string that corresponds to the current thing at point. (defalias 'ivy-thing-at-point #[0 "\303\304 \203\305 \306 \212b\210\307 )\310^\"\266\203\202^\311\312!\206^\313H\314=\2035\315\316\317\320!*\206^\311\321!\211;\205L\322\323\"\203K\324\325\"\202L\211\262\206^\326\327!\203]\330\325!\202^\331!\207" [ivy-last ffap-machine-p-known inhibit-message substring-no-properties use-region-p region-beginning region-end line-end-position buffer-substring-no-properties thing-at-point url 2 read-file-name-internal t reject run-hook-with-args-until-success file-name-at-point-functions symbol string-match "\\`[`']?\\(.*?\\)'?\\'" match-string 1 looking-at "(+\\(\\(?:\\sw\\|\\s_\\)+\\)\\_>" match-string-no-properties ""] 8 (#$ . 33058)]) #@139 History list of candidates entered in the minibuffer. Maximum length of the history list is determined by the value of `history-length'. (defvar ivy-history nil (#$ . 33828)) #@47 Current directory when completing file names. (defvar ivy--directory nil (#$ . 34010)) #@79 Store the history of directories. This allows RET to reverse consecutive DEL. (defvar ivy--directory-hist nil (#$ . 34103)) #@40 Store the amount of viable candidates. (defvar ivy--length 0 (#$ . 34233)) #@44 Store the user's string as it is typed in. (defvar ivy-text "" (#$ . 34314)) #@55 Store the regex value that corresponds to `ivy-text'. (defvar ivy-regex "" (#$ . 34397)) #@40 Current function for building a regex. (defvar ivy--regex-function 'ivy--regex (#$ . 34492)) #@34 Set `ivy-text' to STR. (fn STR) (defalias 'ivy-set-text #[257 "\211 !\211\207" [ivy-text ivy--regex-function ivy-regex] 3 (#$ . 34591)]) #@43 Store the index of the current candidate. (defvar ivy--index 0 (#$ . 34738)) #@113 Store the index of the current candidate in the minibuffer window. This means it's between 0 and `ivy-height'. (defvar ivy--window-index 0 (#$ . 34822)) #@81 Store `done' if the completion was successfully selected. Otherwise, store nil. (defvar ivy-exit nil (#$ . 34982)) #@44 Store the candidates passed to `ivy-read'. (defvar ivy--all-candidates nil (#$ . 35103)) #@397 Store candidates added by the extra sources. This is an internal-use alist. Each key is a function name, or original-source (which represents where the current dynamic candidates should go). Each value is an evaluation of the function, in case of static sources. These values will subsequently be filtered on `ivy-text'. This variable is set by `ivy-read' and used by `ivy--set-candidates'. (defvar ivy--extra-candidates '((original-source)) (#$ . 35199)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-use-ignore-default funcall function #[0 "\300\207" [t] 1] "The default policy for user-configured candidate filtering." :type (choice (const :tag "Ignore ignored always" always) (const :tag "Ignore ignored when others exist" t) (const :tag "Don't ignore" nil))] 6) #@171 Store policy for user-configured candidate filtering. This may be changed dynamically by `ivy-toggle-ignore'. Use `ivy-use-ignore-default' for a permanent configuration. (defvar ivy-use-ignore t (#$ . 36014)) #@24 Default initial input. (defvar ivy--default nil (#$ . 36229)) #@81 Store the format-style prompt. When non-nil, it should contain at least one %d. (defvar ivy--prompt nil (#$ . 36297)) #@40 Temporary modifications to the prompt. (defvar ivy--prompt-extra "" (#$ . 36421)) #@69 Store the old regexp. Either a string or a list for `ivy-re-match'. (defvar ivy--old-re nil (#$ . 36509)) #@48 Store the candidates matched by `ivy--old-re'. (defvar ivy--old-cands nil (#$ . 36621)) #@49 Current function for formatting the candidates. (defvar ivy--highlight-function 'ivy--highlight-default (#$ . 36715)) #@47 Number of groups in the current `ivy--regex'. (defvar ivy--subexps 0 (#$ . 36839)) #@69 The total amount of candidates when :dynamic-collection is non-nil. (defvar ivy--full-length nil (#$ . 36928)) #@46 Store old `ivy-text' for dynamic completion. (defvar ivy--old-text "" (#$ . 37045)) #@192 Non-nil if resuming from a dynamic collection. When non-nil, ivy will wait until the first chunk of asynchronous candidates has been received before selecting the last preselected candidate. (defvar ivy--trying-to-resume-dynamic-collection nil (#$ . 37136)) (defalias 'ivy--set-index-dynamic-collection #[0 "\205\303 \304H\n\"\211\203\305!\210\210\306\211\207" [ivy--trying-to-resume-dynamic-collection ivy-last ivy--all-candidates ivy--preselect-index 7 ivy-set-index nil] 3]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable ivy-case-fold-search-default funcall function #[0 "\203\302\207 \207" [search-upper-case case-fold-search auto] 1] "The default value for `case-fold-search' in Ivy operations.\nThe special value `auto' means case folding is performed so long\nas the entire input string comprises lower-case characters. This\ncorresponds to the default behaviour of most Emacs search\nfunctionality, e.g. as seen in `isearch'." :link (info-link "(emacs)Lax Search") :type (choice (const :tag "Auto" auto) (const :tag "Always" t) (const :tag "Never" nil))] 8) #@50 Store the current overriding `case-fold-search'. (defvar ivy-case-fold-search ivy-case-fold-search-default (#$ . 38260)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-more-chars-alist funcall function #[0 "\300\207" [((t . 3))] 1] "Map commands to their minimum required input length.\nThat is the number of characters prompted for before fetching\ncandidates. The special key t is used as a fallback." :type (alist :key-type symbol :value-type integer)] 6) #@103 Return two fake candidates prompting for at least N input. N is obtained from `ivy-more-chars-alist'. (defalias 'ivy-more-chars #[0 "\302! GZ\211\303V\205\304\305\306\"D\207" [ivy-more-chars-alist ivy-text ivy-alist-setting 0 "" format "%d chars more"] 5 (#$ . 38762)]) #@71 Return nil if STRING should be matched case-sensitively. (fn STRING) (defalias 'ivy--case-fold-p #[257 "\301=\203 \211\227\230\207\207" [ivy-case-fold-search auto] 3 (#$ . 39042)]) #@59 Like `string=', but obeys `case-fold-search'. (fn S1 S2) (defalias 'ivy--case-fold-string= #[514 "\301\302\211\302\211&\303=\207" [case-fold-search compare-strings nil t] 10 (#$ . 39234)]) #@63 Quit the minibuffer and run BODY afterwards. (fn &rest BODY) (defalias 'ivy-quit-and-run '(macro . #[128 "\300\301\302\303\211\304\303\305\306\307\nBBFF\310BBB\207" [progn (put 'quit 'error-message "") run-at-time nil lambda (put 'quit 'error-message "Quit") with-demoted-errors "Error: %S" ((abort-recursive-edit))] 12 (#$ . 39434)])) (byte-code "\300\301\302\303#\300\207" [function-put ivy-quit-and-run lisp-indent-function 0] 4) #@82 Quit the minibuffer and call ACTION afterwards. (fn ACTION &optional EXIT-CODE) (defalias 'ivy-exit-with-action #[513 "\302\303\304\305D\306BB\307\305\310HDDF\211\310I\266\211\206\311\312 \207" [ivy-last ivy-exit lambda (x) funcall quote (x) ivy-set-action 15 done exit-minibuffer] 9 (#$ . 39875)]) #@79 Execute BODY in the window from which `ivy-read' was called. (fn &rest BODY) (defalias 'with-ivy-window '(macro . #[128 "\300\301BB\207" [with-selected-window (ivy--get-window ivy-last)] 4 (#$ . 40189)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-ivy-window lisp-indent-function 0 put edebug-form-spec t] 5) #@13 (fn TEXT) (defalias 'ivy--expand-file-name #[257 "\303H\304=\203 \207 \2037\305\306\307\310#)\266\203\2032\311 !\2032\312 \313\"\211@\313A@\313\260\207\314 \"\207\207" [ivy-last ivy--directory inhibit-changing-match-data 6 grep-files-history "^/" nil t string-match file-remote-p split-string ":" expand-file-name] 8 (#$ . 40534)]) #@45 Insert TEXT and exit minibuffer. (fn TEXT) (defalias 'ivy--done #[257 "\302H\303\235\203 \304 \207\211;\203\211\305\306!I\262c\210\307\310 \207" [ivy-last ivy-exit 1 ("Create directory: " "Make directory: ") ivy-immediate-done 23 ivy--expand-file-name done exit-minibuffer] 6 (#$ . 40888)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-use-selectable-prompt funcall function #[0 "\300\207" [nil] 1] "When non-nil, make the prompt line selectable like a candidate.\n\nThe prompt line can be selected by calling `ivy-previous-line' when the first\nregular candidate is selected. Both actions `ivy-done' and `ivy-alt-done',\nwhen called on a selected prompt, are forwarded to `ivy-immediate-done', which\nresults to the same as calling `ivy-immediate-done' explicitly when a regular\ncandidate is selected.\n\nNote that if `ivy-wrap' is set to t, calling `ivy-previous-line' when the\nprompt is selected wraps around to the last candidate, while calling\n`ivy-next-line' on the last candidate wraps around to the first\ncandidate, not the prompt." :type boolean] 6) #@70 Store the effective `ivy-use-selectable-prompt' for current session. (defvar ivy--use-selectable-prompt nil (#$ . 42004)) #@44 Return t if the prompt line is selectable. (defalias 'ivy--prompt-selectable-p #[0 "\205% \302H\303>\206% \304H\211<\205#\211@:\203 \305\235\202#\306\235\262\207" [ivy-use-selectable-prompt ivy-last 4 (nil confirm confirm-after-completion) 2 (#1="") #1#] 3 (#$ . 42132)]) #@42 Return t if the prompt line is selected. (defalias 'ivy--prompt-selected-p #[0 "\205 \302U\207" [ivy--use-selectable-prompt ivy--index -1] 2 (#$ . 42419)]) #@50 Exit the minibuffer with the selected candidate. (defalias 'ivy-done #[0 "\306 \203\307 \207\310 \210\n\311U\203 \312=\203\313\f!\207\n\311V\204) \312=\203/\313 \314H!\207 \315H\316>\203N\317=\203N\320\230\204N\320\fc\210\321 \207 \322H\323>\203Z\313\f!\207\324\fc\210\321 \207" [current-prefix-arg ivy-current-prefix-arg ivy--length this-command ivy-text ivy-last ivy--prompt-selected-p ivy-immediate-done delete-minibuffer-contents 0 ivy-dispatching-done ivy--done 23 2 (read-file-name-internal internal-complete-buffer) t " (confirm)" ivy--exhibit 4 (nil confirm confirm-after-completion) " (match required)" confirm-nonexistent-file-or-buffer ivy--prompt-extra] 3 (#$ . 42584) nil]) #@71 The doc visible in the tooltip for mouse-1 binding in the minibuffer. (defvar ivy-mouse-1-tooltip "Exit the minibuffer with the selected candidate." (#$ . 43299)) #@71 The doc visible in the tooltip for mouse-3 binding in the minibuffer. (defvar ivy-mouse-3-tooltip "Display alternative actions." (#$ . 43468)) #@85 Compute the offset between the candidate at point and the selected one. (fn EVENT) (defalias 'ivy-mouse-offset #[257 "\211\205\301\302\303\304!!!]\211\301Z\211Z\266\202\207" [ivy--window-index 2 line-number-at-pos posn-point event-start] 6 (#$ . 43617)]) #@14 (fn EVENT) (defalias 'ivy-mouse-done #[257 "\300!\211\205\301!\210\302 \210\303 \207" [ivy-mouse-offset ivy-next-line ivy--exhibit ivy-alt-done] 4 (#$ . 43883) "@e"]) #@14 (fn EVENT) (defalias 'ivy-mouse-dispatching-done #[257 "\300!\211\205\301!\210\302 \210\303 \207" [ivy-mouse-offset ivy-next-line ivy--exhibit ivy-dispatching-done] 4 (#$ . 44062) "@e"]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-read-action-format-function funcall function #[0 "\300\207" [ivy-read-action-format-default] 1] "Function used to transform the actions list into a docstring." :type (radio (function-item ivy-read-action-format-default) (function-item ivy-read-action-format-columns))] 6) #@146 Create a docstring from ACTIONS. ACTIONS is a list. Each list item is a list of 3 items: key (a string), cmd and doc (a string). (fn ACTIONS) (defalias 'ivy-read-action-format-default #[257 "\302\303\304=\203\f\305\202 \306H\307\310\311##\207" [this-command ivy-last format "%s\n%s\n" ivy-read-action "Select action: " 23 mapconcat #[257 "\300\301\302@\303\304#\3058#\207" [format "%s: %s" propertize face ivy-action 2] 7 "\n\n(fn X)"] "\n"] 8 (#$ . 44616)]) #@204 Create a docstring from ACTIONS, using several columns if needed to preserve `ivy-height'. ACTIONS is a list. Each list item is a list of 3 items: key (a string), cmd and doc (a string). (fn ACTIONS) (defalias 'ivy-read-action-format-columns #[257 "\211G\303S\304\211\211\211C\304CW\203o\305 \n\n\n\\\211\262\f^#\262\306\307\310\311\"\"\240\210\211\306\307\310\312\"\"\240\210\310\313\314#\"\262\204RG\262\202gGW\203g\315\316GZ\317\"\"\262B\262\202\f\320\321 \322=\203{\323\202~\n\324H\325\326\306\327\330 \237#\331##\207" [ivy-height this-command ivy-last 0 nil cl-subseq apply max mapcar #[257 "\211@G\207" [] 2 "\n\n(fn X)"] #[257 "\3008G\207" [2] 3 "\n\n(fn X)"] make-closure #[257 "\302\211\303\300\242\301\242#\304@\305\306#\3078#\207" [V0 V1 format "%%%ds: %%-%ds" propertize face ivy-action 2] 7 "\n\n(fn X)"] append make-list "" format "%s\n%s\n" ivy-read-action "Select action: " 23 mapconcat identity cl-mapcar #[128 "\300\301\302#\207" [mapconcat identity " | "] 5 "\n\n(fn &rest ARGS)"] "\n"] 18 (#$ . 45092)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-read-action-function funcall function #[0 "\300\207" [ivy-read-action-by-key] 1] "Function used to read an action." :type (radio (function-item ivy-read-action-by-key) (function-item ivy-read-action-ivy) (function-item ivy-hydra-read-action))] 6) #@146 Change the action to one of the available ones. Return nil for `minibuffer-keyboard-quit' or wrong key during the selection, non-nil otherwise. (defalias 'ivy-read-action #[0 "\303H\304!\204 \305\207 \n!)\207" [ivy-last ivy--directory ivy-read-action-function 15 ivy--actionp t] 3 (#$ . 46502) nil]) #@16 (fn ACTIONS) (defalias 'ivy-read-action-by-key #[257 "\304 A!\305\306C\304\307\310\311\"A\"\211\262\2035\242A8@\230\2045\211\242\312\313\314!!!P\240\210\202 \315 \210\242\316\235\203C\304\202b\211\204Q\317\320\242\"\210\304\202b\317\306!\210T\240\210 \211\321I\266\202*\207" [set-message-function ivy-read-action-format-function resize-mini-windows ivy-last nil t "" cl-position-if make-closure #[257 "\301\300\242@\"\207" [V0 string-prefix-p] 4 "\n\n(fn X)"] key-description vector read-key ivy-shrink-after-dispatching ("ESC" "C-g" "M-o") message "%s is not bound" 15] 10 (#$ . 46814)]) #@172 List of marked candidates. Use `ivy-mark' to populate this. When this list is non-nil at the end of the session, the action will be called for each element of this list. (defvar ivy-marked-candidates nil (#$ . 47438)) #@56 Select an action from ACTIONS using Ivy. (fn ACTIONS) (defalias 'ivy-read-action-ivy #[257 "\303\304 \305V\203 \306H\307=\203\310 \2026\n\311\312\313 \314H\"\315\316A\317\305AG\"#\320\321\322\"\323\307&))\207" [enable-recursive-minibuffers ivy-last ivy-marked-candidates t minibuffer-depth 1 22 ivy-read-action-ivy minibuffer-keyboard-quit ivy-read format "action (%s): " 23 cl-mapcar #[514 "\300\301@\3028#B\207" [format "[%s] %s" 2] 7 "\n\n(fn A I)"] number-sequence :action make-closure #[257 "\300A\240\210\300 \211\302I\207" [V0 ivy-last 15] 6 "\n\n(fn A)"] :caller] 9 (#$ . 47663)]) #@68 Shrink the window after dispatching when action list is too large. (defalias 'ivy-shrink-after-dispatching #[0 "\301 \205\f\302\303\304 Z\"\207" [ivy-height window-minibuffer-p window-resize nil window-height] 4 (#$ . 48277)]) #@58 Select one of the available actions and call `ivy-done'. (defalias 'ivy-dispatching-done #[0 "\301\302 \203\n\303 \210)\304 \207" [ivy-exit ivy-dispatching-done ivy-read-action ivy-done ivy-shrink-after-dispatching] 1 (#$ . 48512) nil]) #@58 Select one of the available actions and call `ivy-call'. (defalias 'ivy-dispatching-call #[0 "\304\n\305H! \306\307\"\216\310 \203\311!\210\312 \210)\266\313 \207" [current-prefix-arg ivy-current-prefix-arg ivy-last ivy-text copy-sequence 15 make-closure #[0 "\300 \211\302I\207" [V0 ivy-last 15] 5] ivy-read-action ivy-set-text ivy-call ivy-shrink-after-dispatching] 5 (#$ . 48757) nil]) #@99 Reconstruct X into a path. Is is a cons cell, related to `tramp-get-completion-function'. (fn X) (defalias 'ivy-build-tramp-name #[257 "\211@A@\203\300Q\207\207" ["@"] 6 (#$ . 49160)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-alt-done-functions-alist funcall function #[0 "\300\207" [nil] 1] "Customize what `ivy-alt-done' does per-collection." :type (alist :key-type symbol :value-type function)] 6) (defalias 'ivy--completing-fname-p #[0 "\302\3031\304H \305\306#0\202\210\305\236A\307=\207" [ivy-last ivy-text category (error) 2 nil metadata file] 5]) #@317 Exit the minibuffer with the selected candidate. When ARG is t, exit with current text, ignoring the candidates. When the current candidate during file name completion is a directory, continue completion from within that directory instead of exiting. This function is otherwise like `ivy-done'. (fn &optional ARG) (defalias 'ivy-alt-done #[256 "\303\204\f\304 \203\305 \207\306\n!\211\262\203\211 \207\307 \203#\310 \207\311 \207" [current-prefix-arg ivy-current-prefix-arg ivy-alt-done-functions-alist nil ivy--prompt-selected-p ivy-immediate-done ivy-alist-setting ivy--completing-fname-p ivy--directory-done ivy-done] 4 (#$ . 49775) "P"]) (defalias 'ivy--info-alt-done #[0 "\301H\302\235\203\303\304\305\306#\210\307\310\211\311#\210\312 \207\313 \207" [ivy-last 23 ("(./)" "(../)") put quit error-message "" run-at-time nil #[0 "\300\301\302\303#\210\3041\305\306\307\310\311$0\207\312\313\"\210\314\207" [put quit error-message "Quit" (debug error) ivy-read "Go to file: " read-file-name-internal :action #[257 "\301\302\"\303\"\207" [ivy--directory Info-find-node expand-file-name "Top"] 5 "\n\n(fn X)"] message "Error: %S" nil] 5] abort-recursive-edit ivy-done] 4]) #@251 When non-nil, auto-select the candidate if it is the only one. When t, it is the same as if the user were prompted and selected the candidate by calling the default action. This variable has no use unless the collection contains a single candidate. (defvar ivy-auto-select-single-candidate nil (#$ . 50975)) (defalias 'ivy--directory-enter #[0 "\302\303V\205! \304H\305\230?\205!\306 \304H!\211\262\205!\307!\210\310 \207" [ivy--length ivy-last nil 0 23 "./" ivy-expand-file-if-directory ivy--cd ivy--exhibit] 4]) #@73 Detect the next directory based on special values of INPUT. (fn INPUT) (defalias 'ivy--handle-directory #[257 "\211\301\230\203\301\207\211\302\230\205\211P\207" [ivy--directory "/" "/sudo::"] 3 (#$ . 51502)]) (defalias 'ivy--tramp-candidates #[0 "\305\306\"\305\307\"\305\310\"\311\312!\211\203(\211@\313@A@!\"\262A\266\202\202\210\314\311\"\262\203F\211\211\203E\211@\211\240\210A\266\202\2024\210\315!\262 \316\311\317\320\321\322\"\323$)\211\205m\324\325\324\326\327\260!)\207" [ivy-text ivy-last enable-recursive-minibuffers ivy-auto-select-single-candidate ivy--directory match-string 1 2 3 nil tramp-get-completion-function append delq delete-dups t ivy-read "user@host: " mapcar ivy-build-tramp-name :initial-input "/" ivy--cd ":" ":/"] 12]) #@61 Handle exit from the minibuffer when completing file names. (defalias 'ivy--directory-done #[0 "\306! \307H \310H\232\203\311 \207 \312H\203#\313\232\203#\n\204#\314 \207\211\203.\315\316!)\207\317 \206\256\313\230\204x\315\320 \321V\203H \307H\202I\"\3221W\323!0\202\\\210\324\202r\205r\325!\203n\316\326!!\210\202q\311 \210)\262\206\256\327\232\203\220\330\324\315\331#)\266\203\204\241\332\324\315\331#)\266\203\203\244\311 \207\333 \203\254\334 \207\311 \207" [ivy-text ivy-last ivy--old-cands inhibit-message tramp-completion-mode ivy--length ivy--handle-directory 23 24 ivy-done 4 "" ivy-immediate-done t ivy--cd ivy--directory-enter expand-file-name 0 (error) file-exists-p nil file-directory-p file-name-as-directory "/" "\\`[^/]+:.*:.*\\'" string-match "\\`/[^/]+:.*:.*\\'" ivy--tramp-prefix-p ivy--tramp-candidates ivy--directory inhibit-changing-match-data] 8 (#$ . 52299)]) (defalias 'ivy--tramp-prefix-p #[0 "\303\232\203:\304\305 \"\203\306 \307\310\"\216\311\n\312H!)\262\2027\304\305\n\312H\"\203:\306 \307\313\"\216\311\n\312H!)\262\206>\304\314 \"\207" [ivy--directory ivy-text ivy-last "/" string-match "\\`\\([^/]+?\\):\\(?:\\(.*\\)@\\)?\\(.*\\)\\'" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] ivy-set-text 23 #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "\\`/\\([^/]+?\\):\\(?:\\(.*\\)@\\)?\\(.*\\)\\'"] 4]) #@95 Expand FILE-NAME as directory. When this directory doesn't exist, return nil. (fn FILE-NAME) (defalias 'ivy-expand-file-if-directory #[257 "\211;\205\"\3011\302\303\"!0\202\210\304\211\205 \305!\205 \211\262\207" [ivy--directory (error) file-name-as-directory expand-file-name nil file-directory-p] 5 (#$ . 53745)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-tab-space funcall function #[0 "\300\207" [nil] 1] "When non-nil, `ivy-partial-or-done' should insert a space." :type boolean] 6) #@118 Complete the minibuffer text as much as possible. If the text hasn't changed as a result, forward to `ivy-alt-done'. (defalias 'ivy-partial-or-done #[0 "\247\203 GW\203\306\307 )\207 \310H\311=\203T\f\312\232\2031\313 \314\306\315#)\266\203\2049\316 !\317U\203T\f\314\320 \210\321\322 !\210\323 !\211\262\205R\324!)\207\325 \206j=\204h\326=\205j\327 \207" [completion-cycle-threshold ivy--all-candidates ivy-wrap ivy-last ivy--directory ivy-text t ivy-next-line 2 read-file-name-internal "/" "\\`[^/]+:.*\\'" nil string-match string-to-char 47 minibuffer-complete ivy-set-text ivy--input ivy-expand-file-if-directory ivy--cd ivy-partial 1 ivy-alt-done inhibit-changing-match-data default-directory this-command last-command ivy--length] 7 (#$ . 54292) nil]) (defalias 'ivy--partial-cd-for-single-directory #[0 "\306H\307=\2057\310 \311\211\n\312\"\203\211G\313O\266\202\202 \262P! \"G\314U\2057\f\315\316H!)\2057\317 \207" [ivy-last ivy--regex-function ivy-text ivy--all-candidates ivy--directory default-directory 2 read-file-name-internal ivy--re-filter "^" string-prefix-p nil 1 file-directory-p 23 ivy--directory-done] 8]) #@51 Complete the minibuffer text as much as possible. (defalias 'ivy-partial #[0 "\306!\206\307C\310!\211@\311!\211\312\313\314\"\203'\211G\315O\266\202\202)\262 \316H\2033\f\202:\317\320\321\" \"\"\211\322=\203E\315\202\227\211\230\203O\315\202\227@\306!@\230\203]\315\202\227\211\205\227\323 d|\210\324!\325U\203u\313P\202v\240\210\326\327\330\331#\205\215 G\332U?\205\215\331P!\210c\210\333 \210\322*\207" [ivy-text case-fold-search completion-ignore-case ivy-last ivy--all-candidates ivy--old-cands ivy--split-spaces "" last ivy--case-fold-p try-completion "^" string-prefix-p nil 19 mapcar make-closure #[257 "\300\302\303\304#)\266\203\211\205\302O\207" [V0 inhibit-changing-match-data nil t string-match] 8 "\n\n(fn STR)"] t minibuffer-prompt-end string-to-char 94 ivy-set-text mapconcat identity " " 1 ivy--partial-cd-for-single-directory ivy-tab-space] 10 (#$ . 55469) nil]) #@26 Completion bounds start. (defvar ivy-completion-beg nil (#$ . 56404)) #@24 Completion bounds end. (defvar ivy-completion-end nil (#$ . 56480)) #@70 Exit the minibuffer with current input instead of current candidate. (defalias 'ivy-immediate-done #[0 "\306 \210\211\307 \203\310H\311=\203\n\202S\n\312\230\203O\313H\314=\203O\315H\203K\316\315H!\203C G\317\315H!GTU\204C \202S\320\315H!\202S \202S\317\n \"I\266\307Hc\210 \321\322 \207" [ivy-last ivy--directory ivy-text ivy-completion-end ivy-completion-beg ivy-exit delete-minibuffer-contents 23 6 grep-files-history "" 2 read-file-name-internal 24 file-exists-p expand-file-name copy-sequence done exit-minibuffer] 7 (#$ . 56554) nil]) #@78 Resume a recorded completion SESSION, if any exists. (fn &optional SESSION) (defalias 'ivy--restore-session #[256 "\203\"\211\204\304 \305\211\306\307\310\311$+!\262\211\236A\206! \312 \313H\314\"\211\2057\312\315\"\312\316\"\211\207" [ivy--sessions ivy-last ivy-text ivy--all-candidates intern nil ivy-read "Choose ivy session: " :require-match t plist-get 27 :ivy-data :all-candidates :text] 7 (#$ . 57125)]) #@164 Resume the last completion session, or SESSION if non-nil. With a prefix arg, try to restore a recorded completion session, if one exists. (fn &optional SESSION) (defalias 'ivy-resume #[256 "\204\211\203\f\305!\210 \306H\203\307 !\310=\203\311\312!\207 \313H\314>\203,\315 \316H!\210r \316Hq\210 \317H \320H\321 \322H \323H\324 \325H\326 \327H\330\f\331 \332H\333 \334H\335 \336H\337 \340H\341 \342H\343 \306H\344 \345H\346 \347H\350 \351H\352 \353H\354 \355H\356 \313H& +\207" [current-prefix-arg ivy-last ivy-use-ignore-default default-directory ivy-text ivy--restore-session 15 ivy--get-action identity user-error "The last session isn't compatible with `ivy-resume'" 22 (swiper swiper-isearch swiper-backward swiper-isearch-backward counsel-grep) switch-to-buffer 13 21 25 ivy-read 1 2 :predicate 3 :require-match 4 :initial-input :history 6 :preselect 23 :keymap 8 :update-fn 9 :sort 10 :action :unwind 16 :re-builder 17 :matcher 18 :dynamic-collection 19 :extra-props 27 :caller] 35 (#$ . 57561) nil]) #@66 When non-nil, call the current action when `ivy--index' changes. (defvar ivy-calling nil (#$ . 58588)) (make-variable-buffer-local 'ivy-calling) #@40 Set `ivy--index' to INDEX. (fn INDEX) (defalias 'ivy-set-index #[257 "\211 \205 \302 \210\303 \207" [ivy--index ivy-calling ivy--exhibit ivy-call] 2 (#$ . 58739)]) #@40 Select the first completion candidate. (defalias 'ivy-beginning-of-buffer #[0 "\300\301!\207" [ivy-set-index 0] 2 (#$ . 58912) nil]) #@39 Select the last completion candidate. (defalias 'ivy-end-of-buffer #[0 "\301S!\207" [ivy--length ivy-set-index] 2 (#$ . 59051) nil]) #@56 Scroll the candidates upward by the minibuffer height. (defalias 'ivy-scroll-up-command #[0 "\303 \\S\nS^!\207" [ivy--index ivy-height ivy--length ivy-set-index] 3 (#$ . 59191) nil]) #@58 Scroll the candidates downward by the minibuffer height. (defalias 'ivy-scroll-down-command #[0 "\302 ZT\303]!\207" [ivy--index ivy-height ivy-set-index 0] 3 (#$ . 59381) nil]) #@65 Move cursor vertically down ARG candidates. (fn &optional ARG) (defalias 'ivy-next-line #[256 "\211\206\303\262\\\211 SV\203\n\203\304 \207\305 S!\207\305!\207" [ivy--index ivy--length ivy-wrap 1 ivy-beginning-of-buffer ivy-set-index] 4 (#$ . 59565) "p"]) #@133 Move cursor vertically down ARG candidates. If the input is empty, select the previous history element instead. (fn &optional ARG) (defalias 'ivy-next-line-or-history #[256 "\302!\210 \303\230\205U\205\304\305!\207" [ivy--index ivy-text ivy-next-line "" ivy-previous-history-element 1] 4 (#$ . 59839) "p"]) #@63 Move cursor vertically up ARG candidates. (fn &optional ARG) (defalias 'ivy-previous-line #[256 "\211\206\303\262Z \203\304\202\305W\203$\n\203 \306 \207\307!\207\307!\207" [ivy--index ivy--use-selectable-prompt ivy-wrap 1 -1 0 ivy-end-of-buffer ivy-set-index] 5 (#$ . 60161) "p"]) #@121 Move cursor vertically up ARG candidates. If the input is empty, select the previous history element instead. (fn ARG) (defalias 'ivy-previous-line-or-history #[257 "\302!\210 \303\230\205U\205\304\305!\207" [ivy--index ivy-text ivy-previous-line "" ivy-previous-history-element 1] 4 (#$ . 60466) "p"]) #@21 Flip `ivy-calling'. (defalias 'ivy-toggle-calling #[0 "?\211\205 \301 \207" [ivy-calling ivy-call] 2 (#$ . 60784) nil]) #@45 Toggle user-configured candidate filtering. (defalias 'ivy-toggle-ignore #[0 "?\205\n \206\n\304\n\211\305I\266\306\211\207" [ivy-use-ignore ivy-use-ignore-default ivy-last ivy--old-cands t 25 nil] 4 (#$ . 60913) nil]) #@49 Get the action function from STATE. (fn STATE) (defalias 'ivy--get-action #[257 "\211\300H\211\205\301!\203\207\211@8A@\207" [15 functionp] 4 (#$ . 61145)]) #@55 Get the multi-action function from STATE. (fn STATE) (defalias 'ivy--get-multi-action #[257 "\211\300H\211<\205\211@\301=?\205\302@88\211\203\207@\303=\205%\304H\207" [15 lambda 3 1 26] 5 (#$ . 61315)]) #@40 Get the window from STATE. (fn STATE) (defalias 'ivy--get-window #[257 "\301!>\203\211\302H\303!\203\207\304 \207\305 \207" [cl-struct-ivy-state-tags type-of 12 window-live-p next-window selected-window] 4 (#$ . 61536)]) #@53 Return non-nil when X is a list of actions. (fn X) (defalias 'ivy--actionp #[257 "\211:\205\n\211@\300>?\207" [(closure lambda)] 3 (#$ . 61771)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-action-wrap funcall function #[0 "\300\207" [nil] 1] "When non-nil, `ivy-next-action' and `ivy-prev-action' wrap." :type boolean] 6) #@56 When the current action is a list, scroll it forwards. (defalias 'ivy-next-action #[0 "\302H\303!\205'\211GS@\211Y\203 \205%\211\304\240\207\211@T\240\262\266\202\207" [ivy-last ivy-action-wrap 15 ivy--actionp 1] 6 (#$ . 62140) nil]) #@57 When the current action is a list, scroll it backwards. (defalias 'ivy-prev-action #[0 "\302H\303!\205#\211@\304X\203 \205#\211\211GS\240\207\211\211@S\240\262\207" [ivy-last ivy-action-wrap 15 ivy--actionp 1] 4 (#$ . 62392) nil]) #@53 Return the name associated with the current action. (defalias 'ivy-action-name #[0 "\301H\302!\203\303\304@GS\305@88$\207\306\207" [ivy-last 15 ivy--actionp format "[%d/%d] %s" 2 "[1/1] default"] 8 (#$ . 62638)]) #@209 When non-nil, `ivy-call' does nothing. Example use: (let* ((ivy-inhibit-action t) (str (ivy-switch-buffer))) ;; do whatever with str - the corresponding buffer will not be opened ) (defvar ivy-inhibit-action nil (#$ . 62867)) #@116 Restore the above state when exiting the minibuffer. See variable `ivy-recursive-restore' for further information. (defalias 'ivy-recursive-restore #[0 "\205 \205\n=?\205\303\211!\207" [ivy-recursive-last ivy-recursive-restore ivy-last ivy--reset-state] 3 (#$ . 63127)]) #@28 Prefix used by `ivy-mark'. (defvar ivy-mark-prefix ">" (#$ . 63414)) #@15 (fn ACTION) (defalias 'ivy--call-marked #[257 "G\304\305\306\" \"\307\n!\211\203\n\310H\211\304\311\"!)\207\211\2055\211@\n\310H\311!!\210)A\266\202\202\207" [ivy-mark-prefix ivy-marked-candidates ivy-last default-directory mapcar make-closure #[257 "\211\300\302O \203 \303 \"\207\207" [V0 ivy--directory nil expand-file-name] 5 "\n\n(fn S)"] ivy--get-multi-action 21 ivy--call-cand] 9 (#$ . 63489)]) #@16 (fn CURRENT) (defalias 'ivy--call-cand #[257 "\303H\211\242:\203&\304\305\306#\211\203\307\306\"\210\2118\202!\310\"\262\2068 \203/\311 \"\207\312\232\2037\n\207\207" [ivy-last ivy--directory ivy-text 2 get-text-property 0 idx ivy--remove-props assoc expand-file-name ""] 6 (#$ . 63915)]) #@53 Call the current action without exiting completion. (defalias 'ivy-call #[0 "\306>\204 \307 !\203 \202 ?\205\310\f!\f\311H\312!\204(\202[\313\314\f!!\210\f\315Hq\210\316\216 \203?\317!\202B!)\320=\204[\321\322 !\204[\323 \203[\313\323 !\210 \203`\207\207" [this-command current-prefix-arg ivy-current-prefix-arg ivy-inhibit-action ivy-last ivy-marked-candidates (nil ivy-done ivy-alt-done ivy-dispatching-done) functionp ivy--get-action 23 ivy--call-cand select-window ivy--get-window 13 #[0 "\300 \207" [ivy-recursive-restore] 1] ivy--call-marked done minibuffer-window-active-p selected-window active-minibuffer-window ivy-exit] 6 (#$ . 64229) nil]) #@70 Call action and recenter window according to the selected candidate. (defalias 'ivy-call-and-recenter #[0 "\301 \210\302\303!!r\304\305\"\216\306@\307\"\210\310 *\207" [ivy-last ivy-call 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] 4 (#$ . 64914) nil]) #@104 Move cursor vertically down ARG candidates. Call the permanent action if possible. (fn &optional ARG) (defalias 'ivy-next-line-and-call #[256 "\300!\210\301 \210\302 \207" [ivy-next-line ivy--exhibit ivy-call] 3 (#$ . 65308) "p"]) #@102 Move cursor vertically up ARG candidates. Call the permanent action if possible. (fn &optional ARG) (defalias 'ivy-previous-line-and-call #[256 "\300!\210\301 \210\302 \207" [ivy-previous-line ivy--exhibit ivy-call] 3 (#$ . 65548) "p"]) #@59 Forward to `previous-history-element' with ARG. (fn ARG) (defalias 'ivy-previous-history-element #[257 "\300!\210\301 \210\302\303!\210\304 \207" [previous-history-element ivy--cd-maybe move-end-of-line 1 ivy--maybe-scroll-history] 3 (#$ . 65793) "p"]) (defalias 'ivy--insert-symbol-boundaries #[0 "\300 \210\301 \210\302c\210\303\210\304c\207" [undo-boundary beginning-of-line "\\_<" nil "\\_>"] 1]) #@55 Forward to `next-history-element' with ARG. (fn ARG) (defalias 'ivy-next-history-element #[257 "\305U\203W \306\232\203W\n\203\n@ c\210\307\310\f!!r\311\312\"\216\313@\314\"\210\315\316!*\262\203[\f\317H\320=\203[\321 !\204[\322 !\204[\f\323H\204[`\324 V\203[\325 \210\202[\326!\210\327 \210\330\331!\210\332 \207" [minibuffer-history-position ivy-text minibuffer-default ivy--default ivy-last 0 "" internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord derived-mode-p prog-mode 22 swiper file-exists-p ivy-ffap-url-p 19 minibuffer-prompt-end ivy--insert-symbol-boundaries next-history-element ivy--cd-maybe move-end-of-line 1 ivy--maybe-scroll-history] 5 (#$ . 66203) "p"]) #@56 List of functions that check if the point is on a URL. (defvar ivy-ffap-url-functions nil (#$ . 67002)) #@126 Check if the current input points to a different directory. If so, move to that directory, while keeping only the file name. (defalias 'ivy--cd-maybe #[0 "\205\\\303 \304C\211\305!\206)\306\307 !!r\310\311\"\216\312@\313\"\210\314\315\n\316\304$*\262\240\2037\317\310\320\"\321\"\202Z\322!\262\323!\322\324!!\211\230\203R\325 \210c\202X\326!\210c\266\202\266\202\207" [ivy--directory ivy-last ivy-ffap-url-functions ivy--input nil ivy-ffap-url-p internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord cl-reduce #[514 "\206\211 \207" [] 3 "\n\n(fn A B)"] :initial-value ivy-exit-with-action #[257 "\301\300\242!\207" [V0 ivy-ffap-url-fetcher] 3 "\n\n(fn _)"] no-update-history expand-file-name file-name-nondirectory file-name-directory delete-minibuffer-contents ivy--cd] 9 (#$ . 67113)]) #@61 If the selected history element has an index, scroll there. (defalias 'ivy--maybe-scroll-history #[0 "\3001 \301\302 \303\"0\202\210\304\211\205\305 \210\306!\207" [(error) get-text-property minibuffer-prompt-end ivy-index nil ivy--exhibit ivy-set-index] 3 (#$ . 68031)]) #@62 When completing file names, move to directory DIR. (fn DIR) (defalias 'ivy--cd #[257 "\306 \203<\211B\307\211\310\311!\210\312\313\211!\314\230\205,\315\316!\205,\317\320\321\322\323!\"\324\"\"\325\323!\210 \211\326I\266\327 \207\330\331!\207" [ivy--directory-hist ivy--old-cands ivy--old-re ivy--directory ivy--all-candidates ivy-last ivy--completing-fname-p nil ivy-set-index 0 append ivy--sorted-files "/" featurep tramp sort mapcar #[257 "\211\300\301O\207" [1 nil] 4 "\n\n(fn S)"] tramp-get-completion-methods "" string< ivy-set-text 21 delete-minibuffer-contents error "Unexpected"] 9 (#$ . 68315)]) #@62 Return parent directory of absolute FILENAME. (fn FILENAME) (defalias 'ivy--parent-dir #[257 "\300\301!!\207" [file-name-directory directory-file-name] 4 (#$ . 68941)]) #@170 Forward to `delete-backward-char'. Call `ivy-on-del-error-function' if an error occurs, usually when there is no more text to delete at the beginning of the minibuffer. (defalias 'ivy-backward-delete-char #[0 "\203\304 `U\203\305\306\307!!!\210\310 \207 \3111!\312\313!0\207\210 \205( \207" [ivy--directory current-prefix-arg prefix-arg ivy-on-del-error-function minibuffer-prompt-end ivy--cd ivy--parent-dir expand-file-name ivy--exhibit (error) call-interactively delete-backward-char] 4 (#$ . 69119) nil]) #@41 Forward to `delete-char' ARG. (fn ARG) (defalias 'ivy-delete-char #[257 "l?\205\300!\207" [delete-char] 3 (#$ . 69644) "p"]) #@42 Forward to `forward-char' ARG. (fn ARG) (defalias 'ivy-forward-char #[257 "l?\205\211u\207" [] 2 (#$ . 69779) "p"]) #@39 Forward to `kill-word' ARG. (fn ARG) (defalias 'ivy-kill-word #[257 "l?\205\300!\207" [kill-word] 3 (#$ . 69904) "p"]) #@25 Forward to `kill-line'. (defalias 'ivy-kill-line #[0 "l\203\n\300\301 `\"\207\302 \207" [kill-region minibuffer-prompt-end kill-line] 3 (#$ . 70033) nil]) #@31 Forward to `kill-whole-line'. (defalias 'ivy-kill-whole-line #[0 "\300\301 \302 \"\207" [kill-region minibuffer-prompt-end line-end-position] 3 (#$ . 70195) nil]) #@34 Forward to `backward-kill-word'. (defalias 'ivy-backward-kill-word #[0 "\203\302 `U\203\303\304\305!!!\210\306 \207\30713` \310=\203%\311\202& \312v\210\311`\")\2620\207\210\313\207" [ivy--directory last-command minibuffer-prompt-end ivy--cd ivy--parent-dir expand-file-name ivy--exhibit (error) ivy-backward-kill-word kill-region -1 nil] 4 (#$ . 70364) nil]) #@33 Store the regexp quoting state. (defvar ivy--regexp-quote 'regexp-quote (#$ . 70742)) #@28 Toggle the regexp quoting. (defalias 'ivy-toggle-regexp-quote #[0 "\306 \n\307\n\f!\211\207" [ivy--old-re ivy--regexp-quote ivy--regex-function ivy--old-text ivy-text ivy-regex nil ""] 2 (#$ . 70834) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-format-functions-alist funcall function #[0 "\300\207" [((t . ivy-format-function-default))] 1] "An alist of functions that transform the list of candidates into a string.\nThis string is inserted into the minibuffer." :type (alist :key-type symbol :value-type (choice (const :tag "Default" ivy-format-function-default) (const :tag "Arrow prefix" ivy-format-function-arrow) (const :tag "Full line" ivy-format-function-line) (function :tag "Custom function")))] 6) #@62 Compare two files X and Y. Prioritize directories. (fn X Y) (defalias 'ivy-sort-file-function-default #[514 "\300\301\302#\203\300\301\302#\203\303!\303!\231\207\304\207\300\301\302#?\205&\231\207" [get-text-property 0 dirp directory-file-name t] 6 (#$ . 71597)]) #@70 Like `string<', but operate on CARs when given cons cells. (fn X Y) (defalias 'ivy-string< #[514 ":\203\n@\202 :\203@\202\231\207" [] 4 (#$ . 71880)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\311\312DD\313\314\315%\207" [defalias ivy-sort-file-function-using-ido ido-file-extension-lessp nil make-obsolete "<2019-10-12 Sat>" custom-declare-variable ivy-sort-functions-alist funcall function #[0 "\300\207" [((t . ivy-string<))] 1] "An alist of sorting functions for each collection function.\nInteractive functions that call completion fit in here as well.\n\nNil means no sorting, which is useful to turn off the sorting for\nfunctions that have candidates in the natural buffer order, like\n`org-refile' or `Man-goto-section'.\n\nA list can be used to associate multiple sorting functions with a\ncollection. The car of the list is the current sort\nfunction. This list can be rotated with `ivy-rotate-sort'.\n\nThe entry associated with t is used for all fall-through cases.\n\nSee also `ivy-sort-max-size'." :type (alist :key-type (choice (const :tag "Fall-through" t) (symbol :tag "Collection")) :value-type (choice (const :tag "Plain sort" ivy-string<) (const :tag "File sort" ivy-sort-file-function-default) (const :tag "File sort using Ido" ido-file-extension-lessp) (const :tag "No sort" nil) (function :tag "Custom function") (repeat (function :tag "Custom function"))))] 6) #@89 Retrieve sort function for COLLECTION from `ivy-sort-functions-alist'. (fn COLLECTION) (defalias 'ivy--sort-function #[257 "\211\236\206 \302H\236\206\303\236A\304!\204\"\304\242\211\262!\205#\211\207" [ivy-sort-functions-alist ivy-last 22 t functionp] 5 (#$ . 73312)]) #@194 Rotate through sorting functions available for current collection. This only has an effect if multiple sorting functions are specified for the current collection in `ivy-sort-functions-alist'. (defalias 'ivy-rotate-sort #[0 "\302H \236\206\303H \236\206\304 \236\211A:\205'\211AAA@C\244\241\210\305!\207" [ivy-last ivy-sort-functions-alist 2 22 t ivy--reset-state] 4 (#$ . 73602) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-index-functions-alist funcall function #[0 "\300\207" [((t . ivy-recompute-index-zero))] 1] "An alist of index recomputing functions for each collection function.\nWhen the input changes, the appropriate function returns an\ninteger - the index of the matched candidate that should be\nselected." :type (alist :key-type symbol :value-type function)] 6) #@712 An alist of regex building functions for each collection function. Each key is (in order of priority): 1. The actual collection function, e.g. `read-file-name-internal'. 2. The symbol passed by :caller into `ivy-read'. 3. `this-command'. 4. t. Each value is a function that should take a string and return a valid regex or a regex sequence (see below). Possible choices: `ivy--regex', `regexp-quote', `ivy--regex-plus', `ivy--regex-fuzzy', `ivy--regex-ignore-order'. If a function returns a list, it should format like this: '(("matching-regexp" . t) ("non-matching-regexp") ...). The matches will be filtered in a sequence, you can mix the regexps that should match and that should not match as you like. (defvar ivy-re-builders-alist '((t . ivy--regex-plus)) (#$ . 74440)) #@69 An alist of highlighting functions for each regex builder function. (defvar ivy-highlight-functions-alist '((ivy--regex-ignore-order . ivy--highlight-ignore-order) (ivy--regex-fuzzy . ivy--highlight-fuzzy) (ivy--regex-plus . ivy--highlight-default)) (#$ . 75226)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable ivy-initial-inputs-alist funcall function #[0 "\300\207" [((org-refile . "^") (org-agenda-refile . "^") (org-capture-refile . "^") (Man-completion-table . "^") (woman . "^"))] 1] "An alist associating commands with their initial input.\n\nEach cdr is either a string or a function called in the context\nof a call to `ivy-read'." :type (alist :key-type (symbol) :value-type (choice (string) (function))) ivy-hooks-alist #[0 "\300\207" [nil] 1] "An alist associating commands to setup functions.\nExamples: `toggle-input-method', (lambda () (insert \"^\")), etc.\nMay supersede `ivy-initial-inputs-alist'." (alist :key-type symbol :value-type function)] 6) #@48 A list of custom occur generators per command. (defvar ivy--occurs-list nil (#$ . 76269)) #@53 Assign CMD a custom OCCUR function. (fn CMD OCCUR) (defalias 'ivy-set-occur #[514 "\301#\211\207" [ivy--occurs-list plist-put] 6 (#$ . 76365)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\207" [custom-declare-variable ivy-update-fns-alist funcall function #[0 "\300\207" [nil] 1] "An alist associating commands to their :update-fn values." :type (alist :key-type symbol :value-type (radio (const :tag "Off" nil) (const :tag "Call action on change" auto))) ivy-unwind-fns-alist #[0 "\300\207" [nil] 1] "An alist associating commands to their :unwind values." (alist :key-type symbol :value-type function) ivy-init-fns-alist #[0 "\300\207" [nil] 1] "An alist associating commands to their :init values.\nAn :init is a function with no arguments.\n`ivy-read' calls it to initialize." (alist :key-type symbol :value-type function)] 6) #@26 (fn ALIST-SYM KEY VAL) (defalias 'ivy--alist-set #[771 "J\300N\301\302N@!?\205G\211\203\232\205G\303\"\211\203*\211\241\266\2028BJBL\266\211\205G\304\302\305 JDC#\207" [customized-value eval standard-value assoc put quote] 11 (#$ . 77289)]) #@114 Configure parent caller for child caller. The child caller inherits and can override the settings of the parent. (defvar ivy--parents-alist nil (#$ . 77568)) #@239 Configure `ivy-read' params for CALLER. (fn CALLER &key PARENT INITIAL-INPUT HEIGHT OCCUR UPDATE-FN INIT-FN UNWIND-FN INDEX-FN SORT-FN SORT-MATCHES-FN FORMAT-FN DISPLAY-FN DISPLAY-TRANSFORMER-FN ALT-DONE-FN MORE-CHARS GREP-P EXIT-CODES) (defalias 'ivy-configure #[385 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\301\310\"A@\301\311\"A@\301 \312\"A@\301\n\313\"A@\301 \314\"A@\301\f\315\"A@\301 \316\"A@\301\317\"A@\301\320\"A@\301\321\"A@\301\322\"A@\203\323\324#\210\203\214\323\325#\210\203\231\323\326#\210 \203\245\327\"\210\f\203\262\323\330#\210\n\203\277\323\331 #\210 \203\314\323\332#\210 \203\331\323\333\f#\210\203\346\323\334 #\210\203\363\323\335\n#\210\203\323\336 #\210\203\f\323\337#\210\203\323\340#\210\203$\323\341#\210\203/\323\342#\210\203E\343\"\203@\210\202E\211B\210\211\205o\344\211\211A\262\242\211\262\205m\211A\262\242\211\262\205m\345#\210\202K\266\202\207" [ivy-highlight-grep-commands plist-member :parent :initial-input :height :occur :update-fn :init-fn :unwind-fn :index-fn :sort-fn :sort-matches-fn :format-fn :display-fn :display-transformer-fn :alt-done-fn :more-chars :grep-p :exit-codes ivy--alist-set ivy--parents-alist ivy-initial-inputs-alist ivy-height-alist ivy-set-occur ivy-update-fns-alist ivy-unwind-fns-alist ivy-init-fns-alist ivy-index-functions-alist ivy-sort-functions-alist ivy-sort-matches-functions-alist ivy-format-functions-alist ivy-display-functions-alist ivy--display-transformers-alist ivy-alt-done-functions-alist ivy-more-chars-alist memql nil counsel-set-async-exit-code] 25 (#$ . 77733)]) (byte-code "\300\301\302\303#\304\305\306\307\310DD\311\312\313%\210\314\315\316\317!\203\317\202\320\"\207" [function-put ivy-configure lisp-indent-function 1 custom-declare-variable ivy-sort-max-size funcall function #[0 "\300\207" [30000] 1] "Sorting won't be done for collections larger than this." :type integer defalias ivy--dirname-p fboundp directory-name-p #[257 "\300\301\"\207" [string-suffix-p "/"] 4 "Return non-nil if NAME ends with a directory separator.\n\n(fn NAME)"]] 7) #@68 Return the list of files in DIR. Directories come first. (fn DIR) (defalias 'ivy--sorted-files #[257 "\211\3031\304\305\306\307\310 \311H#\"0\202\210\312!\313\314\315\314\316\"\"\262\317\310!\211\262\320=\2033\304\321\"\262\211\203=\322\"\262\n\211\203P\211@\211B\262A\266\202\202>\210\323\230\203a\324\325\314\316\"\"\202b)\207" [default-directory ivy-last ivy-extra-directories (error) mapcar #[257 "\300\301\302#\207" [replace-regexp-in-string "\\$\\$" "$"] 5 "\n\n(fn S)"] all-completions "" read-file-name-internal 3 directory-files nil delete "./" "../" ivy--sort-function ivy-sort-file-function-default #[257 "\300\301\302!#\207" [propertize dirp ivy--dirname-p] 6 "\n\n(fn X)"] sort "/" cl-remove-if #[257 "\300\301\"\207" [string-match ":$"] 4 "\n\n(fn S)"]] 8 (#$ . 79960)]) #@185 Return the value associated with KEY in ALIST, using `assq'. KEY defaults to the last caller of `ivy-read'; if no entry is found, it falls back to the key t. (fn ALIST &optional KEY) (defalias 'ivy-alist-setting #[513 "\211\206\302H\211\203\211\236A\206'\211 \236A\211\205\303\"\262\206'\304\236A\207" [ivy-last ivy--parents-alist 22 ivy-alist-setting t] 7 (#$ . 80783)]) #@15 (fn CALLER) (defalias 'ivy--height #[257 "\302\"\206 \211\250\203\207\303!\203\211!\207\304\305\"\207" [ivy-height-alist ivy-height ivy-alist-setting functionp error "Unexpected value: %S"] 5 (#$ . 81176)]) #@73 Return STR with text PROPS destructively removed. (fn STR &rest PROPS) (defalias 'ivy--remove-props #[385 "\3001\301\302G$0\210\202\210\207" [(error) remove-list-of-text-properties 0] 7 (#$ . 81402)]) #@15 (fn PROMPT) (defalias 'ivy--update-prompt #[257 "\211\300\232\203\301\207\302\303\304#\207" ["Keyword, C-h: " "Keyword (C-M-j to end): " replace-regexp-in-string "RET to end" "C-M-j to end"] 5 (#$ . 81618)]) #@2622 Read a string in the minibuffer, with completion. PROMPT is a string, normally ending in a colon and a space. `ivy-count-format' is prepended to PROMPT during completion. COLLECTION is either a list of strings, a function, an alist, or a hash table, supplied for `minibuffer-completion-table'. PREDICATE is applied to filter out the COLLECTION immediately. This argument is for compatibility with `completing-read'. When REQUIRE-MATCH is non-nil, only members of COLLECTION can be selected. If INITIAL-INPUT is non-nil, then insert that input in the minibuffer initially. HISTORY is a name of a variable to hold the completion session history. KEYMAP is composed with `ivy-minibuffer-map'. PRESELECT, when non-nil, determines which one of the candidates matching INITIAL-INPUT to select initially. An integer stands for the position of the desired candidate in the collection, counting from zero. Otherwise, use the first occurrence of PRESELECT in the collection. Comparison is first done with `equal'. If that fails, and when applicable, match PRESELECT as a regular expression. DEF is for compatibility with `completing-read'. UPDATE-FN is called each time the candidate list is re-displayed. When SORT is non-nil, `ivy-sort-functions-alist' determines how to sort candidates before displaying them. ACTION is a function to call after selecting a candidate. It takes one argument, the selected candidate. If COLLECTION is an alist, the argument is a cons cell, otherwise it's a string. MULTI-ACTION, when non-nil, is called instead of ACTION when there are marked candidates. It takes the list of candidates as its only argument. When it's nil, ACTION is called on each marked candidate. UNWIND is a function of no arguments to call before exiting. RE-BUILDER is a function transforming input text into a regex pattern. MATCHER is a function which can override how candidates are filtered based on user input. It takes a regex pattern and a list of candidates, and returns the list of matching candidates. DYNAMIC-COLLECTION is a boolean specifying whether the list of candidates is updated after each input by calling COLLECTION. EXTRA-PROPS is a plist that can be used to store collection-specific session-specific data. CALLER is a symbol to uniquely identify the caller to `ivy-read'. It is used, along with COLLECTION, to determine which customizations apply to the current completion session. (fn PROMPT COLLECTION &key PREDICATE REQUIRE-MATCH INITIAL-INPUT HISTORY PRESELECT DEF KEYMAP UPDATE-FN SORT ACTION MULTI-ACTION UNWIND RE-BUILDER MATCHER DYNAMIC-COLLECTION EXTRA-PROPS CALLER) (defalias 'ivy-read #[642 "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\306 \317\"A@\306\n\320\"A@\306 \321\"A@\306\f\322\"A@\306 \323\"A@\306\324\"A@\306\325\"A@\306\326\"A@\306\327\"A@C\330\242\"\211\203\211 \210\210 \331\232\203\211\332 \210\211\242\206\220\n\240\210\333 \205\230 \211\204\243\334 ?\205\250\330 \242\"@ \206\265\330A\242\"\262\n\206\301\330B\242\"\262\335\336\337!\340\307\310\311\312\313\315\316\341=\203\352\342\202\354\317\320\343\242\"\321\344\345 \346\347 \350p\322%\323&\324'\325(\351\330C*\242\"\352D\326-\327.\242\314;&0\353 !\210\354\355#\216\356\357\360!\211\354\361#M\210\354\362\"\216\363\364\"\210\206L\365EF\366\242!G\367 ?\205a\370HI\203\202J\203\202JA\204\202 \211\371J@I\266\372K\202\255\3731\232\374 \375H\376L\"\377%0\210\202\255\211\201M\232?\205\253\201N@A\"\266K\372=\203\272\201O!\210,\210)\266)\201P *\207" [ivy-init-fns-alist overriding-local-map this-command ivy-last ivy-recursive-last ivy-display-functions-alist plist-member :predicate :require-match :initial-input :history :preselect :def :keymap :update-fn :sort :action :multi-action :unwind :re-builder :matcher :dynamic-collection :extra-props :caller ivy-alist-setting (keymap) keyboard-quit active-minibuffer-window window-minibuffer-p make-ivy-state :prompt ivy--update-prompt :collection auto #[0 "\301\302!!r\303\304\"\216\305@\306\"\210\307!\310H\242:\203'\311\312H\310H\"\202*\312H!*\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 ivy--get-action 2 assoc 23] 6] ivy--compute-extra-actions :frame selected-frame :window selected-window :buffer :display-transformer-fn :directory ivy--reset-state make-closure #[0 "\305\300\306\"\206\307 \206\n\310H?\206\311\n!\312=?\205\301\242\211\2037\n\211\313\314\300\315\316 \317\fF#I\266\320\321\n#\210\210\322 \207" [V0 V1 ivy-last ivy--all-candidates ivy-text plist-get :session minibufferp 15 ivy--get-action identity 27 plist-put :ivy-data :all-candidates :text ivy--alist-set ivy--sessions ivy--cleanup] 11] ivy--minibuffer-setup make-symbol "minibuffer-setup" #[0 "\302\303\301\"\210\300 \207" [V0 V1 remove-hook minibuffer-setup-hook] 3] #[0 "\301\302\300\"\207" [V0 remove-hook minibuffer-setup-hook] 3] add-hook minibuffer-setup-hook ivy-history ivy--height display-graphic-p grow-only 23 done (error) read-from-minibuffer 5 make-composed-keymap nil ivy--display-function ivy-update-fns-alist ivy-unwind-fns-alist ivy--display-transformers-alist default-directory minibuffer-completion-table minibuffer-completion-predicate ivy-height resize-mini-windows ivy-auto-select-single-candidate ivy--all-candidates ivy-exit ivy-minibuffer-map (error "Selecting deleted buffer") signal ivy--update-history ivy-call] 70 (#$ . 81839)]) #@13 (fn HIST) (defalias 'ivy--update-history #[257 "\303\230\204\304 \305H\306\"\307=\204 \310H\311=\203 \312H\202 \211\303\232\2068\211;\2058\313\314\n#\315J\"BL\207" [ivy-text ivy-last ivy--index "" plist-get 27 :caller ivy-completing-read 6 file-name-history 23 propertize ivy-index delete] 7 (#$ . 87484)]) (defalias 'ivy--cleanup #[0 "\302\303\304\305#\210\306\303\307\"\210\306\310\311\"\210\312\313!\314H\315!\203 \210\211\203&\211 \210\266\316 \210 \317=?\2054\320 \207" [ivy-last ivy-exit put post-command-hook permanent-local nil remove-hook ivy--queue-exhibit window-size-change-functions ivy--window-size-changed ivy--display-function-prop :cleanup 16 functionp ivy--pulse-cleanup done ivy-recursive-restore] 4]) #@73 Return PROP associated with current `ivy--display-function'. (fn PROP) (defalias 'ivy--display-function-prop #[257 "\302 \236A\"\207" [ivy--display-function ivy-display-functions-props plist-get] 4 (#$ . 88236)]) #@51 Transform ALIST to a list of strings. (fn ALIST) (defalias 'ivy--alist-to-cands #[257 "\300C\301\302\303\"\304\305\"\"\207" [-1 mapcar make-closure #[257 "\301\302\300\211\242T\240#\207" [V0 propertize idx] 6 "\n\n(fn X)"] all-completions ""] 7 (#$ . 88458)]) #@78 Reset the ivy to STATE. This is useful for recursive `ivy-read'. (fn STATE) (defalias 'ivy--reset-state #[257 "\306\307 \310H\232\204\311\312 !\210\211\313H\206\314\315H\316H\317H\320H\321H\322H\323H\324H\2066  \325H\206A\326\n\"\n\327H\206Z\330 \"\331!\203W\211 \202X\211\262 \332H\333=\203l\334 \203l\306\262\335!\306@CABCD\211\321 \206\234\331!\203\224 E\236A\206\234\330E!\206\234\336\211FI\266\337G\340H\314I\306J\341\206\264\314!\210\337K\306LMN\f\211\342NI\266\330E!O\236A\206\325\343P\306\211\211Q \344\267\202\345\346!\205\354&\347\232\203\350\351\352\353\354#!\"\202\353\314#\262\202\300\355\356!\210\232\203 \357R\235\203 \306\262@\203\232\314\232\204\232\360!\203v\361!\314\232\203I\211\320\306\211\262I\266\306\262\362!\306\262\n\203\232\363 !\211\203r\364!\364 !\232\204r\211\320\306\211\262I\266\210\202\232\3651\204\366\363!!0\202\210\210\202\232\203\232\363!\211\320\361!I\266\355\367!\210\n\203\304\370 !\211\203\264\211@\230\204\264\211\371\f\"\262\f\211\320I\266\306\262\372 !\262\203\300\204\347@\232\204\347\314\232\204\347B\262\361!\262\202\300\373\314S\205\372\374>#\262\202\300\203# \375=\203\334 \204T\202\376\206\314!\262\202\300 \242:\203f\377 \"\262\203R\201^!\211\262\203R\201_\201`!\"\262\306\262D\211\315I\266\201a!\262\202\300\331!\204\225\201b!\204\225\201c!\204\225\201d!\204\225 <\203\267 @9\203\267\345\201U!\203\242U\206\250\201eHU\353\314#\262)\202\300\353\314#\262D\322H\204\317\201f\314\"\262\203\331!\204\343 \201g=\204\201^\331!\203\362\202\364!\211\262\203<\203V\233\204\201_\201`!\"\262\203:\242;\203*\352\201h\"!\262\202:;\203:\235\204:B\262\201i!\262\306\211WX\203VX\201j\"X\n\205]\211Y\204s\n\250\203s\314W\201k !\210T\n\250\204\245\201k \203\211K\206\243 \203\242\201l\f\203\235X\202\236\"\206\243\337!\210)\266\306Z\201m \203\276\201n \201o {\202\302\201p [\201q\201r !!\\\201s ]D\211\327I\207" [ivy-marked-candidates this-command ivy-sort-functions-alist ivy-initial-inputs-alist ivy--extra-candidates ivy--directory nil selected-frame 11 select-window active-minibuffer-window 1 "" 2 3 6 7 17 19 4 22 10 assoc 5 ivy-alist-setting functionp 24 swiper-isearch buffer-modified-p ivy--compute-extra-candidates ivy--regex 0 regexp-quote ivy-set-text 25 ivy--highlight-default #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (Info-read-node-name-1 228 read-file-name-internal 268 ffap-read-file-or-url-internal 268 internal-complete-buffer 495)) boundp Info-current-file "dir" mapcar #[257 "\300\301\"\207" [format "(%s)"] 4 "\n\n(fn X)"] delete-dups all-completions "(" require tramp "./" file-directory-p file-name-nondirectory file-name-as-directory file-name-directory expand-file-name (error) file-exists-p dired ivy--parent-dir file-relative-name ivy--sorted-files ivy--buffer-list (ivy-switch-buffer ivy-switch-buffer-other-window counsel-switch-buffer) ivy-resume ivy--dynamic-collection-cands cl-remove-if-not default-directory ivy--directory-hist ivy-case-fold-search-default ivy-case-fold-search ivy-last ivy-re-builders-alist ivy--regex-function ivy--subexps ivy--regexp-quote ivy--old-text ivy--full-length ivy--index ivy-calling ivy-use-ignore-default ivy-use-ignore ivy-highlight-functions-alist ivy--highlight-function ivy-recursive-restore ivy-extra-directories ivy-use-virtual-buffers ivy--all-candidates Info-complete-menu-buffer ivy-sort-max-size ivy--old-re ivy--old-cands ivy--trying-to-resume-dynamic-collection ivy-exit ivy--default ivy--prompt ivy--use-selectable-prompt ivy--sort-function sort copy-sequence ivy--alist-to-cands byte-code-function-p vectorp hash-table-p 13 delete org-refile-history append ivy--set-candidates ivy--filter ivy-set-index ivy--preselect-index region-active-p region-beginning region-end ivy-thing-at-point ivy-add-prompt-count ivy--quote-format-string ivy--prompt-selectable-p] 24 (#$ . 88728)]) #@47 Add count information to PROMPT. (fn PROMPT) (defalias 'ivy-add-prompt-count #[257 "\204\303\304!\207\305\306\"\203= <\203!\307\310\311 G]\312\"!T\202\"\311\313\314\315\"\316\211\311%\305\317\"\210\313\314\320\"\316\211$P\207\321\322\316\305#)\266\203\203QP\207\207" [ivy-count-format ivy--all-candidates inhibit-changing-match-data error "`ivy-count-format' must not be nil; set it to \"\" instead" string-match "%d.*\\(%d\\)" floor log 1 10 replace-match format "%%-%dd" t "%d" "%%%dd" "%.*d" nil] 8 (#$ . 92949)]) #@67 Make STR suitable for `format' with no extra arguments. (fn STR) (defalias 'ivy--quote-format-string #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "%" "%%" t] 7 (#$ . 93494)]) #@701 Read a string in the minibuffer, with completion. This interface conforms to `completing-read' and can be used for `completing-read-function'. PROMPT is a string that normally ends in a colon and a space. COLLECTION is either a list of strings, an alist, an obarray, or a hash table. PREDICATE limits completion to a subset of COLLECTION. REQUIRE-MATCH is a boolean value or a symbol. See `completing-read'. INITIAL-INPUT is a string inserted into the minibuffer initially. HISTORY is a list of previously selected inputs. DEF is the default value. INHERIT-INPUT-METHOD is currently ignored. (fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HISTORY DEF INHERIT-INPUT-METHOD) (defalias 'ivy-completing-read #[2050 "\306 W\205\n \n\236\211\203*\307\306 T\211A        &*\207:\203BA\247\203>AS@J8\262@\262:\203K@\262\310  \311\n\312 \205` \205` \313\f:\203m\f@\202\226\f;\203\224\314=\204\224\315 \316\317\320#)\266\203\203\224\321\315\322#\202\226\f\323\f\324\325\326\316\327 \330\331\332\203\2669\203\266\202\267 &\211\333\230\203\305\206\306\333\207\211\207" [ivy-completing-read-ignore-handlers-depth this-command ivy-completing-read-handlers-alist completion-in-region-function inhibit-changing-match-data ivy-completing-read-dynamic-collection minibuffer-depth completion--in-region ivy-read :predicate :require-match :initial-input read-file-name-internal "\\+" nil t string-match replace-regexp-in-string "\\\\+" :preselect :def :history :keymap :dynamic-collection :extra-props (:caller ivy-completing-read) :caller ""] 32 (#$ . 93693)]) #@423 Same as `ivy-completing-read' but with different handling of DEF. Specifically, if DEF is nil, it is treated the same as if DEF was the empty string. This mimics the behavior of `completing-read-default'. This function can therefore be used in place of `ivy-completing-read' for commands that rely on this behavior. (fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HISTORY DEF INHERIT-INPUT-METHOD) (defalias 'ivy-completing-read-with-empty-string-def #[2050 "\300\206\301&\207" [ivy-completing-read ""] 17 (#$ . 95340)]) #@62 Store original `try-completion' result for sole completions. (defvar ivy--minibuffer-try nil (#$ . 95910)) #@127 Insert STR, erasing the previous one. The previous string is between `ivy-completion-beg' and `ivy-completion-end'. (fn STR) (defalias 'ivy-completion-in-region-action #[257 "\211:\203 \211A\262\211;\205\251\306\307\310\311#\205\312 ` \203#|\210`\313!c\210\314\302!\2034\n\2027 \315H\314\304!\203A\f\202D \316H\317\311=\203T\320\202`\321=\203_\322\202`\323\"\210*`\212\211\205\244\211@\324!b\210`Z\\`Z\\|\210\313!c\210\325``T#\210\326\327\"`\310\223\210\326\330\"`\310\223\210A\266\202\202g\262)\266\204\207" [ivy-completion-beg ivy-completion-end ivy--minibuffer-table ivy-last ivy--minibuffer-pred minibuffer-completion-predicate require multiple-cursors-core nil t mc/all-fake-cursors substring-no-properties boundp 2 3 completion--done finished done unknown exact overlay-start move-overlay overlay-get point mark minibuffer-completion-table ivy--minibuffer-try ivy-exit] 11 (#$ . 96024)]) #@302 Return the amount of characters that match in STR. `completion-all-completions' computes this and returns the result via text properties. The first non-matching part is propertized: - either with: (face (completions-first-difference)) - or: (font-lock-face completions-first-difference). (fn STR) (defalias 'ivy-completion-common-length #[257 "\301GS\3022,\211\303Y\203&\304\305#\306\232\203\307\302\"\210\211S\262\202\n\307\302G\"0)\207" [char-property-alias-alist ((face font-lock-face)) done 0 get-text-property face (completions-first-difference) throw] 7 (#$ . 96972)]) #@301 An Ivy function suitable for `completion-in-region-function'. The function completes the text between START and END using COLLECTION. PREDICATE (a function called with no arguments) says when to exit. See `completion-in-region' for further information. (fn START END COLLECTION &optional PREDICATE) (defalias 'ivy-completion-in-region #[1027 "\306\307\"\310!\311#Z\312%\313%\2046\314\315!\202 \316\244\210A\204L@\230\203L\314\317!\202 \320=\203X\321!\262\322@!\211\323U\203f\324\202}GV\205s\211\262\262\206}[\316OC Z\n|\210 Z\211A\204\262\325\326 !\204\242+\211\327\326 I\266,\330\331@!!\210)\266\202\f\211\203\305\211@\332\333\"\210A\266\202\202\263\210\316-\334\242\"\204\333\211\316\240\210\316\262\262 \335\336!\204\347\262 \316\262\337\340\341 \"\n\342 \343\335\336!\205\372\344\242P\345\330\346\347\350\f\"\351\352&\f\266\306,\207" [enable-recursive-minibuffers completion-ignore-case ivy--minibuffer-table ivy--minibuffer-pred ivy-completion-beg ivy-completion-end t buffer-substring-no-properties ivy--case-fold-p completion-metadata completion-all-completions completion-try-completion message "No matches" nil "Sole match" crm--collection-fn delete-dups ivy-completion-common-length 0 "" minibuffer-window-active-p selected-window 12 ivy-completion-in-region-action substring-no-properties ivy--remove-props face ivy--filter derived-mode-p emacs-lisp-mode ivy-read format "(%s): " :predicate :initial-input "^" :action :unwind make-closure #[0 " \303=?\205\nb\210\300\242\205\300\242c\207" [V0 ivy-exit ivy-completion-beg done] 2] :caller ivy-completion-in-region ivy-last ivy--minibuffer-try ivy--old-re] 25 (#$ . 97571)]) #@71 Prompt function for `ivy-completion-in-region'. See `ivy-set-prompt'. (defalias 'ivy-completion-in-region-prompt #[0 "\301\302H!\205 \303\304H!\207" [ivy-last window-minibuffer-p 12 ivy-add-prompt-count 1] 3 (#$ . 99316)]) (byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312%\207" [ivy-set-prompt ivy-completion-in-region ivy-completion-in-region-prompt custom-declare-variable ivy-do-completion-in-region funcall function #[0 "\300\207" [t] 1] "When non-nil `ivy-mode' will set `completion-in-region-function'." :type boolean] 6) #@53 Store previous value of `completing-read-function'. (defvar ivy--old-crf nil (#$ . 99869)) #@58 Store previous value of `completion-in-region-function'. (defvar ivy--old-cirf nil (#$ . 99966)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable ivy-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if ivy mode is enabled.\nSee the `ivy-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `ivy-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group ivy] 12) #@256 Toggle Ivy mode on or off. Turn Ivy mode on if ARG is positive, off otherwise. Turning on Ivy mode sets `completing-read-function' to `ivy-completing-read'. Global bindings: \{ivy-mode-map} Minibuffer bindings: \{ivy-minibuffer-map} (fn &optional ARG) (defalias 'ivy-mode #[256 "\306 \307\301\310=\203\311\301!?\202!\247\203 \312W\203 \313\202!\314\"\210\315\300!\2038\316\301\"\311\301!\2038\301B \203X\n\317=\204F\n\317\f\203v \320=\204v  \320\202v\n\317=\203f \206c\321\313 \320=\203v \206r\322\313 \323\324\311\301!\203\202\325\202\203\326\"\210\327\330!\203\253\331\301!\210\306 \203\233\211\306 \232\203\253\332\333\311\301!\203\247\334\202\250\335\336#\210\210\337 \210\311\301!\207" [global-minor-modes ivy-mode completing-read-function ivy--old-crf ivy-do-completion-in-region completion-in-region-function current-message set-default toggle default-value 1 nil t boundp delq ivy-completing-read ivy-completion-in-region completing-read-default completion--in-region run-hooks ivy-mode-hook ivy-mode-on-hook ivy-mode-off-hook called-interactively-p any customize-mark-as-set message "ivy mode %sabled%s" "en" "dis" "" force-mode-line-update ivy--old-cirf] 6 (#$ . 100569) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar ivy-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [ivy-mode-map ivy-mode-hook variable-documentation put "Hook run after entering or leaving `ivy-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode ivy-mode " ivy"] 6) #@73 Return the index of PRESELECT in CANDIDATES. (fn PRESELECT CANDIDATES) (defalias 'ivy--preselect-index #[514 "\250\203\211@\250\203\300\"\202+\202+\300\301\302$\206/\303!\203.\300\301\304$\206/\305\207" [cl-position :test equal ivy--regex-p string-match-p 0] 7 (#$ . 102345)]) #@382 Return non-nil if RE-SEQ is matched by STR. RE-SEQ is a list of (RE . MATCH-P). RE is a regular expression. MATCH-P is t when RE should match STR and nil when RE should not match STR. Each element of RE-SEQ must match for the function to return true. This concept is used to generalize regular expressions for `ivy--regex-plus' and `ivy--regex-ignore-order'. (fn RE-SEQ STR) (defalias 'ivy-re-match #[514 "\301\302\203<\211A\262\242\211\262\203<\211A\203(\211@\302\301\303#)\266\203\2027\211@\302\301\303#)\266\203?\262\202\207" [inhibit-changing-match-data t nil string-match] 11 (#$ . 102648)]) #@27 Store pre-computed regex. (defvar ivy--regex-hash (make-hash-table :test 'equal) (#$ . 103279)) (defvar ivy--input-garbage nil) #@343 Split STR into list of substrings bounded by spaces. Single spaces act as splitting points. Consecutive spaces "quote" their preceding spaces, i.e., guard them from being split. This allows the literal interpretation of N spaces by inputting N+1 spaces. Any substring not constituting a valid regexp is passed to `regexp-quote'. (fn STR) (defalias 'ivy--split #[257 "\211G\301\211\302\211\211\211\3032\375W\205\374H\262\211\304U\203E\305\302O!\211\262\2036\\\262\202\f\302O\306\303\302\"\210\202\f\211\307U\203\244TW\203\235TH\310U\203\235V\203nOB\262\311\312 #=\203\216\313\301 \"B\262\301\225\262\262\202\f\302O\306\303\302\"\210\202\fT\262\202\f\211\314U\203\365\311\315 #\210\301\225\301\224Z\262\316U\203\326V\203\317OB\262T\262\202\356\317\320S\314\"\302\211 $\262G\262S\\\262T\262\202\fT\262\202\f0\210W\203\302OB\262\321\322\237\"\207" [ivy--input-garbage 0 nil break 91 ivy--match-regex-brackets throw 92 40 string-match "\\\\([^]*?\\\\)" match-string 32 " +" 1 replace-match make-string mapcar ivy--regex-or-literal] 13 (#$ . 103414)]) #@12 (fn STR) (defalias 'ivy--match-regex-brackets #[257 "\211G\300\211\301W\2034\302V\2034H\262\211\303U\203#T\262\202-\211\304U\203-S\262T\262\202\302U\205I\305\306#=\203H\302\225\207\207" [1 nil 0 91 93 string-match "[+*?]"] 9 (#$ . 104586)]) #@107 Trim incomplete REGEX. If REGEX ends with \|, trim it, since then it matches an empty string. (fn REGEX) (defalias 'ivy--trim-trailing-re #[257 "\300\301\"\203\f\302\303\"\207\207" [string-match "\\`\\(.*\\)[\\]|\\'" match-string 1] 4 (#$ . 104863)]) #@136 Re-build regex pattern from STR in case it has a space. When GREEDY is non-nil, join words in a greedy way. (fn STR &optional GREEDY) (defalias 'ivy--regex #[513 "\211?\205 \303\"\211\203\211@\211A\207\304\305\306\307#)\266\203\203)\310\311O\262\312!\262\313\314!\211G\315U\203^\310\211\316@\305\306\307#)\266\203\203X\317@\315\305OP\202Z@B\202x\211G\211\320\321\322\323\324 \203r\325\202s\326#\305\306%B\262#A\207" [ivy--regex-hash ivy--subexps inhibit-changing-match-data gethash "\\(?:[^\\]\\|^\\)\\\\\\'" nil t string-match 0 -1 ivy--trim-trailing-re puthash ivy--split 1 "\\`\\.[^.]" "\\." replace-regexp-in-string "\\.\\*\\??\\\\( " "\\( " mapconcat #[257 "\301\302\303\304#)\266\203\203\207\305\306\"\207" [inhibit-changing-match-data "\\`\\\\([^?][^]*\\\\)\\'" nil t string-match format "\\(%s\\)"] 8 "\n\n(fn X)"] ".*" ".*?"] 14 (#$ . 105125)]) #@75 Return OBJECT if it is a valid regular expression, else nil. (fn OBJECT) (defalias 'ivy--regex-p #[257 "\3011\211\302\303\304\305#)\266\2110\207\210\303\207" [inhibit-changing-match-data (error) "" nil t string-match] 8 (#$ . 106033)]) #@51 If STR isn't a legal regexp, escape it. (fn STR) (defalias 'ivy--regex-or-literal #[257 "\300!\206 \301!\207" [ivy--regex-p regexp-quote] 3 (#$ . 106283)]) #@232 Split STR into text before and after ! delimiter. Do not split if the delimiter is escaped as \!. Assumes there is at most one un-escaped delimiter and discards text after delimiter if it is empty. Modifies match data. (fn STR) (defalias 'ivy--split-negation #[257 "\211\300\230?\2058\301\302\303\304\"\2035\305\224\303\304T#\205\305\224TO\306O\300\230?\205/CB\266\203\2027C\"\207" ["" mapcar #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "\\\\!" "!" t] 7 "\n\n(fn SPLIT)"] string-match "\\(?:\\`\\|[^\\]\\)\\(!\\)" 1 0] 9 (#$ . 106450)]) #@183 Split STR on spaces, unless they're preceded by \. No un-escaped spaces are left in the output. Any substring not constituting a valid regexp is passed to `regexp-quote'. (fn STR) (defalias 'ivy--split-spaces #[257 "\211\205V\300\211\301\302\303#\203@\300\225\262\304\224\204/\300\224W\203(OB\262\262\210\202\305\306\307\211\304%\262S\262\202GW\203O\301OB\262\310\311\237\"\266\203\207" [0 nil string-match "\\(\\\\ \\)\\| +" 1 replace-match " " t mapcar ivy--regex-or-literal] 10 (#$ . 107031)]) #@492 Re-build regex from STR by splitting at spaces and using ! for negation. Examples: foo -> matches "foo" foo bar -> matches if both "foo" and "bar" match (any order) foo !bar -> matches if "foo" matches and "bar" does not match foo !bar baz -> matches if "foo" matches and neither "bar" nor "baz" match foo[a-z] -> matches "foo[a-z]" Escaping examples: foo\!bar -> matches "foo!bar" foo\ bar -> matches "foo bar" Returns a list suitable for `ivy-re-match'. (fn STR) (defalias 'ivy--regex-ignore-order #[257 "\300!\262\301\302!\303@!\211\203!\211@\211\304BB\262A\266\202\202 \210\211A\203@\303A@!\211\203?\211@\211CB\262A\266\202\202,\210\203G\237\207\305\207" [ivy--trim-trailing-re nil ivy--split-negation ivy--split-spaces t ""] 7 (#$ . 107570)]) #@153 Build a regex sequence from STR. Spaces are wild card characters, everything before "!" should match. Everything after "!" should not match. (fn STR) (defalias 'ivy--regex-plus #[257 "\300!\211G\211\301\267\2026\302\207\303H\304U\203\302\305B\306@!CD\207\306@!\207\306@!\305B\307\310\311A@\312\305#\"B\207\313\314!\207" [ivy--split-negation #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 11 1 13 2 36)) "" 0 33 t ivy--regex mapcar list split-string " " error "Unexpected: use only one !"] 10 (#$ . 108370)]) #@73 Build a regex sequence from STR. Insert .* between each char. (fn STR) (defalias 'ivy--regex-fuzzy #[257 "\301!\262\302\303\"\203;\304\305\"\304\306\"\307\310\"\262\311\312\313\312\314\315\316\"AB\315\317\"#\"\262\304\320\"Q\304\306\"G\207\207" [ivy--subexps ivy--trim-trailing-re string-match "\\`\\(\\^?\\)\\(.*?\\)\\(\\$?\\)\\'" match-string 1 2 append nil apply concat cl-mapcar "" mapcar #[257 "\300\301\"\207" [format "[^%c\n]*"] 4 "\n\n(fn C)"] #[257 "\300\301\302\303!!\"\207" [format "\\(%s\\)" regexp-quote char-to-string] 6 "\n\n(fn X)"] 3] 11 (#$ . 108936)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\307%\207" [custom-declare-variable ivy-fixed-height-minibuffer funcall function #[0 "\300\207" [nil] 1] "When non nil, fix the height of the minibuffer during ivy completion.\nThis effectively sets the minimum height at this level to `ivy-height' and\ntries to ensure that it does not change depending on the number of candidates." :type boolean ivy-truncate-lines #[0 "\300\207" [t] 1] "Minibuffer setting for `truncate-lines'."] 6) #@41 Setup ivy completion in the minibuffer. (defalias 'ivy--minibuffer-setup #[0 "\306\300!\210\307\306\301!\210\310\306\302!\210\311\306\303!\210\311\306\304!\210\312\306\305!\210\311\306\313!\210 \203N\314H\315=\204N\203I\316\202J\317\\\202T\205T\320\211\203]\321\311\"\210\210\322\323\324\311\325$\210\322\326\327\311\325$\210\330 !\331!\205x\211 \207" [mwheel-scroll-up-function mwheel-scroll-down-function completion-show-inline-help line-spacing minibuffer-default-add-function inhibit-field-text-motion make-local-variable ivy-next-line ivy-previous-line nil #[0 "C\207" [ivy--default] 1] max-mini-window-height 22 ivy-completion-in-region 1 0 2 set-window-text-height add-hook post-command-hook ivy--queue-exhibit t window-size-change-functions ivy--window-size-changed ivy-alist-setting functionp ivy-truncate-lines truncate-lines ivy-height ivy-fixed-height-minibuffer ivy-last ivy-add-newline-after-prompt ivy-hooks-alist] 5 (#$ . 110048)]) #@38 Return the current minibuffer input. (defalias 'ivy--input #[0 "\212\301 b\210\302\303`\304 \"*\207" [inhibit-field-text-motion minibuffer-prompt-end t buffer-substring-no-properties line-end-position] 3 (#$ . 111037)]) #@45 Delete the displayed completion candidates. (defalias 'ivy--minibuffer-cleanup #[0 "\212\300 b\210\301 d|)\207" [minibuffer-prompt-end line-end-position] 2 (#$ . 111264)]) #@67 Destructively remove unwanted text properties from STR. (fn STR) (defalias 'ivy-cleanup-string #[257 "\300\301\"\207" [ivy--remove-props field] 4 (#$ . 111442)]) #@317 Function to set the text properties of the default ivy prompt. Called with two arguments, PROMPT and PROPS, where PROMPT is the string to be propertized and PROPS is a plist of default text properties that may be applied to PROMPT. The function should return the propertized PROMPT, which may be modified in-place. (defvar ivy-set-prompt-text-properties-function 'ivy-set-prompt-text-properties-default (#$ . 111613)) #@227 Propertize (confirm) and (match required) parts of PROMPT. PROPS is a plist of default text properties to apply to these parts beyond their respective faces `ivy-confirm-face' and `ivy-match-required-face'. (fn PROMPT PROPS) (defalias 'ivy-set-prompt-text-properties-default #[514 "\301\211\2033\211@\211@\302\303\304#)\266\203\211\203+\305\211@G\\\306ABB$\210\210A\266\202\202\210\207" [inhibit-changing-match-data (("confirm" . ivy-confirm-face) ("match required" . ivy-match-required-face)) nil t string-match add-text-properties face] 11 (#$ . 112039)]) #@28 Return the current prompt. (defalias 'ivy-prompt #[0 "\303H\304 \"\211\203$\3051\211 0\207\306\307\310\311\312!%\210\313H!\207\n\207" [ivy-last ivy--prompts-list ivy--prompt 22 plist-get (wrong-number-of-arguments) lwarn ivy :error "%s\n Prompt function set via `ivy-set-prompt' for caller `%s'\n should take no arguments." error-message-string 1] 9 (#$ . 112622)]) #@81 Break each line in STR with newlines to fit into WIDTH columns. (fn STR WIDTH) (defalias 'ivy--break-lines #[514 "\211\300X\203\207\301\302\303\"\211\203c\211@\211\203S\304!V\203S\305\300\211\305\230\262\203:\306\\\"\262\211T\262\202!GGV\205GG\301O\262B\262\266\202\211\203\\\211B\262A\266\202\202 \210\211\237\303\307\310#\207" [0 nil split-string "\n" string-width "" truncate-string-to-width mapconcat identity] 11 (#$ . 113006)]) #@47 Update the prompt according to `ivy--prompt'. (defalias 'ivy--insert-prompt #[0 "\306 \211\205! \307>\204\310\311\211\312\313\"\203'\314\315\"\262\314\316\"\262\202-\262\310\262\317\320\321\303!\203H \203H\322 \315V\203H\323\324\322 \"\202I\310\312\325\f\"\203f\323 T(\326H\203`)\206b*#\202w\323(\326H\203t)\206v*\"\nQP+\203\207\327+!\202\210\310,\212eb\210e\330 |\210\331!\331!\332 \\V\203\254\333\333R\202\303\\\331-!\\V\203\300\333Q\202\303P\262\266.\203\323. P\262/\203\335\333P\262\334\332 \"\262\335\336G\337\340BB$\2100\"\262c\210)1\203 \341U\203\342\330 \343 \344#\210\202\345\330 \343 \346#\210\347\311d\")\266\206\207" [ivy--prompt this-command ivy--prompt-extra minibuffer-depth-indicate-mode ivy-count-format ivy--index ivy-prompt (ivy-done ivy-alt-done ivy-partial-or-done counsel-find-symbol) "" nil string-match "\\(.*?\\)\\(:? ?\\)\\'" match-string 1 2 t (front-sticky t rear-nonsticky t field t read-only t) boundp minibuffer-depth format "[%d] " "%d.*%d" 19 abbreviate-file-name minibuffer-prompt-end string-width window-width "\n" ivy--break-lines set-text-properties 0 face minibuffer-prompt -1 add-face-text-property line-end-position ivy-prompt-match remove-list-of-text-properties (face) constrain-to-field ivy-last ivy--full-length ivy--length ivy--directory inhibit-read-only ivy-text ivy-pre-prompt-function ivy-add-newline-after-prompt ivy-set-prompt-text-properties-function ivy--use-selectable-prompt] 13 (#$ . 113485)]) #@45 Sort COLLECTION if needed. (fn COLLECTION) (defalias 'ivy--sort-maybe #[257 "\301H\211\203!\302!\204\302\303\304H!\211\262!\203!\305\306!\"\207\207" [ivy-last 10 functionp ivy--sort-function 2 sort copy-sequence] 6 (#$ . 115029)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-magic-slash-non-match-action funcall function #[0 "\300\207" [ivy-magic-slash-non-match-cd-selected] 1] "Action to take when a slash is added to the end of a non existing directory.\nPossible choices are 'ivy-magic-slash-non-match-cd-selected,\n'ivy-magic-slash-non-match-create, or nil" :type (choice (const :tag "Use currently selected directory" ivy-magic-slash-non-match-cd-selected) (const :tag "Create and use new directory" ivy-magic-slash-non-match-create) (const :tag "Do nothing" nil))] 6) #@76 When completing file names, create directory DIR and move there. (fn DIR) (defalias 'ivy--create-and-cd #[257 "\300!\210\301!\207" [make-directory ivy--cd] 3 (#$ . 115860)]) #@67 Return an appropriate directory for when two slashes are entered. (defalias 'ivy--magic-file-doubleslash-directory #[0 "\301\302!\211\262\203\211\303P\207\303\207" [ivy--directory nil file-remote-p "/"] 3 (#$ . 116043)]) #@42 Handle slash when completing file names. (defalias 'ivy--magic-file-slash #[0 "\306=\203\nl\204\307=\205\311\310 \n\" \311\230? \235\203\"\312!\207\f\313=\203. \314\230\206\307\315\314 \"\203:\312\316 !\207\317 \320\321\322#)\266\203\203P\312\323 !!\207\322\324 \"\203e\325\326 \"\327!\205d\312!\207\211\203s\330!\203s\312!\207\n !\326V\204\210\"\331U\204\210\211\205\253\332 ?\205\253#\333H\334\232?\205\253\330#\333H!\205\253$\335=\206\253\307=)\203\271\312\310#\333H\n\"!\207$\336=\205\307\211\205\307\337!\266\202\207" [this-command ivy-text ivy--directory ivy--all-candidates system-type inhibit-changing-match-data self-insert-command ivy-partial-or-done expand-file-name "/" ivy--cd windows-nt "//" string-suffix-p ivy--magic-file-doubleslash-directory "\\`/ssh:" nil t string-match file-name-directory "[[:alpha:]]:/\\'" match-string 0 file-exists-p file-directory-p 1 ivy--prompt-selected-p 23 "" ivy-magic-slash-non-match-cd-selected ivy-magic-slash-non-match-create ivy--create-and-cd default-directory ivy--index ivy--length ivy-last ivy-magic-slash-non-match-action] 9 (#$ . 116274)]) #@61 If reading filename, jump to environment variable location. (defalias 'ivy-magic-read-file-env #[0 "\203\204 \305\232\203\204\n\306\211\211\211\211\211:\203b@\262\307\310\311#\262\211A\262\242\262@\262\203W\305\232\204W\312\313!\203E\202L\314\"\211\262!\203WBB\262A\262\306\262\202\237\266\207\311\315\316\"\317\"A\320!\203}\321!\202~\211c\210\322 )\207\fc\207" [ivy--directory ivy-text process-environment enable-recursive-minibuffers last-input-event "" nil split-string "=" t file-exists-p file-name-absolute-p expand-file-name ivy-read "Env: " assoc file-accessible-directory-p file-name-as-directory ivy--cd-maybe] 11 (#$ . 117423) nil]) #@228 Return a command that does the equivalent of `ivy-read-action' and KEY. This happens only when the input is empty. The intention is to bind the result to keys that are typically bound to `self-insert-command'. (fn CALLER KEY) (defalias 'ivy-make-magic-action #[514 "\301\302\"\"\303\304\3058A@#\306\307\310\311\312\313\314\315 PDD\316BBB\257\207" [ivy--actions-list assoc plist-get format "%s (`%S')" 2 lambda (&optional arg) (interactive "p") if (string= "" ivy-text) execute-kbd-macro kbd "M-o " ((self-insert-command arg))] 14 (#$ . 118121)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable ivy-magic-tilde funcall function #[0 "\300\207" [t] 1] "When non-nil, ~ will move home when selecting files.\nOtherwise, ~/ will move home." :type boolean ivy-dynamic-exhibit-delay-ms #[0 "\300\207" [0] 1] "Delay in ms before dynamic collections are refreshed" integer] 6) (defvar ivy--exhibit-timer nil) #@133 Insert Ivy completions display, possibly after a timeout for dynamic collections. Should be run via minibuffer `post-command-hook'. (defalias 'ivy--queue-exhibit #[0 "\303V\203 \304H\203\n\203\305\n!\210\306\307\245\310\311#\211\207\311 \207" [ivy-dynamic-exhibit-delay-ms ivy-last ivy--exhibit-timer 0 19 cancel-timer run-with-timer 1000.0 nil ivy--exhibit] 4 (#$ . 119105)]) (byte-code "\300\301\302\303!\203\f\303\202 \304\305#\207" [defalias ivy--file-local-name fboundp file-local-name #[257 "\300\301\"\206\211\207" [file-remote-p localname] 4 "\n\n(fn FILE)"] "Compatibility shim for `file-local-name'.\nThe function was added in Emacs 26.1."] 4) #@76 Return an appropriate home for DIR for when ~ or ~/ are entered. (fn DIR) (defalias 'ivy--magic-tilde-directory #[257 "\300\301\211\302!\303P!\304!\304!\230\203\266\305\202\266\203!!\207" [file-name-as-directory expand-file-name file-remote-p "~/" ivy--file-local-name "~"] 8 (#$ . 119779)]) #@14 (fn CANDS) (defalias 'ivy-update-candidates #[257 "\301\302\211!!\207" [ivy--all-candidates ivy--insert-minibuffer ivy--format] 5 (#$ . 120089)]) #@83 Insert Ivy completions display. Should be run via minibuffer `post-command-hook'. (defalias 'ivy--exhibit #[0 "\302>\205\303\304\303d\"\210)\305\306 !\210\307 \211\203\310!\210\210\311\207" [post-command-hook inhibit-field-text-motion ivy--queue-exhibit nil constrain-to-field ivy-set-text ivy--input ivy--update-minibuffer ivy--insert-minibuffer t] 3 (#$ . 120245)]) #@14 (fn INPUT) (defalias 'ivy--dynamic-collection-cands #[257 "\301H!\211<\203\302\303\"\207\207" [ivy-last 2 mapcar #[257 "\211:\203\211@\207\207" [] 2 "\n\n(fn X)"]] 5 (#$ . 120626)]) (defalias 'ivy--update-minibuffer #[0 "\306H\203\234\307\310\211\n \232\204n\f\311=\204n\3121f\310\3132`\313\310'\314 \206E\315 !\262\316=\203?\310\262\310(\307\262\317!\211)\262*'=\203V\310\211*\202\\*\206\\\307)\266\2020)0\210\202n\210\307*\320\321!\210)\316=\203~\310\211)(\307\262)\204\217\322\323!?\205\226\211?\205\226\324 \210\325)!)\266\203\202+\203\311 \326\230\204\262 \327\230\203\274,\203\274\330\331+!!\210\202\332\333 \"\203\334 \210\202\335H\336=\203\332\337 \"\203\337\332\337\n\"\203\355\332\337\n\"\203\332\337 \"\204\340 !\341U\203\373\342\343!\202\342\344-\")\310(r\345Hq\210\325\346 )\"!) \207" [ivy-last inhibit-message ivy--old-text ivy-text this-command inhibit-quit 19 t nil ivy-resume (quit) #1=#:input input-pending-p ivy--dynamic-collection-cands 0 ivy--sort-maybe eval (ignore nil) get-process " *counsel*" ivy--set-index-dynamic-collection ivy--format "~/" "~" ivy--cd ivy--magic-tilde-directory string-match "/\\'" ivy--magic-file-slash 2 internal-complete-buffer "\\` " string-to-char 32 ivy--buffer-list " " "" 13 ivy--filter throw-on-input ivy--old-re ivy--all-candidates quit-flag ivy--directory ivy-magic-tilde ivy-use-virtual-buffers] 8]) #@12 (fn STR) (defalias 'ivy-display-function-fallback #[257 "\301\212\302y\210\211c*\207" [buffer-undo-list t 1] 2 (#$ . 122072)]) #@66 Insert TEXT into minibuffer with appropriate cleanup. (fn TEXT) (defalias 'ivy--insert-minibuffer #[257 "\304\305H\306\307 !\310 \304\211\205R\311!r\312\313\"\216\314@\315\"\210\316 \210\203+ \210\317 \210;\203D \203? !\210\202D\320!\210\321 \210\322 \205O\323!*\262*\207" [ivy-last deactivate-mark resize-mini-windows ivy--display-function nil 9 marker-position mark-marker active-minibuffer-window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord ivy--minibuffer-cleanup ivy--insert-prompt ivy-display-function-fallback ivy--resize-minibuffer-to-fit region-active-p set-mark] 9 (#$ . 122208)]) #@73 When non-nil and the height < `ivy-height', auto-shrink the minibuffer. (defvar ivy-auto-shrink-minibuffer nil (#$ . 122923)) (byte-code "\300\301\302\303#\210\304\302\305\306\307DD\310\311\312%\207" [make-obsolete-variable ivy-auto-shrink-minibuffer ivy-auto-shrink-minibuffer-alist "<2020-04-28 Tue>" custom-declare-variable funcall function #[0 "\300\207" [nil] 1] "An alist to configure auto-shrinking of the minibuffer.\n\nEach key is a caller symbol. When the value is non-nil, and the\nheight < `ivy-height', auto-shrink the minibuffer." :type (alist :key-type symbol :value-type boolean)] 6) (defalias 'ivy--do-shrink-window #[0 "\212\302 b\210\303\304 *\305\306\307\303\"\310 \245 ZZ!\207" [inhibit-field-text-motion ivy--length minibuffer-prompt-end t line-number-at-pos shrink-window window-body-height nil frame-char-height] 5]) #@70 Resize the minibuffer window size to fit the text in the minibuffer. (defalias 'ivy--resize-minibuffer-to-fit #[0 "\305\306 !\206\n\307>?\205s\310\306 !r\311\312\"\216\313@\314\"\210\315\316!\203\\\316 A\317\320\321\"V\203EZ\322 ]\323\320\320\321\211%\262\266\202\202p \204O\324\n!\205W \fW\205W\325 \266\202\202p\326 \317 V\205n\323\320Z\320\321$\266\202*\262\207" [this-command ivy-auto-shrink-minibuffer ivy-auto-shrink-minibuffer-alist ivy--length ivy-height frame-root-window-p minibuffer-window (ivy-read-action ivy-dispatching-done ivy-dispatching-call) internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord fboundp window-text-pixel-size window-body-height nil t frame-char-height window-resize ivy-alist-setting ivy--do-shrink-window count-screen-lines] 10 (#$ . 123773)]) #@67 Resize ivy window to fit with current frame's size. (fn &rest _) (defalias 'ivy--window-size-changed #[128 "\205\301 \207" [ivy-mode ivy--resize-minibuffer-to-fit] 2 (#$ . 124670)]) #@42 Propertize STR with FACE. (fn STR FACE) (defalias 'ivy--add-face #[514 "G\3001'\301\302$\210\303!\211\205\304\302\305D\306%\2620\266\202<\210\3071:\310\302\311%0\266\202<\266\207" [(error) colir-blend-face-background 0 face-foreground add-face-text-property :foreground nil (error) font-lock-append-text-property face] 10 (#$ . 124862)]) (defvar ivy--flx-cache nil) (eval-after-load 'flx #[0 "\301 \211\207" [ivy--flx-cache flx-make-string-cache] 2]) #@388 Toggle `case-fold-search' for Ivy operations. Instead of modifying `case-fold-search' directly, this command toggles `ivy-case-fold-search', which can take on more values than the former, between nil and either `auto' or t. See `ivy-case-fold-search-default' for the meaning of these values. In any Ivy completion session, the case folding starts with `ivy-case-fold-search-default'. (defalias 'ivy-toggle-case-fold #[0 "?\205\n \206\n\303\304\211\207" [ivy-case-fold-search ivy-case-fold-search-default ivy--old-re auto nil] 2 (#$ . 125347) nil]) #@212 Return all RE matching CANDIDATES. RE is a list of cons cells, with a regexp car and a boolean cdr. When the cdr is t, the car must match. Otherwise, the car must not match. (fn RE CANDIDATES &optional MKPRED) (defalias 'ivy--re-filter #[770 "\300\232\203\207\3011N;\203\302BC\202\211\203J\211@\211@\203+!\202/\303\304\"\305\306A\203<\307\202=\310$\262\266A\266\202\202\2100\207\210\306\207" ["" (error) t make-closure #[257 "\300\302\303\304#)\207" [V0 inhibit-changing-match-data nil t string-match] 8 "\n\n(fn X)"] cl-remove nil :if-not :if] 12 (#$ . 125910)]) #@108 Return all items that match NAME in CANDIDATES. CANDIDATES are assumed to be static. (fn NAME CANDIDATES) (defalias 'ivy--filter #[514 "! \203\n\203\211 \232\203\n\207\306! \307H\310!\211\203(\211\"\202{ \203w;\203w ;\203w\311 \312\313\314#)\266\203\204w \315\232\204w\316\317 \312\313\314#)\266\203\203d \320\321O\202e \"\322>\203w\n\203w\323\n\"\206{\323\" \324H\236A\325>\203\225\326\"\210\327\"\202\240\327\"\326\n\"\210\n)\207" [ivy--regex-function ivy--old-re ivy--old-cands ivy-last case-fold-search inhibit-changing-match-data ivy-re-to-str 18 ivy--case-fold-p "\\\\" nil t string-match "" cl-search "\\\\)\\'" 0 -2 (0 2) ivy--re-filter 22 (ivy-recompute-index-swiper ivy-recompute-index-swiper-async ivy-recompute-index-swiper-async-backward ivy-recompute-index-swiper-backward) ivy--recompute-index ivy--sort ivy-index-functions-alist] 13 (#$ . 126518)]) #@46 Update `ivy--all-candidates' with X. (fn X) (defalias 'ivy--set-candidates #[257 "\304\211\2035\211@\211\305\232\203!\204\262\202.\306\"\262\202.\304\306\307\nA@\"\"\262A\266\202\202\210A\203A\310!\202B\211\211\207" [ivy--extra-candidates ivy--old-re ivy-text ivy--all-candidates nil (original-source) append ivy--filter delete-dups] 8 (#$ . 127445)]) #@56 Sort CANDS according to their length. (fn NAME CANDS) (defalias 'ivy--shorter-matches-first #[514 "\233\203\207\301\302!\303\304\305$\207" [ivy-sort-max-size cl-sort copy-sequence < :key length] 7 (#$ . 127829)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-sort-matches-functions-alist funcall function #[0 "\300\207" [((t) (ivy-completion-in-region . ivy--shorter-matches-first) (ivy-switch-buffer . ivy-sort-function-buffer))] 1] "An alist of functions for sorting matching candidates.\n\nUnlike `ivy-sort-functions-alist', which is used to sort the\nwhole collection only once, this alist of functions are used to\nsort only matching candidates after each change in input.\n\nThe alist KEY is either a collection function or t to match\npreviously unmatched collection functions.\n\nThe alist VAL is a sorting function with the signature of\n`ivy--prefix-sort'." :type (alist :key-type (choice (const :tag "Fall-through" t) (symbol :tag "Collection")) :value-type (choice (const :tag "Don't sort" nil) (const :tag "Put prefix matches ahead" ivy--prefix-sort) (function :tag "Custom sort function")))] 6) #@79 Re-sort CANDIDATES according to file modification date. (fn NAME CANDIDATES) (defalias 'ivy--sort-files-by-date #[514 "\302\303!\304\")\207" [ivy--directory default-directory sort copy-sequence file-newer-than-file-p] 5 (#$ . 128986)]) (defvar ivy--flx-featurep (require 'flx nil 'noerror)) #@93 Re-sort candidates by NAME. All CANDIDATES are assumed to match NAME. (fn NAME CANDIDATES) (defalias 'ivy--sort #[514 "\303\304!\211\262\203\211\"\207 \203\n\305=\203\306\"\207\207" [ivy-sort-matches-functions-alist ivy--flx-featurep ivy--regex-function nil ivy-alist-setting ivy--regex-fuzzy ivy--flx-sort] 6 (#$ . 129287)]) #@143 Re-sort candidates by NAME. All CANDIDATES are assumed to match NAME. Prefix matches to NAME are put ahead of the list. (fn NAME CANDIDATES) (defalias 'ivy--prefix-sort #[514 "\302\230\204\303H\304U\203\207\305!P\306\211\211\203A\211@\306\307\310#)\266\203\2035\211B\262\202:\211B\262A\266\202\202\210\237\237\244\207" [ivy--regex-function inhibit-changing-match-data "" 0 94 "\\`" nil t string-match] 14 (#$ . 129634)]) #@34 Store the virtual buffers alist. (defvar ivy--virtual-buffers nil (#$ . 130089)) #@150 Transform RE to a string. Functions like `ivy--regex-ignore-order' return a cons list. This function extracts a string from the cons list. (fn RE) (defalias 'ivy-re-to-str #[257 "\211:\203 \211@@\207\207" [] 2 (#$ . 130177)]) #@197 Re-sort candidates by NAME. CANDIDATES is a list of buffer names each containing NAME. Sort open buffers before virtual buffers, and prefix matches before substring matches. (fn NAME CANDIDATES) (defalias 'ivy-sort-function-buffer #[514 "\303\230\204\304H\305U\203\207\306!!\307P\310P\311\211\211\211\211\203\235\211@\312 \"\203W\311\313\314#)\266\203\204O\311\313\314#)\266\203\203W\211B\262\202\226\312 \"\203f\211B\262\202\226\311\313\314#)\266\203\204\210\311\313\314#)\266\203\203\221\211B\262\202\226\211B\262A\266\202\202 \210\237\237\244\237\244\237\244\207" [ivy--regex-function ivy--virtual-buffers inhibit-changing-match-data "" 0 94 ivy-re-to-str "\\`\\*" "\\`" nil assoc t string-match] 18 (#$ . 130413)]) #@130 Used to conditionally turn off flx sorting. When the amount of matching candidates exceeds this limit, then no sorting is done. (defvar ivy-flx-limit 200 (#$ . 131207)) #@50 When non-nil, `ivy--recompute-index' is a no-op. (defvar ivy--recompute-index-inhibit nil (#$ . 131383)) #@109 Recompute index of selected candidate matching RE-STR. CANDS are the current candidates. (fn RE-STR CANDS) (defalias 'ivy--recompute-index #[514 "\306H\307 !\206\n\310\311!\312H\313H\314\230 \315>\206 \f?\205\373\211\204/\316\230\2037\317\"\202\366G\320V\203I\310=\203I\321\202\366\322\316 \323\"\203^\211G\324O\266\202\202`\262\325\326$\206\366\327 \203z\322\330P\325\326$\206\366\331=\203\222\211\204\222\322\325\332$\206\366\321\202\366\211\204\354\333=\204\354 \203\257\"\334=\203\257#\233\203\354\250\203\273$U\204\354\232\204\354\335!\203\335;\203\335\324\336%\337#)\266\203\204\354&\203\354\322\325\340$\206\366\"\206\366\321\341!\262)\207" [ivy-last ivy-index-functions-alist case-fold-search this-command ivy--recompute-index-inhibit ivy--flx-featurep 22 ivy-alist-setting ivy-recompute-index-zero ivy--case-fold-p 7 23 "" (ivy-resume ivy-partial-or-done) "^" ivy--preselect-index 10000 0 cl-position string-prefix-p nil :test ivy--case-fold-string= ivy--completing-fname-p "/" ivy-switch-buffer string= swiper ivy--regex-fuzzy ivy--regex-p t string-match equal ivy-set-index ivy--regex-function ivy-flx-limit ivy--index inhibit-changing-match-data ivy--old-cands] 15 (#$ . 131495)]) #@113 Recompute index of selected candidate when using `swiper'. CANDS are the current candidates. (fn RE-STR CANDS) (defalias 'ivy-recompute-index-swiper #[514 "\3031m \233\304\2038 \2038\n\305\232\2048\203,\211\204,\306\211A\262\242\"\262\202\211\206iGS\266\202\202k \203B\266\202\202k\307 \310\211\211\203e\211@\311\310\312#=\203Z\262T\262A\266\202\202G\210\266\203\266\2020\207\210\310\207" [ivy--index ivy--old-cands ivy--old-re (error) nil "^" cl-position line-number-at-pos 0 get-text-property swiper-line-number] 14 (#$ . 132788)]) #@122 Recompute index of selected candidate when using `swiper-backward'. CANDS are the current candidates. (fn RE-STR CANDS) (defalias 'ivy-recompute-index-swiper-backward #[514 "\300\"\211\301U\204\302\303\3048#\305 X\203\207\211S\207" [ivy-recompute-index-swiper -1 get-text-property 0 swiper-line-number line-number-at-pos] 8 (#$ . 133363)]) #@128 Recompute index of selected candidate when using `swiper' asynchronously. CANDS are the current candidates. (fn RE-STR CANDS) (defalias 'ivy-recompute-index-swiper-async #[514 "\204(\304\305 !!r\306\307\"\216\310@\311\"\210\312 *\262\313\306\314\"\"\206'GS\207\n\233\315\203Z\203Z \316\232\204Z\203R\211\204R\317\211A\262\242\320\321$\262\202:\211\206[\266\322\207\n\207" [ivy--old-cands ivy-last ivy--index ivy--old-re internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord line-number-at-pos cl-position-if #[257 "\301!\300Y\207" [V0 string-to-number] 3 "\n\n(fn X)"] nil "^" cl-position :test equal 0] 9 (#$ . 133719)]) #@137 Recompute index of selected candidate when using `swiper-backward' asynchronously. CANDS are the current candidates. (fn RE-STR CANDS) (defalias 'ivy-recompute-index-swiper-async-backward #[514 "\211G\301U\203 \301\207\302\"\3038!\304\305!!r\306\307\"\216\310@\311\"\210\312 *\262X\203-\207\211S\207" [ivy-last 0 ivy-recompute-index-swiper-async string-to-number internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord line-number-at-pos] 8 (#$ . 134476)]) #@126 Recompute index of selected candidate. This function serves as a fallback when nothing else is available. (fn RE-STR CANDS) (defalias 'ivy-recompute-index-zero #[514 "\300\207" [0] 3 (#$ . 135050)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-minibuffer-faces funcall function #[0 "\300\207" [(ivy-minibuffer-match-face-1 ivy-minibuffer-match-face-2 ivy-minibuffer-match-face-3 ivy-minibuffer-match-face-4)] 1] "List of `ivy' faces for minibuffer group matches." :type (repeat :tag "Faces" (choice (const ivy-minibuffer-match-face-1) (const ivy-minibuffer-match-face-2) (const ivy-minibuffer-match-face-3) (const ivy-minibuffer-match-face-4) (face :tag "Other face")))] 6) #@111 Return Nth face from `ivy-minibuffer-faces'. N wraps around, but skips the first element of the list. (fn N) (defalias 'ivy--minibuffer-face #[257 "A\301\302\\G\"8\207" [ivy-minibuffer-faces mod 2] 5 (#$ . 135769)]) #@46 X is (cons (flx-score STR ...) STR). (fn X) (defalias 'ivy--flx-propertize #[257 "\300A!\301\302@A\211\2031\211@\211T=\204T\262\211\262\303\211T\304!\305 %\210A\266\202\202 \210\207" [copy-sequence 0 -2 add-face-text-property ivy--minibuffer-face nil] 12 (#$ . 135996)]) #@84 Sort according to closeness to string NAME the string list CANDS. (fn NAME CANDS) (defalias 'ivy--flx-sort #[514 "\3021\225\303!\304U\305\205\306\307\310O!\311\312\203\"\310\313O\202$\314#Q\2032\307\313O\2023\313\211\211\203X\211@\313\315\316#)\266\203\203Q\211B\262A\266\202\2026\210\317\320\321\322$\262G ^\323\211W\203\313\211A\262\242B\262\210\211T\262\202f\266\324\325\326\324\327\330\"\"\331\"\"\244\266\2050\207\210\207" [inhibit-changing-match-data ivy-flx-limit (error) string-to-char 94 "\\`" regexp-quote 1 2 mapconcat #[257 "\300!\262\301\302\303!R\207" [char-to-string "[^" "]*" regexp-quote] 6 "\n\n(fn X)"] nil "" t string-match cl-sort < :key length 0 mapcar car sort make-closure #[257 "\211\302\300 #@B\207" [V0 ivy--flx-cache flx-score] 6 "\n\n(fn CAND)"] #[514 "AAU\204AAV\207@G@GW\207" [] 4 "\n\n(fn C1 C2)"]] 16 (#$ . 136290)]) #@40 Truncate STR to WIDTH. (fn STR WIDTH) (defalias 'ivy--truncate-string #[514 "\300\301\211\302%\207" [truncate-string-to-width nil t] 8 (#$ . 137208)]) #@283 Transform candidates into a string for minibuffer. SELECTED-FN is called for the selected candidate, OTHER-FN for the others. Both functions take one string argument each. CANDS is a list of candidates and SEPARATOR is used to join them. (fn SELECTED-FN OTHER-FN CANDS SEPARATOR) (defalias 'ivy--format-function-generic #[1028 "\300C\301\302\303$#\207" [-1 mapconcat make-closure #[257 "\302\211\242T\240 =\211\203\300!\207\301!\207" [V0 V1 V2 ivy--window-index] 4 "\n\n(fn STR)"]] 11 (#$ . 137369)]) #@59 Transform CANDS into a string for minibuffer. (fn CANDS) (defalias 'ivy-format-function-default #[257 "\300\301\302\303$\207" [ivy--format-function-generic #[257 "\300\301\"\207" [ivy--add-face ivy-current-match] 4 "\n\n(fn STR)"] identity "\n"] 6 (#$ . 137889)]) #@59 Transform CANDS into a string for minibuffer. (fn CANDS) (defalias 'ivy-format-function-arrow #[257 "\300\301\302\303$\207" [ivy--format-function-generic #[257 "\300\301\302\"P\207" ["> " ivy--add-face ivy-current-match] 5 "\n\n(fn STR)"] #[257 "\300P\207" [" "] 3 "\n\n(fn STR)"] "\n"] 6 (#$ . 138162)]) #@206 Transform CANDS into a string for minibuffer. Note that since Emacs 27, `ivy-current-match' needs to have :extend t attribute. It has it by default, but the current theme also needs to set it. (fn CANDS) (defalias 'ivy-format-function-line #[257 "\300\301\302\303$\207" [ivy--format-function-generic #[257 "\300\301P\302\"\207" [ivy--add-face "\n" ivy-current-match] 4 "\n\n(fn STR)"] #[257 "\211\300P\207" ["\n"] 3 "\n\n(fn STR)"] ""] 6 (#$ . 138479)]) #@57 Highlight STR, using the ignore-order method. (fn STR) (defalias 'ivy--highlight-ignore-order #[257 ":\2030\301\211\203.\211@\302@\"\203#\303\304\224\304\225\305!\306%\210T\262A\266\202\202\266\207" [ivy--old-re 1 string-match add-face-text-property 0 ivy--minibuffer-face nil] 10 (#$ . 138942)]) #@50 Highlight STR, using the fuzzy method. (fn STR) (defalias 'ivy--highlight-fuzzy #[257 "\203+\304 !\305=\203+\306\n\307\"\203\211G\310O\266\202\202!\262\311\312 #B!\207\313!\207" [ivy--flx-featurep ivy-re-builders-alist ivy-text ivy--flx-cache ivy-alist-setting ivy--regex-fuzzy "^" string-prefix-p nil ivy--flx-propertize flx-score ivy--highlight-default] 7 (#$ . 139263)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-use-group-face-if-no-groups funcall function #[0 "\300\207" [t] 1] "If t, and the expression has no subgroups, highlight whole match as a group.\n\nIt will then use the second face (first of the \"group\" faces)\nof `ivy-minibuffer-faces'. Otherwise, always use the first face\nin this case." :type boolean] 6) #@52 Highlight STR, using the default method. (fn STR) (defalias 'ivy--highlight-default #[257 "\204 <\203\305\306\307\310\"\"\202C\311\211\203\257\211@\3121\247\313#\205\242\314\225\314\224Z\314V\205\242\314\225\262\314\211\311\nX\203\235\224\225\203\224\211\203\224\203YU\204c\314U\204cT\262 \203s\n\314U\203s\fA@\202\201\314U\203~\f@\202\201\315!\316\311%\266\314U\204\224\211\262\266T\262\202=\266\202#0\210\202\250\210A\266\202\202\266\207" [ivy--old-re ivy-regex ivy--subexps ivy-use-group-face-if-no-groups ivy-minibuffer-faces mapcar car cl-remove-if-not cdr nil (error) string-match 0 ivy--minibuffer-face add-face-text-property] 17 (#$ . 140052)]) #@56 Format line STR for use in minibuffer. (fn STR ANNOT) (defalias 'ivy--format-minibuffer-line #[514 "\304\305!!\306=\2038 \307H\n>\2032\310\311\"\203\312\225\202 \312\312O\313O !P\266\203\2029 !\2029\211\211G\314\312\315$\210\203W!P\262\316G\317\320%\210\207" [ivy-display-style ivy-last ivy-highlight-grep-commands ivy--highlight-function ivy-cleanup-string copy-sequence fancy 22 string-match "\\`[^:]+:\\(?:[^:]+:\\)?" 0 nil add-text-properties (mouse-face ivy-minibuffer-match-highlight help-echo (format (if tooltip-mode "mouse-1: %s\nmouse-3: %s" "mouse-1: %s mouse-3: %s") ivy-mouse-1-tooltip ivy-mouse-3-tooltip)) add-face-text-property ivy-completions-annotations t] 11 (#$ . 140776)]) #@55 Transform candidate STR when reading files. (fn STR) (defalias 'ivy-read-file-transformer #[257 "\300!\203\f\301\302\303#\207\207" [ivy--dirname-p propertize face ivy-subdir] 5 (#$ . 141509)]) #@24 (fn IDX LEN WND-LEN) (defalias 'ivy--minibuffer-index-bounds #[771 "\211\300\245\301ZSZ^]\211S\\^ZE\207" [2 0] 10 (#$ . 141712)]) #@158 Return a string for CANDS suitable for display in the minibuffer. CANDS is a list of candidates that :display-transformer can turn into strings. (fn CANDS) (defalias 'ivy--format #[257 "\211G Y\203\306S\307]!\210\211\204\n\211\310\311I\207 8\n\211\310;\203+\312!\202,I\266\313  #\314@A@#\315\f!\316\3178\n\320H\211\262\203n\321\322\n!!r\323\324\"\216\325@\326\"\210r\n\327Hq\210\330\"\262+\210\331!)\207" [ivy--length ivy--index ivy-last ivy-height ivy-text case-fold-search ivy-set-index 0 23 "" copy-sequence ivy--minibuffer-index-bounds cl-subseq ivy--case-fold-p nil 2 20 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 mapcar ivy--wnd-cands-to-str ivy--window-index] 8 (#$ . 141862)]) #@18 (fn WND-CANDS) (defalias 'ivy--wnd-cands-to-str #[257 "\305H?\205\f\306\307 \n#\310\311\"\206\312 \313\"\314\315\f!\3161+\317\320\321\"\"0\202-\210!P\322\323G\324\325%\210\207" [ivy-last minibuffer-completion-table minibuffer-completion-predicate completion-extra-properties ivy-format-functions-alist 19 completion-metadata "" completion-metadata-get annotation-function plist-get :annotation-function "\n" ivy-alist-setting (error) mapcar make-closure #[257 "\301\300\"\207" [V0 ivy--format-minibuffer-line] 4 "\n\n(fn CAND)"] put-text-property 0 read-only nil] 10 (#$ . 142699)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-virtual-abbreviate funcall function #[0 "\300\207" [name] 1] "The mode of abbreviation for virtual buffer names." :type (choice (const :tag "Only name" name) (const :tag "Abbreviated path" abbreviate) (const :tag "Full path" full))] 6) #@49 Adapted from `ido-add-virtual-buffers-to-list'. (defalias 'ivy--virtual-buffers #[0 "\306\307!\210\204\f\300\310!\210\311 \210\312\313\314\315\316\317 \"\"\"\n\320\267\202' \2023\211\2023\n\2032\321 \"\2023\315\315\211\203\230\211@\211;\203D\211\202F\211A\f\322\267\202X\323!\202[\324!\202[\325!\211\326\232\203r:\203k@\202p\323\327!!\262\211\326\232\204\217\330!\204\217\331\"\204\217\332!BB\262\266A\266\202\2025\210\211\205\276\211\211\203\266\211@\333\334@G\335\336@%\210A\266\202\202\236\210\211\237\316\337 \"\207" [recentf-mode bookmark-alist ivy-use-virtual-buffers recentf-list ivy-virtual-abbreviate ivy--virtual-buffers require bookmark 1 bookmark-maybe-load-default-file delete " - no file -" delq nil mapcar bookmark-get-filename #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (recentf 31 bookmarks 35)) append #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (name 76 abbreviate 82)) file-name-nondirectory abbreviate-file-name expand-file-name "" directory-file-name get-file-buffer assoc copy-sequence put-text-property 0 face ivy-virtual car] 11 (#$ . 143622)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-ignore-buffers funcall function #[0 "\300\207" [("\\` " "\\`\\*tramp/")] 1] "List of regexps or functions matching buffer names to ignore." :type (repeat (choice regexp function))] 6) #@105 Store face customizations for `ivy-switch-buffer'. Each KEY is `major-mode', each VALUE is a face name. (defvar ivy-switch-buffer-faces-alist '((dired-mode . ivy-subdir) (org-mode . ivy-org)) (#$ . 145096)) #@245 Return the buffers that match STR. If VIRTUAL is non-nil, add virtual buffers. If optional argument PREDICATE is non-nil, use it to test each possible match. See `all-completions' for further information. (fn STR &optional VIRTUAL PREDICATE) (defalias 'ivy--buffer-list #[769 "\300\301\302#\205\f\303 \244!\207" [delete-dups all-completions internal-complete-buffer ivy--virtual-buffers] 8 (#$ . 145310)]) #@631 Store window configurations selectable by `ivy-switch-buffer'. The default value is given as an example. Each element is a list of (NAME VIEW). NAME is a string, it's recommended to end it with a distinctive snippet e.g. "{}" so that it's easy to distinguish the window configurations. VIEW is either a TREE or a window-configuration (see `ivy--get-view-config'). TREE is a nested list with the following valid cars: - vert: split the window vertically - horz: split the window horizontally - file: open the specified file - buffer: open the specified buffer TREE can be nested multiple times to have multiple window splits. (defvar ivy-views nil (#$ . 145729)) #@35 Return default name for new view. (defalias 'ivy-default-view-name #[0 "\301\302\303\304\305\306\307 \"\310\"\311#P\312\313!\314Q\315\316\317\320\"\"\211\262\2030\321\322\323\324\325@\"!T#\207\326\"\203;\327P\207\207" [ivy-views "{} " mapconcat identity sort mapcar #[257 "\300!\301!\211\203\302!\207\303!\207" [window-buffer buffer-file-name file-name-nondirectory buffer-name] 5 "\n\n(fn W)"] window-list string-lessp " " "\\`" regexp-quote " \\([0-9]+\\)" nil cl-find-if make-closure #[257 "\301\300@\"\207" [V0 string-match] 4 "\n\n(fn X)"] format "%s %d" string-to-number match-string 1 assoc " 1"] 10 (#$ . 146402)]) #@53 Get `current-window-configuration' for `ivy-views'. (defalias 'ivy--get-view-config #[0 "\304 \211\2038\211@\305\306r\307!q\210\203\310`E\202. \311=\203)\310\n`E\202.\312\313 `E)#\210A\266\202\202\210\314 \306\315BC\"\316 )\207" [buffer-file-name major-mode default-directory window-persistent-parameters window-list set-window-parameter ivy-view-data window-buffer file dired-mode buffer buffer-name append t current-window-configuration] 8 (#$ . 147051)]) #@313 Push the current window tree on `ivy-views'. When ARG is non-nil, replace a selected item on `ivy-views'. Currently, the split configuration (i.e. horizontal or vertical) and point positions are saved, but the split positions aren't. Use `ivy-pop-view' to delete any item from `ivy-views'. (fn &optional ARG) (defalias 'ivy-push-view #[256 "\301 \203 \302\303\"\202\302\304\305\306\307 $\211\2050\310\"\211\203'\211C\241\202.DB\211\262\207" [ivy-views ivy--get-view-config ivy-read "Update view: " "Name view: " nil :initial-input ivy-default-view-name assoc] 7 (#$ . 147530) "P"]) #@42 Delete VIEW from `ivy-views'. (fn VIEW) (defalias 'ivy-pop-view-action #[257 "\303\"\303@ \"\304\211\207" [ivy-views ivy--all-candidates ivy--old-cands delete nil] 4 (#$ . 148137)]) #@43 Delete a view to delete from `ivy-views'. (defalias 'ivy-pop-view #[0 "\301\302\303@@\304\305\306\307&\207" [ivy-views ivy-read "Pop view: " :preselect :action ivy-pop-view-action :caller ivy-pop-view] 9 (#$ . 148332) nil]) #@52 Return the name of the views saved in `ivy-views'. (defalias 'ivy-source-views #[0 "\301\302\"\207" [ivy-views mapcar car] 3 (#$ . 148565)]) (ivy-set-sources 'ivy-switch-buffer '((original-source) (ivy-source-views))) #@34 Set VIEW recursively. (fn VIEW) (defalias 'ivy-set-view-recur #[257 "\301!\2032\302!\210\303 \211\2051\211@\304!r\305\306\"\216\307@\310\"\210\311\312\313\"!\210*\210A\266\202\202\f\207\211@\314=\203\217\315 \316 A\211A\262\242\317\304!r\305\320\"\216\307@\310\"\210\311!\210*\210\211A\262\242\211\262\205\216\304!r\305\321\"\216\307@\310\"\210\203~\316 \262\311!\210\203\211\262*\210\202[\207\211@\322=\203\354\315 \323 A\211A\262\242\317\304!r\305\324\"\216\307@\310\"\210\311!\210*\210\211A\262\242\211\262\205\353\304!r\305\325\"\216\307@\310\"\210\203\333\323 \262\311!\210\203\346\262*\210\202\270\207\211@\326=\203:\211A@\327\"\317\330!\211\262\203\331\317\332#\266\202'\203\333A!\266\202'\334!\203%\333!\210\266\211G\335V\2059\3358\247\205f\3358b\207\211@\336=\203Z\331A@!\210\211G\335V\205Y\3358\247\205f\3358b\207\211@\337=\205f\340A@!\207" [ivy--virtual-buffers window-configuration-p set-window-configuration window-list internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord ivy-set-view-recur window-parameter ivy-view-data vert selected-window split-window-vertically nil #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] horz split-window-horizontally #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] file assoc get-buffer switch-to-buffer force-same-window find-file file-exists-p 2 buffer sexp eval] 10 (#$ . 148790)]) #@63 Switch to BUFFER. BUFFER may be a string or nil. (fn BUFFER) (defalias 'ivy--switch-buffer-action #[257 "\211G\304U\203 \305\306\307#\207\310 \"\310\n\"\203$\311!\204$\312A!\207\211\2034\313 \210\314\315A@!)\207\305\306\307#\207" [ivy-text ivy--virtual-buffers ivy-views inhibit-message 0 switch-to-buffer nil force-same-window assoc get-buffer find-file delete-other-windows t ivy-set-view-recur] 7 (#$ . 150469)]) #@79 Switch to BUFFER in other window. BUFFER may be a string or nil. (fn BUFFER) (defalias 'ivy--switch-buffer-other-window-action #[257 "\211G\302U\203 \303!\207\304 \"\211\203\305!\204\306A!\207\303!\207" [ivy-text ivy--virtual-buffers 0 switch-to-buffer-other-window assoc get-buffer find-file-other-window] 4 (#$ . 150905)]) #@29 Rename BUFFER. (fn BUFFER) (defalias 'ivy--rename-buffer-action #[257 "\300\301!rq\210\302!)\207" [read-string "Rename buffer (to new name): " rename-buffer] 4 (#$ . 151247)]) #@49 Find file from BUFFER's directory. (fn BUFFER) (defalias 'ivy--find-file-action #[257 "\302\"\211\203\303A!\202\304\301\305!\206p\"\306\307\310!\203%\310\202&\311!)\207" [ivy--virtual-buffers default-directory assoc file-name-directory buffer-local-value get-buffer call-interactively functionp counsel-find-file find-file] 6 (#$ . 151432)]) #@15 (fn BUFFER) (defalias 'ivy--kill-buffer-or-virtual #[257 "\302!\203\n\303!\207\304\305\"A \"\211\207" [ivy--virtual-buffers recentf-list get-buffer kill-buffer delete assoc] 5 (#$ . 151794)]) (defalias 'ivy--kill-current-candidate #[0 "\211\305 I\266\306\307\310H \"\311\312 )\207" [ivy-last ivy--index ivy--old-re ivy--all-candidates ivy--recompute-index-inhibit 7 nil delete 23 t ivy--exhibit] 4]) (defalias 'ivy--kill-current-candidate-buffer #[0 "\211\306 I\266\307\310\311 \312H#\313\314 )\207" [ivy-last ivy--index ivy--old-re ivy-use-virtual-buffers ivy--all-candidates ivy--recompute-index-inhibit 7 nil ivy--buffer-list "" 3 t ivy--exhibit] 5]) #@27 Kill BUFFER. (fn BUFFER) (defalias 'ivy--kill-buffer-action #[257 "\301!\210\302\303H!\204'\211\303\304\305!!r\306\307\"\216\310@\311\"\210p*\262I\266\312 \207" [ivy-last ivy--kill-buffer-or-virtual buffer-live-p 13 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--kill-current-candidate-buffer] 8 (#$ . 152474)]) (defvar ivy-switch-buffer-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap ivy-define-key " " ivy-switch-buffer-kill] 5)) #@109 When at end-of-line, kill the current buffer in `ivy-switch-buffer'. Otherwise, forward to `ivy-kill-line'. (defalias 'ivy-switch-buffer-kill #[0 "l\204\301 \207\302\303H!\207" [ivy-last ivy-kill-line ivy--kill-buffer-action 23] 3 (#$ . 153054) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [ivy-set-actions ivy-switch-buffer (("f" ivy--find-file-action "find file") ("j" ivy--switch-buffer-other-window-action "other window") ("k" ivy--kill-buffer-action "kill") ("r" ivy--rename-buffer-action "rename")) t (("i" ivy--action-insert "insert") ("w" ivy--action-copy "copy"))] 3) #@10 (fn X) (defalias 'ivy--trim-grep-line-number #[257 "\300\301\"\203 \211\302\225\303O\207\207" [string-match ":[0-9]+:" 0 nil] 4 (#$ . 153651)]) #@10 (fn X) (defalias 'ivy--action-insert #[257 "\211;\203 \300!\202 \211@c\207" [ivy--trim-grep-line-number] 3 (#$ . 153805)]) #@10 (fn X) (defalias 'ivy--action-copy #[257 "\300;\203\f\301!\202@!\207" [kill-new ivy--trim-grep-line-number] 4 (#$ . 153939)]) #@106 Return REGEXP matching CANDIDATES. Skip buffers that match `ivy-ignore-buffers'. (fn REGEXP CANDIDATES) (defalias 'ivy--switch-buffer-matcher #[514 "\304\305\306\307#)\266\203\203\310\311\312\313\"\"!\207\314\"\n\203& \204'\207\315\316\"\2065\n\306=\2055\211\207" [ivy-text inhibit-changing-match-data ivy-use-ignore ivy-ignore-buffers "^:" nil t string-match delete-dups cl-remove-if-not make-closure #[257 "\302!\211\205(\300\303\304\"\305\306\307#)\266\203\205(\310\305\306\307#)\266\203?\207" [V0 inhibit-changing-match-data get-buffer buffer-local-value default-directory nil t string-match "^\\*"] 9 "\n\n(fn S)"] ivy--re-filter cl-remove-if #[257 "\301\302\303\"\"\207" [ivy-ignore-buffers cl-find-if make-closure #[257 "\302!\203\n\211\300!\207\211\300\303\304\305#)\207" [V0 inhibit-changing-match-data functionp nil t string-match] 8 "\n\n(fn F-OR-R)"]] 5 "\n\n(fn BUF)"]] 9 (#$ . 154080)]) #@49 Append to STR the property FACE. (fn STR FACE) (defalias 'ivy-append-face #[514 "\211\203\300!\262\301\302G\303%\210\207" [copy-sequence add-face-text-property 0 t] 8 (#$ . 155025)]) #@147 Return non-nil if BUFFER object is visiting a remote file. If that is the case, value is a string identifying the remote connection. (fn BUFFER) (defalias 'ivy--remote-buffer-p #[257 "\300\301\"\3021 \303!0\207\210\304\207" [buffer-local-value default-directory (error) file-remote-p nil] 4 (#$ . 155225)]) #@59 Transform candidate STR when switching buffers. (fn STR) (defalias 'ivy-switch-buffer-transformer #[257 "\301!\211\204 \207\302!\211\205\303\304\305\306\"#\262\206A\307!\204(\305\310\"\207\311!\2033\305\312\"\207\313\314\"\211\236A\305\"\266\202\207" [ivy-switch-buffer-faces-alist get-buffer ivy--remote-buffer-p format "%s (%s)" ivy-append-face ivy-remote verify-visited-file-modtime ivy-modified-outside-buffer buffer-modified-p ivy-modified-buffer buffer-local-value major-mode] 8 (#$ . 155542)]) #@111 Occur function for `ivy-switch-buffer' using `ibuffer'. CANDS are the candidates to be displayed. (fn CANDS) (defalias 'ivy-switch-buffer-occur #[257 "\211\204\n\301\302\"\262\303\304\305 \306\307\310\"BC#\207" [ivy-text all-completions internal-complete-buffer ibuffer nil buffer-name or cl-mapcan #[257 "\300\301\302#\303=?\205\304\305\306\307!\"BC\207" [get-text-property 0 face ivy-virtual name format "\\_<%s\\_>" regexp-quote] 6 "\n\n(fn CAND)"]] 8 (#$ . 156071)]) #@27 Switch to another buffer. (defalias 'ivy-switch-buffer #[0 "\301\302\303\304\305\306\307p!!\310\311\312\313\314\315&\f\207" [ivy-switch-buffer-map ivy-read "Switch to buffer: " internal-complete-buffer :keymap :preselect buffer-name other-buffer :action ivy--switch-buffer-action :matcher ivy--switch-buffer-matcher :caller ivy-switch-buffer] 13 (#$ . 156558) nil]) (ivy-configure 'ivy-switch-buffer :parent 'internal-complete-buffer :occur 'ivy-switch-buffer-occur) #@62 Switch to one of the window views stored by `ivy-push-view'. (defalias 'ivy-switch-view #[0 "\301\302 )\207" [ivy-initial-inputs-alist ((ivy-switch-buffer . "{}")) ivy-switch-buffer] 1 (#$ . 157032) nil]) #@45 Switch to another buffer in another window. (defalias 'ivy-switch-buffer-other-window #[0 "\301\302\303\304\305\306\307\310p!!\311\312\313\314\315&\f\207" [ivy-switch-buffer-map ivy-read "Switch to buffer in other window: " internal-complete-buffer :matcher ivy--switch-buffer-matcher :preselect buffer-name other-buffer :action ivy--switch-buffer-other-window-action :keymap :caller ivy-switch-buffer-other-window] 13 (#$ . 157244) nil]) (ivy-configure 'ivy-switch-buffer-other-window :parent 'ivy-switch-buffer) #@13 (fn TEXT) (defalias 'ivy--yank-handle-case-fold #[257 "G\301V\203\227\230\203\211\227\207\207" [ivy-text 0] 3 (#$ . 157765)]) #@184 Pull buffer text from current line into search string. The region to extract is determined by the respective values of point before and after applying FN to ARGS. (fn FN &rest ARGS) (defalias 'ivy--yank-by #[385 "\301C\302\303!!r\304\305\"\216\306@\307\"\210`\310 \311 \301\304\312#\216\313\"\210`^]b\262\314\"\240\210\315\"\210)\266*\210\211\242\205Q\316\317\320\321\242!\322\211%c\207" [ivy-last 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 line-beginning-position line-end-position #[0 "\300\242?\205\301b\207" [V0 V1] 1] apply buffer-substring-no-properties ivy--pulse-region replace-regexp-in-string " +" " " ivy--yank-handle-case-fold t] 12 (#$ . 157907)]) #@154 Pull next word from buffer into search string. If optional ARG is non-nil, pull in the next ARG words (previous if ARG is negative). (fn &optional ARG) (defalias 'ivy-yank-word #[256 "\300\301\"\207" [ivy--yank-by forward-word] 4 (#$ . 158717) "p"]) #@158 Pull next symbol from buffer into search string. If optional ARG is non-nil, pull in the next ARG symbols (previous if ARG is negative). (fn &optional ARG) (defalias 'ivy-yank-symbol #[256 "\300\301\206\302\"\207" [ivy--yank-by forward-symbol 1] 4 (#$ . 158976) "p"]) #@164 Pull next character from buffer into search string. If optional ARG is non-nil, pull in the next ARG characters (previous if ARG is negative). (fn &optional ARG) (defalias 'ivy-yank-char #[256 "\300\301\"\207" [ivy--yank-by forward-char] 4 (#$ . 159255) "p"]) #@40 Overlay used to highlight yanked word. (defvar ivy--pulse-overlay nil (#$ . 159523)) #@48 Timer used to dispose of `ivy--pulse-overlay'. (defvar ivy--pulse-timer nil (#$ . 159614)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-pulse-delay funcall function #[0 "\300\207" [0.5] 1] "Number of seconds to display `ivy-yanked-word' highlight.\nWhen nil, disable highlighting." :type (choice (number :tag "Delay in seconds") (const :tag "Disable" nil))] 6) #@124 Temporarily highlight text between START and END. The "pulse" duration is determined by `ivy-pulse-delay'. (fn START END) (defalias 'ivy--pulse-region #[514 "\205R \2038\303 !\304 !W\203\262\262\305 U\203&\202'U\2031\2022#\266\202C\306\"\307 \310\311#\210\n\203K\312\n!\210\313\314\315#\211\207" [ivy-pulse-delay ivy--pulse-overlay ivy--pulse-timer overlay-start overlay-end move-overlay make-overlay overlay-put face ivy-yanked-word cancel-timer run-at-time nil ivy--pulse-cleanup] 9 (#$ . 160019)]) #@60 Cancel `ivy--pulse-timer' and delete `ivy--pulse-overlay'. (defalias 'ivy--pulse-cleanup #[0 "\203\n\302!\210\303 \205\304 !\210\303\211\207" [ivy--pulse-timer ivy--pulse-overlay cancel-timer nil delete-overlay] 2 (#$ . 160558)]) #@112 Store the current candidates into the kill ring. If the region is active, forward to `kill-ring-save' instead. (defalias 'ivy-kill-ring-save #[0 "\301 \203 \302\303!\207\304\305\306\307#!\207" [ivy--old-cands region-active-p call-interactively kill-ring-save kill-new mapconcat identity "\n"] 5 (#$ . 160802) nil]) #@73 Make the current candidate into current input. Don't finish completion. (defalias 'ivy-insert-current #[0 "\302 \210\205\303 \304H!\205\305\306 \304H\307#c\207" [ivy--directory ivy-last delete-minibuffer-contents ivy--dirname-p 23 -1 substring-no-properties 0] 5 (#$ . 161125) nil]) #@65 Insert the full Yank the current directory into the minibuffer. (defalias 'ivy-insert-current-full #[0 "c\207" [ivy--directory] 1 (#$ . 161420) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable ivy-preferred-re-builders funcall function #[0 "\300\207" [((ivy--regex-plus . "ivy") (ivy--regex-ignore-order . "order") (ivy--regex-fuzzy . "fuzzy"))] 1] "Alist of preferred re-builders with display names.\nThis list can be rotated with `ivy-rotate-preferred-builders'." :type (alist :key-type function :value-type string)] 6) #@63 Switch to the next re builder in `ivy-preferred-re-builders'. (defalias 'ivy-rotate-preferred-builders #[0 "\205\303\n\236\211>A@\206@@\262\211\207" [ivy-preferred-re-builders ivy--old-re ivy--regex-function nil] 3 (#$ . 161984) nil]) #@73 Toggle the re builder between `ivy--regex-fuzzy' and `ivy--regex-plus'. (defalias 'ivy-toggle-fuzzy #[0 "\302 \303=\203\f\304\211\207\303\211\207" [ivy--old-re ivy--regex-function nil ivy--regex-fuzzy ivy--regex-plus] 2 (#$ . 162236) nil]) #@51 Label ENTRIES with history indices. (fn ENTRIES) (defalias 'ivy--label-and-delete-dups #[257 "\300\301\302\"\303\304\211\211A\262\242\211\262\203/\305\"\204(\306\307#\210BB\262T\262\202\211\237\207" [make-hash-table :test equal 0 nil gethash puthash t] 9 (#$ . 162486)]) #@27 Store the history symbol. (defvar ivy--reverse-i-search-symbol nil (#$ . 162782)) #@38 Remove the current item from history (defalias 'ivy-reverse-i-search-kill #[0 "l\204\302 \207\303H 9\203 \304 J\"L\266\202&\305 \306 \303H\"\"\266\307 \207" [ivy-last ivy--reverse-i-search-symbol ivy-kill-line 23 delete ring-remove ring-member ivy--kill-current-candidate] 7 (#$ . 162870) nil]) (defvar ivy-reverse-i-search-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap ivy-define-key " " ivy-reverse-i-search-kill] 5)) #@161 Copy contents of HISTORY. A copy is necessary so that we don't clobber any string attributes. Also set `ivy--reverse-i-search-symbol' to HISTORY. (fn HISTORY) (defalias 'ivy-history-contents #[257 "\211\2119\203\301\302J!!\207\303!\203\"\301\304!\305V\205 \306!!\207\307!\203.\301\302!!\207\310\311\"\207" [ivy--reverse-i-search-symbol ivy--label-and-delete-dups copy-sequence ring-p ring-size 0 ring-elements sequencep error "Expected a symbol, ring, or sequence: %S"] 4 (#$ . 163326)]) #@239 Enter a recursive `ivy-read' session using the current history. The selected history element will be inserted into the minibuffer. \ You can also delete an element from history with \[ivy-reverse-i-search-kill]. (defalias 'ivy-reverse-i-search #[0 "\303 \304U\203 \305\306!\207\303 \307V\203\310H\311=\2064\312\313\314\315\316H!\317\n\320\321\322\"\323\311&)\266\202\207" [ivy-last enable-recursive-minibuffers ivy-reverse-i-search-map minibuffer-depth 0 user-error "This command is intended to be called from within `ivy-read'" 1 22 ivy-reverse-i-search t ivy-read "Reverse-i-search: " ivy-history-contents 6 :keymap :action make-closure #[257 "\302\300\211!\210\303 \210\304@!c\210\305 \207" [V0 ivy-last ivy--reset-state delete-minibuffer-contents substring-no-properties ivy--cd-maybe] 4 "\n\n(fn X)"] :caller] 11 (#$ . 163835) nil]) #@55 Restrict candidates to current input and erase input. (defalias 'ivy-restrict-to-matches #[0 "\304 \210\305H\203\211\305\306I\266\211\307 \211I\207\310 \n\"\211\207" [ivy-last ivy--old-cands ivy--all-candidates ivy-text delete-minibuffer-contents 19 nil 2 ivy--filter] 5 (#$ . 164719) nil]) #@131 Buffer-local value of `ivy-last'. Can't re-use `ivy-last' because using e.g. `swiper' in the same buffer would modify `ivy-last'. (defvar ivy-occur-last nil (#$ . 165025)) (make-variable-buffer-local 'ivy-occur-last) #@28 Keymap for Ivy Occur mode. (defvar ivy-occur-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\312\313\314#\210\312\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\312\331\332#\210\312\333\334#\210\301\335\336#\210\207" [make-sparse-keymap ivy-define-key [mouse-1] ivy-occur-click " " ivy-occur-press-and-switch "j" ivy-occur-next-line "k" ivy-occur-previous-line define-key "h" backward-char "l" forward-char "f" ivy-occur-press "g" ivy-occur-revert-buffer "a" ivy-occur-read-action "o" ivy-occur-dispatch "c" ivy-occur-toggle-calling "q" quit-window "R" read-only-mode "" ivy-occur-delete-candidate] 5) (#$ . 165248)) #@23 Toggle `ivy-calling'. (defalias 'ivy-occur-toggle-calling #[0 "?\211\203\302\303 \210\202\304\305 \207" [ivy-calling mode-name "Ivy-Occur [calling]" ivy-occur-press "Ivy-Occur" force-mode-line-update] 2 (#$ . 165984) nil]) (defalias 'ivy--find-occur-buffer #[0 "p\300\301\302\"\303 \"\207" [cl-find-if make-closure #[257 "r\211q\210 \303=\205\300\n\304H\232)\207" [V0 major-mode ivy-occur-last ivy-occur-grep-mode 13] 4 "\n\n(fn B)"] buffer-list] 5]) (defalias 'ivy--select-occur-buffer #[0 "\300 \301\302\303\"\304 \"\211\203\305!\207\306!\207" [ivy--find-occur-buffer cl-find-if make-closure #[257 "\300\301!\232\207" [V0 window-buffer] 4 "\n\n(fn W)"] window-list select-window pop-to-buffer] 5]) #@107 Move the cursor down ARG lines. When `ivy-calling' isn't nil, call `ivy-occur-press'. (fn &optional ARG) (defalias 'ivy-occur-next-line #[256 "\301\302!\203\n\303\202\301\304!\205\305\211\2037\306 W\203&eb\210\211Sy\210\2020y\210l\2030\307y\210\205@\310 \207\311 \210\312!\210\313 \207" [ivy-calling derived-mode-p ivy-occur-grep-mode 5 ivy-occur-mode 2 line-number-at-pos -1 ivy-occur-press ivy--select-occur-buffer ivy-occur-next-line ivy-occur-press-and-switch] 4 (#$ . 166708) "p"]) #@105 Move the cursor up ARG lines. When `ivy-calling' isn't nil, call `ivy-occur-press'. (fn &optional ARG) (defalias 'ivy-occur-previous-line #[256 "\301\302!\203\n\303\202\301\304!\205\305\211\203.[y\210\306 W\203'eb\210\211Sy\210\2057\307 \207\310 \210\311!\210\312 \207" [ivy-calling derived-mode-p ivy-occur-grep-mode 5 ivy-occur-mode 2 line-number-at-pos ivy-occur-press ivy--select-occur-buffer ivy-occur-previous-line ivy-occur-press-and-switch] 4 (#$ . 167217) "p"]) #@71 A `next-error-function' for `ivy-occur-mode'. (fn N &optional RESET) (defalias 'ivy-occur-next-error #[513 "\211\203eb\210\206\f\301\262\302\303W\203\304[!\210\202\"\305!\210)\306\307\211\302#\211\205:\211@\310`\"\210A\266\202\202(\207" [ivy-calling 1 t 0 ivy-occur-previous-line ivy-occur-next-line get-buffer-window-list nil set-window-point] 7 (#$ . 167707) "p"]) (defvar ivy-occur-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [ivy-occur-mode-hook variable-documentation put "Hook run after entering Ivy-Occur mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp ivy-occur-mode-map definition-name ivy-occur-mode] 4) (defvar ivy-occur-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [ivy-occur-mode-abbrev-table ivy-occur-mode-map variable-documentation put purecopy "Keymap for `ivy-occur-mode'." boundp ivy-occur-mode-syntax-table definition-name ivy-occur-mode (lambda (#1=#:def-tmp-var) (defvar ivy-occur-mode-syntax-table #1#)) make-syntax-table "Syntax table for `ivy-occur-mode'." (lambda (#1#) (defvar ivy-occur-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `ivy-occur-mode'." derived-mode-parent] 5) #@169 Major mode for output from \[ivy-occur]. \{ivy-occur-mode-map} This mode runs the hook `ivy-occur-mode-hook', as the final or penultimate step during initialization. (defalias 'ivy-occur-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \306\315!\210\316 )\317\320!\207" [delay-mode-hooks major-mode mode-name ivy-occur-mode-map ivy-occur-mode-syntax-table ivy-occur-mode-abbrev-table make-local-variable t kill-all-local-variables ivy-occur-mode "Ivy-Occur" use-local-map set-syntax-table view-read-only nil run-mode-hooks ivy-occur-mode-hook local-abbrev-table] 2 (#$ . 169271) nil]) #@33 Keymap for Ivy Occur Grep mode. (defvar ivy-occur-grep-mode-map (byte-code "\301!\302\303\304#\210\302\305\304#\210\207" [ivy-occur-mode-map copy-keymap ivy-define-key "" ivy-wgrep-change-to-wgrep-mode "w"] 5) (#$ . 169887)) (defalias 'ivy-occur-delete-candidate #[0 "\301\302 \303 T|)\207" [inhibit-read-only t line-beginning-position line-end-position] 2 nil nil]) (defvar ivy-occur-grep-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [ivy-occur-grep-mode-hook variable-documentation put "Hook run after entering Ivy-Occur mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp ivy-occur-grep-mode-map definition-name ivy-occur-grep-mode] 4) (defvar ivy-occur-grep-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [ivy-occur-grep-mode-abbrev-table ivy-occur-grep-mode-map variable-documentation put purecopy "Keymap for `ivy-occur-grep-mode'." boundp ivy-occur-grep-mode-syntax-table definition-name ivy-occur-grep-mode (lambda (#1=#:def-tmp-var) (defvar ivy-occur-grep-mode-syntax-table #1#)) make-syntax-table "Syntax table for `ivy-occur-grep-mode'." (lambda (#1#) (defvar ivy-occur-grep-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `ivy-occur-grep-mode'." derived-mode-parent grep-mode] 5) #@248 Major mode for output from \[ivy-occur]. \{ivy-occur-grep-mode-map} In addition to any hooks its parent mode `grep-mode' might have run, this mode runs the hook `ivy-occur-grep-mode-hook', as the final or penultimate step during initialization. (defalias 'ivy-occur-grep-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \306\331!\210\332\333\334!\203m\334 \210)\335\336!\207" [delay-mode-hooks major-mode mode-name ivy-occur-grep-mode-map ivy-occur-grep-mode-syntax-table ivy-occur-grep-mode-abbrev-table make-local-variable t grep-mode ivy-occur-grep-mode "Ivy-Occur" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table view-read-only nil fboundp wgrep-setup run-mode-hooks ivy-occur-grep-mode-hook local-abbrev-table] 5 (#$ . 171520) nil]) #@12 (fn STR) (defalias 'ivy--starts-with-dotslash #[257 "\301\302\303\304#)\207" [inhibit-changing-match-data "\\`\\.[/\\]" nil t string-match] 8 (#$ . 172624)]) #@51 Insert CANDS into `ivy-occur' buffer. (fn CANDS) (defalias 'ivy--occur-insert-lines #[257 "\300\301!\210\211\211\205N\211@\302\303\"\203(\304\305\"\304\306\"\307\310\311#\312!P\266\202\202-\312\313!!\262\314\315G\316$\210\317!\203A\320\202B\321\322\261\210A\266\202\202\207" [font-lock-mode -1 string-match "\\`\\(.*:[0-9]+:\\)\\(.*\\)\\'" match-string 1 2 propertize face ivy-grep-info ivy--highlight-fuzzy copy-sequence add-text-properties 0 (mouse-face highlight help-echo "mouse-1: call ivy-action") ivy--starts-with-dotslash "" " " 10] 9 (#$ . 172795)]) #@57 Insert CANDS into the current occur buffer. (fn CANDS) (defalias 'ivy--occur-default #[257 "\211\204\301H\302!\203\303\304\305H#\262\306\307H\"\266\202\310 \210\311\312G\"c\210\313!\210\314 \207" [ivy-last 2 arrayp all-completions "" 3 ivy--filter 14 ivy-occur-mode format "%d candidates:\n" ivy--occur-insert-lines read-only-mode] 7 (#$ . 173384)]) #@304 Stop completion and put the current candidates into a new buffer. The new buffer remembers current action(s). While in the *ivy-occur* buffer, selecting a candidate with RET or a mouse click will call the appropriate action for that candidate. There is no limit on the number of *ivy-occur* buffers. (defalias 'ivy-occur #[0 "\305 \204 \306\307!\207\310H\311 \"\206\312\313\314\315\203$\316\317!P\202%\320\n#!r\211q\210 !\210\211\321\nI\266)\322\323\324\"!\207" [ivy-last ivy--occurs-list ivy-text ivy--old-cands ivy-occur-last window-minibuffer-p user-error "No completion session is active" 22 plist-get ivy--occur-default generate-new-buffer format "*ivy-occur%s \"%s\"*" " " prin1-to-string "" 14 ivy-exit-with-action make-closure #[257 "\303\300!\210\300\304\302!\210\305\211\207" [V0 next-error-last-buffer next-error-function pop-to-buffer make-local-variable ivy-occur-next-error] 3 "\n\n(fn _)"]] 8 (#$ . 173755) nil]) #@330 Refresh the buffer making it up-to date with the collection. Currently only works for `swiper'. In that specific case, the *ivy-occur* buffer becomes nearly useless as the original buffer is updated, since the line numbers no longer match. Calling this function is as if you called `ivy-occur' on the updated original buffer. (defalias 'ivy-occur-revert-buffer #[0 "\304H\305\306 \307 \210\310 \"\206\311\312!\210eb\210\211Sy\210)\266 \211)\207" [ivy-occur-last ivy-last inhibit-read-only ivy--occurs-list 22 t line-number-at-pos erase-buffer plist-get ivy--occur-default nil] 6 (#$ . 174711) nil]) #@42 Forward to `wgrep-change-to-wgrep-mode'. (defalias 'ivy-wgrep-change-to-wgrep-mode #[0 "\300\301\302\303#\203 \304 \207\305\306!\207" [require wgrep nil noerror wgrep-change-to-wgrep-mode error "Package wgrep isn't installed"] 4 (#$ . 175329) nil]) #@57 Select one of the available actions as the current one. (defalias 'ivy-occur-read-action #[0 "\302 )\207" [ivy-occur-last ivy-last ivy-read-action] 1 (#$ . 175585) nil]) #@56 Call one of the available actions on the current item. (defalias 'ivy-occur-dispatch #[0 "\301H\2119\203\f\211\202\302!\303\304\"\216\305 \210\306 )\207" [ivy-occur-last 15 copy-sequence make-closure #[0 " \211\302\300I\207" [V0 ivy-occur-last 15] 4] ivy-occur-read-action ivy-occur-press] 5 (#$ . 175763) nil]) #@87 Execute action for the current candidate. EVENT gives the mouse position. (fn EVENT) (defalias 'ivy-occur-click #[257 "\300!\211@\262\301\300!!r\302!q\210\211b\210\303 )\207" [event-end posn-point window-buffer ivy-occur-press] 5 (#$ . 176087) "e"]) (defvar ivy-occur-timer nil) (defalias 'ivy--occur-press-update-window #[0 "\302H\303\304 \">\203V\305H\306H\307!\205U\310!\203$\311 \232\2037\312 r\313\314\"\216\211\305\315!I\262*\207\316!\232?\205U\317!r\313\320\"\216\321@\322\"\210\323!*\262\207\302H\324>\205h\211\305\311 I\266\311 \207" [ivy-occur-last ivy-highlight-grep-commands 22 append (swiper swiper-isearch) 12 13 buffer-live-p window-live-p selected-window internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] display-buffer window-buffer internal--before-with-selected-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord switch-to-buffer (counsel-describe-function counsel-describe-variable counsel-describe-symbol)] 8]) (defalias 'ivy--occur-press-buffer #[0 "\301H\302!\203\n\207p\207" [ivy-last 13 buffer-live-p] 3]) #@43 Execute action for the current candidate. (defalias 'ivy-occur-press #[0 "\306 \210\212\307 \210\310\311!)\205\227\211\312H\313\224\313\225{\314\315\316#\206\"\315 \317H\320 !\321\322\323 !!r\324\325\"\216\326@\327\"\210r\330 q\210\214~\210:\203W@:\203W\331\"\202[\332O!\210* \333H\334\335\f\">\205\221r\336\337 !q\210\340 \210\341\342\n!\343 \344 \337 $\210\345 !\203\211\346 !\210\347\350\332\340#\211)*\262+\266\204\207" [ivy-occur-last ivy-last ivy-text ivy-exit ivy-highlight-grep-commands ivy-occur-timer ivy--occur-press-update-window beginning-of-line looking-at "\\(?:.[/\\]\\| \\)\\(.*\\)$" 14 1 get-text-property 0 offset 2 ivy--get-action done 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--occur-press-buffer assoc nil 22 append (swiper swiper-isearch) window-buffer selected-window swiper--cleanup swiper--add-overlays ivy--regex line-beginning-position line-end-position timerp cancel-timer run-at-time 1.0] 11 (#$ . 177268) nil]) #@61 Execute action for the current candidate and switch window. (defalias 'ivy-occur-press-and-switch #[0 "\301 \210\302\303!!\207" [ivy-occur-last ivy-occur-press select-window ivy--get-window] 3 (#$ . 178360) nil]) (defalias 'ivy--marked-p #[0 "\302H \235\207" [ivy-last ivy-marked-candidates 23] 2]) #@13 (fn CAND) (defalias 'ivy--unmark #[257 "\211\235 \235\nG\304O\240\240\210\305 \"\211\207" [ivy--all-candidates ivy--old-cands ivy-mark-prefix ivy-marked-candidates nil delete] 6 (#$ . 178667)]) #@13 (fn CAND) (defalias 'ivy--mark #[257 "P \235\n\235\240\240\210\304 C\"\211\207" [ivy-mark-prefix ivy--all-candidates ivy--old-cands ivy-marked-candidates append] 5 (#$ . 178874)]) #@301 Mark the selected candidate and move to the next one. In `ivy-call', :action will be called in turn for all marked candidates. However, if :multi-action was supplied to `ivy-read', then it will be called with `ivy-marked-candidates'. This way, it can make decisions based on the whole marked list. (defalias 'ivy-mark #[0 "\301 \204 \302\303H!\210\304 \207" [ivy-last ivy--marked-p ivy--mark 23 ivy-next-line] 3 (#$ . 179070) nil]) #@57 Unmark the selected candidate and move to the next one. (defalias 'ivy-unmark #[0 "\301 \203 \302\303H!\210\304 \207" [ivy-last ivy--marked-p ivy--unmark 23 ivy-next-line] 3 (#$ . 179512) nil]) #@47 Move to the previous candidate and unmark it. (defalias 'ivy-unmark-backward #[0 "\301 \210\302 \210\303 \205\304\305H!\207" [ivy-last ivy-previous-line ivy--exhibit ivy--marked-p ivy--unmark 23] 3 (#$ . 179714) nil]) #@42 Toggle mark for all narrowed candidates. (defalias 'ivy-toggle-marks #[0 "\211\205\211@\211 \235\203\302!\210\202\303!\210A\266\202\202\207" [ivy--old-cands ivy-marked-candidates ivy--unmark ivy--mark] 4 (#$ . 179941) nil]) #@26 The file for `ivy-help'. (defconst ivy-help-file (byte-code "\203\n\302!\202 \303\304!\203\305\304!\202!\303\306!\205!\305\306!)\207" [load-file-name default-directory file-name-directory file-exists-p "ivy-help.org" expand-file-name "doc/ivy-help.org"] 2) (#$ . 180183)) #@17 Help for `ivy'. (defalias 'ivy-help #[0 "\306\307!C\310\211\242\204N\211\311\307!\240\210\312\313\"\314K\312\315\"\216\314M\210\316 \210)\266r\211\242q\210eb\210\317c\210eb\210\320 !\210\321 \210\322\302!\210\310\323 \210eb\210\310\324\325!\210*\f\326=\203\\\327\242!\210\202t\330\331 !!r\312\332\"\216\333@\334\"\210\335\242!\210*\210\323 \210eb)\207" [inhibit-read-only ivy-help-file org-hide-emphasis-markers inhibit-message this-command ivy-last get-buffer "*Ivy Help*" t get-buffer-create make-closure #[0 "\300\242\207" [V0] 1] help-buffer #[0 "\301\300M\207" [V0 help-buffer] 2] describe-mode "* describe-mode\n" insert-file-contents org-mode make-local-variable view-mode org-cycle (64) ivy-help switch-to-buffer internal--before-with-selected-window ivy--get-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord pop-to-buffer] 6 (#$ . 180471) nil]) #@39 Forward to `ffap-url-p'. (fn STRING) (defalias 'ivy-ffap-url-p #[257 "\300\301!\210\302!\207" [require ffap ffap-url-p] 3 (#$ . 181391)]) #@37 Calls `ffap-url-fetcher'. (fn URL) (defalias 'ivy-ffap-url-fetcher #[257 "\301\302!\210!\207" [ffap-url-fetcher require ffap] 3 (#$ . 181537)]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\304\311#\210\300\312\306\313#\210\314\315!\207" [ivy-configure read-file-name-internal :sort-fn ivy-sort-file-function-default :display-transformer-fn ivy-read-file-transformer :alt-done-fn ivy--directory-done internal-complete-buffer ivy-switch-buffer-transformer Info-read-node-name-1 ivy--info-alt-done provide ivy] 8)