Fetch Sims design documents from https://donhopkins.com/home/TheSimsDesignDocuments/

download-sims-design-documents.el

(require 'url)
(require 'dom)

(defun download-sims-design-documents ()
  (let ((url "https://donhopkins.com/home/TheSimsDesignDocuments/")
        (dir "c:/Users/nikol/Documents/books/programming/TheSimsDesignDocuments/"))
    (with-current-buffer (url-retrieve-synchronously url)
      (goto-char (point-min))
      (thread-last
        (dom-by-tag (libxml-parse-html-region (point) (point-max)) 'a)
        (mapcar     (lambda (link) (dom-attr link 'href)))
        (seq-filter (lambda (href) (and href (string-match "\\.pdf" href))))
        (mapcar     (lambda (href) (cons (concat url href) (concat dir (car (last (string-split href "/")))))))
        (mapc       (lambda (pair) (url-copy-file (car pair) (cdr pair) t)))))))

(download-sims-design-documents)