diff options
author | Noorul Islam <noorul@noorul.com> | 2010-09-02 11:35:43 +0000 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2010-09-02 16:56:27 +0200 |
commit | bd1b57f92a33485c90db1efc407c8b7c7450993a (patch) | |
tree | b77065597ac6149f896a0a0ee685e3689af1acdf | |
parent | fc49c1ec96b2c789f573ae1ba936b930a8494402 (diff) | |
download | org-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.el | 5 |
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))) |