From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [New exporter] Error: (wrong-type-argument stringp nil) Date: Wed, 06 Feb 2013 10:24:23 +0100 Message-ID: <86fw19eqwo.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, Trying to convert some more files (to HTML) with the new exporter, I did a test with the following one: --8<---------------cut here---------------start------------->8--- #+TITLE: ECM for HTML export error #+LANGUAGE: en_US * Tasks *** TODO Read article - [[https://lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html]= [new exporter: exporting subtree as beamer]] --8<---------------cut here---------------end--------------->8--- When exporting it to HTML (`C-c C-e h o'), I get the following error: --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (wrong-type-argument stringp nil) regexp-quote(nil) (string-match (regexp-quote (car att)) desc) (and desc (string-match (regexp-quote (car att)) desc)) (if (and desc (string-match (regexp-quote (car att)) desc)) nil att) (let ((att (org-element-property :attr_html (org-export-get-parent-elemen= t link)))) (if (and desc (string-match (regexp-quote (car att)) desc)) nil = att)) (mapconcat (quote identity) (let ((att (org-element-property :attr_html (= org-export-get-parent-element link)))) (if (and desc (string-match (regexp-= quote (car att)) desc)) nil att)) " ") (setq attributes (mapconcat (quote identity) (let ((att (org-element-prop= erty :attr_html (org-export-get-parent-element link)))) (if (and desc (stri= ng-match (regexp-quote (car att)) desc)) nil att)) " ")) (and (setq attributes (mapconcat (quote identity) (let ((att (org-element= -property :attr_html (org-export-get-parent-element link)))) (if (and desc = (string-match (regexp-quote ...) desc)) nil att)) " ")) (setq attributes (c= oncat " " attributes))) (let* ((--link-org-files-as-html-maybe (function (lambda (raw-path info) = "Treat links to `file.org' as links to `file.html', if needed.\n = See `org-e-html-link-org-files-as-html'." (cond ((and org-e-html-link-org-f= iles-as-html ...) (concat ... "." ...)) (t raw-path))))) (type (org-element= -property :type link)) (raw-path (org-element-property :path link)) (desc (= and (not (string=3D desc "")) desc)) (path (cond ((member type (quote ("htt= p" "https" "ftp" "mailto"))) (concat type ":" raw-path)) ((string=3D type "= file") (setq raw-path (funcall --link-org-files-as-html-maybe raw-path info= )) (if (not (file-name-absolute-p raw-path)) raw-path (concat "file://" (ex= pand-file-name raw-path)))) (t raw-path))) attributes protocol) (and (setq = attributes (mapconcat (quote identity) (let ((att (org-element-property :at= tr_html ...))) (if (and desc (string-match ... desc)) nil att)) " ")) (setq= attributes (concat " " attributes))) (cond ((and (or (eq t org-e-html-inli= ne-images) (and org-e-html-inline-images (not desc))) (org-export-inline-im= age-p link org-e-html-inline-image-rules)) (org-e-html-link--inline-image l= ink desc info)) ((string=3D type "radio") (let ((destination (org-export-re= solve-radio-link link info))) (if destination (progn (format "%s" (org-export-solidify-link-text path) attributes (org-export-= data ... info)))))) ((member type (quote ("custom-id" "fuzzy" "id"))) (let = ((destination (if (string=3D type "fuzzy") (org-export-resolve-fuzzy-link l= ink info) (org-export-resolve-id-link link info)))) (let ((--cl-var-- (org-= element-type destination))) (cond ((eql --cl-var-- ...) (progn ... nil) (le= t ... ...)) ((memql --cl-var-- ...) (format "%s" ...)) ((eql --cl-va= r-- ...) nil) ((eql --cl-var-- ...) (let ... ...)) (t (let ... ... ...)))))= ) ((string=3D type "coderef") (let ((fragment (concat "coderef-" path))) (f= ormat "%s" fragment (format (concat "class=3D\"c= oderef\"" " onmouseover=3D\"CodeHighlightOn(this, '%s');\"" " onmouseout=3D= \"CodeHighlightOff(this, '%s');\"") fragment fragment) attributes (format (= org-export-get-coderef-format path desc) (org-export-resolve-coderef path i= nfo))))) ((functionp (setq protocol (nth 2 (assoc type org-link-protocols))= )) (funcall protocol (org-link-unescape path) desc (quote html))) ((and pat= h desc) (format "%s" path attributes desc)) (path (f= ormat "%s" path attributes path)) (t (format "%s<= /i>" desc)))) org-e-html-link((link (:type "https" :path "//lists.gnu.org/archive/html/= emacs-orgmode/2012-09/msg01099.html" :raw-link "https://lists.gnu.org/archi= ve/html/emacs-orgmode/2012-09/msg01099.html" :application nil :search-optio= n nil :begin 118 :end 235 :contents-begin 192 :contents-end 233 :post-blank= 0 :parent (paragraph (:begin 118 :end 236 :contents-begin 118 :contents-en= d 236 :post-blank 0 :post-affiliated 118 :parent (item (:bullet "- " :begin= 116 :end 236 :contents-begin 118 :contents-end 236 :checkbox nil :counter = nil :hiddenp nil :structure ((116 0 "- " nil nil nil 236)) :post-blank 0 :t= ag nil :parent (plain-list (:type unordered :begin 116 :end 236 :contents-b= egin 116 :contents-end 236 :structure ... :post-blank 0 :post-affiliated 11= 6 :parent ...) #4)) #2)) #0 #("\n" 0 1 (:parent #2)))) #("new exporter: exp= orting subtree as beamer" 0 41 (:parent #0))) #("new exporter: exporting su= btree as beamer" 0 41 (:parent (link (:type "https" :path "//lists.gnu.org/= archive/html/emacs-orgmode/2012-09/msg01099.html" :raw-link "https://lists.= gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html" :application nil = :search-option nil :begin 118 :end 235 :contents-begin 192 :contents-end 23= 3 :post-blank 0 :parent (paragraph (:begin 118 :end 236 :contents-begin 118= :contents-end 236 :post-blank 0 :post-affiliated 118 :parent (item (:bulle= t "- " :begin 116 :end 236 :contents-begin 118 :contents-end 236 :checkbox = nil :counter nil :hiddenp nil :structure ... :post-blank 0 :tag nil :parent= ...) #4)) #2 #("\n" 0 1 (:parent #4)))) #("new exporter: exporting subtree= as beamer" 0 41 (:parent #2))))) (:input-file "d:/Users/fni/src/ecm-html.t= xt" :title ("ECM for HTML export error") :author ("Seb Vauban") :creator "G= enerated by Org mode 7.9.3e in Emacs 24.2.91.1." :date nil := description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noexport= ") :headline-levels 3 :keywords nil :language "en_US" :preserve-breaks nil = :section-numbers t :select-tags ("export") :time-stamp-file t :with-archive= d-trees headline :with-author t :with-clocks nil :with-creator nil :with-da= te t :with-drawers nil :with-email nil :with-emphasize t :with-entities t := with-fixed-width t ...)) funcall(org-e-html-link (link (:type "https" :path "//lists.gnu.org/archi= ve/html/emacs-orgmode/2012-09/msg01099.html" :raw-link "https://lists.gnu.o= rg/archive/html/emacs-orgmode/2012-09/msg01099.html" :application nil :sear= ch-option nil :begin 118 :end 235 :contents-begin 192 :contents-end 233 :po= st-blank 0 :parent (paragraph (:begin 118 :end 236 :contents-begin 118 :con= tents-end 236 :post-blank 0 :post-affiliated 118 :parent (item (:bullet "- = " :begin 116 :end 236 :contents-begin 118 :contents-end 236 :checkbox nil := counter nil :hiddenp nil :structure ((116 0 "- " nil nil nil 236)) :post-bl= ank 0 :tag nil :parent (plain-list (:type unordered :begin 116 :end 236 :co= ntents-begin 116 :contents-end 236 :structure ... :post-blank 0 :post-affil= iated 116 :parent ...) #4)) #2)) #0 #("\n" 0 1 (:parent #2)))) #("new expor= ter: exporting subtree as beamer" 0 41 (:parent #0))) #("new exporter: expo= rting subtree as beamer" 0 41 (:parent (link (:type "https" :path "//lists.= gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html" :raw-link "https:= //lists.gnu.org/archive/html/emacs-orgmode/2012-09/msg01099.html" :applicat= ion nil :search-option nil :begin 118 :end 235 :contents-begin 192 :content= s-end 233 :post-blank 0 :parent (paragraph (:begin 118 :end 236 :contents-b= egin 118 :contents-end 236 :post-blank 0 :post-affiliated 118 :parent (item= (:bullet "- " :begin 116 :end 236 :contents-begin 118 :contents-end 236 :c= heckbox nil :counter nil :hiddenp nil :structure ... :post-blank 0 :tag nil= :parent ...) #4)) #2 #("\n" 0 1 (:parent #4)))) #("new exporter: exporting= subtree as beamer" 0 41 (:parent #2))))) (:input-file "d:/Users/fni/src/ec= m-html.txt" :title ("ECM for HTML export error") :author ("Seb Vauban") :cr= eator "Generated by Org mode 7.9.3e in= Emacs 24.2.91.1." :da= te nil :description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("= noexport") :headline-levels 3 :keywords nil :language "en_US" :preserve-bre= aks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with= -archived-trees headline :with-author t :with-clocks nil :with-creator nil = :with-date t :with-drawers nil :with-email nil :with-emphasize t :with-enti= ties t :with-fixed-width t ...)) [...] org-export-dispatch(nil) call-interactively(org-export-dispatch nil nil) --8<---------------cut here---------------end--------------->8--- Best regards, Seb -- Sebastien Vauban