This is after `'-p'
signal(json-readtable-error nil)
json-read()
(let ((json-object-type (quote plist))) (json-read))
(let* ((data (let ((json-object-type (quote plist))) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)
(if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ((json-object-type (quote plist))) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data))
(save-current-buffer (set-buffer (url-retrieve-synchronously (magit-request-url path))) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ((json-object-type ...)) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)))
(with-current-buffer (url-retrieve-synchronously (magit-request-url path)) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ((json-object-type ...)) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)))
(let ((url-request-data (magithub-make-query-string magithub-request-data))) (with-current-buffer (url-retrieve-synchronously (magit-request-url path)) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let (...) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data))))
(let* ((G154526 (magithub-auth-info)) (magithub-request-data (append (list (cons "login" (car G154526)) (cons "token" (cdr G154526))) magithub-request-data))) (let ((url-request-data (magithub-make-query-string magithub-request-data))) (with-current-buffer (url-retrieve-synchronously (magit-request-url path)) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ... ...)) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)))))
(magithub-with-auth (let ((url-request-data (magithub-make-query-string magithub-request-data))) (with-current-buffer (url-retrieve-synchronously (magit-request-url path)) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ... ...)) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)))))
magithub-retrieve-synchronously(("repos" "show" "dabrahams" "org-mode.git"))
(plist-get (magithub-retrieve-synchronously (list "repos" "show" username repo)) :repository)
(let* ((url-request-method "GET") (obj (plist-get (magithub-retrieve-synchronously (list "repos" "show" username repo)) :repository))) (puthash (cons username repo) obj magithub--repo-obj-cache) obj)
(or cached (let* ((url-request-method "GET") (obj (plist-get (magithub-retrieve-synchronously (list "repos" "show" username repo)) :repository))) (puthash (cons username repo) obj magithub--repo-obj-cache) obj))
(let ((cached (gethash (cons username repo) magithub--repo-obj-cache))) (or cached (let* ((url-request-method "GET") (obj (plist-get (magithub-retrieve-synchronously (list "repos" "show" username repo)) :repository))) (puthash (cons username repo) obj magithub--repo-obj-cache) obj)))
magithub-cached-repo-obj(nil nil)
(plist-get (magithub-cached-repo-obj username repo) :parent)
(let ((parent (plist-get (magithub-cached-repo-obj username repo) :parent))) (if (not parent) (magithub-repo-collaborators username repo) (destructuring-bind (parent-owner . parent-repo) (magithub-parse-repo parent) (magithub-repo-collaborators parent-owner parent-repo))))
magithub-repo-parent-collaborators()
(let ((collabs (magithub-repo-parent-collaborators)) (network (magithub-repo-network))) (magithub--remove-if (lambda (s) (string= s "")) (completing-read-multiple "Send pull request to: " (mapcar (lambda (repo) (plist-get repo :owner)) (magithub-repo-network)) nil nil (concat (mapconcat (quote identity) collabs crm-separator) (if (= (length collabs) (length network)) "" crm-separator)))))
magithub-read-pull-request-recipients()
(list (magithub-read-pull-request-recipients))
call-interactively(magithub-pull-request nil nil)
This is after `'-p'