Re: Bug: Export buffer w/o filename to ASCII errors out (patch attached) [6.34trans (release_6.34c.221.gadb2)]

[Carsten Dominik <carsten.dominik@gmail.com>]

Applied, thanks.

- Carsten

On Mar 24, 2010, at 9:51 PM, David Maus wrote:

>
> Remember to cover the basics, that is, what you expected to happen and
> what in fact did happen.  You don't know how to make a good report?   
> See
>
>     http://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org-mode mailing list.
> ------------------------------------------------------------------------
>
> When exporting a buffer without associated filename and no #+TITLE set
> to ASCII using C-c C-e A Org errors out with "Wrong type argument:
> stringp, nil".
>
> The problem is that `org-export-as-ascii' tries to obtain the
> document's title and falls back to (buffer-file-name) -- what is nil
> for a buffer w/o associated file.
>
> Steps to reproduce:
>
>  - create shiny new buffer C-x b *test* RET
>
>  - turn on Org M-x org-mode RET
>
>  - maybe insert something
>
>  - C-c C-e A
>
> Attached patch fixes this by using (buffer-file-name) only if there is
> one and falls back to UNTITLED.
>
> -- David
>
> Emacs  : GNU Emacs 24.0.50.1 (i486-pc-linux-gnu, GTK+ Version 2.18.7)
> of 2010-03-11 on elegiac, modified by Debian
> Package: Org-mode version 6.34trans (release_6.34c.221.gadb2)
>
> current state:
> ==============
> (setq
> org-log-done 'time
> org-wl-nntp-prefer-web-links t
> org-export-latex-default-class "scrartcl"
> org-export-latex-after-initial-vars-hook '(org-beamer-after-initial- 
> vars)
> org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)  
> ("MAYB" :foreground "orange red" :weight bold)
> 			  ("WAIT" :foreground "firebrick" :weight bold)  
> ("DONE" :foreground "green")
> 			  ("IDEA" :foreground "gold" :weight bold) ("CANC" :foreground  
> "LightSlateGrey"))
> org-wl-shimbun-prefer-web-links t
> org-agenda-custom-commands '(("R" "Refile new tasks and notes" tags  
> "LEVEL=1+REFILE"))
> org-agenda-files '("~/org/" "~/org/priv/" "~/org/pg/" "~/org/tec/")
> org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
> org-agenda-tags-column -120
> org-checklist-export-function 'org-export-as-ascii
> org-after-todo-state-change-hook '(org-clock-out-if-current org- 
> checklist)
> org-agenda-todo-ignore-scheduled t
> org-export-latex-format-toc-function 'org-export-latex-format-toc- 
> default
> org-log-redeadline 'time
> org-export-preprocess-hook '(org-export-blocks-preprocess)
> org-tab-first-hook '(org-hide-block-toggle-maybe)
> org-src-mode-hook '(org-src-mode-configure-edit-buffer)
> org-confirm-shell-link-function 'yes-or-no-p
> org-export-first-hook '(org-beamer-initialize-open-trackers)
> org-wl-link-remove-filter t
> org-todo-keywords '((sequence "TODO(t)" "WAIT(w)" "|" "DONE(D)")  
> (sequence "IDEA(i)" "MAYB(m)" "|" "CANC(C)"))
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-default-notes-file "/home/david/org//bucket.org"
> org-directory "/home/david/org/"
> org-log-reschedule 'time
> org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide- 
> drawers org-cycle-show-empty-lines
> 		  org-optimize-window-after-visibility-change)
> org-export-latex-classes '(("scrartcl"
> 			     "\\documentclass[paper=a4,12pt]{scrartcl}\n       \ 
> \usepackage[utf8]{inputenc}\n       \\usepackage[T1]{fontenc} 
> \n       \\usepackage[ngerman]{babel}\n       \\usepackage{graphicx} 
> \n       \\usepackage{longtable}\n       \\usepackage{float}\n        
> \\usepackage{wrapfig}\n       \\usepackage{soul}\n       \ 
> \usepackage{amssymb}\n       \\usepackage{microtype}\n       \ 
> \usepackage{lmodern}\n       \\parskip 6pt\n       \ 
> \usepackage[autocite=footnote,style=authoryear]{biblatex}\n       \ 
> \usepackage{hyperref}"
> 			     ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\ 
> \subsection*{%s}")
> 			     ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\ 
> \paragraph{%s}" . "\\paragraph*{%s}")
> 			     ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
> 			    )
> org-publish-project-alist '(("ictsoc-web" :base-directory "~/www/ 
> ictsoc.de/" :base-extension "org" :publishing-directory
> 			      "~/www/ictsoc.de/" :publishing-function org-publish-org-to- 
> html :author "David Maus" :email
> 			      "dmaus@ictsoc.de" :author-info t :creator-info t :timestamp  
> nil :headline-levels 4
> 			      :section-numbers nil :recursive t)
> 			     ("ictsoc-feed" :base-directory "~/www/ictsoc.de/" :base- 
> extension "org" :publishing-directory
> 			      "~/www/ictsoc.de/" :publishing-url "http:// 
> ictsoc.de/" :auto-index t :recursive t
> 			      :index-filename "feed.atom" :index-function org-atom- 
> publish-feed-index :feed-map-entries
> 			      "LEVEL=1" :feed-id "109b1796-d619-424d-a339-596093767737")
> 			     ("ictsoc" :components ("ictsoc-web")))
> org-export-preprocess-before-normalizing-links-hook '(org-remove- 
> file-link-modifiers)
> org-email-link-description-format "%m"
> org-mode-hook '((lambda nil
> 		  (org-add-hook (quote change-major-mode-hook) (quote org-show- 
> block-all) (quote append) (quote local)))
> 		 )
> org-refile-targets '((org-agenda-files :maxlevel . 5))
> org-confirm-elisp-link-function 'yes-or-no-p
> org-refile-use-outline-path 'file
> org-log-into-drawer "LOGBOOK"
> org-agenda-todo-ignore-with-date t
> org-enforce-todo-dependencies t
> org-refile-allow-creating-parent-nodes 'confirm
> org-occur-hook '(org-first-headline-recenter)
> org-export-preprocess-before-selecting-backend-code-hook '(org- 
> beamer-select-beamer-code)
> org-tags-column -120
> org-remember-templates '(("todo" 116 "* TODO %^{Todo}\n  :PROPERTIES: 
> \n  :Created: %u\n  :END:" "~/org/bucket.org" bottom
> 			   nil)
> 			  ("idea" 105 "* IDEA %^{Idea}\n  :PROPERTIES:\n  :Created: %u 
> \n  :END:" "~/org/bucket.org" bottom
> 			   nil)
> 			  ("link" 119 "* %c :link:\n  :PROPERTIES:\n  :Created: %u 
> \n  :END:\n%i" "~/org/bucket.org" bottom
> 			   nil)
> 			  ("appt" 97 "* %^{Appointment} :appt:\n  %^T\n  :PROPERTIES: 
> \n  :Created: %u\n  :END:"
> 			   "~/org/bucket.org" bottom nil)
> 			  ("note" 110 "* %^{Note} :note:\n  :PROPERTIES:\n  :Created: %u 
> \n  :END:" "~/org/bucket.org" bottom
> 			   nil)
> 			  )
> org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix- 
> toc org-beamer-auto-fragile-frames
> 			       org-beamer-place-default-actions-for-lists)
> )
> --
> OpenPGP... 0x99ADB83B5A4478E6
> Jabber.... dmjena@jabber.org
> Email..... dmaus@ictsoc.de
> <org-ascii- 
> untitled.diff>_______________________________________________
> 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

- Carsten