summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNoorul Islam <noorul@noorul.com>2010-09-02 11:35:43 +0000
committerBastien Guerry <bzg@altern.org>2010-09-02 16:56:27 +0200
commitbd1b57f92a33485c90db1efc407c8b7c7450993a (patch)
treeb77065597ac6149f896a0a0ee685e3689af1acdf
parentfc49c1ec96b2c789f573ae1ba936b930a8494402 (diff)
downloadorg-mode-bd1b57f92a33485c90db1efc407c8b7c7450993a.tar.gz
html-export mangels mailto: links
Achim Gratz <Stromeko@nexgo.de> writes: > HTML export removes the "mailto:" from a link, which will then be > interpreted as a local link by the browser. > > For an example, see the link to this mailing list in > ORGWEBPAGE/index.org and the corresponding HTML export on orgmode-org > (or just the local file). > org-html.el : Fix exporting file, mailto, news and ftp protocols. * lisp/org-html.el (org-html-make-link): (expand-file-name ) removes one "/" from "///path-to-file", so add one. Anything other than 'file' type should be exported along with the type. TINYCHANGE Thanks and Regards Noorul
-rw-r--r--lisp/org-html.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/org-html.el b/lisp/org-html.el
index df55de0..022b87c 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -720,7 +720,7 @@ MAY-INLINE-P allows inlining it as an image."
;;Substitute just if original path was absolute.
;;(Otherwise path must remain relative)
(if (file-name-absolute-p path)
- (expand-file-name path)
+ (concat "/" (expand-file-name path))
path)))
((string= type "")
(list nil path))
@@ -756,8 +756,7 @@ MAY-INLINE-P allows inlining it as an image."
(setq thefile
(let
((str (org-export-html-format-href thefile)))
- (if (and type (not (string= "file" type))
- (org-string-match-p "^//" str))
+ (if (and type (not (string= "file" type)))
(concat type ":" str)
str)))