daniel/ox-rst
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix fuzzy link targets format

Browse Source
This commit is contained in:
IGARASHI Masanao
2015-04-16 14:27:24 +09:00
parent 18a427bd78
commit e709e4ad4d
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ox-rst.el
View File

@@ -1050,7 +1050,8 @@ INFO is a plist holding contextual information."
(funcall link-org-files-as-html-maybe raw-path info)) (funcall link-org-files-as-html-maybe raw-path info))
(cond ((and home use-abs-url) (cond ((and home use-abs-url)
(setq raw-path (setq raw-path
(concat (file-name-as-directory home) raw-path))))) (concat (file-name-as-directory home) raw-path)))
(t raw-path)))
(t raw-path))) (t raw-path)))
;; Extract attributes from parent's paragraph. HACK: Only do ;; Extract attributes from parent's paragraph. HACK: Only do
;; this for the first link in parent (inner image link for ;; this for the first link in parent (inner image link for
@@ -1144,9 +1145,10 @@ INFO is a plist holding contextual information."
;; External link with a description part. ;; External link with a description part.
((and path desc) (format "`%s <%s>`_" desc path)) ((and path desc) (format "`%s <%s>`_" desc path))
;; External link without a description part. ;; External link without a description part.
(path (format "`%s`_" path)) (path (format "`%s <%s>`_"
(replace-regexp-in-string "^//" "" path) path))
;; No path, only description. Try to do something useful. ;; No path, only description. Try to do something useful.
(t (format "`%s`_" desc))))) (t (format "`%s <%s>`_" desc desc)))))
;;;; Node Property ;;;; Node Property