;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ghub gsexp treepy] 2) #@389 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 HEADERS 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@\300 \311\"A@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210 ;\204r\317\320!\210\n;\203|\317\321!\210\322\323\324\314\325\326\327B\205\220\330BCB!\304\f\305 \301\302\303\306\307\311\310&\207" [plist-member :username :auth :host :headers :silent :callback :errorback :value :extra (:username :auth :host :headers :silent :callback :errorback :value :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :headers :silent :callback :errorback :value :extra)" cl--assertion-failed (stringp graphql) (not (stringp variables)) ghub-request "POST" "/graphql" :payload json-encode "query" "variables"] 36 (#$ . 172)]) #@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\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 (#$ . 1452)]) #@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\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 (#$ . 2020)]) (defconst ghub-fetch-repository '(query (repository [(owner $owner String!) (name $name String!)] name id createdAt updatedAt nameWithOwner (parent nameWithOwner) description homepageUrl (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) (milestones [(:edges t) (:singular milestone id)] id number title createdAt updatedAt dueOn closedAt 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)) baseRefOid (headRef name (repository (owner login) nameWithOwner)) headRefOid (assignees [(:edges t)] id) (reviewRequests [(:edges t)] (requestedReviewer "... on User { id }\n")) (comments [(:edges t)] databaseId (author login) createdAt updatedAt body) (labels [(:edges t)] id))))) (defconst ghub-fetch-repository-review-threads '(query (repository [(owner $owner String!) (name $name String!)] (pullRequests [(:edges t) (:singular pullRequest number) (orderBy ((field UPDATED_AT) (direction DESC)))] number baseRefOid headRefOid (reviewThreads [(:edges t)] id line originalLine diffSide (resolvedBy login) (comments [(:edges t)] id databaseId (author login) createdAt updatedAt body (replyTo databaseId) (originalCommit oid) path)))))) #@244 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 HEADERS ERRORBACK) (defalias 'ghub-fetch-repository #[1155 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\211\203R\211@\310>\203:\211AA\262\202'\311>A@\203I\312\262\202'\313\314@\"\210\202'\210\315\316 B\317 BD  \320\321\302 \303\304\305\306\307&\207" [ghub-fetch-repository plist-member :username :auth :host :forge :headers :errorback (:username :auth :host :forge :headers :errorback :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge :headers :errorback)" ghub--graphql-vacuum owner name :narrow (repository)] 30 (#$ . 4652)]) #@246 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 HEADERS ERRORBACK) (defalias 'ghub-fetch-issue #[1412 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\211\203R\211@\310>\203:\211AA\262\202'\311>A@\203I\312\262\202'\313\314@\"\210\202'\210\315\316\317\320\321BE\"\322B\323BD  \324\325\302 \303\304\305\306\307&\207" [ghub-fetch-repository plist-member :username :auth :host :forge :headers :errorback (:username :auth :host :forge :headers :errorback :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge :headers :errorback)" ghub--graphql-vacuum ghub--graphql-prepare-query repository issues issue owner name :narrow (repository issue)] 31 (#$ . 5536)]) #@253 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 HEADERS ERRORBACK) (defalias 'ghub-fetch-pullreq #[1412 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\211\203R\211@\310>\203:\211AA\262\202'\311>A@\203I\312\262\202'\313\314@\"\210\202'\210\315\316\317\320\321BE\"\322B\323BD  \324\325\302 \303\304\305\306\307&\207" [ghub-fetch-repository plist-member :username :auth :host :forge :headers :errorback (:username :auth :host :forge :headers :errorback :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge :headers :errorback)" ghub--graphql-vacuum ghub--graphql-prepare-query repository pullRequests pullRequest owner name :narrow (repository pullRequest)] 31 (#$ . 6497)]) #@265 Asynchronously fetch forge data about the review threads from a 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 HEADERS ERRORBACK) (defalias 'ghub-fetch-review-threads #[1412 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\211\203R\211@\310>\203:\211AA\262\202'\311>A@\203I\312\262\202'\313\314@\"\210\202'\210\315\316\317\320\321BE\"\322B\323BD  \324\325\302 \303\304\305\306\307&\207" [ghub-fetch-repository-review-threads plist-member :username :auth :host :forge :headers :errorback (:username :auth :host :forge :headers :errorback :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge :headers :errorback)" ghub--graphql-vacuum ghub--graphql-prepare-query repository pullRequests pullRequest owner name :narrow (repository pullRequest)] 31 (#$ . 7485)]) #@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 (#$ . 8506)]) (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 (#$ . 8882)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 1))) nil] 9 (#$ . 9184)]) (put 'ghub--graphql-req-url 'compiler-macro 'ghub--graphql-req-url--cmacro) #@66 Access slot "url" of `ghub--graphql-req' 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 (#$ . 9622)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 2))) nil] 9 (#$ . 9986)]) (put 'ghub--graphql-req-forge 'compiler-macro 'ghub--graphql-req-forge--cmacro) #@68 Access slot "forge" of `ghub--graphql-req' 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 (#$ . 10434)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 3))) nil] 9 (#$ . 10943)]) (put 'ghub--graphql-req-silent 'compiler-macro 'ghub--graphql-req-silent--cmacro) #@69 Access slot "silent" of `ghub--graphql-req' 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 (#$ . 11397)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 4))) nil] 9 (#$ . 11910)]) (put 'ghub--graphql-req-method 'compiler-macro 'ghub--graphql-req-method--cmacro) #@69 Access slot "method" of `ghub--graphql-req' 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 (#$ . 12364)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 5))) nil] 9 (#$ . 12877)]) (put 'ghub--graphql-req-headers 'compiler-macro 'ghub--graphql-req-headers--cmacro) #@70 Access slot "headers" of `ghub--graphql-req' 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 (#$ . 13336)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 6))) nil] 9 (#$ . 13853)]) (put 'ghub--graphql-req-handler 'compiler-macro 'ghub--graphql-req-handler--cmacro) #@70 Access slot "handler" of `ghub--graphql-req' 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 (#$ . 14312)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 7))) nil] 9 (#$ . 14829)]) (put 'ghub--graphql-req-unpaginate 'compiler-macro 'ghub--graphql-req-unpaginate--cmacro) #@73 Access slot "unpaginate" of `ghub--graphql-req' 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 (#$ . 15303)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 8))) nil] 9 (#$ . 15689)]) (put 'ghub--graphql-req-noerror 'compiler-macro 'ghub--graphql-req-noerror--cmacro) #@70 Access slot "noerror" of `ghub--graphql-req' 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 (#$ . 16148)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 9))) nil] 9 (#$ . 16665)]) (put 'ghub--graphql-req-reader 'compiler-macro 'ghub--graphql-req-reader--cmacro) #@69 Access slot "reader" of `ghub--graphql-req' 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 (#$ . 17119)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 10))) nil] 9 (#$ . 17632)]) (put 'ghub--graphql-req-callback 'compiler-macro 'ghub--graphql-req-callback--cmacro) #@71 Access slot "callback" of `ghub--graphql-req' 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 (#$ . 18097)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 11))) nil] 9 (#$ . 18619)]) (put 'ghub--graphql-req-errorback 'compiler-macro 'ghub--graphql-req-errorback--cmacro) #@72 Access slot "errorback" of `ghub--graphql-req' 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 (#$ . 19089)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 12))) nil] 9 (#$ . 19615)]) (put 'ghub--graphql-req-value 'compiler-macro 'ghub--graphql-req-value--cmacro) #@68 Access slot "value" of `ghub--graphql-req' 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 (#$ . 20065)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 13))) nil] 9 (#$ . 20437)]) (put 'ghub--graphql-req-extra 'compiler-macro 'ghub--graphql-req-extra--cmacro) #@68 Access slot "extra" of `ghub--graphql-req' 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 (#$ . 20887)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 14))) nil] 9 (#$ . 21259)]) (put 'ghub--graphql-req-query 'compiler-macro 'ghub--graphql-req-query--cmacro) #@68 Access slot "query" of `ghub--graphql-req' 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 (#$ . 21709)]) (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-query-str'. (fn CL-WHOLE-ARG CL-X) (defalias 'ghub--graphql-req-query-str--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-query-str (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 15))) nil] 9 (#$ . 22219)]) (put 'ghub--graphql-req-query-str 'compiler-macro 'ghub--graphql-req-query-str--cmacro) #@72 Access slot "query-str" of `ghub--graphql-req' struct CL-X. (fn CL-X) (defalias 'ghub--graphql-req-query-str #[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 (#$ . 22689)]) (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-query-str side-effect-free t] 4) #@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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 16))) nil] 9 (#$ . 23073)]) (put 'ghub--graphql-req-variables 'compiler-macro 'ghub--graphql-req-variables--cmacro) #@72 Access slot "variables" of `ghub--graphql-req' 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 16] 5 (#$ . 23543)]) (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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 17))) nil] 9 (#$ . 24069)]) (put 'ghub--graphql-req-until 'compiler-macro 'ghub--graphql-req-until--cmacro) #@68 Access slot "until" of `ghub--graphql-req' 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 17] 5 (#$ . 24519)]) (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) #@81 compiler-macro for inlining `ghub--graphql-req-buffer'. (fn CL-WHOLE-ARG CL-X) (defalias 'ghub--graphql-req-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-buffer (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 18))) nil] 9 (#$ . 25029)]) (put 'ghub--graphql-req-buffer 'compiler-macro 'ghub--graphql-req-buffer--cmacro) #@69 Access slot "buffer" of `ghub--graphql-req' struct CL-X. (fn CL-X) (defalias 'ghub--graphql-req-buffer #[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 18] 5 (#$ . 25484)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-buffer side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-buffer] 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 (progn (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 19))) nil] 9 (#$ . 25998)]) (put 'ghub--graphql-req-pages 'compiler-macro 'ghub--graphql-req-pages--cmacro) #@68 Access slot "pages" of `ghub--graphql-req' 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 19] 5 (#$ . 26448)]) (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-pages side-effect-free t] 4) #@227 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 QUERY-STR VARIABLES UNTIL BUFFER 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\"A@\300\322\"A@\300\323\"\206\202\324A@\211\203\261\211@\325>\203\231\211AA\262\202\206\326>A@\203\250\327\262\202\206\330\331@\"\210\202\206\210\332\333\334\327\327&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :query-str :variables :until :buffer :pages (nil 0) (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :query-str :variables :until :buffer :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 :query-str :variables :until :buffer :pages)" cl--defsubst-expand (url forge silent method headers handler unpaginate noerror reader callback errorback value extra query query-str variables until buffer 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 query-str variables until buffer pages))] 46 (#$ . 26821)]) (put 'ghub--make-graphql-req 'compiler-macro 'ghub--make-graphql-req--cmacro) #@207 Constructor for objects of type `ghub--graphql-req'. (fn &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA QUERY QUERY-STR VARIABLES UNTIL BUFFER 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\"A@\300\322\"A@\300\323\"\206\202\324A@\211\203\261\211@\325>\203\231\211AA\262\202\206\326>A@\203\250\327\262\202\206\330\331@\"\210\202\206\210\332\333&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :query-str :variables :until :buffer :pages (nil 0) (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :query-str :variables :until :buffer :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 :query-str :variables :until :buffer :pages)" record ghub--graphql-req] 41 (#$ . 28619)]) (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) (query-str nil :read-only nil) (variables nil :read-only t) (until nil :read-only t) (buffer nil :read-only t) (pages 0 :read-only nil)) cl-struct-ghub--graphql-req-tags] 11) #@192 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 HEADERS ERRORBACK) (defalias 'ghub--graphql-vacuum #[1155 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262\202.\311 >A@\203P\312\262\202.\313\314@\"\210\202.\210\204c\315!\262\204x;\204x\316=\204x\317\"\262\320\321\322\323\324\325\326\327 \"\203\216 \330\331O\202\220 \"!\332\333\306\334 \f%\335\336\337\340\341\342p\343p\203\300\344\345$\202\306\344\346#\262\307&!\207" [plist-member :narrow :username :auth :host :forge :headers :errorback (:narrow :username :auth :host :forge :headers :errorback :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:narrow :username :auth :host :forge :headers :errorback)" ghub--host none ghub--username ghub--graphql-retrieve ghub--make-graphql-req :url url-generic-parse-url format "https://%s/graphql" string-suffix-p "/v3" 0 -3 :method "POST" ghub--headers :handler ghub--graphql-handle-response :query :variables :until :buffer :callback make-closure #[257 "\301\303\211A\262\242\211\262\203\211\236A\262\202\266\304\302\303\"\210\300!\207" [V0 V1 V2 nil ghub--graphql-set-mode-line] 5 "\n\n(fn DATA)"] #[257 "\302\301\303\"\210\300!\207" [V0 V1 ghub--graphql-set-mode-line nil] 4 "\n\n(fn DATA)"]] 37 (#$ . 30710)]) #@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\302!>\2045\303\304\305D\"\210\211\312\313\314\302!>\204K\303\304\305\nD\"\210\315H#!I\266\316\317\320\321\302!>\204n\303\304\305D\"\210\312HB\322\302!>\204\204\303\304\305 D\"\210\323HBD!)\"\207" [cl-struct-ghub--graphql-req-tags json-false type-of signal wrong-type-argument ghub--graphql-req 19 1 ghub--graphql-set-mode-line "Fetching page %s" 15 gsexp-encode ghub--graphql-prepare-query 14 ghub--retrieve nil ghub--encode-payload query variables 16] 12 (#$ . 32228)]) #@39 (fn QUERY &optional LINEAGE CURSOR) (defalias 'ghub--graphql-prepare-query #[769 "\203 \300#\262\301!\302\3032\322\304!\305!\203\244\306\307\"\302\310\236A@\203W\311\312DC\262\313!\262\304!\262\314@A@\315\316\317 AABDF\"\262\320!\262\321!\262\211\203\230\211@\322@!\204\221\211G\323U\203\205\211@A@DB\262\211A@\3248DB\262\202\221\211G\324U\203\221\211B\262A\266\202\202X\210\314\325\237!\"\262\266\210\326!\203\312\327\304!!\203\301\306\330\"\211AB\241\266\331\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 vconcat treepy-end-p copy-sequence vector throw] 16 (#$ . 32906)]) #@19 (fn STATUS REQ) (defalias 'ghub--graphql-handle-response #[514 "p\301\302\"\216\303\304!\210\305\"\306!\307#\310\311\"\312\236A\211\205'\313B\204/\211\203f\314!>\204@\315\316\317\nD\"\210\320H\211\203X\211\206N\f\f$\202_\321\206^!\262\266\206\202p\322\323\236\"\266\206)\207" [cl-struct-ghub--req-tags make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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 type-of signal wrong-type-argument ghub--req 11 ghub--signal-error ghub--graphql-walk-response data] 15 (#$ . 33765)]) #@17 (fn REQ DATA) (defalias 'ghub--graphql-walk-response #[514 "\302!>\204\303\304\305D\"\210\306H\211\204\307!\202V\310\311!\"\262\312\236\313\314\312\315!\"\314\312\"\2069\316\317!\"\203F\241\266\202R\312B\211\262B\262\266\320\"\3212(\315!\242\312=\203\372\322!\262\315!\211\242\243\211\323\324\236A\236A\325\324\236A\236A\312\236A\205\211C\326\327\330 \"!\302! >\204\242\303\304\331D\"\210\332H\236A\333\334\"\203\273\335\336\337#\"\202\274\211\242\203\360\302!>\204\322\303\304\305D\"\210\211\306I\266\340\311!\242#\210\341\321\342\"\266\202\372\320 B\"\266\216\343!\204\344!\262\202Z\302!>\204\303\304\305D\"\210\345H\346!!\210\341\321\342\"\210\202Z\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 17 mapcar cdar seq-take-while make-closure #[257 "\302\303\236A\301\"\206 \300\304\240\207" [V0 V1 string> updatedAt nil] 4 "\n\n(fn NODE)"] ghub--graphql-retrieve throw nil treepy-end-p treepy-next 10 treepy-root] 21 (#$ . 34471)]) #@12 (fn LOC) (defalias 'ghub--graphql-lineage #[257 "\300\301!\203\302!@B\262\301!\262\202\207" [nil treepy-up treepy-node] 4 (#$ . 35826)]) #@21 (fn DATA LINEAGE) (defalias 'ghub--graphql-narrow-data #[514 "\300\211A\262\242\211\262\203(@:\203A\262A@\262\202\211A\236\262\202\210\207" [nil] 5 (#$ . 35981)]) #@29 (fn QUERY LINEAGE CURSOR) (defalias 'ghub--graphql-narrow-query #[771 "@:\2034AA\300A@\301\"\302\236A\211@\303A@@AD!A\2030\304A#\2021BB\207@A\236\206T\305\306\307\"\"\206T\305\306\310\"A\"\206T\311\312!@\313A@!\205aA@\314\205iCA\203{\304 A #\202\227\203\226@\315\316 DCA@\"AABB\202\227C\"B\207" [cl-coerce list :singular vector ghub--graphql-narrow-query cl-find-if make-closure #[257 "\211\242\242\300@=\207" [V0] 3 "\n\n(fn C)"] #[257 "\211<\205\301A@!\205\302\303A@\304\"\236A@\300@=\207" [V0 vectorp :singular cl-coerce list] 5 "\n\n(fn C)"] error "BUG: Failed to narrow query" vectorp append vconcat after] 13 (#$ . 36170)]) #@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 (#$ . 36868)]) #@30 (fn BUF STRING &rest ARGS) (defalias 'ghub--graphql-set-mode-line #[642 "\302!>\203\302!>\204\303\304\305D\"\210\306H\262\307!\2056rq\210\2051\310\311\312#P\313\314!)\207" [cl-struct-ghub--graphql-req-tags mode-line-process type-of signal wrong-type-argument ghub--graphql-req 18 buffer-live-p " " apply format force-mode-line-update t] 8 (#$ . 37085)]) (provide 'ghub-graphql)