| 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 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require dash ghub graphql treepy] 2) | |
| 16 | #@381 Make a GraphQL request using GRAPHQL and VARIABLES. | |
| 17 | Return the response as a JSON-like alist. Even if the response | |
| 18 | contains `errors', do not raise an error. GRAPHQL is a GraphQL | |
| 19 | string. VARIABLES is a JSON-like alist. The other arguments | |
| 20 | behave as for `ghub-request' (which see). | |
| 21 | ||
| 22 | (fn GRAPHQL &optional VARIABLES &key USERNAME AUTH HOST SILENT CALLBACK ERRORBACK VALUE EXTRA) | |
| 23 | (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)]) | |
| 24 | #@62 Return rate limit information. | |
| 25 | ||
| 26 | (fn &key USERNAME AUTH HOST) | |
| 27 | (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)]) | |
| 28 | #@109 Return the id of the repository specified by OWNER, NAME and HOST. | |
| 29 | ||
| 30 | (fn OWNER NAME &key USERNAME AUTH HOST) | |
| 31 | (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)]) | |
| 32 | (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))))) | |
| 33 | #@226 Asynchronously fetch forge data about the specified repository. | |
| 34 | Once all data has been collected, CALLBACK is called with the | |
| 35 | data as the only argument. | |
| 36 | ||
| 37 | (fn OWNER NAME CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE) | |
| 38 | (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)]) | |
| 39 | #@228 Asynchronously fetch forge data about the specified issue. | |
| 40 | Once all data has been collected, CALLBACK is called with the | |
| 41 | data as the only argument. | |
| 42 | ||
| 43 | (fn OWNER NAME NUMBER CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE) | |
| 44 | (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)]) | |
| 45 | #@235 Asynchronously fetch forge data about the specified pull-request. | |
| 46 | Once all data has been collected, CALLBACK is called with the | |
| 47 | data as the only argument. | |
| 48 | ||
| 49 | (fn OWNER NAME NUMBER CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE) | |
| 50 | (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)]) | |
| 51 | #@76 compiler-macro for inlining `ghub--graphql-req-p'. | |
| 52 | ||
| 53 | (fn CL-WHOLE-ARG CL-X) | |
| 54 | (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)]) | |
| 55 | (put 'ghub--graphql-req-p 'compiler-macro 'ghub--graphql-req-p--cmacro) | |
| 56 | #@13 | |
| 57 | ||
| 58 | (fn CL-X) | |
| 59 | (defalias 'ghub--graphql-req-p #[257 "\301!>\205 \302\207" [cl-struct-ghub--graphql-req-tags type-of t] 3 (#$ . 7136)]) | |
| 60 | (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) | |
| 61 | #@78 compiler-macro for inlining `ghub--graphql-req-url'. | |
| 62 | ||
| 63 | (fn CL-WHOLE-ARG CL-X) | |
| 64 | (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)]) | |
| 65 | (put 'ghub--graphql-req-url 'compiler-macro 'ghub--graphql-req-url--cmacro) | |
| 66 | #@141 Access slot "url" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 67 | ||
| 68 | (fn CL-X) | |
| 69 | (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)]) | |
| 70 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-url side-effect-free t] 4) | |
| 71 | #@80 compiler-macro for inlining `ghub--graphql-req-forge'. | |
| 72 | ||
| 73 | (fn CL-WHOLE-ARG CL-X) | |
| 74 | (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)]) | |
| 75 | (put 'ghub--graphql-req-forge 'compiler-macro 'ghub--graphql-req-forge--cmacro) | |
| 76 | #@143 Access slot "forge" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 77 | ||
| 78 | (fn CL-X) | |
| 79 | (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)]) | |
| 80 | (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 | #@81 compiler-macro for inlining `ghub--graphql-req-silent'. | |
| 82 | ||
| 83 | (fn CL-WHOLE-ARG CL-X) | |
| 84 | (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)]) | |
| 85 | (put 'ghub--graphql-req-silent 'compiler-macro 'ghub--graphql-req-silent--cmacro) | |
| 86 | #@144 Access slot "silent" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 87 | ||
| 88 | (fn CL-X) | |
| 89 | (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)]) | |
| 90 | (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) | |
| 91 | #@81 compiler-macro for inlining `ghub--graphql-req-method'. | |
| 92 | ||
| 93 | (fn CL-WHOLE-ARG CL-X) | |
| 94 | (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)]) | |
| 95 | (put 'ghub--graphql-req-method 'compiler-macro 'ghub--graphql-req-method--cmacro) | |
| 96 | #@144 Access slot "method" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 97 | ||
| 98 | (fn CL-X) | |
| 99 | (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)]) | |
| 100 | (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) | |
| 101 | #@82 compiler-macro for inlining `ghub--graphql-req-headers'. | |
| 102 | ||
| 103 | (fn CL-WHOLE-ARG CL-X) | |
| 104 | (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)]) | |
| 105 | (put 'ghub--graphql-req-headers 'compiler-macro 'ghub--graphql-req-headers--cmacro) | |
| 106 | #@145 Access slot "headers" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 107 | ||
| 108 | (fn CL-X) | |
| 109 | (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)]) | |
| 110 | (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) | |
| 111 | #@82 compiler-macro for inlining `ghub--graphql-req-handler'. | |
| 112 | ||
| 113 | (fn CL-WHOLE-ARG CL-X) | |
| 114 | (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)]) | |
| 115 | (put 'ghub--graphql-req-handler 'compiler-macro 'ghub--graphql-req-handler--cmacro) | |
| 116 | #@145 Access slot "handler" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 117 | ||
| 118 | (fn CL-X) | |
| 119 | (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)]) | |
| 120 | (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) | |
| 121 | #@85 compiler-macro for inlining `ghub--graphql-req-unpaginate'. | |
| 122 | ||
| 123 | (fn CL-WHOLE-ARG CL-X) | |
| 124 | (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)]) | |
| 125 | (put 'ghub--graphql-req-unpaginate 'compiler-macro 'ghub--graphql-req-unpaginate--cmacro) | |
| 126 | #@148 Access slot "unpaginate" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 127 | ||
| 128 | (fn CL-X) | |
| 129 | (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)]) | |
| 130 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-unpaginate side-effect-free t] 4) | |
| 131 | #@82 compiler-macro for inlining `ghub--graphql-req-noerror'. | |
| 132 | ||
| 133 | (fn CL-WHOLE-ARG CL-X) | |
| 134 | (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)]) | |
| 135 | (put 'ghub--graphql-req-noerror 'compiler-macro 'ghub--graphql-req-noerror--cmacro) | |
| 136 | #@145 Access slot "noerror" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 137 | ||
| 138 | (fn CL-X) | |
| 139 | (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)]) | |
| 140 | (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) | |
| 141 | #@81 compiler-macro for inlining `ghub--graphql-req-reader'. | |
| 142 | ||
| 143 | (fn CL-WHOLE-ARG CL-X) | |
| 144 | (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)]) | |
| 145 | (put 'ghub--graphql-req-reader 'compiler-macro 'ghub--graphql-req-reader--cmacro) | |
| 146 | #@144 Access slot "reader" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 147 | ||
| 148 | (fn CL-X) | |
| 149 | (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)]) | |
| 150 | (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) | |
| 151 | #@83 compiler-macro for inlining `ghub--graphql-req-callback'. | |
| 152 | ||
| 153 | (fn CL-WHOLE-ARG CL-X) | |
| 154 | (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)]) | |
| 155 | (put 'ghub--graphql-req-callback 'compiler-macro 'ghub--graphql-req-callback--cmacro) | |
| 156 | #@146 Access slot "callback" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 157 | ||
| 158 | (fn CL-X) | |
| 159 | (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)]) | |
| 160 | (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) | |
| 161 | #@84 compiler-macro for inlining `ghub--graphql-req-errorback'. | |
| 162 | ||
| 163 | (fn CL-WHOLE-ARG CL-X) | |
| 164 | (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)]) | |
| 165 | (put 'ghub--graphql-req-errorback 'compiler-macro 'ghub--graphql-req-errorback--cmacro) | |
| 166 | #@147 Access slot "errorback" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 167 | ||
| 168 | (fn CL-X) | |
| 169 | (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)]) | |
| 170 | (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) | |
| 171 | #@80 compiler-macro for inlining `ghub--graphql-req-value'. | |
| 172 | ||
| 173 | (fn CL-WHOLE-ARG CL-X) | |
| 174 | (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)]) | |
| 175 | (put 'ghub--graphql-req-value 'compiler-macro 'ghub--graphql-req-value--cmacro) | |
| 176 | #@143 Access slot "value" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 177 | ||
| 178 | (fn CL-X) | |
| 179 | (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)]) | |
| 180 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-value side-effect-free t] 4) | |
| 181 | #@80 compiler-macro for inlining `ghub--graphql-req-extra'. | |
| 182 | ||
| 183 | (fn CL-WHOLE-ARG CL-X) | |
| 184 | (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)]) | |
| 185 | (put 'ghub--graphql-req-extra 'compiler-macro 'ghub--graphql-req-extra--cmacro) | |
| 186 | #@143 Access slot "extra" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 187 | ||
| 188 | (fn CL-X) | |
| 189 | (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)]) | |
| 190 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-extra side-effect-free t] 4) | |
| 191 | #@80 compiler-macro for inlining `ghub--graphql-req-query'. | |
| 192 | ||
| 193 | (fn CL-WHOLE-ARG CL-X) | |
| 194 | (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)]) | |
| 195 | (put 'ghub--graphql-req-query 'compiler-macro 'ghub--graphql-req-query--cmacro) | |
| 196 | #@143 Access slot "query" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 197 | ||
| 198 | (fn CL-X) | |
| 199 | (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)]) | |
| 200 | (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) | |
| 201 | #@84 compiler-macro for inlining `ghub--graphql-req-variables'. | |
| 202 | ||
| 203 | (fn CL-WHOLE-ARG CL-X) | |
| 204 | (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)]) | |
| 205 | (put 'ghub--graphql-req-variables 'compiler-macro 'ghub--graphql-req-variables--cmacro) | |
| 206 | #@147 Access slot "variables" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 207 | ||
| 208 | (fn CL-X) | |
| 209 | (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)]) | |
| 210 | (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) | |
| 211 | #@80 compiler-macro for inlining `ghub--graphql-req-until'. | |
| 212 | ||
| 213 | (fn CL-WHOLE-ARG CL-X) | |
| 214 | (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)]) | |
| 215 | (put 'ghub--graphql-req-until 'compiler-macro 'ghub--graphql-req-until--cmacro) | |
| 216 | #@143 Access slot "until" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 217 | ||
| 218 | (fn CL-X) | |
| 219 | (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)]) | |
| 220 | (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) | |
| 221 | #@80 compiler-macro for inlining `ghub--graphql-req-pages'. | |
| 222 | ||
| 223 | (fn CL-WHOLE-ARG CL-X) | |
| 224 | (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)]) | |
| 225 | (put 'ghub--graphql-req-pages 'compiler-macro 'ghub--graphql-req-pages--cmacro) | |
| 226 | #@143 Access slot "pages" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X. | |
| 227 | ||
| 228 | (fn CL-X) | |
| 229 | (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)]) | |
| 230 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-pages side-effect-free t] 4) | |
| 231 | #@210 compiler-macro for inlining `ghub--make-graphql-req'. | |
| 232 | ||
| 233 | (fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA QUERY VARIABLES UNTIL PAGES) | |
| 234 | (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)]) | |
| 235 | (put 'ghub--make-graphql-req 'compiler-macro 'ghub--make-graphql-req--cmacro) | |
| 236 | #@190 Constructor for objects of type `ghub--graphql-req'. | |
| 237 | ||
| 238 | (fn &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA QUERY VARIABLES UNTIL PAGES) | |
| 239 | (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)]) | |
| 240 | (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) | |
| 241 | #@174 Make a GraphQL request using QUERY and VARIABLES. | |
| 242 | See Info node `(ghub)GraphQL Support'. | |
| 243 | ||
| 244 | (fn QUERY VARIABLES CALLBACK &optional UNTIL &key NARROW USERNAME AUTH HOST FORGE) | |
| 245 | (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)]) | |
| 246 | #@37 | |
| 247 | ||
| 248 | (fn REQ &optional LINEAGE CURSOR) | |
| 249 | (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)]) | |
| 250 | #@39 | |
| 251 | ||
| 252 | (fn QUERY &optional LINEAGE CURSOR) | |
| 253 | (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)]) | |
| 254 | #@19 | |
| 255 | ||
| 256 | (fn STATUS REQ) | |
| 257 | (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)]) | |
| 258 | #@21 | |
| 259 | ||
| 260 | (fn LOC DATA REQ) | |
| 261 | (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)]) | |
| 262 | #@12 | |
| 263 | ||
| 264 | (fn LOC) | |
| 265 | (defalias 'ghub--graphql-lineage #[257 "\300\301!\203 \302!@B\262\301!\262\202 \211\207" [nil treepy-up treepy-node] 4 (#$ . 32842)]) | |
| 266 | #@21 | |
| 267 | ||
| 268 | (fn DATA LINEAGE) | |
| 269 | (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)]) | |
| 270 | #@29 | |
| 271 | ||
| 272 | (fn QUERY LINEAGE CURSOR) | |
| 273 | (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)]) | |
| 274 | #@10 | |
| 275 | ||
| 276 | (fn G) | |
| 277 | (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)]) | |
| 278 | #@13 | |
| 279 | ||
| 280 | (fn ROOT) | |
| 281 | (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)]) | |
| 282 | (provide 'ghub-graphql) | |
