[O] Bug in new exporter?

[Thorsten Jolitz]

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. 

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)) 
(org-element-quote-section-parser)) ((eq special (quote table-row)) 
(org-element-table-row-parser)) ((org-with-limited-levels (org-at-heading-p)) 
(org-element-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 (upcase 
(match-string 1))) parser) (cond ((not (save-excursion ...)) 
(org-element-paragraph-parser)) ((setq parser (assoc name 
org-element-block-name-alist)) (funcall (cdr parser))) (t 
(org-element-special-block-parser)))))) ((org-at-heading-p) 
(org-element-inlinetask-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-forward "^[  ]*:END:[        ]*$" nil t))) 
(org-element-paragraph-parser)) ((equal "PROPERTIES" name) 
(org-element-property-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 "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))))) 
((looking-at org-footnote-definition-re) 
(org-element-footnote-definition-parser)) ((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 
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)) (org-element-quote-section-parser)) ((eq 
special (quote table-row)) (org-element-table-row-parser)) 
((org-with-limited-levels (org-at-heading-p)) (org-element-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 (upcase ...)) parser) (cond ((not ...) (org-element-paragraph-parser)) 
((setq parser ...) (funcall ...)) (t (org-element-special-block-parser)))))) 
((org-at-heading-p) (org-element-inlinetask-parser raw-secondary-p)) 
((looking-at "[     ]*\\\\begin{\\([A-Za-z0-9*]+\\)}") (if (save-excursion 
(re-search-forward (format "[    ]*\\\\end{%s}[  ]*" (regexp-quote ...)) 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 ...)) (org-element-paragraph-parser)) ((equal "PROPERTIES" 
name) (org-element-property-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 "BEGIN") (save-excursion ...)) 
(org-element-dynamic-block-parser)) ((and (not ...) (not ...)) 
(org-element-keyword-parser)) (t (org-element-paragraph-parser))))) 
((looking-at org-footnote-definition-re) 
(org-element-footnote-definition-parser)) ((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))))
  (save-excursion (when (looking-at org-element--affiliated-re) (let ((opoint 
(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)) 
(org-element-quote-section-parser)) ((eq special (quote table-row)) 
(org-element-table-row-parser)) ((org-with-limited-levels (org-at-heading-p)) 
(org-element-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-secondary-p)) ((looking-at "[      
]*\\\\begin{\\([A-Za-z0-9*]+\\)}") (if (save-excursion (re-search-forward 
(format "[    ]*\\\\end{%s}[  ]*" ...) nil t)) 
(org-element-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-property-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-block-parser)) ((and ... ...) 
(org-element-keyword-parser)) (t (org-element-paragraph-parser))))) 
((looking-at org-footnote-definition-re) 
(org-element-footnote-definition-parser)) ((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)))))
  org-element-current-element(nil nil nil)
  (let* ((element (org-element-current-element granularity special structure)) 
(type (org-element-type element)) (cbeg (org-element-property :contents-begin 
element))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (assq type 
org-element-secondary-value-alist))) (when sec-loc (let ((sec-value 
(org-element-property (cdr sec-loc) element))) (unless (stringp sec-value) 
(mapc (lambda (obj) (unless ... ...)) sec-value))))) (goto-char 
(org-element-property :end element)) (nconc acc (list (cond ((or (and 
visible-only (org-element-property :hiddenp element)) (not cbeg)) element) 
((and (memq type org-element-greater-elements) (or (memq granularity ...) (and 
... ...) (eq type ...))) (org-element-parse-elements cbeg (org-element-property 
:contents-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-restriction 
type))) (t element)))))
  (while (not (eobp)) (let* ((element (org-element-current-element granularity 
special structure)) (type (org-element-type element)) (cbeg 
(org-element-property :contents-begin element))) (plist-put (nth 1 element) 
:parent acc) (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-property :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 element) 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-limited-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))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (assq type 
org-element-secondary-value-alist))) (when sec-loc (let ((sec-value ...)) 
(unless (stringp sec-value) (mapc ... sec-value))))) (goto-char 
(org-element-property :end element)) (nconc acc (list (cond ((or ... ...) 
element) ((and ... ...) (org-element-parse-elements cbeg ... ... ... 
granularity visible-only element)) ((and cbeg ...) (org-element-parse-objects 
cbeg ... element ...)) (t element)))))))
  (save-excursion (save-restriction (narrow-to-region beg end) (goto-char beg) 
(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)) (type 
(org-element-type element)) (cbeg (org-element-property :contents-begin 
element))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (assq type 
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)) (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 element) 
(case type (headline (if (org-element-property :quotedp element) (quote 
quote-section) (quote section))) (plain-list (quote item)) (table (quote 
table-row))) (org-element-property :structure element) granularity visible-only 
element)) ((and cbeg (memq granularity (quote (object nil)))) 
(org-element-parse-objects cbeg (org-element-property :contents-end element) 
element (org-element-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 element) 
(case type (headline (if (org-element-property :quotedp element) (quote 
quote-section) (quote section))) (plain-list (quote item)) (table (quote 
table-row))) (org-element-property :structure element) granularity visible-only 
element)) ((and cbeg (memq granularity (quote (object nil)))) 
(org-element-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 :hiddenp 
element)) (not cbeg)) element) ((and (memq type org-element-greater-elements) 
(or (memq granularity (quote ...)) (and (eq granularity ...) (eq type ...)) (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-property :structure 
element) granularity visible-only element)) ((and cbeg (memq granularity (quote 
(object nil)))) (org-element-parse-objects cbeg (org-element-property 
:contents-end element) element (org-element-restriction type))) (t element))))
  (let* ((element (org-element-current-element granularity special structure)) 
(type (org-element-type element)) (cbeg (org-element-property :contents-begin 
element))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (assq type 
org-element-secondary-value-alist))) (when sec-loc (let ((sec-value 
(org-element-property (cdr sec-loc) element))) (unless (stringp sec-value) 
(mapc (lambda (obj) (unless ... ...)) sec-value))))) (goto-char 
(org-element-property :end element)) (nconc acc (list (cond ((or (and 
visible-only (org-element-property :hiddenp element)) (not cbeg)) element) 
((and (memq type org-element-greater-elements) (or (memq granularity ...) (and 
... ...) (eq type ...))) (org-element-parse-elements cbeg (org-element-property 
:contents-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-restriction 
type))) (t element)))))
  (while (not (eobp)) (let* ((element (org-element-current-element granularity 
special structure)) (type (org-element-type element)) (cbeg 
(org-element-property :contents-begin element))) (plist-put (nth 1 element) 
:parent acc) (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-property :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 element) 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-limited-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))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (assq type 
org-element-secondary-value-alist))) (when sec-loc (let ((sec-value ...)) 
(unless (stringp sec-value) (mapc ... sec-value))))) (goto-char 
(org-element-property :end element)) (nconc acc (list (cond ((or ... ...) 
element) ((and ... ...) (org-element-parse-elements cbeg ... ... ... 
granularity visible-only element)) ((and cbeg ...) (org-element-parse-objects 
cbeg ... element ...)) (t element)))))))
  (save-excursion (save-restriction (narrow-to-region beg end) (goto-char beg) 
(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)) (type 
(org-element-type element)) (cbeg (org-element-property :contents-begin 
element))) (plist-put (nth 1 element) :parent acc) (let ((sec-loc (assq type 
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-element-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-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 nil visible-only))
  (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-overlay ov (- (overlay-start ov) 
--offset) (- (overlay-end ov) --offset) (current-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-current-backend backend)) (run-hooks (quote 
org-export-before-parsing-hook))) (org-element-parse-buffer nil visible-only)))
  (progn (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-overlay ov (- (overlay-start ov) 
--offset) (- (overlay-end ov) --offset) (current-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-current-backend backend)) (run-hooks (quote 
org-export-before-parsing-hook))) (org-element-parse-buffer nil visible-only))))
  (unwind-protect (progn (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-overlay ov (- (overlay-start ov) 
--offset) (- (overlay-end ov) --offset) (current-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-current-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)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (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-overlay ov (- ... --offset) (- ... 
--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-current-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-invisibility-spec nil)) (org-clone-local-variables --original-buffer 
"^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert 
--buffer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offset) (- ... 
--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-current-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))))
  (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-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert 
--buffer-string) (mapc (lambda (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-buffer nil visible-only)))) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (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-overlay ov (- (overlay-start ov) 
--offset) (- (overlay-end ov) --offset) (current-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-current-backend backend)) (run-hooks (quote 
org-export-before-parsing-hook))) (org-element-parse-buffer nil visible-only))))
  (let ((--original-buffer #<buffer iorg/lisp>) (--offset 0) (--buffer-string 
#("  /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  3113 20. Jun 
14:28 iorg-js.el\n  -rw-r--r-- 1 tj users  2984 29. Jun 21:02 
iorg-library-header.el\n  -rw-r--r-- 1 tj users    84 29. Jun 21:01 
iorg-model.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 face 
dired-header) 32 34 (fontified t) 34 93 (fontified t) 93 94 (dired-filename t 
mouse-face highlight help-echo "mouse-2: visit this file in other window" 
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 other 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 highlight help-echo 
"mouse-2: visit this file in other window" fontified t) 204 205 (fontified t) 
205 206 (fontified t) 206 249 (fontified t) 249 261 (dired-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 file in 
other window" fontified t) 316 361 (fontified t) 361 383 (dired-filename t 
mouse-face highlight help-echo "mouse-2: visit this file in other window" 
fontified t) 383 428 (fontified t) 428 441 (dired-filename t mouse-face 
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 502 
(dired-filename t mouse-face highlight help-echo "mouse-2: visit this file 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 (fontified t) 
560 561 (fontified t) 561 604 (fontified t) 604 616 (dired-filename t 
mouse-face highlight help-echo "mouse-2: visit this file in other window" 
fontified t) 616 617 (fontified t))) (--overlays (mapcar (quote copy-overlay) 
(overlays-in (point-min) (point-max))))) (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-overlay ov (- (overlay-start ov) 
--offset) (- (overlay-end ov) --offset) (current-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-current-backend backend)) (run-hooks (quote 
org-export-before-parsing-hook))) (org-element-parse-buffer nil 
visible-only)))))
  (org-export-with-current-buffer-copy (unless noexpand 
(org-export-expand-include-keyword) (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 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-preprocess))) (goto-char (point-min)) (let 
((org-export-current-backend backend)) (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 backend 
subtreep ext-plist))) (tree (let ((buf (or (buffer-file-name ...) 
(current-buffer)))) (org-export-with-current-buffer-copy (unless noexpand 
(org-export-expand-include-keyword) (let (...) (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 nil 
visible-only))))) (setq tree (org-export-filter-apply-functions (plist-get info 
:filter-parse-tree) tree info)) (setq info (org-combine-plists info 
(org-export-collect-tree-properties tree info))) (let* ((body 
(org-element-normalize-string (org-export-data tree info))) (template (cdr 
(assq (quote template) (plist-get info :translate-alist)))) (output 
(org-export-filter-apply-functions (plist-get info :filter-final-output) (if 
(or (not ...) body-only) 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 
(point-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let 
((info (org-export-install-filters (org-export-get-environment backend subtreep 
ext-plist))) (tree (let ((buf (or ... ...))) 
(org-export-with-current-buffer-copy (unless noexpand 
(org-export-expand-include-keyword) (let ... ...)) (goto-char (point-min)) (let 
(...) (run-hooks ...)) (org-element-parse-buffer nil visible-only))))) (setq 
tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) 
tree info)) (setq info (org-combine-plists info 
(org-export-collect-tree-properties tree info))) (let* ((body 
(org-element-normalize-string (org-export-data tree info))) (template (cdr 
(assq (quote template) (plist-get info :translate-alist)))) (output 
(org-export-filter-apply-functions (plist-get info :filter-final-output) (if 
(or ... body-only) body (funcall template body info)) info))) (when 
org-export-copy-to-kill-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-max)))) (let ((info 
(org-export-install-filters (org-export-get-environment backend subtreep 
ext-plist))) (tree (let ((buf ...)) (org-export-with-current-buffer-copy 
(unless noexpand ... ...) (goto-char ...) (let ... ...) 
(org-element-parse-buffer nil visible-only))))) (setq tree 
(org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree 
info)) (setq info (org-combine-plists info (org-export-collect-tree-properties 
tree info))) (let* ((body (org-element-normalize-string (org-export-data tree 
info))) (template (cdr (assq ... ...))) (output 
(org-export-filter-apply-functions (plist-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-plist 
noexpand))) (with-temp-buffer (insert out) (let ((coding-system-for-write 
org-export-coding-system)) (write-file file))))
  org-export-to-file(e-html 
"/home/tj/git/bugpile/docroot/bugpile-static-bugreport-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) 
".html") (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") 
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))
  (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= (file-name-extension file) "org") (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))))
  (lambda (file) (and (string= (file-name-extension file) "org") (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)))))("bugpile-static-bugreport-guidelines.org")
  mapc((lambda (file) (and (string= (file-name-extension file) "org") (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))))) ("." ".." 
"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 
(string= (file-name-extension file) "org") (let ((absolute-file-name 
(expand-file-name file docroot-dir))) (unless (and (member ... docroot-files) 
(file-newer-than-file-p ... ...)) (org-export-to-file (quote e-html) 
absolute-file-name))))) docroot-files))
  iorg-controller--serve-docroot("bugpile" ("bugpile" (:dir . "~/git/bugpile/") 
(:host . "localhost") (:port . "8008") (:docroot . "docroot") (:docroot-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))) (message 
"%s" (concat "Project not registered in customizable " "variable 
'iorg-projects-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 proj-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)


-- 
cheers,
Thorsten