;ELC
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\301\313\314& \207" [require package custom-declare-variable package-archive-upload-base funcall function #[0 "\300\207" ["/path/to/archive"] 1 ""] "The base location of the archive to which packages are uploaded.\nThe commands in the package-x library will use this as base\nlocation.\nThis should be an absolute directory name. If the archive is on\nanother machine, you may specify a remote name in the usual way,\ne.g. \"/ssh:foo@example.com:/var/www/packages/\".\nSee Info node `(emacs)Remote Files'.\n\nUnlike `package-archives', you can't specify a HTTP URL." :type directory :group :version "24.1"] 10)#@68 Whether uploading a package should also update NEWS and RSS feeds.
(defvar package-update-news-on-upload nil (#$ . 758))#@78 Encode a string by replacing some characters with XML entities.
(fn STRING)
(defalias 'package--encode #[257 "\300\301\302#\211\262\203 \303\304\305\300$\262\211T\262\202 \210\301\306\"\203. \303\307\305\300$\262\202 \301\310\"\203@ \303\311\305\300$\262\202. \301\312\"\203R \303\313\305\300$\262\202@ \301\314\"\203d \303\315\305\300$\262\202R \207" [nil string-match "[&]" replace-match "&" t "[<]" "<" "[>]" ">" "[']" "'" "[\"]" """] 7 (#$ . 884)])#@31
(fn TITLE TEXT ARCHIVE-URL)
(defalias 'package--make-rss-entry #[771 "\300\301!\302\303!\304\305\303!\306\307\260 \207" [format-time-string "%a, %d %B %Y %T %z" "\n" package--encode "\n" "news.html\n" "\n" "\n\n"] 13 (#$ . 1384)])#@19
(fn TITLE TEXT)
(defalias 'package--make-html-entry #[514 "\300\301\302!\303\303\304!\305\260\207" ["
\n"] 9 (#$ . 1715)])#@231 Update the package archive file named FILE.
FILE should be relative to `package-archive-upload-base'.
TAG is a string that can be found within the file; TEXT is
inserted after its first occurrence in the file.
(fn FILE TAG TEXT)
(defalias 'package--update-file #[771 "\303\"\262\212\304!r\305\211\206 \306!)q\210eb\210\307!\210\310y\210c\210\305\311 )\210\211?\2052 \312p!*\207" [package-archive-upload-base find-file-visit-truename file-precious-flag expand-file-name find-buffer-visiting t find-file-noselect search-forward nil save-buffer kill-buffer] 6 (#$ . 1912)])#@126 Parse archive-contents file at ARCHIVE-URL.
Return the file contents, as a string, or nil if unsuccessful.
(fn ARCHIVE-URL)
(defalias 'package--archive-contents-from-url #[257 "\211\205* \300\301\302\"r\211q\210\303\304\"\216\3051% \306\307P!\210\310\311ed\"!0\202' \210\312*\262\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] (error) url-insert-file-contents "archive-contents" package-read-from-string buffer-substring-no-properties nil] 6 (#$ . 2500)])#@62 Parse the archive-contents at `package-archive-upload-base'.
(defalias 'package--archive-contents-from-file #[0 "\303\304\"\305!\204
C\207\306!r\307\310!)q\210\311\312ed\"!\204' \313p!\210)\207" [package-archive-upload-base package-archive-version find-file-visit-truename expand-file-name "archive-contents" file-exists-p find-buffer-visiting t find-file-noselect package-read-from-string buffer-substring-no-properties kill-buffer] 6 (#$ . 3036)])#@185 Add a news item to the webpages associated with the package archive.
TITLE is the title of the news item.
DESCRIPTION is the text of the news item.
(fn TITLE DESCRIPTION ARCHIVE-URL)
(defalias 'package-maint-add-news-item #[771 "\300\301\302\303##\210\300\304\305\306\"#\207" [package--update-file "elpa.rss" "" package--make-rss-entry "news.html" "New entries go here" package--make-html-entry] 10 (#$ . 3500) "sTitle: \nsText: "])#@101 Update the ELPA web pages when a package is uploaded.
(fn PACKAGE VERSION DESCRIPTION ARCHIVE-URL)
(defalias 'package--update-news #[1028 "\300\301Q#\207" [package-maint-add-news-item " version "] 8 (#$ . 3963)])#@774 Upload a package whose contents are in the current buffer.
PKG-DESC is the `package-desc'.
EXTENSION is the file extension, a string. It can be either
"el" or "tar".
The upload destination is given by `package-archive-upload-base'.
If its value is invalid, prompt for a directory.
Optional arg ARCHIVE-URL is the URL of the destination archive.
If it is non-nil, compute the new "archive-contents" file
starting from the existing "archive-contents" at that URL. In
addition, if `package-update-news-on-upload' is non-nil, call
`package--update-news' to add a news item at that URL.
If ARCHIVE-URL is nil, compute the new "archive-contents" file
from the "archive-contents" at `package-archive-upload-base',
if it exists.
(fn PKG-DESC EXTENSION &optional ARCHIVE-URL)
(defalias 'package-upload-buffer-internal #[770 "\211;\203 \306\300!\232\203 \307\310!\311!\204. \312\313\314\"!\203* \315\316\"\210\202. \317\320!\210\212\214\321! >\204? \322\323\324D\"\210\325H\321! >\204R \322\323\324D\"\210\326H\321! >\204e \322\323\324D\"\210\327H\321! >\204y \322\323\324D\"\210\330H\n=\203\207 \331\332!\202\233 \321! >\204\230 \322\323\324D\"\210\330H\321! >\204\254 \322\323\324 D\"\210\333H\334\267\202\277 \335 \202\300 \336\202\300 \336\321 ! >\204\321 \322\323\324 D\"\210\337H\340!p\341=\203\344 \342\343!\210\344\n!\206\355 \345 \346
%@ V\203\317\347@\"\210 A\236\211\203,\350A\351H\"\203$\317\352\"\266\2029\211\241\266\2029@ BABB\262\210\336\316\336 9\353\354!\355P\336\356\357\"#+\210\203a\353\336\356\360!\361P\"#\210\n\362=\203m:\202nq\210\353ed\356\313\363\n$\"\336\211\211\364&\210;\203\237 \203\237\365\313\366\f#\n$\210 \367=\205\271\353ed\356\313\366#\"\336\211\211\370&\266\213+\207" [package-archive-upload-base cl-struct-package-desc-tags package--default-summary package-archive-version print-length print-quoted custom--standard-value read-directory-name "Base directory for package archive: " file-directory-p y-or-n-p format "%s does not exist; create it? " make-directory t error "Aborted" type-of signal wrong-type-argument package-desc 5 1 4 3 read-string "Description of package: " 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (single 182 tar 187)) lm-commentary nil 8 package-version-join dir user-error "Can't upload directory, tar it instead" package--archive-contents-from-url package--archive-contents-from-file vector "Unrecognized archive version %d" version-list-<= 0 "New package has smaller version: %s" write-region pp-to-string "\n" expand-file-name "archive-contents" symbol-name "-readme.txt" tar "%s-%s.%s" excl package--update-news "%s.%s" package ask print-level tar-data-buffer package-update-news-on-upload] 24 (#$ . 4187)])#@245 Upload the current buffer as a single-file Emacs Lisp package.
If `package-archive-upload-base' does not specify a valid upload
destination, prompt for one.
Signal an error if the current buffer is not visiting a simple
package (a ".el" file).
(defalias 'package-upload-buffer #[0 "\212\214\300 \301\302\"*\207" [package-buffer-info package-upload-buffer-internal "el"] 4 (#$ . 7024) nil])#@593 Upload the Emacs Lisp package FILE to the package archive.
Interactively, prompt for FILE. The package is considered a
single-file package if FILE ends in ".el", and a multi-file
package if FILE ends in ".tar".
Automatically extract package attributes and update the archive's
contents list with this information.
If `package-archive-upload-base' does not specify a valid upload
destination, prompt for one. If the directory does not exist, it
is created. The directory need not have any initial contents
(i.e., you can use this command to populate an initially empty
archive).
(fn FILE)
(defalias 'package-upload-file #[257 "\300\301\302\"r\211q\210\303\304\"\216\305!\210\306\307\"\203 \310 \210\311 \2022 \306\312\"\203, \313 \2022 \314\315\316!\"\317\316!\"*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents string-match "\\.tar\\'" tar-mode package-tar-file-info "\\.el\\'" package-buffer-info error "Unrecognized extension `%s'" file-name-extension package-upload-buffer-internal] 7 (#$ . 7421) "fPackage file name: "])#@116 Upload a package contained in the current *Article* buffer.
This should be invoked from the gnus *Summary* buffer.
(defalias 'package-gnus-summary-upload #[0 "rq\210\301 )\207" [gnus-article-buffer package-upload-buffer] 1 (#$ . 8555) nil])
(provide 'package-x)