;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\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\313\314\315\316\317DD\320\321\322\323\324&\210\313\325\315\316\326DD\327\321\330\323\324&\210\331\332\333\334#\210\335\211\203n\211@\332N\203g\333N\204g\336\333\332N#\210A\266\202\202M\210\337\332\333\340#\210\313\333\315\316\341DD\342\321\343\323\324&\210\344\345\346\347\323\324%\210\344\350\351\352\323\324%\210\344\353\354\355\323\324%\210\344\356\357\355\323\324%\210\344\360\361\355\323\324%\210\344\362\363\364\323\324%\210\344\365\366\367\323\324%\210\344\370\371\355\323\324%\210\344\372\373\374\323\324%\210\344\375\376\374\323\324%\210\344\377\201@\374\323\324%\210\344\201A\201B\201C\323\324%\210\344\201D\201E\201F\323\324%\210\344\201G\201H\201I\323\324%\210\344\345\201J\347\323\324%\210\344\201K\201L\201M\323\324%\210\313\201N\315\316\201ODD\201P\323\324\321\201Q&\207" [require lsp-lens dap-mode wid-edit dash bui comint compile gdb-mi lsp-treemacs posframe custom-declare-variable dap-ui-breakpoints-ui-list-displayed-hook funcall function #[0 "\300\207" [nil] 1] "List of functions to run when breakpoints list is displayed." :type hook :group dap-ui dap-ui-locals-expand-depth #[0 "\300\207" [1] 1] "Locals expand strategy.\nWhen nil - do not expand.\nt - expand recursively\nnumber - expand N levels." (choice (const :tag "Do not expand" nil) (const :tag "Expand recursively" t) (number :tag "Expand level")) defvaralias dap-ui-expressiosn-expand-depth dap-ui-expressions-expand-depth "This variable is obsolete because it is misspelled." (saved-value saved-variable-comment) put make-obsolete-variable "dap-mode 0.2.0" #[0 "\300\207" [nil] 1] "Expressions expand strategy.\nWhen nil - do not expand.\nt - expand recursively\nnumber - expand N levels." (choice (const :tag "Do not expand" nil) (const :tag "Expand recursively" t) (number :tag "Expand level")) custom-declare-face dap-ui-compile-errline ((t (:inherit compilation-error))) "Face used for marking the line on which an error occurs." dap-ui-sessions-active-session-face ((t :weight bold)) "Face used for marking current session in sessions list." dap-ui-sessions-terminated-face ((t :inherit shadow)) "Face used for marking terminated session." dap-ui-sessions-terminated-active-face ((t :inherit shadow :weight bold)) dap-ui-sessions-running-face ((t)) dap-ui-locals-scope-face ((t :inherit font-lock-function-name-face :weight bold :underline t)) "Face used for scopes in locals view." dap-ui-locals-variable-leaf-face ((t :inherit font-lock-builtin-face :italic t)) "Face used for variables that does not have nested items." dap-ui-locals-variable-face ((t :inherit font-lock-builtin-face :weight bold)) dap-ui-sessions-thread-face ((t)) "Face used for threads in sessions view." dap-ui-sessions-thread-active-face ((t :weight bold)) dap-ui-sessions-stack-frame-face ((t :inherit font-lock-builtin-face)) dap-ui-pending-breakpoint-face ((t nil)) "Face used for marking lines with a pending breakpoints." dap-ui-verified-breakpoint-face ((t nil)) "Face used for marking lines with a verified breakpoints." dap-ui-marker-face ((t :inherit highlight)) "Face used for marking the current point of execution." ((t (:inherit compilation-error))) dap-ui-breakpoint-verified-fringe ((t :foreground "dark green" :weight bold)) "Face for enabled breakpoint icon in fringe." dap-ui-default-fetch-count #[0 "\300\207" [30] 1] "Default number of variables to load in inspect variables view for\narray variables." number] 8) (defconst dap-ui--locals-buffer "*dap-ui-locals*") (defconst dap-ui--sessions-buffer "*dap-ui-sessions*") (defconst dap-ui--debug-window-buffer "*debug-window*") (defconst dap-ui--expressions-buffer "*dap-ui-expressions*") (defconst dap-ui--breakpoints-buffer "*dap-ui-breakpoints*") (defconst dap-ui--repl-buffer "*dap-ui-repl*") (defvar dap-ui-buffer-configurations (byte-code "\306B \307B\n\310B \311\312\313\fBF \314B\315B\257\207" [dap-ui--locals-buffer dap-ui--expressions-buffer dap-ui--sessions-buffer dap-ui--breakpoints-buffer treemacs-width dap-ui--debug-window-buffer ((side . right) (slot . 1) (window-width . 0.2)) ((side . right) (slot . 2) (window-width . 0.2)) ((side . right) (slot . 3) (window-width . 0.2)) (side . left) (slot . 2) window-width ((side . bottom) (slot . 3) (window-width . 0.2)) ((side . bottom) (slot . 1) (window-height . 0.45)) dap-ui--repl-buffer] 8)) #@77 Calculate the face of DEBUG-SESSION based on its state. (fn DEBUG-SESSION) (defalias 'dap-ui-session--calculate-face #[257 "\211\300 =\203\301!\204\302\207\211\300 =\203\303\207\301!\204 \304\207\305\207" [dap--cur-session dap--session-running dap-ui-sessions-terminated-active-face dap-ui-sessions-active-session-face dap-ui-sessions-terminated-face dap-ui-sessions-running-face] 3 (#$ . 4556)]) #@186 Allocate a DAP UI overlay in range BEG and END. TOOLTIP-TEXT, VISUALS, MOUSE-FACE will be used for the overlay. BUF is the active buffer. (fn BEG END VISUALS &optional MOUSE-FACE BUF) (defalias 'dap-ui--make-overlay #[1283 "\300\301\211%\302\303\304\305\"#\210\302\306#\210\302\307\301#\210\302\310\304\311\"#\210\304\312\"\313 \203I\211\203I\302\314\315\316\317\304\f\320\"\304 \321\"E##\210\210\207" [make-overlay t overlay-put face plist-get :face mouse-face dap-ui-overlay priority :priority :char window-system before-string propertize display left-fringe :bitmap :fringe] 18 (#$ . 4970)]) #@128 Create an overlay highlighting the given POINT in FILE. VISUALS and MSG will be used for the overlay. (fn FILE POINT VISUALS) (defalias 'dap-ui--make-overlay-at #[771 "\300!\211\205 r\211q\210\301!\205\212b\210\302\303 \304 \305%))\207" [find-buffer-visiting integer-or-marker-p dap-ui--make-overlay point-at-bol point-at-eol nil] 10 (#$ . 5592)]) (defvar dap-ui--breakpoint-overlays nil nil) (make-variable-buffer-local 'dap-ui--breakpoint-overlays) (defvar dap-ui--cursor-overlay nil nil) (make-variable-buffer-local 'dap-ui--cursor-overlay) #@52 Remove all overlays that ensime-debug has created. (defalias 'dap-ui--clear-breakpoint-overlays #[0 "\301\302\"\210\303\211\207" [dap-ui--breakpoint-overlays mapc delete-overlay nil] 3 (#$ . 6151)]) #@162 Calculate visuals for a BREAKPOINT based on the data comming from DAP server. BREAKPOINT-DAP - nil or the data comming from DAP. (fn BREAKPOINT BREAKPOINT-DAP) (defalias 'dap-ui--breakpoint-visuals #[514 "\300\203\301\302\"\203\303\202\304\305\306\307\310\311\"\203 \312\2029\310\313\"\203,\314\2029\310\315\"\2038\316\2029\317\320\203K\301\302 \"\203K\321\202L\322\323\324\257\n\207" [:face gethash "verified" dap-ui-verified-breakpoint-face dap-ui-pending-breakpoint-face :char "." :bitmap plist-get :condition filled-rectangle :log-message right-arrow :hit-condition hollow-rectangle breakpoint :fringe dap-ui-breakpoint-verified-fringe breakpoint-disabled :priority 1] 12 (#$ . 6359)]) #@84 Refresh breakpoints in FILE-NAME. DEBUG-SESSION the new breakpoints for FILE-NAME. (defalias 'dap-ui--refresh-breakpoints #[0 "\301 \210\302\303\304\305\306\307 \"\310 \211\205\211\311H\262\211\205\306\"\262#\"\210\312 \313\314\"\216\212\315\310 !*\207" [buffer-file-name dap-ui--clear-breakpoint-overlays -map #[257 "\211\211A\262\242\302\303!\304\"# B\211\207" [buffer-file-name dap-ui--breakpoint-overlays dap-ui--make-overlay-at dap-breakpoint-get-point dap-ui--breakpoint-visuals] 10 "\n\n(fn INPUT0)"] -zip-fill nil gethash dap--get-breakpoints dap--cur-session 15 save-mark-and-excursion--save make-closure #[0 "\301\300!\207" [V0 save-mark-and-excursion--restore] 2] dap-ui--stack-frame-changed] 9 (#$ . 7082)]) #@58 Clear marker overlay for DEBUG-SESSION. (fn &rest REST) (defalias 'dap-ui--clear-marker-overlay #[128 "\300\301\302 \"\207" [mapcar #[257 "r\211q\210\205\301!\210\302\300!\210\303\211)\207" [dap-ui--cursor-overlay delete-overlay make-local-variable nil] 3 "\n\n(fn IT)"] dap--buffer-list] 4 (#$ . 7826)]) #@71 Set debug marker for DEBUG-SESSION in FILE at POINT. (fn FILE POINT) (defalias 'dap-ui--set-debug-marker #[514 "\301 \210\302\300!\210\303\304\305\306\307\310\311\312\313\314\315\257\n#\211\207" [dap-ui--cursor-overlay dap-ui--clear-marker-overlay make-local-variable dap-ui--make-overlay-at :face dap-ui-marker-face :char ">" :bitmap right-triangle :fringe dap-ui-compile-errline :priority 2] 15 (#$ . 8143)]) #@122 Handler for `dap-stack-frame-changed-hook'. DEBUG-SESSION is the debug session triggering the event. (fn DEBUG-SESSION) (defalias 'dap-ui--stack-frame-changed #[257 "\211\205n\211\300H\211\203j\301\302\"\211\203c\301\303\"\211\203\\\301\304\"\211\203U\305!\211\203N\306!\211\203Gr\211q\210eb\210Sy\210u\210\307`\")\202I\310 \262\202P\310 \262\202W\310 \262\202^\310 \262\202e\310 \262\202l\310 \262\207" [12 gethash "source" "line" "column" dap--get-path-for-frame find-buffer-visiting dap-ui--set-debug-marker dap-ui--clear-marker-overlay] 10 (#$ . 8565)]) #@36 Handler for `lsp-after-open-hook'. (defalias 'dap-ui--after-open #[0 "\301 \210\302 \211\2056\211\211\205\211\303H\262\211\205\304\305\"\262\211\205%\304\306\"\262\211\2054\230\2054\307!\262\207" [buffer-file-name dap-ui--refresh-breakpoints dap--cur-session 12 gethash "source" "path" dap-ui--stack-frame-changed] 5 (#$ . 9157)]) (defvar dap-ui-menu-items (byte-code "\300\301\302\303\304\305\306\307\310\311BBB\312BBBBBBB\207" ["Debug" :visible (bound-and-true-p dap-ui-mode) ["Start" dap-debug] ["Create Debug Template" dap-debug-edit-template] ["Debug last session" dap-debug-last] "Recent Sessions" :filter #[257 "\301\302\"\207" [dap--debug-configuration -map #[257 "\211\211A\262\242\300\301\302\"\"\207" [vector make-closure #[0 "\301\300!\207" [V0 dap-debug] 2 nil nil]] 9 "\n\n(fn INPUT0)"]] 4 "\n\n(fn _)"] (:active dap--debug-configuration) ("--" ["Sessions" dap-ui-sessions] ["Locals" dap-ui-locals] ["Expressions" dap-ui-expressions] ["Sources" dapui-loaded-sources] ["Output" dap-go-to-output-buffer] ["Breakpoints" dap-ui-breakpoints] "---" ["Toggle Controls" dap-ui-controls-mode] ["Toggle Mouse Hover" dap-tooltip-mode])] 10)) #@22 Keymap for DAP mode. (defvar dap-ui-mode-map (byte-code "\301 \302\303!\210\304\305\306$\210\207" [dap-ui-menu-items make-sparse-keymap (lambda (#1=#:def-tmp-var) (defvar dap-ui-mode-menu #1# #2="Menu for DAP")) nil easy-menu-do-define dap-ui-mode-menu #2#] 6) (#$ . 10331)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\315& \207" [custom-declare-variable dap-ui-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Dap-Ui mode is enabled.\nSee the `dap-ui-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-ui-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group dap-ui :require] 14) #@588 Displaying DAP visuals. This is a minor mode. If called interactively, toggle the `Dap-Ui 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-ui-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'dap-ui-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203S\313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\313\322\323\"\210\202g\324\314\315\"\210\324\316\317\"\210\324\320\321\"\210\324\322\323\"\210\325\326\305\301!\203s\327\202t\330\"\210\331\332!\203\234\333\301!\210\302 \203\214\211\302 \232\203\234\334\335\305\301!\203\230\336\202\231\337\340#\210\210\341 \210\305\301!\207" [global-minor-modes dap-ui-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook dap-breakpoints-changed-hook dap-ui--refresh-breakpoints dap-continue-hook dap-ui--clear-marker-overlay dap-stack-frame-changed-hook dap-ui--stack-frame-changed lsp-after-open-hook dap-ui--after-open remove-hook run-hooks dap-ui-mode-hook dap-ui-mode-on-hook dap-ui-mode-off-hook called-interactively-p any customize-mark-as-set message "Dap-Ui mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 11146) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar dap-ui-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\310\211%\207" [dap-ui-mode-map dap-ui-mode-hook variable-documentation put "Hook run after entering or leaving `dap-ui-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-ui-mode] 6) #@48 Show BUF according to defined rules. (fn BUF) (defalias 'dap-ui--show-buffer #[257 "\301\302\303!\"A\206 \304\"\211\205\305\306\"\210\307!\207" [dap-ui-buffer-configurations display-buffer-in-side-window assoc buffer-name ((side . right) (slot . 1) (window-width . 0.2)) set-window-dedicated-p t select-window] 6 (#$ . 13327)]) #@26 Get breakpoints entries. (defalias 'dap-ui--breakpoints-entries #[0 "\300C\301C\302\303\304\305\306#\307 \"\"\210\211\242\206\310 \207" [0 nil apply append maphash make-closure #[514 "\302 \211\205 \211\303H\262\211\205\304\"\262\305\306\307\"r\211q\210\310\311\"\216\312!\210\313\310\314\300\301$\315\316#\"*\207" [V0 V1 dap--cur-session 15 gethash generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents mapc #[257 "\211\211A\262\242\303\304\"\303\305\"\303\306\"\303\307\"\301\310\300\211\242T\240D\311\302E\312\313 !B\314\203<\315\316\"\203<\317\202=\320B\321B\322B\323 B\257\301\242B\240\207" [V0 V1 V2 plist-get :point :condition :hit-condition :log-message id file-name line line-number-at-pos verified gethash "verified" "y" "n" hit-condition log-message condition] 17 "\n\n(fn INPUT0)"] -zip-fill nil] 10 "\n\n(fn FILE-NAME BREAKPOINTS)"] dap--get-breakpoints vector] 9 (#$ . 13670)]) (define-button-type 'dap-ui-breakpoint-position :supertype 'bui 'face 'bui-file-name 'help-echo "Go to breakpoint" 'action #[257 "\300\301\302\"!\210\301\303\"b\207" [find-file button-get file point] 5 "\n\n(fn BTN)"]) #@76 Used to render FILE-DATA in breakpoints' list. (fn FILE-DATA &optional _) (defalias 'dap-ui--get-file-info #[513 "\300@!\301\302\303@\304A@\257\207" [f-filename :type dap-ui-breakpoint-position file point] 9 (#$ . 14911)]) (byte-code "\300\301\302\303\304\305\304\306&\210\300\307\302\310\304\301\304\311\304\312& \207" [custom-declare-group dap-ui-breakpoints-ui-list nil "Displaying 'dap-ui-breakpoints-ui' entries in 'list' buffer." :group dap-ui-breakpoints-ui bui-list dap-ui-breakpoints-ui-list-faces "Faces for displaying 'dap-ui-breakpoints-ui' entries in 'list' buffer." dap-ui-breakpoints-ui-faces bui-list-faces] 10) #@35 Function used to receive entries. (defvar dap-ui-breakpoints-ui-list-get-entries-function 'dap-ui--breakpoints-entries (#$ . 15552)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\310\311&\210\300\322\302\303\323DD\324\306\325\310\311&\207" [custom-declare-variable dap-ui-breakpoints-ui-list-buffer-name funcall function #[0 "\300\207" [#1="*Breakpoints*"] 1 #1#] "Default name of a buffer for displaying entries.\nMay be nil, a string or a function returning a string. The\nfunction is called with the same arguments as the function used\nto get entries. If nil, the name is defined automatically." :type (choice string function (const nil)) :group dap-ui-breakpoints-ui-list dap-ui-breakpoints-ui-list-titles #[0 "\300\207" [nil] 1] "Alist of titles of parameters.\nIf nil, use `bui-titles'." (choice (alist :key-type symbol :value-type string) . #2=((const nil))) dap-ui-breakpoints-ui-list-history-size #[0 "\300\207" [nil] 1] "Maximum number of items saved in history.\nIf 0, the history is disabled.\nIf nil, the history is infinite (until Emacs eats all your memory :-)).\nIf nil, use `bui-history-size'." (choice (choice integer (const :tag "Infinite" nil)) . #2#) dap-ui-breakpoints-ui-list-revert-confirm #[0 "\300\207" [nil] 1] "If non-nil, ask to confirm for reverting the buffer.\nIf nil, use `bui-revert-confirm'." boolean] 8) #@244 Function used by ‘bui-list-describe’. It is applied to the entries IDs as the rest arguments. If nil, ’describing’ is not performed (it usually means that ’info’ interface is not defined). If nil, use `bui-list-describe-function'. (defvar dap-ui-breakpoints-ui-list-describe-function nil (#$ . 17001)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dap-ui-breakpoints-ui-list-describe-warning-count funcall function #[0 "\300\207" [nil] 1] "The maximum number of entries to describe without a warning.\nIf you want to describe more than this number of marked entries,\nyou will be prompted for confirmation. See also\n‘bui-list-describe’.\nIf nil, use `bui-list-describe-warning-count'." :type (choice integer (const nil)) :group dap-ui-breakpoints-ui-list] 8) #@487 List of methods to get values of the displayed columns. Each element of the list has a form: (PARAM VALUE-FUN WIDTH SORT . PROPS) PARAM is a name of an entry parameter. VALUE-FUN may be either nil or a function returning a value that will be inserted. The function is called with 2 arguments: the first one is the value of the parameter; the second one is an entry (alist of parameter names and values). For the meaning of WIDTH, SORT and PROPS, see ‘tabulated-list-format’. (defvar dap-ui-breakpoints-ui-list-format '((file-name dap-ui--get-file-info 30 t) (line nil 8 bui-list-sort-numerically-2) (verified nil 8 t) (condition nil 25 t) (hit-condition nil 20 t) (log-message nil 15 t)) (#$ . 17826)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable dap-ui-breakpoints-ui-list-show-single funcall function #[0 "\300\207" [nil] 1] "If non-nil, list an entry even if it is the only matching result.\nIf nil, show a single entry in the ’info’ buffer instead.\nIf nil, use `bui-list-show-single'." :type boolean :group dap-ui-breakpoints-ui-list dap-ui-breakpoints-ui-list-sort-key #[0 "\300\207" [(file-name)] 1] "Default sort key for ’list’ buffer.\nShould be nil (no sort) or have a form:\n\n (PARAM . FLIP)\n\nPARAM is the name of an entry parameter. For the meaning of\nFLIP, see ‘tabulated-list-sort-key’." (choice (const :tag "No sort" nil) (cons symbol boolean))] 8) (defvar dap-ui-breakpoints-ui-list-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [dap-ui-breakpoints-ui-list-mode-hook variable-documentation put "Hook run after entering '(Dap-Ui-Breakpoints-Ui-List (bui-active-filter-predicates bui-filter-mode-line-string)) mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp dap-ui-breakpoints-ui-list-mode-map definition-name dap-ui-breakpoints-ui-list-mode] 4) (defvar dap-ui-breakpoints-ui-list-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [dap-ui-breakpoints-ui-list-mode-abbrev-table dap-ui-breakpoints-ui-list-mode-map variable-documentation put purecopy "Keymap for `dap-ui-breakpoints-ui-list-mode'." boundp dap-ui-breakpoints-ui-list-mode-syntax-table definition-name dap-ui-breakpoints-ui-list-mode (lambda (#1=#:def-tmp-var) (defvar dap-ui-breakpoints-ui-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `dap-ui-breakpoints-ui-list-mode'." (lambda (#1#) (defvar dap-ui-breakpoints-ui-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `dap-ui-breakpoints-ui-list-mode'." derived-mode-parent bui-list-mode] 5) #@311 Major mode for displaying 'dap-ui-breakpoints-ui' entries in 'list' buffer. \{dap-ui-breakpoints-ui-list-mode-map} In addition to any hooks its parent mode `bui-list-mode' might have run, this mode runs the hook `dap-ui-breakpoints-ui-list-mode-hook', as the final or penultimate step during initialization. (defalias 'dap-ui-breakpoints-ui-list-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331\332\333\"\210)\334\335!\207" [delay-mode-hooks major-mode mode-name dap-ui-breakpoints-ui-list-mode-map dap-ui-breakpoints-ui-list-mode-syntax-table dap-ui-breakpoints-ui-list-mode-abbrev-table make-local-variable t bui-list-mode dap-ui-breakpoints-ui-list-mode ("Dap-Ui-Breakpoints-Ui-List" (bui-active-filter-predicates bui-filter-mode-line-string)) mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table bui-mode-initialize dap-ui-breakpoints-ui list run-mode-hooks dap-ui-breakpoints-ui-list-mode-hook local-abbrev-table] 5 (#$ . 20820) nil]) (bui-register-interface 'dap-ui-breakpoints-ui 'list) #@32 Go to breakpoint under cursor. (defalias 'dap-ui-breakpoints-goto #[0 "\300 \211\205\301\302\"\211\211A\262\242@\303!\210\211b\266\203\262\207" [bui-list-current-entry alist-get file-name find-file] 7 (#$ . 22177) nil]) #@57 Delete BREAKPOINT on the current line. (fn BREAKPOINT) (defalias 'dap-ui-breakpoints-delete #[257 "\300\236A\211\205P\211A\262\242\211\205N@\211\205L\301\302 \"\211\205J\303\304\305\"\"\211\205H\211\211\2055\306\307\"\262\211\203@\211\310\211\223\210\210\311\312\"\"\262\262\262\262\207" [file-name gethash dap--get-breakpoints cl-find-if make-closure #[257 "\301\302\"\300U\207" [V0 plist-get :point] 4 "\n\n(fn INPUT0)"] plist-get :marker nil dap--breakpoints-changed cl-remove] 10 (#$ . 22411) (byte-code "\300 C\207" [bui-list-current-entry] 1)]) #@40 Delete breakpoint on the current line. (defalias 'dap-ui-breakpoints-delete-selected #[0 "\300\301\302\303 \300\304\305\306!\"\"\"\207" [-map dap-ui-breakpoints-delete bui-entries-by-ids bui-current-entries cl-first bui-list-get-marked general] 8 (#$ . 22994) nil]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\207" [dap-ui-breakpoints-ui-list-mode-map define-key " " dap-ui-breakpoints-goto "d" dap-ui-breakpoints-delete "D" dap-ui-breakpoints-delete-selected] 5) #@28 Refresh breakpoints' list. (defalias 'dap-ui-refresh-breakpoints-list #[0 "r\301q\210\302\303\304\"\210\305\300!\210\211\306\307!\262)\207" [lsp--cur-workspace "*Breakpoints*" bui-revert nil t make-local-variable run-hooks dap-ui-breakpoints-ui-list-displayed-hook] 4 (#$ . 23488)]) #@44 Cleanup when buffer list has been deleted. (defalias 'dap-ui--brekapoints-list-cleanup #[0 "\300\301\302\"\207" [remove-hook dap-breakpoints-changed-hook dap-ui-refresh-breakpoints-list] 3 (#$ . 23780)]) (add-hook 'dap-ui-breakpoints-ui-list-mode-hook #[0 "\300\301\302\"\210\300\303\304\305\306$\207" [add-hook dap-breakpoints-changed-hook dap-ui-refresh-breakpoints-list kill-buffer-hook dap-ui--brekapoints-list-cleanup nil t] 5]) #@19 List breakpoints. (defalias 'dap-ui-breakpoints-list #[0 "\301\302\303\"\210\304\300!\210\211\305\306\307\310\"\"\210\311\312!\207" [lsp--buffer-workspaces bui-get-display-entries dap-ui-breakpoints-ui list make-local-variable add-hook bui-after-redisplay-hook make-closure #[0 "\302\301!\210\300\211\207" [V0 lsp--buffer-workspaces make-local-variable] 2] run-hooks dap-ui-breakpoints-ui-list-displayed-hook] 6 (#$ . 24220) nil]) (defvar dap-ui--control-images-root-dir (byte-code "\302\303\304\206 !!\305\"\207" [load-file-name buffer-file-name f-join f-dirname file-truename "icons/vscode"] 4)) (defvar dap-ui--control-buffer " *dap-ui*") #@33 (fn IMAGE COMMAND HOVER-TEXT) (defalias 'dap-ui--create-command #[771 "\301\302\303\304\305\306\307\310 \"\311\312\313\314\315\313\316\317$\257 \320\321 \322\323\n#\210\211\262\324\325\326 & \207" [dap-ui--control-images-root-dir propertize " " display image :type png :file f-join :ascent center :background face-attribute fringe nil t local-map make-sparse-keymap define-key [mouse-1] pointer hand help-echo] 19 (#$ . 24875)]) #@16 (fn &rest _) (defalias 'dap-ui--update-controls #[128 "\302 \205\251\303 \211\205\211\304H\205\305!\211\203\244\306\307\310\311\312#\313\307\203)\314\202*\315\2050\316\2039\317\202:\320#\313\307\203F\321\202G\322\205M\323 \203V\324\202W\325#\313\307 \203c\326\202d\327\n\205j\330 \203s\331\202t\320#\313\307\332\333\334#\313\307\335\336\337#& \340\341\342\343 \"\344 =\203\230\345\346!!\210\347 \350\351\352\353\354&)\207\355 !\266\203\207" [posframe-mouse-banish dap-ui--control-buffer posframe-workable-p dap--cur-session 12 dap--session-running s-concat dap-ui--create-command "continue.png" dap-continue "Continue" " " "step-over.png" "step-over-disabled.png" dap-next "Step over" "Session not stopped?" "step-out.png" "step-out-disabled.png" dap-step-out "Step out" "Session not stopped? " "step-into.png" "step-into-disabled.png" dap-step-in "Step in" "disconnect.png" dap-disconnect "Disconnect" "restart.png" dap-debug-restart "Restart" nil -first #[257 "\301\302\"@\232\206A\232\207" [dap-ui--control-buffer frame-parameter posframe-buffer] 4 "\n\n(fn FRAME)"] frame-list selected-frame select-frame frame-parent posframe-show :string :poshandler posframe-poshandler-frame-top-center :internal-border-width 8 posframe-hide] 19 (#$ . 25321)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable dap-ui-controls-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Dap-Ui-Controls mode is enabled.\nSee the `dap-ui-controls-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-ui-controls-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :require dap-ui] 12) #@606 Displaying DAP visuals. This is a minor mode. If called interactively, toggle the `Dap-Ui-Controls 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-ui-controls-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'dap-ui-controls-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 \203]\315\316\317\"\210\315\320\317\"\210\315\316\317\"\210\315\321\317\"\210\315\322\317\"\210\311\317 \210\202|\323\316\317\"\210\323\320\317\"\210\323\316\317\"\210\323\321\317\"\210\323\322\317\"\210\312\324 !\210\325\326\307\301!\203\210\327\202\211\330\"\210\331\332!\203\261\333\301!\210\304 \203\241\211\304 \232\203\261\334\335\307\301!\203\255\336\202\256\337\340#\210\210\341 \210\307\301!\207" [global-minor-modes dap-ui-controls-mode posframe-mouse-banish dap-ui--control-buffer current-message set-default toggle default-value 1 nil t boundp delq add-hook dap-session-changed-hook dap-ui--update-controls dap-terminated-hook dap-continue-hook dap-stack-frame-changed-hook remove-hook posframe-hide run-hooks dap-ui-controls-mode-hook dap-ui-controls-mode-on-hook dap-ui-controls-mode-off-hook called-interactively-p any customize-mark-as-set message "Dap-Ui-Controls mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 27183) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar dap-ui-controls-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%\207" [dap-ui-controls-mode-map dap-ui-controls-mode-hook variable-documentation put "Hook run after entering or leaving `dap-ui-controls-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-ui-controls-mode boundp] 6) #@29 (fn NAME KEYS &rest BODY) (defalias 'dap-ui-define-action '(macro . #[642 "\300\301\302\303\"\304\305\306\307\310\311\312\313 B\314B\"\nBB\315BBB\257\207" [defun (&rest args) format "Code action %s" (interactive) (ignore args) if-let (node (treemacs-node-at-point)) -let apply vector &plist ((button-get node :item)) ((treemacs-pulse-on-failure "No node at point"))] 16 (#$ . 29549)])) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put dap-ui-define-action doc-string-elt 3 lisp-indent-function 2] 5) #@52 Code action dap-ui-session-select (fn &rest ARGS) (defalias 'dap-ui-session-select #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203!\313\314\315\"\316\"\317!\207\320C\211\203J:\204/ C\310\n\204E\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205Q\334\335!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t plist-get button-get :item :session dap--switch-to-session "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 30084) nil]) #@51 Code action dap-ui-thread-select (fn &rest ARGS) (defalias 'dap-ui-thread-select #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\2032\313\314\"\315\316\"\315\317\"\211\320I\266\321!\210\322\"\207\323C\211\203[:\204@ C\310\n\204V\324\325\326\327\330\331#\332\333\332\"!#\210\334\335\336\"\210 \205b\337\340!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :session :thread-id 7 dap--switch-to-session dap--select-thread-id "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 30875) nil]) #@52 Code action dap-ui-delete-session (fn &rest ARGS) (defalias 'dap-ui-delete-session #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203!\313\314\315\"\316\"\317!\207\320C\211\203J:\204/ C\310\n\204E\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205Q\334\335!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t plist-get button-get :item :session dap-delete-session "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 31739) nil]) #@48 Code action dap-ui-disconnect (fn &rest ARGS) (defalias 'dap-ui-disconnect #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203!\313\314\315\"\316\"\317!\207\320C\211\203J:\204/ C\310\n\204E\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205Q\334\335!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t plist-get button-get :item :session dap-disconnect "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 32526) nil]) #@46 Code action dap-ui-continue (fn &rest ARGS) (defalias 'dap-ui-continue #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203'\313\314\"\315\316\"\315\317\"\320\"\207\321C\211\203P:\2045 C\310\n\204K\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210 \205W\335\336!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :session :thread-id dap-continue "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 33301) nil]) #@51 Code action dap-ui-restart-frame (fn &rest ARGS) (defalias 'dap-ui-restart-frame #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203*\313\314\"\315\316\"\315\317\"\320\321\322\"\"\207\323C\211\203S:\2048 C\310\n\204N\324\325\326\327\330\331#\332\333\332\"!#\210\334\335\336\"\210 \205Z\337\340!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :session :stack-frame dap-restart-frame gethash "id" "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 34095) nil]) #@56 Code action dap-ui-select-stack-frame (fn &rest ARGS) (defalias 'dap-ui-select-stack-frame #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\2038\313\314\"\315\316\"\315\317\"\315\320\"\211\321I\266\211\322I\266\323!\207\324C\211\203a:\204F C\310\n\204\\\325\326\327\330\331\332#\333\334\333\"!#\210\335\336\337\"\210 \205h\340\341!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :session :thread-id :stack-frame 7 12 dap--switch-to-session "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 34929) nil]) #@49 Code action dap-ui-thread-stop (fn &rest ARGS) (defalias 'dap-ui-thread-stop #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203'\313\314\"\315\316\"\315\317\"\320\"\207\321C\211\203P:\2045 C\310\n\204K\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210 \205W\335\336!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :session :thread-id dap-stop-thread-1 "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 35813) nil]) (defvar dap-ui-session-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\207" [make-sparse-keymap define-key "X" dap-ui-disconnect "D" dap-ui-delete-session "C" dap-ui-continue "S" dap-ui-thread-stop] 5)) #@109 Non-nil if Dap-Ui-Sessions mode is enabled. Use the command `dap-ui-sessions-mode' to change this variable. (defvar dap-ui-sessions-mode nil (#$ . 36873)) (make-variable-buffer-local 'dap-ui-sessions-mode) #@593 UI Session list minor mode. This is a minor mode. If called interactively, toggle the `Dap-Ui-Sessions 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 `dap-ui-sessions-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'dap-ui-sessions-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [dap-ui-sessions-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks dap-ui-sessions-mode-hook dap-ui-sessions-mode-on-hook dap-ui-sessions-mode-off-hook called-interactively-p any message "Dap-Ui-Sessions mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 37086) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar dap-ui-sessions-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\310\211%\207" [dap-ui-session-mode-map dap-ui-sessions-mode-hook variable-documentation put "Hook run after entering or leaving `dap-ui-sessions-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-ui-sessions-mode] 6) (defalias 'dap-ui--sessions-tree #[0 "\300\301\302\303\304!!\"\207" [-map #[257 "\211\211\300H\301H\302\303\304\305!#\306\307\310\311\312\313\f!\203#\314\202$\315\316\313!\2030\317\2021\320\321\313!\205@\322\323#\257\207" [1 10 :label propertize face dap-ui-session--calculate-face :key :session :ret-action dap-ui-session-select :icon dap--session-running session-started session-terminated :actions (["Select" dap-ui-session-select] ["Disconnect" dap-ui-disconnect] ["Delete Session" dap-ui-delete-session] "--" ["Delete All Sessions" dap-delete-all-sessions]) (["Select" dap-ui-session-select] ["Delete Session" dap-ui-delete-session] "--" ["Delete All Sessions" dap-delete-all-sessions]) :children-async make-closure #[514 "\302\303\304!\305\306\300\301$\300#\207" [V0 V1 dap--send-message dap--make-request "threads" make-closure #[257 "\211\211\205 \303\304\"\262\211\205\303\305\"\262\302\306\307\310\300\301#\"!\207" [V0 V1 V2 gethash "body" "threads" -map make-closure #[257 "\211\302\303\"\302\304\"\305\302\301\306#!\307!\306\230?\310\311\312\300\313 =\203.\300\314H=\203.\315\202/\316#\205;\311\317P\312\320#P\321\322\323\"\324\203K\325\202L\326\327\330\331\300\332 \333 \203]\334\202^\335\336\205l\337\340\300$\257\207" [V0 V1 gethash "name" "id" s-capitalize "running" s-downcase :label propertize face dap--cur-session 7 dap-ui-sessions-thread-active-face dap-ui-sessions-thread-face " " lsp-lens-face :key format "%s" :icon thread-stopped thread-running :ret-action dap-ui-thread-select :session :thread-id :actions (["Select" dap-ui-thread-select] ["Continue" dap-ui-continue] "--" ["Delete All Sessions" dap-delete-all-sessions]) (["Select" dap-ui-thread-select] ["Stop thread" dap-ui-thread-stop] "--" ["Delete All Sessions" dap-delete-all-sessions]) :children-async make-closure #[514 "\303\304\305\306\301D\"\307\310\300\301\302%\300#\207" [V0 V1 V2 dap--send-message dap--make-request "stackTrace" :threadId make-closure #[257 "\211\211\205 \304\305\"\262\211\205\304\306\"\262\303\307\310\311\300\301\302$\"!\207" [V0 V1 V2 V3 gethash "body" "stackFrames" -map make-closure #[257 "\211\303\304\"\303\305\"\303\306\"\307 \300\232\203)\301\310H=\203)\311H\232\203)\312\202*\313\314\300\315\302\2035\316\2026\317\320\301\321\f\322\323\324 \203\221\325\326\300\307 =\203u\301\300\310H=\203u\211\205a\211\311H\262\211\205k\303\304\"\262\232\203u\327\202v\330#\325\331\332\303\304\"\206\207\303\333\"#\326\334#P\202\231\325\335\326\334#P\336\337\257\207" [V0 V1 V2 gethash "name" "line" "source" dap--cur-session 7 12 stack-stopped stack :session :actions (["Select" dap-ui-select-stack-frame] ["Continue" dap-ui-continue] ["Restart Frame" dap-ui-restart-frame] "--" ["Delete All Sessions" dap-delete-all-sessions]) (["Select" dap-ui-select-stack-frame] ["Stop thread" dap-ui-thread-stop] "--" ["Delete All Sessions" dap-delete-all-sessions]) :thread-id :stack-frame :ret-action dap-ui-select-stack-frame :label propertize face dap-ui-sessions-thread-active-face dap-ui-sessions-thread-face format " (%s:%s)" "path" lsp-lens-face "(Unknown source)" :key :icon] 26 "\n\n(fn INPUT0)"]] 9 "\n\n(fn INPUT0)"]] 10 "\n\n(fn NODE CALLBACK)"]] 26 "\n\n(fn INPUT0)"]] 8 "\n\n(fn INPUT0)"]] 9 "\n\n(fn NODE CALLBACK)"]] 21 "\n\n(fn INPUT0)"] reverse lsp-workspace-get-metadata "debug-sessions"] 5]) #@16 (fn &rest _) (defalias 'dap-ui-sessions--refresh #[128 "\212\302\303!!\205rq\210\304\301!\210\305 \306 ))\207" [dap-ui--sessions-buffer lsp-treemacs-tree buffer-live-p get-buffer make-local-variable dap-ui--sessions-tree lsp-treemacs-generic-refresh] 4 (#$ . 42305)]) #@35 Remove UI sessions related hooks. (defalias 'dap-ui-sessions--cleanup-hooks #[0 "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\207" [remove-hook dap-terminated-hook dap-ui-sessions--refresh dap-session-changed-hook dap-continue-hook dap-stack-frame-changed-hook] 3 (#$ . 42586)]) #@33 Show currently active sessions. (defalias 'dap-ui-sessions #[0 "\301\302\303 \304\305\306%!\210\307 \210\310\311\312\"\210\310\313\312\"\210\310\314\312\"\210\310\315\312\"\210\310\316\317\305\320$\207" [dap-ui--sessions-buffer dap-ui--show-buffer lsp-treemacs-render dap-ui--sessions-tree " Debug Sessions " nil (["Delete All Sessions" dap-delete-all-sessions]) dap-ui-sessions-mode add-hook dap-terminated-hook dap-ui-sessions--refresh dap-session-changed-hook dap-continue-hook dap-stack-frame-changed-hook kill-buffer-hook dap-ui-sessions--cleanup-hooks t] 7 (#$ . 42895) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dap-ui-variable-length funcall function #[0 "\300\207" [30] 1] "Default number of variables to load in inspect variables view for\narray variables." :group dap-ui :type number] 8) #@56 Code action dap-ui-set-variable-value (fn &rest ARGS) (defalias 'dap-ui-set-variable-value #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203F\313\314\"\315\316\"\315\317\"\315\320\"\315\321\"\322\323\324\325\321\320\326\327\330 \" \"\257\"\331 #\207\332C\211\203o:\204T C\310\n\204j\333\334\335\336\337\340#\327\341\327\"!#\210\342\343\344\"\210 \205v\345\346!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :session :variables-reference :value :name dap--send-message dap--make-request "setVariable" :variablesReference read-string format "Enter value for %s: " dap--resp-handler "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 19 (#$ . 43751) nil]) #@404 Render hierarchical variables for treemacs. Usable as the `treemacs' :children argument, when DEBUG-SESSION and VARIABLES-REFERENCE are applied partially. DEBUG-SESSION specifies the debug session which will be used to issue requests. VARIABLES-REFERENCE specifies the handle returned by the debug adapter for acquiring nested variables and must not be 0. (fn DEBUG-SESSION VARIABLES-REFERENCE NODE) (defalias 'dap-ui-render-variables #[771 "\300!\205\301\302\303\"\304\305\306\305\307 $\"\"\207" [dap--session-running -map make-closure #[257 "\302\303\"\302\304\"\302\305\"\306\307\310\311\"\312\313#\314\307\315 \316\317\320 #\"\321#Q\322\323\324\325\300\326 \327\f\330\331\332\333U?\205G\334\335\336\300#DBBBBBBBBBBBBBBBB\207" [V0 dap-ui-variable-length gethash "value" "name" "variablesReference" :label propertize format "%s" face font-lock-variable-name-face ": " s-truncate s-replace "\n" "\\n" help-echo :icon dap-variable :value :session :variables-reference :name :actions '(["Set value" dap-ui-set-variable-value]) :key 0 :children -partial dap-ui-render-variables] 25 "\n\n(fn INPUT0)"] gethash "variables" dap-request :variablesReference] 12 (#$ . 44776)]) #@292 Render a hover result to the current buffer. VALUE is the evaluate result, DEBUG-SESSION the debug session as usual and EXPRESSION the expression that was originally evaluated. VARIABLES-REFERENCE is returned by the evaluate request. (fn DEBUG-SESSION EXPRESSION VALUE VARIABLES-REFERENCE) (defalias 'dap-ui-render-value #[1028 "\300\301\302\303\304\305U?\205\306\307\310  #DBBBBBBC\311\312\313 $\207" [lsp-treemacs-render :key :label :icon dap-field 0 :children -partial dap-ui-render-variables "" nil buffer-name] 16 (#$ . 45981)]) #@65 Like `dap-eval', but in a new treemacs buffer. (fn EXPRESSION) (defalias 'dap-ui-eval-in-buffer #[257 "\300 \211\211\205\n\211\301H\262\211\205\302\303\"\262\211\2034\304\305\306\307\310\311\312\257\"\313\314\315#!#\207\316\317!\207" [dap--cur-active-session-or-die 12 gethash "id" dap--send-message dap--make-request "evaluate" :expression :frameId :context "hover" dap--resp-handler make-closure #[257 "\303\304\"\211\211\205 \303\305\"\262\211\205\303\306\"\262r\307\310\311\300\"!q\210\312\313 \210)\314\301\300$\210\315p!)\207" [V0 V1 inhibit-read-only gethash "body" "result" "variablesReference" get-buffer-create format "*evaluate %s*" t erase-buffer dap-ui-render-value display-buffer] 9 "\n\n(fn INPUT0)"] error "`dap-eval-in-buffer': no stopped debug session"] 12 (#$ . 46530) "sExpr: "]) #@47 Evaluate the symbol at point in a new buffer. (defalias 'dap-ui-eval-variable-in-buffer #[0 "\300\301!\211\203 \302!\207\303\304!\207" [thing-at-point symbol dap-ui-eval-in-buffer user-error "`dap-ui-eval-variable-in-buffer': no symbol at point"] 3 (#$ . 47366) nil]) (defvar dap-ui--locals-timer nil) #@16 (fn &rest _) (defalias 'dap-ui-locals--refresh #[128 "\212\303r\304 !q\210\305 \211\205\211\211\306H\262\262\211\205\"\211\307\310\"\262\262\211\2052\211\311\305 \312\313$\262\262\211\205?\211\307\312\"\262\262\211\205L\211\314\315\"\262\262\211\205[\211\316\317\n $\262\262\211\205i\211\211\206g\320\262\262\206t\316\321\322\303 $*\207" [dap-ui--locals-timer dap-ui--locals-buffer dap-ui-locals-expand-depth nil get-buffer-create dap--cur-session 12 gethash "id" dap-request "scopes" :frameId -map #[257 "\300\301\"\300\302\"\303\304\305\306\307\310\311\312 \n#\257\207" [gethash "name" "variablesReference" :key :label :icon dap-scope :children -partial dap-ui-render-variables dap--cur-session] 14 "\n\n(fn INPUT0)"] lsp-treemacs-render " Locals " t ((:label "Nothing to display..." :key "foo" :icon :empty)) " Locals :: no locals info "] 8 (#$ . 47676)]) #@16 (fn &rest _) (defalias 'dap-ui-locals--refresh-schedule #[128 "\302\303!!\205 rq\210 \203\304 !\210\305\301!\210\306\307\310\311#\211)\207" [dap-ui--locals-buffer dap-ui--locals-timer buffer-live-p get-buffer cancel-timer make-local-variable run-with-idle-timer 0.2 nil dap-ui-locals--refresh] 5 (#$ . 48579)]) (defalias 'dap-ui-locals--cleanup-hooks #[0 "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\207" [remove-hook dap-terminated-hook dap-ui-locals--refresh-schedule dap-session-changed-hook dap-continue-hook dap-stack-frame-changed-hook] 3]) (defalias 'dap-ui-locals #[0 "\301\302!!\210\303 \210rq\210\304\305\303\"\210\304\306\303\"\210\304\307\303\"\210\304\310\303\"\210\304\311\312\313\314$)\207" [dap-ui--locals-buffer dap-ui--show-buffer get-buffer-create dap-ui-locals--refresh-schedule add-hook dap-terminated-hook dap-session-changed-hook dap-continue-hook dap-stack-frame-changed-hook kill-buffer-hook dap-ui-locals--cleanup-hooks nil t] 5 nil nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dap-ui-expressions funcall function #[0 "\300\207" [nil] 1] "The watch expressions." :type (repeat string) :group dap-ui] 8) #@19 (fn EXPRESSION) (defalias 'dap-ui-expressions-add #[257 "\301\"\203\f\302\303\"\210\304\300\"\210\300 \210\305 \207" [dap-ui-expressions -contains\? user-error "\"%s\" is already watched" add-to-list dap-ui-expressions-refresh] 4 (#$ . 49797) (byte-code "\300\301\302 \203\303\304 \305 \"\202\306\307 !\"C\207" [read-string "Add watch expression: " region-active-p buffer-substring-no-properties region-beginning region-end symbol-name symbol-at-point] 5)]) #@81 Prompts for an expression and adds it to `dap-ui-expressions'. (fn EXPRESSION) (defalias 'dap-ui-expressions-add-prompt #[257 "\300!\207" [dap-ui-expressions-add] 3 (#$ . 50272) (byte-code "\300\301!C\207" [read-string "Add watch expression: "] 2)]) #@19 (fn EXPRESSION) (defalias 'dap-ui-expressions-remove #[257 "\301\"\204\f\302\303\"\210\304\"\305 \207" [dap-ui-expressions -contains\? user-error "\"%s\" is not present" remove dap-ui-expressions-refresh] 4 (#$ . 50530) (byte-code "\301\302\303\304$C\207" [dap-ui-expressions completing-read "Select expression to remove: " nil t] 5)]) #@62 Code action dap-ui-expressions-mouse-remove (fn &rest ARGS) (defalias 'dap-ui-expressions-mouse-remove #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203!\313\314\315\"\316\"\317!\207\320C\211\203J:\204/ C\310\n\204E\321\322\323\324\325\326#\327\330\327\"!#\210\331\332\333\"\210 \205Q\334\335!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t plist-get button-get :item :expression dap-ui-expressions-remove "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 50882) nil]) (defalias 'dap-ui-expressions-refresh #[0 "\212r\303!q\210\304\305 \306\307!\205%\211\205\211\310H\262\211\205#\311\312\"\262\211\2031\313\314#\2022\315\262 \"\262\316\n\317%*\207" [dap-ui--expressions-buffer dap-ui-expressions dap-ui-expressions-expand-depth get-buffer-create lsp-treemacs-render dap--cur-session -map dap--session-running 12 gethash "id" make-closure #[257 "\3031\\\304\305 \306\307\310\301\311\312&\313\314\"\313\315\"\316\307\317\320\321\322 \"\323\324#\320\325\n\326\327\330 #\"\331\n#P\332\333\334 \205N \335U?\205N\336\337\340\300 #D\341\"BBBBBBBB\266\2030\207\316\317\320\321\322\"\323\324#\320\342!\323\343#P\344BBBB\207" [V0 V1 dap-ui-variable-length (error) dap-request dap--cur-session "evaluate" :expression :frameId :context "watch" gethash "result" "variablesReference" :key :label propertize format "%s: " face font-lock-variable-name-face s-truncate s-replace "\n" "\\n" help-echo :icon expression append 0 :children -partial dap-ui-render-variables (:actions (["Remove" dap-ui-expressions-mouse-remove] "--" ["Add" dap-ui-expressions-add] ["Refresh" dap-ui-expressions-refresh])) error-message-string error (:icon failed-expression :actions (["Remove" dap-ui-expressions-mouse-remove] "--" ["Add" dap-ui-expressions-add] ["Refresh" dap-ui-expressions-refresh]))] 18 "\n\n(fn EXPRESSION)"] #[257 "\300\301\302\303\304\305\"\306\307#\303\310\306\311#P\312BBBBBB\207" [:key :expression :label propertize format "%s: " face font-lock-variable-name-face "not available" italic (:icon expression :actions (["Remove" dap-ui-expressions-mouse-remove] "--" ["Add" dap-ui-expressions-add] ["Refresh" dap-ui-expressions-refresh]))] 11 "\n\n(fn EXPRESSION)"] " Expressions " (["Add" dap-ui-expressions-add] ["Refresh" dap-ui-expressions-refresh])] 8 nil nil]) (defvar dap-ui--watches-timer nil) #@16 (fn &rest _) (defalias 'dap-ui-expressions--refresh-schedule #[128 "\302\303!!\205 rq\210 \203\304 !\210\305\301!\210\306\307\310\311#\211)\207" [dap-ui--expressions-buffer dap-ui--watches-timer buffer-live-p get-buffer cancel-timer make-local-variable run-with-idle-timer 0.2 nil dap-ui-expressions-refresh] 5 (#$ . 53559)]) (defalias 'dap-ui-expressions--cleanup-hooks #[0 "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\207" [remove-hook dap-terminated-hook dap-ui-expressions--refresh-schedule dap-session-changed-hook dap-continue-hook dap-stack-frame-changed-hook] 3]) (defalias 'dap-ui-expressions #[0 "\301\302!!\210\303 \210\304\305\306\"\210\304\307\306\"\210\304\310\306\"\210\304\311\306\"\210\304\312\313\314\315$\207" [dap-ui--expressions-buffer dap-ui--show-buffer get-buffer-create dap-ui-expressions-refresh add-hook dap-terminated-hook dap-ui-expressions--refresh-schedule dap-session-changed-hook dap-continue-hook dap-stack-frame-changed-hook kill-buffer-hook dap-ui-expressions--cleanup-hooks nil t] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [make-obsolete dap-ui-inspect dap-ui-expressions-add "dap-mode 0.2" dap-ui-inspect-region dap-ui-inspect-thing-at-point] 4) (defvar dap-exception-breakpoints nil) #@56 Code action dap-ui-breakpoints-toggle (fn &rest ARGS) (defalias 'dap-ui-breakpoints-toggle #[128 "\305\306 \307 \310\311$\211\205\312\313\"\262\211\203q\314\315\"\316\317\"\316\320\"\316\321\"\316\322H\323\"\324\325#\324A\325#\326#?\203K\241\266\202lB\211\262AB\203a\241\266\202lB\211\262B\266\327\330\"\207\331C\211\203\232 :\204\nC\311 \204\225\332\333\334\335\336\337#\340\341\340\"!#\210\342\343\344\"\210\f\205\241\345\346!\207" [dap-exception-breakpoints treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :filter :session :default 17 :type assoc string= dap--breakpoint-filter-enabled dap--set-exception-breakpoints dap-ui-breakpoints--refresh "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 13 (#$ . 54869) nil]) #@65 Code action dap-ui-breakpoints-goto-breakpoint (fn &rest ARGS) (defalias 'dap-ui-breakpoints-goto-breakpoint #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\2031\313\314\"\315\316\"\315\317\"\320\321\322 \310\"!\210\323!\210\211b\207\324C\211\203Z:\204? C\310\n\204U\325\326\327\330\331\332#\333\334\333\"!#\210\335\336\337\"\210 \205a\340\341!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :file-name :point select-window get-mru-window selected-frame find-file "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 55973) nil]) #@55 Code action dap-ui-breakpoint-delete (fn &rest ARGS) (defalias 'dap-ui-breakpoint-delete #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203.\313\314\"\315\316\"\315\317\"r\320!q\210\321\")\207\322C\211\203W:\204< C\310\n\204R\323\324\325\326\327\330#\331\332\331\"!#\210\333\334\335\"\210 \205^\336\337!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :file-name :breakpoint find-file-noselect dap-breakpoint-delete "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 56875) nil]) #@58 Code action dap-ui-breakpoint-condition (fn &rest ARGS) (defalias 'dap-ui-breakpoint-condition #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203'\313\314\"\315\316\"\315\317\"\320\"\207\321C\211\203P:\2045 C\310\n\204K\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210 \205W\335\336!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :file-name :breakpoint dap-breakpoint-condition "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 57731) nil]) #@62 Code action dap-ui-breakpoint-hit-condition (fn &rest ARGS) (defalias 'dap-ui-breakpoint-hit-condition #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203'\313\314\"\315\316\"\315\317\"\320\"\207\321C\211\203P:\2045 C\310\n\204K\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210 \205W\335\336!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :file-name :breakpoint dap-breakpoint-hit-condition "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 58564) nil]) #@60 Code action dap-ui-breakpoint-log-message (fn &rest ARGS) (defalias 'dap-ui-breakpoint-log-message #[128 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203'\313\314\"\315\316\"\315\317\"\320\"\207\321C\211\203P:\2045 C\310\n\204K\322\323\324\325\326\327#\330\331\330\"!#\210\332\333\334\"\210 \205W\335\336!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t button-get :item plist-get :file-name :breakpoint dap-breakpoint-log-message "No node at point" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 10 (#$ . 59409) nil]) (defalias 'dap-ui--breakpoints-data #[0 "\301 \206\302 \303\304\305\"\211\262\211\306H\307H\310H\311K\312\313\"\216\311\312\314\"M\210\315\316!\205K\211\2059\317\320\"\262\211\205I\321\312\322  #\"\262\323\324\325\312\326\"\327 \"\"\")\262)\207" [lsp-file-truename-cache dap--cur-session make-dap--debug-session make-hash-table :test equal 17 18 15 file-truename make-closure #[0 "\301\300M\207" [V0 file-truename] 2] #[769 "\302 \"\206\303\304\300E\" #\207" [V0 lsp-file-truename-cache gethash puthash apply] 10 "\n\n(fn FILE-NAME &optional COUNTER PREV-DIRS)"] append dap--session-running gethash "exceptionBreakpointFilters" -map #[257 "\302\303\"\302\304\"\302\305\"\306\307\310\311\312\313\301\314\"#\203%\307\315\316\317#\202*\307\320\316\321##\322\323#\324\325\326\327\330\300\331 \332\333\257\207" [V0 V1 gethash "label" "filter" "default" :label propertize format "%s %s" dap--breakpoint-filter-enabled plist-get :type "☑" face success "☐" shadow help-echo "Exception breakpoint" :key :filter :icon icon :session :default :ret-action dap-ui-breakpoints-toggle] 18 "\n\n(fn INPUT0)"] -flatten-n 1 ht-map #[514 "\300\205\301\300\"\302!\303\304\305\"r\211q\210\306\307\"\216\310!\210\311\306\312#\313\314#\"*\207" [V0 gethash lsp-workspace-root generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents -map #[257 "\211\211A\262\242\302\303\"\302\304\"\302\305\"\302\306\"\307\310\311\312\300!\313 !\301\2035\307\310\314\312\301!\"\315\316#\317P\2026\320\307\321\322\300\301\"!\315\316#%\323\204O\204O\203t\324\325\326\327\n\205\\\330 P\n\205e\331 P\n\205n\332 PE\"\"\202u\333#\334\335\336\337\307\340\315 \203\217\341\342 \"\203\217\343\202\220\344#\345\346\347\350\300\303\351\352\353\257\207" [V0 V1 plist-get :point :condition :hit-condition :log-message propertize format "%s:%s %s%s" f-filename line-number-at-pos "%s " face lsp-lens-face "• " "" f-dirname f-relative help-echo s-join "\n" -filter identity "Condition: " "Hit condition: " "Log message: " "Breakpoint" :key :icon dap-breakpoint :icon-literal "⬤ " gethash "verified" success shadow :label :actions (["Condition" dap-ui-breakpoint-condition] ["Hit Condition" dap-ui-breakpoint-hit-condition] ["Log Message" dap-ui-breakpoint-log-message] "--" ["Remove" dap-ui-breakpoint-delete]) :file-name :ret-action dap-ui-breakpoints-goto-breakpoint :breakpoint] 27 "\n\n(fn INPUT0)"] -zip-fill nil] 11 "\n\n(fn FILE-NAME BREAKPOINTS)"] dap--get-breakpoints] 15]) (defvar dap-ui-breakpoints-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\207" [make-sparse-keymap define-key "D" dap-ui-breakpoint-delete "CC" dap-ui-breakpoint-condition "CH" dap-ui-breakpoint-hit-condition "CL" dap-ui-breakpoint-log-message] 5)) #@115 Non-nil if Dap-Ui-Breakpoints mode is enabled. Use the command `dap-ui-breakpoints-mode' to change this variable. (defvar dap-ui-breakpoints-mode nil (#$ . 63165)) (make-variable-buffer-local 'dap-ui-breakpoints-mode) #@603 UI Breakpoints list minor mode. This is a minor mode. If called interactively, toggle the `Dap-Ui-Breakpoints 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 `dap-ui-breakpoints-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'dap-ui-breakpoints-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [dap-ui-breakpoints-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks dap-ui-breakpoints-mode-hook dap-ui-breakpoints-mode-on-hook dap-ui-breakpoints-mode-off-hook called-interactively-p any message "Dap-Ui-Breakpoints mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 63390) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar dap-ui-breakpoints-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\310\211%\207" [dap-ui-breakpoints-mode-map dap-ui-breakpoints-mode-hook variable-documentation put "Hook run after entering or leaving `dap-ui-breakpoints-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-ui-breakpoints-mode] 6) (defalias 'dap-ui-breakpoints--cleanup-hooks #[0 "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\207" [remove-hook dap-terminated-hook dap-ui-breakpoints--refresh dap-session-changed-hook dap-continue-hook dap-stack-frame-changed-hook dap-breakpoints-changed-hook] 3]) #@19 (fn &rest ARGS) (defalias 'dap-ui-breakpoints--refresh #[128 "\212r\301!q\210\302\303 \304\305\306%*\207" [dap-ui--breakpoints-buffer get-buffer-create lsp-treemacs-render dap-ui--breakpoints-data " Breakpoints " nil (["Refresh" dap-ui-breakpoints])] 7 (#$ . 65537)]) (defalias 'dap-ui-breakpoints #[0 "\300\301 !\210\302\303!\210\304\305\301\"\210\304\306\301\"\210\304\307\301\"\210\304\310\301\"\210\304\311\301\"\210\304\312\313\314\303$\207" [dap-ui--show-buffer dap-ui-breakpoints--refresh dap-ui-breakpoints-mode t add-hook dap-terminated-hook dap-session-changed-hook dap-continue-hook dap-stack-frame-changed-hook dap-breakpoints-changed-hook kill-buffer-hook dap-ui-breakpoints--cleanup-hooks nil] 5 nil nil]) (defvar dap-ui--many-windows-displayed nil) #@53 Show auto configured feature windows. (fn SESSION) (defalias 'dap-ui--show-many-windows #[257 "?\205 \302\303 \"\210\304\211\207" [dap-ui--many-windows-displayed dap-auto-configure-features seq-do #[257 "\301\"\211\205 \211@ \207" [dap-features->windows alist-get] 4 "\n\n(fn FEATURE-START-STOP)"] t] 4 (#$ . 66311)]) #@62 Hide all debug windows when sessions are dead. (fn SESSION) (defalias 'dap-ui--hide-many-windows #[257 "\205\f\302\303 \"\210\304\211\207" [dap-ui--many-windows-displayed dap-auto-configure-features seq-do #[257 "\301\"\211\205 \211AJ\211\205$\302!\211\203\303!\210\210\304!\205$\305!\207" [dap-features->windows alist-get get-buffer-window delete-window get-buffer kill-buffer] 6 "\n\n(fn FEATURE-START-STOP)"] nil] 4 (#$ . 66642)]) #@39 Show auto configured feature windows. (defalias 'dap-ui-show-many-windows #[0 "\300\301!\207" [dap-ui--show-many-windows nil] 2 (#$ . 67097) nil]) #@48 Hide all debug windows when sessions are dead. (defalias 'dap-ui-hide-many-windows #[0 "\300\301!\207" [dap-ui--hide-many-windows nil] 2 (#$ . 67250) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable dap-ui-many-windows-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Dap-Ui-Many-Windows mode is enabled.\nSee the `dap-ui-many-windows-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-ui-many-windows-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@648 Shows/hide the windows from `dap-auto-configure-features` This is a minor mode. If called interactively, toggle the `Dap-Ui-Many-Windows 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-ui-many-windows-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'dap-ui-many-windows-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203I\313\314\315\"\210\313\316\317\"\210\202S\320\314\315\"\210\320\316\317\"\210\321\322\305\301!\203_\323\202`\324\"\210\325\326!\203\210\327\301!\210\302 \203x\211\302 \232\203\210\330\331\305\301!\203\204\332\202\205\333\334#\210\210\335 \210\305\301!\207" [global-minor-modes dap-ui-many-windows-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook dap-stopped-hook dap-ui--show-many-windows dap-terminated-hook dap-ui--hide-many-windows remove-hook run-hooks dap-ui-many-windows-mode-hook dap-ui-many-windows-mode-on-hook dap-ui-many-windows-mode-off-hook called-interactively-p any customize-mark-as-set message "Dap-Ui-Many-Windows mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 67957) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar dap-ui-many-windows-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&\207" [dap-ui-many-windows-mode-map dap-ui-many-windows-mode-hook variable-documentation put "Hook run after entering or leaving `dap-ui-many-windows-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-ui-many-windows-mode boundp custom-declare-variable dap-ui-repl-prompt funcall function #[0 "\300\207" [#1=">> "] 1 #1#] "Prompt string for DAP REPL." :type string :group dap-ui] 8) #@192 Header line to show at the top of the REPL buffer. Hack notice: this allows log messages to appear before anything is evaluated because it provides insertable space at the top of the buffer. (defvar dap-ui-repl-welcome (propertize "*** Welcome to Dap-Ui ***\n" 'font-lock-face 'font-lock-comment-face) (#$ . 70376)) #@41 Return the process for the dap-ui REPL. (defalias 'dap-ui-repl-process #[0 "\300p!\207" [get-buffer-process] 2 (#$ . 70698)]) (defvar dap-ui-repl-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [dap-ui-repl-mode-hook variable-documentation put "Hook run after entering DAP-REPL mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp dap-ui-repl-mode-map definition-name dap-ui-repl-mode] 4) (defvar dap-ui-repl-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\300!\204#\303\300\307\310#\210\311\312\300\313\"\210!\210\300\302N\2041\303\300\302\304\314!#\210\303\310\315\316#\210\303\310\317\320#\207" [dap-ui-repl-mode-abbrev-table dap-ui-repl-mode-map variable-documentation put purecopy "Keymap for `dap-ui-repl-mode'." boundp definition-name dap-ui-repl-mode (lambda (#1=#:def-tmp-var) (defvar dap-ui-repl-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `dap-ui-repl-mode'." derived-mode-parent comint-mode custom-mode-group dap-ui] 5) #@248 Provide a REPL for the active debug session. In addition to any hooks its parent mode `comint-mode' might have run, this mode runs the hook `dap-ui-repl-mode-hook', as the final or penultimate step during initialization. \{dap-ui-repl-mode-map} (defalias 'dap-ui-repl-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f\321\"\204;\f =\204;\322\f\321 C#\210\323 !\210\324%!\210\f\325\326&!P'\327(\330)\306\331!\210\332\333p!\204\210*c\210\334\335p\330#\210\336\337 \330\"\210db\210\306\340!\210\307 \341\337 &\"\210\342\337 \341\"\210)\343\344!\207" [delay-mode-hooks major-mode mode-name dap-ui-repl-mode-map dap-ui-repl-mode-abbrev-table local-abbrev-table make-local-variable t comint-mode dap-ui-repl-mode "DAP-REPL" mode-class put keymap-parent set-keymap-parent current-local-map abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table "^" regexp-quote dap-ui-input-sender nil company-backends (dap-ui-repl-company) comint-check-proc start-process "dap-ui-repl" set-process-query-on-exit-flag dap-ui-repl-process comint-inhibit-carriage-motion comint-output-filter set-process-filter run-mode-hooks dap-ui-repl-mode-hook emacs-lisp-mode-syntax-table dap-ui-repl-prompt comint-prompt-regexp comint-input-sender comint-process-echoes dap-ui-repl-welcome] 5 (#$ . 71853) nil]) #@64 REPL comint handler. INPUT is the current input. (fn _ INPUT) (defalias 'dap-ui-input-sender #[514 "\300 \211\211\205\n\211\301H\262\211\205\302\303\"\262\211\203,\304\305\306\307\310\311\312\257\"\313#\207\314\315!\207" [dap--cur-active-session-or-die 12 gethash "id" dap--send-message dap--make-request "evaluate" :expression :frameId :context "repl" #[257 "\302\303\"\302\304\"\302\305\"\306!\211\205+r\211q\210\307\310 \203%\302\311\"\202&\312 Q\")\207" [dap-ui--repl-buffer dap-ui-repl-prompt gethash "success" "message" "body" get-buffer comint-output-filter dap-ui-repl-process "result" "\n"] 10 "\n\n(fn INPUT0)"] error "There is no stopped debug session"] 13 (#$ . 73243)]) #@144 Start an adapter-specific REPL. This could be used to evaluate JavaScript in a browser, to evaluate python in the context of the debugee, .... (defalias 'dap-ui-repl #[0 "\302!\211\204%r\303!q\210\304 \210\305\306!\203\306\307!\210\310\301!\210\311 p\262)\312!\207" [dap-ui--repl-buffer lsp--buffer-workspaces get-buffer get-buffer-create dap-ui-repl-mode functionp company-mode 1 make-local-variable lsp-workspaces dap-ui--show-buffer] 3 (#$ . 73957) nil]) #@61 Calculate completion candidates. TEXT is the current input. (defalias 'dap-ui-repl--calculate-candidates #[0 "\300 \301 \211\211\205\f\211\302H\262\211\205\303\304\"\262\211\205$\305\306\307$B\207" [comint-get-old-input-default dap--cur-active-session-or-die 12 gethash "id" :async make-closure #[257 "\303\304\305\306\302\307\300\310\300G\311 `ZZ\257\"\312\313\314\"!\301#\207" [V0 V1 V2 dap--send-message dap--make-request "completions" :frameId :text :column point-at-eol dap--resp-handler make-closure #[257 "\211\211\205 \301\302\"\262\211\205\301\303\"\262\211\203 \300\304\305\"!\207\300\306!\207" [V0 gethash "body" "targets" -map #[257 "\211\300\301\"\300\302\"\300\303\"\304\305\306\307\n&\207" [gethash "label" "text" "type" propertize :text :type :dap-completion-item] 13 "\n\n(fn INPUT0)"] nil] 6 "\n\n(fn RESULT)"]] 12 "\n\n(fn CALLBACK)"]] 9 (#$ . 74429)]) #@57 Post completion handling for CANDIDATE. (fn CANDIDATE) (defalias 'dap-ui-repl--post-completion #[257 "\300\301\302\"\303\"\211\205\304G[!\210\211c\207" [plist-get text-properties-at 0 :text delete-char] 5 (#$ . 75336)]) #@47 Get annotation for CANDIDATE. (fn CANDIDATE) (defalias 'dap-ui-repl--annotate #[257 "\300\301\302\303\"\304\"P\207" [" " plist-get text-properties-at 0 :type] 6 (#$ . 75567)]) #@150 Dap-Ui REPL backend for company-mode. See `company-backends' for more info about COMMAND and CANDIDATE. (fn COMMAND &optional CANDIDATE &rest ARGS) (defalias 'dap-ui-repl-company #[641 "\300\267\202\301\302!\207\303 \207\304\207\304\207G\207\305!\207\306 \207\307!\207\310\207" [#s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 ignore-case 13 sorted 15 match 17 annotation 20 candidates 24 post-completion 27)) company-begin-backend company-dap-ui-repl dap-ui-repl-company-prefix t dap-ui-repl--annotate dap-ui-repl--calculate-candidates dap-ui-repl--post-completion nil] 5 (#$ . 75752) (byte-code "\300C\207" [interactive] 1)]) #@21 Prefix for company. (defalias 'dap-ui-repl-company-prefix #[0 "\301=\205\f\302 \206\f\303\207" [major-mode dap-ui-repl-mode company-grab-word stop] 2 (#$ . 76455)]) (provide 'dap-ui)