This is how Freedmind natively outputs the same link:
map version=0.9.0
!-- To view this file, download free mind mapping software FreeMind from
http://freemind.sourceforge.net --
node CREATED=1348041631372 ID=ID_319286743 MODIFIED=1348042704516
TEXT=Mind Map
node CREATED=1348041642465 ID=ID_207824320 LINK=http://orgmode.org;
MODIFIED=1348041668536 POSITION=right TEXT=test/
/node
/map
I am not much at reading elisp, but it seems that the following code in
org-freemind.el might be intended to achieve the above result.
(defun org-freemind-convert-links-helper (matched)
Helper for `org-freemind-convert-links-from-org'.
MATCHED is the link just matched.
(let* ((link (match-string 1 matched))
(text (match-string 2 matched))
(ext (file-name-extension link))
(col-pos (org-string-match-p : link))
(is-img (and (image-type-from-file-name link)
(let ((url-type (substring link 0 col-pos)))
(member url-type '(file http https)
)
(if is-img
;; Fix-me: I can't find a way to get the border to shrink
;; wrap around the image using div.
;;
;; (concat div style=\border: solid 1px #ddd; width:auto;\
;; img src=\ link \ alt=\ text \ /
;; br /
;; i text /i
;; /div)
(concat table border=\0\ style=\border: solid 1px
#ddd;\trtd
img src=\ link \ alt=\ text \ /
br /
i text /i
/td/tr/table)
(concat a href=\ link \ text /a
(defun org-freemind-convert-links-from-org (org-str)
Convert org links in ORG-STR to freemind links and return the result.
(let ((fm-str (replace-regexp-in-string
;;(rx (not (any [\))
;;(submatch
;; http
;; (opt ?\s)
;; ://
;; (1+
;; (any -%.?@a-zA-Z0-9()_/:~=#
[^\[]\\(http ?://[--:#%()=?-Z_a-z~]+\\)
[[\\1][\\1]]
org-str
nil ;; fixedcase
nil ;; literal
1 ;; subexp
)))
(replace-regexp-in-string
;;(rx [[
;; (submatch (*? nonl))
;; ][
;; (submatch (*? nonl))
;; ]])
\\[\\[\\(.*?\\)]\\[\\(.*?\\)]]
;;a href=\\\1\\\2/a
'org-freemind-convert-links-helper
fm-str t t)))
I am not trying to muddy the waters here, it is just that when I type a
link into org-mode, I do not seem to get a usable freemind link as a result.
On Tue, Sep 18, 2012 at 10:12 PM, Bill Day williamson@gmail.com wrote:
Sorry, yes, I mistyped -- it is org-freemind.el.
When I type:
* Mind Map
** test [[http://orgmode.org][Org Mode]]
I get this:
map version=0.9.0
!-- To view this file, download free mind mapping software FreeMind from
http://freemind.sourceforge.net --
node text=Mind Map
node text=test [[http://orgmode.org][Org Mode]]
/node
/node
/map
Is this the expected behavior?
On Tue, Sep 18, 2012 at 3:30 AM, Bastien b...@altern.org wrote:
Hi Bill,
Bill Day williamson@gmail.com writes:
I am using org-mode 7.9.1 and Freemind 0.9.0. Freemind.el seems to
convert nodes from org to Freemind with no problem, but it simply
copies the code for links from org to Freemind without converting
it.
I'm not sure i understand -- are you talking about org-freemind.el?
http://orgmode.org/w/?p=org-mode.git;a=blob_plain;f=lisp/org-freemind.el;hb=HEAD
Has anyone else had this problem?
AFAIU I don't.
This link in .org:
A [[http://orgmode.org][link]].
gets exported as
A a href=http://orgmode.org;link/a.
in .mm
HTH,
--
Bastien
--
Bill Day
williamson@gmail.com
--
Bill Day
williamson@gmail.com