From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Andreas Goesele" Subject: Re: Re: Howto install from git under XEmacs (org-freemind problem) Date: Tue, 24 Nov 2009 16:30:11 +0100 Message-ID: <87r5roey9o.fsf@debian.IGP> References: <87r5s3waxa.fsf@debian.IGP> <6430A37C-DC01-43FA-985B-986C6517CDA2@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: Quoted-Printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NCxLG-0006kY-7w for emacs-orgmode@gnu.org; Tue, 24 Nov 2009 10:30:10 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NCxLA-0006gR-UM for emacs-orgmode@gnu.org; Tue, 24 Nov 2009 10:30:09 -0500 Received: from [199.232.76.173] (port=43819 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NCxLA-0006gC-Jh for emacs-orgmode@gnu.org; Tue, 24 Nov 2009 10:30:04 -0500 Received: from mailrelay2.lrz-muenchen.de ([129.187.254.102]:43071) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NCxL9-0003PS-QC for emacs-orgmode@gnu.org; Tue, 24 Nov 2009 10:30:04 -0500 In-Reply-To: (Lennart Borgman's message of "Sun, 15 Nov 2009 12:41:54 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Lennart Borgman Cc: org-mode mailing list , Andreas =?iso-8859-1?Q?G?= =?iso-8859-1?Q?=C3=B6sele?= , Carsten Dominik Lennart Borgman 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 n= il 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 th= is-m2 (org-trim this-m2)) (setq this-m2-escaped (freemind-escape-str-from-o= rg this-m2)) (let (...) (setq this-rich-node ...) (setq this-rich-note ...)= ) (with-current-buffer mm-buffer (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-las= t ... ...)) (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-l= ine (progn ... ... ... ... ... ... ... ...) (goto-char ...) (while ... ...)= (goto-char ...) (when ... ... ... ...)) (setq num-left-nodes (floor num-to= p2-nodes 2)) (setq base-level current-level) (let (this-m2 this-node-end th= is-children-visible next-m2 next-level next-has-some-visible-child next-chi= ldren-visible) (while ... ...) (setq this-m2 next-m2) (setq current-level n= ext-level) (setq next-node-start ...) (freemind-write-node) (with-current-b= uffer mm-buffer ...)) (with-current-buffer mm-buffer (while ... ... ...)) (= with-current-buffer mm-buffer (insert "") (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) (curre= nt-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) (ins= ert "\n") (insert "\n") (insert "\n")) (save-= excursion (goto-char ...) (while ... ...) (setq drawers-regexp ...) (if nod= e-at-line ... ... ... ... ...) (setq num-left-nodes ...) (setq base-level c= urrent-level) (let ... ... ... ... ... ... ...) (with-current-buffer mm-buf= fer ...) (with-current-buffer mm-buffer ... ... ...))) (progn (let* (... drawers-regexp ... ... ... num-left-nodes ... ... ... b= ase-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 mat= ch-data))) (save-match-data (let* (... drawers-regexp ... ... ... num-left-nodes ...= ... ... base-level prev-node-end rich-text unfinished-tag node-at-line-lev= el 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(# # nil) (let ((org-buffer ...) (mm-buffer ...)) (freemind-write-mm-buffer org-buf= fer 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-buf= fer mm-buffer ... ...))) (when (freemind-check-overwrite mm-file (called-interactively-p)) (let (.= .. ...) (freemind-write-mm-buffer org-buffer mm-buffer nil) (with-current-b= uffer mm-buffer ... ...))) (lambda (org-file mm-file) "Convert the `org-mode' file ORG-FILE to the F= reeMind file MM-FILE." (interactive (let* ... ...)) (when (freemind-check-o= verwrite 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=F6sele