;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\301\311\312& \207" [require package custom-declare-variable package-archive-upload-base "/path/to/archive" "The base location of the archive to which packages are uploaded.\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 (#$ . 961))
#@65 Encode a string by replacing some characters with XML entities.
(defalias 'package--encode #[(string) "\302\303\304 #\211\203 \305\306\307\302 $T\202 )\303\310 \"\203+ \305\311\307\302 $\202 \303\312 \"\203< \305\313\307\302 $\202+ \303\314 \"\203M \305\315\307\302 $\202< \303\316 \"\203^ \305\317\307\302 $\202M \207" [index string nil string-match "[&]" replace-match "&" t "[<]" "<" "[>]" ">" "[']" "'" "[\"]" """] 5 (#$ . 1088)])
(defalias 'package--make-rss-entry #[(title text archive-url) "\304\305!\306\307\310 !\311\312\n\313\314\310 !\315\316\317\320\260)\207" [date-string title archive-url text format-time-string "%a, %d %B %Y %T %z" "<item>\n" "<title>" package--encode "</title>\n" "<link>" "news.html</link>\n" "<description>" "</description>\n" "<pubDate>" "</pubDate>\n" "</item>\n"] 14])
(defalias 'package--make-html-entry #[(title text) "\302\303\304!\305\305\306 !\307\260\207" [title text "<li> " format-time-string "%B %e" " - " package--encode " </li>\n"] 7])
#@211 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.
(defalias 'package--update-file #[(file tag text) "\306 \"\212\307!r\310\n\206 \311!)q\210eb\210\312\f!\210\313y\210
c\210\310 \314 \210)\n?\2053 \315p!+\207" [file package-archive-upload-base old-buffer find-file-visit-truename tag text expand-file-name find-buffer-visiting t find-file-noselect search-forward nil save-buffer kill-buffer file-precious-flag] 3 (#$ . 2120)])
#@108 Parse archive-contents file at ARCHIVE-URL.
Return the file contents, as a string, or nil if unsuccessful.
(defalias 'package--archive-contents-from-url #[(archive-url) "\205% \302\303!r q\210\304\216\3051\" \306\307P!\210\310\311ed\"!0\202$ \210\312+\207" [archive-url #1=#:temp-buffer generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] (error) url-insert-file-contents "archive-contents" package-read-from-string buffer-substring-no-properties nil] 4 (#$ . 2721)])
#@61 Parse the archive-contents at `package-archive-upload-base'
(defalias 'package--archive-contents-from-file #[nil "\305\306\"\307 !\204 \nC\202, \310 !r\311 \312 !)q\210\313\314ed\"! \204+ \315p!\210*)\207" [package-archive-upload-base file package-archive-version dont-kill 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] 4 (#$ . 3240)])
#@149 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.
(defalias 'package-maint-add-news-item #[(title description archive-url) "\303\304\305\306 \n##\210\303\307\310\311 \"#\207" [title description archive-url package--update-file "elpa.rss" "<description>" package--make-rss-entry "news.html" "New entries go here" package--make-html-entry] 7 (#$ . 3727) "sTitle: \nsText: "])
#@55 Update the ELPA web pages when a package is uploaded.
(defalias 'package--update-news #[(package version description archive-url) "\304\305 Q\n #\207" [package version description archive-url package-maint-add-news-item " version "] 4 (#$ . 4207)])
#@727 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.
(defalias 'package-upload-buffer-internal #[(pkg-desc extension &optional archive-url) "\211;\203 \300\306N\242\232\203 \307\310!\311!\204/ \312\313\314\"!\203+ \315\316\"\210\202/ \317\320!\210\212\214\321 !\n>\204@ \322\323\324 D\"\210 \325H\321 !\n>\204S \322\323\324 D\"\210 \326H \321 !\n>\204f \322\323\324 D\"\210 \327H \321 !\n>\204y \322\323\324 D\"\210 \330H9=\203\210 \331\332!\202\232 \321 !\n>\204\227 \322\323\324 D\"\210 \330H :\321 !\n>\204\253 \322\323\324 D\"\210 \333H ; \334\267\202\277 \335 \202\300 \336\202\300 \336 <\321 !\n>\204\321 \322\323\324 D\"\210 \337H =\340;! >p ? \341=\203\351 \342\343!\210\344@!\206\362 \345 \346;
: =% A\211 B@CV\203\317\347B@\"\210\fBA\236\211 D\2038\350;DA\351H\"\203/\317\352>\"\210\202FDA\241\210\202FB@\fABBABBB)\336\316\336 E F G\353\354B!\355P\336\356\357\"#\210+<\203r\353<\336\356\360\f!\361P\"#\210 \362=\203}H\202?q\210\353ed\356\313\363\f>I$\"\336\211\211\364&\210J\203\257@\203\257\365\313\366\fI#>:@$\210\f\367=\205\307\353ed\356\313\366\fI#\"\336\211\211\370&.\207" [package-archive-upload-base pkg-desc cl-struct-package-desc-tags file-type pkg-name requires 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 package--default-summary desc split-version commentary extras pkg-version pkg-buffer archive-url new-desc contents package-archive-version elt print-length print-quoted print-level tar-data-buffer extension package-update-news-on-upload] 10 (#$ . 4464)])
#@158 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.
(defalias 'package-upload-buffer #[nil "\212\214\301 \302\303\"+\207" [pkg-desc package-buffer-info package-upload-buffer-internal "el"] 3 (#$ . 7439) nil])
#@307 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".
If `package-archive-upload-base' does not specify a valid upload
destination, prompt for one.
(defalias 'package-upload-file #[(file) "\303\304!rq\210\305\216\306 !\210\307\310 \"\203 \311 \210\312 \202/ \307\313 \"\203) \314 \202/ \315\316\317 !\"\320\n\317 !\",\207" [#1=#:temp-buffer file pkg-desc generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# 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] 4 (#$ . 7762) "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 #[nil "rq\210\301 )\207" [gnus-article-buffer package-upload-buffer] 1 (#$ . 8615) nil])
(provide 'package-x)
|