[new exporter] Date format string not handled for LaTeX export

[new exporter] Date format string not handled for LaTeX export

[Michael Gauland]

When I provide a format string to the #+DATE: option, the old LaTeX exporter
correctly uses it to format the current date; the new exporter just uses the
format string for the date.

The new HTML exporter does not have this problem.

Re: [new exporter] Date format string not handled for LaTeX export

[Nicolas Goaziou]

Hello,

Michael Gauland <mikelygee@no8wireless.co.nz> writes:

> When I provide a format string to the #+DATE: option, the old LaTeX exporter
> correctly uses it to format the current date; the new exporter just uses the
> format string for the date.

I wasn't aware of that "feature". Though, I don't like it: it is fragile
for technical reasons (it may or may not work on every exporter) and it
adds yet another special rule to remember.

On the other hand, you have a hard-coded macro to solve this problem:

  #+DATE: {{{time(%c)}}}

It will work across every back-end (but you need the latest Org version,
since I recently to fixed a bug related to it).

> The new HTML exporter does not have this problem.

I am going to remove this hack from new back-ends as it isn't necessary.


Regards,

-- 
Nicolas Goaziou

Re: [new exporter] Date format string not handled for LaTeX export

[Michael Gauland]

Nicolas Goaziou <n.goaziou <at> gmail.com> writes:
> On the other hand, you have a hard-coded macro to solve this problem:
> 
>   #+DATE: {{{time(%c)}}}
> 
> It will work across every back-end (but you need the latest Org version,
> since I recently to fixed a bug related to it).

Thanks--that will do nicely. Unfortunately, I can't seem to get it working. When
I export to HTML, I get a blank date; when I try to export to LaTeX, the
exporter doesn't appear to do anything. After hitting ^G, the .tex file is
unchanged.

I've grabbed the latest from git
(commit 1f3a2c42c6317a4b0e97b237f079c51f0028cc90).

Re: [new exporter] Date format string not handled for LaTeX export

[Nicolas Goaziou]

Michael Gauland <mikelygee@no8wireless.co.nz> writes:

> Nicolas Goaziou <n.goaziou <at> gmail.com> writes:
>> On the other hand, you have a hard-coded macro to solve this problem:
>> 
>>   #+DATE: {{{time(%c)}}}
>> 
>> It will work across every back-end (but you need the latest Org version,
>> since I recently to fixed a bug related to it).
>
> Thanks--that will do nicely. Unfortunately, I can't seem to get it working. When
> I export to HTML, I get a blank date; when I try to export to LaTeX, the
> exporter doesn't appear to do anything. After hitting ^G, the .tex file is
> unchanged.

I just tried with a minimal init and it worked. Could you send the
example you're trying to export?

Thank you.


Regards,

-- 
Nicolas Goaziou

Re: [new exporter] Date format string not handled for LaTeX export

[Michael Gauland]

Nicolas Goaziou <n.goaziou <at> gmail.com> writes:

> I just tried with a minimal init and it worked. Could you send the
> example you're trying to export?

The file is below. With a minimal init, I get the error "Symbol's function
definition is void: org-macro-initialize-templates'. If I use my full .emacs
file, the exporter just seems to freeze up.

------ test.org -----
#+DATE: {{{date(%c)}}}

This ia a test file.

Re: [new exporter] Date format string not handled for LaTeX export

[Nick Dokos]

Michael Gauland <mikelygee@no8wireless.co.nz> wrote:

> Nicolas Goaziou <n.goaziou <at> gmail.com> writes:
> 
> > I just tried with a minimal init and it worked. Could you send the
> > example you're trying to export?
> 
> The file is below. With a minimal init, I get the error "Symbol's function
> definition is void: org-macro-initialize-templates'. If I use my full .emacs
> file, the exporter just seems to freeze up.
> 
> ------ test.org -----
> #+DATE: {{{date(%c)}}}
> 
> This ia a test file.
> 
> 
> 

With a minimal file, I get a cpu pegged at 100% with no end in
sight. Setting debug-on-quit and C-g gives me the following backtrace.

Org-mode version 7.9.2 (release_7.9.2-533-g07c889 @ /home/nick/elisp/org-mode/lisp/)

Nick


Debugger entered--Lisp error: (quit)
  mapc((lambda (type) (let* ((successor-fun (intern (format "org-element-%s-successor" (or (cdr ...) type)))) (obj (funcall successor-fun limit))) (and obj (setq next-candidates (cons obj next-candidates))))) (inline-babel-call inline-src-block latex-or-entity link macro sub/superscript text-markup))
  (let (next-candidates types-to-search) (if (not objects) (setq types-to-search restriction) (mapc (function (lambda (obj) (if (< (cdr obj) (point)) (setq types-to-search (cons ... types-to-search)) (setq next-candidates (cons obj next-candidates))))) objects)) (mapc (function (lambda (type) (let* ((successor-fun (intern ...)) (obj (funcall successor-fun limit))) (and obj (setq next-candidates (cons obj next-candidates)))))) types-to-search) next-candidates)
  org-element--get-next-object-candidates(23 (inline-babel-call inline-src-block latex-or-entity link macro sub/superscript text-markup) nil)
  (setq candidates (org-element--get-next-object-candidates end restriction candidates))
  (while (setq candidates (org-element--get-next-object-candidates end restriction candidates)) (let ((closest-cand (rassq (apply (quote min) (mapcar (quote cdr) candidates)) candidates))) (if (> (cdr closest-cand) origin) (throw (quote exit) parent) (let* ((object (progn (goto-char ...) (funcall ...))) (cbeg (org-element-property :contents-begin object)) (cend (org-element-property :contents-end object))) (cond ((< (org-element-property :end object) origin) (goto-char (org-element-property :end object))) ((or (not cbeg) (> cbeg origin) (< cend origin)) (throw (quote exit) (org-element-put-property object :parent parent))) (t (goto-char cbeg) (org-element-put-property object :parent parent) (setq parent object restriction (org-element-restriction object) end cend)))))))
  (catch (quote exit) (while (setq candidates (org-element--get-next-object-candidates end restriction candidates)) (let ((closest-cand (rassq (apply (quote min) (mapcar ... candidates)) candidates))) (if (> (cdr closest-cand) origin) (throw (quote exit) parent) (let* ((object (progn ... ...)) (cbeg (org-element-property :contents-begin object)) (cend (org-element-property :contents-end object))) (cond ((< ... origin) (goto-char ...)) ((or ... ... ...) (throw ... ...)) (t (goto-char cbeg) (org-element-put-property object :parent parent) (setq parent object restriction ... end cend))))))) parent)
  (let ((restriction (org-element-restriction type)) (parent element) candidates) (catch (quote exit) (while (setq candidates (org-element--get-next-object-candidates end restriction candidates)) (let ((closest-cand (rassq (apply ... ...) candidates))) (if (> (cdr closest-cand) origin) (throw (quote exit) parent) (let* ((object ...) (cbeg ...) (cend ...)) (cond (... ...) (... ...) (t ... ... ...)))))) parent))
  (if (not (or (let ((post (org-element-property :post-affiliated element))) (and post (> post origin) (< (org-element-property :begin element) origin) (progn (beginning-of-line) (looking-at org-element--affiliated-re) (member (upcase ...) org-element-parsed-keywords)) (setq type (quote keyword)) (if (and (match-end 2) (<= origin ...)) (progn (goto-char ...) (setq end ...)) (goto-char (match-end 0)) (setq end (line-end-position))))) (and (eq type (quote item)) (let ((tag (org-element-property :tag element))) (and tag (progn (beginning-of-line) (search-forward tag ...) (goto-char ...) (and ... ...))))) (and (memq type (quote (headline inlinetask))) (progn (beginning-of-line) (skip-chars-forward "* ") (setq end (point-at-eol)))) (and (memq type (quote (paragraph table-row verse-block))) (let
  ((cbeg (org-element-property :contents-begin element)) (cend (org-element-property :contents-end element))) (and (>= origin cbeg) (<= origin cend) (progn (goto-char cbeg) (setq end cend))))
 ) (and (eq type (quote keyword)) (let ((key (org-element-property :key element))) (and (member key org-element-document-properties) (progn (beginning-of-line) (search-forward key ... t) (forward-char) (setq end ...))))))) element (let ((restriction (org-element-restriction type)) (parent element) candidates) (catch (quote exit) (while (setq candidates (org-element--get-next-object-candidates end restriction candidates)) (let ((closest-cand (rassq ... candidates))) (if (> (cdr closest-cand) origin) (throw (quote exit) parent) (let* (... ... ...) (cond ... ... ...))))) parent)))
  (let* ((origin (point)) (element (org-element-at-point)) (type (car element)) end) (if (not (or (let ((post (org-element-property :post-affiliated element))) (and post (> post origin) (< (org-element-property :begin element) origin) (progn (beginning-of-line) (looking-at org-element--affiliated-re) (member ... org-element-parsed-keywords)) (setq type (quote keyword)) (if (and ... ...) (progn ... ...) (goto-char ...) (setq end ...)))) (and (eq type (quote item)) (let ((tag ...)) (and tag (progn ... ... ... ...)))) (and (memq type (quote (headline inlinetask))) (progn (beginning-of-line) (skip-chars-forward "* ") (setq end (point-at-eol)))) (and (memq type (quote (paragraph table-row verse-block))) (let ((cbeg ...) (cend ...)) (and (>= origin cbeg) (<= origin cend) (progn ... ...)))) (and 
 (eq type (quote keyword)) (let ((key ...)) (and (member key org-element-document-properties) (progn ... ... ... ...)))))) element (let ((restriction (org-element-restriction type)) (parent e
 lement) candidates) (catch (quote exit) (while (setq candidates (org-element--get-next-object-candidates end restriction candidates)) (let ((closest-cand ...)) (if (> ... origin) (throw ... parent) (let* ... ...)))) parent))))
  (save-restriction (widen) (let* ((origin (point)) (element (org-element-at-point)) (type (car element)) end) (if (not (or (let ((post ...)) (and post (> post origin) (< ... origin) (progn ... ... ...) (setq type ...) (if ... ... ... ...))) (and (eq type (quote item)) (let (...) (and tag ...))) (and (memq type (quote ...)) (progn (beginning-of-line) (skip-chars-forward "* ") (setq end ...))) (and (memq type (quote ...)) (let (... ...) (and ... ... ...))) (and (eq type (quote keyword)) (let (...) (and ... ...))))) element (let ((restriction (org-element-restriction type)) (parent element) candidates) (catch (quote exit) (while (setq candidates (org-element--get-next-object-candidates end restriction candidates)) (let (...) (if ... ... ...))) parent)))))
  (save-excursion (save-restriction (widen) (let* ((origin (point)) (element (org-element-at-point)) (type (car element)) end) (if (not (or (let (...) (and post ... ... ... ... ...)) (and (eq type ...) (let ... ...)) (and (memq type ...) (progn ... ... ...)) (and (memq type ...) (let ... ...)) (and (eq type ...) (let ... ...)))) element (let ((restriction (org-element-restriction type)) (parent element) candidates) (catch (quote exit) (while (setq candidates ...) (let ... ...)) parent))))))
  org-element-context()
  (let ((object (org-element-context))) (if (eq (org-element-type object) (quote macro)) (progn (let ((value (org-macro-expand object templates))) (if value (progn (delete-region (org-element-property :begin object) (progn ... ... ...)) (save-excursion (insert value))))))))
  (while (re-search-forward "{{{[-A-Za-z0-9_]" nil t) (let ((object (org-element-context))) (if (eq (org-element-type object) (quote macro)) (progn (let ((value (org-macro-expand object templates))) (if value (progn (delete-region ... ...) (save-excursion ...))))))))
  (save-excursion (goto-char (point-min)) (while (re-search-forward "{{{[-A-Za-z0-9_]" nil t) (let ((object (org-element-context))) (if (eq (org-element-type object) (quote macro)) (progn (let ((value ...)) (if value (progn ... ...))))))))
  org-macro-replace-all((("author" . #("Nick Dokos" 0 10 (:parent nil))) ("date" . "{{{date(%c)}}}") ("email" . "nick@alphaville") ("title" . " *temp*")))
  (if noexpand nil (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get info :date))) (cons "email" (or (plist-get info :email) "")) (cons "title" (org-element-interpret-data (plist-get info :title))))))
  (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file (current-buffer))) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-plist))) (if noexpand nil (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get info :date))) (cons "email" (or (plist-get info :email) "")) (cons "title" (org-element-interpret-data (plist-get info :title)))))) (setq tree (org-export-filter-apply-functions (plist-get
  info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)))
  (let ((buffer-invisibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (apply (quote narrow-to-region) --region) (mapc (lambda (ov) (move-overlay ov (overlay-start ov) (overlay-end ov) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file (current-buffer))) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-plist))) (if noex
 pand nil (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get info :date))) (cons "email" (o
 r (plist-get info :email) "")) (cons "title" (org-element-interpret-data (plist-get info :title)))))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info))))
  (progn (let ((buffer-invisibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (apply (quote narrow-to-region) --region) (mapc (lambda (ov) (move-overlay ov (overlay-start ov) (overlay-end ov) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file (current-buffer))) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-plist))) (
 if noexpand nil (org-macro-replace-all (list (cons "author" (org-element-interpret-data ...)) (cons "date" (org-element-interpret-data ...)) (cons "email" (or ... "")) (cons "title" (org-ele
 ment-interpret-data ...))))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)))))
  (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (apply (quote narrow-to-region) --region) (mapc (lambda (ov) (move-overlay ov (overlay-start ov) (overlay-end ov) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file ...)) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-plist))
 ) (if noexpand nil (org-macro-replace-all (list (cons "author" ...) (cons "date" ...) (cons "email" ...) (cons "title" ...)))) (setq tree (org-export-filter-apply-functions (plist-get info :
 filter-parse-tree) (org-element-parse-buffer nil visible-only) info))))) (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) (apply (quote narrow-to-region) --region) (mapc (lambda (ov) (move-overlay ov (overlay-start ov) (overlay-end ov) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let (...) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend 
 subtreep ext-plist))) (if noexpand nil (org-macro-replace-all (list ... ... ... ...))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-bu
 ffer nil visible-only) info))))) (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) (apply (quote narrow-to-region) --region) (mapc (lambda (ov) (move-overlay ov (overlay-start ov) (overlay-end ov) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let (...) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-
 plist))) (if noexpand nil (org-macro-replace-all (list ... ... ... ...))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visi
 ble-only) info))))) (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) (apply (quote narrow-to-region) --region) (mapc (lambda (ov) (move-overlay ov ... ... ...)) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ... ...)) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters ...)) (if noexpand nil (org-macro-replace-all ...)) (setq tree (or
 g-export-filter-apply-functions ... ... info))))) (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) (apply (quote narrow-to-region) --region) (mapc (lambda (ov) (move-overlay ov (overlay-start ov) (overlay-end ov) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file (current-buffer))) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext
 -plist))) (if noexpand nil (org-macro-replace-all (list (cons "author" (org-element-interpret-data ...)) (cons "date" (org-element-interpret-data ...)) (cons "email" (or ... "")) (cons "titl
 e" (org-element-interpret-data ...))))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)))))
  (let* ((--original-buffer (current-buffer)) (--region (list (point-min) (point-max))) (--buffer-string (org-with-wide-buffer (buffer-string))) (--overlays (mapcar (quote copy-overlay) (apply (quote overlays-in) --region)))) (with-temp-buffer (let ((buffer-invisibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (apply (quote narrow-to-region) --region) (mapc (lambda (ov) (move-overlay ov (overlay-start ov) (overlay-end ov) (current-buffer))) --overlays) (goto-char (point-min)) (progn (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file ...)) (org-export-blocks-preprocess))) (
 org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment
  backend subtreep ext-plist))) (if noexpand nil (org-macro-replace-all (list (cons "author" ...) (cons "date" ...) (cons "email" ...) (cons "title" ...)))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info))))))
  (org-export-with-current-buffer-copy (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file (current-buffer))) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-plist))) (if noexpand nil (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get info :date))) (cons "email" (or (plist-get info :email) "")) (cons "title" (org-element-interpret-data (plist-get info :title)))))) (setq tree (org-export-fil
 ter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)))
  (let (info tree) (org-export-with-current-buffer-copy (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file (current-buffer))) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-plist))) (if noexpand nil (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get info :date))) (cons "email" (or (plist-get info :email) "")) (cons "title" (org-element-interpret-data (plist-get info :title)))))) (setq tre
 e (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info))) (setq info (org-combine-plists info (org-export-collect-tree-prop
 erties 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))) (if org-export-copy-to-kill-ring (progn (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 tree) (org-export-with-current-buffer-copy (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file (current-buffer))) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-plist))) (if noexpand nil (org-macro-replace-all (list (cons "author" (org-element-interpret-data ...)) (
 cons "date" (org-element-interpret-data ...)) (cons "email" (or ... "")) (cons "title" (org-element-interpret-data ...))))) (setq tree (org-export-filter-apply-functions (plist-get info :fil
 ter-parse-tree) (org-element-parse-buffer nil visible-only) 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))) (if org-export-copy-to-kill-ring (progn (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 tree) (org-export-with-current-buffer-copy (if noexpand nil (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (let ((org-current-export-file ...)) (org-export-blocks-preprocess))) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote org-export-before-parsing-hook) backend) (setq info (org-export-install-filters (org-export-get-environment backend subtreep ext-plist))) (if noexpand nil (org-macro-replace-all (list (cons "author" ...) (cons "date" ...) (cons "em
 ail" ...) (cons "title" ...)))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) 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))) (if org-export-copy-to-kill-ring (progn (org-kill-new output))) output))))
  org-export-as(e-latex nil nil nil nil nil)
  (let ((out (org-export-as backend subtreep visible-only body-only ext-plist noexpand))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert out) (let ((coding-system-for-write org-export-coding-system)) (write-file file))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  org-export-to-file(e-latex "./date.tex" nil nil nil nil)
  (let ((outfile (org-export-output-file-name ".tex" subtreep pub-dir))) (org-export-to-file (quote e-latex) outfile subtreep visible-only body-only ext-plist))
  org-e-latex-export-to-latex(nil nil nil)
  funcall(org-e-latex-export-to-latex nil nil nil)
  (cond ((eql action (quote publish-current-file)) (org-e-publish-current-file (memq (quote force) optns))) ((eql action (quote publish-current-project)) (org-e-publish-current-project (memq (quote force) optns))) ((eql action (quote publish-choose-project)) (org-e-publish (assoc (org-icompleting-read "Publish project: " org-e-publish-project-alist nil t) org-e-publish-project-alist) (memq (quote force) optns))) ((eql action (quote publish-all)) (org-e-publish-all (memq (quote force) optns))) (t (funcall action (memq (quote subtree) optns) (memq (quote visible) optns) (memq (quote body) optns))))
  (let* ((input (let ((wconfig (current-window-configuration))) (unwind-protect (progn (unwind-protect (org-export-dispatch-ui ... nil org-export-dispatch-use-expert-ui) (and ... ...))) (set-window-configuration wconfig)))) (action (car input)) (optns (cdr input))) (cond ((eql action (quote publish-current-file)) (org-e-publish-current-file (memq (quote force) optns))) ((eql action (quote publish-current-project)) (org-e-publish-current-project (memq (quote force) optns))) ((eql action (quote publish-choose-project)) (org-e-publish (assoc (org-icompleting-read "Publish project: " org-e-publish-project-alist nil t) org-e-publish-project-alist) (memq (quote force) optns))) ((eql action (quote publish-all)) (org-e-publish-all (memq (quote force) optns))) (t (funcall action (memq (quote subtre
 e) optns) (memq (quote visible) optns) (memq (quote body) optns)))))
  org-export-dispatch()
  call-interactively(org-export-dispatch record nil)
  command-execute(org-export-dispatch record)
  execute-extended-command(nil "org-export-dispatch")
  call-interactively(execute-extended-command nil nil)

Re: [new exporter] Date format string not handled for LaTeX export

[Nicolas Goaziou]

Hello,

Nick Dokos <nicholas.dokos@hp.com> writes:

> Michael Gauland <mikelygee@no8wireless.co.nz> wrote:
>
>> Nicolas Goaziou <n.goaziou <at> gmail.com> writes:
>> 
>> > I just tried with a minimal init and it worked. Could you send the
>> > example you're trying to export?
>> 
>> The file is below. With a minimal init, I get the error "Symbol's function
>> definition is void: org-macro-initialize-templates'. If I use my full .emacs
>> file, the exporter just seems to freeze up.
>> 
>> ------ test.org -----
>> #+DATE: {{{date(%c)}}}
>> 
>> This ia a test file.
>> 
>> 
>> 
>
> With a minimal file, I get a cpu pegged at 100% with no end in
> sight. Setting debug-on-quit and C-g gives me the following backtrace.
>
> Org-mode version 7.9.2 (release_7.9.2-533-g07c889 @
> /home/nick/elisp/org-mode/lisp/)

This is {{{time(...)}}}, not {{{date(...)}}}.

{{{date(%c)}}} is another macro that is replaced with the #+DATE: value
during export. Since you try to replace #+DATE: value with itself, you
dive into an inf loop.


Regards,

-- 
Nicolas Goaziou

Re: [new exporter] Date format string not handled for LaTeX export

[Achim Gratz]

Nicolas Goaziou writes:
> {{{date(%c)}}} is another macro that is replaced with the #+DATE: value
> during export. Since you try to replace #+DATE: value with itself, you
> dive into an inf loop.

Which raises the question if this shouldn't be detected and prevented,
at least if direct recursion is involved.


Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

SD adaptation for Waldorf microQ V2.22R2:
http://Synth.Stromeko.net/Downloads.html#WaldorfSDada

Re: [new exporter] Date format string not handled for LaTeX export

[Eric S Fraga]

Nick Dokos <nicholas.dokos@hp.com> writes:
> With a minimal file, I get a cpu pegged at 100% with no end in
> sight. Setting debug-on-quit and C-g gives me the following backtrace.

I get this same problem (100% cpu) if I use the date macro in the #+DATE
line; I don't get this if I use the modification-time macro instead.

-- 
: Eric S Fraga, GnuPG: 0xC89193D8FFFCF67D
: in Emacs 24.2.50.1 and Org release_7.9.2-536-g1f3a2c

Re: [new exporter] Date format string not handled for LaTeX export

[Michael Gauland]

[-- Attachment #1: Type: text/plain, Size: 745 bytes --]

On 30/10/12 20:14, Nicolas Goaziou wrote:
> This is {{{time(...)}}}, not {{{date(...)}}}.
>
> {{{date(%c)}}} is another macro that is replaced with the #+DATE: value
> during export. Since you try to replace #+DATE: value with itself, you
> dive into an inf loop.

I think I understand what's going on now, but I'm still at a loss as to
how to get the date I want. Can I tell the exporter that the date on the
document should be derived from the current time (or the last
modification time), formatted a particular way? For example, I can use
this macro to put the current time in my document:

    {{{time(%Y-%m-%d %H:%M)}}}

How can I set #+DATE to get an equivalent result?

Thanks for your help.

Kind regards,
Mike



[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 897 bytes --]

Re: [new exporter] Date format string not handled for LaTeX export

[Nicolas Goaziou]

Hello,

Achim Gratz <Stromeko@nexgo.de> writes:

> Nicolas Goaziou writes:
>> {{{date(%c)}}} is another macro that is replaced with the #+DATE: value
>> during export. Since you try to replace #+DATE: value with itself, you
>> dive into an inf loop.
>
> Which raises the question if this shouldn't be detected and prevented,
> at least if direct recursion is involved.

It has already been fixed in master. I wouldn't leave an infloop in the
wild.


Regards,

-- 
Nicolas Goaziou

Re: [new exporter] Date format string not handled for LaTeX export

[Nicolas Goaziou]

Michael Gauland <mikelygee@no8wireless.co.nz> writes:

> I think I understand what's going on now, but I'm still at a loss as to
> how to get the date I want. Can I tell the exporter that the date on the
> document should be derived from the current time (or the last
> modification time), formatted a particular way? For example, I can use
> this macro to put the current time in my document:
>
>     {{{time(%Y-%m-%d %H:%M)}}}
>
> How can I set #+DATE to get an equivalent result?

Doesn't

   #+DATE: {{{time(%Y-%m-%d %H:%M)}}}

get you what you expect?


Regards,

Re: [new exporter] Date format string not handled for LaTeX export

[Michael Gauland]

[-- Attachment #1: Type: text/plain, Size: 170 bytes --]

On 30/10/12 22:29, Nicolas Goaziou wrote:
> Doesn't
>
>    #+DATE: {{{time(%Y-%m-%d %H:%M)}}}
>
> get you what you expect?

That gives me an empty date string.


[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 897 bytes --]

Re: [new exporter] Date format string not handled for LaTeX export

[Nick Dokos]

Michael Gauland <mikelygee@no8wireless.co.nz> wrote:

> On 30/10/12 22:29, Nicolas Goaziou wrote:
> > Doesn't
> >
> >    #+DATE: {{{time(%Y-%m-%d %H:%M)}}}
> >
> > get you what you expect?
> 
> That gives me an empty date string.
> 

Works for me.

Nick

PS Re: the infinite loop with date() - D'oh! That's what I get by mindlessly
   cutting and pasting...

Re: [new exporter] Date format string not handled for LaTeX export

[Nicolas Goaziou]

Hello,

Nick Dokos <nicholas.dokos@hp.com> writes:

> Michael Gauland <mikelygee@no8wireless.co.nz> wrote:
>
>> On 30/10/12 22:29, Nicolas Goaziou wrote:
>> > Doesn't
>> >
>> >    #+DATE: {{{time(%Y-%m-%d %H:%M)}}}
>> >
>> > get you what you expect?
>> 
>> That gives me an empty date string.
>> 
>
> Works for me.

I also get a correct date with it, even with a minimal set-up.

Michael: have you tried it on different back-ends?


Regards,

-- 
Nicolas Goaziou

Re: [new exporter] Date format string not handled for LaTeX export

[Eric S Fraga]

Nicolas Goaziou <n.goaziou@gmail.com> writes:

> Michael Gauland <mikelygee@no8wireless.co.nz> writes:
>> How can I set #+DATE to get an equivalent result?
>
> Doesn't
>
>    #+DATE: {{{time(%Y-%m-%d %H:%M)}}}

Works perfectly fine for me.  And thanks for the explanation of the
cause of the inf-loop!

The problem with the inf-loop now makes sense but the documentation
implies otherwise:

,----
| Also,
| `{{{date(FORMAT)}}}' and `{{{modification-time(FORMAT)}}}' refer to
| current date time and to the modification time of the file being
`----

thanks,
eric

-- 
: Eric S Fraga, GnuPG: 0xC89193D8FFFCF67D
: in Emacs 24.2.50.1 and Org release_7.9.2-536-g1f3a2c

Re: [new exporter] Date format string not handled for LaTeX export

[Nicolas Goaziou]

Eric S Fraga <e.fraga@ucl.ac.uk> writes:

> The problem with the inf-loop now makes sense but the documentation
> implies otherwise:
>
> ,----
> | Also,
> | `{{{date(FORMAT)}}}' and `{{{modification-time(FORMAT)}}}' refer to
> | current date time and to the modification time of the file being
> `----

I changed the date macro on purpose.

Since {{{title}}}, {{{author}}} and {{{email}}} refer to, respectively,
#+TITLE:, #+AUTHOR: and #+EMAIL:, {{{date}}} could as well refer to
#+DATE:.

For the sake of completeness, other hard-coded macros are
{{{property(name)}}}, {{{time(format-string)}}}, {{{input-file}}} and
{{{modification-time(format-string)}}}.


Regards,

Re: [new exporter] Date format string not handled for LaTeX export

[Michael Gauland]

Nicolas Goaziou <n.goaziou <at> gmail.com> writes:

> 
> Hello,
> 
> Nick Dokos <nicholas.dokos <at> hp.com> writes:
> > Works for me.
> 
> I also get a correct date with it, even with a minimal set-up.



Well, this is embarassing. I tackled it fresh, after a cup of coffee (for me)
and a re-start (emacs), and it's working. User error? Quantum effects? Whatever
the cause, thanks for your patience and support.

Kind regards,
Mike