;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!\207" [require dash ghub graphql treepy] 2)
|
#@381 Make a GraphQL request using GRAPHQL and VARIABLES.
|
Return the response as a JSON-like alist. Even if the response
|
contains `errors', do not raise an error. GRAPHQL is a GraphQL
|
string. VARIABLES is a JSON-like alist. The other arguments
|
behave as for `ghub-request' (which see).
|
|
(fn GRAPHQL &optional VARIABLES &key USERNAME AUTH HOST SILENT CALLBACK ERRORBACK VALUE EXTRA)
|
(defalias 'ghub-graphql #[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@\211\203` \211@\311>\203H \211AA\262\2025 \312\n>A@\203W \313\262\2025 \314\315@\"\210\2025 \210\n;\204k \316\317!\210 ;\203u \316\320!\210\321\322\323\313\324\325\326B\205\211 \327BCB!\304 \301\302\303\305\306\310\307&\207" [plist-member :username :auth :host :silent :callback :errorback :value :extra (:username :auth :host :silent :callback :errorback :value :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :silent :callback :errorback :value :extra)" cl--assertion-failed (stringp graphql) (not (stringp variables)) ghub-request "POST" "/graphql" :payload json-encode "query" "variables"] 33 (#$ . 513)])
|
#@62 Return rate limit information.
|
|
(fn &key USERNAME AUTH HOST)
|
(defalias 'ghub-graphql-rate-limit #[128 "\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\306\301\302\303&\313\314\236A\236A\211\262\262\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)" ghub-graphql "query { rateLimit { limit cost remaining resetAt }}" rateLimit data] 13 (#$ . 1738)])
|
#@109 Return the id of the repository specified by OWNER, NAME and HOST.
|
|
(fn OWNER NAME &key USERNAME AUTH HOST)
|
(defalias 'ghub--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\313B\314BD\301\302\303&\315\316\317\236A\236A\236A\211\262\262\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)" ghub-graphql "query ($owner:String!, $name:String!) {\n repository(owner:$owner, name:$name) { id }\n }" owner name id repository data] 15 (#$ . 2320)])
|
(defconst ghub-fetch-repository '(query (repository [(owner $owner String!) (name $name String!)] name id createdAt updatedAt nameWithOwner description (defaultBranchRef name) isArchived isFork isLocked isMirror isPrivate hasIssuesEnabled hasWikiEnabled (licenseInfo name) (stargazers totalCount) (watchers totalCount) (assignableUsers [(:edges t)] id login name) (issues [(:edges t) (:singular issue number) (orderBy ((field . UPDATED_AT) (direction . DESC)))] number state (author login) title createdAt updatedAt closedAt locked (milestone id) body (assignees [(:edges t)] id) (comments [(:edges t)] databaseId (author login) createdAt updatedAt body) (labels [(:edges t)] id)) (labels [(:edges t) (:singular label id)] id name color description) (pullRequests [(:edges t) (:singular pullRequest number) (orderBy ((field . UPDATED_AT) (direction . DESC)))] number state (author login) title createdAt updatedAt closedAt mergedAt locked maintainerCanModify isCrossRepository (milestone id) body (baseRef name (repository nameWithOwner)) (headRef name (repository (owner login) nameWithOwner)) (assignees [(:edges t)] id) (comments [(:edges t)] databaseId (author login) createdAt updatedAt body) (labels [(:edges t)] id)))))
|
#@226 Asynchronously fetch forge data about the specified repository.
|
Once all data has been collected, CALLBACK is called with the
|
data as the only argument.
|
|
(fn OWNER NAME CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE)
|
(defalias 'ghub-fetch-repository #[1155 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\211\203D \211@\306>\203, \211AA\262\202 \307>A@\203; \310\262\202 \311\312@\"\210\202 \210\313\314 B\315 BD \316\317\302 \303\f\304 \305&\207" [ghub-fetch-repository plist-member :username :auth :host :forge (:username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge)" ghub--graphql-vacuum owner name :narrow (repository)] 24 (#$ . 4275)])
|
#@228 Asynchronously fetch forge data about the specified issue.
|
Once all data has been collected, CALLBACK is called with the
|
data as the only argument.
|
|
(fn OWNER NAME NUMBER CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE)
|
(defalias 'ghub-fetch-issue #[1412 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\211\203D \211@\306>\203, \211AA\262\202 \307>A@\203; \310\262\202 \311\312@\"\210\202 \210\313\314\315\316\317 BE\"\320\fB\321\fBD \322\323\302 \303\f\304 \305&\207" [ghub-fetch-repository plist-member :username :auth :host :forge (:username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge)" ghub--graphql-vacuum ghub--graphql-prepare-query repository issues issue owner name :narrow (repository issue)] 25 (#$ . 5042)])
|
#@235 Asynchronously fetch forge data about the specified pull-request.
|
Once all data has been collected, CALLBACK is called with the
|
data as the only argument.
|
|
(fn OWNER NAME NUMBER CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE)
|
(defalias 'ghub-fetch-pullreq #[1412 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\211\203D \211@\306>\203, \211AA\262\202 \307>A@\203; \310\262\202 \311\312@\"\210\202 \210\313\314\315\316\317 BE\"\320\fB\321\fBD \322\323\302 \303\f\304 \305&\207" [ghub-fetch-repository plist-member :username :auth :host :forge (:username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge)" ghub--graphql-vacuum ghub--graphql-prepare-query repository pullRequests pullRequest owner name :narrow (repository pullRequest)] 25 (#$ . 5888)])
|
#@76 compiler-macro for inlining `ghub--graphql-req-p'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-p (and (memq (type-of cl-x) cl-struct-ghub--graphql-req-tags) t)) nil] 9 (#$ . 6760)])
|
(put 'ghub--graphql-req-p 'compiler-macro 'ghub--graphql-req-p--cmacro)
|
#@13
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-p #[257 "\301!>\205 \302\207" [cl-struct-ghub--graphql-req-tags type-of t] 3 (#$ . 7136)])
|
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ghub--graphql-req-p side-effect-free error-free put ghub--graphql-req cl-deftype-satisfies] 5)
|
#@78 compiler-macro for inlining `ghub--graphql-req-url'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-url (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 1)) nil] 9 (#$ . 7438)])
|
(put 'ghub--graphql-req-url 'compiler-macro 'ghub--graphql-req-url--cmacro)
|
#@141 Access slot "url" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 1] 5 (#$ . 7869)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-url side-effect-free t] 4)
|
#@80 compiler-macro for inlining `ghub--graphql-req-forge'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-forge--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-forge (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 2)) nil] 9 (#$ . 8308)])
|
(put 'ghub--graphql-req-forge 'compiler-macro 'ghub--graphql-req-forge--cmacro)
|
#@143 Access slot "forge" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-forge #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 2] 5 (#$ . 8749)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-forge side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-forge] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@81 compiler-macro for inlining `ghub--graphql-req-silent'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-silent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-silent (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 3)) nil] 9 (#$ . 9332)])
|
(put 'ghub--graphql-req-silent 'compiler-macro 'ghub--graphql-req-silent--cmacro)
|
#@144 Access slot "silent" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-silent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 3] 5 (#$ . 9778)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-silent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-silent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@81 compiler-macro for inlining `ghub--graphql-req-method'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-method--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-method (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 4)) nil] 9 (#$ . 10365)])
|
(put 'ghub--graphql-req-method 'compiler-macro 'ghub--graphql-req-method--cmacro)
|
#@144 Access slot "method" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-method #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 4] 5 (#$ . 10812)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-method side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-method] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@82 compiler-macro for inlining `ghub--graphql-req-headers'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-headers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-headers (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 5)) nil] 9 (#$ . 11400)])
|
(put 'ghub--graphql-req-headers 'compiler-macro 'ghub--graphql-req-headers--cmacro)
|
#@145 Access slot "headers" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-headers #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 5] 5 (#$ . 11852)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-headers side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-headers] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@82 compiler-macro for inlining `ghub--graphql-req-handler'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-handler--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-handler (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 6)) nil] 9 (#$ . 12444)])
|
(put 'ghub--graphql-req-handler 'compiler-macro 'ghub--graphql-req-handler--cmacro)
|
#@145 Access slot "handler" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-handler #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 6] 5 (#$ . 12896)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-handler side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-handler] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@85 compiler-macro for inlining `ghub--graphql-req-unpaginate'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-unpaginate--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-unpaginate (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 7)) nil] 9 (#$ . 13488)])
|
(put 'ghub--graphql-req-unpaginate 'compiler-macro 'ghub--graphql-req-unpaginate--cmacro)
|
#@148 Access slot "unpaginate" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-unpaginate #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 7] 5 (#$ . 13955)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-unpaginate side-effect-free t] 4)
|
#@82 compiler-macro for inlining `ghub--graphql-req-noerror'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-noerror--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-noerror (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 8)) nil] 9 (#$ . 14416)])
|
(put 'ghub--graphql-req-noerror 'compiler-macro 'ghub--graphql-req-noerror--cmacro)
|
#@145 Access slot "noerror" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-noerror #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 8] 5 (#$ . 14868)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-noerror side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-noerror] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@81 compiler-macro for inlining `ghub--graphql-req-reader'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-reader--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-reader (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 9)) nil] 9 (#$ . 15460)])
|
(put 'ghub--graphql-req-reader 'compiler-macro 'ghub--graphql-req-reader--cmacro)
|
#@144 Access slot "reader" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-reader #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 9] 5 (#$ . 15907)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-reader side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-reader] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@83 compiler-macro for inlining `ghub--graphql-req-callback'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-callback (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 10)) nil] 9 (#$ . 16495)])
|
(put 'ghub--graphql-req-callback 'compiler-macro 'ghub--graphql-req-callback--cmacro)
|
#@146 Access slot "callback" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-callback #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 10] 5 (#$ . 16953)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-callback side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-callback] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@84 compiler-macro for inlining `ghub--graphql-req-errorback'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-errorback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-errorback (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 11)) nil] 9 (#$ . 17550)])
|
(put 'ghub--graphql-req-errorback 'compiler-macro 'ghub--graphql-req-errorback--cmacro)
|
#@147 Access slot "errorback" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-errorback #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 11] 5 (#$ . 18013)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-errorback side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-errorback] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@80 compiler-macro for inlining `ghub--graphql-req-value'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-value (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 12)) nil] 9 (#$ . 18614)])
|
(put 'ghub--graphql-req-value 'compiler-macro 'ghub--graphql-req-value--cmacro)
|
#@143 Access slot "value" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-value #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 12] 5 (#$ . 19057)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-value side-effect-free t] 4)
|
#@80 compiler-macro for inlining `ghub--graphql-req-extra'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-extra--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-extra (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 13)) nil] 9 (#$ . 19504)])
|
(put 'ghub--graphql-req-extra 'compiler-macro 'ghub--graphql-req-extra--cmacro)
|
#@143 Access slot "extra" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-extra #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 13] 5 (#$ . 19947)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-extra side-effect-free t] 4)
|
#@80 compiler-macro for inlining `ghub--graphql-req-query'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-query--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-query (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 14)) nil] 9 (#$ . 20394)])
|
(put 'ghub--graphql-req-query 'compiler-macro 'ghub--graphql-req-query--cmacro)
|
#@143 Access slot "query" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-query #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 14] 5 (#$ . 20837)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-query side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-query] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@84 compiler-macro for inlining `ghub--graphql-req-variables'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-variables--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-variables (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 15)) nil] 9 (#$ . 21422)])
|
(put 'ghub--graphql-req-variables 'compiler-macro 'ghub--graphql-req-variables--cmacro)
|
#@147 Access slot "variables" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-variables #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 15] 5 (#$ . 21885)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-variables side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-variables] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@80 compiler-macro for inlining `ghub--graphql-req-until'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-until--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-until (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 16)) nil] 9 (#$ . 22486)])
|
(put 'ghub--graphql-req-until 'compiler-macro 'ghub--graphql-req-until--cmacro)
|
#@143 Access slot "until" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-until #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 16] 5 (#$ . 22929)])
|
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-until side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-until] 5 "\n\n(fn CL-DO CL-X)"]] 5)
|
#@80 compiler-macro for inlining `ghub--graphql-req-pages'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(defalias 'ghub--graphql-req-pages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-pages (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 17)) nil] 9 (#$ . 23514)])
|
(put 'ghub--graphql-req-pages 'compiler-macro 'ghub--graphql-req-pages--cmacro)
|
#@143 Access slot "pages" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(defalias 'ghub--graphql-req-pages #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 17] 5 (#$ . 23957)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-pages side-effect-free t] 4)
|
#@210 compiler-macro for inlining `ghub--make-graphql-req'.
|
|
(fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA QUERY VARIABLES UNTIL PAGES)
|
(defalias 'ghub--make-graphql-req--cmacro #[385 "\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@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"\206t \322A@\211\203\243 \211@\323>\203\213 \211AA\262\202x \324>A@\203\232 \325\262\202x \326\327@\"\210\202x \210\330\331\332\325\325&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages (nil 0) (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages)" cl--defsubst-expand (url forge silent method headers handler unpaginate noerror reader callback errorback value extra query variables until pages) (cl-block ghub--make-graphql-req (record 'ghub--graphql-req url forge silent method headers handler unpaginate noerror reader callback errorback value extra query variables until pages))] 42 (#$ . 24405)])
|
(put 'ghub--make-graphql-req 'compiler-macro 'ghub--make-graphql-req--cmacro)
|
#@190 Constructor for objects of type `ghub--graphql-req'.
|
|
(fn &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA QUERY VARIABLES UNTIL PAGES)
|
(defalias 'ghub--make-graphql-req #[128 "\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@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"\206t \322A@\211\203\243 \211@\323>\203\213 \211AA\262\202x \324>A@\203\232 \325\262\202x \326\327@\"\210\202x \210\330\331&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages (nil 0) (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages)" record ghub--graphql-req] 37 (#$ . 26051)])
|
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put ghub--make-graphql-req side-effect-free t cl-struct-define ghub--graphql-req nil ghub--req record ((cl-tag-slot) (url nil :read-only nil) (forge nil :read-only t) (silent nil :read-only t) (method nil :read-only t) (headers nil :read-only t) (handler nil :read-only t) (unpaginate nil :read-only nil) (noerror nil :read-only t) (reader nil :read-only t) (callback nil :read-only t) (errorback nil :read-only t) (value nil :read-only nil) (extra nil :read-only nil) (query nil :read-only t) (variables nil :read-only t) (until nil :read-only t) (pages 0 :read-only nil)) cl-struct-ghub--graphql-req-tags] 11)
|
#@174 Make a GraphQL request using QUERY and VARIABLES.
|
See Info node `(ghub)GraphQL Support'.
|
|
(fn QUERY VARIABLES CALLBACK &optional UNTIL &key NARROW USERNAME AUTH HOST FORGE)
|
(defalias 'ghub--graphql-vacuum #[1155 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\204T \313!\262\204i ;\204i \314=\204i \315\"\262\316\317\320\321\322\323Q!\324\325\326\327\310\n\f\f%\330\331\332\333\334\335\203\244 \336\337\340\341\342 \"\343\"\344\345%\202\246 &!\207" [plist-member :narrow :username :auth :host :forge (:narrow :username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:narrow :username :auth :host :forge)" ghub--host none ghub--username ghub--graphql-retrieve ghub--make-graphql-req :url url-generic-parse-url "https://" "/graphql" :method "POST" :headers ghub--headers :handler ghub--graphql-handle-response :query :variables :until :callback make-byte-code 257 "\301\302\211A\262\242\211\262\203 \211\236A\262\202 \266\300!\207" vconcat vector [nil] 5 "\n\n(fn DATA)"] 34 (#$ . 27967)])
|
#@37
|
|
(fn REQ &optional LINEAGE CURSOR)
|
(defalias 'ghub--graphql-retrieve #[769 "\302!>\204 \303\304\305D\"\210\211\306\306HTI\262\211\307V\203$ \310\311\"\210\210\312\313\314\315\316\317\302!>\204= \303\304\305\nD\"\210\320H#!B\321\302!>\204Z \303\304\305 D\"\210\322HBD!)\"\207" [cl-struct-ghub--graphql-req-tags json-false type-of signal wrong-type-argument ghub--graphql-req 17 1 message "Fetching page %s..." ghub--retrieve nil ghub--encode-payload query ghub--graphql-encode ghub--graphql-prepare-query 14 variables 15] 12 (#$ . 29171)])
|
#@39
|
|
(fn QUERY &optional LINEAGE CURSOR)
|
(defalias 'ghub--graphql-prepare-query #[769 "\203 \300#\262\301!\302\3032\321 \304!\305!\203\243 \306\307\"\302\310\236\203V \311\312DB\262\313!\262\304!\262\314@A@\315\316\317 AABDF\"\262\320!\262\321!\262\211\203\227 \211@\322@!\204\220 \211G\323U\203\204 \211@A@DB\262\211A@\3248DB\262\202\220 \211G\324U\203\220 \211B\262A\266\202\202W \210\314\306\325\"\"\262\266\210\326!\203\311 \327\304!!\203\300 \306\325\"\211AB\241\266\330\303\"\266\202 \321!\262\202 \207" [ghub--graphql-narrow-query ghub--alist-zip nil --cl-block-nil-- treepy-node vectorp cl-coerce list :edges first 100 treepy-up treepy-replace (pageInfo endCursor hasNextPage) edges node treepy-down treepy-next keywordp 3 2 vector treepy-end-p copy-sequence throw] 16 (#$ . 29743)])
|
#@19
|
|
(fn STATUS REQ)
|
(defalias 'ghub--graphql-handle-response #[514 "p\301\302\303\304\305!\306\"\307$\216\310\311!\210\312\"\313!\314#\315\316\"\317\236A\211\205. \320B\321\236\322 !>\204B \323\324\325 D\"\210\326H\322\n!>\204W \323\324\325\fD\"\210 \211\326I\266\204g \203\236 \322\n!>\204x \323\324\325\fD\"\210 \327H\211\203\221 \211\206\207 \n$\202\231 \330\206\230 !\262\202\244 \331\f#\266\210)\207" [cl-struct-ghub--req-tags make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-live-p kill-buffer] 2 set-buffer-multibyte t ghub--handle-response-headers ghub--handle-response-payload ghub--handle-response-error plist-get :error errors ghub-graphql-error data type-of signal wrong-type-argument ghub--req 12 11 ghub--signal-error ghub--graphql-walk-response] 17 (#$ . 30594)])
|
#@21
|
|
(fn LOC DATA REQ)
|
(defalias 'ghub--graphql-walk-response #[771 "\204\" \302!>\204 \303\304\305D\"\210\211\211\306\307!\211\262I\266\202^ \310\311!\"\262\312\236\313\314\312\315!\"\314\312\"\206@ \316\317!\"\203L \241\210\202V \312B\211\262B\262\266\320\"\262\3212b\315!\242\312=\2035\322!\262\315!\211@A\211\323\324\236A\236A\325\324\236A\236A\312\236A\205\221 \326\327\330\"!\302\f! >\204\251 \303\304\331D\"\210 \332H\236A\333\334\"\203\367 \335\336\337\203\356 \203\356 @\340\341\236A\"\204\335 \335\211\262 \204\335 \335\262\202\342 \211B\262\210\211T\262A\262\202\273 \266\211\237\262\202\370 \211\203)\302!>\204 \303\304\305D\"\210 \211\306I\266\342\311!#\210\343\321\335\"\210\2023\320\nB\"\262\266 \344!\204C\345!\262\202b \302!>\204R\303\304\305D\"\210\211\346H\347!!\210\343\321\335\"\210\202b \207" [cl-struct-ghub--req-tags cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--req 12 ghub--alist-zip ghub--graphql-narrow-data ghub--graphql-lineage edges append alist-get treepy-node error "BUG: Expected new nodes" treepy-replace --cl-block-nil-- treepy-up hasNextPage pageInfo endCursor intern format "%s-until" ghub--graphql-req 16 mapcar cdar nil t 0 string> updatedAt ghub--graphql-retrieve throw treepy-end-p treepy-next 10 treepy-root] 23 (#$ . 31444)])
|
#@12
|
|
(fn LOC)
|
(defalias 'ghub--graphql-lineage #[257 "\300\301!\203 \302!@B\262\301!\262\202 \211\207" [nil treepy-up treepy-node] 4 (#$ . 32842)])
|
#@21
|
|
(fn DATA LINEAGE)
|
(defalias 'ghub--graphql-narrow-data #[514 "\300\211A\262\242\211\262\203( @:\203 A\262A@\262\202 \211A\236\262\202 \210\207" [nil] 5 (#$ . 33001)])
|
#@29
|
|
(fn QUERY LINEAGE CURSOR)
|
(defalias 'ghub--graphql-narrow-query #[771 "@:\2034 AA\300A@\301\"\302\236A\211@\303A@@AD!A\2030 \304A#\2021 BB\207@A\236\206M \305\306\307\310\311\303!\312\"\313\314%A\"@\315A@!\205Z A@\316\205b CA\203t \304 A #\202\220 \203\217 @\311\317 DCA@\"AABB\202\220 C\"B\207" [cl-coerce list :singular vector ghub--graphql-narrow-query cl-find-if make-byte-code 257 "\211<\205 \301A@!\205 \302\303A@\304\"\236A@\300@=\207" vconcat [vectorp :singular cl-coerce list] 5 "\n\n(fn C)" vectorp append after] 13 (#$ . 33190)])
|
#@10
|
|
(fn G)
|
(defalias 'ghub--graphql-encode #[257 "\2119\203 \300!\207\211@\301A@!\205 \302A@\303\"\211\203# AA\202% A\304!\2055 \305\306\307\310\311#\"\205B \305\312\307\313\314#\"Q\207" [symbol-name vectorp cl-coerce list graphql--encode-object format " (\n%s)" mapconcat #[257 "\211@A\211@A\300\"\266\202\207" [graphql--encode-argument] 10 "\n\n(fn ARG0)"] ",\n" " {\n%s\n}" ghub--graphql-encode "\n"] 12 (#$ . 33784)])
|
#@13
|
|
(fn ROOT)
|
(defalias 'ghub--alist-zip #[257 "\300\301\302\303$\207" [#[257 "\211<\205 \211A<\207" #1=[] 2 "\n\n(fn ELT)"] #[514 "\207" #1# 3 "\n\n(fn _ CHILDREN)"] treepy-zipper identity] 8 (#$ . 34230)])
|
(provide 'ghub-graphql)
|
