Fixed, thanks.
- Carsten
On Mar 30, 2009, at 10:18 PM, Bernt Hansen wrote:
Carsten Dominik <carsten.domi...@gmail.com> writes:
Sometimes, miracles do happen.
:)
<snip>
Fool the user, not Org!
We will make them just normal outline nodes with stars,
metadata and all the rest. Full citizens. But then we treat
them specially in just two situations:
1. For visibility cycling: We disqualify these tasks from being
recognized during visibility cycling. Simply by setting a
limit for the outline depth to be seen by cycling, treating
any deeper levels as normal text. So if the parent opens, all
these "disqualified" nodes are treated as text and open as
well.
2. During export: We treat the node and its meta data as special
and export it as some inline construct, and we do this in the
export *preprocessor* already, so that the backends never know
there was an outline node at all. This fixes any issues with
section numbering, text and list continuation etc.
3. As icing on the cake we introduce special fontification which
make inline tasks look deeply indented.
I have put these features into a new add-on, org-inlinetask.el.
Just (require 'org-inlinetask) should turn it on for you, and
any headline with a level 15 or deeper (30 if you use odd levels
only) will then be subject to the special treatment.
I just pushed this file into the git repository. Read the file
commentary for explanations and try it out - I think the
mechanism work surprisingly well.
I simply cannot believe that after all those years, we might be
able to close this task.
I think there's a bug here. I have started using
(setq org-odd-levels-only t)
again and org-cycle() complains about 'limit' not having a value.
,----[ org.el line 4533 ]
| (and limit-level (1- (* limit 2)))
`---- ^^^^^
All I did was update to the latest version in git and did not make any
other changes to my setup (ie. I'm not using the
(require 'org-inlinetask)
stuff)
I'm not sure what this is supposed to be..
Here's the backtrace.
-Bernt
Debugger entered--Lisp error: (void-variable limit)
(* limit 2)
(1- (* limit 2))
(and limit-level (1- (* limit 2)))
(if org-odd-levels-only (and limit-level (1- ...)) limit-level)
(and limit-level (if org-odd-levels-only (and limit-level ...)
limit-level))
(let* ((limit-level ...) (nstars ...) (outline-regexp ...) (bob-
special ...) (org-cycle-hook ...) (pos ...)) (if (or bob-
special ...) (setq arg t)) (cond (... ... ...) (... ... ...)
(... ...) (... ...) (... ...) (... ...) (... ... ...) (buffer-read-
only ...) (...) (...) (... ...) (... ...) (t ...)))
org-cycle(nil)
call-interactively(org-cycle)
recursive-edit()
byte-code("Æ @Ç=!ÈÉÊ\"ËÉ!A@)¢Ì=!ÈÍÊ\"Î!Ï Ð !\fcÑed\"
VWebÒ
¥y`dbÒ
¥
Zy`|)ÓcebÔÕÖ \"× ÔØ!ÙÊÔØ!Ú +Ù" [unread-command-char
debugger-args x debugger-buffer noninteractive debugger-batch-max-
lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-
buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n"
message "%s" buffer-string kill-emacs "" nil recursive-edit
middlestart buffer-read-only standard-output] 4)
debug(error (void-variable limit))
(* limit 2)
(1- (* limit 2))
(and limit-level (1- (* limit 2)))
(if org-odd-levels-only (and limit-level (1- ...)) limit-level)
(and limit-level (if org-odd-levels-only (and limit-level ...)
limit-level))
(let* ((limit-level ...) (nstars ...) (outline-regexp ...) (bob-
special ...) (org-cycle-hook ...) (pos ...)) (if (or bob-
special ...) (setq arg t)) (cond (... ... ...) (... ... ...)
(... ...) (... ...) (... ...) (... ...) (... ... ...) (buffer-read-
only ...) (...) (...) (... ...) (... ...) (t ...)))
org-cycle(nil)
call-interactively(org-cycle)
recursive-edit()
byte-code("Æ @Ç=!ÈÉÊ\"ËÉ!A@)¢Ì=!ÈÍÊ\"Î!Ï Ð !\fcÑed\"
VWebÒ
¥y`dbÒ
¥
Zy`|)ÓcebÔÕÖ \"× ÔØ!ÙÊÔØ!Ú +Ù" [unread-command-char
debugger-args x debugger-buffer noninteractive debugger-batch-max-
lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-
buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n"
message "%s" buffer-string kill-emacs "" nil recursive-edit
middlestart buffer-read-only standard-output] 4)
debug(error (void-variable limit))
(* limit 2)
(1- (* limit 2))
(and limit-level (1- (* limit 2)))
(if org-odd-levels-only (and limit-level (1- ...)) limit-level)
(and limit-level (if org-odd-levels-only (and limit-level ...)
limit-level))
(let* ((limit-level ...) (nstars ...) (outline-regexp ...) (bob-
special ...) (org-cycle-hook ...) (pos ...)) (if (or bob-
special ...) (setq arg t)) (cond (... ... ...) (... ... ...)
(... ...) (... ...) (... ...) (... ...) (... ... ...) (buffer-read-
only ...) (...) (...) (... ...) (... ...) (t ...)))
org-cycle(nil)
call-interactively(org-cycle)
yas/expand()
call-interactively(yas/expand)
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode