forked from mirrors/org-mode
Update freemind converter
* lisp/org-macs.el (org-called-interactively-p): New macro. * lisp/org-freemind.el: No longer require 'rx. (org-freemind): New customization group, use it for all the variables. (org-export-as-freemind): Add docstring. (org-freemind-show): Improve filen naming. (org-freemind-convert-links-helper): New function. (org-freemind-bol-helper-base-indent): New variable. (org-freemind-bol-helper): New function. (org-freemind-node-css-style): New option. (org-freemind-node-pattern): New variable. (org-freemind-from-org-mode): Better docstring.
This commit is contained in:
Carsten Dominik
parent
e85eee0624
commit
cee354c5b4
|
|
@ -81,31 +81,35 @@
|
|||
|
||||
(require 'xml)
|
||||
(require 'org)
|
||||
(require 'rx)
|
||||
;(require 'rx)
|
||||
(require 'org-exp)
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(defgroup org-freemind nil
|
||||
"Customization group for org-freemind export/import."
|
||||
:group 'org)
|
||||
|
||||
;; Fix-me: I am not sure these are useful:
|
||||
;;
|
||||
;; (defcustom org-freemind-main-fgcolor "black"
|
||||
;; "Color of main node's text."
|
||||
;; :type 'color
|
||||
;; :group 'freemind)
|
||||
;; :group 'org-freemind)
|
||||
|
||||
;; (defcustom org-freemind-main-color "black"
|
||||
;; "Background color of main node."
|
||||
;; :type 'color
|
||||
;; :group 'freemind)
|
||||
;; :group 'org-freemind)
|
||||
|
||||
;; (defcustom org-freemind-child-fgcolor "black"
|
||||
;; "Color of child nodes' text."
|
||||
;; :type 'color
|
||||
;; :group 'freemind)
|
||||
;; :group 'org-freemind)
|
||||
|
||||
;; (defcustom org-freemind-child-color "black"
|
||||
;; "Background color of child nodes."
|
||||
;; :type 'color
|
||||
;; :group 'freemind)
|
||||
;; :group 'org-freemind)
|
||||
|
||||
(defvar org-freemind-node-style nil "Internal use.")
|
||||
|
||||
|
|
@ -152,11 +156,25 @@ NOT READY YET."
|
|||
(string :tag "Font name" :value "SansSerif"))
|
||||
(list :format "%v" (const :format "" font-size)
|
||||
(integer :tag "Font size" :value 12)))))))
|
||||
:group 'freemind)
|
||||
:group 'org-freemind)
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export-as-freemind (arg &optional hidden ext-plist
|
||||
(defun org-export-as-freemind (&optional hidden ext-plist
|
||||
to-buffer body-only pub-dir)
|
||||
"Export the current buffer as a Freemind file.
|
||||
If there is an active region, export only the region. HIDDEN is
|
||||
obsolete and does nothing. EXT-PLIST is a property list with
|
||||
external parameters overriding org-mode's default settings, but
|
||||
still inferior to file-local settings. When TO-BUFFER is
|
||||
non-nil, create a buffer with that name and export to that
|
||||
buffer. If TO-BUFFER is the symbol `string', don't leave any
|
||||
buffer behind but just return the resulting HTML as a string.
|
||||
When BODY-ONLY is set, don't produce the file header and footer,
|
||||
simply return the content of the document (all top level
|
||||
sections). When PUB-DIR is set, use this as the publishing
|
||||
directory.
|
||||
|
||||
See `org-freemind-from-org-mode' for more information."
|
||||
(interactive "P")
|
||||
(let* ((opt-plist (org-combine-plists (org-default-export-plist)
|
||||
ext-plist
|
||||
|
|
@ -196,14 +214,27 @@ NOT READY YET."
|
|||
|
||||
;;;###autoload
|
||||
(defun org-freemind-show (mm-file)
|
||||
"Show file MM-FILE in FreeMind."
|
||||
"Show file MM-FILE in Freemind."
|
||||
(interactive
|
||||
(list
|
||||
(save-match-data
|
||||
(let ((name (read-file-name "FreeMind file: "
|
||||
nil nil nil
|
||||
(if (buffer-file-name)
|
||||
(file-name-nondirectory (buffer-file-name))
|
||||
(let* ((name-ext (file-name-nondirectory (buffer-file-name)))
|
||||
(name (file-name-sans-extension name-ext))
|
||||
(ext (file-name-extension name-ext)))
|
||||
(cond
|
||||
((string= "mm" ext)
|
||||
name-ext)
|
||||
((string= "org" ext)
|
||||
(let ((name-mm (concat name ".mm")))
|
||||
(if (file-exists-p name-mm)
|
||||
name-mm
|
||||
(message "Not exported to Freemind format yet")
|
||||
"")))
|
||||
(t
|
||||
"")))
|
||||
"")
|
||||
;; Fix-me: Is this an Emacs bug?
|
||||
;; This predicate function is never
|
||||
|
|
@ -227,7 +258,7 @@ The characters \"&<> will be escaped."
|
|||
(dolist (cc chars)
|
||||
(setq fm-str
|
||||
(concat fm-str
|
||||
(if (< cc 256)
|
||||
(if (< cc 160)
|
||||
(cond
|
||||
((= cc ?\") """)
|
||||
((= cc ?\&) "&")
|
||||
|
|
@ -265,52 +296,84 @@ will also unescape &#nn;."
|
|||
)))
|
||||
org-str))))
|
||||
|
||||
;; (org-freemind-test-escape)
|
||||
(defun org-freemind-test-escape ()
|
||||
(let* ((str1 "a quote: \", an amp: &, lt: <; over 256: öåäÖÅÄ")
|
||||
(str2 (org-freemind-escape-str-from-org str1))
|
||||
(str3 (org-freemind-unescape-str-to-org str2))
|
||||
;; (let* ((str1 "a quote: \", an amp: &, lt: <; over 256: öåäÖÅÄ")
|
||||
;; (str2 (org-freemind-escape-str-from-org str1))
|
||||
;; (str3 (org-freemind-unescape-str-to-org str2)))
|
||||
;; (unless (string= str1 str3)
|
||||
;; (error "Error str3=%s" str3)))
|
||||
|
||||
(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 (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")))))
|
||||
)
|
||||
(unless (string= str1 str3)
|
||||
(error "str3=%s" str3))
|
||||
))
|
||||
(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;\"><tr><td>"
|
||||
"<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."
|
||||
"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()_/:~=&#"))))
|
||||
;;(rx (not (any "[\""))
|
||||
;; (submatch
|
||||
;; "http"
|
||||
;; (opt ?\s)
|
||||
;; "://"
|
||||
;; (1+
|
||||
;; (any "-%.?@a-zA-Z0-9()_/:~=&#"))))
|
||||
"[^\"[]\\(http ?://[--:#%&()=?-Z_a-z~]+\\)"
|
||||
"[[\\1][\\1]]"
|
||||
org-str)))
|
||||
(replace-regexp-in-string (rx "[["
|
||||
(submatch (*? nonl))
|
||||
"]["
|
||||
(submatch (*? nonl))
|
||||
"]]")
|
||||
"<a href=\"\\1\">\\2</a>"
|
||||
fm-str)))
|
||||
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)))
|
||||
|
||||
;;(org-freemind-convert-links-to-org "<a href=\"http://www.somewhere/\">link-text</a>")
|
||||
(defun org-freemind-convert-links-to-org (fm-str)
|
||||
"Convert FreeMind links in FM-STR to org links and return the result."
|
||||
"Convert freemind links in FM-STR to org links and return the result."
|
||||
(let ((org-str (replace-regexp-in-string
|
||||
(rx "<a"
|
||||
space
|
||||
(0+
|
||||
(0+ (not (any ">")))
|
||||
space)
|
||||
"href=\""
|
||||
(submatch (0+ (not (any "\""))))
|
||||
"\""
|
||||
(0+ (not (any ">")))
|
||||
">"
|
||||
(submatch (0+ (not (any "<"))))
|
||||
"</a>")
|
||||
;;(rx "<a"
|
||||
;; space
|
||||
;; (0+
|
||||
;; (0+ (not (any ">")))
|
||||
;; space)
|
||||
;; "href=\""
|
||||
;; (submatch (0+ (not (any "\""))))
|
||||
;; "\""
|
||||
;; (0+ (not (any ">")))
|
||||
;; ">"
|
||||
;; (submatch (0+ (not (any "<"))))
|
||||
;; "</a>")
|
||||
"<a[[:space:]]\\(?:[^>]*[[:space:]]\\)*href=\"\\([^\"]*\\)\"[^>]*>\\([^<]*\\)</a>"
|
||||
"[[\\1][\\2]]"
|
||||
fm-str)))
|
||||
org-str))
|
||||
|
|
@ -319,35 +382,66 @@ will also unescape &#nn;."
|
|||
;;(defun org-freemind-convert-drawers-from-org (text)
|
||||
;; )
|
||||
|
||||
;; (org-freemind-test-links)
|
||||
;; (defun org-freemind-test-links ()
|
||||
;; (let* ((str1 "[[http://www.somewhere/][link-text]")
|
||||
;; (str2 (org-freemind-convert-links-from-org str1))
|
||||
;; (str3 (org-freemind-convert-links-to-org str2))
|
||||
;; )
|
||||
;; (str3 (org-freemind-convert-links-to-org str2)))
|
||||
;; (unless (string= str1 str3)
|
||||
;; (error "str3=%s" str3))
|
||||
;; ))
|
||||
;; (error "Error str3=%s" str3)))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;; Org => FreeMind
|
||||
|
||||
(defvar org-freemind-bol-helper-base-indent nil)
|
||||
|
||||
(defun org-freemind-bol-helper (matched)
|
||||
"Helper for `org-freemind-convert-text-p'.
|
||||
MATCHED is the link just matched."
|
||||
(let ((res "")
|
||||
(bi org-freemind-bol-helper-base-indent))
|
||||
(dolist (cc (append matched nil))
|
||||
(if (= 32 cc)
|
||||
;;(setq res (concat res " "))
|
||||
;; We need to use the numerical version. Otherwise Freemind
|
||||
;; ver 0.9.0 RC9 can not export to html/javascript.
|
||||
(progn
|
||||
(if (< 0 bi)
|
||||
(setq bi (1- bi))
|
||||
(setq res (concat res " "))))
|
||||
(setq res (concat res (char-to-string cc)))))
|
||||
res))
|
||||
;; (setq x (replace-regexp-in-string "\n +" 'org-freemind-bol-nbsp-helper "\n "))
|
||||
|
||||
(defun org-freemind-convert-text-p (text)
|
||||
"Convert TEXT to html with <p> paragraphs."
|
||||
;; (string-match-p "[^ ]" " a")
|
||||
(setq org-freemind-bol-helper-base-indent (string-match-p "[^ ]" text))
|
||||
(setq text (org-freemind-escape-str-from-org text))
|
||||
(setq text (replace-regexp-in-string (rx "\n" (0+ blank) "\n") "</p><p>\n" text))
|
||||
;;(setq text (replace-regexp-in-string (rx bol (1+ blank) eol) "" text))
|
||||
;;(setq text (replace-regexp-in-string (rx bol (1+ blank)) "<br />" text))
|
||||
|
||||
(setq text (replace-regexp-in-string "\\([[:space:]]\\)\\(/\\)\\([^/]+\\)\\(/\\)\\([[:space:]]\\)" "\\1<i>\\3</i>\\5" text))
|
||||
(setq text (replace-regexp-in-string "\\([[:space:]]\\)\\(\*\\)\\([^*]+\\)\\(\*\\)\\([[:space:]]\\)" "\\1<b>\\3</b>\\5" text))
|
||||
|
||||
(setq text (concat "<p>" text))
|
||||
(setq text (replace-regexp-in-string "\n[[:blank:]]*\n" "</p><p>" text))
|
||||
(setq text (replace-regexp-in-string "\\(?:<p>\\|\n\\) +" 'org-freemind-bol-helper text))
|
||||
(setq text (replace-regexp-in-string "\n" "<br />" text))
|
||||
(concat "<p>"
|
||||
(org-freemind-convert-links-from-org text)
|
||||
"</p>\n"))
|
||||
(setq text (concat text "</p>"))
|
||||
|
||||
(org-freemind-convert-links-from-org text))
|
||||
|
||||
(defcustom org-freemind-node-css-style
|
||||
"p { margin-top: 3px; margin-bottom: 3px; }"
|
||||
"CSS style for Freemind nodes."
|
||||
;; Fix-me: I do not understand this. It worked to export from Freemind
|
||||
;; with this setting now, but not before??? Was this perhaps a java
|
||||
;; bug or is it a windows xp bug (some resource gets exhausted if you
|
||||
;; use sticky keys which I do).
|
||||
:group 'org-freemind)
|
||||
|
||||
(defun org-freemind-org-text-to-freemind-subnode/note (node-name start end drawers-regexp)
|
||||
"Convert text part of org node to FreeMind subnode or note.
|
||||
Convert the text part of the org node named NODE-NAME. The text
|
||||
is in the current buffer between START and END. Drawers matching
|
||||
DRAWERS-REGEXP are converted to FreeMind notes."
|
||||
"Convert text part of org node to freemind subnode or note.
|
||||
Convert the text part of the org node named NODE-NAME. The text
|
||||
is in the current buffer between START and END. Drawers matching
|
||||
DRAWERS-REGEXP are converted to freemind notes."
|
||||
;; fix-me: doc
|
||||
(let ((text (buffer-substring-no-properties start end))
|
||||
(node-res "")
|
||||
|
|
@ -390,11 +484,14 @@ DRAWERS-REGEXP are converted to FreeMind notes."
|
|||
"<node style=\"bubble\" background_color=\"#eeee00\">\n"
|
||||
"<richcontent TYPE=\"NODE\"><html>\n"
|
||||
"<head>\n"
|
||||
(if (= 0 (length org-freemind-node-css-style))
|
||||
""
|
||||
(concat
|
||||
"<style type=\"text/css\">\n"
|
||||
"<!--\n"
|
||||
"p { margin-top: 0 }\n"
|
||||
org-freemind-node-css-style
|
||||
"-->\n"
|
||||
"</style>\n"
|
||||
"</style>\n"))
|
||||
"</head>\n"
|
||||
"<body>\n"))
|
||||
(let ((begin-html-mark (regexp-quote "#+BEGIN_HTML"))
|
||||
|
|
@ -427,21 +524,28 @@ DRAWERS-REGEXP are converted to FreeMind notes."
|
|||
"</html>\n"
|
||||
"</richcontent>\n"
|
||||
;; Put a note that this is for the parent node
|
||||
"<richcontent TYPE=\"NOTE\"><html>"
|
||||
"<head>"
|
||||
"</head>"
|
||||
"<body>"
|
||||
"<p>"
|
||||
"-- This is more about \"" node-name "\" --"
|
||||
"</p>"
|
||||
"</body>"
|
||||
"</html>"
|
||||
"</richcontent>\n"
|
||||
;; "<richcontent TYPE=\"NOTE\"><html>"
|
||||
;; "<head>"
|
||||
;; "</head>"
|
||||
;; "<body>"
|
||||
;; "<p>"
|
||||
;; "-- This is more about \"" node-name "\" --"
|
||||
;; "</p>"
|
||||
;; "</body>"
|
||||
;; "</html>"
|
||||
;; "</richcontent>\n"
|
||||
note-res
|
||||
"</node>\n" ;; ok
|
||||
)))
|
||||
(list node-res note-res))))
|
||||
|
||||
(defun org-freemind-write-node (mm-buffer drawers-regexp num-left-nodes base-level current-level next-level this-m2 this-node-end this-children-visible next-node-start next-has-some-visible-child)
|
||||
(defun org-freemind-write-node (mm-buffer drawers-regexp
|
||||
num-left-nodes base-level
|
||||
current-level next-level this-m2
|
||||
this-node-end
|
||||
this-children-visible
|
||||
next-node-start
|
||||
next-has-some-visible-child)
|
||||
(let* (this-icons
|
||||
this-bg-color
|
||||
this-m2-escaped
|
||||
|
|
@ -503,7 +607,7 @@ DRAWERS-REGEXP are converted to FreeMind notes."
|
|||
(insert "<icon builtin=\"" icon "\"/>\n")))
|
||||
)
|
||||
(with-current-buffer mm-buffer
|
||||
(when this-rich-note (insert this-rich-note))
|
||||
;;(when this-rich-note (insert this-rich-note))
|
||||
(when this-rich-node (insert this-rich-node))))
|
||||
num-left-nodes)
|
||||
|
||||
|
|
@ -521,11 +625,13 @@ Otherwise give an error say the file exists."
|
|||
(error "File %s already exists" file))
|
||||
t))
|
||||
|
||||
(defvar org-freemind-node-pattern (rx bol
|
||||
(submatch (1+ "*"))
|
||||
(1+ space)
|
||||
(submatch (*? nonl))
|
||||
eol))
|
||||
(defvar org-freemind-node-pattern
|
||||
;;(rx bol
|
||||
;; (submatch (1+ "*"))
|
||||
;; (1+ space)
|
||||
;; (submatch (*? nonl))
|
||||
;; eol)
|
||||
"^\\(\\*+\\)[[:space:]]+\\(.*?\\)$")
|
||||
|
||||
(defun org-freemind-look-for-visible-child (node-level)
|
||||
(save-excursion
|
||||
|
|
@ -552,7 +658,7 @@ Otherwise give an error say the file exists."
|
|||
(defun org-freemind-write-mm-buffer (org-buffer mm-buffer node-at-line)
|
||||
(with-current-buffer org-buffer
|
||||
(dolist (node-style org-freemind-node-styles)
|
||||
(when (org-string-match-p (car node-style) buffer-file-name)
|
||||
(when (string-match-p (car node-style) buffer-file-name)
|
||||
(setq org-freemind-node-style (cadr node-style))))
|
||||
;;(message "org-freemind-node-style =%s" org-freemind-node-style)
|
||||
(save-match-data
|
||||
|
|
@ -573,27 +679,31 @@ Otherwise give an error say the file exists."
|
|||
node-at-line-last)
|
||||
(with-current-buffer mm-buffer
|
||||
(erase-buffer)
|
||||
(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n")
|
||||
(setq buffer-file-coding-system 'utf-8)
|
||||
;; Fix-me: Currentl Freemind (ver 0.9.0 RC9) does not support this:
|
||||
;;(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n")
|
||||
(insert "<map version=\"0.9.0\">\n")
|
||||
(insert "<!-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net -->\n"))
|
||||
(save-excursion
|
||||
;; Get special buffer vars:
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward (rx bol "#+DRAWERS:") nil t)
|
||||
(message "Writing Freemind file...")
|
||||
(while (re-search-forward "^#\\+DRAWERS:" nil t)
|
||||
(let ((dr-txt (buffer-substring-no-properties (match-end 0) (line-end-position))))
|
||||
(setq drawers (append drawers (split-string dr-txt) nil))))
|
||||
(setq drawers-regexp
|
||||
(concat (rx bol (0+ blank) ":")
|
||||
(concat "^[[:blank:]]*:"
|
||||
(regexp-opt drawers)
|
||||
(rx ":" (0+ blank)
|
||||
"\n"
|
||||
(*? anything)
|
||||
"\n"
|
||||
(0+ blank)
|
||||
":END:"
|
||||
(0+ blank)
|
||||
eol)
|
||||
))
|
||||
;;(rx ":" (0+ blank)
|
||||
;; "\n"
|
||||
;; (*? anything)
|
||||
;; "\n"
|
||||
;; (0+ blank)
|
||||
;; ":END:"
|
||||
;; (0+ blank)
|
||||
;; eol)
|
||||
":[[:blank:]]*\n\\(?:.\\|\n\\)*?\n[[:blank:]]*:END:[[:blank:]]*$"
|
||||
))
|
||||
|
||||
(if node-at-line
|
||||
;; Get number of top nodes and last line for this node
|
||||
|
|
@ -725,7 +835,7 @@ Otherwise give an error say the file exists."
|
|||
(dolist (style-list org-freemind-node-style)
|
||||
(let ((node-regexp (car style-list)))
|
||||
(message "node-regexp=%s node-name=%s" node-regexp node-name)
|
||||
(when (org-string-match-p node-regexp node-name)
|
||||
(when (string-match-p node-regexp node-name)
|
||||
;;(setq node-style (org-freemind-do-apply-node-style style-list))
|
||||
(setq node-style (cadr style-list))
|
||||
(when node-style
|
||||
|
|
@ -795,7 +905,8 @@ Otherwise give an error say the file exists."
|
|||
|
||||
;;;###autoload
|
||||
(defun org-freemind-from-org-mode-node (node-line mm-file)
|
||||
"Convert node at line NODE-LINE to the FreeMind file MM-FILE."
|
||||
"Convert node at line NODE-LINE to the FreeMind file MM-FILE.
|
||||
See `org-freemind-from-org-mode' for more information."
|
||||
(interactive
|
||||
(progn
|
||||
(unless (org-back-to-heading nil)
|
||||
|
|
@ -808,20 +919,29 @@ Otherwise give an error say the file exists."
|
|||
".mm"))
|
||||
(mm-file (read-file-name "Output FreeMind file: " nil nil nil default-mm-file)))
|
||||
(list line mm-file))))
|
||||
(when (org-freemind-check-overwrite mm-file (interactive-p))
|
||||
(when (org-freemind-check-overwrite mm-file (org-called-interactively-p 'any))
|
||||
(let ((org-buffer (current-buffer))
|
||||
(mm-buffer (find-file-noselect mm-file)))
|
||||
(org-freemind-write-mm-buffer org-buffer mm-buffer node-line)
|
||||
(with-current-buffer mm-buffer
|
||||
(basic-save-buffer)
|
||||
(when (interactive-p)
|
||||
(when (org-called-interactively-p 'any)
|
||||
(switch-to-buffer-other-window mm-buffer)
|
||||
(when (y-or-n-p "Show in FreeMind? ")
|
||||
(org-freemind-show buffer-file-name)))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-freemind-from-org-mode (org-file mm-file)
|
||||
"Convert the `org-mode' file ORG-FILE to the FreeMind file MM-FILE."
|
||||
"Convert the `org-mode' file ORG-FILE to the FreeMind file MM-FILE.
|
||||
All the nodes will be opened or closed in Freemind just as you
|
||||
have them in `org-mode'.
|
||||
|
||||
Note that exporting to Freemind also gives you an alternative way
|
||||
to export from `org-mode' to html. You can create a dynamic html
|
||||
version of the your org file, by first exporting to Freemind and
|
||||
then exporting from Freemind to html. The 'As
|
||||
XHTML (JavaScript)' version in Freemind works very well \(and you
|
||||
can use a CSS stylesheet to style it)."
|
||||
;; Fix-me: better doc, include recommendations etc.
|
||||
(interactive
|
||||
(let* ((org-file buffer-file-name)
|
||||
|
|
@ -832,13 +952,13 @@ Otherwise give an error say the file exists."
|
|||
".mm"))
|
||||
(mm-file (read-file-name "Output FreeMind file: " nil nil nil default-mm-file)))
|
||||
(list org-file mm-file)))
|
||||
(when (org-freemind-check-overwrite mm-file (interactive-p))
|
||||
(when (org-freemind-check-overwrite mm-file (org-called-interactively-p 'any))
|
||||
(let ((org-buffer (if org-file (find-file-noselect org-file) (current-buffer)))
|
||||
(mm-buffer (find-file-noselect mm-file)))
|
||||
(org-freemind-write-mm-buffer org-buffer mm-buffer nil)
|
||||
(with-current-buffer mm-buffer
|
||||
(basic-save-buffer)
|
||||
(when (interactive-p)
|
||||
(when (org-called-interactively-p 'any)
|
||||
(switch-to-buffer-other-window mm-buffer)
|
||||
(when (y-or-n-p "Show in FreeMind? ")
|
||||
(org-freemind-show buffer-file-name)))))))
|
||||
|
|
@ -855,7 +975,7 @@ Otherwise give an error say the file exists."
|
|||
"-sparse.mm"))
|
||||
(mm-file (read-file-name "Output FreeMind file: " nil nil nil default-mm-file)))
|
||||
(list (current-buffer) mm-file)))
|
||||
(when (org-freemind-check-overwrite mm-file (interactive-p))
|
||||
(when (org-freemind-check-overwrite mm-file (org-called-interactively-p 'any))
|
||||
(let (org-buffer
|
||||
(mm-buffer (find-file-noselect mm-file)))
|
||||
(save-window-excursion
|
||||
|
|
@ -864,7 +984,7 @@ Otherwise give an error say the file exists."
|
|||
(org-freemind-write-mm-buffer org-buffer mm-buffer nil)
|
||||
(with-current-buffer mm-buffer
|
||||
(basic-save-buffer)
|
||||
(when (interactive-p)
|
||||
(when (org-called-interactively-p 'any)
|
||||
(switch-to-buffer-other-window mm-buffer)
|
||||
(when (y-or-n-p "Show in FreeMind? ")
|
||||
(org-freemind-show buffer-file-name)))))))
|
||||
|
|
@ -1019,7 +1139,7 @@ PATH should be a list of steps, where each step has the form
|
|||
(save-match-data
|
||||
(let* ((rc (org-freemind-get-richcontent-node node))
|
||||
(txt (org-freemind-get-tree-text rc)))
|
||||
;;(when txt (setq txt (replace-regexp-in-string (rx (1+ whitespace)) " " txt)))
|
||||
;;(when txt (setq txt (replace-regexp-in-string "[[:space:]]+" " " txt)))
|
||||
txt
|
||||
)))
|
||||
|
||||
|
|
@ -1028,7 +1148,7 @@ PATH should be a list of steps, where each step has the form
|
|||
(save-match-data
|
||||
(let* ((rc (org-freemind-get-richcontent-note node))
|
||||
(txt (when rc (org-freemind-get-tree-text rc))))
|
||||
;;(when txt (setq txt (replace-regexp-in-string (rx (1+ whitespace)) " " txt)))
|
||||
;;(when txt (setq txt (replace-regexp-in-string "[[:space:]]+" " " txt)))
|
||||
txt
|
||||
)))
|
||||
|
||||
|
|
@ -1044,6 +1164,7 @@ PATH should be a list of steps, where each step has the form
|
|||
(let ((qname (car node))
|
||||
(attributes (cadr node))
|
||||
text
|
||||
;; Fix-me: note is never inserted
|
||||
(note (org-freemind-get-richcontent-note-text node))
|
||||
(mark "-- This is more about ")
|
||||
(icons (org-freemind-get-icon-names node))
|
||||
|
|
@ -1074,6 +1195,8 @@ PATH should be a list of steps, where each step has the form
|
|||
(case qname
|
||||
('node
|
||||
(insert (make-string (- level skip-levels) ?*) " " text "\n")
|
||||
(when note
|
||||
(insert ":COMMENT:\n" note "\n:END:\n"))
|
||||
))))
|
||||
(dolist (child children)
|
||||
(unless (or (null child)
|
||||
|
|
@ -1091,7 +1214,7 @@ PATH should be a list of steps, where each step has the form
|
|||
(default-org-file (concat (file-name-nondirectory mm-file) ".org"))
|
||||
(org-file (read-file-name "Output org-mode file: " nil nil nil default-org-file)))
|
||||
(list mm-file org-file))))
|
||||
(when (org-freemind-check-overwrite org-file (interactive-p))
|
||||
(when (org-freemind-check-overwrite org-file (org-called-interactively-p 'any))
|
||||
(let ((mm-buffer (find-file-noselect mm-file))
|
||||
(org-buffer (find-file-noselect org-file)))
|
||||
(with-current-buffer mm-buffer
|
||||
|
|
@ -1100,7 +1223,7 @@ PATH should be a list of steps, where each step has the form
|
|||
(note (org-freemind-get-richcontent-note-text top-node))
|
||||
(skip-levels
|
||||
(if (and note
|
||||
(string-match (rx bol "--org-mode: WHOLE FILE" eol) note))
|
||||
(string-match "^--org-mode: WHOLE FILE$" note))
|
||||
1
|
||||
0)))
|
||||
(with-current-buffer org-buffer
|
||||
|
|
|
|||
|
|
@ -40,6 +40,15 @@
|
|||
(declare-function org-add-props "org-compat" (string plist &rest props))
|
||||
(declare-function org-string-match-p "org-compat" (&rest args))
|
||||
|
||||
(defmacro org-called-interactively-p (&optional kind)
|
||||
`(if (featurep 'xemacs)
|
||||
(interactive-p)
|
||||
(if (or (> emacs-major-version 23)
|
||||
(and (>= emacs-major-version 23)
|
||||
(>= emacs-minor-version 2)))
|
||||
(called-interactively-p ,kind)
|
||||
(interactive-p))))
|
||||
|
||||
(defmacro org-bound-and-true-p (var)
|
||||
"Return the value of symbol VAR if it is bound, else nil."
|
||||
`(and (boundp (quote ,var)) ,var))
|
||||
|
|
|
|||
Loading…
Reference in New Issue