;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (require 'forge)#@81 (fn OBJ-OR-HOST QUERY VARIABLES &key CALLBACK ERRORBACK NOERROR NARROW UNTIL) (defalias 'forge--query #[899 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203U\211@\306>\203=\211A\2045\307\310@\"\210\211AA\262\202\311>A@\203L\312\262\202\307\313@\"\210\202\210\314 !\211\242\243\211\242\243\315  \316\317\320 \321 \301\302\303\304\305&\207" [plist-member :callback :errorback :noerror :narrow :until (:callback :errorback :noerror :narrow :until :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:callback :errorback :noerror :narrow :until)" forge--host-arguments ghub-query :auth forge :host :forge] 33 (#$ . 100)]) (byte-code "\300\301\302\303#\300\207" [function-put forge--query lisp-indent-function defun] 4)#@81 (fn OBJ-OR-HOST QUERY VARIABLES &key CALLBACK ERRORBACK NOERROR NARROW UNTIL) (defalias 'forge-query '(macro . #[899 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203U\211@\306>\203=\211A\2045\307\310@\"\210\211AA\262\202\311>A@\203L\312\262\202\307\313@\"\210\202\210\314 \315\316 DD\317\n!\301 \302\n\303 \304\f\305 \257\207" [plist-member :callback :errorback :noerror :narrow :until (:callback :errorback :noerror :narrow :until :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:callback :errorback :noerror :narrow :until)" forge--query quote query forge--prepare-variables] 23 (#$ . 937)])) (byte-code "\300\301\302\303#\300\207" [function-put forge-query lisp-indent-function defun] 4)#@71 (fn OBJ-OR-HOST MUTATION VARIABLES &key CALLBACK ERRORBACK NOERROR) (defalias 'forge-mutate '(macro . #[899 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203H\211@\304>\2031\211A\204)\305\306@\"\210\211AA\262\202\307>A@\203?\310\262\202\305\311@\"\210\202\210\312\313\314 !D\315\316\317\320 !ED\301\302\303 \257\n\207" [plist-member :callback :errorback :noerror (:callback :errorback :noerror :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:callback :errorback :noerror)" forge--query quote ghub--prepare-mutation list cons 'input forge--prepare-variables] 17 (#$ . 1745)])) (byte-code "\300\301\302\303#\300\207" [function-put forge-mutate lisp-indent-function defun] 4)#@33 (fn TOPIC MUTATION VARIABLES) (defalias 'forge--mutate-field '(macro . #[771 "\300\301DC\302\301\303\304!D\305\306\307\310 !ED\311BBBBE\207" [let topic forge--query quote ghub--prepare-mutation list cons 'input forge--prepare-variables (:callback (forge--set-field-callback topic))] 13 (#$ . 2508)])) (byte-code "\300\301\302\303#\300\207" [function-put forge--mutate-field lisp-indent-function defun] 4)#@96 (fn OBJ-OR-HOST METHOD RESOURCE &optional PARAMS &key CALLBACK ERRORBACK NOERROR UNPAGINATE) (defalias 'forge--rest #[1155 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203O\211@\305>\2037\211A\204/\306\307@\"\210\211AA\262\202\310>A@\203F\311\262\202\306\312@\"\210\202\210\313 !\211\242\243\211\242\243\314 \315!\203o\316\"\202q  \317\320\321\n\322\n\301\302\303\304&\207" [plist-member :callback :errorback :noerror :unpaginate (:callback :errorback :noerror :unpaginate :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:callback :errorback :noerror :unpaginate)" forge--host-arguments ghub-request forge-object--eieio-childp forge--format-resource :auth forge :host :forge] 32 (#$ . 2924)]) (byte-code "\300\301\302\303#\300\207" [function-put forge--rest lisp-indent-function defun] 4)#@96 (fn OBJ-OR-HOST METHOD RESOURCE &optional PARAMS &key CALLBACK ERRORBACK NOERROR UNPAGINATE) (defalias 'forge-rest '(macro . #[1155 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203O\211@\305>\2037\211A\204/\306\307@\"\210\211AA\262\202\310>A@\203F\311\262\202\306\312@\"\210\202\210\313   \314\n!\301 \302\n\303 \304\f\257 \207" [plist-member :callback :errorback :noerror :unpaginate (:callback :errorback :noerror :unpaginate :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:callback :errorback :noerror :unpaginate)" forge--rest forge--prepare-variables] 22 (#$ . 3833)])) (byte-code "\300\301\302\303#\300\207" [function-put forge-rest lisp-indent-function defun] 4)#@20 (fn OBJ-OR-HOST) (defalias 'forge--host-arguments #[257 "\301!\205 \302!;\203\202\303\304\"\211\203!\305!\202,\306\307\310\311\312\313&8\211\314\267\202:\315\202;\316\202;\315\262D\207" [forge-alist forge-object--eieio-childp forge-get-repository eieio-oref apihost eieio-object-class-name 3 cl-find :key cadr :test equal #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (forge-github-repository 50 forge-gitlab-repository 54)) github gitlab] 12 (#$ . 4607)])#@31 (fn MUTATION &optional VAR) (defalias 'ghub--prepare-mutation #[513 "\300\301\302\203\303\304\305\"!\202\306\307!\303\304\310\311\312O\226\312\313O#!\262E!\314BBD\207" [mutation vector input intern format "$%s" $input symbol-name "%s%sInput!" 0 1 nil (clientMutationId)] 15 (#$ . 5131)])#@18 (fn VARIABLES) (defalias 'forge--prepare-variables #[257 "\300\301\302\303\304\"BE\207" [delq nil list mapcar #[257 "\211:\203|\211\242\243\211:\203w\211\242\243\211\204\300\301DE\207\302=\204)\303\304\"\207\211:\203q\211\242\211:\203k\211\242\243\211:\203e\211\242\243\211\204_\243\211\204Y\302\300\301DEE\207\303\304\f\"\207\303\304 \"\207\303\304 \"\207\303\304\"\207\303\304\"\207\303\304\"\207\303\304\"\207" [cons quote and error "No clause matching `%S'"] 16 "\n\n(fn BINDING)"]] 7 (#$ . 5439)])#@14 (fn TOPIC) (defalias 'forge--set-field-callback #[257 "\300!\301!\203\302\303\"\207\304!\203 \305\306\"\302\307$\207\302\310\"\207" [forge-get-repository forge-gitlab-repository--eieio-childp make-closure #[128 "\301\300\302\"\207" [V0 forge--pull forge-refresh-buffer] 4 "\n\n(fn &rest _)"] forge-discussion--eieio-childp eieio-oref status #[128 "\304\301\305 \306\307\310\311\302\312\"BE\"\313\311\301\313\"B\314\311\301\314\"BD\315\316\317\300\301\302$%\207" [V0 V1 V2 forge--github-repository-query forge--query ghub--graphql-prepare-query repository discussions discussion eieio-oref number owner name :callback make-closure #[257 "\303\301A@A@A\"\210\304\302\305\300#\210\306 \207" [V0 V1 V2 forge--update-discussion eieio-oset status forge-refresh-buffer] 5 "\n\n(fn DATA)"]] 11 "\n\n(fn &rest _)"] #[128 "\301\302\300!\300\"\207" [V0 forge--pull-topic forge-get-repository] 4 "\n\n(fn &rest _)"]] 8 (#$ . 5985)]) (provide 'forge-client)