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 #) (--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)