From: Christophe Rhodes <csr21@cantab.net>
Date: Fri, 8 Oct 2010 11:01:30 +0000 (+0100)
Subject: improve html export of org files
X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=commitdiff_plain;h=74ab0ece0fce3266b32c0de85405ed706511984c

improve html export of org files

Allow ="foo"= to be exported as code.
---

diff --git a/BUGS.org b/BUGS.org
index 7ebda44..5eedde0 100644
--- a/BUGS.org
+++ b/BUGS.org
@@ -16,7 +16,7 @@
   only passes the buffer position in bytes (or maybe characters),
   whereas R's srcrefs work with lines and columns.
 * OPEN #4 multibyte characters corrupt slime connection              :NORMAL:
-  Not in all circumstances (e.g. "£" is OK) but 1:£ fails in
+  Not in all circumstances (e.g. ="£"= is OK) but =1:£= fails in
   slime-net-read-or-lose.
 * COMMENT:
 Local Variables:
diff --git a/Makefile b/Makefile
index a3e09b8..07dfaa5 100644
--- a/Makefile
+++ b/Makefile
@@ -6,10 +6,10 @@ webup: web
 	scp $(WEBFILES) common-lisp.net:public_html/swankr/
 
 README.html: README
-	emacs --batch --visit README  --eval '(org-export-as-html nil)'
+	emacs --batch --visit README --load org-export.el
 
 %.html: %.org
-	emacs --batch --visit $^ --eval '(org-export-as-html nil)'
+	emacs --batch --visit $^ --load org-export.el
 
 clean:
 	-rm $(WEBFILES)
diff --git a/org-export.el b/org-export.el
new file mode 100644
index 0000000..ecb16ee
--- /dev/null
+++ b/org-export.el
@@ -0,0 +1,5 @@
+(let* ((orig org-emphasis-regexp-components)
+       (new `(,(nth 0 orig) ,(nth 1 orig) ,(remove ?\" (nth 2 orig))
+              ,(nth 3 orig) ,(nth 4 orig) ,(nth 5 orig))))
+  (org-set-emph-re 'org-emphasis-regexp-components new)
+  (org-export-as-html nil))