mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 9d27fc972e84736015ab3b1c331888a8fe3d1276
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 `glab.host' is not set.
17 (defconst glab-default-host "gitlab.com/api/v4" (#$ . 424))
18 #@286 Make a `HEAD' request for RESOURCE, with optional query PARAMS.
19 Like calling `ghub-request' (which see) with "HEAD" as METHOD
20 and `gitlab' as FORGE.
21
22 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
23 (defalias 'glab-head #[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 "HEAD" :forge gitlab] 48 (#$ . 548)])
24 #@284 Make a `GET' request for RESOURCE, with optional query PARAMS.
25 Like calling `ghub-request' (which see) with "GET" as METHOD
26 and `gitlab' as FORGE.
27
28 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
29 (defalias 'glab-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 gitlab] 48 (#$ . 1741)])
30 #@286 Make a `PUT' request for RESOURCE, with optional payload PARAMS.
31 Like calling `ghub-request' (which see) with "PUT" as METHOD
32 and `gitlab' as FORGE.
33
34 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
35 (defalias 'glab-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 gitlab] 48 (#$ . 2931)])
36 #@288 Make a `POST' request for RESOURCE, with optional payload PARAMS.
37 Like calling `ghub-request' (which see) with "POST" as METHOD
38 and `gitlab' as FORGE.
39
40 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
41 (defalias 'glab-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 gitlab] 48 (#$ . 4123)])
42 #@290 Make a `PATCH' request for RESOURCE, with optional payload PARAMS.
43 Like calling `ghub-request' (which see) with "PATCH" as METHOD
44 and `gitlab' as FORGE.
45
46 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
47 (defalias 'glab-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 gitlab] 48 (#$ . 5319)])
48 #@292 Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
49 Like calling `ghub-request' (which see) with "DELETE" as METHOD
50 and `gitlab' as FORGE.
51
52 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
53 (defalias 'glab-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 gitlab] 48 (#$ . 6519)])
54 #@266 Make a request for RESOURCE and return the response body.
55 Like calling `ghub-request' (which see) with `gitlab' as FORGE.
56
57 (fn METHOD RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
58 (defalias 'glab-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 gitlab] 49 (#$ . 7723)])
59 #@109 Return the id of the repository specified by OWNER, NAME and HOST.
60
61 (fn OWNER NAME &key USERNAME AUTH HOST)
62 (defalias 'glab-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 glab-get format "/projects/%s%%2F%s"] 17 (#$ . 8891)])
63 (provide 'glab)