| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'ghub) | |
| 16 | #@58 The default host that is used if `buck.host' is not set. | |
| 17 | (defconst buck-default-host "api.bitbucket.org/2.0" (#$ . 424)) | |
| 18 | #@287 Make a `GET' request for RESOURCE, with optional query PARAMS. | |
| 19 | Like calling `ghub-request' (which see) with "GET" as METHOD | |
| 20 | and `bitbucket' as FORGE. | |
| 21 | ||
| 22 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 23 | (defalias 'buck-get #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\325\326\301\302\303\304\305\306\307\310\311\312 \313 \314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "GET" :forge bitbucket] 48 (#$ . 552)]) | |
| 24 | #@289 Make a `PUT' request for RESOURCE, with optional payload PARAMS. | |
| 25 | Like calling `ghub-request' (which see) with "PUT" as METHOD | |
| 26 | and `bitbucket' as FORGE. | |
| 27 | ||
| 28 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 29 | (defalias 'buck-put #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\325\326\301\302\303\304\305\306\307\310\311\312 \313 \314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "PUT" :forge bitbucket] 48 (#$ . 1747)]) | |
| 30 | #@291 Make a `POST' request for RESOURCE, with optional payload PARAMS. | |
| 31 | Like calling `ghub-request' (which see) with "POST" as METHOD | |
| 32 | and `bitbucket' as FORGE. | |
| 33 | ||
| 34 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 35 | (defalias 'buck-post #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\325\326\301\302\303\304\305\306\307\310\311\312 \313 \314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "POST" :forge bitbucket] 48 (#$ . 2945)]) | |
| 36 | #@295 Make a `DELETE' request for RESOURCE, with optional payload PARAMS. | |
| 37 | Like calling `ghub-request' (which see) with "DELETE" as METHOD | |
| 38 | and `bitbucket' as FORGE. | |
| 39 | ||
| 40 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 41 | (defalias 'buck-delete #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\325\326\301\302\303\304\305\306\307\310\311\312 \313 \314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "DELETE" :forge bitbucket] 48 (#$ . 4147)]) | |
| 42 | #@269 Make a request for RESOURCE and return the response body. | |
| 43 | Like calling `ghub-request' (which see) with `bitbucket' as FORGE. | |
| 44 | ||
| 45 | (fn METHOD RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 46 | (defalias 'buck-request #[898 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\325\301\302\303\304\305\306\307\310\311\312 \313 \314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request :forge bitbucket] 49 (#$ . 5357)]) | |
| 47 | #@109 Return the id of the repository specified by OWNER, NAME and HOST. | |
| 48 | ||
| 49 | (fn OWNER NAME &key USERNAME AUTH HOST) | |
| 50 | (defalias 'buck-repository-id #[642 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312\313\314 #\306\301\302\303 &\236A\315\316O\207" [plist-member :username :auth :host (:username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host)" uuid buck-get format "/repositories/%s/%s" 1 -1] 16 (#$ . 6531)]) | |
| 51 | (provide 'buck) | |
