...das minhas cousas

 


(defun pedro/download-and-save-files-to-dir (urls dir)
  "Download and save files to DIR. URLS is a list of urls strings."
  (let ((old-buffer (current-buffer))
        (buffer-name "*download-and-save-temp-buffer*")
        filename)
    (get-buffer-create buffer-name)

    (save-excursion
      (set-buffer buffer-name)
      (dolist (url urls)
        (setq filename (concat
                        (file-name-as-directory dir)
                        (file-name-nondirectory (url-unhex-string
                                                 (url-filename
                                                  (url-generic-parse-url url))))))
        (delete-region (point-min) (point-max))
        (url-insert-file-contents url)
        (write-region (point-min) (point-max) filename))
      (set-buffer old-buffer))))


(pedro/download-and-save-files-to-dir
 '("https://www.emacswiki.org/emacs/download/bookmark%2b.el"
   "https://www.emacswiki.org/emacs/download/bookmark%2b-mac.el"
   "https://www.emacswiki.org/emacs/download/bookmark%2b-bmu.el"
   "https://www.emacswiki.org/emacs/download/bookmark%2b-1.el"
   "https://www.emacswiki.org/emacs/download/bookmark%2b-key.el"
   "https://www.emacswiki.org/emacs/download/bookmark%2b-lit.el"
   "https://www.emacswiki.org/emacs/download/bookmark%2b-doc.el"
   "https://www.emacswiki.org/emacs/download/bookmark%2b-chg.el")
 bookmarkp+-directory)

(add-to-list 'load-path bookmarkp+-directory)