From: "Andreas Goesele" <Goesele@hfph.mwn.de>
To: Lennart Borgman <lennart.borgman@gmail.com>
Cc: "org-mode mailing list" <emacs-orgmode@gnu.org>,
"Andreas Gösele" <Goesele@hfph.mwn.de>,
"Carsten Dominik" <carsten.dominik@gmail.com>
Subject: Re: Re: Howto install from git under XEmacs (org-freemind problem)
Date: Tue, 24 Nov 2009 16:30:11 +0100 [thread overview]
Message-ID: <87r5roey9o.fsf@debian.IGP> (raw)
In-Reply-To: <e01d8a50911150341i7383573fg8669d2dbc09f4ad3@mail.gmail.com> (Lennart Borgman's message of "Sun, 15 Nov 2009 12:41:54 +0100")
Lennart Borgman <lennart.borgman@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
prev parent reply other threads:[~2009-11-24 15:30 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-11-13 0:00 Howto install from git under XEmacs Andreas Goesele
2009-11-13 13:01 ` Carsten Dominik
2009-11-13 23:36 ` Howto install from git under XEmacs (org-freemind problem) Andreas Gösele
2009-11-15 11:17 ` Carsten Dominik
2009-11-15 11:41 ` Lennart Borgman
2009-11-24 15:30 ` Andreas Goesele [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87r5roey9o.fsf@debian.IGP \
--to=goesele@hfph.mwn.de \
--cc=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=lennart.borgman@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).