emacsd/elpa/skewer-mode-20180706.1807/skewer-bower.elc

;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\300\302!\210\300\303!\210\300\304\305\306#\210\307\310\311\312\313DD\314\315\316\317\320&\210\307\321\311\312\322DD\323\315\316\317\320&\210\307\324\311\312\325DD\326\315\327\317\320&\210\307\330\311\312\331DD\332\315\316\317\320&\207" [require cl-lib skewer-mode simple-httpd magit nil t custom-declare-variable skewer-bower-cache-dir funcall function #[0 "\300\301!\207" [locate-user-emacs-file "skewer-cache"] 2] "Location of library cache (git repositories)." :type string :group skewer skewer-bower-endpoint #[0 "\300\207" [#1="https://bower.herokuapp.com"] 1 #1#] "Endpoint for accessing package information." skewer-bower-json #[0 "\300\207" [("bower.json" "package.json" "component.json")] 1] "Files to search for package metadata." list skewer-bower-git-executable #[0 "\300\207" [#2="git"] 1 #2#] "Name of the git executable."] 8)
#@39 Alist of all packages known to bower.
(defvar skewer-bower-packages nil (#$ . 1279))
#@106 List of packages that have been refreshed recently. This keeps
them from hitting the network frequently.
(defvar skewer-bower-refreshed nil (#$ . 1371))
#@56 Update the package listing and packages synchronously.
(defalias 'skewer-bower-refresh #[0 "\304r\305	\306P!q\210\nb\210\307\310 \311\304\211T\211\262GW\2035H\262\312\313\"A\312\314\"AB
B\262
\202\211\237\266\204\315\316\317$\211)\207" [skewer-bower-refreshed skewer-bower-endpoint url-http-end-of-headers skewer-bower-packages nil url-retrieve-synchronously "/packages" cl-sort json-read -1 assoc name url string< :key car] 9 (#$ . 1530) nil])
#@66 Return the cache repository directory for PACKAGE.

(fn PACKAGE)
(defalias 'skewer-bower-cache #[257 "\301!\204\302\303\"\210\304
\"\207" [skewer-bower-cache-dir file-exists-p make-directory t expand-file-name] 4 (#$ . 1994)])
#@70 Run git for PACKAGE's repository with ARGS.

(fn PACKAGE &rest ARGS)
(defalias 'skewer-bower-git #[385 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\315\314\316\317\320!\"&\304U\205+\321 *\207" [skewer-bower-git-executable generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply call-process nil t format "--git-dir=%s" skewer-bower-cache buffer-string] 13 (#$ . 2232)])
#@75 Clone or fetch PACKAGE's repository from URL if needed.

(fn URL PACKAGE)
(defalias 'skewer-bower-git-clone #[514 "\211\235\203\301\207\302
!\303
!\203 \304\305\"\205(
B\211\202(\304\306\307%\211??\207" [skewer-bower-refreshed t skewer-bower-cache file-exists-p skewer-bower-git "fetch" "clone" "--bare"] 9 (#$ . 2711)])
#@71 Grab FILE from PACKAGE at version VERSION.

(fn PACKAGE VERSION FILE)
(defalias 'skewer-bower-git-show #[771 "\301
\302\303\304#)\266\203\203\211\305\302O\262
\306\307\310\311##\207" [inhibit-changing-match-data "^\\./" nil t string-match 2 skewer-bower-git "show" format "%s:%s"] 10 (#$ . 3051)])
#@58 List all the tags in PACKAGE's repository.

(fn PACKAGE)
(defalias 'skewer-bower-git-tag #[257 "\300\301\302\"!\207" [split-string skewer-bower-git "tag"] 5 (#$ . 3366)])
#@125 Ensure a package is installed in the cache and up to date.
Emit an error if the package could not be ensured.

(fn PACKAGE)
(defalias 'skewer-bower-package-ensure #[257 "\204\301 \210\302
\"A\211\204\303\304\"\210\305
\"\204!\303\306\"\210\307\207" [skewer-bower-packages skewer-bower-refresh assoc error "Unknown package: %s" skewer-bower-git-clone "Failed to fetch: %s" t] 5 (#$ . 3545)])
#@95 List the available versions for a package. Always returns at
least one version.

(fn PACKAGE)
(defalias 'skewer-bower-package-versions #[257 "\300
!\210\301\302!\303\"\206\304C\207" [skewer-bower-package-ensure sort skewer-bower-git-tag string< "master"] 4 (#$ . 3952)])
#@132 Get the configuration alist for PACKAGE at VERSION. Return nil
if no configuration could be found.

(fn PACKAGE &optional VERSION)
(defalias 'skewer-bower-get-config #[513 "\301!\210\211\204\302\262
\303\304\211\305\304:\203@@\262\306#\262\211\2033\211\262\304\211\262\2024\305\262
\203@A\262\202
\203H\307\202I\211\266\205!\207" [skewer-bower-json skewer-bower-package-ensure "master" json-read-from-string nil t skewer-bower-git-show "null"] 12 (#$ . 4233)])
#@50 Library selection history for `completing-read'.
(defvar skewer-bower-history nil (#$ . 4727))
#@77 Return the simple-httpd hosted path for PACKAGE.

(fn PACKAGE VERSION MAIN)
(defalias 'skewer-bowser--path #[771 "\300\301\206\302$\207" [format "/skewer/bower/%s/%s/%s" "master"] 8 (#$ . 4828)])
#@49 Prompt for a package and version from the user.
(defalias 'skewer-bower-prompt-package #[0 "\204\302 \210	G\303V\203\304	\305\306#\307\310\"	
\244\311\312\313\314\313\301&\315\316!!\311\317\313\314\313\211@&
D\207" [skewer-bower-packages skewer-bower-history skewer-bower-refresh 32 cl-subseq 0 16 mapcar car completing-read "Library: " nil t reverse skewer-bower-package-versions "Version: "] 12 (#$ . 5035)])
#@66 Return non-nil if FILENAME looks like JavaScript.

(fn FILENAME)
(defalias 'skewer-bower--js-p #[257 "\300\301\"\207" [string-match "\\.js$"] 4 (#$ . 5467)])
#@168 Attempt to determine the main entrypoints from a potentially
incomplete or incorrect bower configuration. Returns nil if
guessing failed.

(fn PACKAGE VERSION CONFIG)
(defalias 'skewer-bower-guess-main #[771 "\300\301#\302\303\"A\304
!\203!\305\"\203!\306\307\310\"\311\"\202H\211;\2031

!\2031\211C\202H
\312P!\203@\312PC\202H
!\205HC\207" [apply-partially skewer-bower-git-show assoc main vectorp cl-some cl-coerce cl-remove-if-not skewer-bower--js-p list ".js"] 9 (#$ . 5633)])
#@94 Dynamically load a library from bower into the current page.

(fn PACKAGE &optional VERSION)
(defalias 'skewer-bower-load #[513 "\300\"\301\302\"A\303#\211\204\304\305#\210
\306\211:\203=@\262
\211A\262\242\262
\307\310\311\"\"\210A\262\202\266\211\306\211:\203b@\262\312#\262
\313
\306\314\315$\210A\262\202B\306\266\203\207" [skewer-bower-get-config assoc dependencies skewer-bower-guess-main error "Could not load %s (%s): no \"main\" entrypoint specified" nil skewer-bower-load format "%s" skewer-bowser--path skewer-eval :type "script"] 13 (#$ . 6139) (skewer-bower-prompt-package)])
#@27 

(fn PROC PATH &rest G3)
(defalias 'httpd/skewer/bower #[642 "\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315p\316\317\"\211AAAA\203/\211
A\262\242\2026\320\321\322GD\"
\211A\262\242\211A\262\242\211A\262\242\211A\262\242\323\324\317#\325#\211\203c\211c\210\202h\326\327\330\"\210\266*?\205u\331\332\333#*\262
\207" [major-mode httpd-current-proc standard-output httpd--header-sent generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 httpd-buffer split-string "/" signal wrong-number-of-arguments nil mapconcat identity skewer-bower-git-show httpd-error t 404 httpd-send-header "application/javascript; charset=utf-8" 200] 16 (#$ . 6770)])
(provide 'skewer-bower)