;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [require mouse custom-declare-variable rg-header-max-search-string-length funcall function #[0 "\300\207" [nil] 1 ""] "The max line length of header line search string item." :type (choice (const :tag "Don't truncate" nil) (number :tag "The max width")) :group rg] 8) (custom-declare-face 'rg-toggle-on-face '((t :inherit rg-file-tag-face)) "face for toggle \"on\" text in header." :group 'rg-face) (custom-declare-face 'rg-toggle-off-face '((t :inherit rg-error-face)) "face for toggle \"off\" text in header." :group 'rg-face) (custom-declare-face 'rg-literal-face '((t :inherit rg-filename-face)) "face for literal label in header." :group 'rg-face) (custom-declare-face 'rg-regexp-face '((t :inherit compilation-line-number)) "face for regexp label in header." :group 'rg-face)#@289 Return a fontified header label. LABELFORM is either a string to render or a form where the `car' is a conditional and the two following items are then and else specs. Specs are lists where the the `car' is the labels string and the `cadr' is font to use for that string. (fn LABELFORM) (defalias 'rg-header-render-label #[257 "\300;\203\301\302BB\202B<\203?@A@\3038\304\305\306@\307\310A@\311BDF\306@\312\310A@\313BDFFD\266\203\202B\314\315!\316\317F\207" [(:propertize "[" font-lock-face (header-line bold)) :propertize (font-lock-face (header-line bold)) 2 :eval if propertize 'font-lock-face quote (header-line bold) 'font-lock-face (header-line bold) error "Not a string or list" (:propertize "]" font-lock-face (header-line bold)) (": ")] 15 (#$ . 941)])#@113 Return a fontified toggle symbol. If ON is non nil, render "on" string, otherwise render "off" string. (fn ON) (defalias 'rg-header-render-toggle #[257 "\300\301\302D\303B\304BBD\207" [:eval let* on ((value (if on "on " "off")) (face (if on 'rg-toggle-on-face 'rg-toggle-off-face))) ((propertize value 'font-lock-face `(bold ,face)))] 5 (#$ . 1727)])#@190 Add a keymap with mouse click action for COMMAND. When hoovering HELP is shown as a tooltip. ITEMS is the header line items that the map will be applied to. (fn COMMAND HELP &rest ITEMS) (defalias 'rg-header-mouse-action #[642 "\302 \303\304V\204\304U\203 \305Y\203\306\202\307\310\311\"#\210\312\313\314\315\316\257\207" [emacs-major-version emacs-minor-version make-sparse-keymap define-key 30 2 [header-line mouse-1] [header-line mouse-2] make-closure #[257 "\301!\210\302\300!\207" [V0 mouse-select-window call-interactively] 3 "\n\n(fn CLICK)" "e"] :propertize mouse-face header-line-highlight help-echo keymap] 12 (#$ . 2086)])#@82 Truncate SEARCH if it exceeds `rg-header-max-search-string-length'. (fn SEARCH) (defalias 'rg-header-truncate-search-pattern #[257 "\301!\203\302\303\304\305%\207\207" [rg-header-max-search-string-length rg-header-truncates-p truncate-string-to-width 0 nil t] 7 (#$ . 2747)])#@53 Verify that SEARCH would be truncated. (fn SEARCH) (defalias 'rg-header-truncates-p #[257 "\247\205 GW\207" [rg-header-max-search-string-length] 3 (#$ . 3034)])#@45 Get the search help for the current buffer. (defalias 'rg-header-search-help #[0 "\300 \301!\203\f\302P\207\303\207" [rg-cur-search-pattern rg-header-truncates-p "Change search string: " "Change search string"] 3 (#$ . 3205)])#@130 Create the header line for SEARCH. If FULL-COMMAND specifies if the full command line search was done. (fn SEARCH FULL-COMMAND) (defalias 'rg-create-header-line #[514 "\211\203\f\301\302!\303D\202`\304\305\306\301\307D\310B!#\304\311\312 \313\314\315DDD#\316\301\317!\304\320\321\313\322\nDD#\316\301\323!\304\324\325\326\327\330\331\332DED!#\316\301\333!\304\334\335\326\327\330\336\332DED!#\316\301\337!\340\257\211\207" [header-line-format rg-header-render-label "command line" "no refinement" rg-header-mouse-action rg-rerun-toggle-rexexp-literal "Toggle literal/regexp" rg-search-literal (("literal" rg-literal-face) ("regexp" rg-regexp-face)) rg-rerun-change-query rg-header-search-help :eval rg-header-truncate-search-pattern rg-search-pattern " " "files" rg-rerun-change-files "Change file types" rg-search-files "case" rg-rerun-toggle-case "Toggle case" rg-header-render-toggle not member "-i" rg-search-flags "ign" rg-rerun-toggle-ignore "Toggle ignore" "--no-ignore" "hits" (:eval (format "%d" rg-hit-count))] 21 (#$ . 3441)]) (provide 'rg-header)