;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\300\305!\210\306\307\310\311\312\313\314\315&\207" [require dap-mode dap-ui lsp-mode lsp-treemacs tooltip custom-declare-face dap-mouse-eval-thing-face ((((class color) (background dark)) :background "grey10" :box (:line-width -1 :color "#2aa1ae"))) "Face used to display evaluation results at the end of line.\nIf `dap-overlays-use-font-lock' is non-nil, this face is\napplied with lower priority than the syntax highlighting." :group dap :package-version (dap "0.9.1")] 8) (defvar dap-mouse--hide-timer nil) #@64 The properties which will be used for creating the `posframe'. (defvar dap-mouse-posframe-properties (byte-code "\300\301\302\303\304\305\306\307\"\310\301\311\312\257\n\207" [:min-width 50 :internal-border-width 2 :internal-border-color face-attribute tooltip :background :width :min-height 10] 10) (#$ . 663)) #@30 Buffer name for `dap-mouse'. (defconst dap-mouse-buffer "*dap-mouse*" (#$ . 981)) (defalias 'dap-mouse--hide-popup\? #[0 "\301\302\303 @!@!\304!p=\203=\206=?\207" [dap-mouse-buffer window-buffer window-list mouse-position get-buffer] 4]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\317\320\306\321\310\311\310\322& \207" [custom-declare-variable dap-mouse-popup-timeout funcall function #[0 "\300\207" [0.3] 1] "The time to wait after command before hiding the popup." :type float :group dap-mouse dap-tooltip-mode #[0 "\300\207" [nil] 1] "Non-nil if Dap-Tooltip mode is enabled.\nSee the `dap-tooltip-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 `dap-tooltip-mode'." :set custom-set-minor-mode :initialize custom-initialize-default boolean tooltip] 14) #@610 Toggle the display of GUD tooltips. This is a minor mode. If called interactively, toggle the `Dap-Tooltip 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 `(default-value 'dap-tooltip-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'dap-tooltip-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\315\316!\210 \203S\317\320\321\"\210\317\322\323\"\210\324\n\325\326#\210\202g \204g\327\320\321\"\210\324\n\330\331#\210\327\322\323\"\210\323 \210\332\333\307\301!\203v\334\202w\335\"\210\336\337!\203\237\340\301!\210\304 \203\217\211\304 \232\203\237\341\342\307\301!\203\233\343\202\234\344\345#\210\210\346 \210\307\301!\207" [global-minor-modes dap-tooltip-mode lsp-mode-map tooltip-mode current-message set-default toggle default-value 1 nil t boundp delq require tooltip add-hook tooltip-functions dap-tooltip-tips lsp-mode-hook dap-tooltip-update-mouse-motions-if-enabled define-key [mouse-movement] dap-tooltip-mouse-motion remove-hook [mouse-movement] ignore run-hooks dap-tooltip-mode-hook dap-tooltip-mode-on-hook dap-tooltip-mode-off-hook called-interactively-p any customize-mark-as-set message "Dap-Tooltip mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 1949) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar dap-tooltip-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\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\325\324\326& \207" [dap-tooltip-mode-map dap-tooltip-mode-hook variable-documentation put "Hook run after entering or leaving `dap-tooltip-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 dap-tooltip-mode boundp custom-declare-variable dap-tooltip-echo-area funcall function #[0 "\300\207" [nil] 1] "Use the echo area instead of frames for DAP tooltips." :type boolean :group dap-mouse tooltip] 10) #@69 Reconsider for all buffers whether mouse motion events are desired. (defalias 'dap-tooltip-update-mouse-motions-if-enabled #[0 "\302\303\304\"\210\305 \211\205,\211@r\211q\210\203 \203 \306\307!\210\202$\306\310!\210)A\266\202\202\207" [dap-tooltip-mode lsp-mode remove-hook post-command-hook dap-tooltip-update-mouse-motions-if-enabled buffer-list dap-tooltip-activate-mouse-motions t nil] 4 (#$ . 4474)]) #@73 Locally t in a buffer if tooltip processing of mouse motion is enabled. (defvar dap-tooltip-mouse-motions-active nil (#$ . 4896)) #@135 Activate/deactivate mouse motion events for the current buffer. ACTIVATEP non-nil means activate mouse motion events. (fn ACTIVATEP) (defalias 'dap-tooltip-activate-mouse-motions #[257 "\211\203\302\300!\210\303\302\301!\210\303\211\207\205\304\300!\210\304\301!\207" [dap-tooltip-mouse-motions-active track-mouse make-local-variable t kill-local-variable] 3 (#$ . 5033)]) #@114 Command handler for mouse movement events in `dap-mode-map'. EVENT is the last mouse movement event. (fn EVENT) (defalias 'dap-tooltip-mouse-motion #[257 "\301 \210\302 @\205\303 \210\211\211\207" [tooltip-last-mouse-motion-event tooltip-hide mouse-pixel-position tooltip-start-delayed-tip] 3 (#$ . 5421) "e"]) #@111 Return the thing at POINT that will be introspected. If there is an active selection - return it. (fn POINT) (defalias 'dap-tooltip-thing-bounds #[257 "\300 \203\301\302 \303 #\203\302 \303 B\207\212\211b\210\304\305!)\207" [region-active-p < region-beginning region-end bounds-of-thing-at-point symbol] 5 (#$ . 5743)]) (defvar dap--tooltip-overlay nil nil) (make-variable-buffer-local 'dap--tooltip-overlay) #@27 Clean tooltip properties. (defalias 'dap-tooltip-post-tooltip #[0 "\203\302!\210\303 \205\304 \305\306#\211\207" [dap-mouse--hide-timer dap-mouse-popup-timeout cancel-timer dap-mouse--hide-popup\? run-at-time nil #[0 "\303 \205/\304!\210 \203)\305 !\210\306 \203)\307 !\310 !\311\312\313\314\315##\266\313\316\317\320\"\207" [dap-mouse-buffer dap--tooltip-overlay dap-mouse--hide-timer dap-mouse--hide-popup\? posframe-hide delete-overlay region-active-p overlay-start overlay-end run-with-idle-timer 0.0 nil make-closure #[0 "`\302\300\303\211#\210\301b\210\211`U?\205\304 \207" [V0 V1 push-mark t exchange-point-and-mark] 5] remove-hook post-command-hook dap-tooltip-post-tooltip] 9]] 4 (#$ . 6164)]) #@227 Show information about the variable under point. The result is displayed in a `treemacs' `posframe'. POS, defaulting to `point', specifies where the cursor is and consequently where to show the `posframe'. (fn &optional POS) (defalias 'dap-tooltip-at-point #[256 "\300 \206`\301!\205w\211\205w\211\205\211\302H\262\211\205#\303\304\"\262\211\205u\305!\211\205s\211\211\205q\211A\262\242\211\205o\211\205m\306{!\211\205k\307\310\311\312\313 \314\315\257\"\316\317\320\f%\321\"\n#\262\262\262\262\262\262\207" [dap--cur-session dap--session-running 12 gethash "id" dap-tooltip-thing-bounds s-trim dap--send-message dap--make-request "evaluate" :expression :frameId :context "hover" dap--resp-handler make-closure #[257 "\306\307\"\211\211\205 \306\310\"\262\211\205\306\311\"\262\312\301\302\"\313\314\315#\210\211\262\316 !\2032\317 !\210\211\320U\203A\211\321\230\262\204[\322\323 \324\301\325\326&\210r\327 !q\210\330\300\303$\210)\331\332\333\"\207" [V0 V1 V2 V3 dap--tooltip-overlay dap-mouse-buffer gethash "body" "result" "variablesReference" make-overlay overlay-put mouse-face dap-mouse-eval-thing-face get-buffer kill-buffer 0 "" apply posframe-show :position :accept-focus t get-buffer-create dap-ui-render-value add-hook post-command-hook dap-tooltip-post-tooltip dap-mouse-posframe-properties] 12 "\n\n(fn INPUT0)"] ignore] 18 (#$ . 6893) nil]) #@347 Show tip for identifier or selection under the mouse. The mouse must either point at an identifier or inside a selected region for the tip window to be shown. In the case of a C program controlled by GDB, show the associated #define directives when program is not executing. This function must return nil if it doesn't handle EVENT. (fn EVENT) (defalias 'dap-tooltip-tips #[257 "\301!\203\203\302\303\304!!!\210\305\207" [dap-tooltip-mode eventp dap-tooltip-at-point posn-point event-end ""] 5 (#$ . 8321)]) (provide 'dap-mouse)