;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&\210\315\316\317\320\321DD\322\311\312\323\324\313\325& \210\315\326\317\320\327DD\330\311\312\323\324\313\331& \210\315\332\317\320\333DD\334\323\335\311\312\313\336& \210\315\337\317\320\340DD\341\311\312\323\342\313\343& \210\315\344\317\320\345DD\346\323\347\311\312\313\350& \210\315\351\317\320\352DD\353\323\354\311\312\313\355& \207" [require cider-common subr-x cider-compat cl-lib custom-declare-face cider-result-overlay-face ((((class color) (background light)) :background "grey90" :box (:line-width -1 :color "yellow")) (((class color) (background dark)) :background "grey10" :box (:line-width -1 :color "black"))) "Face used to display evaluation results at the end of line.\nIf `cider-overlays-use-font-lock' is non-nil, this face is\napplied with lower priority than the syntax highlighting." :group cider :package-version (cider "0.9.1") custom-declare-variable cider-result-use-clojure-font-lock funcall function #[0 "\300\207" [t] 1] "If non-nil, interactive eval results are font-locked as Clojure code." :type boolean (cider . "0.10.0") cider-overlays-use-font-lock #[0 "\300\207" [t] 1] "If non-nil, results overlays are font-locked as Clojure code.\nIf nil, apply `cider-result-overlay-face' to the entire overlay instead of\nfont-locking it." (cider . "0.10.0") cider-use-overlays #[0 "\300\207" [both] 1] "Whether to display evaluation results with overlays.\nIf t, use overlays determined by `cider-result-overlay-position'.\nIf nil, display on the echo area.\nIf both, display on both places.\n\nOnly applies to evaluation commands. To configure the debugger overlays,\nsee `cider-debug-use-overlays'." (choice (const :tag "Display using overlays" t) (const :tag "Display in echo area" nil) (const :tag "Both" both)) (cider . "0.10.0") cider-result-overlay-position #[0 "\300\207" [at-eol] 1] "Where to display result overlays for inline evaluation and the debugger.\nIf 'at-eol, display at the end of the line.\nIf 'at-point, display at the end of the respective sexp." '(choice (const :tag "End of line" at-eol) (const :tag "End of sexp" at-point)) (cider . "0.23.0") cider-eval-result-prefix #[0 "\300\207" [#1="=> "] 1 #1#] "The prefix displayed in the minibuffer before a result value." string (cider . "0.5.0") cider-eval-result-duration #[0 "\300\207" [command] 1] "Duration, in seconds, of CIDER's eval-result overlays.\nIf nil, overlays last indefinitely.\nIf the symbol `command', they're erased after the next command.\nAlso see `cider-use-overlays'." (choice (integer :tag "Duration in seconds") (const :tag "Until next command" command) (const :tag "Last indefinitely" nil)) (cider . "0.10.0")] 10) #@117 Safely delete overlay OV. Never throws errors, and can be used in an overlay's modification-hooks. (fn OV &rest _) (defalias 'cider--delete-overlay #[385 "\3001 \301!0\207\210\302\207" [(error) delete-overlay nil] 4 (#$ . 2827)]) #@307 Place an overlay between L and R and return it. TYPE is a symbol put on the overlay's category property. It is used to easily remove all overlays from a region with: (remove-overlays start end 'category TYPE) PROPS is a plist of properties and values to add to the overlay. (fn L R TYPE &rest PROPS) (defalias 'cider--make-overlay #[899 "\300\206p#\301\302#\210\301\303\304#\210\203,\301\211A\262\242\211A\262\242#\210\202\211\301\305\306\307\305\"B#\266\207" [make-overlay overlay-put category cider-temporary t modification-hooks cider--delete-overlay overlay-get] 13 (#$ . 3067)]) #@104 Remove result overlay from current buffer. This function also removes itself from `post-command-hook'. (defalias 'cider--remove-result-overlay #[0 "\300\301\302\303#\210\304\305\211\306\307$\207" [remove-hook post-command-hook cider--remove-result-overlay local remove-overlays nil category result] 5 (#$ . 3684)]) #@128 Add `cider--remove-result-overlay' locally to `post-command-hook'. This function also removes itself from `post-command-hook'. (defalias 'cider--remove-result-overlay-after-command #[0 "\300\301\302\303#\210\304\301\305\306\303$\207" [remove-hook post-command-hook cider--remove-result-overlay-after-command local add-hook cider--remove-result-overlay nil] 5 (#$ . 4006)]) (custom-declare-face 'cider-fringe-good-face '((((class color) (background light)) :foreground "lightgreen") (((class color) (background dark)) :foreground "darkgreen")) "Face used on the fringe indicator for successful evaluation." :group 'cider) #@71 The before-string property that adds a green indicator on the fringe. (defconst cider--fringe-overlay-good (propertize " " 'display '(left-fringe empty-line cider-fringe-good-face)) (#$ . 4633)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable cider-use-fringe-indicators funcall function #[0 "\300\207" [t] 1] "Whether to display evaluation indicators on the left fringe." :safe booleanp :group cider :type boolean :package-version (cider . "0.13.0")] 12) #@138 Place an eval indicator at the fringe before a sexp. END is the position where the sexp ends, and defaults to point. (fn &optional END) (defalias 'cider--make-fringe-overlay #[256 "\205.r\302!\203\303!\202pq\210\212\211\203\211b\210\202\"`\262\304\305!\210\306`\307\310 %*\207" [cider-use-fringe-indicators cider--fringe-overlay-good markerp marker-buffer clojure-forward-logical-sexp -1 cider--make-overlay cider-fringe-indicator before-string] 7 (#$ . 5151)]) #@1109 Place an overlay displaying VALUE at the position determined by WHERE. VALUE is used as the overlay's after-string property, meaning it is displayed at the end of the overlay. Return nil if the overlay was not placed or if it might not be visible, and return the overlay otherwise. Return the overlay if it was placed successfully, and nil if it failed. This function takes some optional keyword arguments: If WHERE is a number or a marker, apply the overlay as determined by `cider-result-overlay-position'. If it is a cons cell, the car and cdr determine the start and end of the overlay. DURATION takes the same possible values as the `cider-eval-result-duration' variable. TYPE is passed to `cider--make-overlay' (defaults to `result'). FORMAT is a string passed to `format'. It should have exactly one %s construct (for VALUE). All arguments beyond these (PROPS) are properties to be used on the overlay. (fn VALUE &rest PROPS &key WHERE DURATION (TYPE \='result) (FORMAT (concat " " cider-eval-result-prefix "%s ")) (PREPEND-FACE \='cider-result-overlay-face) &allow-other-keys) (defalias 'cider--make-result-overlay #[385 "\305\306\"A@\305\307\"A@\305\310\"\206\311A@\305\312\"\206#\313\314\315QDA@\305\316\"\206-\317A@\320@!\203?AA\262\202/\321!\203K\322!\202Z\321\242!\203Y\322@!\202Zpr\211q\210\212\323!\203ib\210\324\313x\210:\203w@\202~\212\325\326!\210`):\203\212A\202\232 \327\267\202\231\330 \202\232`\202\232\313\331 \"\313\332\333 $\210\n\203\260\334\202\261\335\336G\337 %\210\340\341\"\204\315\342!\343 iZV\203\322\344P\262\335\336\326\345\336%\210\342!\346\343 _V\203\363\336\346\343 _O\347\350!P\262\351\352 \353&\262\247\203\354 \313\355$\210\202+\356=\203+ \203(\357\360\361\313\362$\210\202+\361 \210\363!\211\205Q\364\365!`\366!#\205Qi\342!\\\343!W\204P\f?\205Q\262\266\204*\207" [cider-eval-result-prefix cider-result-overlay-position cider-overlays-use-font-lock this-command truncate-lines plist-member :where :duration :type (nil result) :format nil " " "%s " :prepend-face (nil cider-result-overlay-face) keywordp markerp marker-buffer number-or-marker-p " \n[:blank:]" clojure-backward-logical-sexp 1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (at-eol 144 at-point 149)) line-end-position format remove-overlays category font-lock-prepend-text-property put-text-property 0 face string-match "\n." string-width window-width " \n" cursor 3 substitute-command-keys "...\nResult truncated. Type `\\[cider-inspect-last-result]' to inspect it." apply cider--make-overlay after-string run-at-time cider--delete-overlay command add-hook post-command-hook cider--remove-result-overlay-after-command local get-buffer-window <= window-start window-end] 20 (#$ . 5635)]) (byte-code "\300\301\302\303#\300\207" [function-put cider--make-result-overlay lisp-indent-function 1] 4) #@430 Display the result VALUE of an interactive eval operation. VALUE is syntax-highlighted and displayed in the echo area. If POINT and `cider-use-overlays' are non-nil, it is also displayed in an overlay at the end of the line containing POINT. Note that, while POINT can be a number, it's preferable to be a marker, as that will better handle some corner cases where the original buffer is not focused. (fn VALUE &optional POINT) (defalias 'cider--display-interactive-eval-result #[513 "\203\n\304!\202 \205 \205\305\306\307\n%\310\311\312\313\314 #\315\205, \316=?#\"\207" [cider-result-use-clojure-font-lock cider-use-overlays cider-eval-result-duration cider-eval-result-prefix cider-font-lock-as-clojure cider--make-result-overlay :where :duration message "%s" propertize format "%s%s" invisible both] 11 (#$ . 8601)]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\316\317\320\321\322\323& \207" [custom-declare-face cider-fragile-button-face ((((type graphic)) :box (:line-width 3 :style released-button) :inherit font-lock-warning-face) (t :inverse-video t)) "Face for buttons that vanish when clicked." :package-version (cider . "0.12.0") :group cider define-button-type cider-fragile action cider--overlay-destroy follow-link t face nil modification-hooks (cider--overlay-destroy) help-echo "RET: delete this."] 12) #@213 Delete overlay OV and its underlying text. If any other arguments are given (collected in R), only actually do anything if the first one is non-nil. This is so it works in `modification-hooks'. (fn OV &rest R) (defalias 'cider--overlay-destroy #[385 "\211\205\211@??\2054\301\302\303!!\302\304!!\305!\210|\210b\210\306\307f`Sf\310#\2051\311\312!)\266\203\207" [inhibit-modification-hooks t copy-marker overlay-start overlay-end delete-overlay = nil 10 delete-char 1] 9 (#$ . 9976)]) (provide 'cider-overlays)