Re: [Orgmode] Re: Howto install from git under XEmacs (org-freemind problem)

[Andreas Goesele]

Lennart Borgman <address@hidden> 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