;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303#\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\311\302\312\313\314\313\315\313\316\317\320\317\321& \210\322\323\324\325\326DD\327\330\331\313\311&\207" [require flycheck nil noerror pcase dash lsp-protocol lsp-mode custom-declare-group lsp-ui-flycheck "The LSP extension to display syntax checking." :group tools convenience lsp-ui :link (custom-manual "(lsp-ui-flycheck) Top") (info-link "(lsp-ui-flycheck) Customizing") custom-declare-variable lsp-ui-flycheck-list-position funcall function #[0 "\300\207" [bottom] 1] "Position where `lsp-ui-flycheck-list' will show diagnostics for the\nwhole workspace." :type (choice (const :tag "Bottom" bottom) (const :tag "Right" right))] 14) (defvar lsp-ui-flycheck-list--buffer nil nil) (make-variable-buffer-local 'lsp-ui-flycheck-list--buffer) (defvar lsp-ui-flycheck--save-mode nil nil) (make-variable-buffer-local 'lsp-ui-flycheck--save-mode) (defalias 'lsp-ui-flycheck-list--post-command #[0 "m\205\300y\207" [-1] 1]) #@148 Update flycheck buffer in WINDOW belonging to WORKSPACE. Use `lsp-diagnostics' to receive diagnostics from your LSP server. (fn WINDOW WORKSPACE) (defalias 'lsp-ui-flycheck-list--update #[514 "\302\303 \210\304 \210\305\306\307\"\310 \"\210*`\311U\203&\312\313\311\211\"\314\315#\210\202)\311b\210\316 \207" [lsp--cur-workspace buffer-read-only nil erase-buffer remove-overlays maphash make-closure #[514 "\211\203\301\302``\"\303\304\305\306\307#\304\310!\306\311#\304\305\306\312#Q#\210\211\211\205\230\211@\313\314\"\313\315\"\313\316\"\313\317\313\320\313\321 \"\"\"\203J\322\323#\202K\206O\324\206T\325T\325U\203`\326\202k\327U\203j\330\202k\331\304\332!\306#\333\334\305\"@Q\335\336G\337 \340\341\300\257$\210\211\305Pc\266\nA\266\202\202 \207" [V0 overlay-put make-overlay after-string propertize "\n" face (:height 0.2) lsp-ui--workspace-path dired-directory (:height 0.2) gethash "message" "severity" "source" "line" "start" "range" format "%s: %s" "???" 1 error 2 warning success number-to-string ": " split-string add-text-properties 0 diag file window] 22 "\n\n(fn FILE DIAGNOSTIC)"] lsp-diagnostics 1 overlay-put make-overlay after-string "No diagnostic available\n" lsp-ui-flycheck-list-mode] 6 (#$ . 1101)]) #@50 List all the diagnostics in the whole workspace. (defalias 'lsp-ui-flycheck-list #[0 "\303\304!\305 rq\210\306\"\210)\307\310\311\312\313$\210\314\315\nB\316B\"\317\313\"\210\320!\210\321\312\211\322#\207" [lsp--cur-workspace lsp-ui-flycheck-list--buffer lsp-ui-flycheck-list-position get-buffer-create "*lsp-diagnostics*" selected-window lsp-ui-flycheck-list--update add-hook lsp-diagnostics-updated-hook lsp-ui-flycheck-list--refresh nil t display-buffer-in-side-window side ((slot . 5) (window-width . 0.2)) set-window-dedicated-p select-window fit-window-to-buffer 10] 8 (#$ . 2375) nil]) (defalias 'lsp-ui-flycheck-list--refresh #[0 "\302 \303 !\2051\304 !\2051\2051\305\304 !!r\306\307\"\216\310@\311\"\210\312\"\210\313\314\211\315#*\262\207" [lsp--cur-workspace lsp-ui-flycheck-list--buffer selected-window buffer-live-p get-buffer-window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord lsp-ui-flycheck-list--update fit-window-to-buffer nil 10] 7]) (defalias 'lsp-ui-flycheck-list--open #[0 "\300`\301\"\211\205\206\302\303\302\304\"\"\211\205\204\302\305\"\211\205\202\302\306\"\211\205\200\300`\307\"\211\205~\300`\310\"\211\205|r\311!\206=\312!q\210\214~\210\212\313b\210y\210u\210\314 +\211\205z\315\316!\317#\210\320!r\321\322\"\216\323@\324\"\210b\210\325 \210\326\327!\330\"\210*\210\262\262\262\262\262\262\207" [get-text-property diag gethash "start" "range" "line" "character" file window get-file-buffer find-file-noselect 1 point-marker set-window-buffer marker-buffer t internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord recenter pulse-momentary-highlight-one-line marker-position next-error] 11]) (defalias 'lsp-ui-flycheck-list--view #[0 "\300 \207" [lsp-ui-flycheck-list--open] 1 nil nil]) (defalias 'lsp-ui-flycheck-list--visit #[0 "\300\301 !\207" [select-window lsp-ui-flycheck-list--open] 2 nil nil]) (defalias 'lsp-ui-flycheck-list--quit #[0 "\300 \207" [kill-buffer] 1 nil nil]) #@45 Keymap for ‘lsp-ui-flycheck-list-mode’. (defvar lsp-ui-flycheck-list-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\207" [make-sparse-keymap define-key "q" lsp-ui-flycheck-list--quit [return] lsp-ui-flycheck-list--view [M-return] lsp-ui-flycheck-list--visit] 5) (#$ . 4517)) (defvar lsp-ui-flycheck-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" [lsp-ui-flycheck-list-mode-hook variable-documentation put "Hook run after entering lsp-ui-flycheck-list mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp lsp-ui-flycheck-list-mode-map definition-name lsp-ui-flycheck-list-mode] 4) (defvar lsp-ui-flycheck-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" [lsp-ui-flycheck-list-mode-abbrev-table lsp-ui-flycheck-list-mode-map variable-documentation put purecopy "Keymap for `lsp-ui-flycheck-list-mode'." boundp lsp-ui-flycheck-list-mode-syntax-table definition-name lsp-ui-flycheck-list-mode (lambda (#1=#:def-tmp-var) (defvar lsp-ui-flycheck-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `lsp-ui-flycheck-list-mode'." (lambda (#1#) (defvar lsp-ui-flycheck-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `lsp-ui-flycheck-list-mode'." derived-mode-parent special-mode] 5) #@281 Mode showing flycheck diagnostics for the whole workspace. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `lsp-ui-flycheck-list-mode-hook', as the final or penultimate step during initialization. \{lsp-ui-flycheck-list-mode-map} (defalias 'lsp-ui-flycheck-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 \307 \331!\332\333\334\331\307$\210)\335\336!\207" [delay-mode-hooks major-mode mode-name lsp-ui-flycheck-list-mode-map lsp-ui-flycheck-list-mode-syntax-table lsp-ui-flycheck-list-mode-abbrev-table make-local-variable t special-mode lsp-ui-flycheck-list-mode "lsp-ui-flycheck-list" 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 nil add-hook post-command-hook lsp-ui-flycheck-list--post-command run-mode-hooks lsp-ui-flycheck-list-mode-hook local-abbrev-table truncate-lines mode-line-format] 5 (#$ . 6188) nil]) (provide 'lsp-ui-flycheck)