;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\305\306\307\310\311\312\313\314&\207" [require ivy swiper compile dired custom-declare-group counsel nil "Completion functions using Ivy." :group matching :prefix "counsel-"] 8) #@311 Convert REGEX from Elisp format to PCRE format, on best-effort basis. REGEX may be of any format returned by an Ivy regex function, namely a string or a list. The return value is always a string. Note that incorrect results may be returned for sufficiently complex regexes. (fn REGEX &optional LOOK-AROUND) (defalias 'counsel--elisp-to-pcre #[513 ":\203%\211\203A\204@A\204\300\301\302\303#P\207\301\304\305\306\"\307#\207\310\311\312\313\211%\207" ["^" mapconcat #[257 "\300@!\301\302A\203\303\202\304#\207" [counsel--elisp-to-pcre format "(?%c.*%s)" 61 33] 6 "\n\n(fn PAIR)"] "" #[257 "\301@!\302\303\304\305#)\266\203\203\306\307\"\207\207" [inhibit-changing-match-data counsel--elisp-to-pcre "|" nil t string-match format "(?:%s)"] 9 "\n\n(fn PAIR)"] cl-remove-if-not cdr ".*" replace-regexp-in-string "\\\\[(){}|`']\\|[()]" #[257 "\300\301\"A\206\f\302\303\"\207" [assoc (("\\(" . "(") ("\\)" . ")") ("(" . "\\(") (")" . "\\)") ("\\{" . "{") ("\\}" . "}") ("\\|" . "|") ("\\`" . "^") ("\\'" . "$")) error "Unexpected error in `counsel--elisp-to-pcre' (got match %S)"] 4 "\n\n(fn S)"] t] 8 (#$ . 332)]) #@58 Return the name of directory DIR with a slash. (fn DIR) (defalias 'counsel-directory-name #[257 "\300\301\302!!!\207" [file-name-as-directory file-name-nondirectory directory-file-name] 5 (#$ . 1480)]) #@81 Make PREFIX the display prefix of STR through text properties. (fn PREFIX STR) (defalias 'counsel-string-compose #[514 "\300!\301\302\303\304\302\303OP%\210\207" [copy-sequence put-text-property 0 1 display] 11 (#$ . 1690)]) (byte-code "\301\302\303Y\203\f\304\202 \305\306#\207" [emacs-major-version defalias counsel--executable-find 27 executable-find #[513 "\300!\207" [executable-find] 4 "\n\n(fn COMMAND &optional REMOTE)"] "Compatibility shim for `executable-find'."] 4) #@274 Check system for program used in CMD, printing error if not found. CMD is either a string or a list of strings. To skip the `executable-find' check, start the string with a space. When NOERROR is non-nil, return nil instead of raising an error. (fn CMD &optional NOERROR) (defalias 'counsel-require-program #[513 ";\205 \300\301\"?\2058<\203@\202\302!@\211;\203-\211\303\230\204-\304\305\"\2066?\2056\306\307\"\262\207" [string-prefix-p " " split-string "" counsel--executable-find t user-error "Required program \"%s\" not found in your path"] 6 (#$ . 2184)]) #@51 Return prompt appended with the parent directory. (defalias 'counsel-prompt-function-dir #[0 "\301\302!\210\303H\304\305!\233\306\307\203\310\311\312#\202\"\313\314\315\316H\317\211%!\207" [ivy-last require esh-util 21 3 eshell-split-path format " [%s]: " apply concat "..." ivy-add-prompt-count replace-regexp-in-string "\\(?:: ?\\)?\\'" 1 t] 10 (#$ . 2771)]) (byte-code "\300\301\302\303!\203\f\303\202 \304\305#\207" [defalias counsel--flatten fboundp flatten-tree #[257 "\300:\203+\211A\262\242\211:\203\211AB\262\211@\262\202\f\211\203'\211B\262\210\202\2034B\262\211\237\207" [nil] 5 "\n\n(fn TREE)"] "Compatibility shim for `flatten-tree'."] 4) #@175 Like `format' but FORMATTER can be a list. When FORMATTER is a list, only `%s' is replaced with ARGS. Return a list or string depending on input. (fn FORMATTER &rest ARGS) (defalias 'counsel--format #[385 "\211C<\203\300\301\302\303\"\"!\207\304\305\242#\207" [counsel--flatten mapcar make-closure #[257 "\211\301\232\203\300\242\300\211\242A\240\210\242\207\207" [V0 "%s"] 4 "\n\n(fn IT)"] apply format] 8 (#$ . 3463)]) #@91 Store the time when a new process was started. Or the time of the last minibuffer update. (defvar counsel--async-time nil (#$ . 3901)) #@48 Store the time when a new process was started. (defvar counsel--async-start nil (#$ . 4042)) #@48 Timer used to dispose `counsel--async-command. (defvar counsel--async-timer nil (#$ . 4141)) #@95 Store the time a process takes to gather all its candidates. The time is measured in seconds. (defvar counsel--async-duration nil (#$ . 4240)) #@133 Associate commands with their exit code descriptions. This plist maps commands to a plist mapping their exit codes to descriptions. (defvar counsel--async-exit-code-plist nil (#$ . 4390)) #@57 When the process returned non-0, store the output here. (defvar counsel--async-last-error-string nil (#$ . 4584)) #@68 For CMD, associate NUMBER exit code with STR. (fn CMD NUMBER STR) (defalias 'counsel-set-async-exit-code #[771 "\301\"\302\302##\211\207" [counsel--async-exit-code-plist plist-get plist-put] 11 (#$ . 4704)]) #@54 Store the regexp for splitting shell command output. (defvar counsel-async-split-string-re-alist '((t . "[ \n]")) (#$ . 4929)) #@78 An alist of regexp matching candidates to ignore in `counsel--async-filter'. (defvar counsel-async-ignore-re-alist nil (#$ . 5062)) #@59 Store the last command ran by `counsel--async-command-1'. (defvar counsel--async-last-command nil (#$ . 5200)) #@485 Start and return new counsel process by calling CMD. CMD can be either a shell command as a string, or a list of the program name to be called directly, followed by its arguments. If the default counsel process or one with NAME already exists, kill it and its associated buffer before starting a new one. Give the process the functions SENTINEL and FILTER, which default to `counsel--async-sentinel' and `counsel--async-filter', respectively. (fn CMD &optional SENTINEL FILTER NAME) (defalias 'counsel--async-command-1 #[1025 "\303!\210\211\206 \304\262\305!\203\306!\210\307!<\203)\310\311$\202/\312#\313 \211\314\206<\315\"\210\316\206E\317\"\210\207" [counsel--async-last-command counsel--async-time counsel--async-start counsel-delete-process " *counsel*" get-buffer kill-buffer get-buffer-create apply start-file-process start-file-process-shell-command current-time set-process-sentinel counsel--async-sentinel set-process-filter counsel--async-filter] 11 (#$ . 5318)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-async-command-delay funcall function #[0 "\300\207" [0] 1] "Number of seconds to wait before spawning another async command." :type number] 6) #@259 Like `counsel--async-command-1', with same ARGS, but debounced. Calls to `counsel--async-command-1' are separated by at least `counsel-async-command-delay' seconds, so as to avoid issues caused by spawning too many subprocesses too quickly. (fn &rest ARGS) (defalias 'counsel--async-command #[128 "\302U\203 \303\304\"\207 \203\305 !\210\303\306\307\304%\211\207" [counsel-async-command-delay counsel--async-timer 0 apply counsel--async-command-1 cancel-timer run-with-timer nil] 7 (#$ . 6561)]) #@22 (fn &optional STR) (defalias 'counsel--split-string #[256 "\301\206\302 \303!\304#\207" [counsel-async-split-string-re-alist split-string buffer-string ivy-alist-setting t] 5 (#$ . 7072)]) #@16 (fn PROCESS) (defalias 'counsel--sync-sentinel-on-exit #[257 "\306!\307U\203\203\310H\311\312r\313!q\210\314 )!!\210 \203#\315\316 !!\317 !\f\203D\320 !\321=\203:\322\307!\266\202t\323\"\266\202t8\230\204s\320 !\211\203_\211\"\266\202t\324G\307V\203k\202n\325H\"\266\210\203\326 \207\327\330!\207r\313!q\210\331 ) \306!\332!\333H\"\332\"\206\243\334\335\"C\266\202\211\326 \207" [ivy-last counsel--async-start counsel--async-duration ivy-regex ivy--old-cands ivy-index-functions-alist process-exit-status 0 23 ivy--set-candidates ivy--sort-maybe process-buffer counsel--split-string time-to-seconds time-since ivy-re-to-str ivy-alist-setting ivy-recompute-index-zero ivy-set-index ivy--recompute-index ivy--preselect-index 7 ivy--exhibit ivy--insert-minibuffer "" buffer-string plist-get 22 format "error code %d" ivy--all-candidates ivy--index counsel--async-last-error-string counsel--async-exit-code-plist] 8 (#$ . 7273)]) #@74 Sentinel function for an asynchronous counsel PROCESS. (fn PROCESS MSG) (defalias 'counsel--async-sentinel #[514 "\300!\301=\205 \302!\207" [process-status exit counsel--sync-sentinel-on-exit] 4 (#$ . 8261)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-async-filter-update-time funcall function #[0 "\300\207" [500000] 1] "The amount of microseconds to wait until updating `counsel--async-filter'." :type integer] 6) #@190 Receive from PROCESS the output STR. Update the minibuffer with the amount of lines collected every `counsel-async-filter-update-time' microseconds since the last update. (fn PROCESS STR) (defalias 'counsel--async-filter #[514 "r\306!q\210\211c\210)\307\310\211E\311 !\"\205U\312r\306!q\210\313ed\"\262\314\315 \316\n!\211;\203:\317\320\321\"\"\266\202\202=\266\202!\210)\322\323 \324H#\325\326 !!\210)\327 \211\262\207" [counsel-async-filter-update-time counsel--async-time counsel-async-ignore-re-alist ivy-last ivy--prompt ivy--all-candidates process-buffer time-less-p 0 time-since nil count-lines ivy--set-candidates counsel--split-string ivy-alist-setting cl-remove-if make-closure #[257 "\300\302\303\304#)\207" [V0 inhibit-changing-match-data nil t string-match] 8 "\n\n(fn LINE)"] format "%d++ %s" 1 ivy--insert-minibuffer ivy--format current-time] 10 (#$ . 8731)]) #@72 Delete current counsel process or that with NAME. (fn &optional NAME) (defalias 'counsel-delete-process #[256 "\300\206\301!\211\205\302!\207" [get-process " *counsel*" delete-process] 4 (#$ . 9632)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\302\303#\210\304\306\302\305#\210\300\307\302\303#\210\304\307\302\305#\210\300\310\302\303#\210\304\310\302\305#\207" [defalias counsel-el complete-symbol nil make-obsolete "<2020-05-20 Wed>" counsel-cl counsel-jedi counsel-clj] 4) #@38 Complete using `company-candidates'. (defalias 'counsel-company #[0 "\305\306!\210\204 \307 \210\310 \205 ` G\211\262Z`{\230\205\211\262\206*\n\205*\nG\211\205=`Z`\311\312\313\314\315\316&\207" [company-candidates company-common company-prefix ivy-completion-beg ivy-completion-end company-mode 1 company-complete nil ivy-read "Candidate: " :action ivy-completion-in-region-action :caller counsel-company] 8 (#$ . 10142) nil]) (ivy-configure 'counsel-company :display-transformer-fn 'counsel--company-display-transformer :unwind-fn 'company-abort) #@10 (fn S) (defalias 'counsel--company-display-transformer #[257 "\211\300\301\"\211\205\f\302!\262P\207" [company-call-backend annotation company--clean-string] 5 (#$ . 10712)]) #@38 Inline C/C++ completion using Irony. (defalias 'counsel-irony #[0 "\300\301!\207" [irony-completion-candidates-async counsel-irony-callback] 2 (#$ . 10899) nil]) #@74 Callback function for Irony to search among CANDIDATES. (fn CANDIDATES) (defalias 'counsel-irony-callback #[257 "\302 \211@A\303\"\304\305\306\307\"\310\311\312\"\313\314\315\316&\207" [ivy-completion-beg ivy-completion-end irony-completion-symbol-bounds buffer-substring-no-properties ivy-read "code: " mapcar counsel-irony-annotate :predicate make-closure #[257 "\301\300@\"\207" [V0 string-prefix-p] 4 "\n\n(fn CANDIDATE)"] :caller counsel-irony :action ivy-completion-in-region-action] 14 (#$ . 11067) nil]) #@52 Make Ivy candidate from Irony candidate X. (fn X) (defalias 'counsel-irony-annotate #[257 "\211@\300!P@B\207" [irony-completion-annotation] 4 (#$ . 11599)]) (ivy-configure 'counsel-irony :display-fn 'ivy-display-function-overlay) (defvar counsel-describe-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\207" [make-sparse-keymap define-key [67108910] counsel-find-symbol [67108908] counsel--info-lookup-symbol] 5)) (ivy-set-actions 'counsel-describe-variable '(("I" counsel-info-lookup-symbol "info") ("d" counsel--find-symbol "definition"))) #@153 History list for variable and function names. Used by commands `counsel-describe-symbol', `counsel-describe-variable', and `counsel-describe-function'. (defvar counsel-describe-symbol-history nil (#$ . 12161)) #@47 Jump to the definition of the current symbol. (defalias 'counsel-find-symbol #[0 "\300\301!\207" [ivy-exit-with-action counsel--find-symbol] 2 (#$ . 12377) nil]) (put 'counsel-find-symbol 'no-counsel-M-x t) #@45 Lookup the current symbol in the info docs. (defalias 'counsel--info-lookup-symbol #[0 "\300\301!\207" [ivy-exit-with-action counsel-info-lookup-symbol] 2 (#$ . 12590) nil]) (byte-code "\300\301\302\303\304\305#\203\306\202\302\307!\210\310\311#\207" [defalias counsel--push-xref-marker require xref nil t xref-push-marker-stack etags #[256 "\301\206\302 \"\207" [find-tag-marker-ring ring-insert point-marker] 4 "\n\n(fn &optional M)"] "Compatibility shim for `xref-push-marker-stack'."] 6) #@62 Find symbol definition that corresponds to string X. (fn X) (defalias 'counsel--find-symbol #[257 "\301\302!!r\303\304\"\216\305@\306\"\210\307 \210\310\311\312#\211\203#\313!\202n\314!\315H\316=\203:\317!\203:\320!\202l\321!\203F\322!\202l\317!\203R\320!\202l\323!\204`\324\325!!\203h\313\325!!\202l\326\327\"\262\262*\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 counsel--push-xref-marker get-text-property 0 full-name find-library read 22 counsel-describe-variable boundp find-variable fboundp find-function featurep locate-library prin1-to-string error "Couldn't find definition of %s"] 7 (#$ . 13096)]) #@74 Return non-nil if SYMBOL is a bound or documented variable. (fn SYMBOL) (defalias 'counsel--variable-p #[257 "\300!\203 \301!?\206\211\302N\207" [boundp keywordp variable-documentation] 3 (#$ . 13867)]) (byte-code "\300\301\302\303\304DD\305\306\303%\207" [custom-declare-variable counsel-describe-variable-function funcall function #[0 "\300\207" [describe-variable] 1] "Function to call to describe a variable passed as parameter." :type] 6) #@53 Propertize VAR if it's a custom variable. (fn VAR) (defalias 'counsel-describe-variable-transformer #[257 "\300\301!!\203 \302\303\"\207\207" [custom-variable-p intern ivy-append-face ivy-highlight-face] 4 (#$ . 14323)]) #@122 Forward to `describe-variable'. Variables declared using `defcustom' are highlighted according to `ivy-highlight-face'. (defalias 'counsel-describe-variable #[0 "\303\304\305 \306\307\310\303\311\312\313\n\314\315 \316\317\320\321&)\207" [enable-recursive-minibuffers obarray counsel-describe-map t ivy-read "Describe variable: " :predicate counsel--variable-p :require-match :history counsel-describe-symbol-history :keymap :preselect ivy-thing-at-point :action #[257 "\301!!\207" [counsel-describe-variable-function intern] 4 "\n\n(fn X)"] :caller counsel-describe-variable] 17 (#$ . 14555) nil]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\"\210\311\312\313\314\315DD\316\317\314%\207" [ivy-configure counsel-describe-variable :parent counsel-describe-symbol :display-transformer-fn counsel-describe-variable-transformer ivy-set-actions counsel-describe-function (("I" counsel-info-lookup-symbol "info") ("d" counsel--find-symbol "definition")) custom-declare-variable counsel-describe-function-function funcall function #[0 "\300\207" [describe-function] 1] "Function to call to describe a function passed as parameter." :type] 6) #@79 Propertize FUNCTION-NAME if it's an interactive function. (fn FUNCTION-NAME) (defalias 'counsel-describe-function-transformer #[257 "\300\301!!\203 \302\303\"\207\207" [commandp intern ivy-append-face ivy-highlight-face] 4 (#$ . 15711)]) (defalias 'ivy-function-called-at-point #[0 "\300 \211\205 \301!\207" [function-called-at-point symbol-name] 3]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-describe-function-preselect funcall function #[0 "\300\207" [ivy-thing-at-point] 1] "Determine what `counsel-describe-function' should preselect." :type (radio (function-item ivy-thing-at-point) (function-item ivy-function-called-at-point))] 6) #@124 Forward to `describe-function'. Interactive functions (i.e., commands) are highlighted according to `ivy-highlight-face'. (defalias 'counsel-describe-function #[0 "\304\305\306 \307\310\311\304\312\313\314\n\315 \316\317\320\321&)\207" [enable-recursive-minibuffers obarray counsel-describe-map counsel-describe-function-preselect t ivy-read "Describe function: " :predicate #[257 "\300!\206 \211\301N\207" [fboundp function-documentation] 3 "\n\n(fn SYM)"] :require-match :history counsel-describe-symbol-history :keymap :preselect :action #[257 "\301!!\207" [counsel-describe-function-function intern] 4 "\n\n(fn X)"] :caller counsel-describe-function] 17 (#$ . 16406) nil]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\311%\207" [ivy-configure counsel-describe-function :parent counsel-describe-symbol :display-transformer-fn counsel-describe-function-transformer custom-declare-variable counsel-describe-symbol-function funcall function #[0 "\300\207" [describe-symbol] 1] "Function to call to describe a symbol passed as parameter." :type] 6) #@31 Forward to `describe-symbol'. (defalias 'counsel-describe-symbol #[0 "\303\304!\204\n\305\306!\210\307\310!\210\311\312\313 \314\315\316\311\317\320\321\n\322\323 \324\325\326\327&)\207" [enable-recursive-minibuffers obarray counsel-describe-map functionp describe-symbol user-error "This command requires Emacs 25.1 or later" require help-mode t ivy-read "Describe symbol: " :predicate #[257 "\301\302\303\"\"\207" [describe-symbol-backends cl-some make-closure #[257 "\211A@\300!\207" [V0] 3 "\n\n(fn BACKEND)"]] 5 "\n\n(fn SYM)"] :require-match :history counsel-describe-symbol-history :keymap :preselect ivy-thing-at-point :action #[257 "\301!!\207" [counsel-describe-symbol-function intern] 4 "\n\n(fn X)"] :caller counsel-describe-symbol] 17 (#$ . 17495) nil]) (byte-code "\300\301\302\303\304\305%\210\306\301\307\310\311BB\312\313\314BBD\"\207" [ivy-configure counsel-describe-symbol :initial-input "^" :sort-fn ivy-string< ivy-set-actions "I" counsel-info-lookup-symbol ("info") "d" counsel--find-symbol ("definition")] 6) #@43 Store history for `counsel-set-variable'. (defvar counsel-set-variable-history nil (#$ . 18540)) #@52 Read and eval a setq expression for SYM. (fn SYM) (defalias 'counsel-read-setq-expression #[257 "\302\211J\303\304:\204\2039\203\305\202\306#\307\310\"\311\312!\211\307\313#M\210\307\314\"\216\315\316\"\210\317\320 \321\322%)\207" [this-command read-expression-map eval-expression format "(setq %s%S)" "'" "" make-closure #[0 "\303 !\210\304\305!\203\306\307\305\310\311$\210\n\312W\203)\304\313!\203&\314\315\316\317B\313\310$\210\320 \210\321\322!\210\323 b\210\324u\210\325\326\300\"c\207" [V0 emacs-lisp-mode-syntax-table emacs-major-version set-syntax-table fboundp elisp-completion-at-point add-hook completion-at-point-functions nil t 27 elisp-eldoc-documentation-function advice--add-function :before-until #[0 "\300\301!\207" [advice--buffer-local eldoc-documentation-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local eldoc-documentation-function] 4 "\n\n(fn GV--VAL)"] eldoc-mode run-hooks eval-expression-minibuffer-setup-hook minibuffer-prompt-end 6 format "%S "] 5] 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 read-from-minibuffer "Eval: " t read-expression-history] 11 (#$ . 18643)]) #@106 Return a cons of description and value for X. X is an item of a radio- or choice-type defcustom. (fn X) (defalias 'counsel--setq-doconst #[257 "\211<\205G\300!\242@\301=\205\302A\303\"\204\211\205E\304=?\205E\211\205+\211\305P;\2034\2027\306!P9\203C\307D\202DB\266\202\207" [last const plist-get :tag function ": " prin1-to-string quote] 6 (#$ . 19949)]) (custom-declare-face 'counsel-variable-documentation '((t :inherit font-lock-comment-face)) "Face for displaying Lisp documentation." :group 'ivy-faces) #@351 Set a variable SYM, with completion. When the selected variable is a `defcustom' with the type boolean or radio, offer completion of all possible values. Otherwise, offer a variant of `eval-expression', with the initial input corresponding to the chosen variable. With a prefix arg, restrict list to variables defined using `defcustom'. (fn SYM) (defalias 'counsel-set-variable #[257 "\300\301!\205\300\302\303\304#\205\305!\306\230?\205\307\305!\310\311#\303\211\312\313\"\216\203/\314\315!!\210\316!\203\263\317N\211\262\203\263:\203X@\320>\203X\321\303\322\323A\"\"\211\262\202f\324=\203e\325\211\262\202f\303\203\263J\326\327\330#\331\332!$\211\205\256\333\"\203\213\333\"A\202\216\334!\262\335\327\336#!\210<\203\254@\337=\203\254A@\202\255L\266\202\202\314\316!\204\275\303L\210\340!\335\327\341\"!\210\342!\262)\207" [require cus-edit lv nil t custom-variable-documentation "nil" propertize face counsel-variable-documentation make-closure #[0 "\300\205\301 \207" [V0 lv-delete-window] 1] lv-message ivy--quote-format-string boundp custom-type (choice radio) delq mapcar counsel--setq-doconst boolean (("nil") ("t" . t)) ivy-read format "Set (%S <%s>): " :preselect prin1-to-string assoc read kill-new "(setq %S %S)" quote counsel-read-setq-expression "%S" eval-expression] 11 (#$ . 20488) (byte-code "\302\303\304\305 \203 \306\202\307\310\311\312\313 &!C\207" [obarray current-prefix-arg intern ivy-read "Set variable: " :predicate custom-variable-p counsel--variable-p :history counsel-set-variable-history :preselect ivy-thing-at-point] 10)]) #@125 Show all matching symbols. See `apropos' for further information on what is considered a symbol and how to search for them. (defalias 'counsel-apropos #[0 "\301\302\303\304\305\306\307\310 \311\312\313\314&\f\207" [obarray ivy-read "Search for symbol (word list or regexp): " :predicate #[257 "\300!\206\301!\206\302!\206\303!\207" [fboundp boundp facep symbol-plist] 3 "\n\n(fn SYM)"] :history counsel-apropos-history :preselect ivy-thing-at-point :action #[257 "\211\301\230\203\n\302\303!\210\304>\203$\305!\230\203 \306\307\310\311#!\207\306!\207\306\312\313Q!\207" [this-command "" user-error "Please specify a pattern" (ivy-immediate-done ivy-alt-done) regexp-quote apropos split-string "[ ]+" t "\\`" "\\'"] 6 "\n\n(fn PATTERN)"] :caller counsel-apropos] 13 (#$ . 22123) nil]) (ivy-configure 'counsel-apropos :sort-fn 'ivy-string<) #@155 Forward SYMBOL to `info-lookup-symbol' with ivy completion. With prefix arg MODE a query for the symbol help mode is offered. (fn SYMBOL &optional MODE) (defalias 'counsel-info-lookup-symbol #[513 "\300\"\207" [info-lookup-symbol] 5 (#$ . 22990) (byte-code "\303\304!\210\203\305\306!\202\307\306\310 \"\203 \202\305\306!\311\312\313\314\306\"\315\316\317\320\306\"\321\322&)D\207" [current-prefix-arg info-lookup-mode enable-recursive-minibuffers require info-look info-lookup-change-mode symbol info-lookup->mode-value info-lookup-select-mode t ivy-read "Describe symbol: " info-lookup->completions :history info-lookup-history :preselect info-lookup-guess-default :caller counsel-info-lookup-symbol] 10)]) (byte-code "\300\301\302\303#\210\304\305\306\307\310\311%\210\304\312\313\314\310\311%\210\315\316\317\320\321DD\322\323\324\310\325&\207" [ivy-configure counsel-info-lookup-symbol :sort-fn ivy-string< custom-declare-face counsel-key-binding ((t :inherit font-lock-keyword-face)) "Face used by `counsel-M-x' for key bindings." :group ivy-faces counsel-active-mode ((t :inherit font-lock-builtin-face)) "Face used by `counsel-M-x' for activated modes." custom-declare-variable counsel-alias-expand funcall function #[0 "\300\207" [t] 1] "When non-nil, show the expansion of aliases in `counsel-M-x'." :type boolean ivy] 8) #@69 Return CMD annotated with its active key binding, if any. (fn CMD) (defalias 'counsel-M-x-transformer #[257 "\304!\211K\305\306\307#=\204% >\203,\310!\203,\311\n\312H\"\203,\313\314\315#\2629\205: \205:\316\317\"\205|\320\321\"\211\203h\322\323O\324\325\\\306O#\326 \327\"\327\"\232\203f\262\266\210\330!\262\331\323G\314\332%\210\316\317\"Q\207" [major-mode minor-mode-list ivy-last counsel-alias-expand intern where-is-internal nil t boundp buffer-local-value 13 propertize face counsel-active-mode format " (%s)" cl-search [24 54] vconcat 0 [f2] 2 current-global-map lookup-key key-description put-text-property counsel-key-binding] 13 (#$ . 24347)]) #@177 Return `counsel-M-x' candidates from external packages. The return value is a list of strings. The currently supported packages are, in order of precedence, `amx' and `smex'. (defalias 'counsel--M-x-externs #[0 "\304\305\306\307#\203\204\310 \210\311 \203\312 \210\313\314 \"\207\304\315\306\307#\2054\n\204+\316 \210\317 \2033\320 \210 \207" [amx-initialized amx-cache smex-initialized-p smex-ido-cache require amx nil t amx-initialize amx-detect-new-commands amx-update mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn ENTRY)"] smex smex-initialize smex-detect-new-commands smex-update] 4 (#$ . 25051)]) #@119 Return non-nil if `counsel-M-x' should complete CAND. CAND is a string returned by `counsel--M-x-externs'. (fn CAND) (defalias 'counsel--M-x-externs-predicate #[257 "\300!\301N?\207" [intern no-counsel-M-x] 3 (#$ . 25678)]) #@61 Return a predicate for `counsel-M-x' in the current buffer. (defalias 'counsel--M-x-make-predicate #[0 "p\300\301\"\207" [make-closure #[257 "\302!\2058\211\303N?\2058\211\304N?\2058\305\301!\205 ?\2068\306 !\2058\3071/ \300\"0\207\310\311\312!#\262\207" [V0 read-extended-command-predicate commandp byte-obsolete-info no-counsel-M-x boundp functionp (debug error) message "read-extended-command-predicate: %s: %s" error-message-string] 7 "\n\n(fn SYM)"]] 4 (#$ . 25910)]) #@74 String for `M-x' plus the string representation of `current-prefix-arg'. (defalias 'counsel--M-x-prompt #[0 "\204\301\202.\302=\203\303\202.\250\203\304\305\"\202.@\306U\203)\307\202.\304\305@\"\310P\207" [current-prefix-arg nil - "- " format "%d " 4 "C-u " "M-x "] 3 (#$ . 26403)]) #@28 History for `counsel-M-x'. (defvar counsel-M-x-history nil (#$ . 26709)) #@24 Execute CMD. (fn CMD) (defalias 'counsel-M-x-action #[257 "\306\307\310\311\312\313\"\203\211G\314O\266\202\202\262#!\262\315\300!\203.\203.\316!\210\202<\315\301!\203< \203<\317!\210\n\211\211\320\321\"\207" [amx-initialized smex-initialized-p current-prefix-arg prefix-arg this-command real-this-command intern subst-char-in-string 32 45 "^" string-prefix-p nil boundp amx-rank smex-rank command-execute record] 10 (#$ . 26788)]) #@247 Ivy version of `execute-extended-command'. Optional INITIAL-INPUT is the initial input in the minibuffer. This function integrates with either the `amx' or `smex' package when available, in that order of precedence. (fn &optional INITIAL-INPUT) (defalias 'counsel-M-x #[256 "\n\306 \307\310 \206\f\311\203\312\202\313 \314\315\316\317\320\321\322 \323\324\325&\207" [last-command this-command real-last-command real-this-command obarray counsel-describe-map counsel--M-x-externs ivy-read counsel--M-x-prompt :predicate counsel--M-x-externs-predicate counsel--M-x-make-predicate :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap :initial-input :caller counsel-M-x] 19 (#$ . 27250) nil]) (byte-code "\300\301\302\303\304\305%\210\306\301\307\310\311\312BBD\"\207" [ivy-configure counsel-M-x :initial-input "^" :display-transformer-fn counsel-M-x-transformer ivy-set-actions ("d" counsel--find-symbol "definition") "h" #[257 "\301!!\207" [counsel-describe-function-function intern] 4 "\n\n(fn X)"] ("help")] 6) #@33 Eval the command CMD. (fn CMD) (defalias 'counsel-command-history-action-eval #[257 "\300\301!!\207" [eval read] 4 (#$ . 28312)]) #@42 Edit and eval the command CMD. (fn CMD) (defalias 'counsel-command-history-action-edit-and-eval #[257 "\300\301\302!\"\207" [edit-and-eval-command "Eval: " read] 5 (#$ . 28450)]) (ivy-set-actions 'counsel-command-history '(("r" counsel-command-history-action-eval "eval command") ("e" counsel-command-history-action-edit-and-eval "edit and eval command"))) #@31 Show the history of commands. (defalias 'counsel-command-history #[0 "\301\302\303\304\"\305\306\307\310\311\312&\207" [command-history ivy-read "Command: " mapcar prin1-to-string :require-match t :action counsel-command-history-action-eval :caller counsel-command-history] 9 (#$ . 28815) nil]) #@68 Return a list of completion candidates for `counsel-load-library'. (defalias 'counsel-library-candidates #[0 "\302\303\304\305\"\306\211\211\211C\211\203\251\211@\211\206 \262\307!\203\242\310\311\"\211\203\241\211@\312\n\"\203\232\312\313\"\204\232\211\314\211\224O\262\315\n\"\211\262\203\206\316A!\262\317\320\n@\" AB #\210\316!\262\317 P\321\320 \f\"\322\323 \"#B #\210\202\232\317\321\n\322\323 \"#B #\210A\266\202\202\"\210A\266\202\202 \210\324\325\326\"\"\210\211\242\237\207" [load-path default-directory "\\(\\.el\\(?:\\.gz\\)?\\)\\'" make-hash-table :test equal nil file-directory-p file-name-all-completions "" string-match "pkg.elc?$" 0 gethash counsel-directory-name puthash counsel-string-compose propertize full-name expand-file-name maphash make-closure #[514 "\300@\300\242B\240\207" [V0] 5 "\n\n(fn K V)"]] 18 (#$ . 29118)]) #@85 Load a selected the Emacs Lisp library. The libraries are offered from `load-path'. (defalias 'counsel-load-library #[0 "\301 \302\303\304\305\306&\207" [counsel-describe-map counsel-library-candidates ivy-read "Load library: " :action #[257 "\300\301\302\303#!\207" [load-library get-text-property 0 full-name] 6 "\n\n(fn X)"] :keymap] 8 (#$ . 30027) nil]) (ivy-set-actions 'counsel-load-library '(("d" counsel--find-symbol "definition"))) #@16 (fn LIBRARY) (defalias 'counsel-find-library-other-window #[257 "\300\301!!\302\303\"\207" [find-file-noselect find-library-name pop-to-buffer other-window] 5 (#$ . 30478)]) #@16 (fn LIBRARY) (defalias 'counsel-find-library-other-frame #[257 "\300\301!!\3021\303!0\207\210\304!\207" [find-file-noselect find-library-name (error) switch-to-buffer-other-frame pop-to-buffer] 4 (#$ . 30662)]) (ivy-set-actions 'counsel-find-library '(("j" counsel-find-library-other-window "other window") ("f" counsel-find-library-other-frame "other frame"))) #@86 Visit a selected the Emacs Lisp library. The libraries are offered from `load-path'. (defalias 'counsel-find-library #[0 "\301 \302\303\304\305\306\307\310&\207" [counsel-describe-map counsel-library-candidates ivy-read "Find library: " :action counsel--find-symbol :keymap :caller counsel-find-library] 10 (#$ . 31037) nil]) #@50 Disable current themes and load theme X. (fn X) (defalias 'counsel-load-theme-action #[257 "\3011\302\303\"\210\304\305!\306\"\210\307\310!\205\310 0\207\210\207" [custom-enabled-themes (error) mapc disable-theme load-theme intern t fboundp powerline-reset] 4 (#$ . 31372)]) #@111 Forward to `load-theme'. Usable with `ivy-resume', `ivy-next-line-and-call' and `ivy-previous-line-and-call'. (defalias 'counsel-load-theme #[0 "\300\301\302\303\304 \"\305\306\307\310&\207" [ivy-read "Load custom theme: " mapcar symbol-name custom-available-themes :action counsel-load-theme-action :caller counsel-load-theme] 7 (#$ . 31661) nil]) (ivy-set-actions 'counsel-descbinds '(("d" counsel-descbinds-action-find "definition") ("I" counsel-descbinds-action-info "info") ("x" counsel-descbinds-action-exec "execute"))) #@34 History for `counsel-descbinds'. (defvar counsel-descbinds-history nil (#$ . 32195)) #@136 Get key bindings starting with PREFIX in BUFFER. See `describe-buffer-bindings' for further information. (fn &optional PREFIX BUFFER) (defalias 'counsel--descbinds-cands #[512 "\211\206p\302\303\304\305\306\"r\211q\210\307\310\"\216\306\311\"\210)eb\210\312\303w\210\313u\210m\204x\314\315!\203r\316\317!\316\313!\303\320\235\204p\303\306\321#)\266\203\204p\322\323!\211\262!\204_\324\232\203p\325\326\327\330\331##BBB\262\266\303y\210\202'*\210\211\237\207" [indent-tabs-mode inhibit-changing-match-data "\\(?:<\\(?:\\(?:C-down-mouse-2\\|bottom-divider\\|h\\(?:eader-line\\|orizontal-scroll-bar\\)\\|left-fringe\\|mode-line\\|right-\\(?:divider\\|fringe\\)\\|vertical-\\(?:line\\|scroll-bar\\)\\)>\\)\\)" nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] describe-buffer-bindings "^\f" 2 looking-at "^\\([^ \n]+\\)[ ]*\\(.*\\)$" match-string 1 ("??" "self-insert-command") string-match commandp intern-soft "Prefix Command" format "%-15s %s" propertize face counsel-key-binding] 16 (#$ . 32287)]) (byte-code "\300\301\302\303\304DD\305\306\303%\207" [custom-declare-variable counsel-descbinds-function funcall function #[0 "\300\207" [describe-function] 1] "Function to call to describe a function passed as parameter." :type] 6) #@92 Describe function of candidate X. See `describe-function' for further information. (fn X) (defalias 'counsel-descbinds-action-describe #[257 "\211AA!\207" [counsel-descbinds-function] 4 (#$ . 33623)]) #@82 Run candidate X. See `execute-extended-command' for further information. (fn X) (defalias 'counsel-descbinds-action-exec #[257 "\211AA\300\301\"\207" [command-execute record] 5 (#$ . 33833)]) #@100 Find symbol definition of candidate X. See `counsel--find-symbol' for further information. (fn X) (defalias 'counsel-descbinds-action-find #[257 "\211AA\300\301!!\207" [counsel--find-symbol symbol-name] 5 (#$ . 34034)]) #@134 Display symbol definition of candidate X, as found in the relevant manual. See `info-lookup-symbol' for further information. (fn X) (defalias 'counsel-descbinds-action-info #[257 "\211AA\300\301!!\207" [counsel-info-lookup-symbol symbol-name] 5 (#$ . 34263)]) #@177 Show a list of all defined keys and their definitions. If non-nil, show only bindings that start with PREFIX. BUFFER defaults to the current one. (fn &optional PREFIX BUFFER) (defalias 'counsel-descbinds #[512 "\300\301\302\"\303\304\305\306\307\310&\207" [ivy-read "Bindings: " counsel--descbinds-cands :action counsel-descbinds-action-describe :history counsel-descbinds-history :caller counsel-descbinds] 11 (#$ . 34532) nil]) (byte-code "\300\301\302\303\304DD\305\306\303%\207" [custom-declare-variable counsel-describe-face-function funcall function #[0 "\300\207" [describe-face] 1] "Function to call to describe a face or face name argument." :type] 6) #@180 Return name of face around point. Try detecting a face name in the text around point before falling back to the face of the character after point, and finally the `default' face. (defalias 'counsel--face-at-point #[0 "\300\301\302!\206\303!\207" [symbol-name face-at-point t default] 3 (#$ . 35204)]) #@33 Completion for `describe-face'. (defalias 'counsel-describe-face #[0 "\301\302\303 \304\305\306\307\310\311 \312\313\314&\f\207" [counsel-describe-face-function ivy-read "Face: " face-list :require-match t :history face-name-history :preselect counsel--face-at-point :action :caller counsel-describe-face] 13 (#$ . 35513) nil]) (ivy-configure 'counsel-describe-face :sort-fn 'ivy-string<) #@38 Customize face with NAME. (fn NAME) (defalias 'counsel-customize-face #[257 "\300\301!!\207" [customize-face intern] 4 (#$ . 35909)]) #@56 Customize face with NAME in another window. (fn NAME) (defalias 'counsel-customize-face-other-window #[257 "\300\301!!\207" [customize-face-other-window intern] 4 (#$ . 36051)]) #@48 Highlight thing-at-point with FACE. (fn FACE) (defalias 'counsel-highlight-with-face #[257 "\300\301!\210\302 \303 \203\304 \210\305\306!\307!\"\207" [hi-lock-mode 1 ivy-thing-at-point use-region-p deactivate-mark hi-lock-set-pattern regexp-quote intern] 6 (#$ . 36237)]) (ivy-set-actions 'counsel-describe-face '(("c" counsel-customize-face "customize") ("C" counsel-customize-face-other-window "customize other window"))) (defvar counsel--faces-format "%-40s %s") #@64 Format NAMES according to `counsel--faces-format'. (fn NAMES) (defalias 'counsel--faces-format-function #[257 "\300\301\302\303\"\304$\207" [#[257 "\302\303 \304\305!##\207" [counsel--faces-format list-faces-sample-text format propertize face intern] 9 "\n\n(fn NAME)"] ivy--format-function-generic make-closure #[257 "\300\301\302\"!\207" [V0 ivy--add-face ivy-current-match] 5 "\n\n(fn NAME)"] "\n"] 7 (#$ . 36714)]) #@111 Complete faces with preview. Actions are provided by default for describing or customizing the selected face. (defalias 'counsel-faces #[0 "\302\303\304 \"\305\306\307\310\311\302\312\"#\"\313\314\315\316\317\320\321\322 \323 \324\325&\f)\207" [counsel--faces-format counsel-describe-face-function mapcar symbol-name face-list format "%%-%ds %%s" apply max 0 string-width ivy-read "Face: " :require-match t :history face-name-history :preselect counsel--face-at-point :action :caller counsel-faces] 14 (#$ . 37149) nil]) (byte-code "\300\301\302\303\304\305%\210\306\301\307\"\207" [ivy-configure counsel-faces :parent counsel-describe-face :format-fn counsel--faces-format-function ivy-set-actions (("c" counsel-customize-face "customize") ("C" counsel-customize-face-other-window "customize other window") ("h" counsel-highlight-with-face "highlight"))] 6) #@28 Command for `counsel-git'. (defvar counsel-git-cmd "git ls-files -z --full-name --" (#$ . 38018)) (ivy-set-actions 'counsel-git '(("j" find-file-other-window "other window") ("x" counsel-find-file-extern "open externally"))) #@186 Look up directory hierarchy for FILE, starting in DIR. Like `locate-dominating-file', but DIR defaults to `default-directory' and the return value is expanded. (fn FILE &optional DIR) (defalias 'counsel--dominating-file #[513 "\301\206\"\211\262\205\302!\207" [default-directory locate-dominating-file expand-file-name] 5 (#$ . 38250)]) #@70 Return the root of the Git repository containing the current buffer. (defalias 'counsel-locate-git-root #[0 "\300 \206\301\302!\207" [counsel--git-root error "Not in a Git repository"] 2 (#$ . 38603)]) #@12 (fn DIR) (defalias 'counsel-git-cands #[257 "\211\302\303 !\304\305#)\207" [default-directory counsel-git-cmd split-string shell-command-to-string "" t] 5 (#$ . 38813)]) #@132 Find file in the current Git repository. INITIAL-INPUT can be given as the initial minibuffer input. (fn &optional INITIAL-INPUT) (defalias 'counsel-git #[256 "\302!\210\303 \304\305\306 !\307\310\311\312\313&)\207" [counsel-git-cmd default-directory counsel-require-program counsel-locate-git-root ivy-read "Find file: " counsel-git-cands :initial-input :action counsel-git-action :caller counsel-git] 10 (#$ . 38994) nil]) (ivy-configure 'counsel-git :occur 'counsel-git-occur) #@48 Find file X in current Git repository. (fn X) (defalias 'counsel-git-action #[257 "\302\303!!r\304\305\"\216\306@\307\"\210\310H\311!+\207" [ivy-last default-directory internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord 21 find-file] 5 (#$ . 39485)]) #@86 Occur function for `counsel-git' using `counsel-cmd-to-dired'. (fn &optional CANDS) (defalias 'counsel-git-occur #[256 "\302\303H!\210\304\305\306\307\310\311\312 #\313 #!!\207" [ivy-last counsel-git-cmd cd 21 counsel-cmd-to-dired counsel--expand-ls format "%s | %s | xargs ls" replace-regexp-in-string "\\(-0\\)\\|\\(-z\\)" "" counsel--file-name-filter] 9 (#$ . 39852)]) #@53 Switches passed to `ls' for `counsel-cmd-to-dired'. (defvar counsel-dired-listing-switches "-alh" (#$ . 40232)) #@60 Adapted from `find-dired'. (fn FULL-CMD &optional FILTER) (defalias 'counsel-cmd-to-dired #[513 "\306\307 \210\310 \n\"\210\311 \312\261\210`\311\313\261\210\314`\"\266\315\303!\210\306\315\304!\210\316\317\"\315\305!\210 \320 BC\321\322p#\323\"\210\324\325\"\262)\207" [inhibit-read-only default-directory counsel-dired-listing-switches dired-sort-inhibit revert-buffer-function dired-subdir-alist t erase-buffer dired-mode " " ":\n" "\n" dired-insert-set-properties make-local-variable make-closure #[514 "\301\300!\207" [V0 counsel-cmd-to-dired] 4 "\n\n(fn \\=\\1 \\=\\2)"] point-min-marker start-process-shell-command "counsel-cmd" set-process-filter set-process-sentinel #[514 "\300!\301=\205\302!\303U\205eb\210\304y\210\305 \207" [process-status exit process-exit-status 0 2 dired-move-to-filename] 4 "\n\n(fn PROCESS MSG)"]] 6 (#$ . 40350)]) (defvar counsel-git-grep-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\207" [make-sparse-keymap define-key "\f" ivy-call-and-recenter [134217841] counsel-git-grep-query-replace " " counsel-git-grep-switch-cmd "" counsel-cd] 5)) #@41 Initial command for `counsel-git-grep'. (defvar counsel-git-grep-cmd-default "git --no-pager grep -n --no-color -I -e \"%s\"" (#$ . 41508)) #@43 Store the command for `counsel-git-grep'. (defvar counsel-git-grep-cmd nil (#$ . 41654)) #@33 History for `counsel-git-grep'. (defvar counsel-git-grep-history nil (#$ . 41749)) #@48 History for `counsel-git-grep' shell commands. (defvar counsel-git-grep-cmd-history (list counsel-git-grep-cmd-default) (#$ . 41838)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable counsel-grep-post-action-hook funcall function #[0 "\300\207" [nil] 1] "Hook that runs after the point moves to the next candidate.\nTypical value: '(recenter)." :type hook counsel-git-grep-cmd-function #[0 "\300\207" [counsel-git-grep-cmd-function-default] 1] "How a git-grep shell call is built from the input.\nThis function should set `ivy--old-re'." (radio (function-item counsel-git-grep-cmd-function-default) (function-item counsel-git-grep-cmd-function-ignore-order) (function :tag "Other"))] 6) #@12 (fn STR) (defalias 'counsel-git-grep-cmd-function-default #[257 "\303 \304=\203\305\306\307\304!#\202\310\311\"\211\"\207" [counsel-git-grep-cmd ivy--regex-function ivy--old-re format ivy--regex-fuzzy replace-regexp-in-string "\n" "" ivy--regex t] 8 (#$ . 42599)]) #@12 (fn STR) (defalias 'counsel-git-grep-cmd-function-ignore-order #[257 "\301\302\"\303\304\302#\305\306\307\310#P\207" [ivy--old-re ivy--regex t split-string " " "git --no-pager grep --full-name -n --no-color -i -e " mapconcat shell-quote-argument " --and -e "] 7 (#$ . 42881)]) #@61 Grep in the current Git repository for STRING. (fn STRING) (defalias 'counsel-git-grep-function #[257 "\301 \206\302!\303!\203\304\202\305P!\210\306\207" [counsel-git-grep-cmd-function ivy-more-chars counsel--async-command ivy--case-fold-p " -i" "" nil] 5 (#$ . 43170)]) #@55 Go to occurrence X in current Git repository. (fn X) (defalias 'counsel-git-grep-action #[257 "\304\305\"\205M\306\307\"\306\310\"\311\312\313H\"!\210eb\210\314!Sy\210\315\316 \317\"\320 \317#\2035\n\2035\321\224b\210\322 \210\323\324!\210 \325=?\205K\326 \210\327\316 !!\266\202\207" [ivy-last ivy-text swiper-goto-start-of-match ivy-exit string-match "\\`\\(.*?\\):\\([0-9]+\\):\\(.*\\)\\'" match-string-no-properties 1 2 find-file expand-file-name 21 string-to-number re-search-forward ivy--regex t line-end-position 0 swiper--ensure-visible run-hooks counsel-grep-post-action-hook done swiper--cleanup swiper--add-overlays] 8 (#$ . 43457)]) #@50 Highlight file and line number in STR. (fn STR) (defalias 'counsel-git-grep-transformer #[257 "\300\301\"\203\302\303\224\303\225\304\305%\210\302\306\224\306\225\307\305%\210\207" [string-match "\\`\\([^:]+\\):\\([^:]+\\):" add-face-text-property 1 ivy-grep-info nil 2 ivy-grep-line-number] 7 (#$ . 44119)]) #@138 An alist of project directory to "git-grep" command. Allows to automatically use a custom "git-grep" command for all files in a project. (defvar counsel-git-grep-projects-alist nil (#$ . 44441)) #@12 (fn CMD) (defalias 'counsel--git-grep-cmd-and-proj #[257 "\305!\306;\2046 \2033\307\310\311\"\n\"\211\262\203!\211A\262\2026\312\313 \314\303\315\316&\262\317 !\2026\f\262\211B\207" [default-directory current-prefix-arg counsel-git-grep-projects-alist counsel-git-grep-cmd-history counsel-git-grep-cmd-default expand-file-name nil cl-find-if make-closure #[257 "\301@\300\"\207" [V0 string-match] 4 "\n\n(fn X)"] ivy-read "cmd: " :history :re-builder ivy--regex delete-dups] 10 (#$ . 44642)]) #@357 Synchronously call COMMAND and return its output as a string. COMMAND comprises the program name followed by its arguments, as in `make-process'. Signal `file-error' and emit a warning if COMMAND fails. Obey file handlers based on `default-directory'. On success, RESULT-FN is called in output buffer with no arguments. (fn COMMAND &optional RESULT-FN) (defalias 'counsel--call #[513 "\300\301!\302\303\304\"\216\305\306\307\"r\211q\210\303\310\"\216\311\312@\302\307D\302\nA&\262\313=\203I\2037 \202\222e`on=\203C\313\202D\314Z{\202\222\315\316\317\320\321\"\322#E\262\3231p\324\302\211\211\307%A@\313U?\205l\325 0\202u\326!\262\327\330\331\332\311\333\326 !\205\210\334D#$\266\335@A\"*\262)\207" [make-temp-file "counsel-call-stderr-" nil make-closure #[0 "\301\300!\207" [V0 delete-file] 2] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply process-file 0 1 file-error mapconcat identity append ("failed") " " (error) insert-file-contents buffer-string error-message-string lwarn ivy :warning "%s" concat "\n" signal] 15 (#$ . 45160)]) #@57 Forward COMMAND to `counsel--call'. (fn &rest COMMAND) (defalias 'counsel--command #[128 "\300!\207" [counsel--call] 3 (#$ . 46301)]) (defalias 'counsel--grep-unwind #[0 "\300 \210\301 \207" [counsel-delete-process swiper--cleanup] 1]) #@352 Grep for a string in the current Git repository. INITIAL-INPUT can be given as the initial minibuffer input. INITIAL-DIRECTORY, if non-nil, is used as the root directory for search. When CMD is a string, use it as a "git grep" command. When CMD is non-nil, prompt for a specific "git grep" command. (fn &optional INITIAL-INPUT INITIAL-DIRECTORY CMD) (defalias 'counsel-git-grep #[768 "\303!\304@\262A\305!\210\211\203\306\202\307\206'\203%@\202'\310 \311\312\313 \314\315\316\n\317\320\321\322\323\315\324\325&)\207" [counsel-git-grep-cmd default-directory counsel-git-grep-map counsel--git-grep-cmd-and-proj nil counsel-require-program counsel-git-grep-proj-function counsel-git-grep-function counsel-locate-git-root ivy-read "git grep: " :initial-input :dynamic-collection t :keymap :action counsel-git-grep-action :history counsel-git-grep-history :require-match :caller counsel-git-grep] 23 (#$ . 46546) nil]) #@21 (fn RE-STR CANDS) (defalias 'counsel--git-grep-index #[514 "\303C\303C\203 \304\303\"\207\305\306 !!r\307\310\"\216\311@\312\"\210\n\205,\313 \240\210\314\n!\240*\262\2044\315\207\242GT\316\307\317$\"\262\206S\316\307\320\"\321\322$\206S\315\207" [ivy--old-cands ivy-last buffer-file-name nil ivy-recompute-index-swiper-async 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 file-name-nondirectory 0 cl-position-if #[257 "\303\300\242\"\205\304\302\305O!\301\242Y\207" [V0 V1 V2 string-prefix-p string-to-number nil] 5 "\n\n(fn X)"] #[257 "\301\300\242\"\207" [V0 string-prefix-p] 4 "\n\n(fn X)"] :from-end t] 11 (#$ . 47487)]) (ivy-configure 'counsel-git-grep :occur 'counsel-git-grep-occur :unwind-fn 'counsel--grep-unwind :index-fn 'counsel--git-grep-index :display-transformer-fn 'counsel-git-grep-transformer :grep-p t :exit-codes '(1 "No matches found")) #@55 Grep for STR in the current Git repository. (fn STR) (defalias 'counsel-git-grep-proj-function #[257 "\302 \206!\303\304\"\211\305\306 \"\307!\203\310\202\311P!\210\312\262\207" [ivy--old-re counsel-git-grep-cmd ivy-more-chars ivy--regex t counsel--async-command format ivy--case-fold-p " -i" "" nil] 6 (#$ . 48506)]) #@50 Set `counsel-git-grep-cmd' to a different value. (defalias 'counsel-git-grep-switch-cmd #[0 "\304\305\306\300$\307!\n\310H?\205\311\312\313\"\211\207" [counsel-git-grep-cmd-history counsel-git-grep-cmd ivy-last ivy--all-candidates ivy-read "cmd: " :history delete-dups 19 all-completions "" counsel-git-grep-function] 5 (#$ . 48841) nil]) #@12 (fn STR) (defalias 'counsel--normalize-grep-match #[257 "\300!\204 \301P\262\302 \303\304\"\216\305\306\"\203\"\307\310\311\211\312%\262)\210\207" [ivy--starts-with-dotslash "./" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "[^\n:]+?[^\n/:]:[ ]*[1-9][0-9]*[ ]*:\\([1-9][0-9]*:\\)" replace-match "" t 1] 8 (#$ . 49193)]) #@14 (fn INPUT) (defalias 'counsel--git-grep-occur-cmd #[257 "\302\303\304\305!#;\203\306\202\307\310\311#\312 \"\313!\203&\314\202'\306Q\207" [ivy--old-re counsel-git-grep-cmd replace-regexp-in-string "\\.\\*\\?" ".*" ivy-re-to-str "" mapconcat #[257 "\211A?\205 \300\301@\"\207" [format "| grep -v %s"] 4 "\n\n(fn X)"] " " format ivy--case-fold-p " -i"] 8 (#$ . 49582)]) #@78 Generate a custom occur buffer for `counsel-git-grep'. (fn &optional CANDS) (defalias 'counsel-git-grep-occur #[256 "\300\301!\207" [counsel-grep-like-occur counsel--git-grep-occur-cmd] 3 (#$ . 49974)]) #@71 Start `query-replace' with string to replace from last search string. (defalias 'counsel-git-grep-query-replace #[0 "\302 \204 \303\304!\210\305\306 !\307\310\305#\311\312\313#!)\207" [enable-recursive-minibuffers ivy-text window-minibuffer-p user-error "Should only be called in the minibuffer through `counsel-git-grep-map'" t ivy--regex query-replace-read-to "Query replace" ivy-exit-with-action make-closure #[257 "\304\n\211\205P\211@\305\306\"\203I\307\310 !!r\311\312\"\216\313@\314\"\210\315\316\"\317 \320H\"\262\211\235\204>\211B\262\321!\210eb\210\322\300\301\323\211\304%\266*\210A\266\202\202\207" [V0 V1 ivy--old-cands ivy-last nil string-match "\\`\\(.*?\\):\\([0-9]+\\):\\(.*\\)\\'" internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord match-string-no-properties 1 expand-file-name 21 find-file perform-replace t] 12 "\n\n(fn _)"]] 7 (#$ . 50184) nil]) #@117 Add git stash command to kill ring. The git command applies the stash entry where candidate X was found in. (fn X) (defalias 'counsel-git-stash-kill-action #[257 "\300\301\"\205\302\303\304\305\306\307\"\"!!\207" [string-match "\\([^:]+\\):" kill-new message format "git stash apply %s" match-string 1] 8 (#$ . 51184)]) #@43 Search through all available git stashes. (defalias 'counsel-git-stash #[0 "\301 \302\303\304!\305\306#\307\310\311\312\313\314&)\207" [default-directory counsel-locate-git-root split-string shell-command-to-string "IFS=$'\n'\nfor i in `git stash list --format=\"%gd\"`; do\n git stash show -p $i | grep -H --label=\"$i\" \"$1\"\ndone" "\n" t ivy-read "git stash: " :action counsel-git-stash-kill-action :caller counsel-git-stash] 8 (#$ . 51516) nil]) #@29 Command used for "git log". (defvar counsel-git-log-cmd "GIT_PAGER=cat git log --no-color --grep '%s'" (#$ . 51980)) #@44 Search for `ivy-regex' in git log. (fn _) (defalias 'counsel-git-log-function #[257 "\303 \206\304\305\n\306\307\310\311 !#\"!\210\312\207" [ivy-regex ivy--old-re counsel-git-log-cmd ivy-more-chars counsel--async-command format replace-regexp-in-string "\\.\\*\\?" ".*" ivy-re-to-str nil] 9 (#$ . 52103)]) #@39 Add candidate X to kill ring. (fn X) (defalias 'counsel-git-log-action #[257 "\300\301\302!\"\207" [message "%S" kill-new] 5 (#$ . 52420)]) #@62 Visit the commit corresponding to LOG-ENTRY. (fn LOG-ENTRY) (defalias 'counsel-git-log-show-commit-action #[257 "\301\302!\210\303\304\305\306\307\310#)\266\203#\311!\207" [inhibit-changing-match-data require magit-diff substring-no-properties 0 "\\W" nil t string-match magit-show-commit] 11 (#$ . 52568)]) (ivy-set-actions 'counsel-git-log '(("v" counsel-git-log-show-commit-action "visit commit"))) #@189 Find the corresponding file in the worktree located at tree. The current buffer is assumed to be in a subdirectory of GIT-ROOT-DIR. TREE is the selected candidate. (fn GIT-ROOT-DIR TREE) (defalias 'counsel-git-change-worktree-action #[514 "\301!\302\"\303\"\304!\207" [buffer-file-name counsel-git-worktree-parse-root file-relative-name expand-file-name find-file] 7 (#$ . 52985)]) #@69 List worktrees in the Git repository containing the current buffer. (defalias 'counsel-git-worktree-list #[0 "\301 \302\303\304!\305\306#)\207" [default-directory counsel-locate-git-root split-string shell-command-to-string "git worktree list" "\n" t] 4 (#$ . 53380)]) #@49 Return worktree from candidate TREE. (fn TREE) (defalias 'counsel-git-worktree-parse-root #[257 "\211\301\302\303\304\305#)\266\203O\207" [inhibit-changing-match-data 0 " " nil t string-match] 10 (#$ . 53656)]) #@73 Close all buffers from the worktree located at ROOT-DIR. (fn ROOT-DIR) (defalias 'counsel-git-close-worktree-files-action #[257 "\301!\262\212\302 \211\205*\211@\211q\210\203#\303\304 \"\305\230\203#\306!\210A\266\202\202\262)\207" [buffer-file-name counsel-git-worktree-parse-root buffer-list file-relative-name counsel-locate-git-root "." kill-buffer] 6 (#$ . 53879)]) (ivy-set-actions 'counsel-git-change-worktree '(("k" counsel-git-close-worktree-files-action "kill all"))) #@76 Find the file corresponding to the current buffer on a different worktree. (defalias 'counsel-git-change-worktree #[0 "\301 \302\303\304\305 \306\307\310\311&\206\312\313!\314\315\316\317\320\321&)\207" [default-directory counsel-locate-git-root ivy-read "Select worktree: " cl-delete counsel-git-worktree-list :key counsel-git-worktree-parse-root :test string= error "No other worktrees" :action #[257 "\301\302H\"\207" [ivy-last counsel-git-change-worktree-action 21] 4 "\n\n(fn TREE)"] :require-match t :caller counsel-git-change-worktree] 9 (#$ . 54376) nil]) #@234 Switch branch by invoking git-checkout(1). The command is passed a single argument comprising all characters in BRANCH up to, but not including, the first space character (#x20), or the string's end if it lacks a space. (fn BRANCH) (defalias 'counsel-git-checkout-action #[257 "\301\302\303\304\305\306\307\310\311#)\266\203O!\"!\207" [inhibit-changing-match-data shell-command format "git checkout %s" shell-quote-argument 0 " " nil t string-match] 14 (#$ . 54955)]) #@137 Return list of branches in the current Git repository. Value comprises all local and remote branches bar the one currently checked out. (defalias 'counsel-git-branch-list #[0 "\301\302\303 \304\305\306!\307\310#)\"\207" [default-directory cl-mapcan #[257 "\300\301\"\205 \211\302\225\303OC\207" [string-match "\\`[[:blank:]]+" 0 nil] 4 "\n\n(fn LINE)"] counsel-locate-git-root split-string shell-command-to-string "git branch -vv --all" "\n" t] 6 (#$ . 55438)]) #@34 Call the "git checkout" command. (defalias 'counsel-git-checkout #[0 "\300\301\302 \303\304\305\306&\207" [ivy-read "Checkout branch: " counsel-git-branch-list :action counsel-git-checkout-action :caller counsel-git-checkout] 7 (#$ . 55909) nil]) #@12 (fn STR) (defalias 'counsel--git-log-format-function #[257 "\301\302!)\207" [counsel-yank-pop-truncate-radius 5 counsel--yank-pop-format-function] 3 (#$ . 56163)]) #@42 Call the "git log --grep" shell command. (defalias 'counsel-git-log #[0 "\300\301\302\303\304\305\306\307\310&\207" [ivy-read "Grep log: " counsel-git-log-function :dynamic-collection t :action counsel-git-log-action :caller counsel-git-log] 9 (#$ . 56337) nil]) (byte-code "\302\303\304\305\306\307\310\311&\210\312\235\203\210\202\312B\313 \235\203% \210\202)\313 B\302\207" [counsel-async-split-string-re-alist counsel-async-ignore-re-alist ivy-configure counsel-git-log :height 4 :unwind-fn counsel-delete-process :format-fn counsel--git-log-format-function (counsel-git-log . "^commit ") (counsel-git-log . "^[ \n]*$")] 8) (defvar counsel-find-file-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310\311\312\"#\210\301\313\314#\210\207" [make-sparse-keymap define-key [67108991] counsel-up-directory [C-backspace] "`" counsel-file-jump-from-find [67108960] ivy-make-magic-action counsel-find-file "b" [remap undo] counsel-find-file-undo] 7)) #@57 Switch to `counsel-file-jump' from `counsel-find-file'. (defalias 'counsel-file-jump-from-find #[0 "\300\301\302\303#\210\304\305\211\306#\210\307 \207" [put quit error-message "" run-at-time nil #[0 "\302\303\304\305#\210\3061\307 \310H\"0\207\311\312\"\210\313\207" [ivy-text ivy-last put quit error-message "Quit" (debug error) counsel-file-jump 21 message "Error: %S" nil] 4] abort-recursive-edit] 4 (#$ . 57342) nil]) (byte-code "\300\301!\203\302\303\304\"\210\302\303\305\"\210\302\303\306\"\207" [executable-find "git" add-to-list ivy-ffap-url-functions counsel-github-url-p counsel-emacs-url-p counsel-url-expand] 3) #@60 Reset `counsel-find-file' from selected directory. (fn _) (defalias 'counsel-find-file-cd-bookmark-action #[257 "\301\302\300 \210\303\304\305\"!\306\307$\207" [ivy--virtual-buffers ivy-read "cd: " delete-dups mapcar #[257 "\300A!\207" [file-name-directory] 3 "\n\n(fn X)"] :action #[257 "\301!\302 )\207" [default-directory file-name-directory counsel-find-file] 3 "\n\n(fn X)"]] 7 (#$ . 57980)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-root-command funcall function #[0 "\300\207" [#1="sudo"] 1 #1#] "Command to gain root privileges." :type string] 6) #@43 Find file X with root privileges. (fn X) (defalias 'counsel-find-file-as-root #[257 "\301!\210\302\303\"\304\305\206\306\307\203\302\310\"\202!$p\311!=\203-\312!\207\313!\207" [counsel-root-command counsel-require-program file-remote-p host format "/%s:%s:%s" "" expand-file-name localname get-file-buffer find-alternate-file find-file] 10 (#$ . 58591)]) #@225 Ask user a yes or no question created using FMT and ARGS. If Emacs 26 user option `read-answer-short' is bound, use it to choose between `yes-or-no-p' and `y-or-n-p'; otherwise default to `yes-or-no-p'. (fn FMT &rest ARGS) (defalias 'counsel--yes-or-no-p #[385 "\301\300!\203\302=\204\303=\203\304K\305=\203\305\202\304\306\307#!\207" [read-answer-short boundp t auto yes-or-no-p y-or-n-p apply format] 7 (#$ . 58973)]) #@22 Copy file X. (fn X) (defalias 'counsel-find-file-copy #[257 "\301\302!\210\303\304\305\306\"\307$\207" [ivy--directory require dired-aux counsel--find-file-1 "Copy file to: " make-closure #[257 "\301\300\302#\207" [V0 dired-copy-file 1] 5 "\n\n(fn NEW-NAME)"] counsel-find-file-copy] 7 (#$ . 59414)]) #@24 Delete file X. (fn X) (defalias 'counsel-find-file-delete #[257 "\204\304!@\305=\204\306\307\"\205B\310 #\210\311!\210\n\312=?\205'\313 \211\205@\314!r\315\316\"\216\317@\320\"\210\321 !*\262\262\207" [delete-by-moving-to-trash dired-recursive-deletes ivy-exit ivy--directory file-attributes t counsel--yes-or-no-p "Delete %s? " dired-delete-file dired-clean-up-after-deletion done 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--cd] 6 (#$ . 59725)]) #@32 Move or rename file X. (fn X) (defalias 'counsel-find-file-move #[257 "\301\302!\210\303\304\305\306\"\307$\207" [ivy--directory require dired-aux counsel--find-file-1 "Rename file to: " make-closure #[257 "\301\300\302#\207" [V0 dired-rename-file 1] 5 "\n\n(fn NEW-NAME)"] counsel-find-file-move] 7 (#$ . 60322)]) #@77 Create a directory and any nonexistent parent dirs from `ivy-text'. (fn X) (defalias 'counsel-find-file-mkdir-action #[257 "\303\304 \"!\n\305=?\205\306 \307\310\"\210\211\205-\311!r\312\313\"\216\314@\315\"\210\316!*\262\207" [ivy-text ivy--directory ivy-exit file-name-as-directory expand-file-name done active-minibuffer-window make-directory t internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord ivy--cd] 7 (#$ . 60647)]) (byte-code "\301\302\303\"\210\304\305\306\307\310DD\311\312\313%\210\304\314\306\307\315DD\316\312\313%\210\304\317\306\307\320DD\321\312\322\323\324\325\326\327\330!\331PF\332BBBB%\207" [completion-ignored-extensions ivy-set-actions counsel-find-file (("j" find-file-other-window "other window") ("f" find-file-other-frame "other frame") ("b" counsel-find-file-cd-bookmark-action "cd bookmark") ("x" counsel-find-file-extern "open externally") ("r" counsel-find-file-as-root "open as root") ("R" find-file-read-only "read only") ("l" find-file-literally "open literally") ("k" counsel-find-file-delete "delete") ("c" counsel-find-file-copy "copy file") ("m" counsel-find-file-move "move or rename") ("d" counsel-find-file-mkdir-action "mkdir")) custom-declare-variable counsel-find-file-at-point funcall function #[0 "\300\207" [nil] 1] "When non-nil, add file-at-point to the list of candidates." :type boolean counsel-preselect-current-file #[0 "\300\207" [nil] 1] "When non-nil, preselect current file in list of candidates." counsel-find-file-ignore-regexp #[0 "\300\207" [nil] 1] "A regexp of files to ignore while in `counsel-find-file'.\nThese files are un-ignored if `ivy-text' matches them. The\ncommon way to show all files is to start `ivy-text' with a dot.\n\nExample value: \"\\(?:\\`[#.]\\)\\|\\(?:[#~]\\'\\)\". This will hide\ntemporary and lock files.\n\\\nChoosing the dotfiles option, \"\\`\\.\", might be convenient,\nsince you can still access the dotfiles if your input starts with\na dot. The generic way to toggle ignored files is \\[ivy-toggle-ignore],\nbut the leading dot is a lot faster." choice (const :tag "None" nil) (const :tag "Dotfiles and Lockfiles" "\\(?:\\`\\|[/\\]\\)\\(?:[#.]\\)") const :tag "Ignored Extensions" regexp-opt "\\'" ((regexp :tag "Regex"))] 13) #@69 When non-nil, `counsel--find-file-matcher' will use this predicate. (defvar counsel--find-file-predicate nil (#$ . 62999)) #@112 Return REGEXP matching CANDIDATES. Skip some dotfiles unless `ivy-text' requires them. (fn REGEXP CANDIDATES) (defalias 'counsel--find-file-matcher #[514 "\306\307#\203 \310\"\262) \203+\f\203+\f \311\312\313#)\266\203\203,\207\314\315\"\2064\211\207" [counsel--find-file-predicate ivy--directory default-directory ivy-use-ignore counsel-find-file-ignore-regexp ivy-text ivy--re-filter #[257 "\300\301\"\207" [make-closure #[257 "\301\300\302!\"\207" [V0 string-match directory-file-name] 5 "\n\n(fn X)"]] 4 "\n\n(fn RE-STR)"] cl-remove-if-not nil t string-match cl-remove-if #[257 "\303\304\305#)\266\203\205\211\n\235?\207" [counsel-find-file-ignore-regexp inhibit-changing-match-data ivy-extra-directories nil t string-match] 8 "\n\n(fn X)"] inhibit-changing-match-data] 10 (#$ . 63129)]) #@71 Speed up opening remote files by disabling `find-file-hook' for them. (defvar counsel-find-file-speedup-remote t (#$ . 63957)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-find-file-extern-extensions funcall function #[0 "\300\207" [("mp4" "mkv" "xlsx")] 1] "List of extensions that make `counsel-find-file' use `counsel-find-file-extern'." :type (repeat string)] 6) #@22 Find file X. (fn X) (defalias 'counsel-find-file-action #[257 "\203\304 !\203\305\306\307 \"!)\207\310! \235\203 \311!\207\306\307 \"!\207" [counsel-find-file-speedup-remote ivy--directory find-file-hook counsel-find-file-extern-extensions file-remote-p nil find-file expand-file-name file-name-extension counsel-find-file-extern] 5 (#$ . 64371)]) #@195 Return candidate to preselect during filename completion. The preselect behavior can be customized via user options `counsel-find-file-at-point' and `counsel-preselect-current-file', which see. (defalias 'counsel--preselect-file #[0 "\203\303\304!\210\305 \211\205\306!?\205\307!\262\206( \205(\n\205(\310\n!\207" [counsel-find-file-at-point counsel-preselect-current-file buffer-file-name require ffap ffap-guesser ivy-ffap-url-p expand-file-name file-name-nondirectory] 3 (#$ . 64738)]) #@43 (fn PROMPT INITIAL-INPUT ACTION CALLER) (defalias 'counsel--find-file-1 #[1028 "\303=\203 \304 \202\f \305\306\307\310\311\312 \313\314 \315\316\317\320\321\n\322&)\207" [major-mode default-directory counsel-find-file-map dired-mode dired-current-directory ivy-read read-file-name-internal :matcher counsel--find-file-matcher :initial-input :action :preselect counsel--preselect-file :require-match confirm-after-completion :history file-name-history :keymap :caller] 23 (#$ . 65246)]) #@148 Forward to `find-file'. When INITIAL-INPUT is non-nil, use it in the minibuffer during completion. (fn &optional INITIAL-INPUT INITIAL-DIRECTORY) (defalias 'counsel-find-file #[512 "\211\206\301\302\303\304$)\207" [default-directory counsel--find-file-1 "Find file: " counsel-find-file-action counsel-find-file] 7 (#$ . 65752) nil]) (ivy-configure 'counsel-find-file :parent 'read-file-name-internal :occur 'counsel-find-file-occur) #@46 Format string for `counsel-find-file-occur'. (defvar counsel-find-file-occur-cmd "ls -a | %s | xargs -d '\\n' ls -d --group-directories-first" (#$ . 66197)) #@74 When non-nil, `counsel-find-file-occur' will use "find" as the base cmd. (defvar counsel-find-file-occur-use-find (byte-code "\301=?\207" [system-type gnu/linux] 2) (#$ . 66360)) #@55 Expand CMD that ends in "ls" with switches. (fn CMD) (defalias 'counsel--expand-ls #[257 "\211\301\302R\207" [counsel-dired-listing-switches " " " | sed -e \"s/^/ /\""] 5 (#$ . 66546)]) #@257 Alist of file name filtering commands. The car is a shell command and the cdr is t when the shell command supports look-arounds. The executable for the commands will be checked for existence via `executable-find'. The first one that exists will be used. (defvar counsel-file-name-filter-alist '(("ag -i '%s'" . t) ("ack -i '%s'" . t) ("perl -ne '/(.*%s.*)/i && print \"$1\\n\";'" . t) ("grep -i -E '%s'")) (#$ . 66742)) #@196 Return a command that filters a file list to match ivy candidates. If USE-IGNORE is non-nil, try to generate a command that respects `counsel-find-file-ignore-regexp'. (fn &optional USE-IGNORE) (defalias 'counsel--file-name-filter #[256 "\211G\306U\203\n\307\207\310\311 \"\312\203]\n\203] \203]A\203] \f\312\313\314#)\266\203\204] @\2068\315\312\313\314#)\266\203\204]\316 !C;\203W\211\313BD\202Z\211B\262\210\317@\316A\"\"\262\320\312\313\314#)\266\203\203\321\322\323#\207\207" [ivy--old-re counsel-file-name-filter-alist ivy-use-ignore counsel-find-file-ignore-regexp ivy-text inhibit-changing-match-data 0 "cat" cl-find-if #[257 "\300\301@!@!\207" [executable-find split-string] 4 "\n\n(fn X)"] nil t string-match "" counsel--elisp-to-pcre format "csh\\'" replace-regexp-in-string "\\?!" "?\\\\!" ivy--old-cands shell-file-name] 11 (#$ . 67171)]) (defalias 'counsel--occur-cmd-find #[0 "\300\301\302\303!\"\304\305\"\306\304\307\"Q\207" [format "find . -maxdepth 1 | %s | xargs -I {} find {} -maxdepth 0 -ls" counsel--file-name-filter t counsel--cmd-to-dired-by-type "d" " && " "f"] 6]) #@17 (fn TYPE CMD) (defalias 'counsel--cmd-to-dired-by-type #[514 "\301\302\"\203 \303\202\f\304\305\306\307\306R#\207" [ivy-text string-match "^\\." "" " | grep -v '/\\\\.'" replace-regexp-in-string " | grep" " -type "] 9 (#$ . 68313)]) #@24 (fn &optional CANDS) (defalias 'counsel-find-file-occur #[256 "\305\306!\210\307!\210 \203\310\311 \312\"\207\310\313\314\n\315\n\316\317\320#)\266\203\203,\321\f!\202/\322\317!\"!!\207" [ivy--directory counsel-find-file-occur-use-find counsel-find-file-occur-cmd inhibit-changing-match-data ivy--old-re require find-dired cd counsel-cmd-to-dired counsel--occur-cmd-find find-dired-filter counsel--expand-ls format "grep" nil t string-match counsel--elisp-to-pcre counsel--file-name-filter] 12 (#$ . 68560)]) #@415 Control whether `counsel-up-directory' goes up a level or always a directory. If non-nil, then `counsel-up-directory' will remove the final level of the path. For example: /a/long/path/file.jpg => /a/long/path/ /a/long/path/ => /a/long/ If nil, then `counsel-up-directory' will go up a directory. For example: /a/long/path/file.jpg => /a/long/ /a/long/path/ => /a/long/ (defvar counsel-up-directory-level t (#$ . 69087)) #@215 Go to the parent directory preselecting the current one. If the current directory is remote and it's not possible to go up any further, make the remote prefix editable. See variable `counsel-up-directory-level'. (defalias 'counsel-up-directory #[0 "\306\307!!\310!\311!\203*\230\203*\312\211\313\314!\210\315\312\316\315!\210\317 \210\211c\207\f\203: \315\230\204:\320 \321 |\207\322!\210\211\323\324\325!!I\207" [ivy--directory ivy--old-cands ivy--old-re ivy--all-candidates counsel-up-directory-level ivy-text directory-file-name expand-file-name file-name-directory file-remote-p nil ivy-set-index 0 "" ivy-set-text delete-minibuffer-contents line-beginning-position line-end-position ivy--cd 7 file-name-as-directory file-name-nondirectory ivy-last] 9 (#$ . 69559) nil]) #@37 Descend into the current directory. (defalias 'counsel-down-directory #[0 "\300 \207" [ivy--directory-enter] 1 (#$ . 70360) nil]) (defalias 'counsel-find-file-undo #[0 "\302\230\203 \210 A\211\211A\242\211\205\303!\207\304 \207" [ivy-text ivy--directory-hist "" ivy--cd undo] 4 nil nil]) #@77 When point is at an issue in a Git-versioned file, return the issue string. (defalias 'counsel-at-git-issue-p #[0 "\303\304!\205!\305!\306=\204 \307>\204\310\302!\205!\n\205!\311\312!\207" [buffer-file-name major-mode magit-commit-mode looking-at "#[0-9]+" vc-backend Git (magit-commit-mode vc-git-log-view-mode) boundp match-string-no-properties 0] 2 (#$ . 70662)]) #@37 Return a Github issue URL at point. (defalias 'counsel-github-url-p #[0 "\300\301\302\"\205P\303 \211\205N\304\305!\306\211\307\310\"\203(\311\312\"\262\311\313\"\262\202;\307\314\"\203;\311\312\"\262\311\313\"\262\205L\315\316\312\306O$\211\262\266\203\262\207" [counsel-require-program "git" t counsel-at-git-issue-p shell-command-to-string "git remote get-url origin" nil string-match "\\`git@github.com:\\([^/]+\\)/\\(.*\\)\\.git$" match-string 1 2 "\\`https://github.com/\\([^/]+\\)/\\(.*\\)$" format "https://github.com/%s/%s/issues/%s"] 11 (#$ . 71043)]) #@38 Return a Debbugs issue URL at point. (defalias 'counsel-emacs-url-p #[0 "\300\301\302\"\205\"\303 \211\205 \304\305!\306\307\"\205\310\311\312\313O\"\262\262\207" [counsel-require-program "git" t counsel-at-git-issue-p shell-command-to-string "git remote get-url origin" string-match "git.sv.gnu.org:/srv/git/emacs.git" format "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s" 1 nil] 7 (#$ . 71634)]) #@1013 Map of regular expressions to expansions. This variable should take the form of a list of (REGEXP . FORMAT) pairs. `counsel-url-expand' will expand the word at point according to FORMAT for the first matching REGEXP. FORMAT can be either a string or a function. If it is a string, it will be used as the format string for the `format' function, with the word at point as the next argument. If it is a function, it will be called with the word at point as the sole argument. For example, a pair of the form: '("\`BSERV-[[:digit:]]+\'" . "https://jira.atlassian.com/browse/%s") will expand to URL `https://jira.atlassian.com/browse/BSERV-100' when the word at point is BSERV-100. If the format element is a function, more powerful transformations are possible. As an example, '("\`issue\([[:digit:]]+\)\'" . (lambda (word) (concat "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=" (match-string 1 word)))) trims the "issue" prefix from the word at point before creating the URL. (defvar counsel-url-expansions-alist nil (#$ . 72052)) #@265 Expand word at point using `counsel-url-expansions-alist'. The first pair in the list whose regexp matches the word at point will be expanded according to its format. This function is intended to be used in `ivy-ffap-url-functions' to browse the result as a URL. (defalias 'counsel-url-expand #[0 "\301 \211\205 \302\303\304\"\"\207" [counsel-url-expansions-alist current-word cl-some make-closure #[257 "\211@A\301\300\"\205\302!\203\211\300!\207\303\300\"\207" [V0 string-match functionp format] 6 "\n\n(fn PAIR)"]] 5 (#$ . 73126)]) #@126 Forward to `dired'. When INITIAL-INPUT is non-nil, use it in the minibuffer during completion. (fn &optional INITIAL-INPUT) (defalias 'counsel-dired #[256 "\301\302\303\304\305$)\207" [counsel--find-file-predicate file-directory-p counsel--find-file-1 "Dired (directory): " #[257 "\300\301!!\207" [dired expand-file-name] 4 "\n\n(fn D)"] counsel-dired] 6 (#$ . 73680) nil]) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [ivy-configure counsel-dired :parent read-file-name-internal custom-declare-variable counsel-recentf-include-xdg-list funcall function #[0 "\300\207" [nil] 1] "Include recently used files listed by XDG-compliant environments.\nExamples of such environments are GNOME and KDE. See the URL\n`https://www.freedesktop.org/wiki/Specifications/desktop-bookmark-spec'." :type boolean :link (url-link "https://www.freedesktop.org/wiki/Specifications/desktop-bookmark-spec")] 8) #@32 Find a file on `recentf-list'. (defalias 'counsel-recentf #[0 "\300\301!\210\302 \210\303\304\305 \306\307\310\311\312\313&\207" [require recentf recentf-mode ivy-read "Recentf: " counsel-recentf-candidates :action #[257 "\301\302!!r\303\304\"\216\305@\306\"\210\307!*\207" [ivy-last internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord find-file] 5 "\n\n(fn F)"] :require-match t :caller counsel-recentf] 9 (#$ . 74618) nil]) (byte-code "\300\301\302\303\304\305\306\307BBF\"\207" [ivy-set-actions counsel-recentf ("j" find-file-other-window "other window") ("f" find-file-other-frame "other frame") ("x" counsel-find-file-extern "open externally") "d" #[257 "\301\"\211\207" [recentf-list delete] 4 "\n\n(fn FILE)"] ("delete from recentf")] 8) #@179 Return candidates for `counsel-recentf'. When `counsel-recentf-include-xdg-list' is non-nil, also include the files in said list, sorting the combined list by file access time. (defalias 'counsel-recentf-candidates #[0 "\203 \303Y\203\304\305\306\307\n\"\310 \244\311\"!\207\306\307\n\"\207" [counsel-recentf-include-xdg-list emacs-major-version recentf-list 26 delete-dups sort mapcar substring-no-properties counsel--recentf-get-xdg-recent-files #[514 "\300!\203\301\207\300!\206\302\303\304!!\303\304!!\"\207" [file-remote-p nil time-less-p file-attribute-access-time file-attributes] 7 "\n\n(fn FILE1 FILE2)"]] 5 (#$ . 75481)]) (byte-code "\300\301\302\303!\203 \303 \202*\302\304!\2031\305\306\307\"r\211q\210\310\311\"\216\312c\210\304ed\"*\262\2031\313\2022\314\315#\207" [defalias counsel--xml-parse-region fboundp libxml-available-p libxml-parse-xml-region generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "" #[512 "\300\206e\206 d\"\207" [libxml-parse-xml-region] 5 "\n\n(fn &optional BEG END)"] xml-parse-region "Compatibility shim for `libxml-parse-xml-region'.\nFor convenience, BEG and END default to `point-min' and\n`point-max', respectively.\n\n(fn &optional BEG END)"] 6) #@224 Return list of XDG recent files. This information is parsed from the file "recently-used.xbel", which lists both files and directories, under `xdg-data-home'. This function uses the `dom' library from Emacs 25.1 or later. (defalias 'counsel--recentf-get-xdg-recent-files #[0 "\300\301\302\303#\204\f\304\305!\210\306\307\310 \"\311!\204\304\312\"\210\313\314\315\316\303\"r\211q\210\317\320\"\216\321!\210\322 *\262\323\324\"\237\262\"\207" [require dom nil t user-error "This function requires Emacs 25.1 or later" expand-file-name "recently-used.xbel" counsel--xdg-data-home file-readable-p "List of XDG recent files not found: %s" cl-mapcan #[257 "\300\211@:\203\211@A@\262\202\211A@\262\236A\301\302\"\203+\211G\303O\266\202\202-\262\304\305\"\306\307\305#\310!\205>\211C\207" [href "file://" string-prefix-p nil url-unhex-string t decode-coding-string utf-8 file-exists-p] 8 "\n\n(fn BOOKMARK-NODE)"] generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents counsel--xml-parse-region dom-by-tag bookmark] 7 (#$ . 76773)]) #@52 Return candidates for `counsel-buffer-or-recentf'. (defalias 'counsel-buffer-or-recentf-candidates #[0 "\300\301!\210\302 \210\303\304\305\306\307 \"\"\310\311\312\313\"\314 \"\"\207" [require recentf recentf-mode delq nil mapcar #[257 "\300!\205 \300!\207" [buffer-file-name] 3 "\n\n(fn B)"] buffer-list append cl-remove-if make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn F)"] counsel-recentf-candidates] 7 (#$ . 77909)]) #@58 Find a buffer visiting a file or file on `recentf-list'. (defalias 'counsel-buffer-or-recentf #[0 "\300\301\302 \303\304\305\306\307\310&\207" [ivy-read "Buffer File or Recentf: " counsel-buffer-or-recentf-candidates :action #[257 "\301\302!!r\303\304\"\216\305@\306\"\210\307!\203\310!\202 \311!*\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 bufferp switch-to-buffer find-file] 5 "\n\n(fn S)"] :require-match t :caller counsel-buffer-or-recentf] 9 (#$ . 78349) nil]) (byte-code "\300\301\302\303#\210\304\301\305\"\207" [ivy-configure counsel-buffer-or-recentf :display-transformer-fn counsel-buffer-or-recentf-transformer ivy-set-actions (("j" find-file-other-window "other window") ("f" find-file-other-frame "other frame") ("x" counsel-find-file-extern "open externally"))] 4) #@60 Propertize VAR if it's a buffer visiting a file. (fn VAR) (defalias 'counsel-buffer-or-recentf-transformer #[257 "\211\300\301\302 \"\235\203\303\304\"\207\207" [mapcar buffer-file-name buffer-list ivy-append-face ivy-highlight-face] 5 (#$ . 79271)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-bookmark-avoid-dired funcall function #[0 "\300\207" [nil] 1] "If non-nil, open directory bookmarks with `counsel-find-file'.\nBy default `counsel-bookmark' opens a dired buffer for directories." :type boolean] 6) #@73 Forward to `bookmark-jump' or `bookmark-set' if bookmark doesn't exist. (defalias 'counsel-bookmark #[0 "\300\301!\210\302\303\304 \305\306\307\310\311\312&\207" [require bookmark ivy-read "Create or jump to bookmark: " bookmark-all-names :history bookmark-history :action #[257 "\203,\211\303 \235\203,\304\305!!\203,\306\307 !!r\310\311\"\216\312@\313\"\210\305!\314 +\207\211\303 \235\203I\306\307 !!r\310\315\"\216\312@\313\"\210\316!*\207\317!\207" [counsel-bookmark-avoid-dired ivy-last default-directory bookmark-all-names file-directory-p bookmark-location internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord counsel-find-file #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] bookmark-jump bookmark-set] 5 "\n\n(fn X)"] :caller counsel-bookmark] 9 (#$ . 79832) nil]) #@66 Return a function applying FN to a bookmark's location. (fn FN) (defalias 'counsel--apply-bookmark-fn #[257 "\300\301\"\207" [make-closure #[257 "\300\301!!\207" [V0 bookmark-location] 4 "\n\n(fn BOOKMARK)"]] 4 (#$ . 80747)]) (byte-code "\300\301\302\303\304\305\306\307!\310BB\311\306\312!\313BB\257\"\207" [ivy-set-actions counsel-bookmark ("d" bookmark-delete "delete") ("e" bookmark-rename "edit") ("s" bookmark-set "overwrite") "x" counsel--apply-bookmark-fn counsel-find-file-extern ("open externally") "r" counsel-find-file-as-root ("open as root")] 9) #@59 Get a list of bookmarked directories sorted by file path. (defalias 'counsel-bookmarked-directory--candidates #[0 "\301 \210\302\303\304\305\306\307\310\"\"\"\311\"\207" [bookmark-alist bookmark-maybe-load-default-file sort cl-remove-if-not ivy--dirname-p delq nil mapcar bookmark-get-filename string<] 8 (#$ . 81317)]) #@162 Ivy interface for bookmarked directories. With a prefix argument, this command creates a new bookmark which points to the current value of `default-directory'. (defalias 'counsel-bookmarked-directory #[0 "\300\301!\210\302\303\304 \305\306\307\310&\207" [require bookmark ivy-read "Bookmarked directory: " counsel-bookmarked-directory--candidates :caller counsel-bookmarked-directory :action dired] 7 (#$ . 81645) nil]) (byte-code "\300\301\302\303\304\305\306\307BBF\"\207" [ivy-set-actions counsel-bookmarked-directory ("j" dired-other-window "other window") ("x" counsel-find-file-extern "open externally") ("r" counsel-find-file-as-root "open as root") "f" #[257 "\211\301\302!)\207" [default-directory call-interactively find-file] 3 "\n\n(fn DIR)"] ("find-file")] 8) #@258 Search file in register. You cannot use Emacs' normal register commands to create file registers. Instead you must use the `set-register' function like so: `(set-register ?i "/home/eric/.emacs.d/init.el")'. Now you can use `C-x r j i' to open that file. (defalias 'counsel-file-register #[0 "\301\302\303\304\"\305\306\307\310\311\310\312\313&\n\207" [register-alist ivy-read "File Register: " mapcar #[257 "\211A@\300=\205 \211AA\207" [file] 3 "\n\n(fn REGISTER-ALIST-ENTRY)"] :require-match t :history counsel-file-register :caller :action #[257 "\301\302!!r\303\304\"\216\305@\306\"\210\307!*\207" [ivy-last internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord find-file] 5 "\n\n(fn REGISTER-FILE)"]] 11 (#$ . 82428) nil]) (byte-code "\300\301\302\303#\210\304\301\305\"\210\306\307\310\311\312DD\313\314\315%\210\304\316\317\"\207" [ivy-configure counsel-file-register :sort-fn ivy-string< ivy-set-actions (("j" find-file-other-window "other window")) custom-declare-variable counsel-locate-cmd funcall function #[0 "\301>\203\302\207\303=\203\304\305!\203\306\207\307\207" [system-type (darwin berkeley-unix) counsel-locate-cmd-noregex windows-nt executable-find "es.exe" counsel-locate-cmd-es counsel-locate-cmd-default] 2] "The function for producing a `locate' command string from the input.\n\nThe function takes a string - the current input, and returns a\nstring - the full shell command to run." :type (choice (const :tag "Default" counsel-locate-cmd-default) (const :tag "No regex" counsel-locate-cmd-noregex) (const :tag "mdfind" counsel-locate-cmd-mdfind) (const :tag "everything" counsel-locate-cmd-es) (function :tag "Custom")) counsel-locate (("x" counsel-locate-action-extern "xdg-open") ("r" counsel-find-file-as-root "open as root") ("d" counsel-locate-action-dired "dired"))] 6) #@31 History for `counsel-locate'. (defvar counsel-locate-history nil (#$ . 84354)) #@67 Pass X to `xdg-open' or equivalent command via the shell. (fn X) (defalias 'counsel-locate-action-extern #[257 "\301=\203\302\303!\203\303\304\"\207\305\306\307\310\267\202\"\304\202#\311\202#\312\313!#\314\315#\207" [system-type windows-nt fboundp w32-shell-execute "open" call-process-shell-command format "%s %s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (darwin 26 cygwin 30)) "cygstart" "xdg-open" shell-quote-argument nil 0] 7 (#$ . 84439) "FFile: "]) (defalias 'counsel-find-file-extern 'counsel-locate-action-extern) #@32 Use `dired-jump' on X. (fn X) (defalias 'counsel-locate-action-dired #[257 "\300\301\"\207" [dired-jump nil] 4 (#$ . 85025)]) #@149 Return a `locate' shell command based on regexp INPUT. This uses the user option `locate-command' from the `locate' library, which see. (fn INPUT) (defalias 'counsel-locate-cmd-default #[257 "\301!\210\302\303\304\305\306!!!#\207" [locate-command counsel-require-program format "%s -i --regex %s" shell-quote-argument counsel--elisp-to-pcre ivy--regex] 8 (#$ . 85160)]) #@142 Return a `locate' shell command based on INPUT. This uses the user option `locate-command' from the `locate' library, which see. (fn INPUT) (defalias 'counsel-locate-cmd-noregex #[257 "\301!\210\302\303\304!#\207" [locate-command counsel-require-program format "%s -i %s" shell-quote-argument] 6 (#$ . 85542)]) #@61 Return a `mdfind' shell command based on INPUT. (fn INPUT) (defalias 'counsel-locate-cmd-mdfind #[257 "\300\301!\210\302\303\304!\"\207" [counsel-require-program "mdfind" format "mdfind -name %s" shell-quote-argument] 5 (#$ . 85863)]) #@57 Return a `es' shell command based on INPUT. (fn INPUT) (defalias 'counsel-locate-cmd-es #[257 "\302\303!\210\304\305\306\307\310\"!\"\311=\203#\312\301!\203#\313\314\304\315 \"!\"\207\207" [system-type w32-ansi-code-page counsel-require-program "es.exe" format "es.exe -i -p -r %s" counsel--elisp-to-pcre ivy--regex t windows-nt boundp encode-coding-string intern "cp%d"] 8 (#$ . 86106)]) #@61 Call a "locate" style shell command with INPUT. (fn INPUT) (defalias 'counsel-locate-function #[257 "\301 \206\f\302!!\210\303\207" [counsel-locate-cmd ivy-more-chars counsel--async-command ("" "working...")] 4 (#$ . 86507)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-locate-db-path funcall function #[0 "\300\207" [#1="~/.local/mlocate.db"] 1 #1#] "Location where to put the locatedb in case your home folder is encrypted." :type file] 6) #@81 Return non-nil if FNAME was modified more than SECONDS ago. (fn FNAME SECONDS) (defalias 'counsel-file-stale-p #[514 "\300\301\302\303\304!8\"!V\207" [float-time time-subtract nil 5 file-attributes] 8 (#$ . 87001)]) (defalias 'counsel--locate-updatedb #[0 "\301\302!\205.\303!\304\305\"\210\301!\203\306\307\"\205,\310\311\"\210\312\313\314\315\316\317\303\320!&\262\207" [counsel-locate-db-path file-exists-p "~/.Private" expand-file-name setenv "LOCATE_PATH" counsel-file-stale-p 60 message "Updating %s..." counsel--command "updatedb" "-l" "0" "-o" "-U" "~"] 10]) #@128 Call a "locate" style shell command. INITIAL-INPUT can be given as the initial minibuffer input. (fn &optional INITIAL-INPUT) (defalias 'counsel-locate #[256 "\300\301!\210\302 \210\303\304\305\306\307\310\311\312\313\314\315\316&\f\207" [require locate counsel--locate-updatedb ivy-read "Locate: " counsel-locate-function :initial-input :dynamic-collection t :history counsel-locate-history :action #[257 "\211\205\302\303!!r\304\305\"\216\306@\307\"\210\310\311 !P!*\262\207" [ivy-last default-directory internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord find-file file-remote-p] 5 "\n\n(fn FILE)"] :caller counsel-locate] 14 (#$ . 87591) nil]) (ivy-configure 'counsel-locate :unwind-fn 'counsel-delete-process :exit-codes '(1 "Nothing found")) #@58 Call the "tracker" shell command with INPUT. (fn INPUT) (defalias 'counsel-tracker-function #[257 "\301 \206\302\303\304\305!!\"!\210\306\207" [ivy--regex-function ivy-more-chars counsel--async-command format "tracker sparql -q \"SELECT ?url WHERE { ?s a nfo:FileDataObject ; nie:url ?url . FILTER (STRSTARTS (?url, 'file://$HOME/')) . FILTER regex(?url, '%s') }\" | tail -n +2 | head -n -1" counsel--elisp-to-pcre ("" "working...")] 7 (#$ . 88457)]) #@12 (fn STR) (defalias 'counsel-tracker-transformer #[257 "\300\301\"\203\302\303\304\305O!\306\"\207\207" [string-match "file:///" decode-coding-string url-unhex-string 9 nil utf-8] 6 (#$ . 88919)]) (defalias 'counsel-tracker #[0 "\300\301\302\303\304\305\306\307\310&\207" [ivy-read "Tracker: " counsel-tracker-function :dynamic-collection t :action #[257 "\300\301!!\207" [find-file counsel-tracker-transformer] 4 "\n\n(fn S)"] :caller counsel-tracker] 9 nil nil]) (ivy-configure 'counsel-tracker :display-transformer-fn 'counsel-tracker-transformer :unwind-fn 'counsel-delete-process) #@28 Command for `counsel-fzf'. (defvar counsel-fzf-cmd "fzf -f \"%s\"" (#$ . 89518)) #@31 Store the base fzf directory. (defvar counsel--fzf-dir nil (#$ . 89605)) #@51 Function that returns a directory for fzf to use. (defvar counsel-fzf-dir-function 'counsel-fzf-dir-function-projectile (#$ . 89684)) (defalias 'counsel-fzf-dir-function-projectile #[0 "\301\302!\203\301\303!\203\302 \203\303 \207\207" [default-directory fboundp projectile-project-p projectile-project-root] 2]) #@12 (fn STR) (defalias 'counsel-fzf-function #[257 "\304!\305\306 \"!\210)\307\207" [counsel--fzf-dir default-directory ivy--old-re counsel-fzf-cmd ivy--regex-fuzzy counsel--async-command format nil] 5 (#$ . 90010)]) #@299 Open a file using the fzf shell command. INITIAL-INPUT can be given as the initial minibuffer input. INITIAL-DIRECTORY, if non-nil, is used as the root directory for search. FZF-PROMPT, if non-nil, is passed as `ivy-read' prompt argument. (fn &optional INITIAL-INPUT INITIAL-DIRECTORY FZF-PROMPT) (defalias 'counsel-fzf #[768 "\303!\210\206\n \304\206\305\306\307\310\311\312\313\314\315\316\317&\f\207" [counsel-fzf-cmd counsel-fzf-dir-function counsel--fzf-dir counsel-require-program ivy-read "fzf: " counsel-fzf-function :initial-input :re-builder ivy--regex-fuzzy :dynamic-collection t :action counsel-fzf-action :caller counsel-fzf] 16 (#$ . 90237) (byte-code "\302!@\303 \205\304\305P!D\207" [counsel-fzf-cmd current-prefix-arg split-string nil counsel-read-directory-name " in directory: "] 5)]) (ivy-configure 'counsel-fzf :occur 'counsel-fzf-occur :unwind-fn 'counsel-delete-process :exit-codes '(1 "Nothing found")) #@47 Find file X in current fzf directory. (fn X) (defalias 'counsel-fzf-action #[257 "\303\304!!r\305\306\"\216\307@\310\"\210 \311!+\207" [ivy-last counsel--fzf-dir default-directory internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord find-file] 5 (#$ . 91185)]) #@86 Occur function for `counsel-fzf' using `counsel-cmd-to-dired'. (fn &optional CANDS) (defalias 'counsel-fzf-occur #[256 "\303!\210\304\305\306\307\306 \n\"\"!!\207" [counsel--fzf-dir counsel-fzf-cmd ivy-text cd counsel-cmd-to-dired counsel--expand-ls format "%s --print0 | xargs -0 ls"] 8 (#$ . 91560)]) (ivy-set-actions 'counsel-fzf '(("x" counsel-locate-action-extern "xdg-open") ("d" counsel-locate-action-dired "dired"))) #@32 Call the "dpkg" shell command. (defalias 'counsel-dpkg #[0 "\300\301!\210\302\303\304\305\306!\307\310#\"\311\312\313\314\315\316&\207" [counsel-require-program "dpkg" mapcar #[257 "\300\301\"\302\303\304A@\305\"\3068#\307\310\311#B\207" [split-string " +" format "%-40s %s" ivy--truncate-string 40 4 mapconcat identity " "] 7 "\n\n(fn X)"] split-string shell-command-to-string "dpkg -l | tail -n+6" "\n" t ivy-read "dpkg: " :action #[257 "\300A!\207" [message] 3 "\n\n(fn X)"] :caller counsel-dpkg] 8 (#$ . 91993) nil]) #@31 Call the "rpm" shell command. (defalias 'counsel-rpm #[0 "\300\301!\210\302\303\304\305\306!\307\310#\"\311\312\313\314\315\316&\207" [counsel-require-program "rpm" mapcar #[257 "\300\301\"\302\303\304@\305\"A@#\306\307\310#B\207" [split-string "|" format "%-40s %s" ivy--truncate-string 40 mapconcat identity " "] 7 "\n\n(fn X)"] split-string shell-command-to-string "rpm -qa --qf \"%{NAME}|%{SUMMARY}\\n\"" "\n" t ivy-read "rpm: " :action #[257 "\300A!\207" [message] 3 "\n\n(fn X)"] :caller counsel-rpm] 8 (#$ . 92530) nil]) #@13 (fn ARGS) (defalias 'counsel--find-return-list #[257 "\211<\204 \301\302!\210\303B\304\"\207" [find-program user-error "`counsel-file-jump-args' is a list now; please customize accordingly" counsel--call #[0 "\300eb\210`dW\203#\301\302!\203\303\225b\210`\304 {B\262\305\306!\210\202\211\237\207" [nil looking-at "\\./" 0 line-end-position beginning-of-line 2] 3]] 4 (#$ . 93073)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-file-jump-args funcall function #[0 "\300\301!\207" [split-string ". -name .git -prune -o -type f -print"] 2] "Arguments for the `find-command' when using `counsel-file-jump'." :type (repeat string)] 6) #@57 Key bindings to be used when in a file-jump minibuffer. (defvar counsel-file-jump-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key "`" counsel-find-file-from-jump] 5) (#$ . 93761)) #@57 Switch to `counsel-find-file' from `counsel-file-jump'. (defalias 'counsel-find-file-from-jump #[0 "\300\301\302\303#\210\304\305\211\306#\210\307 \207" [put quit error-message "" run-at-time nil #[0 "\302\303\304\305#\210\3061\307 \310H\"0\207\311\312\"\210\313\207" [ivy-text ivy-last put quit error-message "Quit" (debug error) counsel-find-file 21 message "Error: %S" nil] 4] abort-recursive-edit] 4 (#$ . 93975) nil]) #@301 Jump to a file below the current directory. List all files within the current directory or any of its sub-directories. INITIAL-INPUT can be given as the initial minibuffer input. INITIAL-DIRECTORY, if non-nil, is used as the root directory for search. (fn &optional INITIAL-INPUT INITIAL-DIRECTORY) (defalias 'counsel-file-jump #[512 "\304!\210\211\206 \305\306\307\n!\310\311\312\313\314\315\316 \317\320\321\322\323 \324\325&)\207" [find-program default-directory counsel-file-jump-args counsel-file-jump-map counsel-require-program ivy-read "Find file: " counsel--find-return-list :matcher counsel--find-file-matcher :initial-input :action find-file :preselect counsel--preselect-file :require-match confirm-after-completion :history file-name-history :keymap :caller counsel-file-jump] 21 (#$ . 94409) (byte-code "\301\205\302\303!D\207" [current-prefix-arg nil counsel-read-directory-name "From directory: "] 3)]) (byte-code "\300\301\302\303\304BBC\"\210\305\306\307\310\311DD\312\313\314%\207" [ivy-set-actions counsel-file-jump "d" #[257 "\301\302!\206!\207" [default-directory dired file-name-directory] 4 "\n\n(fn X)"] ("open in dired") custom-declare-variable counsel-dired-jump-args funcall function #[0 "\300\301!\207" [split-string ". -name .git -prune -o -type d -print"] 2] "Arguments for the `find-command' when using `counsel-dired-jump'." :type (repeat string)] 6) #@305 Jump to a directory (see `dired-jump') below the current directory. List all sub-directories within the current directory. INITIAL-INPUT can be given as the initial minibuffer input. INITIAL-DIRECTORY, if non-nil, is used as the root directory for search. (fn &optional INITIAL-INPUT INITIAL-DIRECTORY) (defalias 'counsel-dired-jump #[512 "\304!\210\211\206 \305\306\307\n!A\310\311\312\313\314\315\316\317 \320\321&)\207" [find-program default-directory counsel-dired-jump-args counsel-find-file-map counsel-require-program ivy-read "Find directory: " counsel--find-return-list :matcher counsel--find-file-matcher :initial-input :action #[257 "\300\301\302!\"\207" [dired-jump nil expand-file-name] 5 "\n\n(fn D)"] :history file-name-history :keymap :caller counsel-dired-jump] 17 (#$ . 95815) (byte-code "\301\205\302\303!D\207" [current-prefix-arg nil counsel-read-directory-name "From directory: "] 3)]) (defvar counsel-ag-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\207" [make-sparse-keymap define-key "\f" ivy-call-and-recenter [134217841] counsel-git-grep-query-replace [67108903] swiper-avy "" counsel-cd] 5)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable counsel-ag-base-command funcall function #[0 "\300\301\302E\207" ["ag" "--vimgrep" "%s"] 3] "Template for default `counsel-ag' command.\nThe value should be either a list of strings, starting with the\n`ag' executable file name and followed by its arguments, or a\nsingle string describing a full `ag' shell command.\n\nIf the command is specified as a list, `ag' is called directly\nusing `process-file'; otherwise, it is called as a shell command.\nCalling `ag' directly avoids various shell quoting pitfalls, so\nit is generally recommended.\n\nIf the string \"%s\" appears as an element of the list, or as a\nsubstring of the command string, it is replaced by any optional\n`ag' arguments followed by the search regexp specified during the\n`counsel-ag' session." :package-version (counsel . "0.14.0") :type (choice (repeat :tag "Command list to call directly" string) (string :tag "Shell command"))] 8) (defvar counsel-ag-command nil) (defvar counsel--grep-tool-look-around t) (defvar counsel--regex-look-around nil) (defconst counsel--command-args-separator " -- ") #@137 Split ARGUMENTS into its switches and search-term parts. Return pair of corresponding strings (SWITCHES . SEARCH-TERM). (fn ARGUMENTS) (defalias 'counsel--split-command-args #[257 "\301\"\203 \211\302\225\303O\302\211\224O\304\305\"\203\211B\207B\207\306B\207" [counsel--command-args-separator string-match 0 nil string-prefix-p "-" ""] 6 (#$ . 98163)]) #@161 Construct a complete `counsel-ag-command' as a string. EXTRA-ARGS is a string of the additional arguments. NEEDLE is the search string. (fn EXTRA-ARGS NEEDLE) (defalias 'counsel--format-ag-command #[514 "\301\211<\203&\302\303\"\203\301\304\305\306\307\211 \310%!\"\202<\304!\244\202<\302\303\"\2038\305\307\211\310%\202<\311Q\"\207" [counsel-ag-command counsel--format string-match " \\(--\\) " split-string replace-match "%s" t 1 " "] 12 (#$ . 98536)]) #@12 (fn STR) (defalias 'counsel--grep-regex #[257 "\303\304H!\211\n\"\207" [ivy-last ivy--old-re counsel--regex-look-around counsel--elisp-to-pcre 17] 4 (#$ . 99017)]) #@62 Get additional switches needed for look-arounds. (fn REGEX) (defalias 'counsel--ag-extra-switches #[257 ";\205\302\303\304\305#)\266\203\205\306\306Q\207" [counsel--regex-look-around inhibit-changing-match-data "\\`\\^(\\?[=!]" nil t string-match " "] 8 (#$ . 99192)]) #@56 Grep in the current directory for STRING. (fn STRING) (defalias 'counsel-ag-function #[257 "\304!\211A\211\305 )\206; \306H\307!\310!\203\311\202\312\313!@Q\314\315 <\2031\316\2022\317!\"!\210)\266\320\207" [ivy-text ivy-last default-directory counsel-ag-command counsel--split-command-args ivy-more-chars 21 counsel--grep-regex ivy--case-fold-p " -i " " -s " counsel--ag-extra-switches counsel--async-command counsel--format-ag-command identity shell-quote-argument nil] 10 (#$ . 99479)]) #@709 Grep for a string in a root directory using `ag'. By default, the root directory is the first directory containing a .git subdirectory. INITIAL-INPUT can be given as the initial minibuffer input. INITIAL-DIRECTORY, if non-nil, is used as the root directory for search. EXTRA-AG-ARGS, if non-nil, is appended to `counsel-ag-base-command'. AG-PROMPT, if non-nil, is passed as `ivy-read' prompt argument. CALLER is passed to `ivy-read'. With a `\[universal-argument]' prefix argument, prompt for INITIAL-DIRECTORY. With a `\[universal-argument] \[universal-argument]' prefix argument, prompt additionally for EXTRA-AG-ARGS. (fn &optional INITIAL-INPUT INITIAL-DIRECTORY EXTRA-AG-ARGS AG-PROMPT &key CALLER) (defalias 'counsel-ag #[1152 "\306\307\"A@\211\2031\211@\310>\203\211AA\262\202\311>A@\203(\312\262\202\313\314@\"\210\202\210\n\315 !\210 <\203C \202F\316 !@\317\f!\211\320Y\203\\\206Z\321\322P!\262\211\323Y\203n\206l\324\325\326\"!\262\327\206u\330\331\"\206\203\332 \206\203 \333\206\214\334P\335\336 \337\340\341(\342\343\344\345\346\340\307\206\242\347&)\207" [counsel-ag-base-command counsel-ag-command counsel--grep-tool-look-around counsel--regex-look-around current-prefix-arg default-directory plist-member :caller (:caller :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:caller)" counsel-require-program split-string prefix-numeric-value 4 counsel-read-directory-name " in directory: " 16 read-from-minibuffer format "%s args: " counsel--format-ag-command "" "%s" counsel--git-root ivy-read ": " counsel-ag-function :initial-input :dynamic-collection t :keymap :history counsel-git-grep-history :action counsel-git-grep-action :require-match counsel-ag counsel-ag-map] 25 (#$ . 99994) nil]) (ivy-configure 'counsel-ag :occur 'counsel-ag-occur :unwind-fn 'counsel--grep-unwind :display-transformer-fn 'counsel-git-grep-transformer :grep-p t :exit-codes '(1 "No matches found")) #@115 Read a directory name from user, a (partial) replacement of `read-directory-name'. (fn PROMPT &optional DEFAULT) (defalias 'counsel-read-directory-name #[513 "\302\303\304\305\306\307\310\311\312 \313\314&\f)\207" [counsel--find-file-predicate counsel-find-file-map file-directory-p ivy-read read-file-name-internal :matcher counsel--find-file-matcher :def :history file-name-history :keymap :caller counsel-read-directory-name] 15 (#$ . 101980)]) (ivy-configure 'counsel-read-directory-name :parent 'read-file-name-internal) #@120 Change the directory for the currently running Ivy grep-like command. Works for `counsel-git-grep', `counsel-ag', etc. (defalias 'counsel-cd #[0 "\303 \210\304\305\n\306H!\211\205\307!\310\311\"\312\313\314\315#\210\316\317\211\320\321##\210\322 )\207" [ivy-text enable-recursive-minibuffers ivy-last counsel-delete-process t buffer-file-name 13 file-name-directory counsel-read-directory-name "cd: " put quit error-message "" run-at-time nil make-closure #[0 "\303\304\305\306#\210\3071\n\310H\300\301\"0\207\311\312\"\210\313\207" [V0 V1 ivy-last put quit error-message "Quit" (debug error) 22 message "Error: %S" nil] 4] abort-recursive-edit] 11 (#$ . 102518) nil]) (defalias 'counsel--grep-smart-case-flag #[0 "\303!\203\304\207 ;\203\305 \306\307\310#)\266\203\203\311\207\312\207" [ivy-text counsel-ag-base-command inhibit-changing-match-data ivy--case-fold-p "-i" "\\`pt" nil t string-match "-S" "-s"] 7]) #@21 (fn CMD-TEMPLATE) (defalias 'counsel-grep-like-occur #[257 "\305=\204 \305 \210 \306H\307\310\311\312 \"\203\313\314\312 \"\202! \315H!\210\316!\203/\211\f!\202k\317\f!\320A!\321!\322@\205C\323@!\205J\323!\324 D#;\203a\325\326\327\330#\"\266\204\202k\331\332\333\"\"\266\204\334;\203w\335!\202z\336!!\337\340\341\"!\207" [major-mode ivy-last default-directory ivy-occur-last ivy-text ivy-occur-grep-mode 21 ivy-set-text string-match "\"\\(.*\\)\"" buffer-name match-string 1 14 functionp counsel--split-command-args counsel--grep-regex counsel--ag-extra-switches append split-string counsel--grep-smart-case-flag counsel--format mapconcat shell-quote-argument " " cl-mapcan make-closure #[257 "\211\301\230\203\n\302\300!\207\211C\207" [V0 "%s" copy-sequence] 3 "\n\n(fn X)"] counsel--split-string shell-command-to-string counsel--call swiper--occur-insert-lines mapcar counsel--normalize-grep-match] 11 (#$ . 103461)]) #@72 Generate a custom occur buffer for `counsel-ag'. (fn &optional CANDS) (defalias 'counsel-ag-occur #[256 "\301!\207" [counsel-ag-command counsel-grep-like-occur] 3 (#$ . 104422)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-pt-base-command funcall function #[0 "\300\207" [#1="pt --nocolor --nogroup -e %s"] 1 #1#] "Alternative to `counsel-ag-base-command' using pt." :type string] 6) #@236 Grep for a string in the current directory using pt. INITIAL-INPUT can be given as the initial minibuffer input. This uses `counsel-ag' with `counsel-pt-base-command' instead of `counsel-ag-base-command'. (fn &optional INITIAL-INPUT) (defalias 'counsel-pt #[256 "\303\304\303\211\211\305\306&*\207" [counsel-pt-base-command counsel--grep-tool-look-around counsel-ag-base-command nil counsel-ag :caller counsel-pt] 8 (#$ . 104857) nil]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\207" [ivy-configure counsel-pt :unwind-fn counsel--grep-unwind :display-transformer-fn counsel-git-grep-transformer :grep-p t custom-declare-variable counsel-ack-base-command funcall function #[0 "\300\301\302!\206\303!\304P\207" [file-name-nondirectory executable-find "ack-grep" "ack" " --nocolor --nogroup %s"] 3] "Alternative to `counsel-ag-base-command' using ack." :type string] 8) #@237 Grep for a string in the current directory using ack. INITIAL-INPUT can be given as the initial minibuffer input. This uses `counsel-ag' with `counsel-ack-base-command' replacing `counsel-ag-base-command'. (fn &optional INITIAL-INPUT) (defalias 'counsel-ack #[256 "\303\304\305\211\211\306\307&*\207" [counsel-ack-base-command counsel--grep-tool-look-around counsel-ag-base-command t counsel-ag nil :caller counsel-ack] 8 (#$ . 105782) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable counsel-rg-base-command funcall function #[0 "\301\302\303\304\305\306\307\310\311\312>\205\313\314\315EBBBBBBBBB\207" [system-type "rg" "--max-columns" "240" "--with-filename" "--no-heading" "--line-number" "--color" "never" "%s" (ms-dos windows-nt) "--path-separator" "/" "."] 12] "Like `counsel-ag-base-command', but for `counsel-rg'.\n\nNote: don't use single quotes for the regexp." :package-version (counsel . "0.14.0") :type (choice (repeat :tag "Command list to call directly" string) (string :tag "Shell command"))] 8) #@68 Return a list of files to operate on, based on `dired-mode' marks. (defalias 'counsel--rg-targets #[0 "\302=\2053\303\304\305\211\306$\211A\204-\307\310 \305\306\311#)\266\203\2051\312 \210\303\304!\262\312 \210\313\306\"\262\207" [major-mode inhibit-changing-match-data dired-mode dired-get-marked-files no-dir nil t "\\*ivy-occur" buffer-name string-match dired-toggle-marks delq] 8 (#$ . 106854)]) #@484 Grep for a string in the current directory using `rg'. INITIAL-INPUT can be given as the initial minibuffer input. INITIAL-DIRECTORY, if non-nil, is used as the root directory for search. EXTRA-RG-ARGS string, if non-nil, is appended to `counsel-rg-base-command'. RG-PROMPT, if non-nil, is passed as `ivy-read' prompt argument. Example input with inclusion and exclusion file patterns: require i -- -g*.el (fn &optional INITIAL-INPUT INITIAL-DIRECTORY EXTRA-RG-ARGS RG-PROMPT) (defalias 'counsel-rg #[1024 "<\203 \303\304 \"\202\305\306\307\304 \305#Q<\203\202\"\310!@\311\312\211\211\313\314&\315=\2052\313\262\316\317\320&*\207" [counsel-rg-base-command counsel--grep-tool-look-around counsel-ag-base-command append counsel--rg-targets " " mapconcat shell-quote-argument split-string call-process nil "--pcre2" "--pcre2-version" 0 counsel-ag :caller counsel-rg] 13 (#$ . 107273) nil]) (ivy-configure 'counsel-rg :occur 'counsel-ag-occur :unwind-fn 'counsel--grep-unwind :display-transformer-fn 'counsel-git-grep-transformer :grep-p t :exit-codes '(1 "No matches found")) (defvar counsel-grep-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\207" [make-sparse-keymap define-key "\f" ivy-call-and-recenter [134217841] swiper-query-replace [67108903] swiper-avy] 5)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-grep-base-command funcall function #[0 "\300\207" [#1="grep -E -n -e %s %s"] 1 #1#] "Format string used by `counsel-grep' to build a shell command.\nIt should contain two %-sequences (see function `format') to be\nsubstituted by the search regexp and file, respectively. Neither\n%-sequence should be contained in single quotes." :type string] 6) (defvar counsel-grep-command nil) #@56 Grep in the current directory for STRING. (fn STRING) (defalias 'counsel-grep-function #[257 "\301 \206@\302!\303\211<\203\304\202\305!\"\306\307!\203;<\203-@\310DA\244\202<\311\312\"\210\313\314\315\211$\202<!\266\315\207" [counsel-grep-command ivy-more-chars counsel--grep-regex counsel--format identity shell-quote-argument counsel--async-command ivy--case-fold-p "-i" string-match " " replace-match " -i " nil] 9 (#$ . 109069)]) #@242 Store the last point and line that `counsel-grep-action' scrolled to. This speeds up scrolling: instead of going to `point-min' and `forward-line' with a huge arg (e.g. to scroll 50K lines), scroll relative to the last position stored here. (defvar counsel--grep-last-pos nil (#$ . 109530)) #@28 Go to candidate X. (fn X) (defalias 'counsel-grep-action #[257 "\306\307!!r\310\311\"\216\312@\313\"\210\314 \210\315\316H!\317\211\320\321\"\2037\322\323H!\262\324\325\"\211\262\202N\320\326\"\205\261\324\325\"\262\324\327\"\211\262\205\261r\330!\206[\331!q\210\332!\262\n\203v`\n@U\203v\211\nAZy\210\202}eb\210\211Sy\210`B\333\334 \335\"\336 \335#\203\225\f\203\225\337\224b\210\340\341!\210 \342=\203\244\343 \202\260\344\345 \336 \"\210\346\334 !!))\266\203*\207" [ivy-last default-directory counsel--grep-last-pos ivy-text swiper-goto-start-of-match ivy-exit internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord swiper--cleanup file-name-directory 21 nil string-match "\\`\\([0-9]+\\):\\(.*\\)\\'" buffer-file-name 13 match-string-no-properties 1 "\\`\\([^:]+\\):\\([0-9]+\\):\\(.*\\)\\'" 2 get-file-buffer find-file string-to-number re-search-forward ivy--regex t line-end-position 0 run-hooks counsel-grep-post-action-hook done swiper--ensure-visible isearch-range-invisible line-beginning-position swiper--add-overlays] 9 (#$ . 109827)]) #@74 Generate a custom occur buffer for `counsel-grep'. (fn &optional CANDS) (defalias 'counsel-grep-occur #[256 "\301\302\303\304\305\306\307H!!!\"!\207" [ivy-last counsel-grep-like-occur format "grep -niE %%s %s /dev/null" shell-quote-argument file-name-nondirectory buffer-file-name 13] 9 (#$ . 111021)]) #@29 History for `counsel-grep'. (defvar counsel-grep-history nil (#$ . 111332)) #@151 Grep for a string in the file visited by the current buffer. When non-nil, INITIAL-INPUT is the initial search pattern. (fn &optional INITIAL-INPUT) (defalias 'counsel-grep #[256 "\204\305\306!\210\307 !\210\310 \311 <\203\312\202\313\314!!#\315!`\316C\317\320#\216\211\321\322\323\324\325\326\327\326\330\331 \332 Z\333W\205P\334\335\336 \337\340\332 \331 \"!#\341\f\342\343\344\345\346\347\350\351&\240*\207" [buffer-file-name counsel-grep-base-command counsel-grep-command default-directory counsel-grep-map user-error "Current buffer is not visiting a file" counsel-require-program counsel--format "%s" identity shell-quote-argument file-name-nondirectory file-name-directory nil make-closure #[0 "\301\242?\205\300b\207" [V0 V1] 1] ivy-read "grep: " counsel-grep-function :initial-input :dynamic-collection t :require-match :preselect line-end-position line-beginning-position 300 format "%d:%s" line-number-at-pos regexp-quote buffer-substring-no-properties :keymap :history counsel-grep-history :re-builder ivy--regex :action counsel-grep-action :caller counsel-grep] 26 (#$ . 111415) nil]) (ivy-configure 'counsel-grep :update-fn 'auto :unwind-fn 'counsel--grep-unwind :index-fn 'ivy-recompute-index-swiper-async :occur 'counsel-grep-occur :more-chars 2 :grep-p t :exit-codes '(1 "")) #@195 Grep for a string in the file visited by the current buffer going backward similar to `swiper-backward'. When non-nil, INITIAL-INPUT is the initial search pattern. (fn &optional INITIAL-INPUT) (defalias 'counsel-grep-backward #[256 "\301\302!)\207" [ivy-index-functions-alist ((counsel-grep . ivy-recompute-index-swiper-async-backward)) counsel-grep] 3 (#$ . 112736) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable counsel-grep-swiper-limit funcall function #[0 "\300\207" [300000] 1] "Buffer size threshold for `counsel-grep-or-swiper'.\nWhen the number of characters in a buffer exceeds this threshold,\n`counsel-grep' will be used instead of `swiper'." :type integer counsel-grep-use-swiper-p #[0 "\300\207" [counsel-grep-use-swiper-p-default] 1] "When this function returns non-nil, call `swiper', else `counsel-grep'." (choice (const :tag "Rely on `counsel-grep-swiper-limit'." counsel-grep-use-swiper-p-default) (const :tag "Always use `counsel-grep'." ignore) (function :tag "Custom"))] 6) (defalias 'counsel-grep-use-swiper-p-default #[0 "\302  \303=\203 \304\202\305\245X\207" [counsel-grep-swiper-limit major-mode buffer-size org-mode 4 1] 4]) #@157 Call `swiper' for small buffers and `counsel-grep' for large ones. When non-nil, INITIAL-INPUT is the initial search pattern. (fn &optional INITIAL-INPUT) (defalias 'counsel-grep-or-swiper #[256 "\203*deZ\302 U\203*\3031\304!0\202\210\202\204*\305!\204* \203.\306!\207\307!\2037\310 \210\311!\207" [buffer-file-name counsel-grep-use-swiper-p buffer-size (error) file-remote-p jka-compr-get-compression-info swiper file-writable-p save-buffer counsel-grep] 3 (#$ . 113979) nil]) #@176 Call `swiper-backward' for small buffers and `counsel-grep-backward' for large ones. When non-nil, INITIAL-INPUT is the initial search pattern. (fn &optional INITIAL-INPUT) (defalias 'counsel-grep-or-swiper-backward #[256 "\301\302!)\207" [ivy-index-functions-alist ((swiper . ivy-recompute-index-swiper-backward) (counsel-grep . ivy-recompute-index-swiper-async-backward)) counsel-grep-or-swiper] 3 (#$ . 114484) nil]) #@31 Run recoll for STR. (fn STR) (defalias 'counsel-recoll-function #[257 "\300 \206\301\302\303\304!\"!\210\305\207" [ivy-more-chars counsel--async-command format "recoll -t -b %s" shell-quote-argument nil] 6 (#$ . 114914)]) #@232 Search for a string in the recoll database. You'll be given a list of files that match. Selecting a file will launch `swiper' for that file. INITIAL-INPUT can be given as the initial minibuffer input. (fn &optional INITIAL-INPUT) (defalias 'counsel-recoll #[256 "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315&\f\207" [counsel-require-program "recoll" ivy-read "recoll: " counsel-recoll-function :initial-input :dynamic-collection t :history counsel-git-grep-history :action #[257 "\301\302\"\205\303\304\"\305!\210\301\306\"?\205\307!\262\207" [ivy-text string-match "file://\\(.*\\)\\'" match-string 1 find-file "pdf$" swiper] 5 "\n\n(fn X)"] :caller counsel-recoll] 14 (#$ . 115147) nil]) (ivy-configure 'counsel-recoll :unwind-fn 'counsel-delete-process) #@33 Store the current list of tags. (defvar counsel-org-tags nil (#$ . 115939)) (defalias 'counsel--org-make-tag-string #[0 "\300\301!\203 \301\302 !\207\303 \207" [fboundp org-make-tag-string counsel--org-get-tags org-get-tags-string] 2]) #@57 Change tags of current org headline to TAGS. (fn TAGS) (defalias 'counsel-org-change-tags #[257 "\305 i\306\307\310!\210\311!\203\312\225`ZS\206\310\262\313\232\203%\313\232\204\262\314\315\316!\317Q\320 \321#\203\256\313\232\203B\312\224\312\225|\210\202\262\312\224b\210i\322\301!\203Y \203Y\nSS_\202Z\312`Sf\323=\203g`T\202h` \211\312V\203t[\202u\\T\312V\203\202\202\211[\324\n!Z]\325\312Z]\326\" P\327\321\211#\210\203\251\f\203\251\330`\"\210\266\202\262\331\332!\210\333!\207" [org-outline-regexp org-indent-mode org-indent-indentation-per-level org-tags-column indent-tabs-mode counsel--org-make-tag-string nil beginning-of-line 1 looking-at 0 "" re-search-forward "\\([ ]*" regexp-quote "\\)[ ]*$" line-end-position t boundp 42 string-width make-string 32 replace-match tabify error "Tags alignment failed" org-move-to-column] 14 (#$ . 116182)]) #@57 Set tags of current org headline to `counsel-org-tags'. (defalias 'counsel-org--set-tags #[0 "\301\203\302\303\304\305\306#\"\202\307!\207" [counsel-org-tags counsel-org-change-tags format ":%s:" mapconcat identity ":" ""] 7 (#$ . 117089)]) #@233 Add tag X to `counsel-org-tags'. If X is already part of the list, remove it instead. Quit the selection if X is selected by either `ivy-done', `ivy-alt-done' or `ivy-immediate-done', otherwise continue prompting for tags. (fn X) (defalias 'counsel-org-tag-action #[257 "\211\235\203\306\"\202&\211\307\232\204&\310C\"\211 \235\204&\310 C\"\311 \n\211\312I\266\313P\210\f\314\267\202\246 \315=\203\203 \204Z\316\317!\206M\320 r\321!q\210\211b\210\322 )\207\323! \211\205\202\211@r\321!q\210\212\211b\210\324\310\325 \"!\322 \210*A\266\202\202_\207\322 \210\211\235?\205\221\326\327\"\207\330\331 !r\332\333\"\216\334@\335\"\210\336 *\207\337\207" [counsel-org-tags ivy--all-candidates ivy-last ivy--prompt this-command major-mode delete "" append counsel-org-tag-prompt 1 "%-4d " #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ivy-done 58 ivy-alt-done 58 ivy-immediate-done 58 ivy-call 146)) org-agenda-mode org-get-at-bol org-hd-marker org-agenda-error marker-buffer counsel-org--set-tags copy-sequence delete-dups counsel--org-get-tags message "Tag %S has been removed." internal--before-with-selected-window active-minibuffer-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord delete-minibuffer-contents nil org-agenda-bulk-marked-entries] 8 (#$ . 117343)]) #@38 Return prompt for `counsel-org-tag'. (defalias 'counsel-org-tag-prompt #[0 "\301\302\303\304\305#\"\207" [counsel-org-tags format "Tags (%s): " mapconcat identity ", "] 6 (#$ . 118745)]) (defalias 'counsel--org-get-tags #[0 "\300\301\3021\303\304\305\"0\202\210\303 \"\207" [delete "" (error) org-get-tags nil t] 5]) #@35 Add or remove tags in `org-mode'. (defalias 'counsel-org-tag #[0 "\212\306=\203) \203\307\2025\310\311!\206\312 r\313!q\210\211b\210\314 )\210\2025\315 \2042\316\317!\210\314 \320 \204@\306=\205D\321\322 !\323\305!?\205L\f\323\305!\203V \202X\206]\324 #\325\326 \327\330\331\332\333\334\335&*\207" [major-mode org-agenda-bulk-marked-entries counsel-org-tags org-complete-tags-always-offer-all-agenda-tags org-tag-persistent-alist org-current-tag-alist org-agenda-mode nil org-get-at-bol org-hd-marker org-agenda-error marker-buffer counsel--org-get-tags org-at-heading-p org-back-to-heading t append org-global-tags-completion-table org-agenda-files boundp org-get-buffer-tags ivy-read counsel-org-tag-prompt #[771 "\300\301\302\"!\207" [delete-dups all-completions org-tags-completion-function] 7 "\n\n(fn STR PRED ACTION)"] :history org-tags-history :action counsel-org-tag-action :caller counsel-org-tag org-tag-alist org-last-tags-completion-table] 9 (#$ . 119073) nil]) #@39 Set tags for the current agenda item. (defalias 'counsel-org-tag-agenda #[0 "\301\302\"\203 \303\202\f\304\211K\305\306#\216\307M\210\310 )\207" [org-version version< "9.2" org-set-tags org-set-tags-command make-closure #[0 "\300\301M\207" [V0 V1] 2] counsel-org-tag org-agenda-set-tags] 6 (#$ . 120080) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\307%\210\300\313\302\303\314DD\315\306\307%\210\300\316\302\303\317DD\320\306\307%\210\300\321\302\303\322DD\323\306\307%\210\324\325\326\"\210\300\327\302\303\330DD\331\306\332%\207" [custom-declare-variable counsel-org-headline-display-tags funcall function #[0 "\300\207" [nil] 1] "If non-nil, display tags in matched `org-mode' headlines." :type boolean counsel-org-headline-display-todo #[0 "\300\207" [nil] 1] "If non-nil, display todo keywords in matched `org-mode' headlines." counsel-org-headline-display-priority #[0 "\300\207" [nil] 1] "If non-nil, display priorities in matched `org-mode' headlines." counsel-org-headline-display-comment #[0 "\300\207" [nil] 1] "If non-nil, display COMMENT string in matched `org-mode' headlines." counsel-org-headline-display-statistics #[0 "\300\207" [nil] 1] "If non-nil, display statistics cookie in matched `org-mode' headlines." defalias counsel-org-goto counsel-outline counsel-org-goto-all-outline-path-prefix #[0 "\300\207" [nil] 1] "Prefix for outline candidates in `counsel-org-goto-all'." (choice (const :tag "None" nil) (const :tag "File name" file-name) (const :tag "File name (nondirectory part)" file-name-nondirectory) (const :tag "Buffer name" buffer-name))] 6) (defalias 'counsel-org-goto-all--outline-path-prefix #[0 "\302\267\202 \207\303 !\207\304 \207\305\207" [counsel-org-goto-all-outline-path-prefix buffer-file-name #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file-name 6 file-name-nondirectory 8 buffer-name 12)) file-name-nondirectory buffer-name nil] 2]) #@2189 Alist mapping major modes to their `counsel-outline' settings. Each entry is a pair (MAJOR-MODE . PLIST). `counsel-outline' checks whether an entry exists for the current buffer's MAJOR-MODE and, if so, loads the settings specified by PLIST instead of the default settings. The following settings are recognized: - `:outline-regexp' is a regexp to match the beginning of an outline heading. It is only checked at the start of a line and so need not start with "^". Defaults to the value of the variable `outline-regexp'. - `:outline-level' is a function of no arguments which computes the level of an outline heading. It is called with point at the beginning of `outline-regexp' and with the match data corresponding to `outline-regexp'. Defaults to the value of the variable `outline-level'. - `:outline-title' is a function of no arguments which returns the title of an outline heading. It is called with point at the end of `outline-regexp' and with the match data corresponding to `outline-regexp'. Defaults to the function `counsel-outline-title'. - `:action' is a function of one argument, the selected outline heading to jump to. This setting corresponds directly to its eponymous `ivy-read' keyword, as used by `counsel-outline', so the type of the function's argument depends on the value returned by `counsel-outline-candidates'. Defaults to the function `counsel-outline-action'. - `:history' is a history list, usually a symbol representing a history list variable. It corresponds directly to its eponymous `ivy-read' keyword, as used by `counsel-outline'. Defaults to the symbol `counsel-outline-history'. - `:caller' is a symbol to uniquely identify the caller to `ivy-read'. It corresponds directly to its eponymous `ivy-read' keyword, as used by `counsel-outline'. Defaults to the symbol `counsel-outline'. - `:display-style' overrides the variable `counsel-outline-display-style'. - `:path-separator' overrides the variable `counsel-outline-path-separator'. - `:face-style' overrides the variable `counsel-outline-face-style'. - `:custom-faces' overrides the variable `counsel-outline-custom-faces'. (defvar counsel-outline-settings '((emacs-lisp-mode :outline-regexp ";;[;*]+[ ]+" :outline-level counsel-outline-level-emacs-lisp) (org-mode :outline-title counsel-outline-title-org :action counsel-org-goto-action :history counsel-org-goto-history :caller counsel-org-goto) (markdown-mode :outline-title counsel-outline-title-markdown) (latex-mode :outline-title counsel-outline-title-latex)) (#$ . 122062)) #@45 Go to a different location in any org file. (defalias 'counsel-org-goto-all #[0 "\301\302 \211\203'\211@r\211q\210\303\304!\203\305\304\236A\306 \"\244\262)A\266\202\202\210\307\310\311\312\313\314\315\316&\207" [counsel-outline-settings nil buffer-list derived-mode-p org-mode counsel-outline-candidates counsel-org-goto-all--outline-path-prefix ivy-read "Goto: " :history counsel-org-goto-history :action counsel-org-goto-action :caller counsel-org-goto-all] 10 (#$ . 124665) nil]) #@40 Go to headline in candidate X. (fn X) (defalias 'counsel-org-goto-action #[257 "\300A!\207" [org-goto-marker-or-bmk] 3 (#$ . 125166)]) #@203 Return list of arguments for `org-get-heading'. Try to return the right number of arguments for the current Org version. Argument values are based on the `counsel-org-headline-display-*' user options. (defalias 'counsel--org-get-heading-args #[0 "\305\306\307 \n F\"\310\311!\203\311\312!A\313W\202\314\f\315\"\203#\316\202$\317\"\207" [counsel-org-headline-display-tags counsel-org-headline-display-todo counsel-org-headline-display-priority counsel-org-headline-display-comment org-version nbutlast mapcar not fboundp func-arity org-get-heading 3 version< "9.1.1" 2 0] 7 (#$ . 125310)]) #@303 Return list of all files under current Org attachment directories. Filenames returned are relative to `default-directory'. For each attachment directory associated with the current buffer, all contained files are listed, so the return value could conceivably include attachments of other Org buffers. (defalias 'counsel-org-files #[0 "\300\301!\210\302\212eb\210\303\304\302\305#\203 \306 \211\203\211B\262\210\202 )\307\310\237\"\207" [require org-attach nil re-search-forward ":\\(?:ATTACH_DIR\\|ID\\):[ ]+.*$" t org-attach-dir cl-mapcan #[257 "\300\301\302\"\303!\"\207" [mapcar make-closure #[257 "\301\302\300\"!\207" [V0 file-relative-name expand-file-name] 5 "\n\n(fn FILE)"] org-attach-file-list] 5 "\n\n(fn DIR)"]] 5 (#$ . 125914)]) #@46 Browse all attachments for current Org file. (defalias 'counsel-org-file #[0 "\300\301\302 \303\304\305\306&\207" [ivy-read "file: " counsel-org-files :action counsel-locate-action-dired :caller counsel-org-file] 7 (#$ . 126674) nil]) #@34 Complete Org entities using Ivy. (defalias 'counsel-org-entity #[0 "\302\303!\210\304\305\306 \"\307\211:\203;@\262;\2044\310\311@A@AAA@\3128\262%BB\262A\262\202\f\211\237\266\203\313\314\315\316&\207" [org-entities org-entities-user require org ivy-read "Entity: " append nil format "%20s | %20s | %20s | %s" 6 :require-match t :action (1 ("u" (lambda (candidate) (insert (cl-seventh (cdr candidate)))) "utf-8") ("o" (lambda (candidate) (insert "\\" (cl-first (cdr candidate)))) "org-entity") ("l" (lambda (candidate) (insert (cl-second (cdr candidate)))) "latex") ("h" (lambda (candidate) (insert (cl-fourth (cdr candidate)))) "html") ("a" (lambda (candidate) (insert (cl-fifth (cdr candidate)))) "ascii") ("L" (lambda (candidate) (insert (cl-sixth (cdr candidate))) "Latin-1")))] 13 (#$ . 126916) nil]) #@20 Capture something. (defalias 'counsel-org-capture #[0 "\302\303!\210\304\305\306C\307\310\311\"\312\313! \"\206\314\"\262\315\316\317\320\321\322&\207" [org-capture-templates org-capture-templates-contexts require org-capture ivy-read "Capture template: " nil cl-mapcan make-closure #[257 "\211@\300\242\203&\300\242@@GGX\206\301\"?\262\203&\300\211\242A\240\210\202G\302V\203>\303\304\305\300\242B!\306#\307\310#C\207\300\300\242B\240\210\311\207" [V0 string-prefix-p 2 mapconcat cadr reverse " | " format "%-5s %s" nil] 7 "\n\n(fn X)"] org-contextualize-keys org-capture-upgrade-templates (("t" "Task" entry (file+headline "" "Tasks") "* TODO %?\n %u\n %a")) :require-match t :action #[257 "\300\301\302!@\"\207" [org-capture nil split-string] 5 "\n\n(fn X)"] :caller counsel-org-capture] 9 (#$ . 127749) nil]) (byte-code "\300\301\302\303#\210\304\301\305\306\307BB\310\311\312BB\313\314\315BB\316\317\320BBF\"\207" [ivy-configure counsel-org-capture :initial-input "^" ivy-set-actions "t" #[257 "\300\301!@!\207" [org-capture-goto-target split-string] 4 "\n\n(fn X)"] ("go to target") "l" #[257 "\300 \207" [org-capture-goto-last-stored] 2 "\n\n(fn X)"] ("go to last stored") "p" #[257 "\300\301\302!@\"\207" [org-capture 0 split-string] 5 "\n\n(fn X)"] ("insert template at point") "c" #[257 "\300\301!\207" [customize-variable org-capture-templates] 3 "\n\n(fn X)"] ("customize org-capture-templates")] 8) #@54 Go to the `org-mode' agenda HEADLINE. (fn HEADLINE) (defalias 'counsel-org-agenda-headlines-action-goto #[257 "\300A@!\210\301 \210\3028b\210\303 \207" [find-file org-set-startup-visibility 2 org-show-entry] 3 (#$ . 129195)]) (ivy-set-actions 'counsel-org-agenda-headlines '(("g" counsel-org-agenda-headlines-action-goto "goto headline"))) #@45 History for `counsel-org-agenda-headlines'. (defvar counsel-org-agenda-headlines-history nil (#$ . 129544)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable counsel-outline-display-style funcall function #[0 "\300\207" [path] 1] "The style used when displaying matched outline headings.\n\nIf `headline', the title is displayed with leading stars\nindicating the outline level.\n\nIf `path', the path hierarchy is displayed. For each entry the\ntitle is shown. Entries are separated with\n`counsel-outline-path-separator'.\n\nIf `title' or any other value, only the title of the heading is\ndisplayed.\n\nFor displaying tags and TODO keywords in `org-mode' buffers, see\n`counsel-org-headline-display-tags' and\n`counsel-org-headline-display-todo', respectively." :type (choice (const :tag "Title only" title) (const :tag "Headline" headline) (const :tag "Path" path)) counsel-outline-path-separator #[0 "\300\207" [#1="/"] 1 #1#] "String separating path entries in matched outline headings.\nThis variable has no effect unless\n`counsel-outline-display-style' is set to `path'." string] 6) #@76 Return a list of completion candidates for `counsel-org-agenda-headlines'. (defalias 'counsel-org-agenda-headlines--candidates #[0 "\300\301\302\303#\207" [org-map-entries #[0 "\306 \307=\205\310 \203A@\202@\311\"\n\205\3128\313=\205&\314 \205-\3158\3168\f\2058\3178\320\321\322\323  \205J\324\325\n\"\320\321\326 \fC\" #\257\"\327#`E\207" [counsel-outline-display-style org-odd-levels-only counsel-org-headline-display-todo counsel-org-headline-display-priority counsel-org-headline-display-tags counsel-outline-path-separator org-heading-components headline make-string 42 2 path org-get-outline-path 3 4 5 mapconcat identity cl-remove-if null format "[#%c]" append " " buffer-file-name] 19] nil agenda] 4 (#$ . 130711)]) #@56 Choose from headers of `org-mode' files in the agenda. (defalias 'counsel-org-agenda-headlines #[0 "\301\302!\210\303\304\305\306 \307\310\311\312\313\314&)\207" [minibuffer-allow-text-properties require org t ivy-read "Org headline: " counsel-org-agenda-headlines--candidates :action counsel-org-agenda-headlines-action-goto :history counsel-org-agenda-headlines-history :caller counsel-org-agenda-headlines] 9 (#$ . 131475) nil]) #@29 Insert a link to X. (fn X) (defalias 'counsel-org-link-action #[257 "\212\211Ab\210\300 )\301\302\303P@#\207" [org-id-get-create org-insert-link nil "id:"] 6 (#$ . 131915)]) #@47 Insert a link to an headline with completion. (defalias 'counsel-org-link #[0 "\300\301\302\303!\304\305\306\307\310\311&\207" [ivy-read "Link: " counsel-outline-candidates (:outline-title counsel-outline-title-org) :action counsel-org-link-action :history counsel-org-link-history :caller counsel-org-link] 9 (#$ . 132098) nil]) (custom-declare-face 'counsel--mark-ring-highlight '((t :inherit highlight)) "Face for current `counsel-mark-ring' line." :group 'ivy-faces) #@73 Internal overlay to highlight line by candidate of `counsel-mark-ring'. (defvar counsel--mark-ring-overlay nil (#$ . 132576)) #@32 Add highlight to current line. (defalias 'counsel--mark-ring-add-highlight #[0 "\302\303 \304 T\"\305\306 !!r\307\310\"\216\311@\312\"\210\313\314\315#*\207" [counsel--mark-ring-overlay ivy-last make-overlay line-beginning-position line-end-position internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord overlay-put face counsel--mark-ring-highlight] 5 (#$ . 132708)]) #@58 If `counsel-mark-ring' have highlight, delete highlight. (defalias 'counsel--mark-ring-delete-highlight #[0 "\205\301!\207" [counsel--mark-ring-overlay delete-overlay] 2 (#$ . 133188)]) #@49 Internal variable to remember calling position. (defvar counsel--mark-ring-calling-point 0 (#$ . 133384)) #@57 Return back to calling position of `counsel-mark-ring'. (defalias 'counsel--mark-ring-unwind #[0 "b\210\301 \207" [counsel--mark-ring-calling-point counsel--mark-ring-delete-highlight] 1 (#$ . 133496)]) #@28 Show preview by candidate. (defalias 'counsel--mark-ring-update-fn #[0 "\301\302\303\304H#\305 \210\306\307!!r\310\311\"\216\312@\313\"\210b\210\314 *\207" [ivy-last get-text-property 0 point 23 counsel--mark-ring-delete-highlight internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord counsel--mark-ring-add-highlight] 5 (#$ . 133706)]) #@75 Browse `mark-ring' interactively. Obeys `widen-automatically', which see. (defalias 'counsel-mark-ring #[0 "`\302 !\303!\304 \305 \232\203\211\202\306\304 !B\307!\211\203)\310\311\312#\202,\313\314!)\207" [counsel--mark-ring-calling-point mark-ring copy-sequence delete-dups mark-marker make-marker copy-marker counsel-mark--get-candidates counsel-mark--ivy-read "Mark: " counsel-mark-ring message "Mark ring is empty"] 8 (#$ . 134155) nil]) #@249 Convert a list of MARKS into mark candidates. candidates are simply strings formatted to have the line number of the associated mark prepended to them and having an extra text property of point to indicarte where the candidate mark is. (fn MARKS) (defalias 'counsel-mark--get-candidates #[257 "\211\205\212\214~\210\300\301d!!G\302\303\"\304\305\306\"\"\266\202*\207" [number-to-string line-number-at-pos format "%%%dd %%s" mapcar make-closure #[257 "\301!b\210\302 \303 \304 {\305\306\300#\307`#\207" [V0 marker-position line-number-at-pos line-beginning-position line-end-position propertize format point] 8 "\n\n(fn MARK)"]] 7 (#$ . 134615)]) #@367 call `ivy-read' with sane defaults for traversing marks. CANDIDATES should be an alist with the `car' of the list being the string displayed by ivy and the `cdr' being the point that mark should take you to. NOTE This has been abstracted out into it's own method so it can be used by both `counsel-mark-ring' and `counsel-evil-marks' (fn PROMPT CANDIDATES CALLER) (defalias 'counsel-mark--ivy-read #[771 "\300\301\302\303\304\305\306\307\310\311\f&\f\207" [ivy-read :require-match t :update-fn counsel--mark-ring-update-fn :action #[257 "\301\302\303#\211\205 \304ed#\204\203~\210\202\305\306!\210\211b\207" [widen-automatically get-text-property 0 point <= error "Position of selected mark outside accessible part of buffer"] 6 "\n\n(fn CAND)"] :unwind counsel--mark-ring-unwind :caller] 16 (#$ . 135277)]) (ivy-configure 'counsel-mark-ring :update-fn 'counsel--mark-ring-update-fn :unwind-fn 'counsel--mark-ring-unwind :sort-fn 'ivy-string<) #@145 List of evil registers to not display in `counsel-evil-marks' by default. Each member of the list should be a character (stored as an integer). (defvar counsel-evil-marks-exclude-registers nil (#$ . 136243)) #@197 Convert all evil MARKS in the current buffer to mark candidates. Works like `counsel-mark--get-candidates' but also prepends the register tied to a mark in the message string. (fn ALL-MARKERS-P) (defalias 'counsel-mark--get-evil-candidates #[257 "\301\302\303\"\302\304\305\300!\"\"\203\211\202\306\307\"\310\311\"\310\312\"\313!\211\205a\314\211\211\211A\262\242\211\262\203_\211A\262\242\211\262\203_\315\316\317#\320\321\322\323!\324\325##\322\317#B\266\203\202*\266\202\207" [evil-markers-alist append cl-remove-if #[257 "\300@!\206\f\301A!?\207" [evil-global-marker-p markerp] 3 "\n\n(fn M)"] #[257 "\300@!?\206 \301A!?\207" [evil-global-marker-p markerp] 3 "\n\n(fn M)"] default-value cl-remove-if-not #[257 "\211@\235?\207" [counsel-evil-marks-exclude-registers] 3 "\n\n(fn X)"] mapcar car cdr counsel-mark--get-candidates nil get-text-property 0 point format "[%s]: %s" propertize char-to-string face counsel-evil-register-face] 16 (#$ . 136458)]) #@191 Ivy replacement for `evil-show-marks'. By default, this function respects `counsel-evil-marks-exclude-registers'. When ARG is non-nil, display all active evil registers. (fn &optional ARG) (defalias 'counsel-evil-marks #[256 "\301\302!\203\"\303\304!\203\"`\305!\211\203\306\307\310#\202 \311\312!)\207\313\314!\207" [counsel--mark-ring-calling-point boundp evil-markers-alist fboundp evil-global-marker-p counsel-mark--get-evil-candidates counsel-mark--ivy-read "Evil mark: " counsel-evil-marks message "No evil marks are active" user-error "Required feature `evil' not installed or loaded"] 6 (#$ . 137456) "P"]) #@32 History for `counsel-package'. (defvar counsel-package-history nil (#$ . 138086)) #@48 Return completion alist for `counsel-package'. (defalias 'counsel--package-candidates #[0 "\204\303\304!\210 \203\305\306\n\"\203\307 \210\310\311\312 \"\313\"\207" [package--initialized package-archive-contents package-archives package-initialize t cl-find-if #[257 "\301\302@#\303!?\206\304\305\"\207" [package-user-dir format "%s/archives/%s/archive-contents" file-exists-p counsel-file-stale-p 14400] 5 "\n\n(fn PACKAGE-ARCHIVE)"] package-refresh-contents sort mapcar #[257 "\211@\300!\203\f\301\202 \302\303!P\262B\207" [package-installed-p "-" "+" symbol-name] 5 "\n\n(fn ENTRY)"] counsel--package-sort] 4 (#$ . 138174)]) #@382 Install or delete packages. Packages not currently installed are prefixed with "+", and selecting one of these will try to install it. Packages currently installed are prefixed with "-", and selecting one of these will try to delete it. Additional actions:\ \[ivy-dispatching-done] d: Describe package \[ivy-dispatching-done] h: Visit package's homepage (defalias 'counsel-package #[0 "\300\301!\210\302\303\304 \305\306\307\310\311\312\313\314&\n\207" [require package ivy-read "Packages (install +pkg or delete -pkg): " counsel--package-candidates :action counsel-package-action :require-match t :history counsel-package-history :caller counsel-package] 11 (#$ . 138828) nil]) (ivy-configure 'counsel-package :initial-input "^+") #@42 Delete or install PACKAGE. (fn PACKAGE) (defalias 'counsel-package-action #[257 "\211A@\262\301!\203\302\236A@!\207\303!\207" [package-alist package-installed-p package-delete package-install] 4 (#$ . 139593)]) #@51 Call `describe-package' on PACKAGE. (fn PACKAGE) (defalias 'counsel-package-action-describe #[257 "\300A@!\207" [describe-package] 3 (#$ . 139818)]) #@59 Open homepage for PACKAGE in a WWW browser. (fn PACKAGE) (defalias 'counsel-package-action-homepage #[257 "\301\302\3038!>\204\304\305\306\3038D\"\210\3038\307H\236A\211\203#\310!\207\311\312A@\"\207" [cl-struct-package-desc-tags :url type-of 2 signal wrong-type-argument package-desc 8 browse-url message "No homepage specified for package `%s'"] 7 (#$ . 139975)]) #@59 Sort function for `counsel-package' candidates. (fn A B) (defalias 'counsel--package-sort #[514 "@@\300!\301U\300!\301U\203\211?\206 =\205 \231\207" [string-to-char 43] 8 (#$ . 140357)]) (ivy-set-actions 'counsel-package '(("d" counsel-package-action-describe "describe package") ("h" counsel-package-action-homepage "open package homepage"))) (defvar tmm-km-list nil) #@58 Select and call an item from the MENU keymap. (fn MENU) (defalias 'counsel-tmm-prompt #[257 "\302\211\211\211\303\304\"\210\237\305\306\307!\310\311$\262\312\"A\262@\262A\262\313!\2030\314!\207\205=\211\205=\211\315!\207" [tmm-km-list last-command-event nil map-keymap #[514 "\300B!\207" [tmm-get-keymap] 5 "\n\n(fn K V)"] ivy-read "Menu bar: " tmm--completion-table :require-match t assoc keymapp counsel-tmm-prompt call-interactively] 9 (#$ . 140746)]) #@62 Text-mode emulation of looking and choosing from a menu bar. (defalias 'counsel-tmm #[0 "\301\302!\210\303\304!\210\305\306\307\310!!\207" [tmm-table-undef require tmm run-hooks menu-bar-update-hook nil counsel-tmm-prompt tmm-get-keybind [menu-bar]] 3 (#$ . 141231) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-yank-pop-truncate-radius funcall function #[0 "\300\207" [2] 1] "Number of context lines around `counsel-yank-pop' candidates." :type integer] 6) #@55 Truncate STR for use in `counsel-yank-pop'. (fn STR) (defalias 'counsel--yank-pop-truncate #[257 "\3021\\\303\304\305#\211G\306!\307\310\311\"\"\312 Z] \\T^\313#\2044\314\315 \"\266\207\202Z\312V\203A\211\316@P\240\210W\203S\317!\317!@\320P\240\210\321\322\304#\266\2070\207\210\207" [ivy--old-re counsel-yank-pop-truncate-radius (error) split-string "\n" t ivy-re-to-str cl-position-if make-closure #[257 "\301\300\"\207" [V0 string-match] 4 "\n\n(fn S)"] 0 cl-subseq error "Could not match %s" "[...] " last " [...]" mapconcat identity] 12 (#$ . 141742)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-yank-pop-separator funcall function #[0 "\300\207" [#1="\n"] 1 #1#] "Separator for the kill ring strings in `counsel-yank-pop'." :type (choice (const :tag "Plain" "\n") (const :tag "Dashes" "\n----\n") string)] 6) #@77 Transform CAND-PAIRS into a string for `counsel-yank-pop'. (fn CAND-PAIRS) (defalias 'counsel--yank-pop-format-function #[257 "\301\302\303\304\305\306#$\207" [counsel-yank-pop-separator ivy--format-function-generic #[257 "\300\301\302\303!\304\305#\304#\207" [mapconcat #[257 "\300\301\"\207" [ivy--add-face ivy-current-match] 4 "\n\n(fn S)"] split-string counsel--yank-pop-truncate "\n" t] 7 "\n\n(fn STR)"] #[257 "\300!\207" [counsel--yank-pop-truncate] 3 "\n\n(fn STR)"] propertize face ivy-separator] 9 (#$ . 142634)]) #@68 Return position of S in `kill-ring' relative to last yank. (fn S) (defalias 'counsel--yank-pop-position #[257 "\302\303\304$\206'\302\303\305$\206'\302 \303\304$\206!\302 \303\305$G GZ\\\207" [kill-ring-yank-pointer kill-ring cl-position :test equal-including-properties equal] 6 (#$ . 143170)]) #@112 Return non-nil if S includes non-blank characters. Newlines and carriage returns are considered blank. (fn S) (defalias 'counsel-string-non-blank-p #[257 "\301\302\303\304#)\266\203?\207" [inhibit-changing-match-data "\\`[\n [:blank:]]*\\'" nil t string-match] 8 (#$ . 143484)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-yank-pop-filter funcall function #[0 "\300\207" [counsel-string-non-blank-p] 1] "Unary filter function applied to `counsel-yank-pop' candidates.\nAll elements of `kill-ring' for which this function returns nil\nwill be destructively removed from `kill-ring' before completion.\nAll blank strings are deleted from `kill-ring' by default." :type (radio (function-item counsel-string-non-blank-p) (function-item identity) (function :tag "Other"))] 6) #@282 Return filtered `kill-ring' for `counsel-yank-pop' completion. Both `kill-ring' and `kill-ring-yank-pointer' may be destructively modified to eliminate duplicates under `equal-including-properties', satisfy `counsel-yank-pop-filter', and incorporate `interprogram-paste-function'. (defalias 'counsel--yank-pop-kills #[0 "\3021\f\303\304!0\210\202 \210\305\211\203)\211@\211\306\307J\"\310\311\312\313%L\210A\266\202\202\210 \207" [counsel-yank-pop-filter kill-ring (error) current-kill 0 (kill-ring kill-ring-yank-pointer) cl-delete-duplicates cl-delete-if-not :test equal-including-properties :from-end t] 9 (#$ . 144310)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-yank-pop-after-point funcall function #[0 "\300\207" [nil] 1] "Whether `counsel-yank-pop' yanks after point.\nNil means `counsel-yank-pop' puts point at the end of the yanked\ntext and mark at its beginning, as per the default \\[yank].\nNon-nil means `counsel-yank-pop' swaps the resulting point and\nmark, as per \\[universal-argument] \\[yank]." :type boolean] 6) #@144 Like `yank-pop', but insert the kill corresponding to S. Signal a `buffer-read-only' error if called from a read-only buffer position. (fn S) (defalias 'counsel-yank-pop-action #[257 "\306\307!!r\310\311\"\216\312@\313\"\210\314 \210\315 \n\316=\204\317\32012\316\317\321\322!!*0\210\2026\210c\210 \203>\323\202?\324`\325\326!\"\205J\327\326!*\207" [ivy-last yank-window-start last-command yank-undo-function interprogram-paste-function counsel-yank-pop-after-point internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord barf-if-buffer-read-only window-start yank nil (error) yank-pop counsel--yank-pop-position > < mark t exchange-point-and-mark] 6 (#$ . 145403)]) #@57 Remove all occurrences of S from the kill ring. (fn S) (defalias 'counsel-yank-pop-action-remove #[257 "\303\211\203\211@\211\304J\305\306$L\210A\266\202\202\210\211\307 I\266\211\310\n GS^ 8I\266\311!\207" [ivy-last kill-ring ivy--index (kill-ring kill-ring-yank-pointer) cl-delete :test equal-including-properties 2 7 ivy--reset-state] 9 (#$ . 146192)]) #@133 Rotate the yanking point to S in the kill ring. See `current-kill' for how this interacts with the window system selection. (fn S) (defalias 'counsel-yank-pop-action-rotate #[257 "\305!\306 \211\307\310!I\266)\211\311U\203\"\n\203\" \203\" \f@!\210\210\312 !\207" [interprogram-paste-function ivy-last yank-pop-change-selection interprogram-cut-function kill-ring-yank-pointer counsel--yank-pop-position nil 7 current-kill 0 ivy--reset-state] 7 (#$ . 146568)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\310\311\312\"\207" [custom-declare-variable counsel-yank-pop-preselect-last funcall function #[0 "\300\207" [nil] 1] "Whether `counsel-yank-pop' preselects the last kill by default.\n\nThe command `counsel-yank-pop' always preselects the same kill\nthat `yank-pop' would have inserted, given the same prefix\nargument.\n\nWhen `counsel-yank-pop-preselect-last' is nil (the default), the\nprefix argument of `counsel-yank-pop' defaults to 1 (as per\n`yank-pop'), which causes the next-to-last kill to be\npreselected. Otherwise, the prefix argument defaults to 0, which\nresults in the most recent kill being preselected." :type boolean autoload xor "array"] 6) #@427 Ivy replacement for `yank-pop'. With a plain prefix argument (\[universal-argument]), temporarily toggle the value of `counsel-yank-pop-after-point'. Any other value of ARG has the same meaning as in `yank-pop', but `counsel-yank-pop-preselect-last' determines its default value. See also `counsel-yank-pop-filter' for how to filter candidates. Note: Duplicate elements of `kill-ring' are always deleted. (fn &optional ARG) (defalias 'counsel-yank-pop #[256 "\304 \206\305\306!\307\310<\204\311!\202 \203\312\202\313\314\"):\n\204.\262\2026\211?\2054\266\202 \315=\204@\316 \210\317\320\321\314\322\323\324\325\326&\n)\207" [interprogram-paste-function counsel-yank-pop-preselect-last counsel-yank-pop-after-point last-command counsel--yank-pop-kills error "Kill ring is empty or blank" nil current-kill prefix-numeric-value 0 1 t yank push-mark ivy-read "kill-ring: " :require-match :preselect :action counsel-yank-pop-action :caller counsel-yank-pop] 14 (#$ . 147758) "P"]) (byte-code "\300\301\302\303#\210\304\301\305\306\307\310%\210\311\301\312\"\207" [put counsel-yank-pop delete-selection yank ivy-configure :height 5 :format-fn counsel--yank-pop-format-function ivy-set-actions (("d" counsel-yank-pop-action-remove "delete") ("r" counsel-yank-pop-action-rotate "rotate"))] 6) #@172 Alist of (REGEXP . FUNCTION) pairs for `counsel-register'. Selecting a register whose description matches REGEXP specifies FUNCTION as the action to take on the register. (defvar counsel-register-actions '(("\\`buffer" . jump-to-register) ("\\`text" . insert-register) ("\\`rectangle" . insert-register) ("\\`window" . jump-to-register) ("\\`frame" . jump-to-register) ("\\`[-+]?[0-9]+\\(?:\\.[0-9]\\)?\\'" . insert-register) ("\\`\\(?:the \\)?file " . jump-to-register) ("\\`keyboard" . jump-to-register) ("\\`file-query" . jump-to-register)) (#$ . 149077)) #@33 History for `counsel-register'. (defvar counsel-register-history nil (#$ . 149642)) #@206 Default action for `counsel-register'. Call a function on REGISTER. The function is determined by matching the register's value description against a regexp in `counsel-register-actions'. (fn REGISTER) (defalias 'counsel-register-action #[257 "\301\302\303#\304!\305\306\307\"\"A\211\203\211!\207\310\311\312!\"\207" [counsel-register-actions get-text-property 0 register register-describe-oneline cl-assoc-if make-closure #[257 "\211\300\302\303\304#)\207" [V0 inhibit-changing-match-data nil t string-match] 8 "\n\n(fn RE)"] error "No action was found for register %s" single-key-description] 8 (#$ . 149733)]) #@34 Interactively choose a register. (defalias 'counsel-register #[0 "\301\302\303\304\"\305\306\307\310\311\312\313\314&\n\207" [register-alist ivy-read "Register: " cl-mapcan #[257 "!\211\302\303\304\305\306#)\266\203O\262\211\307\230?\205'\310\302\311\312@%\210\211C\207" [register-preview-function inhibit-changing-match-data 0 "[ \n ]+\\'" nil t string-match "" put-text-property 1 register] 11 "\n\n(fn REG)"] :require-match t :history counsel-register-history :action counsel-register-action :caller counsel-register] 11 (#$ . 150367) nil]) (byte-code "\300\301\302\303#\210\304\305\306\307\310\311%\207" [ivy-configure counsel-register :sort-fn ivy-string< custom-declare-face counsel-evil-register-face ((t :inherit counsel-outline-1)) "Face for highlighting `evil' registers in ivy." :group ivy-faces] 6) #@44 Ivy replacement for `evil-show-registers'. (defalias 'counsel-evil-registers #[0 "\300\301!\203J\302\303\301 \304\211\211:\203=@\262\211A\262\242\262\305\306\307\310!\311\312#;\2030\2021\313#B\262A\262\202 \211\237\266\204\314\315\316\317\320\321&\207\322\323!\207" [fboundp evil-register-list ivy-read "evil-registers: " nil format "[%s]: %s" propertize char-to-string face counsel-evil-register-face "" :require-match t :action counsel-evil-registers-action :caller counsel-evil-registers user-error "Required feature `evil' not installed"] 12 (#$ . 151197) nil]) (ivy-configure 'counsel-evil-registers :height 5 :format-fn 'counsel--yank-pop-format-function) #@104 Paste contents of S, trimming the register part. S will be of the form "[register]: content". (fn S) (defalias 'counsel-evil-registers-action #[257 "\301\302!!r\303\304\"\216\305@\306\"\210\307\310\311#c*\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 replace-regexp-in-string "\\`\\[.*?\\]: " ""] 6 (#$ . 151885)]) (defalias 'counsel--imenu-candidates #[0 "\304\305!\210\306 \203\307 \202\n\310\306!\311\312\313\"\" \314=\203'\315!\202(\211\316!*\207" [imenu-auto-rescan current-prefix-arg imenu-auto-rescan-maxout major-mode require imenu t buffer-size imenu--make-index-alist delete assoc "*Rescan*" emacs-lisp-mode counsel-imenu-categorize-functions counsel-imenu-get-candidates-from] 5]) #@107 Create a list of (key . value) from ALIST. PREFIX is used to create the key. (fn ALIST &optional PREFIX) (defalias 'counsel-imenu-get-candidates-from #[513 "\300\301\302\"\"\207" [cl-mapcan make-closure #[257 "\301!\203E\302A\303\211\211:\2036@\262\211A\262\242\262\250\203)\304!\202*BB\262A\262\202\f\211\237\266\204\300\211\205@\305@Q\"\207\300\205P\306\300\307\310#\311P@P\211\312A!\203c\313A!\202eABBC\207" [V0 imenu--subalist-p counsel-imenu-get-candidates-from nil copy-marker "." propertize face ivy-grep-info ": " overlayp overlay-start] 9 "\n\n(fn ELM)"]] 6 (#$ . 152726)]) (defvar counsel-imenu-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key "\f" ivy-call-and-recenter] 5)) #@52 Categorize all the functions of imenu. (fn ITEMS) (defalias 'counsel-imenu-categorize-functions #[257 "\300\301\302\303$\211\203\300\304\302\303$\305BC\244\207\207" [cl-remove-if listp :key cdr nlistp "Functions"] 7 (#$ . 153479)]) #@10 (fn X) (defalias 'counsel-imenu-action #[257 "\301\302!!r\303\304\"\216\305@\306\"\210\307A!*\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 imenu] 5 (#$ . 153724)]) #@30 History for `counsel-imenu'. (defvar counsel-imenu-history nil (#$ . 154025)) #@45 Jump to a buffer position indexed by imenu. (defalias 'counsel-imenu #[0 "\301\302\303 \304\305\306!\307\310\311\312\313\314\315\316\317&\207" [counsel-imenu-map ivy-read "imenu items: " counsel--imenu-candidates :preselect thing-at-point symbol :require-match t :action counsel-imenu-action :keymap :history counsel-imenu-history :caller counsel-imenu] 15 (#$ . 154109) nil]) #@27 Delete process X. (fn X) (defalias 'counsel-list-processes-action-delete #[257 "\302!\210\211\303\304 \"\211I\207" [ivy-last ivy--all-candidates delete-process 2 delete] 7 (#$ . 154494)]) #@40 Switch to buffer of process X. (fn X) (defalias 'counsel-list-processes-action-switch #[257 "\300!\211\205\n\301!\211\203\302!\207\303\304\"\207" [get-process process-buffer switch-to-buffer message "Process %s doesn't have a buffer"] 6 (#$ . 154693)]) #@143 Offer completion for `process-list'. The default action deletes the selected process. An extra action allows to switch to the process buffer. (defalias 'counsel-list-processes #[0 "\300\301\302\"r\211q\210\303\304\"\216\305 \210*\210\306\307\310\311\312 \"\313\302\314\315\316\317&\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] list-processes--refresh ivy-read "Process: " mapcar process-name process-list :require-match :action (1 ("o" counsel-list-processes-action-delete "kill") ("s" counsel-list-processes-action-switch "switch")) :caller counsel-list-processes] 9 (#$ . 154961) nil]) #@36 Use Ivy completion for `ace-link'. (defalias 'counsel-ace-link #[0 "\301\211C\302\267\202B\303\262\211\304\240\210\202B\305\262\211\306\240\210\202B\307\262\211\310\240\210\202B\311\262\211\312\240\210\202B\311\262\211\313\240\210\202B\314\262\211\315\240\210\204K\316\317\"\207\320\321 \322\323\324\"\325\326\327\330&\207" [major-mode nil #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (Info-mode 9 help-mode 19 woman-mode 29 eww-mode 39 compilation-mode 49 org-mode 59)) ace-link--info-collect ace-link--info-action ace-link--help-collect ace-link--help-action ace-link--woman-collect ace-link--woman-action ace-link--eww-collect ace-link--eww-action ace-link--compilation-action ace-link--org-collect ace-link--org-action error "%S is not supported" ivy-read "Ace-Link: " :action make-closure #[257 "\300\242A!\207" [V0] 3 "\n\n(fn X)"] :require-match t :caller counsel-ace-link] 11 (#$ . 155630) nil]) #@28 Browse minibuffer history. (defalias 'counsel-minibuffer-history #[0 "\303\304\305\306 !\307\n\310\311\312\313&)\207" [enable-recursive-minibuffers minibuffer-history-variable ivy-reverse-i-search-map t ivy-read "History: " ivy-history-contents :keymap :action #[257 "\300@!c\207" [substring-no-properties] 3 "\n\n(fn X)"] :caller counsel-minibuffer-history] 9 (#$ . 156601) nil]) #@67 Index corresponding to last selection with `counsel-esh-history'. (defvar counsel-esh--index-last nil (#$ . 156991)) #@69 Index corresponding to last selection with `counsel-shell-history'. (defvar counsel-shell-history--index-last nil (#$ . 157114)) #@13 (fn PAIR) (defalias 'counsel--browse-history-action #[257 "\211A\305H\211\306\267\210\202!\210\202!\210\202!\210\202!\210\307@!\207" [ivy-last eshell-history-index counsel-esh--index-last comint-input-ring-index counsel-shell-history--index-last 22 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (counsel-esh-history 12 counsel-shell-history 20 counsel-slime-repl-history 28)) ivy-completion-in-region-action] 5 (#$ . 157249)]) #@58 Use Ivy to navigate through RING. (fn RING &key CALLER) (defalias 'counsel--browse-history #[385 "\303\304\"A@\211\2031\211@\305>\203\211AA\262\202\306>A@\203(\307\262\202\310\311@\"\210\202\210\312p!`\203B\313!^\202C\211\211W\205N\314{P\315\316\317 !\320\n\321\322\323\304&\n\207" [ivy-completion-beg ivy-completion-end ivy-reverse-i-search-map plist-member :caller (:caller :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:caller)" get-buffer-process process-mark "^" ivy-read "History: " ivy-history-contents :keymap :initial-input :action counsel--browse-history-action] 18 (#$ . 157737)]) #@24 Browse Eshell history. (defalias 'counsel-esh-history #[0 "\301\302!\210\303\304\305#\207" [eshell-history-ring require em-hist counsel--browse-history :caller counsel-esh-history] 4 (#$ . 158404) nil]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice eshell-previous-matching-input (counsel-set-eshell-history-index nil t (advice lambda nil "Reassign `eshell-history-index'." (when (and (memq last-command '(ivy-alt-done ivy-done)) (equal (ivy-state-caller ivy-last) 'counsel-esh-history)) (setq eshell-history-index counsel-esh--index-last)))) before nil ad-activate] 5) #@23 Browse shell history. (defalias 'counsel-shell-history #[0 "\301\302!\210\303\304\305#\207" [comint-input-ring require comint counsel--browse-history :caller counsel-shell-history] 4 (#$ . 159007) nil]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice comint-previous-matching-input (counsel-set-comint-history-index nil t (advice lambda nil "Reassign `comint-input-ring-index'." (when (and (memq last-command '(ivy-alt-done ivy-done)) (equal (ivy-state-caller ivy-last) 'counsel-shell-history)) (setq comint-input-ring-index counsel-shell-history--index-last)))) before nil ad-activate] 5) #@28 Browse Slime REPL history. (defalias 'counsel-slime-repl-history #[0 "\301\302!\210\303\304\305#\207" [slime-repl-input-history require slime-repl counsel--browse-history :caller counsel-slime-repl-history] 4 (#$ . 159628) nil]) #@40 Call a head of the current/last hydra. (defalias 'counsel-hydra-heads #[0 "\301!\302\303O\304\305\306P!!\304\305\307P!!\310\311\312\"\"\313\314\315\316$\210\317 \207" [hydra-curr-body-fn prin1-to-string 0 -4 eval intern "heads" "keymap" mapcar make-closure #[257 "\3018\203\302\303@A@\3018$\202\302\304@A@#\305\300\306@!\"B\207" [V0 2 format "[%s] %S (%s)" "[%s] %S" lookup-key kbd] 7 "\n\n(fn X)"] ivy-read "head: " :action #[257 "\300A!\207" [call-interactively] 3 "\n\n(fn X)"] hydra-keyboard-quit] 9 (#$ . 159864) nil]) #@30 Got to semantic TAG. (fn X) (defalias 'counsel-semantic-action #[257 "\300A!b\207" [semantic-tag-start] 3 (#$ . 160412)]) #@33 History for `counsel-semantic'. (defvar counsel-semantic-history nil (#$ . 160542)) #@57 Return a pretty string representation of TAG. (fn TAG) (defalias 'counsel-semantic-format-tag #[257 "\300\301\"\206\302\300\303\"\304\305_\306\"\203\307\310Q\202\311\312\313\314#Q\207" [semantic-tag-get-attribute :depth 0 :parent make-string 2 32 "(" ") " "" semantic-format-tag-summarize nil t] 9 (#$ . 160632)]) #@133 Use FUNC and TREEP to flatten FOREST. FUNC is applied to each node. TREEP is used to expand internal nodes. (fn FUNC TREEP FOREST) (defalias 'counsel-flatten-forest #[771 "\300C\211\301\302$\240\210\211\242\300\303#\237\207" [nil make-closure #[771 "\211\203+\211@\300\"B\301!\211\203\302\242T#\202 \262\266A\266\202\202\210\207" [V0 V1 V2] 11 "\n\n(fn FOREST OUT DEPTH)"] 0] 10 (#$ . 160966)]) #@22 Fetch semantic tags. (defalias 'counsel-semantic-tags #[0 "\300\301\302\303 #\207" [counsel-flatten-forest #[514 "\300\301#\207" [semantic-tag-put-attribute :depth] 6 "\n\n(fn TREE DEPTH)"] #[257 "\300!\301=\205\302!\303\304\305\"\306\307\"\"\262\207" [semantic-tag-class type semantic-tag-name mapcar make-closure #[257 "\301\302\300#\207" [V0 semantic-tag-put-attribute :parent] 5 "\n\n(fn X)"] semantic-tag-get-attribute :members] 7 "\n\n(fn TAG)"] semantic-fetch-tags] 4 (#$ . 161394)]) #@47 Jump to a semantic tag in the current buffer. (defalias 'counsel-semantic #[0 "\300\301\302 \"\303\304\305\306\307\310\311\312&\207" [mapcar #[257 "\300!B\207" [counsel-semantic-format-tag] 3 "\n\n(fn X)"] counsel-semantic-tags ivy-read "tag: " :action counsel-semantic-action :history counsel-semantic-history :caller counsel-semantic] 10 (#$ . 161901) nil]) (defalias 'counsel-semantic-or-imenu #[0 "\300\301!\210\302 \203\f\303 \207\304 \207" [require semantic/fw semantic-active-p counsel-semantic counsel-imenu] 2 nil nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable counsel-outline-face-style funcall function #[0 "\300\207" [nil] 1] "Determines how to style outline headings during completion.\n\nIf `org', the faces `counsel-outline-1' through\n`counsel-outline-8' are applied in a similar way to Org.\nNote that no cycling is performed, so headings on levels 9 and\nhigher are not styled.\n\nIf `verbatim', the faces used in the buffer are applied. For\nsimple headlines in `org-mode' buffers, this is usually the same\nas the `org' setting, except that it depends on how much of the\nbuffer has been completely fontified. If your buffer exceeds a\ncertain size, headlines are styled lazily depending on which\nparts of the tree are visible. Headlines which are not yet\nstyled in the buffer will appear unstyled in the minibuffer as\nwell. If your headlines contain parts which are fontified\ndifferently than the headline itself (e.g. TODO keywords, tags,\nlinks) and you want these parts to be styled properly, verbatim\nis the way to go; otherwise you are probably better off using the\n`org' setting instead.\n\nIf `custom', the faces defined in `counsel-outline-custom-faces'\nare applied. Note that no cycling is performed, so if there is\nno face defined for a certain level, headlines on that level will\nnot be styled.\n\nIf `nil', all headlines are highlighted using\n`counsel-outline-default'.\n\nFor displaying tags and TODO keywords in `org-mode' buffers, see\n`counsel-org-headline-display-tags' and\n`counsel-org-headline-display-todo', respectively." :type (choice (const :tag "Same as org-mode" org) (const :tag "Verbatim" verbatim) (const :tag "Custom" custom) (const :tag "No style" nil)) counsel-outline-custom-faces #[0 "\300\207" [nil] 1] "List of faces for custom display of outline headings.\n\nHeadlines on level N are fontified with the Nth entry of this\nlist, starting with N = 1. Headline levels with no corresponding\nentry in this list will not be styled.\n\nThis variable has no effect unless `counsel-outline-face-style'\nis set to `custom'." (repeat face)] 6) #@137 Return title of current outline heading. Intended as a value for the `:outline-title' setting in `counsel-outline-settings', which see. (defalias 'counsel-outline-title #[0 "`\300 {\207" [line-end-position] 2 (#$ . 164597)]) #@112 Return title of current outline heading. Like `counsel-outline-title' (which see), but for `org-mode' buffers. (defalias 'counsel-outline-title-org #[0 "\301\302\303 \"\203\n\207\211\205\304\305\306\307#!\207" [counsel-org-headline-display-statistics apply org-get-heading counsel--org-get-heading-args org-trim replace-regexp-in-string "\\[[0-9]*\\(?:%\\|/[0-9]*\\)]" " "] 6 (#$ . 164829)]) #@146 Return title of current outline heading. Like `counsel-outline-title' (which see), but for `markdown-mode' (from the eponymous package) buffers. (defalias 'counsel-outline-title-markdown #[0 "\300\301!\206 \300\302!\207" [match-string 1 5] 2 (#$ . 165233)]) #@114 Return title of current outline heading. Like `counsel-outline-title' (which see), but for `latex-mode' buffers. (defalias 'counsel-outline-title-latex #[0 "\303\304\305!\306\300!\203\206\306\301!\205 \"\203D\307\310w\210\311\312\313!)\262\203/\314 \210\202\315\312\313!)\262\203D`T\314 \210`S{\207\316 `{\207" [LaTeX-section-list latex-section-alist inhibit-changing-match-data assoc match-string 1 boundp "*" nil "\\[" t looking-at forward-list "{" line-beginning-position] 4 (#$ . 165499)]) #@156 Return level of current outline heading. Like `lisp-outline-level', but adapted for the `:outline-level' setting in `counsel-outline-settings', which see. (defalias 'counsel-outline-level-emacs-lisp #[0 "\301\302!\203\f\303\225\303\224Z\207 \207" [outline-level looking-at ";;\\([;*]+\\)" 1] 2 (#$ . 166018)]) #@58 Index of the preselected candidate in `counsel-outline'. (defvar counsel-outline--preselect 0 (#$ . 166336)) #@316 Return an alist of outline heading completion candidates. Each element is a pair (HEADING . MARKER), where the string HEADING is located at the position of MARKER. SETTINGS is a plist entry from `counsel-outline-settings', which see. PREFIX is a string prepended to all candidates. (fn &optional SETTINGS PREFIX) (defalias 'counsel-outline-candidates #[512 "\306\307\310\"\206 \311Q\307\312\"\206\313\307\314\"\206 \307\315\"\206#\n\307\316\"\206, \307\317\"\2066 \307\320\"\206@#\321`\205Q\322 \321$C\323\211\211\211\212\321$eb\210\324 \323\325#\203\212\326 \327\330\"\216\f )\262\206w\331\262\321\224b\210\332 \262\n \262 \333=\203\316X\203\240A\262S\262\202\215V\203\264\331B\262T\262\202\240\211\322  $\240\266\334\335\336!\f#\262\202\350 \337=\203\336\340\341\"\342Q\262\322  $\262BB\262)\331\230\204\\W\204\\$T$\202\\)\237)\207" [outline-regexp outline-level counsel-outline-display-style counsel-outline-path-separator path-separator counsel-outline-face-style "^\\(?:" plist-get :outline-regexp "\\)" :outline-title counsel-outline-title :outline-level :display-style :path-separator :face-style :custom-faces 0 counsel-outline--add-face nil re-search-forward t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "" point-marker path mapconcat identity reverse headline make-string 42 " " counsel-outline-custom-faces counsel-outline--preselect] 22 (#$ . 166452)]) #@264 Set the `face' property on headline NAME according to LEVEL. FACE-STYLE and CUSTOM-FACES override `counsel-outline-face-style' and `counsel-outline-custom-faces', respectively, which determine the face to apply. (fn NAME LEVEL &optional FACE-STYLE CUSTOM-FACES) (defalias 'counsel-outline--add-face #[1026 "\206\211\302\267\202!\303\202\"S\206 8\202\"\304\305\"\202\"\306\262\211\2033\307\310G\311 %\210\210\207" [counsel-outline-face-style counsel-outline-custom-faces #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (verbatim 11 custom 15 org 26)) nil format "counsel-outline-%d" counsel-outline-default put-text-property 0 face] 11 (#$ . 167962)]) #@26 Go to outline X. (fn X) (defalias 'counsel-outline-action #[257 "\211Ab\207" [] 2 (#$ . 168677)]) #@45 Jump to an outline heading with completion. (defalias 'counsel-outline #[0 " \236A\303\304\305!\306\307\306\"\206\310\311\307\311\"\206\312\313\nS\314]\315\307 \315\"\206+\316&\n\207" [major-mode counsel-outline-settings counsel-outline--preselect ivy-read "Outline: " counsel-outline-candidates :action plist-get counsel-outline-action :history counsel-outline-history :preselect 0 :caller counsel-outline] 14 (#$ . 168782) nil]) #@50 Name of the buffer to use for `counsel-ibuffer'. (defvar counsel-ibuffer--buffer-name nil (#$ . 169230)) #@128 Use ibuffer to switch to another buffer. NAME specifies the name of the buffer (defaults to "*Ibuffer*"). (fn &optional NAME) (defalias 'counsel-ibuffer #[256 "\211\206\301\302\303\304 \305\306\307\310\311\312&\207" [counsel-ibuffer--buffer-name "*Ibuffer*" ivy-read "Switch to buffer: " counsel-ibuffer--get-buffers :history counsel-ibuffer-history :action counsel-ibuffer-visit-buffer :caller counsel-ibuffer] 10 (#$ . 169342) nil]) #@60 Return list of buffer-related lines in Ibuffer as strings. (defalias 'counsel-ibuffer--get-buffers #[0 "\303!\211\204\304 \305\306\"\216\307\310\311\311\312$\210*\210rq\210\211\203&\313\311\312\"\210eb\210\311\211m\204N\314\315\312\"\210\316 \317!\203J\320\321 \322 \"BB\262\210\202-\211\237)\266\202)\207" [counsel-ibuffer--buffer-name display-buffer-overriding-action ibuffer-movement-cycle get-buffer current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] (display-buffer-same-window (inhibit-same-window)) ibuffer nil t ibuffer-update ibuffer-forward-line 1 ibuffer-current-buffer buffer-live-p buffer-substring-no-properties line-beginning-position line-end-position] 7 (#$ . 169788)]) #@42 Switch to buffer of candidate X. (fn X) (defalias 'counsel-ibuffer-visit-buffer #[257 "\300A!\207" [switch-to-buffer] 3 (#$ . 170542)]) #@60 Switch to buffer of candidate X in another window. (fn X) (defalias 'counsel-ibuffer-visit-buffer-other-window #[257 "\300A!\207" [switch-to-buffer-other-window] 3 (#$ . 170686)]) #@35 Switch to Ibuffer buffer. (fn _) (defalias 'counsel-ibuffer-visit-ibuffer #[257 "\301!\207" [counsel-ibuffer--buffer-name switch-to-buffer] 3 (#$ . 170874)]) (ivy-set-actions 'counsel-ibuffer '(("j" counsel-ibuffer-visit-buffer-other-window "other window") ("v" counsel-ibuffer-visit-ibuffer "switch to Ibuffer"))) #@69 Return names of buffers with MODE as their `major-mode'. (fn MODE) (defalias 'counsel--buffers-with-mode #[257 "\300\301 \211\203 \211@\302\303\"=\203\304!B\262A\266\202\202\210\211\237\207" [nil buffer-list buffer-local-value major-mode buffer-name] 7 (#$ . 171197)]) #@42 Switch to a shell buffer, or create one. (defalias 'counsel-switch-to-shell-buffer #[0 "\300\301\302\303!\304\305\306\307&\207" [ivy-read "Shell buffer: " counsel--buffers-with-mode shell-mode :action counsel--switch-to-shell :caller counsel-switch-to-shell-buffer] 7 (#$ . 171484) nil]) #@188 Display shell buffer with NAME and select its window. Reuse any existing window already displaying the named buffer. If there is no such buffer, start a new `shell' with NAME. (fn NAME) (defalias 'counsel--switch-to-shell #[257 "\300!\203 \301\302\"\207\303!\207" [get-buffer pop-to-buffer ((display-buffer-reuse-window display-buffer-same-window) (inhibit-same-window) (reusable-frames . visible)) shell] 4 (#$ . 171780)]) #@37 History for `counsel-unicode-char'. (defvar counsel-unicode-char-history nil (#$ . 172215)) #@161 Return formatted and sorted list of `ucs-names'. The result of `ucs-names' is mostly, but not completely, sorted, so this function ensures lexicographic order. (defalias 'counsel--unicode-names #[0 "\300C\301 \302\303\"\304!\204'\211\203#\211@@A\"\210A\266\202\202\210\2022\305\"\210\211\242\237\240\210\306\242\307\"\207" [nil ucs-names make-closure #[514 "\301\302$\303\304\305\306%\210\300\300\242B\240\207" [V0 format "%06X %-58s %c" put-text-property 0 1 code] 9 "\n\n(fn NAME CODE)"] hash-table-p maphash sort string-lessp] 8 (#$ . 172314)]) #@108 Lazy completion table for `counsel-unicode-char'. Candidates comprise `counsel--unicode-names', which see. (defvar counsel--unicode-table (completion-table-dynamic #[257 "\301!\203 \302 \207" [counsel--unicode-table functionp counsel--unicode-names] 3 "\n\n(fn STRING)"] 'do-switch-buffer) (#$ . 172891)) #@97 Insert COUNT copies of a Unicode character at point. COUNT defaults to 1. (fn &optional COUNT) (defalias 'counsel-unicode-char #[256 "``\303\304\n\305\306\307\310\311\"\312\313&\207" [ivy-completion-beg ivy-completion-end counsel--unicode-table ivy-read "Unicode name: " :history counsel-unicode-char-history :action make-closure #[257 "\304\305 !!r\306\307\"\216\310@\311\"\210\n |\210`\312\313\314\315#\300\"\210`\211*\207" [V0 ivy-last ivy-completion-beg ivy-completion-end internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord insert-char get-text-property 0 code] 7 "\n\n(fn NAME)"] :caller counsel-unicode-char] 10 (#$ . 173206) "p"]) (ivy-configure 'counsel-unicode-char :sort-fn 'ivy-string<) #@71 Ivy action to copy the unicode from NAME to the kill ring. (fn NAME) (defalias 'counsel-unicode-copy #[257 "\300\301\302\303\304#!!\207" [kill-new char-to-string get-text-property 0 code] 7 (#$ . 174025)]) (ivy-set-actions 'counsel-unicode-char '(("w" counsel-unicode-copy "copy"))) #@56 Insert the hexadecimal RGB value of COLOR. (fn COLOR) (defalias 'counsel-colors-action-insert-hex #[257 "\300\301\302#c\207" [get-text-property 0 hex] 5 (#$ . 174316)]) #@54 Kill the hexadecimal RGB value of COLOR. (fn COLOR) (defalias 'counsel-colors-action-kill-hex #[257 "\300\301\302\303#!\207" [kill-new get-text-property 0 hex] 6 (#$ . 174493)]) #@37 History for `counsel-colors-emacs'. (defvar counsel-colors-emacs-history nil (#$ . 174679)) #@115 Return hexadecimal RGB value of color with NAME. Return nil if NAME does not designate a valid color. (fn NAME) (defalias 'counsel-colors--name-to-hex #[257 "\300!\211\205 \301\302\"\207" [color-name-to-rgb apply color-rgb-to-hex] 5 (#$ . 174778)]) (defvar counsel--colors-format "%-20s %s %s%s") #@58 Format function for `counsel-colors-emacs'. (fn COLORS) (defalias 'counsel--colors-emacs-format-function #[257 "\300\301!\210\302\303\304\"\305\306\"\307\305\310\"\311$\207" [require shr-color make-string 10 32 make-closure #[257 "\302D\303 \304\305\306\307#\310#\304\300\310\311 D#\304\312\313\305\306\314\f#\315#\310#%\207" [V0 counsel--colors-format :foreground format propertize get-text-property 0 hex face :background mapconcat #[257 "\300P\207" [" "] 3 "\n\n(fn DUP)"] dups ","] 14 "\n\n(fn COLOR)"] ivy--format-function-generic #[257 "\302\303\304#\305\306\307\310#A@\311\300!\312\313\314F#)\207" [V0 shr-color-visible-luminance-min get-text-property 0 hex 100 shr-color-visible "black" t propertize face :foreground :background] 10 "\n\n(fn COLOR)"] "\n"] 8 (#$ . 175086)]) #@56 Format function for `counsel-colors-web'. (fn COLORS) (defalias 'counsel--colors-web-format-function #[257 "\300\301!\210\302\303\304\"\305\306\"\307\305\310\"\311$\207" [require shr-color make-string 10 32 make-closure #[257 "\302\303\304#\305 \306\307\310D#\306\300\307\311D#$\207" [V0 counsel--colors-format get-text-property 0 hex format propertize face :foreground :background] 11 "\n\n(fn COLOR)"] ivy--format-function-generic #[257 "\302\303\304#\305\306\307\310#A@\311\300!\312\313\314F#)\207" [V0 shr-color-visible-luminance-min get-text-property 0 hex 100 shr-color-visible "black" t propertize face :foreground :background] 10 "\n\n(fn COLOR)"] "\n"] 8 (#$ . 175898)]) (autoload 'list-colors-duplicates "facemenu") #@142 Show a list of all supported colors for a particular frame. You can insert or kill the name or hexadecimal RGB value of the selected color. (defalias 'counsel-colors-emacs #[0 "\301\302\303\304\305 \"\"\306\307\310\311\312\303\313\"#\"\314\315\316\317\320\321\322\323\324\325&\n)\207" [counsel--colors-format delete nil mapcar #[257 "\211@A\300!\211\205\301\302\303%\207" [counsel-colors--name-to-hex propertize hex dups] 10 "\n\n(fn CELL)"] list-colors-duplicates format "%%-%ds %%s %%s%%s" apply max 0 string-width ivy-read "Emacs color: " :require-match t :history counsel-colors-emacs-history :action insert :caller counsel-colors-emacs] 12 (#$ . 176650) nil]) (byte-code "\300\301\302\303#\210\304\301\305\"\207" [ivy-configure counsel-colors-emacs :format-fn counsel--colors-emacs-format-function ivy-set-actions (("h" counsel-colors-action-insert-hex "insert hexadecimal value") ("H" counsel-colors-action-kill-hex "kill hexadecimal value"))] 4) #@53 Return list of CSS colors for `counsel-colors-web'. (defalias 'counsel-colors--web-alist #[0 "\301\302!\210\303!\304\305\"\304\306\"\304\307\"\203\310\241\210\203#\311\241\210\211\204.\312\313BB\262\314\315\316\"\317\"\207" [shr-color-html-colors-alist require shr-color copy-alist assoc "MediumPurple" "PaleVioletRed" "RebeccaPurple" "#9370db" "#db7093" "rebeccapurple" "#663399" sort mapcar #[257 "\300@\227\301A\227#\207" [propertize hex] 5 "\n\n(fn CELL)"] string-lessp] 8 (#$ . 177622)]) #@35 History for `counsel-colors-web'. (defvar counsel-colors-web-history nil (#$ . 178139)) #@132 Show a list of all W3C web colors for use in CSS. You can insert or kill the name or hexadecimal RGB value of the selected color. (defalias 'counsel-colors-web #[0 "\301 \302\303\304\305\306\307\310\"#\"\311\312\313\314\315\316\317\320\321\322&\n)\207" [counsel--colors-format counsel-colors--web-alist format "%%-%ds %%s %%s" apply max 0 mapcar string-width ivy-read "Web color: " :require-match t :history counsel-colors-web-history :action insert :caller counsel-colors-web] 12 (#$ . 178234) nil]) (byte-code "\300\301\302\303\304\305%\210\306\301\307\"\207" [ivy-configure counsel-colors-web :sort-fn ivy-string< :format-fn counsel--colors-web-format-function ivy-set-actions (("h" counsel-colors-action-insert-hex "insert hexadecimal value") ("H" counsel-colors-action-kill-hex "kill hexadecimal value"))] 6) #@30 History for `counsel-fonts'. (defvar counsel-fonts-history nil (#$ . 179059)) #@123 Show a list of all supported font families for a particular frame. You can insert or kill the name of the selected font. (defalias 'counsel-fonts #[0 "\300\301\302\303\304\"\305\"!\306\307\310\311 !\312\313\314\315\316\317\320\321\322&\f\207" [symbol-name font-get face-attribute default :font :family ivy-read "Font: " delete-dups font-family-list :preselect :require-match t :history counsel-fonts-history :action insert :caller counsel-fonts] 14 (#$ . 179144) nil]) (ivy-configure 'counsel-fonts :display-transformer-fn 'counsel--font-with-sample) #@54 Format function for `counsel-fonts'. (fn FONT-NAME) (defalias 'counsel--font-with-sample #[257 "\300\301\302\303\304\305D##\207" [format "%-75s%s" propertize "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" face :family] 9 (#$ . 179703)]) (defvar counsel-kmacro-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key " " counsel-kmacro-kill] 5)) #@46 Kill the line, or delete the keyboard macro. (defalias 'counsel-kmacro-kill #[0 "l\204\301 \207\302\303\304H\305H\"!\210\306 \207" [ivy-last ivy-kill-line counsel-kmacro-action-delete-kmacro assoc 23 2 ivy--kill-current-candidate] 5 (#$ . 180086) nil]) #@386 Interactively choose and run a keyboard macro. With prefix argument, run macro that many times. Macros are run using the current value of `kmacro-counter-value' and their respective counter format. Displayed next to each macro is the counter's format and initial value. One can use actions to copy the counter format or initial counter value of a macro, using them for a new macro. (defalias 'counsel-kmacro #[0 "\204 \203 \305\306\307\n\206 !\310Q\311 \312\f\313\314\315\316\317\320&\n\207\321\322!\207" [last-kbd-macro kmacro-ring kmacro-initial-counter-value kmacro-counter counsel-kmacro-map ivy-read "Execute macro (counter at " number-to-string "): " counsel--kmacro-candidates :keymap :require-match t :action counsel-kmacro-action-run :caller counsel-kmacro user-error "No keyboard macros defined"] 11 (#$ . 180350) nil]) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313%\207" [ivy-configure counsel-kmacro :format-fn counsel--kmacro-format-function custom-declare-variable counsel-kmacro-separator funcall function #[0 "\300\207" [#1="\n------------------------\n"] 1 #1#] "Separator displayed between keyboard macros in `counsel-kmacro'." :type string] 6) #@87 Transform FORMATTED-KMACRO into a string for `counsel-kmacro'. (fn FORMATTED-KMACRO) (defalias 'counsel--kmacro-format-function #[257 "\301\302\303\304\305\306#$\207" [counsel-kmacro-separator ivy--format-function-generic #[257 "\300\301\"\207" [ivy--add-face ivy-current-match] 4 "\n\n(fn STR)"] #[257 "\207" [] 2 "\n\n(fn STR)"] propertize face ivy-separator] 9 (#$ . 181550)]) #@209 Create the list of keyboard macros used by `counsel-kmacro'. This is a combination of `kmacro-ring' and, together in a list, `last-kbd-macro', `kmacro-counter-format-start', and `kmacro-counter-value-start'. (defalias 'counsel--kmacro-candidates #[0 "\304\305<\203 \202 \nE B\"\207" [last-kbd-macro kmacro-counter-value-start kmacro-counter-format-start kmacro-ring mapcar #[257 "\300\3018\302\303A@!\304\3051$\306<\203@\202\307\"0\202&\210\310\260B\207" ["(" 2 "," number-to-string "): " (error) format-kbd-macro 1 "Warning: Cannot display macros containing mouse clicks"] 9 "\n\n(fn KMACRO)"]] 5 (#$ . 181941)]) #@29 Run keyboard macro. (fn X) (defalias 'counsel-kmacro-action-run #[257 "\211A\211@\3028\303 \206\304\305\306$)\207" [kmacro-counter-format-start current-prefix-arg 2 kmacro-call-macro 1 t nil] 8 (#$ . 182583)]) #@162 Delete a keyboard macro from within `counsel-kmacro'. Either delete a macro from `kmacro-ring', or set `last-kbd-macro' to the popped head of the ring. (fn X) (defalias 'counsel-kmacro-action-delete-kmacro #[257 "\211A\211@=\203% \302=?\205\" \211A\242\211<\203\211@\202 \211\262\211\207\303 \"\211\207" [last-kbd-macro kmacro-ring nil delq] 5 (#$ . 182806)]) #@327 Pass an existing keyboard macro's original value to `kmacro-set-counter'. This value will be used by the next executed macro, or as an initial value by the next macro defined. Note that calling an existing macro that itself uses a counter effectively resets the initial counter value for the next defined macro to 0. (fn X) (defalias 'counsel-kmacro-action-copy-initial-counter-value #[257 "\211A\211A@\300!\207" [kmacro-set-counter] 5 (#$ . 183186)]) #@143 Set `kmacro-default-counter-format' to an existing keyboard macro's counter format. This will apply to the next macro a user defines. (fn X) (defalias 'counsel-kmacro-action-copy-counter-format-for-new-macro #[257 "\211A\3008\301!\207" [2 kmacro-set-format] 5 (#$ . 183648)]) #@262 Cycle `kmacro-ring' until `last-kbd-macro' is the selected macro. This is convenient when using \[kmacro-end-or-call-macro] to call macros. Note that cycling the ring changes the starting value of the current macro to changes the current macro counter. (fn X) (defalias 'counsel-kmacro-action-cycle-ring-to-macro #[257 "\211A\211<\203\f\202@\232?\205\"\211 @\232\204 \302 \210\202\302 \207" [last-kbd-macro kmacro-ring kmacro-cycle-ring-previous] 4 (#$ . 183934)]) #@605 Set the starting counter value of the chosen macro. By default, sets to current value of the counter. It has no effect when selecting the current macro. Normally, when cycling keyboard macro ring with \[kmacro-cycle-ring-previous] or \[kmacro-cycle-ring-next], the current value of the macro counter is included with the current macro definition. Then, when cycling back, that counter value is restored. This function is meant to achieve something similar when cycling macros in the context of using `counsel-kmacro', which does not use different counter values when running different macros. (fn X) (defalias 'counsel-kmacro-action-set-saved-starting-counter #[257 "\211A\302!\303\304\305# \"\211\207" [kmacro-counter kmacro-ring number-to-string mapcar make-closure #[257 "\211\300\232\203\211@\302\303\301\304Q\305\211\306\305\301&AA@E\207\207" [V0 V1 read-from-minibuffer "Set initial counter for macro (default: " "): " nil t] 9 "\n\n(fn THIS-MACRO-IN-RING)"]] 8 (#$ . 184417)]) #@248 Execute an existing keyboard macro, prompting for a starting counter value, a counter format, and the number of times to execute the macro. If called with a prefix, will suggest that value for both the counter value and iteration amount. (fn X) (defalias 'counsel-kmacro-action-execute-after-prompt #[257 "\205\303!A\211@\303A@!\3048\305\306\206\303\304!\307Q\310\211\311\310\n\206+\303\304!&\305\312\2065\307Q\310\211\311\310 \206B&\313\305\314\307Q\310\211\311\310&!\315\311\310$*\207" [current-prefix-arg kmacro-initial-counter-value kmacro-counter-format-start number-to-string 2 read-from-minibuffer "Enter number of iterations for macro (default: " "): " nil t "Enter a starting counter for macro (default: " symbol-name "Enter format for macro counter (default: " kmacro-call-macro] 15 (#$ . 185420)]) (ivy-set-actions 'counsel-kmacro '(("c" counsel-kmacro-action-cycle-ring-to-macro "cycle to") ("d" counsel-kmacro-action-delete-kmacro "delete") ("e" counsel-kmacro-action-execute-after-prompt "execute after prompt") ("f" counsel-kmacro-action-copy-counter-format-for-new-macro "copy counter format for new macro") ("s" counsel-kmacro-action-set-saved-starting-counter "set this counter value") ("v" counsel-kmacro-action-copy-initial-counter-value "copy initial counter value"))) #@50 History for `counsel-geiser-doc-look-up-manual'. (defvar counsel-geiser-doc-look-up-manual-history nil (#$ . 186750)) #@30 Search Scheme documentation. (defalias 'counsel-geiser-doc-look-up-manual #[0 "\301\302\303\304\305\306\307\310\311\312&\n\207" [geiser-completion-symbol-list-func ivy-read "Symbol: " :require-match t :history counsel-geiser-doc-look-up-manual-history :action #[257 "\300\301!!\207" [geiser-doc-manual-for-symbol intern] 4 "\n\n(fn CAND)"] :caller counsel-geiser-doc-look-up-manual] 11 (#$ . 186874) nil]) #@31 (fn &rest PROGRAM-AND-ARGS) (defalias 'counsel--run #[128 "\300\301\302#\303\304\305$\210\207" [mapconcat identity " " apply start-process nil] 7 (#$ . 187288)]) #@34 Shell command to list. (fn CMD) (defalias 'counsel--sl #[257 "\300\301!\302\303#\207" [split-string shell-command-to-string "\n" t] 5 (#$ . 187461)]) #@37 Let Rhythmbox play SONG. (fn SONG) (defalias 'counsel-rhythmbox-play-song #[257 "\300\301!\302\230\211\203\303\304\305\"\210\306\307!\210\310\311\312\313\314\315A&\210\211\205(\316\300\317!!A\211\2055\306\320!\210\303\321\322#\207" [shell-command-to-string "pidof rhythmbox" "" counsel--run "nohup" "rhythmbox" sit-for 1.5 dbus-call-method :session "org.gnome.Rhythmbox3" "/org/mpris/MediaPlayer2" "org.mpris.MediaPlayer2.Player" "OpenUri" counsel--wmctrl-parse "wmctrl -l -p | grep $(pidof rhythmbox)" 0.2 "wmctrl" "-ic"] 9 (#$ . 187619)]) #@40 Let Rhythmbox enqueue SONG. (fn SONG) (defalias 'counsel-rhythmbox-enqueue-song #[257 "\300\301\302\303\304\305A&\207" [dbus-call-method :session "org.gnome.Rhythmbox3" "/org/gnome/Rhythmbox3/PlayQueue" "org.gnome.Rhythmbox3.PlayQueue" "AddToQueue"] 8 (#$ . 188175)]) #@30 Play/pause the current song. (defalias 'counsel-rhythmbox-playpause-current-song #[0 "\300\301\302\303\304\305%\207" [dbus-call-method :session "org.gnome.Rhythmbox3" "/org/mpris/MediaPlayer2" "org.mpris.MediaPlayer2.Player" "PlayPause"] 6 (#$ . 188453) nil]) #@46 Toggle Rhythmbox shuffle setting. (fn SONG) (defalias 'counsel-rhythmbox-toggle-shuffle #[257 "\300\301\302\303#\211\304\230\203\305\202\304\300\301\306\303$\210\307\304\230\203\"\310\202#\311!\207" [counsel--command "dconf" "read" "/org/gnome/rhythmbox/player/play-order" "'shuffle'" "'linear'" "write" message "shuffle on" "shuffle off"] 8 (#$ . 188719)]) #@34 History for `counsel-rhythmbox'. (defvar counsel-rhythmbox-history nil (#$ . 189092)) (defvar counsel-rhythmbox-songs nil) #@42 Return the currently playing song title. (defalias 'counsel-rhythmbox-current-song #[0 "\3001+\301\302\303\304\305\306%\307\310\"A@@@\307\311\"A@@\307\312\"A@@\313\314$\266\2040\207\210\315\207" [(error) dbus-get-property :session "org.mpris.MediaPlayer2.rhythmbox" "/org/mpris/MediaPlayer2" "org.mpris.MediaPlayer2.Player" "Metadata" assoc "xesam:artist" "xesam:album" "xesam:title" format "%s - %s - %s" nil] 9 (#$ . 189221)]) #@82 Choose a song from the Rhythmbox library to play or enqueue. (fn &optional ARG) (defalias 'counsel-rhythmbox #[256 "\301\302!\210\211\204\f\2040\303\304\305\306\307\310%\211\204\311\312!\266\2020\313\314\315\304\305\306\307\316\317 \320&\"\210\321\322\323\324\325\326\327\330 \331\332\333\334&\f\207" [counsel-rhythmbox-songs require dbus dbus-get-property :session "org.gnome.Rhythmbox3" "/org/gnome/UPnP/MediaServer2/Library/all" "org.gnome.UPnP.MediaContainer2" "ChildCount" error "Couldn't connect to Rhythmbox" mapcar #[257 "\300\301\302\303\"A@@\302\304\"A@@\302\305\"A@@$\302\306\"A@@@B\207" [format "%s - %s - %s" assoc "Artist" "Album" "DisplayName" "URLs"] 8 "\n\n(fn X)"] dbus-call-method "ListChildren" 0 ("*") ivy-read "Rhythmbox: " :require-match t :history counsel-rhythmbox-history :preselect counsel-rhythmbox-current-song :action (1 ("p" counsel-rhythmbox-play-song "Play song") ("e" counsel-rhythmbox-enqueue-song "Enqueue song") ("s" counsel-rhythmbox-toggle-shuffle "Shuffle on/off")) :caller counsel-rhythmbox] 14 (#$ . 189663) "P"]) (byte-code "\300\301\302\303#\210\304\305\306\307!\203\307\202\310\311#\210\304\312\306\313!\203\"\313\202#\314\315#\210\316\317\320\321\322DD\323\324\325%\210\316\326\320\321\327DD\330\324\331%\210\332\333\334\335\336\337%\210\332\340\341\342\336\337%\210\332\343\344\345\336\337%\210\332\346\347\350\336\337%\210\332\351\352\353\336\337%\210\332\354\355\356\336\337%\210\332\357\360\361\336\337%\210\332\362\363\364\336\337%\210\332\365\366\367\336\337%\210\332\370\371\372\336\337%\207" [require xdg nil t defalias counsel--xdg-data-home fboundp xdg-data-home #[0 "\300\301!\211\203 \211\302\230\203\303\207\207" [getenv "XDG_DATA_HOME" #1="" "~/.local/share"] 3] "Compatibility shim for `xdg-data-home'." counsel--xdg-data-dirs xdg-data-dirs #[0 "\300\301!\211\203 \211\302\230\203\303\207\304!\207" [getenv "XDG_DATA_DIRS" #1# ("/usr/local/share" "/usr/share") parse-colon-path] 3] "Compatibility shim for `xdg-data-dirs'." custom-declare-variable counsel-linux-apps-directories funcall function #[0 "\300\301\302 \303 B\"\207" [mapcar #[257 "\300\301\"\207" [expand-file-name "applications"] 4 "\n\n(fn DIR)"] counsel--xdg-data-home counsel--xdg-data-dirs] 4] "Directories in which to search for applications (.desktop files)." :type (repeat directory) counsel-linux-app-format-function #[0 "\300\207" [counsel-linux-app-format-function-default] 1] "Function to format Linux application names the `counsel-linux-app' menu.\nThe format function will be passed the application's name, comment, and command\nas arguments." (choice (const :tag "Command : Name - Comment" counsel-linux-app-format-function-default) (const :tag "Name - Comment (Command)" counsel-linux-app-format-function-name-first) (const :tag "Name - Comment" counsel-linux-app-format-function-name-only) (const :tag "Name - Comment (Pretty)" counsel-linux-app-format-function-name-pretty) (const :tag "Command" counsel-linux-app-format-function-command-only) (function :tag "Custom")) custom-declare-face counsel-application-name ((t :inherit font-lock-builtin-face)) "Face for displaying executable names." :group ivy-faces counsel-outline-1 ((t :inherit org-level-1)) "Face for displaying level 1 headings." counsel-outline-2 ((t :inherit org-level-2)) "Face for displaying level 2 headings." counsel-outline-3 ((t :inherit org-level-3)) "Face for displaying level 3 headings." counsel-outline-4 ((t :inherit org-level-4)) "Face for displaying level 4 headings." counsel-outline-5 ((t :inherit org-level-5)) "Face for displaying level 5 headings." counsel-outline-6 ((t :inherit org-level-6)) "Face for displaying level 6 headings." counsel-outline-7 ((t :inherit org-level-7)) "Face for displaying level 7 headings." counsel-outline-8 ((t :inherit org-level-8)) "Face for displaying level 8 headings." counsel-outline-default ((t :inherit minibuffer-prompt)) "Face for displaying headings."] 6) #@31 List of faulty desktop files. (defvar counsel-linux-apps-faulty nil (#$ . 193625)) #@30 Cache of desktop files data. (defvar counsel--linux-apps-cache nil (#$ . 193714)) #@31 List of cached desktop files. (defvar counsel--linux-apps-cached-files nil (#$ . 193802)) #@56 Time when we last updated the cached application list. (defvar counsel--linux-apps-cache-timestamp nil (#$ . 193898)) #@64 The function used to format the cached Linux application menu. (defvar counsel--linux-apps-cache-format-function nil (#$ . 194022)) #@159 Default Linux application name formatter. NAME is the name of the application, COMMENT its comment and EXEC the command to launch it. (fn NAME COMMENT EXEC) (defalias 'counsel-linux-app-format-function-default #[771 "\300\301\302\303\304\305\306#\307\"\310\311#\203\312P\202\306$\207" [format "% -45s: %s%s" propertize ivy--truncate-string replace-regexp-in-string "env +[^ ]+ +" "" 45 face counsel-application-name " - "] 11 (#$ . 194161)]) #@138 Format Linux application names with the NAME (and COMMENT) first. EXEC is the command to launch the application. (fn NAME COMMENT EXEC) (defalias 'counsel-linux-app-format-function-name-first #[771 "\300\301\203 \302P\202\303\304\305\306#$\207" [format "%s%s (%s)" " - " "" propertize face counsel-application-name] 11 (#$ . 194621)]) #@90 Format Linux application names with the NAME (and COMMENT) only. (fn NAME COMMENT EXEC) (defalias 'counsel-linux-app-format-function-name-only #[771 "\300\301\203 \302P\202\303#\207" [format "%s%s" " - " ""] 8 (#$ . 194970)]) #@96 Display only the command EXEC when formatting Linux application names. (fn NAME COMMENT EXEC) (defalias 'counsel-linux-app-format-function-command-only #[771 "\207" [] 4 (#$ . 195209)]) #@102 Format Linux application names with the NAME (and COMMENT) only, but pretty. (fn NAME COMMENT EXEC) (defalias 'counsel-linux-app-format-function-name-pretty #[771 "\300\301\302\303\304\"\305\306#\203\307P\202\310#\207" [format "% -45s%s" propertize ivy--truncate-string 45 face counsel-application-name ": " ""] 9 (#$ . 195403)]) #@165 Return an alist of all Linux applications. Each list entry is a pair of (desktop-name . desktop-file). This function always returns its elements in a stable order. (defalias 'counsel-linux-apps-list-desktop-files #[0 "\301\302\303\"\304\211\203V\211@\305!\203O\306!\307\310\"\211\203M\211@\311\312\313\314\"#\315 \"\204E\316!\203E\211BB\262\317\n#\210\210A\266\202\202\266A\266\202\202\210\207" [counsel-linux-apps-directories make-hash-table :test equal nil file-exists-p file-name-as-directory directory-files-recursively ".*\\.desktop$" subst-char-in-string 47 45 file-relative-name gethash file-readable-p puthash] 13 (#$ . 195749)]) #@13 (fn FILE) (defalias 'counsel-linux-app--parse-file #[257 "\303\304\305\"r\211q\210\306\307\"\216\310!\210eb\210\311\312\313\305#\311\314\313\305#\305\313\211\211\3152\325\204:B\316\317 \"\210\320\315\313\"\210b\210\311\321\305#\203I\313\262\322\323!\262b\210\311\324\305#\204_\320\315\313\"\210\322\323!\262b\210\311\325\305#\204\200B\316\326 \"\210\320\315\313\"\210\322\323!\262b\210\311\327\305#\203\226\322\323!\262b\210\311\330\305#\204\247\320\315\313\"\210\322\323!\262b\210\311\331\305#\203\312\322\323!\332 \313\333$\204\311\320\315\313\"\210\210\334\n#\335#0\266\206*\207" [counsel-linux-apps-faulty exec-path counsel-linux-app-format-function generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^\\[Desktop Entry\\] *$" nil "^\\[" break message "Warning: File %s has no [Desktop Entry] group" throw "^\\(Hidden\\|NoDisplay\\) *= *\\(1\\|true\\) *$" match-string 1 "^Type *= *Application *$" "^Name *= *\\(.+\\)$" "Warning: File %s has no Name" "^Comment *= *\\(.+\\)$" "^Exec *= *\\(.+\\)$" "^TryExec *= *\\(.+\\)$" locate-file file-executable-p propertize visible] 14 (#$ . 196422)]) #@230 Parse the given alist of Linux desktop entries. Each entry in DESKTOP-ENTRIES-ALIST is a pair of ((id . file-name)). Any desktop entries that fail to parse are recorded in `counsel-linux-apps-faulty'. (fn DESKTOP-ENTRIES-ALIST) (defalias 'counsel-linux-apps-parse #[257 "\301\211\211\203&\211@\211@A\302!\211\203\211BB\262\266A\266\202\202\207" [counsel-linux-apps-faulty nil counsel-linux-app--parse-file] 9 (#$ . 197679)]) #@48 Return list of all Linux desktop applications. (defalias 'counsel-linux-apps-list #[0 "\305 \306\307\" =\203\211\n\232\203\310\311\"\203$\312!\313 \211\266 \207" [counsel-linux-app-format-function counsel--linux-apps-cache-format-function counsel--linux-apps-cached-files counsel--linux-apps-cache counsel--linux-apps-cache-timestamp counsel-linux-apps-list-desktop-files mapcar cdr cl-find-if #[257 "\301\302\303!8\"\207" [counsel--linux-apps-cache-timestamp time-less-p 5 file-attributes] 6 "\n\n(fn FILE)"] counsel-linux-apps-parse current-time] 5 (#$ . 198127)]) #@49 Launch DESKTOP-SHORTCUT. (fn DESKTOP-SHORTCUT) (defalias 'counsel-linux-app-action-default #[257 "\300\301\302\303\302A%\207" [call-process "gtk-launch" nil 0] 7 (#$ . 198717)]) #@70 Launch DESKTOP-SHORTCUT with a selected file. (fn DESKTOP-SHORTCUT) (defalias 'counsel-linux-app-action-file #[257 "\300\301\302\303\302A\304\305!&\207" [call-process "gtk-launch" nil 0 read-file-name "File: "] 9 (#$ . 198903)]) #@47 Open DESKTOP-SHORTCUT. (fn DESKTOP-SHORTCUT) (defalias 'counsel-linux-app-action-open-desktop #[257 "\211A\300\301 \"A\211\203\302!\207\303\304\"\207" [assoc counsel-linux-apps-list-desktop-files find-file error "Could not find location of file %s"] 6 (#$ . 199141)]) (ivy-set-actions 'counsel-linux-app '(("f" counsel-linux-app-action-file "run on a file") ("d" counsel-linux-app-action-open-desktop "open desktop file"))) #@145 Launch a Linux desktop application, similar to Alt-. When ARG is non-nil, ignore NoDisplay property in *.desktop files. (fn &optional ARG) (defalias 'counsel-linux-app #[256 "\300\301\302 \303?\205 \304\305\306\307\310&\207" [ivy-read "Run application: " counsel-linux-apps-list :predicate #[257 "\300\301\302@#\207" [get-text-property 0 visible] 5 "\n\n(fn X)"] :action counsel-linux-app-action-default :caller counsel-linux-app] 10 (#$ . 199578) "P"]) #@58 Select the desktop window that corresponds to X. (fn X) (defalias 'counsel-wmctrl-action #[257 "\300\301\302\303A$\207" [counsel--run "wmctrl" "-i" "-a"] 6 (#$ . 200047)]) #@55 List of window titles to ignore for `counsel-wmctrl'. (defvar counsel-wmctrl-ignore '("XdndCollectionWindowImp" "unity-launcher" "unity-panel" "unity-dash" "Hud" "Desktop") (#$ . 200227)) #@10 (fn S) (defalias 'counsel--wmctrl-parse #[257 "\301\302\"\205\303\304\"\303\305\"\235?\205B\266\202\207" [counsel-wmctrl-ignore string-match "\\`\\([0-9a-fx]+\\) +\\([-0-9]+\\) +\\(?:[0-9]+\\) +\\([^ ]+\\) \\(.+\\)$" match-string 4 1] 5 (#$ . 200421)]) #@39 Select a desktop window using wmctrl. (defalias 'counsel-wmctrl #[0 "\300\301!\302\303\304\305\"\"\306\307\310\311\312\313&\207" [counsel--sl "wmctrl -l -p" delq nil mapcar counsel--wmctrl-parse ivy-read "window: " :action counsel-wmctrl-action :caller counsel-wmctrl] 9 (#$ . 200693) nil]) #@11 Internal. (defvar counsel--switch-buffer-temporary-buffers nil (#$ . 200993)) #@11 Internal. (defvar counsel--switch-buffer-previous-buffers nil (#$ . 201077)) #@131 Clear temporary file buffers and restore `buffer-list'. The buffers are those opened during a session of `counsel-switch-buffer'. (defalias 'counsel--switch-buffer-unwind #[0 "\302\303\"\210\302\304\305\306 \"\"\210\307\211\211\207" [counsel--switch-buffer-temporary-buffers counsel--switch-buffer-previous-buffers mapc kill-buffer bury-buffer cl-remove-if-not buffer-live-p nil] 6 (#$ . 201161)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable counsel-switch-buffer-preview-virtual-buffers funcall function #[0 "\300\207" [t] 1] "When non-nil, `counsel-switch-buffer' will preview virtual buffers." :type boolean] 6) (defalias 'counsel--switch-buffer-update-fn #[0 "\204\306 \307 \310H\n\" \310H \235\203\" \211\310 \310H\fG\311OI\266\312 \310H!\2030\311\313 )\207 \203^\211\203^\314A!\203^\3151K\316A!0\202M\210\311\211\203Z\211B\313 \207\317\320!\207\321\322 !!r\323\324\"\216\325@\326\"\210\327 \330H!*\207" [counsel--switch-buffer-previous-buffers ivy-last ivy--virtual-buffers ivy-marked-candidates ivy-mark-prefix counsel-switch-buffer-preview-virtual-buffers buffer-list assoc 23 nil get-buffer ivy-call file-exists-p (error) find-file-noselect message "" internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord switch-to-buffer 13 counsel--switch-buffer-temporary-buffers] 7]) #@116 Switch to another buffer. Display a preview of the selected ivy completion candidate buffer in the current window. (defalias 'counsel-switch-buffer #[0 "\302\303\304 *\207" [ivy-unwind-fns-alist ivy-update-fns-alist ((ivy-switch-buffer . counsel--switch-buffer-update-fn)) ((ivy-switch-buffer . counsel--switch-buffer-unwind)) ivy-switch-buffer] 2 (#$ . 202609) nil]) #@134 Switch to another buffer in another window. Display a preview of the selected ivy completion candidate buffer in the current window. (defalias 'counsel-switch-buffer-other-window #[0 "\302\303\304 *\207" [ivy-unwind-fns-alist ivy-update-fns-alist ((ivy-switch-buffer-other-window . counsel--switch-buffer-update-fn)) ((ivy-switch-buffer-other-window . counsel--switch-buffer-unwind)) ivy-switch-buffer-other-window] 2 (#$ . 202986) nil]) #@77 Open the file associated with BUFFER with an external program. (fn BUFFER) (defalias 'counsel-open-buffer-file-externally #[257 "\211G\301U\203 \302\303!\210\304\"\211\203\211A\202\305\306!!\211\204&\302\307\"\210\310\311!!\207" [ivy--virtual-buffers 0 user-error "Can't open that" assoc buffer-file-name get-buffer "Can't open `%s' externally" counsel-locate-action-extern expand-file-name] 6 (#$ . 203432)]) (byte-code "\300\301\302\"\210\303\304\305\"\207" [ivy-add-actions ivy-switch-buffer (("x" counsel-open-buffer-file-externally "open externally")) ivy-set-actions counsel-switch-buffer (("x" counsel-open-buffer-file-externally "open externally") ("j" ivy--switch-buffer-other-window-action "other window"))] 3) #@615 History for `counsel-compile'. This is a list of strings with additional properties which allow the history to be filtered depending on the context of the call. The properties include: `srcdir' the root directory of the source code `blddir' the root directory of the build (in or outside the `srcdir') `bldenv' the build environment as passed to `compilation-environment' `recursive' the completion should be run again in `blddir' of this result `cmd' if set, pass only the substring with this property to `compile' This variable is suitable for addition to `savehist-additional-variables'. (defvar counsel-compile-history nil (#$ . 204172)) #@191 Special hook to find the project root for compile commands. Each function on this hook is called in turn with no arguments and should return either a directory, or nil if no root was found. (defvar counsel-compile-root-functions '(counsel--projectile-root counsel--project-current counsel--configure-root counsel--git-root counsel--dir-locals-root) (#$ . 204844)) #@123 Return root of current project or signal an error on failure. The root is determined by `counsel-compile-root-functions'. (defalias 'counsel--compile-root #[0 "\300\301!\206 \302\303!\207" [run-hook-with-args-until-success counsel-compile-root-functions error "Couldn't find project root"] 2 (#$ . 205215)]) #@115 Return root of current projectile project or nil on failure. Use `projectile-project-root' to determine the root. (defalias 'counsel--projectile-root #[0 "\300\301!\205\301 \207" [fboundp projectile-project-root] 2 (#$ . 205531)]) #@96 Return root of current project or nil on failure. Use `project-current' to determine the root. (defalias 'counsel--project-current #[0 "\300\301!\205 \301 A\207" [fboundp project-current] 2 (#$ . 205770)]) #@113 Return root of current project or nil on failure. Use the presence of a "configure" file to determine the root. (defalias 'counsel--configure-root #[0 "\300\301!\207" [counsel--dominating-file "configure"] 2 (#$ . 205984)]) #@108 Return root of current project or nil on failure. Use the presence of a ".git" file to determine the root. (defalias 'counsel--git-root #[0 "\300\301!\207" [counsel--dominating-file ".git"] 2 (#$ . 206215)]) #@114 Return root of current project or nil on failure. Use the presence of a `dir-locals-file' to determine the root. (defalias 'counsel--dir-locals-root #[0 "\301!\207" [dir-locals-file counsel--dominating-file] 2 (#$ . 206430)]) #@340 Additional compile invocations to feed into `counsel-compile'. This can either be a list of compile invocation strings or functions that will provide such a list. You should customize this if you want to provide specific non-standard build types to `counsel-compile'. The default helpers are set up to handle common build environments. (defvar counsel-compile-local-builds '(counsel-compile-get-filtered-history counsel-compile-get-build-directories counsel-compile-get-make-invocation counsel-compile-get-make-help-invocations) (#$ . 206664)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable counsel-compile-make-args funcall function #[0 "\300\207" [#1="-k"] 1 #1#] "Additional arguments for make.\nYou may, for example, want to add \"-jN\" for the number of cores\nN in your system." :type string counsel-compile-env #[0 "\300\207" [nil] 1] "List of environment variables for compilation to inherit.\nEach element should be a string of the form ENVVARNAME=VALUE. This\nlist is passed to `compilation-environment'." (repeat (string :tag "ENVVARNAME=VALUE"))] 6) #@36 History for `counsel-compile-env'. (defvar counsel-compile-env-history nil (#$ . 207806)) #@47 Pattern to match valid environment variables. (defvar counsel-compile-env-pattern "[_[:digit:][:upper:]]+=[/[:alnum:]]*" (#$ . 207902)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable counsel-compile-make-pattern funcall function #[0 "\300\207" [#1="\\`\\(?:GNUm\\|[Mm]\\)akefile\\'"] 1 #1#] "Regexp for matching the names of Makefiles." :type regexp counsel-compile-build-directories #[0 "\300\207" [("build" "builds" "bld" ".build")] 1] "List of potential build subdirectory names to check for." (repeat directory)] 6) #@53 Regexp for extracting phony targets from Makefiles. (defvar counsel-compile-phony-pattern "^\\.PHONY:[ ]+\\(.+\\)$" (#$ . 208498)) #@59 Regexp for extracting help targets from a make help call. (defvar counsel-compile-help-pattern "\\(?:^\\(\\*\\)?[[:space:]]+\\([^[:space:]]+\\)[[:space:]]+-\\)" (#$ . 208636)) #@292 Return a list of Make targets for DIR. Return a single blank target (so we invoke the default target) if Make exits with an error. This might happen because some sort of configuration needs to be done first or the source tree is pristine and being used for multiple build trees. (fn DIR) (defalias 'counsel-compile--probe-make-targets #[257 "\302\303\304\"r\211q\210\305\306\"\216\307\310\311\304\311\312%\311\247\203\"\313V\203'\314C\202Eeb\210\315 \311\304#\203>\316\317\313!!B\262\202*\320\321\322\"\323\")\266\202*\207" [default-directory counsel-compile-phony-pattern generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] call-process "make" nil "-nqp" 1 "" re-search-forward split-string match-string-no-properties sort apply nconc string-lessp] 8 (#$ . 208819)]) #@151 Return a pretty string of the form " LEADER TEXT". LEADER is propertized with a warning face and the remaining text with FACE. (fn LEADER TEXT FACE) (defalias 'counsel-compile--pretty-propertize #[771 "\300\301\301Q\302\303#\300\302#P\207" [propertize " " face font-lock-warning-face] 8 (#$ . 209670)]) #@394 Return propertized make targets returned by PROBE-FN in SRCDIR. The optional BLDDIR allows for handling build directories. We search the Makefile for a list of phony targets which are generally the top level targets a Make system provides. The resulting strings are tagged with properties that `counsel-compile-history' can use for filtering results. (fn PROBE-FN SRCDIR &optional BLDDIR) (defalias 'counsel--compile-get-make-targets #[770 "\302\303\304\305\306#\"\205\307\310\311# \205\307\312\313\314 \315#\316#\317\320\321 \257\322\323\324%\206<!\"\207" [counsel-compile-make-args counsel-compile-env format propertize "make %s %%s" cmd t counsel-compile--pretty-propertize "in" dired-directory "with" mapconcat identity " " font-lock-variable-name-face srcdir blddir bldenv mapcar make-closure #[257 "\304\300\"\301\302Q\262\305\306G\303$\210\207" [V0 V1 V2 V3 format add-text-properties 0] 6 "\n\n(fn TARGET)"]] 14 (#$ . 209984)]) #@199 Have a look in the root directory for any build control files. The optional BLDDIR is useful for other helpers that have found sub-directories that builds may be invoked in. (fn &optional BLDDIR) (defalias 'counsel-compile-get-make-invocation #[256 "\301 \302\206\303\304$\205\305\306#\207" [counsel-compile-make-pattern counsel--compile-root directory-files nil t counsel--compile-get-make-targets counsel-compile--probe-make-targets] 7 (#$ . 210961)]) #@290 Return a list of Make targets based on help for DIR. It is quite common for a 'make help' invocation to return a human readable list of targets. Often common targets are marked with a leading asterisk. The exact search pattern is controlled by `counsel-compile-help-pattern'. (fn DIR) (defalias 'counsel-compile--probe-make-help #[257 "\211\303\211\304\305\306\303\211\211\307\310 &\311=\205b\312\313\314\"r\211q\210\315\316\"\216\304\305\306\303\314\303\310 &\317=\205_eb\210\320\n\303\314#\203V\321\322!\311\224\203M\211B\262\210\2024\211B\262\210\2024\323\324\"\323\324\"\244*\262)\207" [default-directory counsel-compile-env counsel-compile-help-pattern nil apply call-process "make" "-q" "help" 1 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] 0 re-search-forward match-string 2 sort string-lessp] 13 (#$ . 211433)]) #@193 Query the root directory for makefiles with help output. The optional BLDDIR is useful for other helpers that have found sub-directories that builds may be invoked in. (fn &optional BLDDIR) (defalias 'counsel-compile-get-make-help-invocations #[256 "\301 \302\206\303\304$\205\305\306#\207" [counsel-compile-make-pattern counsel--compile-root directory-files nil t counsel--compile-get-make-targets counsel-compile--probe-make-help] 7 (#$ . 212349)]) #@67 Return builds subdirectory of SRCDIR, if one exists. (fn SRCDIR) (defalias 'counsel--find-build-subdir #[257 "\301\302\303\"\"\207" [counsel-compile-build-directories cl-some make-closure #[257 "\301\300\"\262\302!\205 \211\207" [V0 expand-file-name file-directory-p] 4 "\n\n(fn DIR)"]] 5 (#$ . 212817)]) #@183 Return all subdirs under BLDDIR sorted by modification time. If there are non-directory files in BLDDIR, include BLDDIR in the list as it may also be a build directory. (fn BLDDIR) (defalias 'counsel--get-build-subdirs #[257 "\301\302\302$\303\304\"\211GGW\203\305!BB\262\306\307\310\311\"\"\207" [directory-files-no-dot-files-regexp directory-files-and-attributes t cl-remove-if-not cl-second file-attributes mapcar car sort #[514 "\300\3018\3018\"\207" [time-less-p 6] 6 "\n\n(fn X Y)"]] 8 (#$ . 213136)]) #@67 Return a list of potential build directories. (fn &optional DIR) (defalias 'counsel-compile-get-build-directories #[256 "\211\206\300 \301!\302\303BB\304\305\306\307#\304\310\306\311#P\312\313\314#\205&\315!\"\207" [counsel--compile-root counsel--find-build-subdir srcdir (recursive t) propertize "Select build in " face font-lock-warning-face "%s" dired-directory mapcar make-closure #[257 "\302\301\"\303\304G\305\300BB$\210\207" [V0 V1 format add-text-properties 0 blddir] 8 "\n\n(fn SUBDIR)"] counsel--get-build-subdirs] 10 (#$ . 213664)]) #@75 Return a compile history relevant to current project. (fn &optional DIR) (defalias 'counsel-compile-get-filtered-history #[256 "\211\206\301 \302\211\203>\211@\303\304\305#\303\304\306#\203$\307\"\2040\211\2035\307\"\2035B\262\266A\266\202\202\210\211\237\207" [counsel-compile-history counsel--compile-root nil get-text-property 0 srcdir blddir file-in-directory-p] 10 (#$ . 214228)]) #@123 Return the list of compile commands. This is determined by `counsel-compile-local-builds', which see. (fn &optional DIR) (defalias 'counsel--get-compile-candidates #[256 "\301\211\203-\211@\302!\203\211!\262\211\203&\211<\203 \211\202\"\211CB\262A\266\202\202\210\303\304\237\"\207" [counsel-compile-local-builds nil functionp apply append] 6 (#$ . 214646)]) #@73 Update `counsel-compile-history' from the compilation state. (fn PROC) (defalias 'counsel-compile--update-history #[257 "\303  \304\n@\305\306#\307\"?\205\310\311\312#\205%\310\313\314\315\316#\317#Q\320\321G\322\323\324 \257$\210\325\326\"\207" [default-directory compilation-environment compilation-arguments counsel--compile-root propertize cmd t file-equal-p counsel-compile--pretty-propertize "in" dired-directory "with" mapconcat identity " " font-lock-variable-name-face add-text-properties 0 srcdir blddir bldenv add-to-history counsel-compile-history] 14 (#$ . 215028)]) #@181 Tracks the last directory `counsel-compile' was called with. This state allows us to set it correctly if the user has manually edited the command, thus losing our embedded state. (defvar counsel-compile--current-build-dir nil (#$ . 215635)) #@206 Process CMD to call `compile'. If CMD has the `recursive' property set we call `counsel-compile' again to further refine the compile options in the directory specified by the `blddir' property. (fn CMD) (defalias 'counsel-compile--action #[257 "\303\304\305#\303\304\306#\303\304\307#\203\310!\207\311\304\312#\203*\313\304\314\304\312##\262\2063\2063 \315\316\317\"\210\320\216\321!+\207" [counsel-compile--current-build-dir default-directory compilation-environment get-text-property 0 blddir bldenv recursive counsel-compile get-char-property cmd substring-no-properties next-single-property-change add-hook compilation-start-hook counsel-compile--update-history #[0 "\300\301\302\"\207" [remove-hook compilation-start-hook counsel-compile--update-history] 3] compile] 10 (#$ . 215884)]) #@179 Insert current compile command into the minibuffer for editing. This mirrors the behavior of `ivy-insert-current' but with specific handling for the `counsel-compile' metadata. (defalias 'counsel-compile-edit-command #[0 "\302 \210\303H\304\305\306#\211\203\211\307\305\304\305\310#\205#\311\305\310##c\207" [ivy-last counsel-compile--current-build-dir delete-minibuffer-contents 23 get-text-property 0 blddir substring-no-properties cmd next-single-property-change] 9 (#$ . 216704) nil]) #@54 Additional ivy keybindings during command selection. (defvar counsel-compile-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key [remap ivy-insert-current] counsel-compile-edit-command] 5) (#$ . 217211)) #@136 Call `compile' completing with smart suggestions, optionally for DIR. Additional actions: \{counsel-compile-map} (fn &optional DIR) (defalias 'counsel-compile #[256 "\211\206\n\303 \206\n\304\305\306\307!!\310\311\312\n\313\314&\207" [default-directory counsel-compile--current-build-dir counsel-compile-map counsel--compile-root ivy-read "Compile command: " delete-dups counsel--get-compile-candidates :action counsel-compile--action :keymap :caller counsel-compile] 10 (#$ . 217446) nil]) (ivy-add-actions 'counsel-compile '(("d" counsel-compile-forget-command "delete"))) #@54 Delete CMD from `counsel-compile-history'. (fn CMD) (defalias 'counsel-compile-forget-command #[257 "\301\"\211\207" [counsel-compile-history delete] 4 (#$ . 218036)]) #@55 Return a formatter for compile-env CANDS. (fn CANDS) (defalias 'counsel-compile-env--format-hint #[257 "\300\301\302\303#\300\304\302\305#\306\307\310#\311\312$\207" [propertize "remove" face font-lock-warning-face "add" font-lock-variable-name-face ivy--format-function-generic make-closure #[257 "\303\304\n\235\203\f\300\202 \301#\207" [V0 V1 counsel-compile-env format "%s %s"] 5 "\n\n(fn SELECTED)"] identity "\n"] 8 (#$ . 218214)]) #@71 Update `counsel-compile-env' either adding or removing VAR. (fn VAR) (defalias 'counsel-compile-env--update #[257 "\211\235\203 \303\"\211\207 \304\305\306#)\266\203\203#\211B\211\207\307\310\"\207" [counsel-compile-env counsel-compile-env-pattern inhibit-changing-match-data delete nil t string-match user-error "Ignoring malformed variable: '%s'"] 8 (#$ . 218666)]) #@45 Update `counsel-compile-env' interactively. (defalias 'counsel-compile-env #[0 "\302\303\304\305 \"!\306\307\310\311\312\301\313\300&\n\207" [counsel-compile-env counsel-compile-env-history ivy-read "Compile environment variable: " delete-dups append :action counsel-compile-env--update :predicate #[257 "\302\303\304#)\207" [counsel-compile-env-pattern inhibit-changing-match-data nil t string-match] 8 "\n\n(fn CAND)"] :history :caller] 11 (#$ . 219055) nil]) (ivy-configure 'counsel-compile-env :format-fn 'counsel-compile-env--format-hint) #@30 History for `counsel-minor'. (defvar counsel-minor-history nil (#$ . 219612)) #@134 Return completion alist for `counsel-minor'. The alist element is cons of minor mode string with its lighter and minor mode symbol. (defalias 'counsel--minor-candidates #[0 "\301\302\303\304\"\"\207" [minor-mode-list delq nil mapcar #[257 "\302!\2057\303!\2057\211\236AJ\203\304\202\305\306!\307\203.\310\311\312\313B!\"\202/\314\315 #QB\262\207" [minor-mode-alist font-lock-string-face boundp commandp "-" "+" symbol-name propertize format " \"%s\"" format-mode-line t "" face] 10 "\n\n(fn MODE)"]] 5 (#$ . 219697)]) #@354 Enable or disable minor mode. Disabled minor modes are prefixed with "+", and selecting one of these will enable it. Enabled minor modes are prefixed with "-", and selecting one of these will enable it. Additional actions:\ \[ivy-dispatching-done] d: Go to minor mode definition \[ivy-dispatching-done] h: Describe minor mode (defalias 'counsel-minor #[0 "\300\301\302 \303\304\305\306\307\310&\207" [ivy-read "Minor modes (enable +mode or disable -mode): " counsel--minor-candidates :require-match t :history counsel-minor-history :action #[257 "\300A!\207" [call-interactively] 3 "\n\n(fn X)"]] 9 (#$ . 220242) nil]) (byte-code "\300\301\302\303\304\305%\210\306\301\307\310\311BB\312\313\314BBD\"\207" [ivy-configure counsel-minor :initial-input "^+" :sort-fn ivy-string< ivy-set-actions "d" #[257 "\300A!\207" [find-function] 3 "\n\n(fn X)"] ("definition") "h" #[257 "\300A!\207" [describe-function] 3 "\n\n(fn X)"] ("help")] 6) (defalias 'counsel-major #[0 "\301\302\303\304\305\306\307\310&\207" [obarray ivy-read "Major modes: " :predicate #[257 "\300!\2053\301\302\303!\"\2053\211K\211\242\304=\262\203/\305\306!\"\211\205*\307@!A?\262\2063\310!?\207" [commandp string-match "-mode$" symbol-name autoload help-split-fundoc documentation read help-function-arglist] 5 "\n\n(fn F)"] :action counsel-M-x-action :caller counsel-major] 9 nil nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable counsel-search-engine funcall function #[0 "\300\207" [ddg] 1] "The search engine choice in `counsel-search-engines-alist'." :type (choice (const ddg) (const google)) counsel-search-engines-alist #[0 "\300\207" [((google "http://suggestqueries.google.com/complete/search" "https://www.google.com/search?q=" counsel--search-request-data-google) (ddg "https://duckduckgo.com/ac/" "https://duckduckgo.com/html/?q=" counsel--search-request-data-ddg))] 1] "Search engine parameters for `counsel-search'." (list)] 6) #@13 (fn DATA) (defalias 'counsel--search-request-data-google #[257 "\300\301\302H\"\207" [mapcar identity 1] 5 (#$ . 222273)]) #@13 (fn DATA) (defalias 'counsel--search-request-data-ddg #[257 "\300\301\"\207" [mapcar cdar] 4 (#$ . 222405)]) #@180 Create a request to a search engine with INPUT. Return 0 tells `ivy--exhibit' not to update the minibuffer. We update it in the callback with `ivy-update-candidates'. (fn INPUT) (defalias 'counsel-search-function #[257 "\302 \206&\303 \"A\304@\305\306\307\310\311B\312BD\313\314\315\316\317 \"& \210\320\262\207" [counsel-search-engine counsel-search-engines-alist ivy-more-chars assoc request :type "GET" :params "client" "firefox" "q" :parser json-read :success make-closure #[128 "\301\302\"A@\303\304\3008!!\207" [V0 plist-member :data ivy-update-candidates 2] 5 "\n\n(fn &key DATA &allow-other-keys)"] 0] 14 (#$ . 222524)]) #@23 Search for X. (fn X) (defalias 'counsel-search-action #[257 "\302\303\304 \"8\305!P!\207" [counsel-search-engine counsel-search-engines-alist browse-url 2 assoc url-hexify-string] 6 (#$ . 223169)]) #@57 Ivy interface for dynamically querying a search engine. (defalias 'counsel-search #[0 "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313&\207" [require request json ivy-read "search: " counsel-search-function :action counsel-search-action :dynamic-collection t :caller counsel-search] 9 (#$ . 223376) nil]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias counsel-google counsel-search nil make-obsolete "<2019-10-17 Thu>"] 4) #@12 (fn BUF) (defalias 'counsel--compilation-errors-buffer #[257 "r\211q\210\301e\212\302\303\"\211\262\203H\304\303\"\211\203D\305!>\204(\306\307\310D\"\210\211\311H\211\262\203Db\210\312\313\314 \"\315\316%B\262\210\202)\237\266\202)\207" [cl-struct-compilation--message-tags nil compilation-next-single-property-change compilation-message get-text-property type-of signal wrong-type-argument compilation--message 1 propertize buffer-substring-no-properties line-end-position pt buffer] 10 (#$ . 223840)]) (defalias 'counsel-compilation-errors-cands #[0 "\300 \301\211:\203*@\262r\211q\210\302\303!)\262\203#\304!\237\244\262A\262\202\211\237\207" [buffer-list nil local-variable-p compilation-locs counsel--compilation-errors-buffer] 6]) #@10 (fn X) (defalias 'counsel-compilation-errors-action #[257 "\300\301\302\303#!\210\301\302\304#b\210\305 \207" [pop-to-buffer get-text-property 0 buffer pt compile-goto-error] 6 (#$ . 224620)]) #@21 Compilation errors. (defalias 'counsel-compilation-errors #[0 "\300\301\302 \303\304\305\306\307\310&\207" [ivy-read "compilation errors: " counsel-compilation-errors-cands :require-match t :action counsel-compilation-errors-action :history counsel-compilation-errors-history] 9 (#$ . 224823) nil]) (defalias 'counsel-flycheck-errors-cands #[0 "\301\302\"\207" [flycheck-current-errors mapcar #[257 "\300\301\302\303\304!!\305!\306!$\307#\207" [propertize format "%s:%d:%s" file-name-base flycheck-error-filename flycheck-error-line flycheck-error-message error] 8 "\n\n(fn ERR)"]] 3]) #@68 Generate a custom occur buffer for `counsel-flycheck'. (fn CANDS) (defalias 'counsel-flycheck-occur #[257 "\303=\204 \303 \210 \304H\305\306\307\"!\207" [major-mode ivy-last default-directory ivy-occur-grep-mode 21 swiper--occur-insert-lines mapcar #[257 "\300\301\302#\303\304\305\306!\307!$\302#\207" [get-text-property 0 error propertize format "%s:%d:%s" flycheck-error-filename flycheck-error-line] 8 "\n\n(fn CAND)"]] 5 (#$ . 225422)]) #@12 (fn ERR) (defalias 'counsel-flycheck-errors-action #[257 "\300\301\302\303#!\207" [flycheck-jump-to-error get-text-property 0 error] 6 (#$ . 225881)]) (ivy-configure 'counsel-flycheck :occur 'counsel-flycheck-occur) #@18 Flycheck errors. (defalias 'counsel-flycheck #[0 "\300\301!\210\302\303\304 \305\306\307\310\311\312&\207" [require flycheck ivy-read "flycheck errors: " counsel-flycheck-errors-cands :require-match t :action counsel-flycheck-errors-action :history counsel-flycheck-errors-history] 9 (#$ . 226106) nil]) #@76 Map for `counsel-mode'. Remaps built-in functions to counsel replacements. (defvar counsel-mode-map (byte-code "\300 \301\211\203\211@\302\303\304@\"A#\210A\266\202\202\210\207" [make-sparse-keymap ((execute-extended-command . counsel-M-x) (describe-bindings . counsel-descbinds) (describe-function . counsel-describe-function) (describe-variable . counsel-describe-variable) (describe-symbol . counsel-describe-symbol) (apropos-command . counsel-apropos) (describe-face . counsel-describe-face) (list-faces-display . counsel-faces) (find-file . counsel-find-file) (find-library . counsel-find-library) (imenu . counsel-imenu) (load-library . counsel-load-library) (load-theme . counsel-load-theme) (yank-pop . counsel-yank-pop) (info-lookup-symbol . counsel-info-lookup-symbol) (pop-to-mark-command . counsel-mark-ring) (geiser-doc-look-up-manual . counsel-geiser-doc-look-up-manual) (bookmark-jump . counsel-bookmark)) define-key vector remap] 8) (#$ . 226417)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\313\314\315\316\306\307& \207" [custom-declare-variable counsel-mode-override-describe-bindings funcall function #[0 "\300\207" [nil] 1] "Whether to override `describe-bindings' when `counsel-mode' is active." :type boolean counsel-mode #[0 "\300\207" [nil] 1] "Non-nil if counsel mode is enabled.\nSee the `counsel-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 `counsel-mode'." :set custom-set-minor-mode :initialize custom-initialize-default] 10) #@243 Toggle Counsel mode on or off. Turn Counsel mode on if ARG is positive, off otherwise. Counsel mode remaps built-in emacs functions that have counsel replacements. Local bindings (`counsel-mode-map'): \{counsel-mode-map} (fn &optional ARG) (defalias 'counsel-mode #[256 "\304 \305\301\306=\203\307\301!?\202!\247\203 \310W\203 \311\202!\312\"\210\313\300!\2038\314\301\"\307\301!\2038\301B \203O\n\203F\315\316\317\320#\210\321 \322\323#\210\202T\324\316\320\"\210\325\326\307\301!\203`\327\202a\330\"\210\331\332!\203\211\333\301!\210\304 \203y\211\304 \232\203\211\334\335\307\301!\203\205\336\202\206\337\340#\210\210\341 \210\307\301!\207" [global-minor-modes counsel-mode counsel-mode-override-describe-bindings minibuffer-local-map current-message set-default toggle default-value 1 nil t boundp delq advice-add describe-bindings :override counsel-descbinds define-key "" counsel-minibuffer-history advice-remove run-hooks counsel-mode-hook counsel-mode-on-hook counsel-mode-off-hook called-interactively-p any customize-mark-as-set message "counsel mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 228068) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar counsel-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%\210\314\315!\207" [counsel-mode-map counsel-mode-hook variable-documentation put "Hook run after entering or leaving `counsel-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 counsel-mode " counsel" provide counsel] 6)