From mboxrd@z Thu Jan  1 00:00:00 1970
From: Rick Frankel <rick@rickster.com>
Subject: Re: Drag images from Firefox to org-mode
Date: Fri, 18 Oct 2013 11:03:01 -0400
Message-ID: <2d5635af9ad6d51badb40e1e19c85572@mail.rickster.com>
References: <CAA01p3p4efUMcfXYQm+YBiahgS5JQ2OJ0QBBb0WszdfTToGAWA@mail.gmail.com>
	<C7C02B1D-C8A7-4012-983B-A9CB8002B3E6@gmail.com>
	<CAA01p3oh=bvL6MBW0fTLDRst4o5g1Ygy+GFe0RawJ7_bQGmQhA@mail.gmail.com>
	<87eh7irjvi.fsf@yahoo.fr>
	<CAA01p3o8ZRW665iF6D6CwjXQFGaRFoN39_mz2M4RRLOu9QJ-RA@mail.gmail.com>
	<52610C29.3000505@yahoo.fr>
	<CAA01p3obTUXshcS-m=iB2KOADAx9eNpj8PK_F5O1x5dLtCobcA@mail.gmail.com>
	<526114B4.6060303@yahoo.fr>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8;
 format=flowed
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:58393)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <rick@rickster.com>) id 1VXBZy-00062A-GQ
	for emacs-orgmode@gnu.org; Fri, 18 Oct 2013 11:03:11 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <rick@rickster.com>) id 1VXBZt-0007iO-Oh
	for emacs-orgmode@gnu.org; Fri, 18 Oct 2013 11:03:06 -0400
Received: from [204.62.15.78] (port=39920 helo=mail.rickster.com)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <rick@rickster.com>) id 1VXBZt-0007i8-LP
	for emacs-orgmode@gnu.org; Fri, 18 Oct 2013 11:03:01 -0400
In-Reply-To: <526114B4.6060303@yahoo.fr>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Nicolas Richard <theonewiththeevillook@yahoo.fr>
Cc: org mode <emacs-orgmode@gnu.org>, Oleh <ohwoeowho@gmail.com>

On 2013-10-18 07:00, Nicolas Richard wrote:
> [re-adding emacs-orgmode@gnu.org to cc, I don't know when it got lost]
>=20
> Le 18/10/2013 12:44, Oleh a =C3=A9crit :
> I attach the downloaded google logo.

I missed an email here... can you send me the url to the image you are
having problems with? I just tried the google png on the home page
(logo11w.png), and have no problems. Also, please try the updated
version of fetch-image (in another thread, duplicated below).

FYI, I am use Emacs. 24.3 with the included url.el.


rick

#+BEGIN_SRC emacs-lisp
(defun fetch-image (url &optional destdir)
(url-retrieve
url
(lambda (status url destdir)
(let ((err (plist-get status :error)))
(if err (error
"\"%s\" %s." url
(downcase (nth 2 (assq (nth 2 err) url-http-codes))))))
(delete-region
(point-min)
(progn
(re-search-forward "^$" nil 'move)
(1+ (point))))
(write-file
(expand-file-name (file-name-nondirectory url) destdir))
(when (display-graphic-p) (pop-to-buffer (current-buffer))))
`(,url ,destdir) nil t))
#+END_SRC