Cacher is the code snippet organizer for pro developers

(void-variable \.site_par)
  sx--ensure-site(((quota_remaining . 9998) (quota_max . 10000) (has_more . :json-false) (items . [((filter . "!9YdnSPuCQ") (filter_type . "safe") (included_fields . [".backoff" ".error_id" ".error_message" ".error_name" ".has_more" ".items" ".page" ".page_size" ".quota_max" ".quota_remaining" "access_token.access_token" "access_token.account_id" "access_token.expires_on_date" "access_token.scope" "account_merge.merge_date" "account_merge.new_account_id" "account_merge.old_account_id" "achievement.account_id" "achievement.achievement_type" "achievement.badge_rank" "achievement.creation_date" "achievement.is_unread" "achievement.link" "achievement.on_site" "achievement.reputation_change" "achievement.title" "answer.answer_id" "answer.community_owned_date" "answer.creation_date" "answer.is_accepted" "answer.last_activity_date" "answer.last_edit_date" "answer.locked_date" "answer.owner" "answer.question_id" "answer.score" "badge.award_count" "badge.badge_id" "badge.badge_type" "badge.link" "badge.name" "badge.rank" "badge.user" "badge_count.bronze" "badge_count.gold" "badge_count.silver" "closed_details.by_users" "closed_details.description" "closed_details.on_hold" "closed_details.original_questions" ...]))])))
  (progn (sx--ensure-site response) (let ((alist response)) (let ((\.error_id (cdr (assq (quote error_id) alist))) (\.method (cdr (assq (quote method) alist))) (\.error_name (cdr (assq (quote error_name) alist))) (\.error_message (cdr (assq (quote error_message) alist))) (\.quota_remaining (cdr (assq (quote quota_remaining) alist)))) (if \.error_id (progn (error "Request failed: (%s) [%i %s] %S" \.method \.error_id \.error_name \.error_message))) (if (< (setq sx-request-remaining-api-requests \.quota_remaining) sx-request-remaining-api-requests-message-threshold) (progn (sx-message "%d API requests remaining" sx-request-remaining-api-requests))) (funcall (or process-function (function sx-request-response-get-items)) response))))
  (let* ((data (progn (goto-char (point-min)) (if (not (search-forward "\n\n" nil t)) (error "Headers missing; response corrupt") (delete-region (point-min) (point)) (buffer-string)))) (response-zipped-p (sx-encoding-gzipped-p data)) (data (decode-coding-string (if (not response-zipped-p) data (if (fboundp (quote zlib-decompress-region)) (zlib-decompress-region (point-min) (point-max)) (shell-command-on-region (point-min) (point-max) sx-request-unzip-program nil t)) (buffer-string)) (quote utf-8) (quote nocopy))) (response (condition-case err (json-read-from-string data) ((debug error) (message "`json' error: %S" err) nil)))) (kill-buffer response-buffer) (if (and (not response) (string-equal data "{}")) (progn (sx-message "Unable to parse response: %S" response) (error "Response could not be read by `json-read-from-string'"))) (progn (sx--ensure-site response) (let ((alist response)) (let ((\.error_id (cdr (assq ... alist))) (\.method (cdr (assq ... alist))) (\.error_name (cdr (assq ... alist))) (\.error_message (cdr (assq ... alist))) (\.quota_remaining (cdr (assq ... alist)))) (if \.error_id (progn (error "Request failed: (%s) [%i %s] %S" \.method \.error_id \.error_name \.error_message))) (if (< (setq sx-request-remaining-api-requests \.quota_remaining) sx-request-remaining-api-requests-message-threshold) (progn (sx-message "%d API requests remaining" sx-request-remaining-api-requests))) (funcall (or process-function (function sx-request-response-get-items)) response)))))
  (save-current-buffer (set-buffer response-buffer) (let* ((data (progn (goto-char (point-min)) (if (not (search-forward "\n\n" nil t)) (error "Headers missing; response corrupt") (delete-region (point-min) (point)) (buffer-string)))) (response-zipped-p (sx-encoding-gzipped-p data)) (data (decode-coding-string (if (not response-zipped-p) data (if (fboundp ...) (zlib-decompress-region ... ...) (shell-command-on-region ... ... sx-request-unzip-program nil t)) (buffer-string)) (quote utf-8) (quote nocopy))) (response (condition-case err (json-read-from-string data) ((debug error) (message "`json' error: %S" err) nil)))) (kill-buffer response-buffer) (if (and (not response) (string-equal data "{}")) (progn (sx-message "Unable to parse response: %S" response) (error "Response could not be read by `json-read-from-string'"))) (progn (sx--ensure-site response) (let ((alist response)) (let ((\.error_id (cdr ...)) (\.method (cdr ...)) (\.error_name (cdr ...)) (\.error_message (cdr ...)) (\.quota_remaining (cdr ...))) (if \.error_id (progn (error "Request failed: (%s) [%i %s] %S" \.method \.error_id \.error_name \.error_message))) (if (< (setq sx-request-remaining-api-requests \.quota_remaining) sx-request-remaining-api-requests-message-threshold) (progn (sx-message "%d API requests remaining" sx-request-remaining-api-requests))) (funcall (or process-function (function sx-request-response-get-items)) response))))))
  (if (not response-buffer) (error "Something went wrong in `url-retrieve-synchronously'") (save-current-buffer (set-buffer response-buffer) (let* ((data (progn (goto-char (point-min)) (if (not ...) (error "Headers missing; response corrupt") (delete-region ... ...) (buffer-string)))) (response-zipped-p (sx-encoding-gzipped-p data)) (data (decode-coding-string (if (not response-zipped-p) data (if ... ... ...) (buffer-string)) (quote utf-8) (quote nocopy))) (response (condition-case err (json-read-from-string data) ((debug error) (message "`json' error: %S" err) nil)))) (kill-buffer response-buffer) (if (and (not response) (string-equal data "{}")) (progn (sx-message "Unable to parse response: %S" response) (error "Response could not be read by `json-read-from-string'"))) (progn (sx--ensure-site response) (let ((alist response)) (let ((\.error_id ...) (\.method ...) (\.error_name ...) (\.error_message ...) (\.quota_remaining ...)) (if \.error_id (progn ...)) (if (< ... sx-request-remaining-api-requests-message-threshold) (progn ...)) (funcall (or process-function ...) response)))))))
  (let* ((url-automatic-caching t) (url-inhibit-uncompression t) (url-request-data (sx-request--build-keyword-arguments args nil)) (request-url (concat sx-request-api-root method)) (url-request-method (and request-method (upcase (symbol-name request-method)))) (url-request-extra-headers (quote (("Content-Type" . "application/x-www-form-urlencoded")))) (response-buffer (url-retrieve-synchronously request-url))) (if (not response-buffer) (error "Something went wrong in `url-retrieve-synchronously'") (save-current-buffer (set-buffer response-buffer) (let* ((data (progn (goto-char ...) (if ... ... ... ...))) (response-zipped-p (sx-encoding-gzipped-p data)) (data (decode-coding-string (if ... data ... ...) (quote utf-8) (quote nocopy))) (response (condition-case err (json-read-from-string data) (... ... nil)))) (kill-buffer response-buffer) (if (and (not response) (string-equal data "{}")) (progn (sx-message "Unable to parse response: %S" response) (error "Response could not be read by `json-read-from-string'"))) (progn (sx--ensure-site response) (let ((alist response)) (let (... ... ... ... ...) (if \.error_id ...) (if ... ...) (funcall ... response))))))))
  sx-request-make("filter/create" ((include . "site.site_type;site.name;site.api_site_parameter;site.site_url;site.related_sites;related_site.api_site_parameter;related_site.relation;.backoff;.error_id;.error_message;.error_name;.has_more;.items;.page;.page_size;.quota_max;.quota_remaining") (exclude) (base)))
  (elt (sx-request-make "filter/create" keyword-arguments) 0)
  (let ((result (elt (sx-request-make "filter/create" keyword-arguments) 0))) (progn (sx--ensure-site result) (let ((alist result)) (let ((\.filter (cdr (assq ... alist)))) \.filter))))
  (let ((keyword-arguments (list (cons (quote include) (if include (sx--thing-as-string include))) (cons (quote exclude) (if exclude (sx--thing-as-string exclude))) (cons (quote base) (if base base))))) (let ((result (elt (sx-request-make "filter/create" keyword-arguments) 0))) (progn (sx--ensure-site result) (let ((alist result)) (let ((\.filter (cdr ...))) \.filter)))))
  sx-filter-compile((site\.site_type site\.name site\.api_site_parameter site\.site_url site\.related_sites related_site\.api_site_parameter related_site\.relation \.backoff \.error_id \.error_message \.error_name \.has_more \.items \.page \.page_size \.quota_max \.quota_remaining) nil nil)
  (let ((filter (sx-filter-compile include exclude base))) (if filter (progn (setq sx--filter-alist (cons (cons (list include exclude base) filter) sx--filter-alist)) (sx-cache-set (quote filter) sx--filter-alist) filter)))
  (or (cdr (assoc (list include exclude base) sx--filter-alist)) (let ((filter (sx-filter-compile include exclude base))) (if filter (progn (setq sx--filter-alist (cons (cons (list include exclude base) filter) sx--filter-alist)) (sx-cache-set (quote filter) sx--filter-alist) filter))))
  sx-filter-get((site\.site_type site\.name site\.api_site_parameter site\.site_url site\.related_sites related_site\.api_site_parameter related_site\.relation \.backoff \.error_id \.error_message \.error_name \.has_more \.items \.page \.page_size \.quota_max \.quota_remaining) nil nil)
  apply(sx-filter-get ((site\.site_type site\.name site\.api_site_parameter site\.site_url site\.related_sites related_site\.api_site_parameter related_site\.relation \.backoff \.error_id \.error_message \.error_name \.has_more \.items \.page \.page_size \.quota_max \.quota_remaining) nil nil))
  sx-filter-get-var(((site\.site_type site\.name site\.api_site_parameter site\.site_url site\.related_sites related_site\.api_site_parameter related_site\.relation \.backoff \.error_id \.error_message \.error_name \.has_more \.items \.page \.page_size \.quota_max \.quota_remaining) nil nil))
  sx-method-call(sites :pagesize 999 :filter ((site\.site_type site\.name site\.api_site_parameter site\.site_url site\.related_sites related_site\.api_site_parameter related_site\.relation \.backoff \.error_id \.error_message \.error_name \.has_more \.items \.page \.page_size \.quota_max \.quota_remaining) nil nil))
  eval((sx-method-call (quote sites) :pagesize 999 :filter sx-site-browse-filter))
  sx-cache-get(site-list (sx-method-call (quote sites) :pagesize 999 :filter sx-site-browse-filter))
  sx-site--get-site-list()
  sx-site-get-api-tokens()
  (sx-completing-read (format "Site (%s): " default) (sx-site-get-api-tokens) nil t nil nil default)
  (let ((default (or sx-question-list--site (progn (sx--ensure-site sx-question-mode--data) (let ((alist sx-question-mode--data)) (let (...) \.site_par))) sx-default-site))) (sx-completing-read (format "Site (%s): " default) (sx-site-get-api-tokens) nil t nil nil default))
  sx--interactive-site-prompt()
  byte-code("\301 D\207" [current-prefix-arg sx--interactive-site-prompt] 2)
  call-interactively(sx-tab-frontpage record nil)
  command-execute(sx-tab-frontpage record)