| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/emacs-lisp/package-x.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.\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 (#$ . 1033))
#@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 (#$ . 1161)])
(defalias 'package--make-rss-entry #[(title text archive-url) "\304\305!\306\307 !\310\n\311\307 !\312\313\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"] 9])
(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 (#$ . 2157)])
#@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 (#$ . 2758)])
#@62 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 (#$ . 3277)])
#@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 (#$ . 3765) "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 (#$ . 4245)])
#@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 (#$ . 4502)])
#@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 #[nil "\212\214\301 \302\303\"+\207" [pkg-desc package-buffer-info package-upload-buffer-internal "el"] 3 (#$ . 7477) nil])
#@582 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).
(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 (#$ . 7887) "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 (#$ . 9015) nil])
(provide 'package-x)