Re: [PATCH] checking eww download directory

[Lars Ingebrigtsen <larsi@gnus.org>]

Mark Oteiza <mvoteiza@udel.edu> writes:

> - it would be nice if eww looked a little harder for an existing
>   downloads directory.  Perhaps what's below is too much, comments
>   welcome

[...]

> -(defcustom eww-download-directory "~/Downloads/"
> +(defcustom eww-download-directory
> +  (cond
> +   ((memq system-type '(ms-dos windows-nt cygwin))
> +    (expand-file-name "Downloads" (getenv "USERPROFILE")))
> +   ((cl-some
> +     (lambda (str)
> +       (let ((f (expand-file-name str "~")))
> +         (and (file-directory-p f)
> +              (string-match-p "downloads?" (downcase f))
> +              (abbreviate-file-name f))))
> +     (directory-files "~")))
> +   (t "~/Downloads/"))

Yikes.  There must be a gazillion places directories are defined under
the home director.  Do they all do this dance?  If they do, perhaps it
should be made into a library function?

> +  (access-file eww-download-directory "Download failed")

Seem OK, except that the error message should say what the error is
instead of this.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no