;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\307%\210\310\314\315\316\306\307%\207" [custom-declare-variable nexus-widget-buffer-name "*nexus*" "The buffer name of Nexus client displaying the search results." :type string :group nexus custom-declare-face nexus-widget-artifact-face ((((class color) (background dark)) (:foreground "light blue" :weight bold)) (((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold)) (((class color) (background light)) (:foreground "blue" :weight bold)) (t (:weight bold))) "Face used for Maven artifacts." nexus-widget-xml-tag-face ((t (:inherit font-lock-function-name-face))) "Face used for the local name of elements."] 8) #@33 Keymap used in recentf dialogs. (defvar nexus-widget-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210)\207" [km widget-keymap make-sparse-keymap set-keymap-parent define-key "q" nexus-widget-quit] 4) (#$ . 804)) (defalias 'nexus-widget-toggle-hide #[(widget &optional event) "\305!?\205\306\307\310\"\311\307\312\"!\306\313\f\"\210\212\nb\210\f\203*\314 !\2029\315`!\2046\316u\210\202*\n`|-\207" [widget inhibit-read-only insert-pos xml-string new-value widget-value t widget-get :xml-string marker-position :to widget-value-set widget-insert overlays-at nil] 6]) (defalias 'nexus-widget-artifact #[(artifact) "\306\236A@\307\236A@\310\236A@\311\312 \n $\311\313 \n $\314\315 \316\317\320\321\f$\"\210\322\323!\210\316\324\325\326\327\330\331\332\333 \334\335& -\207" [artifact group-id artifact-id version artifact-string maven-string :groupId :artifactId :version format "%s/%s \"%s\"" "\n %s\n %s\n %s\n\n" lexical-let (artifact artifact) widget-create push-button :notify #[(&rest ignore) "\302\236A@\303 \304 !\")\207" [artifact url :resourceURI url-copy-file file-name-nondirectory] 4] widget-insert " " toggle :help-echo "Hide/Show Maven XML" :on "Hide XML" :off "Show XML" :xml-string :action nexus-widget-toggle-hide] 12]) (defalias 'nexus-widget-quit #[(&rest ignore) "\300p!\210\301\302!\207" [kill-buffer message "Nexus search result canceled"] 2 nil nil]) (defvar nexus-widget-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [nexus-widget-mode-hook variable-documentation put "Hook run after entering nexus-widget mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp nexus-widget-mode-map definition-name nexus-widget-mode] 4) (defvar nexus-widget-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [nexus-widget-mode-map variable-documentation put purecopy "Keymap for `nexus-widget-mode'." nexus-widget-mode derived-mode-parent nil] 5) #@170 Major mode of nexus search results- \{nexus-widget-mode-map} This mode runs the hook `nexus-widget-mode-hook', as the final or penultimate step during initialization. (defalias 'nexus-widget-mode #[nil "\305\300!\210\306\307 \210\310\311\312 !\210\306)\313\314!\207" [delay-mode-hooks major-mode mode-name nexus-widget-mode-map truncate-lines make-local-variable t kill-all-local-variables nexus-widget-mode "nexus-widget" use-local-map run-mode-hooks nexus-widget-mode-hook] 2 (#$ . 2990) nil]) (defalias 'nexus-widget-display #[(artifacts) "\305!\210\306\307 \210\n\306\211\203\f@\310 !\210\fA\211\204*\311 \210\312\313 \207" [nexus-widget-buffer-name buffer-read-only artifacts artifact --dolist-tail-- pop-to-buffer nil erase-buffer nexus-widget-artifact nexus-widget-mode t beginning-of-buffer] 3]) (provide 'nexus-widget)