Re: [Orgmode] BUG ??? Cannot export custom link type to ASCII :-(

[Sebastian Rose]

Carsten Dominik <address@hidden> 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:

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-string 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-ascii-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 custom-times (setq line ...)) (cond (... ... ... ...) (... 
... ... ...) (t ... ... ... ... ...)))
  (let* ((opt-plist ...) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) 
(level-offset ...) (opt-plist ...) (org-current-export-dir ...) 
(org-current-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 ...) (buffer ...) (org-levels-open ...) (odd 
org-odd-levels-only) (date ...) (author ...) (title ...) (email ...) (language 
...) (quote-re0 ...) (todo nil) (lang-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 level-offset)) (setq org-last-level org-min-level) 
(org-init-section-numbers) (setq lang-words (or ... ...)) (set-buffer buffer) 
(erase-buffer) (fundamental-mode) (org-install-letbind) (mapc (lambda ... ...) 
org-export-plist-vars) (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 ... 
...) (unless ... ...)) (if (and org-export-with-toc ...) (progn ... ... ... 
...)) (org-init-section-numbers) (while (setq line ...) (when ... ... ...) 
(setq wrap nil) (setq line ...) (while ... ... ...) (when custom-times ...) 
(cond ... ... ...)) (org-export-ascii-push-links (nreverse link-buffer)) 
(normal-mode) (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)) 
(or to-buffer (save-buffer)) (goto-char (point-min)) (or 
(org-export-push-to-kill-ring "ASCII") (message "Exporting... done")) (if (eq 
to-buffer ...) (prog1 ... ...) (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-sentinel 
p ...) (message "Background process \"%s\": started" p)) (if subtree-p (progn 
... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (let ... ... 
... ... ...)))
  (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 EXPORT_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 LaTeX     [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 current file as iCalendar 
file\n[I] export all agenda files as iCalendar files   [c] ...as one combined 
file\n\n[F] publish current file          [P] publish 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