;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cider-client cider-popup subr-x cider-compat] 2) (defvar cider-classpath-buffer "*cider-classpath*") (defvar cider-classpath-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210)\207" [map cider-popup-buffer-mode-map make-sparse-keymap set-keymap-parent define-key " " cider-classpath-operate-on-point "n" next-line "p" previous-line] 4)) (defvar cider-classpath-mouse-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [mouse-1] cider-classpath-handle-mouse] 4)) (defvar cider-classpath-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [cider-classpath-mode-hook variable-documentation put "Hook run after entering classpath mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cider-classpath-mode-map definition-name cider-classpath-mode] 4) (defvar cider-classpath-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" [cider-classpath-mode-abbrev-table cider-classpath-mode-map variable-documentation put purecopy "Keymap for `cider-classpath-mode'." boundp cider-classpath-mode-syntax-table definition-name cider-classpath-mode (lambda (def-tmp-var) (defvar cider-classpath-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `cider-classpath-mode'." (lambda (def-tmp-var) (defvar cider-classpath-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `cider-classpath-mode'." derived-mode-parent special-mode] 5) #@269 Major mode for browsing the entries in Java's classpath. \{cider-classpath-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `cider-classpath-mode-hook', as the final or penultimate step during initialization. (defalias 'cider-classpath-mode #[nil "\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\2036 \321 =\203<\322\f\323 \"\210)\324 \325\"\204V !=\204V\326 \325!C#\210\327 !\210\330\f!\210 !\306\331!\210\332\306\333!\210\334\"\203|\306\335!\210\307)\336\337!\207" [delay-mode-hooks major-mode mode-name cider-classpath-mode-map cider-classpath-mode-syntax-table parent make-local-variable t special-mode cider-classpath-mode "classpath" 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 electric-indent-chars nil sesman-system CIDER truncate-lines run-mode-hooks cider-classpath-mode-hook cider-classpath-mode-abbrev-table local-abbrev-table cider-special-mode-truncate-lines] 6 (#$ . 1990) nil]) #@29 Populate BUFFER with ITEMS. (defalias 'cider-classpath-list #[(buffer items) "rq\210\305 \210\306\307 \210\n\310\211\203#\f@\211\311\261\210\fA\211\204*eb*\207" [buffer inhibit-read-only items item --dolist-tail-- cider-classpath-mode t erase-buffer nil "\n"] 3 (#$ . 3209)]) #@58 Decorate TEXT with a clickable keymap and function face. (defalias 'cider-classpath-properties #[(text) "\303!\204\n\304\202\305!\203\306\202\307\310\311 \312\313\314\n&)\207" [text face cider-classpath-mouse-map file-exists-p font-lock-warning-face file-directory-p dired-directory default propertize font-lock-face mouse-face highlight keymap] 8 (#$ . 3501)]) #@53 Expand browser according to thing at current point. (defalias 'cider-classpath-operate-on-point #[nil "\303 \304 \305 \"\306\n!+\207" [bol eol line line-beginning-position line-end-position buffer-substring-no-properties find-file-other-window] 3 (#$ . 3881) nil]) #@27 Handle mouse click EVENT. (defalias 'cider-classpath-handle-mouse #[(event) "\300 \207" [cider-classpath-operate-on-point] 1 (#$ . 4156) "e"]) #@29 List all classpath entries. (defalias 'cider-classpath #[nil "\301 \210r\302\303\304\305$q\210\306p\307\310\311 \"\")\207" [cider-classpath-buffer cider-ensure-connected cider-popup-buffer select nil ancillary cider-classpath-list mapcar #[(name) "\301!\207" [name cider-classpath-properties] 2] cider-classpath-entries] 5 (#$ . 4305) nil]) #@25 Open a classpath entry. (defalias 'cider-open-classpath-entry #[nil "\301 \210\302\303\304 \"\211\205\305!)\207" [entry cider-ensure-connected completing-read "Classpath entries: " cider-classpath-entries find-file-other-window] 4 (#$ . 4654) nil]) (provide 'cider-classpath)