From mboxrd@z Thu Jan  1 00:00:00 1970
From: Roger Mason <rmason@mun.ca>
Subject: Filter not working (org 8.0.3)
Date: Thu, 05 Sep 2013 13:23:03 -0230
Message-ID: <5228A8DF.5010704@mun.ca>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:60399)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <rmason@mun.ca>) id 1VHbrs-0007QE-Bj
	for emacs-orgmode@gnu.org; Thu, 05 Sep 2013 11:53:18 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <rmason@mun.ca>) id 1VHbrm-0008Aw-7h
	for emacs-orgmode@gnu.org; Thu, 05 Sep 2013 11:53:12 -0400
Received: from nina.ucs.mun.ca ([134.153.232.76]:56095)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <rmason@mun.ca>) id 1VHbrm-0008Ap-1Y
	for emacs-orgmode@gnu.org; Thu, 05 Sep 2013 11:53:06 -0400
Received: from [134.153.37.33] (cryptoperthite.esd.mun.ca [134.153.37.33])
	(authenticated bits=0)
	by nina.ucs.mun.ca (8.13.1/8.13.1) with ESMTP id r85Fr3wA005574
	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO)
	for <emacs-orgmode@gnu.org>; Thu, 5 Sep 2013 13:23:04 -0230
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: org-mode <emacs-orgmode@gnu.org>

Hello,

I have this at the top of an org file in order to put graphics in the 
margin:

#+LATEX_HEADER: \usepackage[right=2in,left=0.5in]{geometry} 
\usepackage{parskip}

#+BEGIN_SRC emacs-lisp
(defun margin-graphics (contents backend info)
   (when (eq backend 'latex)
     (replace-regexp-in-string "\\`\\\\includegraphics.+\\({.+}\\)"
"\\\\marginpar{\\\\includegraphics[width=0.9\\\\marginparwidth]\\1} " 
contents)))

(add-to-list 'org-export-filter-link-functions 'margin-graphics)
#+END_SRC

C-e lp produces a pdf document, but the filter is not applied (org 8.0.3).

Can someone show me what I'm doing wrong?

Thanks,
Roger

This electronic communication is governed by the terms and conditions at
http://www.mun.ca/cc/policies/electronic_communications_disclaimer_2012.php