From: Sebastian Rose <sebastian_rose@gmx.de>
To: Carsten Dominik <carsten.dominik@gmail.com>
Cc: Emacs-orgmode mailing list <emacs-orgmode@gnu.org>,
Bastien <bastien.guerry@wikimedia.fr>
Subject: Re: BUG ??? Cannot export custom link type to ASCII :-(
Date: Mon, 06 Sep 2010 09:33:56 +0200 [thread overview]
Message-ID: <87aanvwckb.fsf@gmx.de> (raw)
In-Reply-To: <AANLkTi=rryB1Hshz_oS31TAEZrQawTu9VPQwDmcuSHqp@mail.gmail.com> (Carsten Dominik's message of "Mon, 6 Sep 2010 08:19:52 +0200")
[-- Attachment #1: Type: text/plain, Size: 324 bytes --]
Carsten Dominik <carsten.dominik@gmail.com> 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:
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-verbatim, Size: 5031 bytes --]
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)
[-- Attachment #3: Type: text/plain, Size: 14 bytes --]
Sebastian
[-- Attachment #4: Type: text/plain, Size: 201 bytes --]
_______________________________________________
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
next prev parent reply other threads:[~2010-09-06 7:34 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-09-05 1:37 BUG ??? Cannot export custom link type to ASCII :-( Sebastian Rose
2010-09-05 5:59 ` Carsten Dominik
2010-09-05 11:03 ` Sebastian Rose
2010-09-05 18:05 ` Bastien
2010-09-05 23:01 ` Sebastian Rose
2010-09-06 6:19 ` Carsten Dominik
2010-09-06 7:33 ` Sebastian Rose [this message]
2010-09-06 11:16 ` Bastien
2010-09-06 13:13 ` Sebastian Rose
2010-09-29 5:55 ` Carsten Dominik
2010-09-29 22:35 ` Sebastian Rose
2010-09-30 19:57 ` Carsten Dominik
2010-09-30 22:15 ` Sebastian Rose
2010-09-06 6:50 ` Bastien
2010-09-06 7:29 ` Sebastian Rose
2010-09-06 7:52 ` Bastien
2010-09-06 7:54 ` Carsten Dominik
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=87aanvwckb.fsf@gmx.de \
--to=sebastian_rose@gmx.de \
--cc=bastien.guerry@wikimedia.fr \
--cc=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
/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).