")) (setq text (replace-regexp-in-string (rx "\n" (0+ blank) "\n") "
\n" text))
;;(setq text (replace-regexp-in-string (rx bol (1+ blank) eol) "" text))
;;(setq text (replace-regexp-in-string (rx bol (1+ blank)) "
" text))
(setq text (replace-regexp-in-string "\n" "
" text))
(org-freemind-convert-links-from-org text)
(setq node-res (concat node-res text))
(setq node-res (concat node-res "
" "-- This is more about \"" node-name "\" --" "
" "" "" "