;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'cl-lib) (defvar sly--last-message nil) #@66 Like `message', but use a prefix. (fn FORMAT-STRING &rest ARGS) (defalias 'sly-message #[385 "\301\302#\302\303\"\304\305\"\207" [sly--last-message apply format "[sly] %s" message "%s"] 6 (#$ . 136)]) (add-hook 'echo-area-clear-hook 'sly--message-clear-last-message) (defalias 'sly--message-clear-last-message #[0 "\301\211\207" [sly--last-message nil] 2]) #@208 Wait WAIT seconds then display a message for SIT-FOR seconds. A nil value for WAIT means "now". SIT-FOR is has the semantincs of `minibuffer-message-timeout', which see. (fn WAIT SIT-FOR FORMAT &rest ARGS) (defalias 'sly-temp-message #[899 "\300\301\302\303$#\207" [run-with-timer nil make-closure #[0 " \305\306\301\302#\307\310 !\203\300\311\312\")\207\313\312\"\210\314\300\315\316\317\"#\207" [V0 V1 V2 sly--last-message minibuffer-message-timeout apply format minibuffer-window-active-p minibuffer-window minibuffer-message "[sly] %s" message run-with-timer nil make-closure #[0 "\300\205\301\302\300\"\207" [V0 message "%s"] 3]] 8]] 12 (#$ . 507)]) #@33 (fn FORMAT-STRING &rest ARGS) (defalias 'sly-warning #[385 "\300\301\302\303#\"\207" [display-warning (sly warning) apply format] 8 (#$ . 1185)]) #@33 (fn FORMAT-STRING &rest ARGS) (defalias 'sly-error #[385 "\300\301\302\303\"#\207" [apply error format "[sly] %s"] 7 (#$ . 1341)]) #@33 (fn FORMAT-STRING &rest ARGS) (defalias 'sly-user-error #[385 "\300\301\302\303\"#\207" [apply user-error format "[sly] %s"] 7 (#$ . 1482)]) #@40 (fn FORMAT-STRING &rest FORMAT-ARGS) (defalias 'sly-display-oneliner #[385 "\300\301#\302\303 !?\205\304\305!!\207" [apply format minibuffer-window-active-p minibuffer-window sly-message sly-oneliner] 6 (#$ . 1633)]) #@73 Return STRING truncated to fit in a single echo-area line. (fn STRING) (defalias 'sly-oneliner #[257 "\211\301G\302\303\"\206\f^\304\305 !S^O\207" [most-positive-fixnum 0 cl-position 10 window-width minibuffer-window] 7 (#$ . 1863)]) #@322 Like `completing-read', but tweak `completing-read-function'. Specifically, if the `completion-read-function' has not been tweaked, and `icomplete-mode' is not being used, use `ido-completing-read' to provide a better UX. (fn PROMPT CHOICES &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD) (defalias 'sly-completing-read #[2050 "\302=\203 \204\303\202\304&)\207" [completing-read-function icomplete-mode completing-read-default ido-completing-read completing-read] 17 (#$ . 2109)]) #@33 (fn FORMAT-STRING &rest ARGS) (defalias 'sly-y-or-n-p #[385 "\300\301\302P#\303!\207" [apply format "[sly] " y-or-n-p] 6 (#$ . 2654)]) #@44 If non-nil `sly-flash-region' does nothing (defvar sly-flash-inhibit nil (#$ . 2800)) (defvar sly--flash-overlay (byte-code "\300\301\211\"\207" [make-overlay 0] 3)) (overlay-put sly--flash-overlay 'priority 1000) #@108 Temporarily highlight region from START to END. (fn START END &key TIMEOUT FACE TIMES (PATTERN \='(0.2))) (defalias 'sly-flash-region #[642 "\302\303\"A@\302\304\"A@\302\305\"A@\302\306\"\206\307A@C\211\203I\211@\310>\2031\211AA\262\202\311>A@\203@\312\262\202\313\314@\"\210\202\210\211\242\203a\204W\203k\315\316\317\312\211$\210\202k\211\320\321_\"\240\210?\205\244p\322   $\210\323\324\"\325\323\326  $\312C\211\323\327&\240\210\211\242 \262\266\203\262\207" [sly-flash-inhibit sly--flash-overlay plist-member :timeout :face :times :pattern (nil (0.2)) (:timeout :face :times :pattern :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:timeout :face :times :pattern)" cl--assertion-failed (and (null times) (null timeout)) "If PATTERN is supplied, don't supply TIMES or TIMEOUT" make-list 2 move-overlay make-closure #[0 "\302 \303\300\206\304#\207" [V0 sly--flash-overlay overlay-put face highlight] 4] #[0 "\301\302\303#\207" [sly--flash-overlay overlay-put face nil] 4] #[0 "\300\301\302E\304 !\305 !\306 !E\232\207" [V0 V1 V2 sly--flash-overlay overlay-start overlay-end overlay-buffer] 5] #[0 "\300\242\205 \303 \205 \301 \210\305\300\242\300\211\242A\240\210\242\306\307\310\300\302\303\304%#\207" [V0 V1 V2 V3 V4 run-with-timer nil make-closure #[0 "\302 \205\301 \210\300\242\205\304\300\242\300\211\242A\240\210\242\305\306\307\303\"#\207" [V0 V1 V2 V3 run-with-timer nil make-closure #[0 "\300\242 \207" [V0] 1]] 6]] 9]] 20 (#$ . 3021)]) (provide 'sly-messages)