Re: [O] [PATCH] Emacs Org Babel Scheme (Geiser) support

[Bruno Félix Rezende Ribeiro]

Em Tue, 6 Aug 2013 23:32:20 + (UTC)
Michael Gauland mikely...@amuri.net escreveu:

 Thanks for such a well-written, well-documented, and most of all
 useful contribution!  Definitely a big improvement over my initial
 implementation.

Thank you --- you're welcome.  I'm also very grateful for your
contribution to Babel.

 I've applied the patch to my system, but I'm having trouble getting
 it to work--I'm not getting any results. For example, this block:

 #+BEGIN_SRC scheme
 (display This is the output)
 This is the value
 #+END_SRC

 Returns nil, whether I'm asking for output or value.

Your example is yielding the intended results on my system.

 I'm running emacs 23.4.1 on Debian wheezy, with Geiser 3.0.

I'm running GNU Emacs 24.1 on my own GNU, with Geiser 0.4.  That is
the latest version of Geiser (May 2013)[fn:1], perhaps your problem
resides there[fn:2].

 Could you send me a copy of your ob-scheme.el to help me track this
 down?

Sure.  It is attached.

--
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix) [0x28D618AF]
((_/)o o(\_)) There is no system but GNU;
 `-'(. .)`-'  Linux-libre is just one of its kernels;
 \_/  All software should be free as in freedom;

* Footnotes

[fn:1] http://geiser.nongnu.org/

[fn:2] I wonder whether you have misspelled your Geiser version.
;;; ob-scheme.el --- org-babel functions for Scheme

;; Copyright (C) 2010-2013 Free Software Foundation, Inc.

;; Authors: Eric Schulte, Michael Gauland
;; Keywords: literate programming, reproducible research, scheme
;; Homepage: http://orgmode.org

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see http://www.gnu.org/licenses/.

;;; Commentary:

;; Now working with SBCL for both session and external evaluation.
;;
;; This certainly isn't optimally robust, but it seems to be working
;; for the basic use cases.

;;; Requirements:

;; - a working scheme implementation
;;   (e.g. guile http://www.gnu.org/software/guile/guile.html)
;;
;; - for session based evaluation geiser is required, which is available from
;;   ELPA.

;;; Code:
(require 'ob)
(require 'geiser nil t)
(defvar geiser-repl--repl) ; Defined in geiser-repl.el
(defvar geiser-impl--implementation)   ; Defined in geiser-impl.el
(defvar geiser-default-implementation) ; Defined in geiser-impl.el
(defvar geiser-active-implementations) ; Defined in geiser-impl.el

(declare-function run-geiser geiser-repl (impl))
(declare-function geiser-mode geiser-mode ())
(declare-function geiser-eval-region geiser-mode (start end optional and-go raw nomsg))
(declare-function geiser-repl-exit geiser-repl (optional arg))

(defvar org-babel-default-header-args:scheme '()
  Default header arguments for scheme code blocks.)

(defun org-babel-expand-body:scheme (body params)
  Expand BODY according to PARAMS, return the expanded body.
  (let ((vars (mapcar #'cdr (org-babel-get-header params :var
(if ( (length vars) 0)
(concat (let (
(mapconcat
 (lambda (var) (format %S (print `(,(car var) ',(cdr var)
 vars \n  )
)\n body ))
  body)))


(defvar org-babel-scheme-repl-map (make-hash-table :test 'equal)
  Map of scheme sessions to session names.)

(defun org-babel-scheme-cleanse-repl-map ()
  Remove dead buffers from the REPL map.
  (maphash
   (lambda (x y)
 (when (not (buffer-name y))
   (remhash x org-babel-scheme-repl-map)))
   org-babel-scheme-repl-map))

(defun org-babel-scheme-get-session-buffer (session-name)
  Look up the scheme buffer for a session; return nil if it doesn't exist.
  (org-babel-scheme-cleanse-repl-map) ; Prune dead sessions
  (gethash session-name org-babel-scheme-repl-map))

(defun org-babel-scheme-set-session-buffer (session-name buffer)
  Record the scheme buffer used for a given session.
  (puthash session-name buffer org-babel-scheme-repl-map))

(defun org-babel-scheme-get-buffer-impl (buffer)
  Returns the scheme implementation geiser associates with the buffer.
  (with-current-buffer (set-buffer buffer)
geiser-impl--implementation))

(defun org-babel-scheme-get-repl (impl name)
  Switch to a scheme REPL, creating it if it doesn't exist:
  (let ((buffer (org-babel-scheme-get-session-buffer name))
	(window-cfg (current-window-configuration)))
(or buffer
	(progn
	  (run-geiser impl)
	  (setq buffer (current-buffer))
	  (if name
	  (progn
		(rename-buffer

[O] [PATCH] Emacs Org Babel Scheme (Geiser) support

[Bruno Félix Rezende Ribeiro]

   _

[PATCH] EMACS ORG BABEL SCHEME (GEISER) SUPPORT

  Bruno Félix Rezende Ribeiro
   _


This is a patch submission for the Emacs Org Babel Scheme support,
Geiser based, implementation (file ob-scheme.el).  It achieves the
following:

1. Removes the restriction on evaluated code's top-level definitions
   introduced in the major rewrite to support Geiser[1].  The previous
   evaluation procedure used to wrap the whole code in a
   `(with-output-to-string ...)' form before sending it to Geiser.  A
   more robust technique is employed in the evaluation procedure
   avoiding such arguable bugs that results from the artificial wrapping
   of code.  Now the Scheme code is not modified in any way before being
   interpreted by the REPL.  For instance it is possible to use the so
   common and necessary `(define ...)' top level statements[2].
2. A more sound and reliable communication mechanism is employed to
   process the return value, output and error yielded by the REPL and
   reported by Geiser to ob-scheme[3].  Previously ob-scheme and Geiser
   did communication over the echo area.[4] That behavior leads to
   inconsistent results when debugging code and potentially broken code
   if a minor change in Geiser's echo area output syntax were made[5].
3. Taking advantage of the new communication mechanism described in the
   previous item the evaluation error handling logic is extended to
   report REPL error messages directly into the result blocks instead of
   the ubiquitous and uninformative An error occurred.  message.
4. Frame window configuration restitution measures are implemented to
   prevent that Geiser spawns a persistent[6] window for each new
   invoked REPL session[7][8].

This patch has been tested only with Guile's Scheme implementation.  But
inasmuch ob-scheme does not interface directly to interpreters, but
rather to Geiser, the code should be implementation agnostic[9].

The ChangeLog follows:

,
| Babel Scheme:
|
|  * lisp/ob-scheme.el (org-babel-scheme-make-session-name): remove wrap
|around code to be evaluated and get evaluation result directly from
|`geiser-eval-region' respecting evaluation error messages and
|restoring frame's window configuration after it.
|(org-babel-scheme-get-repl): Restore frame's window configuration
|after asking Geiser to run the REPL.
|
| These changes fix:
|
| - a major regression from the older implementation that prevents code
|   with top-level definitions from being correctly evaluated.
| - the mechanism of communication with Geiser (before did over the echo
|   area).
| - a bug of reference to a nonexistent echo area message that occurred
|   whenever debugging (edebug) `org-babel-scheme-make-session-name'.
| - the report of evaluation errors.
| - the intrusive creation of REPL windows.
`

Thank you for your contribution to Free Software.  Best regards.

*Ps:*

- The ChangeLog entry is already included in the commit for Org
  maintainers' pleasure.
- Since the changes made sums up to more than 15 lines, so it does not
  classify as tiny change, and the code changed is part of Org's core,
  I will probably need to sign a FSF copyright assignment.  That will be
  no burden as I pretend to contribute to GNU Emacs whenever possible.



Footnotes
_

[1] See [{O} {PATCH} Babel support for scheme using geiser]
(https://lists.gnu.org/archive/html/emacs-orgmode/2013-01/msg00134.html).

[2] In fact, that is the main and original motivation behind this
patch.  Believe it or not the new ob-scheme implementation failed on
my first attempt to evaluate a snippet of scheme that happens to be
the result of the resolution of the first question of the famous [SICP
- Structure and Interpretation of Computer Programs]
(https://mitpress.mit.edu/sicp/sicp.html).  Odd is the fact that it is
a deliberated regression from the older implementation (cf. [1]).

[3] Now it uses the return value of a `geiser-eval-region' call which
is a loose association list containing all information needed.

[4] The echo area message was used by ob-scheme to detect an error on
evaluation and to transform valid result or output into a lisp object.

[5] It was impossible to debug the whole
`org-babel-scheme-execute-with-geiser' procedure because it relied on
the Geiser's echo area output that was generated several forms earlier
and, by the echo area's own nature/mechanism, had gone when the
programmer pressed a key to step to the next stop point in the edebug
process.  Whether that is a edebug or ob-scheme bug is arguable, but
certainly to use the echo area to inter-library communication is not a
good programming practice since the echo area is intended just as a
clue feature for human eyes.

[6] By persistent window I mean an auxiliary window that is not
removed in the end of the associated procedure's execution

[O] Bug: Org-mode supress bold text and sub-trees when exporting to html [7.8.03]

[Bruno Félix Rezende Ribeiro]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.


if you have a buffer with only following org code:

--
#+OPTIONS: *:t

Text 1
*Text 2*
Text 3
--

Bold Text 2 is suppressed when exporting to html, so you only can
see, in web browser, Text 1 as title and Text 3 as text body.
The '*' option value don't matter.  To fix it, it's sufficient to
delete line #+OPTIONS: *:t.  Why *Text 2* was suppressed in the
first case?

Similarly weird, if you have the org code:

--
#+OPTIONS: *:t

* Headline 1
  Text 1

** Headline 2
Text 2

* Headline 3
  Text 3
--

Then all, but Text 2 and subtree Headline 3, is suppressed in the html
output.  It's strange, but you can fix it with a comment with
only a '*' between #+OPTIONS: *:t line and first headline, like:

--
#+OPTIONS: *:t

#*

* Headline 1
  Text 1

** Headline 2
Text 2

* Headline 3
  Text 3
--

Deleting #+OPTIONS: *:t line, like in first example, works
too.  It isn't right.  Why it happens?


Emacs  : GNU Emacs 23.4.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2012-02-08 on felix-laptop
Package: Org-mode version 7.8.03

current state:
==
(setq
 org-log-done nil
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '((DOWNLOADING :foreground dark blue :weight bold)
  (ERROR :foreground red :weight bold))
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-footnote-section nil
 org-footnote-tag-for-non-org-mode-files nil
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-footnote-fill-after-inline-note-extraction t
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe
  org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-email-link-description-format Email %c: %s
 org-mode-hook '(turn-on-auto-fill turn-on-font-lock
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook org-show-block-all 
append local] 5]
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5]
 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-emphasis-regexp-components '( ('\{ -   .,:!?;'\)}\\ 
\n,\' . 20)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
   org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (export-comment 
org-export-blocks-format-comment t)
 (ditaa org-export-blocks-format-ditaa nil) (dot 
org-export-blocks-format-dot nil))
 )
-- 
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix)
((_/)o o(\_)) Uns o chamam de super-vaca...
 `-'(. .)`-'  Outros de hyper-touro...
 \_/  Eu o chamo simplesmente: meta-gnu!

Re: [O] Bug: Org-mode don't renumber plain footnote labels [7.8.03]

[Bruno Félix Rezende Ribeiro]

Nicolas Goaziou n.goaz...@gmail.com writes:

Hello.

 Hello,

 oitofe...@gmail.com (Bruno Félix Rezende Ribeiro) writes:

 According to `org-footnote-renumber-fn:N' docstring, renumbering only
 applies to simple footnotes like fn:17.  This is also is the manual, at
 section 2.10.

 You are right. Please, consider this bug report as feature request.

 I'm not sure to understand. What would you need that
 `org-footnote-normalize' doesn't provide ?

Nothing.  I had not realized that 'org-footnote-normalize' is exactly
what I want.  Completely my fault: inattentive reading.  Sorry for the
inconvenience.

Thank you very much.
-- 
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix)
((_/)o o(\_)) Uns o chamam de super-vaca...
 `-'(. .)`-'  Outros de hyper-touro...
 \_/  Eu o chamo simplesmente: meta-gnu!

[O] Bug: Org-mode don't renumber plain footnote labels [7.8.03]

[Bruno Félix Rezende Ribeiro]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.


 Org-mode don't renumber plain footnote labels, like '[2]', with the key
 command C-u C-c C-x f r.

Emacs  : GNU Emacs 23.4.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2012-02-08 on felix-laptop
Package: Org-mode version 7.8.03

current state:
==
(setq
 org-log-done nil
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '((DOWNLOADING :foreground dark blue :weight bold)
  (ERROR :foreground red :weight bold))
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-footnote-section nil
 org-footnote-tag-for-non-org-mode-files nil
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-footnote-fill-after-inline-note-extraction t
 org-footnote-auto-label 'plain
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe
  org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-email-link-description-format Email %c: %s
 org-mode-hook '(turn-on-auto-fill turn-on-font-lock
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook org-show-block-all 
append local] 5]
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5]
 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-emphasis-regexp-components '( ('\{ -   .,:!?;'\)}\\ 
\n,\' . 20)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
   org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (export-comment 
org-export-blocks-format-comment t)
 (ditaa org-export-blocks-format-ditaa nil) (dot 
org-export-blocks-format-dot nil))
 )
-- 
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix)
((_/)o o(\_)) Uns o chamam de super-vaca...
 `-'(. .)`-'  Outros de hyper-touro...
 \_/  Eu o chamo simplesmente: meta-gnu!

[O] Bug: Org-mode suppress newlines between headlines when sorting footnotes with folded buffer view [7.8.03]

[Bruno Félix Rezende Ribeiro]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.



   Consider the following org code:

   --
   * Headline 1
 This is only a text.[fn:1]

   [fn:1] This is a footnote.

   * Headline 2
 This is another text.[fn:2]

   [fn:2] This is another footnote.
   --
  
   Now consider the folded buffer view of that code:

   --
   * Headline 1...
   * Headline 2...
   --

   If you type 'C-u C-c C-x f s', to sort footnotes, buffer become like
   this:

   --
   * Headline 1...Headline 2...
   --

   If you save and revert the buffer or type S-TAB to get OVERVIEW
   cycling state all is okay again.  If you don't fold headlines before
   sorting, everything goes fine too.  Nevertheless, it's still very
   annoying.

Emacs  : GNU Emacs 23.4.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2012-02-08 on felix-laptop
Package: Org-mode version 7.8.03

current state:
==
(setq
 org-log-done nil
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '((DOWNLOADING :foreground dark blue :weight bold)
  (ERROR :foreground red :weight bold))
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-footnote-section nil
 org-footnote-tag-for-non-org-mode-files nil
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-footnote-fill-after-inline-note-extraction t
 org-footnote-auto-label 'plain
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe
  org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-email-link-description-format Email %c: %s
 org-mode-hook '(turn-on-auto-fill turn-on-font-lock
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook org-show-block-all 
append local] 5]
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5]
 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-emphasis-regexp-components '( ('\{ -   .,:!?;'\)}\\ 
\n,\' . 20)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
   org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (export-comment 
org-export-blocks-format-comment t)
 (ditaa org-export-blocks-format-ditaa nil) (dot 
org-export-blocks-format-dot nil))
 )
-- 
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix)
((_/)o o(\_)) Uns o chamam de super-vaca...
 `-'(. .)`-'  Outros de hyper-touro...
 \_/  Eu o chamo simplesmente: meta-gnu!

Re: [O] Bug: Org-mode don't renumber plain footnote labels [7.8.03]

[Bruno Félix Rezende Ribeiro]

Nicolas Goaziou n.goaz...@gmail.com writes:

 Hello,

 According to `org-footnote-renumber-fn:N' docstring, renumbering only
 applies to simple footnotes like fn:17.  This is also is the manual, at
 section 2.10.


 Regards,

Hello.

You are right.  Please, consider this bug report as feature request.

Best regards.

-- 
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix)
((_/)o o(\_)) Uns o chamam de super-vaca...
 `-'(. .)`-'  Outros de hyper-touro...
 \_/  Eu o chamo simplesmente: meta-gnu!

[O] Bug: Org-mode don't export to html footnotes references inside footnotes as such. [7.8.03]

[Bruno Félix Rezende Ribeiro]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.


Consider the following org code:

--
This is only a text.[1]

[1] This is a text body's footnote.[2]
[2] This is a footnote's footnote.
--

When org-mode exports this code to html, despite the fact that
footnote 2 is present in the final document, it don't exports
footnote 2 reference as a link to footnote 2; it's exported just
like plain text.


Emacs  : GNU Emacs 23.4.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2012-02-08 on felix-laptop
Package: Org-mode version 7.8.03

current state:
==
(setq
 org-log-done nil
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '((DOWNLOADING :foreground dark blue :weight bold)
  (ERROR :foreground red :weight bold))
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-footnote-section nil
 org-footnote-tag-for-non-org-mode-files nil
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-footnote-fill-after-inline-note-extraction t
 org-footnote-auto-label 'plain
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe
  org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-email-link-description-format Email %c: %s
 org-mode-hook '(turn-on-auto-fill turn-on-flyspell turn-on-font-lock
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook org-show-block-all 
append local] 5]
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5]
 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-emphasis-regexp-components '( ('\{ -   .,:!?;'\)}\\ 
\n,\' . 10)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
   org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (export-comment 
org-export-blocks-format-comment t)
 (ditaa org-export-blocks-format-ditaa nil) (dot 
org-export-blocks-format-dot nil))
 )
-- 
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix)
((_/)o o(\_)) Uns o chamam de super-vaca...
 `-'(. .)`-'  Outros de hyper-touro...
 \_/  Eu o chamo simplesmente: meta-gnu!

[O] Bug: Org-mode don't recognizes footnote references inside a #BEGIN_VERSE--#END_VERSE block [7.8.03]

[Bruno Félix Rezende Ribeiro]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.


   Lets suppose that you have a piece of code like this:

   --
   #+BEGIN_VERSE
 This is my poetry
 with two lines[1]
   #+END_VERSE

   [1] Nominally, an auto-reference poetry.
   --

   Org-mode don't recognizes the footnote reference inside the
   #+BEGIN_VERSE--#+END_VERSE block.

Emacs  : GNU Emacs 23.4.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2012-02-08 on felix-laptop
Package: Org-mode version 7.8.03

current state:
==
(setq
 org-log-done nil
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '((DOWNLOADING :foreground dark blue :weight bold)
  (ERROR :foreground red :weight bold))
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-footnote-section nil
 org-footnote-tag-for-non-org-mode-files nil
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-footnote-fill-after-inline-note-extraction t
 org-footnote-auto-label 'plain
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe
  org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-email-link-description-format Email %c: %s
 org-mode-hook '(turn-on-auto-fill turn-on-flyspell turn-on-font-lock
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook org-show-block-all 
append local] 5]
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5]
 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
   org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (export-comment 
org-export-blocks-format-comment t)
 (ditaa org-export-blocks-format-ditaa nil) (dot 
org-export-blocks-format-dot nil))
 )
-- 
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix)
((_/)o o(\_)) Uns o chamam de super-vaca...
 `-'(. .)`-'  Outros de hyper-touro...
 \_/  Eu o chamo simplesmente: meta-gnu!

[O] Bug: Org-mode don't export indented anchor to html [7.8.03]

[Bruno Félix Rezende Ribeiro]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.


   If you have a org code with a indented anchor like this:

   #+ My indented anchor
   ...
   [[My indented anchor]]

   Then org exports the link to html but don't the anchor, thus the link
   become nonfunctional in final document.  Without indentation
   everything runs fine.  However, it's necessary to indent anchors like
   that to reference specific list items, since without indentation the
   list will break off.

Emacs  : GNU Emacs 23.4.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2012-02-08 on felix-laptop
Package: Org-mode version 7.8.03

current state:
==
(setq
 org-log-done nil
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '((DOWNLOADING :foreground dark blue :weight bold)
  (ERROR :foreground red :weight bold))
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-footnote-section nil
 org-footnote-tag-for-non-org-mode-files nil
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-footnote-fill-after-inline-note-extraction t
 org-footnote-auto-label 'plain
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe
  org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-email-link-description-format Email %c: %s
 org-mode-hook '(turn-on-auto-fill turn-on-flyspell turn-on-font-lock
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook org-show-block-all 
append local] 5]
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5]
 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-emphasis-regexp-components '( ('\{ -   .,:!?;'\)}\\ 
\n,\' . 2)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
   org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (export-comment 
org-export-blocks-format-comment t)
 (ditaa org-export-blocks-format-ditaa nil) (dot 
org-export-blocks-format-dot nil))
 )
-- 
 ,= ,-_-. =.  Bruno Félix Rezende Ribeiro (oitofelix)
((_/)o o(\_)) Uns o chamam de super-vaca...
 `-'(. .)`-'  Outros de hyper-touro...
 \_/  Eu o chamo simplesmente: meta-gnu!