Lennart Borgman <lennart.borg...@gmail.com> writes:
> Thanks, I have seen this. Is not rx available at all in XEmacs?
It isn't AFAIK.
What I don't understand: As rx is not available I had put rx.el from
Emacs into my path and require it in my init.el.
With freemind.el 0.58 this worked under org-mode 6.21b and for
freemind-to-org-mode also under 6.32trans and 6.33trans. With the
org-freemind.el included in org-mode 6.32trans and 6.33trans it
doesn't work.
Unfortunately thinks do not stop here: Neither freemind-from-org-mode
nor org-freemind-from-org-mode work now under 6.33trans. I get an
error I had with freemind.el 0.57:
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
string-match("TODO" nil)
(if (string-match "TODO" this-m2) (progn (setq this-m2 ...) (add-to-list ...
"button_cancel") (setq this-bg-color "#ffff88") (when ... ...)))
(when (string-match "TODO" this-m2) (setq this-m2 (replace-match "" nil nil
this-m2)) (add-to-list (quote this-icons) "button_cancel") (setq this-bg-color
"#ffff88") (when (string-match "\\[#\\(.\\)\\]" this-m2) (let ... ... ...)))
(let* (this-icons this-bg-color this-m2-escaped this-rich-node
this-rich-note) (when (string-match "TODO" this-m2) (setq this-m2 ...)
(add-to-list ... "button_cancel") (setq this-bg-color "#ffff88") (when ...
...)) (setq this-m2 (org-trim this-m2)) (setq this-m2-escaped
(freemind-escape-str-from-org this-m2)) (let (...) (setq this-rich-node ...)
(setq this-rich-note ...)) (with-current-buffer mm-buffer (insert "<node
text=\"" this-m2-escaped "\"") (freemind-get-node-style this-m2) (when ... ...)
(when ... ... ...) (when this-bg-color ...) (insert ">\n") (when this-icons
...)) (with-current-buffer mm-buffer (when this-rich-note ...) (when
this-rich-node ...)))
freemind-write-node()
(let (this-m2 this-node-end this-children-visible next-m2 next-level
next-has-some-visible-child next-children-visible) (while (and ... ...) (let*
... ... ... ... ... ... ... ... ... ... ... ... ...)) (setq this-m2 next-m2)
(setq current-level next-level) (setq next-node-start (if node-at-line-last ...
...)) (freemind-write-node) (with-current-buffer mm-buffer (insert
"</node>\n")))
(save-excursion (goto-char (point-min)) (while (re-search-forward ... nil t)
(let ... ...)) (setq drawers-regexp (concat ... ... ...)) (if node-at-line
(progn ... ... ... ... ... ... ... ...) (goto-char ...) (while ... ...)
(goto-char ...) (when ... ... ... ...)) (setq num-left-nodes (floor
num-top2-nodes 2)) (setq base-level current-level) (let (this-m2 this-node-end
this-children-visible next-m2 next-level next-has-some-visible-child
next-children-visible) (while ... ...) (setq this-m2 next-m2) (setq
current-level next-level) (setq next-node-start ...) (freemind-write-node)
(with-current-buffer mm-buffer ...)) (with-current-buffer mm-buffer (while ...
... ...)) (with-current-buffer mm-buffer (insert "</map>")
(delete-trailing-whitespace) (goto-char ...)))
(let* ((drawers ...) drawers-regexp (node-pattern ...) (num-top1-nodes 0)
(num-top2-nodes 0) num-left-nodes (unclosed-nodes 0) (first-time t)
(current-level 1) base-level prev-node-end rich-text unfinished-tag
node-at-line-level node-at-line-last) (with-current-buffer mm-buffer
(erase-buffer) (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 (goto-char ...) (while ... ...) (setq drawers-regexp ...) (if
node-at-line ... ... ... ... ...) (setq num-left-nodes ...) (setq base-level
current-level) (let ... ... ... ... ... ... ...) (with-current-buffer mm-buffer
...) (with-current-buffer mm-buffer ... ... ...)))
(progn (let* (... drawers-regexp ... ... ... num-left-nodes ... ... ...
base-level prev-node-end rich-text unfinished-tag node-at-line-level
node-at-line-last) (with-current-buffer mm-buffer ... ... ... ...)
(save-excursion ... ... ... ... ... ... ... ... ...)))
(unwind-protect (progn (let* ... ... ...)) (store-match-data match-data))
(let ((match-data ...)) (unwind-protect (progn ...) (store-match-data
match-data)))
(save-match-data (let* (... drawers-regexp ... ... ... num-left-nodes ... ...
... base-level prev-node-end rich-text unfinished-tag node-at-line-level
node-at-line-last) (with-current-buffer mm-buffer ... ... ... ...)
(save-excursion ... ... ... ... ... ... ... ... ...)))
(save-current-buffer (set-buffer org-buffer) (dolist (node-style
freemind-node-styles) (when ... ...)) (save-match-data (let* ... ... ...)))
(with-current-buffer org-buffer (dolist (node-style freemind-node-styles)
(when ... ...)) (save-match-data (let* ... ... ...)))
freemind-write-mm-buffer(#<buffer "Testnote22.mm.org"> #<buffer
"Testnote22.mm.org.mm"> nil)
(let ((org-buffer ...) (mm-buffer ...)) (freemind-write-mm-buffer org-buffer
mm-buffer nil) (with-current-buffer mm-buffer (basic-save-buffer) (when ... ...
...)))
(if (freemind-check-overwrite mm-file (called-interactively-p)) (let (...
...) (freemind-write-mm-buffer org-buffer mm-buffer nil) (with-current-buffer
mm-buffer ... ...)))
(when (freemind-check-overwrite mm-file (called-interactively-p)) (let (...
...) (freemind-write-mm-buffer org-buffer mm-buffer nil) (with-current-buffer
mm-buffer ... ...)))
(lambda (org-file mm-file) "Convert the `org-mode' file ORG-FILE to the
FreeMind file MM-FILE." (interactive (let* ... ...)) (when
(freemind-check-overwrite mm-file ...) (let ... ...
...)))("/home/user/Testnote22.mm.org" "~/Testnote22.mm.org.mm")
call-interactively(freemind-from-org-mode)
command-execute(freemind-from-org-mode t)
execute-extended-command(nil)
call-interactively(execute-extended-command)
Thanks
Andreas Gösele
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
