noodling.el

(require 'json)

(defun file->filename (file)
  (cdr (assoc 'filename (cdr file))))

(defun file->content (file)
  (cdr (assoc 'content (cdr file))))

(defun gist-to-buffers (gist-buffer)
  (interactive "bGist Buffer: ")
  (let* ((gist-json (with-current-buffer "gist.json"
                      (json-read-from-string (buffer-string))))
         (gist-files (cdr (assoc 'files gist-json) ) ))
    (dolist (gist-file gist-files)
        (let* ((filename (file->filename gist-file))
               (content (file->content gist-file)))
          (with-current-buffer (get-buffer-create filename)
            (insert content))))))