mikutter FAQからQを取り出す練習

mikutter-faq.el

(let ((url-request-method "GET") response)
  (with-current-buffer (url-retrieve-synchronously "https://mikutter.hachune.net/faq.json")
    (goto-char (point-min))
    (re-search-forward "\n\n")
    (set-buffer-multibyte t)
    (setq response (json-read)))
  (with-temp-buffer
    (mapcar (lambda (faq)
              (insert (cdr (assoc 'question faq)) "\n"))
            response)
    (buffer-substring-no-properties (point-min) (point-max))))