From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastian Rose Subject: Re: BUG ??? Cannot export custom link type to ASCII :-( Date: Mon, 06 Sep 2010 09:33:56 +0200 Message-ID: <87aanvwckb.fsf@gmx.de> References: <877hj1nf7j.fsf@gmx.de> <87mxrwxxig.fsf@gmx.de> <87fwxo12xl.fsf@gnu.org> <87k4mzx0ac.fsf@gmx.de> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from [140.186.70.92] (port=38126 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OsWDO-0000w6-KV for emacs-orgmode@gnu.org; Mon, 06 Sep 2010 03:34:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OsWDN-0005uC-Bi for emacs-orgmode@gnu.org; Mon, 06 Sep 2010 03:34:06 -0400 Received: from mailout-de.gmx.net ([213.165.64.23]:57674 helo=mail.gmx.net) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1OsWDN-0005u0-0o for emacs-orgmode@gnu.org; Mon, 06 Sep 2010 03:34:05 -0400 In-Reply-To: (Carsten Dominik's message of "Mon, 6 Sep 2010 08:19:52 +0200") 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: Carsten Dominik Cc: Emacs-orgmode mailing list , Bastien --=-=-= Carsten Dominik writes: > Hi Sebastian, > > I have just pushed the code that was needed to allow custom link > formatting for ASCII export, like you have implemented it. This was > simple an omission in the ascii exporter. > So I hope it will work now.... > > - Carsten C-c C-e A gives me: --=-=-= Content-Type: text/x-verbatim Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (void-variable type) (assoc type org-link-protocols) (nth 2 (assoc type org-link-protocols)) (setq fnc (nth 2 (assoc type org-link-protocols))) (functionp (setq fnc (nth 2 ...))) (if (functionp (setq fnc ...)) (setq rpl (or ... rpl)) (when (and desc0 .= ..) (if org-export-ascii-links-to-notes ... ...))) (if (and (> ... 8) (equal ... "coderef:")) (setq line (replace-match ... = t t line)) (setq rpl (concat "[" ... "]")) (if (functionp ...) (setq rpl ..= .) (when ... ...)) (setq line (replace-match rpl t t line))) (while (string-match org-bracket-link-regexp line) (setq link (match-stri= ng 1 line) desc0 (match-string 3 line) desc (or desc0 ...)) (if (and ... ..= .) (setq line ...) (setq rpl ...) (if ... ... ...) (setq line ...))) (while (setq line (pop lines)) (when (and link-buffer ...) (org-export-as= cii-push-links ...) (setq link-buffer nil)) (setq wrap nil) (setq line (org= -html-expand-for-ascii line)) (while (string-match org-bracket-link-regexp = line) (setq link ... desc0 ... desc ...) (if ... ... ... ... ...)) (when cu= stom-times (setq line ...)) (cond (... ... ... ...) (... ... ... ...) (t ..= . ... ... ... ...))) (let* ((opt-plist ...) (region-p ...) (rbeg ...) (rend ...) (subtree-p ..= .) (level-offset ...) (opt-plist ...) (org-current-export-dir ...) (org-cur= rent-export-file buffer-file-name) (custom-times org-display-custom-times) = (org-ascii-current-indentation ...) (level 0) line txt (umax nil) (umax-toc= nil) (case-fold-search nil) (bfname ...) (filename ...) (filename ...) (bu= ffer ...) (org-levels-open ...) (odd org-odd-levels-only) (date ...) (autho= r ...) (title ...) (email ...) (language ...) (quote-re0 ...) (todo nil) (l= ang-words nil) (region ...) (lines ...) thetoc have-headings first-heading-= pos table-open table-buffer link-buffer link desc desc0 rpl wrap fnc) (let = (...) (org-unmodified ...)) (setq org-min-level (org-get-min-level lines le= vel-offset)) (setq org-last-level org-min-level) (org-init-section-numbers)= (setq lang-words (or ... ...)) (set-buffer buffer) (erase-buffer) (fundame= ntal-mode) (org-install-letbind) (mapc (lambda ... ...) org-export-plist-va= rs) (org-set-local (quote org-odd-levels-only) odd) (setq umax (if arg ... = org-export-headline-levels)) (setq umax-toc (if ... ... umax)) (unless body= -only (when ... ... ...) (if ... ...) (cond ... ... ...) (if ... ...) (unle= ss ... ...)) (if (and org-export-with-toc ...) (progn ... ... ... ...)) (or= g-init-section-numbers) (while (setq line ...) (when ... ... ...) (setq wra= p nil) (setq line ...) (while ... ... ...) (when custom-times ...) (cond ..= . ... ...)) (org-export-ascii-push-links (nreverse link-buffer)) (normal-mo= de) (when thetoc (goto-char ...) (if ... ... ...) (mapc ... thetoc) (or ...= ...)) (goto-char (point-min)) (let (beg end) (while ... ... ... ... ...)) = (let (beg end) (goto-char ...) (while ... ... ... ... ...) (goto-char ...) = (while ... ... ... ...)) (run-hooks (quote org-export-ascii-final-hook)) (o= r to-buffer (save-buffer)) (goto-char (point-min)) (or (org-export-push-to-= kill-ring "ASCII") (message "Exporting... done")) (if (eq to-buffer ...) (p= rog1 ... ...) (current-buffer))) org-export-as-ascii(nil nil nil "*Org ASCII Export*") org-export-as-ascii-to-buffer(nil) call-interactively(org-export-as-ascii-to-buffer) (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sent= inel p ...) (message "Background process \"%s\": started" p)) (if subtree-p= (progn ... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (le= t ... ... ... ... ...))) (let* ((bg ...) subtree-p (help "[t] insert the export option template\= n[v] limit export to visible part of outline tree\n[1] only export the = current subtree\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXPOR= T_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8 [A/N/U] = to temporary buffer\n\n[h] export as HTML [H] to temporary buffer [R= ] export region\n[b] export as HTML and open in browser\n\n[l] export as La= TeX [L] to temporary buffer\n[p] export as LaTeX and process to PDF = [d] ... and open PDF file\n\n[D] export as DocBook [V] export as = DocBook, process to PDF, and open\n\n[j] export as TaskJuggler = [J] ... and open\n\n[m] export as Freemind mind map\n[x] export= as XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export cu= rrent file as iCalendar file\n[I] export all agenda files as iCalendar file= s [c] ...as one combined file\n\n[F] publish current file [P] pu= blish current project\n[X] publish a project... [E] publish every = projects") (cmds ...) r1 r2 ass (cpos ...) (cbuf ...) bpos) (save-excursion= (save-window-excursion ... ... ... ... ... ... ...)) (and bpos (goto-char = bpos)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No command = associated with key %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (if= subtree-p ...) (call-interactively ...) (when ... ...))) org-export(nil) call-interactively(org-export nil nil) --=-=-= Sebastian --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --=-=-=--