Function: ghub--make-graphql-req--cmacro

ghub--make-graphql-req--cmacro is a function defined in ghub-graphql.el.

Signature

(ghub--make-graphql-req--cmacro CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER BUFFER SYNCHRONOUS CALLBACK ERRORBACK VALUE EXTRA QUERY QUERY-STR VARIABLES UNTIL PAGES PAGINATE NARROW)

Documentation

compiler-macro for ghub--make-graphql-req.

Source Code

;; Defined in ~/.emacs.d/elpa/ghub-20260401.1239/ghub-graphql.el
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((url (car (cdr (plist-member --cl-rest-- ':url))))
	(forge (car (cdr (plist-member --cl-rest-- ':forge))))
	(silent (car (cdr (plist-member --cl-rest-- ':silent))))
	(method (car (cdr (plist-member --cl-rest-- ':method))))
	(headers (car (cdr (plist-member --cl-rest-- ':headers))))
	(handler (car (cdr (plist-member --cl-rest-- ':handler))))
	(unpaginate
	 (car (cdr (plist-member --cl-rest-- ':unpaginate))))
	(noerror (car (cdr (plist-member --cl-rest-- ':noerror))))
	(reader (car (cdr (plist-member --cl-rest-- ':reader))))
	(buffer (car (cdr (plist-member --cl-rest-- ':buffer))))
	(synchronous
	 (car (cdr (plist-member --cl-rest-- ':synchronous))))
	(callback (car (cdr (plist-member --cl-rest-- ':callback))))
	(errorback (car (cdr (plist-member --cl-rest-- ':errorback))))
	(value (car (cdr (plist-member --cl-rest-- ':value))))
	(extra (car (cdr (plist-member --cl-rest-- ':extra))))
	(query (car (cdr (plist-member --cl-rest-- ':query))))
	(query-str (car (cdr (plist-member --cl-rest-- ':query-str))))
	(variables (car (cdr (plist-member --cl-rest-- ':variables))))
	(until (car (cdr (plist-member --cl-rest-- ':until))))
	(pages
	 (car (cdr (or (plist-member --cl-rest-- ':pages) '(nil 0)))))
	(paginate (car (cdr (plist-member --cl-rest-- ':paginate))))
	(narrow (car (cdr (plist-member --cl-rest-- ':narrow)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:url :forge :silent :method :headers :handler
			  :unpaginate :noerror :reader :buffer
			  :synchronous :callback :errorback :value
			  :extra :query :query-str :variables :until
			  :pages :paginate :narrow :allow-other-keys))
	     (unless (cdr --cl-keys--)
	       (error "Missing argument for %s" (car --cl-keys--)))
	     (setq --cl-keys-- (cdr (cdr --cl-keys--))))
	    ((car (cdr (memq ':allow-other-keys --cl-rest--)))
	     (setq --cl-keys-- nil))
	    (t
	     (error
	      "Keyword argument %S not one of (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :buffer :synchronous :callback :errorback :value :extra :query :query-str :variables :until :pages :paginate :narrow)"
	      (car --cl-keys--))))))
       (cl-block ghub--make-graphql-req--cmacro
	 (cl--defsubst-expand
	  '(url forge silent method headers handler unpaginate noerror
		reader buffer synchronous callback errorback value
		extra query query-str variables until pages paginate
		narrow)
	  '(cl-block ghub--make-graphql-req
	     (record 'ghub--graphql-req url forge silent method
		     headers handler unpaginate noerror reader buffer
		     synchronous callback errorback value extra query
		     query-str variables until pages paginate narrow))
	  nil cl-whole nil url forge silent method headers handler
	  unpaginate noerror reader buffer synchronous callback
	  errorback value extra query query-str variables until pages
	  paginate narrow)))))
  (cl-struct-ghub--graphql-req-tags) nil
  "compiler-macro for `ghub--make-graphql-req'.\n\n(fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER BUFFER SYNCHRONOUS CALLBACK ERRORBACK VALUE EXTRA QUERY QUERY-STR VARIABLES UNTIL PAGES PAGINATE NARROW)"]