From mboxrd@z Thu Jan 1 00:00:00 1970 From: Thorsten Jolitz Subject: Bug in new exporter? Date: Sun, 01 Jul 2012 15:43:24 +0200 Message-ID: <87k3ynsikj.fsf@googlemail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:42780) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SlKOb-0004bH-Ji for emacs-orgmode@gnu.org; Sun, 01 Jul 2012 09:41:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SlKOW-0004FE-S3 for emacs-orgmode@gnu.org; Sun, 01 Jul 2012 09:41:01 -0400 Received: from plane.gmane.org ([80.91.229.3]:58981) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SlKOW-0004F6-9Y for emacs-orgmode@gnu.org; Sun, 01 Jul 2012 09:40:56 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1SlKOT-000393-F3 for emacs-orgmode@gnu.org; Sun, 01 Jul 2012 15:40:53 +0200 Received: from e178117094.adsl.alicedsl.de ([85.178.117.94]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 01 Jul 2012 15:40:53 +0200 Received: from tjolitz by e178117094.adsl.alicedsl.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 01 Jul 2012 15:40:53 +0200 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@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Nicolas Goaziou , Eric Schulte --=-=-= Content-Type: text/plain Hi list, when I try to use the new exporter outside of an Org buffer, e.g. from a function or with M-:, it seems that there is a problem with the current buffer that is used for exporting - it is not the buffer of the Org file given as argument. I think the problem is here (line 2319 of org-export.el, function org-export-as): #+begin_src emacs-lisp (tree (let ((buf (or (buffer-file-name (buffer-base-buffer)) (current-buffer)))) #+end_src What I actually do to produce the backtrace above is a bit complicated, I eval a function of mine with M-:, which in turn calls: #+begin_src emacs-lisp (org-export-to-file 'e-html "/home/mydir/myfile.org") #+end_src When I do this with point in a different buffer, I get an error (see backtrace below). When I do it with point in myfile.org, the export actually works, but replaces the Org text in myfile.org with the exported html. When I do M-x org-e-html-export-to-html with point in myfile.org, everything works fine and myfile.html is produced. --=-=-= Content-Type: text/plain Content-Disposition: inline; filename=backtrace-org-export-to-file.txt Content-Transfer-Encoding: quoted-printable Content-Description: backtrace Debugger entered--Lisp error: (wrong-type-argument stringp nil) looking-at(nil) (and (looking-at org-planning-or-clock-line-re)) (cond ((eq special (quote item)) (org-element-item-parser (or structure (= org-list-struct)) raw-secondary-p)) ((eq special (quote quote-section)) (or= g-element-quote-section-parser)) ((eq special (quote table-row)) (org-eleme= nt-table-row-parser)) ((org-with-limited-levels (org-at-heading-p)) (org-el= ement-headline-parser raw-secondary-p)) ((eq special (quote section)) (org-= element-section-parser)) ((and (looking-at org-planning-or-clock-line-re)) = (if (equal (match-string 1) org-clock-string) (org-element-clock-parser) (o= rg-element-planning-parser))) ((when (looking-at "[ ]*#\\+BEGIN_\\([-A-Za-= z0-9]+\\)\\(?: \\|$\\)") (let ((name (upcase (match-string 1))) parser) (co= nd ((not (save-excursion ...)) (org-element-paragraph-parser)) ((setq parse= r (assoc name org-element-block-name-alist)) (funcall (cdr parser))) (t (or= g-element-special-block-parser)))))) ((org-at-heading-p) (org-element-inlin= etask-parser raw-secondary-p)) ((looking-at "[ ]*\\\\begin{\\([A-Za-z0-9*]= +\\)}") (if (save-excursion (re-search-forward (format "[ ]*\\\\end{%s}[ = ]*" (regexp-quote (match-string 1))) nil t)) (org-element-latex-environment= -parser) (org-element-paragraph-parser))) ((looking-at org-drawer-regexp) (= let ((name (match-string 1))) (cond ((not (save-excursion (re-search-forwar= d "^[ ]*:END:[ ]*$" nil t))) (org-element-paragraph-parser)) ((equal "PRO= PERTIES" name) (org-element-property-drawer-parser)) (t (org-element-drawer= -parser))))) ((looking-at "[ ]*:\\( \\|$\\)") (org-element-fixed-width-par= ser)) ((looking-at "[ ]*#\\+\\([a-z]+\\(:?_[a-z]+\\)*\\):") (let ((key (up= case (match-string 1)))) (cond ((equal key "CALL") (org-element-babel-call-= parser)) ((and (equal key "BEGIN") (save-excursion (re-search-forward "^[ = ]*#\\+END:\\(?: \\|$\\)" nil t))) (org-element-dynamic-block-parser)) ((and= (not (equal key "TBLFM")) (not (member key org-element-affiliated-keywords= ))) (org-element-keyword-parser)) (t (org-element-paragraph-parser))))) ((l= ooking-at org-footnote-definition-re) (org-element-footnote-definition-pars= er)) ((looking-at "\\(#\\|[ ]*#\\+\\(?: \\|$\\)\\)") (org-element-comment-= parser)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-= parser)) ((org-at-table-p t) (org-element-table-parser)) ((looking-at (org-= item-re)) (org-element-plain-list-parser (or structure (org-list-struct))))= (t (org-element-paragraph-parser))) (let ((case-fold-search t) (raw-secondary-p (and granularity (not (eq gra= nularity (quote object)))))) (cond ((eq special (quote item)) (org-element-= item-parser (or structure (org-list-struct)) raw-secondary-p)) ((eq special= (quote quote-section)) (org-element-quote-section-parser)) ((eq special (q= uote table-row)) (org-element-table-row-parser)) ((org-with-limited-levels = (org-at-heading-p)) (org-element-headline-parser raw-secondary-p)) ((eq spe= cial (quote section)) (org-element-section-parser)) ((and (looking-at org-p= lanning-or-clock-line-re)) (if (equal (match-string 1) org-clock-string) (o= rg-element-clock-parser) (org-element-planning-parser))) ((when (looking-at= "[ ]*#\\+BEGIN_\\([-A-Za-z0-9]+\\)\\(?: \\|$\\)") (let ((name (upcase ...= )) parser) (cond ((not ...) (org-element-paragraph-parser)) ((setq parser .= ..) (funcall ...)) (t (org-element-special-block-parser)))))) ((org-at-head= ing-p) (org-element-inlinetask-parser raw-secondary-p)) ((looking-at "[ ]*= \\\\begin{\\([A-Za-z0-9*]+\\)}") (if (save-excursion (re-search-forward (fo= rmat "[ ]*\\\\end{%s}[ ]*" (regexp-quote ...)) nil t)) (org-element-latex= -environment-parser) (org-element-paragraph-parser))) ((looking-at org-draw= er-regexp) (let ((name (match-string 1))) (cond ((not (save-excursion ...))= (org-element-paragraph-parser)) ((equal "PROPERTIES" name) (org-element-pr= operty-drawer-parser)) (t (org-element-drawer-parser))))) ((looking-at "[ = ]*:\\( \\|$\\)") (org-element-fixed-width-parser)) ((looking-at "[ ]*#\\+\= \([a-z]+\\(:?_[a-z]+\\)*\\):") (let ((key (upcase (match-string 1)))) (cond= ((equal key "CALL") (org-element-babel-call-parser)) ((and (equal key "BEG= IN") (save-excursion ...)) (org-element-dynamic-block-parser)) ((and (not .= ..) (not ...)) (org-element-keyword-parser)) (t (org-element-paragraph-pars= er))))) ((looking-at org-footnote-definition-re) (org-element-footnote-defi= nition-parser)) ((looking-at "\\(#\\|[ ]*#\\+\\(?: \\|$\\)\\)") (org-eleme= nt-comment-parser)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horiz= ontal-rule-parser)) ((org-at-table-p t) (org-element-table-parser)) ((looki= ng-at (org-item-re)) (org-element-plain-list-parser (or structure (org-list= -struct)))) (t (org-element-paragraph-parser)))) (save-excursion (when (looking-at org-element--affiliated-re) (let ((opoi= nt (point))) (while (looking-at org-element--affiliated-re) (forward-line))= (when (looking-at "[ ]*$") (goto-char opoint)))) (let ((case-fold-search = t) (raw-secondary-p (and granularity (not (eq granularity (quote object))))= )) (cond ((eq special (quote item)) (org-element-item-parser (or structure = (org-list-struct)) raw-secondary-p)) ((eq special (quote quote-section)) (o= rg-element-quote-section-parser)) ((eq special (quote table-row)) (org-elem= ent-table-row-parser)) ((org-with-limited-levels (org-at-heading-p)) (org-e= lement-headline-parser raw-secondary-p)) ((eq special (quote section)) (org= -element-section-parser)) ((and (looking-at org-planning-or-clock-line-re))= (if (equal (match-string 1) org-clock-string) (org-element-clock-parser) (= org-element-planning-parser))) ((when (looking-at "[ ]*#\\+BEGIN_\\([-A-Za= -z0-9]+\\)\\(?: \\|$\\)") (let ((name ...) parser) (cond (... ...) (... ...= ) (t ...))))) ((org-at-heading-p) (org-element-inlinetask-parser raw-second= ary-p)) ((looking-at "[ ]*\\\\begin{\\([A-Za-z0-9*]+\\)}") (if (save-excur= sion (re-search-forward (format "[ ]*\\\\end{%s}[ ]*" ...) nil t)) (org-e= lement-latex-environment-parser) (org-element-paragraph-parser))) ((looking= -at org-drawer-regexp) (let ((name (match-string 1))) (cond ((not ...) (org= -element-paragraph-parser)) ((equal "PROPERTIES" name) (org-element-propert= y-drawer-parser)) (t (org-element-drawer-parser))))) ((looking-at "[ ]*:\\= ( \\|$\\)") (org-element-fixed-width-parser)) ((looking-at "[ ]*#\\+\\([a-= z]+\\(:?_[a-z]+\\)*\\):") (let ((key (upcase ...))) (cond ((equal key "CALL= ") (org-element-babel-call-parser)) ((and ... ...) (org-element-dynamic-blo= ck-parser)) ((and ... ...) (org-element-keyword-parser)) (t (org-element-pa= ragraph-parser))))) ((looking-at org-footnote-definition-re) (org-element-f= ootnote-definition-parser)) ((looking-at "\\(#\\|[ ]*#\\+\\(?: \\|$\\)\\)"= ) (org-element-comment-parser)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-e= lement-horizontal-rule-parser)) ((org-at-table-p t) (org-element-table-pars= er)) ((looking-at (org-item-re)) (org-element-plain-list-parser (or structu= re (org-list-struct)))) (t (org-element-paragraph-parser))))) org-element-current-element(nil nil nil) (let* ((element (org-element-current-element granularity special structur= e)) (type (org-element-type element)) (cbeg (org-element-property :contents= -begin element))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (a= ssq type org-element-secondary-value-alist))) (when sec-loc (let ((sec-valu= e (org-element-property (cdr sec-loc) element))) (unless (stringp sec-value= ) (mapc (lambda (obj) (unless ... ...)) sec-value))))) (goto-char (org-elem= ent-property :end element)) (nconc acc (list (cond ((or (and visible-only (= org-element-property :hiddenp element)) (not cbeg)) element) ((and (memq ty= pe org-element-greater-elements) (or (memq granularity ...) (and ... ...) (= eq type ...))) (org-element-parse-elements cbeg (org-element-property :cont= ents-end element) (case type (headline ...) (plain-list ...) (table ...)) (= org-element-property :structure element) granularity visible-only element))= ((and cbeg (memq granularity (quote ...))) (org-element-parse-objects cbeg= (org-element-property :contents-end element) element (org-element-restrict= ion type))) (t element))))) (while (not (eobp)) (let* ((element (org-element-current-element granular= ity special structure)) (type (org-element-type element)) (cbeg (org-elemen= t-property :contents-begin element))) (plist-put (nth 1 element) :parent ac= c) (let ((sec-loc (assq type org-element-secondary-value-alist))) (when sec= -loc (let ((sec-value (org-element-property ... element))) (unless (stringp= sec-value) (mapc (lambda ... ...) sec-value))))) (goto-char (org-element-p= roperty :end element)) (nconc acc (list (cond ((or (and visible-only ...) (= not cbeg)) element) ((and (memq type org-element-greater-elements) (or ... = ... ...)) (org-element-parse-elements cbeg (org-element-property :contents-= end element) (case type ... ... ...) (org-element-property :structure eleme= nt) granularity visible-only element)) ((and cbeg (memq granularity ...)) (= org-element-parse-objects cbeg (org-element-property :contents-end element)= element (org-element-restriction type))) (t element)))))) (save-restriction (narrow-to-region beg end) (goto-char beg) (when (and (= eq granularity (quote headline)) (not (org-at-heading-p))) (org-with-limite= d-levels (outline-next-heading))) (while (not (eobp)) (let* ((element (org-= element-current-element granularity special structure)) (type (org-element-= type element)) (cbeg (org-element-property :contents-begin element))) (plis= t-put (nth 1 element) :parent acc) (let ((sec-loc (assq type org-element-se= condary-value-alist))) (when sec-loc (let ((sec-value ...)) (unless (string= p sec-value) (mapc ... sec-value))))) (goto-char (org-element-property :end= element)) (nconc acc (list (cond ((or ... ...) element) ((and ... ...) (or= g-element-parse-elements cbeg ... ... ... granularity visible-only element)= ) ((and cbeg ...) (org-element-parse-objects cbeg ... element ...)) (t elem= ent))))))) (save-excursion (save-restriction (narrow-to-region beg end) (goto-char b= eg) (when (and (eq granularity (quote headline)) (not (org-at-heading-p))) = (org-with-limited-levels (outline-next-heading))) (while (not (eobp)) (let*= ((element (org-element-current-element granularity special structure)) (ty= pe (org-element-type element)) (cbeg (org-element-property :contents-begin = element))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (assq typ= e org-element-secondary-value-alist))) (when sec-loc (let (...) (unless ...= ...)))) (goto-char (org-element-property :end element)) (nconc acc (list (= cond (... element) (... ...) (... ...) (t element))))))) acc) org-element-parse-elements(1 618 nil nil nil nil (section (:begin 1 :end = 618 :contents-begin 1 :contents-end 618 :post-blank 0 :parent (org-data nil= )))) (cond ((or (and visible-only (org-element-property :hiddenp element)) (no= t cbeg)) element) ((and (memq type org-element-greater-elements) (or (memq = granularity (quote (element object nil))) (and (eq granularity (quote great= er-element)) (eq type (quote section))) (eq type (quote headline)))) (org-e= lement-parse-elements cbeg (org-element-property :contents-end element) (ca= se type (headline (if (org-element-property :quotedp element) (quote quote-= section) (quote section))) (plain-list (quote item)) (table (quote table-ro= w))) (org-element-property :structure element) granularity visible-only ele= ment)) ((and cbeg (memq granularity (quote (object nil)))) (org-element-par= se-objects cbeg (org-element-property :contents-end element) element (org-e= lement-restriction type))) (t element)) (list (cond ((or (and visible-only (org-element-property :hiddenp element= )) (not cbeg)) element) ((and (memq type org-element-greater-elements) (or = (memq granularity (quote (element object nil))) (and (eq granularity (quote= greater-element)) (eq type (quote section))) (eq type (quote headline)))) = (org-element-parse-elements cbeg (org-element-property :contents-end elemen= t) (case type (headline (if (org-element-property :quotedp element) (quote = quote-section) (quote section))) (plain-list (quote item)) (table (quote ta= ble-row))) (org-element-property :structure element) granularity visible-on= ly element)) ((and cbeg (memq granularity (quote (object nil)))) (org-eleme= nt-parse-objects cbeg (org-element-property :contents-end element) element = (org-element-restriction type))) (t element))) (nconc acc (list (cond ((or (and visible-only (org-element-property :hidd= enp element)) (not cbeg)) element) ((and (memq type org-element-greater-ele= ments) (or (memq granularity (quote ...)) (and (eq granularity ...) (eq typ= e ...)) (eq type (quote headline)))) (org-element-parse-elements cbeg (org-= element-property :contents-end element) (case type (headline (if ... ... ..= .)) (plain-list (quote item)) (table (quote table-row))) (org-element-prope= rty :structure element) granularity visible-only element)) ((and cbeg (memq= granularity (quote (object nil)))) (org-element-parse-objects cbeg (org-el= ement-property :contents-end element) element (org-element-restriction type= ))) (t element)))) (let* ((element (org-element-current-element granularity special structur= e)) (type (org-element-type element)) (cbeg (org-element-property :contents= -begin element))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (a= ssq type org-element-secondary-value-alist))) (when sec-loc (let ((sec-valu= e (org-element-property (cdr sec-loc) element))) (unless (stringp sec-value= ) (mapc (lambda (obj) (unless ... ...)) sec-value))))) (goto-char (org-elem= ent-property :end element)) (nconc acc (list (cond ((or (and visible-only (= org-element-property :hiddenp element)) (not cbeg)) element) ((and (memq ty= pe org-element-greater-elements) (or (memq granularity ...) (and ... ...) (= eq type ...))) (org-element-parse-elements cbeg (org-element-property :cont= ents-end element) (case type (headline ...) (plain-list ...) (table ...)) (= org-element-property :structure element) granularity visible-only element))= ((and cbeg (memq granularity (quote ...))) (org-element-parse-objects cbeg= (org-element-property :contents-end element) element (org-element-restrict= ion type))) (t element))))) (while (not (eobp)) (let* ((element (org-element-current-element granular= ity special structure)) (type (org-element-type element)) (cbeg (org-elemen= t-property :contents-begin element))) (plist-put (nth 1 element) :parent ac= c) (let ((sec-loc (assq type org-element-secondary-value-alist))) (when sec= -loc (let ((sec-value (org-element-property ... element))) (unless (stringp= sec-value) (mapc (lambda ... ...) sec-value))))) (goto-char (org-element-p= roperty :end element)) (nconc acc (list (cond ((or (and visible-only ...) (= not cbeg)) element) ((and (memq type org-element-greater-elements) (or ... = ... ...)) (org-element-parse-elements cbeg (org-element-property :contents-= end element) (case type ... ... ...) (org-element-property :structure eleme= nt) granularity visible-only element)) ((and cbeg (memq granularity ...)) (= org-element-parse-objects cbeg (org-element-property :contents-end element)= element (org-element-restriction type))) (t element)))))) (save-restriction (narrow-to-region beg end) (goto-char beg) (when (and (= eq granularity (quote headline)) (not (org-at-heading-p))) (org-with-limite= d-levels (outline-next-heading))) (while (not (eobp)) (let* ((element (org-= element-current-element granularity special structure)) (type (org-element-= type element)) (cbeg (org-element-property :contents-begin element))) (plis= t-put (nth 1 element) :parent acc) (let ((sec-loc (assq type org-element-se= condary-value-alist))) (when sec-loc (let ((sec-value ...)) (unless (string= p sec-value) (mapc ... sec-value))))) (goto-char (org-element-property :end= element)) (nconc acc (list (cond ((or ... ...) element) ((and ... ...) (or= g-element-parse-elements cbeg ... ... ... granularity visible-only element)= ) ((and cbeg ...) (org-element-parse-objects cbeg ... element ...)) (t elem= ent))))))) (save-excursion (save-restriction (narrow-to-region beg end) (goto-char b= eg) (when (and (eq granularity (quote headline)) (not (org-at-heading-p))) = (org-with-limited-levels (outline-next-heading))) (while (not (eobp)) (let*= ((element (org-element-current-element granularity special structure)) (ty= pe (org-element-type element)) (cbeg (org-element-property :contents-begin = element))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (assq typ= e org-element-secondary-value-alist))) (when sec-loc (let (...) (unless ...= ...)))) (goto-char (org-element-property :end element)) (nconc acc (list (= cond (... element) (... ...) (... ...) (t element))))))) acc) org-element-parse-elements(1 618 section nil nil nil (org-data nil)) (save-excursion (goto-char (point-min)) (org-skip-whitespace) (org-elemen= t-parse-elements (point-at-bol) (point-max) (quote section) nil granularity= visible-only (list (quote org-data) nil))) org-element-parse-buffer(nil nil) (progn (unless noexpand (org-export-expand-include-keyword) (let ((org-cu= rrent-export-file buf)) (org-export-blocks-preprocess))) (goto-char (point-= min)) (let ((org-export-current-backend backend)) (run-hooks (quote org-exp= ort-before-parsing-hook))) (org-element-parse-buffer nil visible-only)) (let ((buffer-invisibility-spec nil)) (org-clone-local-variables --origin= al-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$= \\)") (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (- (over= lay-start ov) --offset) (- (overlay-end ov) --offset) (current-buffer))) --= overlays) (goto-char (point-min)) (progn (unless noexpand (org-export-expan= d-include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-= preprocess))) (goto-char (point-min)) (let ((org-export-current-backend bac= kend)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-par= se-buffer nil visible-only))) (progn (let ((buffer-invisibility-spec nil)) (org-clone-local-variables -= -original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|le= vel\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (= - (overlay-start ov) --offset) (- (overlay-end ov) --offset) (current-buffe= r))) --overlays) (goto-char (point-min)) (progn (unless noexpand (org-expor= t-expand-include-keyword) (let ((org-current-export-file buf)) (org-export-= blocks-preprocess))) (goto-char (point-min)) (let ((org-export-current-back= end backend)) (run-hooks (quote org-export-before-parsing-hook))) (org-elem= ent-parse-buffer nil visible-only)))) (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (org-clone-l= ocal-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outlin= e-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (m= ove-overlay ov (- (overlay-start ov) --offset) (- (overlay-end ov) --offset= ) (current-buffer))) --overlays) (goto-char (point-min)) (progn (unless noe= xpand (org-export-expand-include-keyword) (let ((org-current-export-file bu= f)) (org-export-blocks-preprocess))) (goto-char (point-min)) (let ((org-exp= ort-current-backend backend)) (run-hooks (quote org-export-before-parsing-h= ook))) (org-element-parse-buffer nil visible-only)))) (and (buffer-name tem= p-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let= ((buffer-invisibility-spec nil)) (org-clone-local-variables --original-buf= fer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") = (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offse= t) (- ... --offset) (current-buffer))) --overlays) (goto-char (point-min)) = (progn (unless noexpand (org-export-expand-include-keyword) (let (...) (org= -export-blocks-preprocess))) (goto-char (point-min)) (let ((org-export-curr= ent-backend backend)) (run-hooks (quote org-export-before-parsing-hook))) (= org-element-parse-buffer nil visible-only)))) (and (buffer-name temp-buffer= ) (kill-buffer temp-buffer)))) (with-current-buffer temp-buffer (unwind-protect (progn (let ((buffer-inv= isibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-= \\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buf= fer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offset) (- ... --o= ffset) (current-buffer))) --overlays) (goto-char (point-min)) (progn (unles= s noexpand (org-export-expand-include-keyword) (let (...) (org-export-block= s-preprocess))) (goto-char (point-min)) (let ((org-export-current-backend b= ackend)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-p= arse-buffer nil visible-only)))) (and (buffer-name temp-buffer) (kill-buffe= r temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer= temp-buffer (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (= org-clone-local-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mod= e$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lam= bda (ov) (move-overlay ov ... ... ...)) --overlays) (goto-char (point-min))= (progn (unless noexpand (org-export-expand-include-keyword) (let ... ...))= (goto-char (point-min)) (let (...) (run-hooks ...)) (org-element-parse-buf= fer nil visible-only)))) (and (buffer-name temp-buffer) (kill-buffer temp-b= uffer))))) (with-temp-buffer (let ((buffer-invisibility-spec nil)) (org-clone-local-= variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(= regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (move-o= verlay ov (- (overlay-start ov) --offset) (- (overlay-end ov) --offset) (cu= rrent-buffer))) --overlays) (goto-char (point-min)) (progn (unless noexpand= (org-export-expand-include-keyword) (let ((org-current-export-file buf)) (= org-export-blocks-preprocess))) (goto-char (point-min)) (let ((org-export-c= urrent-backend backend)) (run-hooks (quote org-export-before-parsing-hook))= ) (org-element-parse-buffer nil visible-only)))) (let ((--original-buffer #) (--offset 0) (--buffer-stri= ng #(" /home/tj/git/bugpile/iorg/lisp:\n insgesamt 84\n drwxr-xr-x 2 tj = users 4096 1. Jul 03:07 .\n drwxr-xr-x 6 tj users 4096 20. Jun 15:09 ..= \n -rw-r--r-- 1 tj users 10495 1. Jul 03:07 iorg-controller.el\n -rw-r--= r-- 1 tj users 20688 20. Jun 14:28 iorg-html.el\n -rw-r--r-- 1 tj users 3= 113 20. Jun 14:28 iorg-js.el\n -rw-r--r-- 1 tj users 2984 29. Jun 21:02 i= org-library-header.el\n -rw-r--r-- 1 tj users 84 29. Jun 21:01 iorg-mod= el.el\n -rw-r--r-- 1 tj users 18737 1. Jul 00:10 iorg-projects.el\n -rw-= r--r-- 1 tj users 1622 20. Jun 14:28 iorg-util.el\n -rw-r--r-- 1 tj users= 88 20. Jun 14:28 iorg-view.el\n" 0 2 (fontified t) 2 32 (fontified t fa= ce dired-header) 32 34 (fontified t) 34 93 (fontified t) 93 94 (dired-filen= ame t mouse-face highlight help-echo "mouse-2: visit this file in other win= dow" fontified t face dired-directory) 94 139 (fontified t) 139 141 (dired-= filename t mouse-face highlight help-echo "mouse-2: visit this file in othe= r window" fontified t face dired-directory) 141 142 (fontified t) 142 143 (= fontified t) 143 186 (fontified t) 186 204 (dired-filename t mouse-face hig= hlight help-echo "mouse-2: visit this file in other window" fontified t) 20= 4 205 (fontified t) 205 206 (fontified t) 206 249 (fontified t) 249 261 (di= red-filename t mouse-face highlight help-echo "mouse-2: visit this file in = other window" fontified t) 261 262 (fontified t) 262 306 (fontified t) 306 = 316 (dired-filename t mouse-face highlight help-echo "mouse-2: visit this f= ile in other window" fontified t) 316 361 (fontified t) 361 383 (dired-file= name t mouse-face highlight help-echo "mouse-2: visit this file in other wi= ndow" fontified t) 383 428 (fontified t) 428 441 (dired-filename t mouse-fa= ce highlight help-echo "mouse-2: visit this file in other window" fontified= t) 441 442 (fontified t) 442 443 (fontified t) 443 486 (fontified t) 486 5= 02 (dired-filename t mouse-face highlight help-echo "mouse-2: visit this fi= le in other window" fontified t) 502 503 (fontified t) 503 504 (fontified t= ) 504 547 (fontified t) 547 559 (dired-filename t mouse-face highlight help= -echo "mouse-2: visit this file in other window" fontified t) 559 560 (font= ified t) 560 561 (fontified t) 561 604 (fontified t) 604 616 (dired-filenam= e t mouse-face highlight help-echo "mouse-2: visit this file in other windo= w" fontified t) 616 617 (fontified t))) (--overlays (mapcar (quote copy-ove= rlay) (overlays-in (point-min) (point-max))))) (with-temp-buffer (let ((buf= fer-invisibility-spec nil)) (org-clone-local-variables --original-buffer "^= \\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (inser= t --buffer-string) (mapc (lambda (ov) (move-overlay ov (- (overlay-start ov= ) --offset) (- (overlay-end ov) --offset) (current-buffer))) --overlays) (g= oto-char (point-min)) (progn (unless noexpand (org-export-expand-include-ke= yword) (let ((org-current-export-file buf)) (org-export-blocks-preprocess))= ) (goto-char (point-min)) (let ((org-export-current-backend backend)) (run-= hooks (quote org-export-before-parsing-hook))) (org-element-parse-buffer ni= l visible-only))))) (org-export-with-current-buffer-copy (unless noexpand (org-export-expand-= include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-pr= eprocess))) (goto-char (point-min)) (let ((org-export-current-backend backe= nd)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-parse= -buffer nil visible-only)) (let ((buf (or (buffer-file-name (buffer-base-buffer)) (current-buffer)))= ) (org-export-with-current-buffer-copy (unless noexpand (org-export-expand-= include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-pr= eprocess))) (goto-char (point-min)) (let ((org-export-current-backend backe= nd)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-parse= -buffer nil visible-only))) (let ((info (org-export-install-filters (org-export-get-environment backe= nd subtreep ext-plist))) (tree (let ((buf (or (buffer-file-name ...) (curre= nt-buffer)))) (org-export-with-current-buffer-copy (unless noexpand (org-ex= port-expand-include-keyword) (let (...) (org-export-blocks-preprocess))) (g= oto-char (point-min)) (let ((org-export-current-backend backend)) (run-hook= s (quote org-export-before-parsing-hook))) (org-element-parse-buffer nil vi= sible-only))))) (setq tree (org-export-filter-apply-functions (plist-get in= fo :filter-parse-tree) tree info)) (setq info (org-combine-plists info (org= -export-collect-tree-properties tree info))) (let* ((body (org-element-norm= alize-string (org-export-data tree info))) (template (cdr (assq (quote temp= late) (plist-get info :translate-alist)))) (output (org-export-filter-apply= -functions (plist-get info :filter-final-output) (if (or (not ...) body-onl= y) body (funcall template body info)) info))) (when org-export-copy-to-kill= -ring (org-kill-new output)) output)) (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-= beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (poi= nt-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let ((inf= o (org-export-install-filters (org-export-get-environment backend subtreep = ext-plist))) (tree (let ((buf (or ... ...))) (org-export-with-current-buffe= r-copy (unless noexpand (org-export-expand-include-keyword) (let ... ...)) = (goto-char (point-min)) (let (...) (run-hooks ...)) (org-element-parse-buff= er nil visible-only))))) (setq tree (org-export-filter-apply-functions (pli= st-get info :filter-parse-tree) tree info)) (setq info (org-combine-plists = info (org-export-collect-tree-properties tree info))) (let* ((body (org-ele= ment-normalize-string (org-export-data tree info))) (template (cdr (assq (q= uote template) (plist-get info :translate-alist)))) (output (org-export-fil= ter-apply-functions (plist-get info :filter-final-output) (if (or ... body-= only) body (funcall template body info)) info))) (when org-export-copy-to-k= ill-ring (org-kill-new output)) output))) (save-excursion (save-restriction (cond ((org-region-active-p) (narrow-to= -region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree)= (goto-char (point-min)) (forward-line) (narrow-to-region (point) (point-ma= x)))) (let ((info (org-export-install-filters (org-export-get-environment b= ackend subtreep ext-plist))) (tree (let ((buf ...)) (org-export-with-curren= t-buffer-copy (unless noexpand ... ...) (goto-char ...) (let ... ...) (org-= element-parse-buffer nil visible-only))))) (setq tree (org-export-filter-ap= ply-functions (plist-get info :filter-parse-tree) tree info)) (setq info (o= rg-combine-plists info (org-export-collect-tree-properties tree info))) (le= t* ((body (org-element-normalize-string (org-export-data tree info))) (temp= late (cdr (assq ... ...))) (output (org-export-filter-apply-functions (plis= t-get info :filter-final-output) (if ... body ...) info))) (when org-export= -copy-to-kill-ring (org-kill-new output)) output)))) org-export-as(e-html nil nil nil nil nil) (let ((out (org-export-as backend subtreep visible-only body-only ext-pli= st noexpand))) (with-temp-buffer (insert out) (let ((coding-system-for-writ= e org-export-coding-system)) (write-file file)))) org-export-to-file(e-html "/home/tj/git/bugpile/docroot/bugpile-static-bu= greport-guidelines.org") (if (and (member (concat (file-name-sans-extension file) ".html") docroot= -files) (file-newer-than-file-p (concat (file-name-sans-extension file) ".h= tml") (concat (file-name-sans-extension file) ".org"))) nil (org-export-to-= file (quote e-html) absolute-file-name)) (unless (and (member (concat (file-name-sans-extension file) ".html") doc= root-files) (file-newer-than-file-p (concat (file-name-sans-extension file)= ".html") (concat (file-name-sans-extension file) ".org"))) (org-export-to-= file (quote e-html) absolute-file-name)) (let ((absolute-file-name (expand-file-name file docroot-dir))) (unless (= and (member (concat (file-name-sans-extension file) ".html") docroot-files)= (file-newer-than-file-p (concat (file-name-sans-extension file) ".html") (= concat (file-name-sans-extension file) ".org"))) (org-export-to-file (quote= e-html) absolute-file-name))) (and (string=3D (file-name-extension file) "org") (let ((absolute-file-na= me (expand-file-name file docroot-dir))) (unless (and (member (concat (file= -name-sans-extension file) ".html") docroot-files) (file-newer-than-file-p = (concat (file-name-sans-extension file) ".html") (concat (file-name-sans-ex= tension file) ".org"))) (org-export-to-file (quote e-html) absolute-file-na= me)))) (lambda (file) (and (string=3D (file-name-extension file) "org") (let ((a= bsolute-file-name (expand-file-name file docroot-dir))) (unless (and (membe= r (concat (file-name-sans-extension file) ".html") docroot-files) (file-new= er-than-file-p (concat (file-name-sans-extension file) ".html") (concat (fi= le-name-sans-extension file) ".org"))) (org-export-to-file (quote e-html) a= bsolute-file-name)))))("bugpile-static-bugreport-guidelines.org") mapc((lambda (file) (and (string=3D (file-name-extension file) "org") (le= t ((absolute-file-name (expand-file-name file docroot-dir))) (unless (and (= member (concat (file-name-sans-extension file) ".html") docroot-files) (fil= e-newer-than-file-p (concat (file-name-sans-extension file) ".html") (conca= t (file-name-sans-extension file) ".org"))) (org-export-to-file (quote e-ht= ml) absolute-file-name))))) ("." ".." "bugpile-static-bugreport-guidelines.= org")) (let* ((docroot-dir (iorg-projects--get-project-info project :docroot)) (= docroot-files (directory-files docroot-dir))) (mapc (lambda (file) (and (st= ring=3D (file-name-extension file) "org") (let ((absolute-file-name (expand= -file-name file docroot-dir))) (unless (and (member ... docroot-files) (fil= e-newer-than-file-p ... ...)) (org-export-to-file (quote e-html) absolute-f= ile-name))))) docroot-files)) iorg-controller--serve-docroot("bugpile" ("bugpile" (:dir . "~/git/bugpil= e/") (:host . "localhost") (:port . "8008") (:docroot . "docroot") (:docroo= t-port . "8009") (:docroot-handler . "bugpile-controller-docroot-handler") = (:logic . "logic") (:view . "view") (:controller . "controller") (:objects = . "objects") (:test . "test") (:doc . "doc"))) (if args (iorg-controller--serve-docroot project proj-config args) (iorg-= controller--serve-docroot project proj-config)) (let* ((proj-config (assoc project iorg-projects-config))) (if (not (and = (non-empty-string-p project) (assoc project iorg-projects-config))) (messag= e "%s" (concat "Project not registered in customizable " "variable 'iorg-pr= ojects-config'")) (elnode-start (quote iorg-controller-dispatcher-handler) = :host (or host (cdr (assoc :host proj-config))) :port (or port (cdr (assoc = :port proj-config))))) (if args (iorg-controller--serve-docroot project pro= j-config args) (iorg-controller--serve-docroot project proj-config))) iorg-controller-launch-project("bugpile") eval((iorg-controller-launch-project "bugpile") nil) eval-expression((iorg-controller-launch-project "bugpile") nil) call-interactively(eval-expression nil nil) --=-=-= Content-Type: text/plain -- cheers, Thorsten --=-=-=--