| 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 `gtea.host' is not set. | |
| 17 | (defconst gtea-default-host "localhost:3000/api/v1" (#$ . 424)) | |
| 18 | #@283 Make a `GET' request for RESOURCE, with optional query PARAMS. | |
| 19 | Like calling `ghub-request' (which see) with "GET" as METHOD | |
| 20 | and `gitea' as FORGE. | |
| 21 | ||
| 22 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 23 | (defalias 'gtea-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 gitea] 48 (#$ . 552)]) | |
| 24 | #@285 Make a `PUT' request for RESOURCE, with optional payload PARAMS. | |
| 25 | Like calling `ghub-request' (which see) with "PUT" as METHOD | |
| 26 | and `gitea' as FORGE. | |
| 27 | ||
| 28 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 29 | (defalias 'gtea-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 gitea] 48 (#$ . 1739)]) | |
| 30 | #@287 Make a `POST' request for RESOURCE, with optional payload PARAMS. | |
| 31 | Like calling `ghub-request' (which see) with "POST" as METHOD | |
| 32 | and `gitea' as FORGE. | |
| 33 | ||
| 34 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 35 | (defalias 'gtea-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 gitea] 48 (#$ . 2929)]) | |
| 36 | #@289 Make a `PATCH' request for RESOURCE, with optional payload PARAMS. | |
| 37 | Like calling `ghub-request' (which see) with "PATCH" as METHOD | |
| 38 | and `gitea' as FORGE. | |
| 39 | ||
| 40 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 41 | (defalias 'gtea-patch #[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 "PATCH" :forge gitea] 48 (#$ . 4123)]) | |
| 42 | #@291 Make a `DELETE' request for RESOURCE, with optional payload PARAMS. | |
| 43 | Like calling `ghub-request' (which see) with "DELETE" as METHOD | |
| 44 | and `gitea' as FORGE. | |
| 45 | ||
| 46 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 47 | (defalias 'gtea-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 gitea] 48 (#$ . 5321)]) | |
| 48 | #@265 Make a request for RESOURCE and return the response body. | |
| 49 | Like calling `ghub-request' (which see) with `gitea' as FORGE. | |
| 50 | ||
| 51 | (fn METHOD RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 52 | (defalias 'gtea-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 gitea] 49 (#$ . 6523)]) | |
| 53 | #@109 Return the id of the repository specified by OWNER, NAME and HOST. | |
| 54 | ||
| 55 | (fn OWNER NAME &key USERNAME AUTH HOST) | |
| 56 | (defalias 'gtea-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\315\n\n#\306\301\302 \303\n&\236A!\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)" number-to-string id gtea-get format "/repos/%s/%s"] 17 (#$ . 7689)]) | |
| 57 | (provide 'gtea) | |
