elisp : fetch and save

gistfile1.el

(defun fetch-and-save (url filename)
  (let (buffer)
    (setq buffer (url-retrieve-synchronously url))
    (switch-to-buffer buffer)

    (goto-char (point-min))(search-forward "\n\n")(kill-region (point-min) (point)) ;; delete http headers

    (write-file filename)
    (kill-buffer buffer)
    ))
(fetch-and-save "https://github.com/emacs-jp/init-loader/raw/master/init-loader.el" "~/.emacs.d/site-lisp/init-loader.el")