;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311%\207" [require xml mm-url nexus-widget custom-declare-variable nexus-rest-url "http://repository.sonatype.org/service/local/lucene/search" "URL of Nexus REST API. Customize if you use an private/custom Nexus server" :group nexus] 6) (defconst nexus-display-function 'nexus-widget-display) (defalias 'nexus--response-artifact-get-child #[(xml child-name) "\302 \"@\207" [xml child-name xml-get-children] 3]) (defalias 'nexus--make-keyword-symbol #[(symbol) "\301\302\303!P!\207" [symbol intern ":" symbol-name] 4]) #@45 transform xml artifact fragment to an alist (defalias 'nexus--response-artifact-to-alist #[(xml) "@\211\303=\203\304\305\306\n\")\202\307\310 \")\207" [xml tag artifact-attributes artifact (artifactId groupId resourceURI version classifier) mapcar #[(attribute) "\302!\303 \"AA@D\207" [attribute xml nexus--make-keyword-symbol nexus--response-artifact-get-child] 4] warn "Invalid XML fragment: %s"] 4 (#$ . 679)]) (defalias 'nexus-artifact-jar-p #[(artifact) "\302\236A@\211?\206 \303\230)\207" [artifact classifier :classifier "jar"] 3]) #@68 Return search-results->data->artifact childrens of search response (defalias 'nexus--response-artifacts #[(xml) "\301\302\301\302!\303\"!\304\"\207" [xml xml-get-children first data artifact] 5 (#$ . 1237)]) (defalias 'nexus-search-internal #[(qstring) "\306\307 #\3101*\311\312\313\"r q\210\314\216\315\n!\210\316\317\320\321\322\323ed\"!\"\"+0\202B \2044\203=\324\f@\fA\"\202A\325\326\n\"))\207" [nexus-rest-url qstring url #1=#:temp-buffer err debug-on-quit format "%s?%s" (error) generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-url-insert remove-if-not nexus-artifact-jar-p mapcar nexus--response-artifact-to-alist nexus--response-artifacts xml-parse-region signal message "nnrss: Failed to fetch %s" debug-on-error] 8]) (defalias 'nexus-search-keyword #[(keyword) "\302\303\304!P!\211\203\305 !\202\306\307!)\207" [keyword results nexus-search-internal "q=" mm-url-form-encode-xwfu nexus-widget-display message "No search results"] 5 nil "sNexus keyword search: "]) (defalias 'nexus--search-coordinates-internal #[(group-id artifact-id version packaging classifier) "\306B\307 B\310\nB\311 B\312\fB\257\313\314\315 \"!\316!*\207" [group-id artifact-id version packaging classifier pairs "g" "a" "v" "p" "%c" mm-url-encode-www-form-urlencoded remove-if-not #[(p) "\301\302A\"\207" [p string-match "[[:alnum:]]"] 3] nexus-search-internal qstring] 6]) #@165 Search Nexus repository by coordinates (groupId, artifactId, version, packaging, classifier as descriped in http://maven.apache.org/pom.html#Maven_Coordinates (defalias 'nexus-search-coordinates #[(group-id artifact-id version packaging classifier) "\306 \n \f%\211\203\307 !\202\310\311!)\207" [group-id artifact-id version packaging classifier results nexus--search-coordinates-internal nexus-widget-display message "No search results"] 7 (#$ . 2675) "sgroupId: \nsartifactId: \nsversion: \nspackaging: \nsclassifier: "]) (defalias 'nexus-search-classname #[(classname) "\302\303\304!P!\211\203\305 !\202\306\307!)\207" [classname results nexus-search-internal "cn=" mm-url-form-encode-xwfu nexus-widget-display message "No search results"] 5 nil "sNexus class name search: "]) (provide 'nexus)