ox-beamer.org: Simplify filters
authorNicolas Goaziou <n.goaziou@gmail.com>
Wed, 6 Mar 2013 14:34:02 +0000 (15:34 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Wed, 6 Mar 2013 14:34:02 +0000 (15:34 +0100)
exporters/beamer/ox-beamer.org

index 005fc01..7bcef2b 100644 (file)
@@ -122,20 +122,20 @@ As a simple example; the =ox-beamer= translates *bold text* as
 =\alert{bold text}=.  To revert this back to the old behaviour, you
 can you a filter like this:
 #+begin_src emacs-lisp :eval no
-  (defun my-beamer-bold (contents backend info)
-    (if (not (eq backend 'beamer)) contents
-      (replace-regexp-in-string "\\`\\\\[A-Za-z0-9]+" "\\\\textbf" contents)))
-  
-  (add-to-list 'org-export-filter-bold-functions 'my-beamer-bold)
+(defun my-beamer-bold (contents backend info)
+  (when (eq backend 'beamer)
+    (replace-regexp-in-string "\\`\\\\[A-Za-z0-9]+" "\\\\textbf" contents)))
+
+(add-to-list 'org-export-filter-bold-functions 'my-beamer-bold)
 #+end_src
 Another example would be to translate +strike through text+ to
 =\structure{strike through text}= with the following filter.
 #+begin_src emacs-lisp :eval no
-  (defun my-beamer-structure (contents backend info)
-    (if (not (eq backend 'beamer)) contents
-      (replace-regexp-in-string "\\`\\\\[A-Za-z0-9]+" "\\\\structure" contents)))
-  
-  (add-to-list 'org-export-filter-strike-through-functions 'my-beamer-structure)
+(defun my-beamer-structure (contents backend info)
+  (when (eq backend 'beamer)
+    (replace-regexp-in-string "\\`\\\\[A-Za-z0-9]+" "\\\\structure" contents)))
+
+(add-to-list 'org-export-filter-strike-through-functions 'my-beamer-structure)
 #+end_src
 
 * Structure editing, environments and markup