;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\302\313\310\301\310\314\306\315\304\305& \210\316\317\320\321\322DD\323\324\325\326\321\310\301& \207" [custom-declare-group rainbow-delimiters nil "Highlight nested parentheses, brackets, and braces according to their depth." :prefix "rainbow-delimiters-" :link (url-link :tag "Website for rainbow-delimiters" "https://github.com/Fanael/rainbow-delimiters") :group applications rainbow-delimiters-faces "Faces for successively nested pairs of delimiters.\n\nWhen depth exceeds innermost defined face, colors cycle back through." faces (custom-group-link "rainbow-delimiters") custom-declare-variable rainbow-delimiters-pick-face-function funcall function #[0 "\300\207" [rainbow-delimiters-default-pick-face] 1 ""] "The function used to pick a face used to highlight a delimiter.\nThe function should take three arguments (DEPTH MATCH LOC), where:\n - DEPTH is the delimiter depth; when zero or negative, it's an unmatched\n delimiter.\n - MATCH is nil iff the delimiter is a mismatched closing delimiter.\n - LOC is the location of the delimiter.\nThe function should return a value suitable to use as a value of the `face' text\nproperty, or nil, in which case the delimiter is not highlighted.\nThe function should not move the point or mark or change the match data." :tag "Pick face function" :type] 12) (custom-declare-face 'rainbow-delimiters-base-face '((default (:inherit unspecified))) "Face inherited by all other rainbow-delimiter faces." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-base-error-face '((default (:inherit rainbow-delimiters-base-face)) (t (:foreground "#88090B"))) "Face inherited by all other rainbow-delimiter error faces." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-unmatched-face '((default (:inherit rainbow-delimiters-base-error-face))) "Face to highlight unmatched closing delimiters in." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-mismatched-face '((default (:inherit rainbow-delimiters-unmatched-face))) "Face to highlight mismatched closing delimiters in." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-9-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#887070") (((class color) (background dark)) :foreground "#9cb6ad")) "Nested delimiter face, depth 9." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-8-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#80a880") (((class color) (background dark)) :foreground "#a2b6da")) "Nested delimiter face, depth 8." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-7-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#858580") (((class color) (background dark)) :foreground "#90a890")) "Nested delimiter face, depth 7." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-6-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#6276ba") (((class color) (background dark)) :foreground "#b0b0b3")) "Nested delimiter face, depth 6." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-5-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#907373") (((class color) (background dark)) :foreground "#aebed8")) "Nested delimiter face, depth 5." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-4-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#709870") (((class color) (background dark)) :foreground "#97b098")) "Nested delimiter face, depth 4." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-3-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#909183") (((class color) (background dark)) :foreground "#b0b1a3")) "Nested delimiter face, depth 3." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-2-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#7388d6") (((class color) (background dark)) :foreground "#93a8c6")) "Nested delimiter face, depth 2." :group 'rainbow-delimiters-faces) (custom-declare-face 'rainbow-delimiters-depth-1-face '((default (:inherit rainbow-delimiters-base-face)) (((class color) (background light)) :foreground "#707183") (((class color) (background dark)) :foreground "grey55")) "Nested delimiter face, depth 1." :group 'rainbow-delimiters-faces) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable rainbow-delimiters-max-face-count funcall function #[0 "\300\207" [9] 1 #1=""] "Number of faces defined for highlighting delimiter levels.\n\nDetermines depth at which to cycle through faces again.\n\nIt's safe to change this variable provided that for all integers from 1 to the\nnew value inclusive, a face `rainbow-delimiters-depth-N-face' is defined." :type integer :group rainbow-delimiters rainbow-delimiters-outermost-only-face-count #[0 "\300\207" [0] 1 #1#] "Number of faces to be used only for N outermost delimiter levels.\n\nThis should be smaller than `rainbow-delimiters-max-face-count'."] 8)#@402 Return a face name appropriate for nesting depth DEPTH. DEPTH and MATCH are as in `rainbow-delimiters-pick-face-function'. The returned value is either `rainbow-delimiters-unmatched-face', `rainbow-delimiters-mismatched-face', or one of the `rainbow-delimiters-depth-N-face' faces, obeying `rainbow-delimiters-max-face-count' and `rainbow-delimiters-outermost-only-face-count'. (fn DEPTH MATCH LOC) (defalias 'rainbow-delimiters-default-pick-face #[771 "\302X\203\303\207\204\304\207\305\306\307X\203\202( T\310ZS Z\"\\!\311Q!\207" [rainbow-delimiters-max-face-count rainbow-delimiters-outermost-only-face-count 0 rainbow-delimiters-unmatched-face rainbow-delimiters-mismatched-face intern-soft "rainbow-delimiters-depth-" number-to-string mod "-face"] 11 (#$ . 5650)])#@266 Highlight a single delimiter at LOC according to DEPTH. LOC is the location of the character to add text properties to. DEPTH is the nested depth at LOC, which determines the face to use. MATCH is nil iff it's a mismatched closing delimiter. (fn LOC DEPTH MATCH) (defalias 'rainbow-delimiters--apply-color #[771 "#\211\205\301\211T\302$\207" [rainbow-delimiters-pick-face-function font-lock-prepend-text-property face] 9 (#$ . 6444)])#@332 Return t if char at LOC should not be highlighted. PPSS is the `parse-partial-sexp' state at LOC. DELIM-SYNTAX-CODE is the `car' of a raw syntax descriptor at LOC. Returns t if char at loc meets one of the following conditions: - Inside a string. - Inside a comment. - Is an escaped char, e.g. ?) (fn LOC PPSS DELIM-SYNTAX-CODE) (defalias 'rainbow-delimiters--char-ineligible-p #[771 "\3008\206E\3018\206E\3028\206E\303\304\"\305U\204+\303\306\307T!@\206&\305\"\305U?\207\303\306\"\305U\204D\303\304\307S!@\206?\305\"\305U?\207\310\207" [3 4 5 logand 65536 0 131072 syntax-after nil] 7 (#$ . 6895)])#@110 Highlight delimiters in region between point and END. Used by font-lock for dynamic highlighting. (fn END) (defalias 'rainbow-delimiters--propertize #[257 "\301\300!\203\f\203\f~\210`\302 \303\304\"\210`V\203b`\305!\306\307\211%\262\262\307u\210\211@\310#\204]\311\312\"\313U\203M\314@T\315#\266\202AA@f=\314@#\266\266\202\266\307\207" [mmm-current-submode boundp syntax-ppss skip-syntax-forward "^()" syntax-after parse-partial-sexp nil rainbow-delimiters--char-ineligible-p logand 65535 4 rainbow-delimiters--apply-color t] 11 (#$ . 7517)]) (defconst rainbow-delimiters--font-lock-keywords '(rainbow-delimiters--propertize))#@115 Non-nil if Rainbow-Delimiters mode is enabled. Use the command `rainbow-delimiters-mode' to change this variable. (defvar rainbow-delimiters-mode nil (#$ . 8188)) (make-variable-buffer-local 'rainbow-delimiters-mode)#@648 Highlight nested parentheses, brackets, and braces according to their depth. This is a minor mode. If called interactively, toggle the `Rainbow-Delimiters mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `rainbow-delimiters-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'rainbow-delimiters-mode #[256 "\306 \307=\203 ?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300 \"\2031\300 B\315\311\n\"\210\203v\316\311\n\317#\210\320\303!\210\312\313\304!\203P\f\204Z\313\305!\203^ \203^\321\322!\210\313\304!\203j\320\304!\210\311\313\305!\203v\320\305!\210\311#\203\212\323\324!\203\207\324 \210\202\212\325 \210\326\327\203\224\330\202\225\331\"\210\332\333!\203\270\306 \203\251\211\306 \232\203\270\334\335\336\203\264\337\202\265\340\341$\210\210\342 \210\207" [rainbow-delimiters-mode local-minor-modes rainbow-delimiters--font-lock-keywords jit-lock-contextually syntax-begin-function font-lock-beginning-of-syntax-function current-message toggle 1 nil t boundp delq font-lock-remove-keywords font-lock-add-keywords append make-local-variable syntax-ppss-flush-cache 0 fboundp font-lock-flush font-lock-fontify-buffer run-hooks rainbow-delimiters-mode-hook rainbow-delimiters-mode-on-hook rainbow-delimiters-mode-off-hook called-interactively-p any message "%s %sabled%s" "Rainbow-Delimiters mode" "en" "dis" " in current buffer" force-mode-line-update font-lock-mode] 7 (#$ . 8411) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar rainbow-delimiters-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\314\300!\205#\310\211%\207" [rainbow-delimiters-mode-map rainbow-delimiters-mode-hook variable-documentation put "Hook run after entering or leaving `rainbow-delimiters-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 rainbow-delimiters-mode "" boundp] 6)#@35 Enable `rainbow-delimiters-mode'. (defalias 'rainbow-delimiters-mode-enable #[0 "\300\301!\207" [rainbow-delimiters-mode 1] 2 (#$ . 10875)])#@36 Disable `rainbow-delimiters-mode'. (defalias 'rainbow-delimiters-mode-disable #[0 "\300\301!\207" [rainbow-delimiters-mode 0] 2 (#$ . 11021)]) (provide 'rainbow-delimiters)