emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Org-mode version 6.30c; plain list termination
@ 2009-11-27 15:07 Duane Farnsworth
  2009-11-30 17:22 ` Carsten Dominik
  0 siblings, 1 reply; 2+ messages in thread
From: Duane Farnsworth @ 2009-11-27 15:07 UTC (permalink / raw)
  To: emacs-orgmode

I enjoy using org mode, but I have found a bug that is very
frustrating.  It appears to be platform independent--I have experienced
it on both windows and ubuntu.

Expected behavior: Setting org-empty-line-terminates-plain-lists to t
means that leaving a blank line terminates all open lists and org mode's
indenting/folding behavior respects this.

Actual behavior:  Leaving a blank line does not terminate the list.
Indentation still occurs at the lowest list level that was opened.  If
plain list folding is enabled, all subsequent text (until the next plain
list or headline) is folded.  Setting this variable has no apparent effect.


------------------------------------------------------------------------



Emacs  : GNU Emacs 23.1.50.1 (i486-pc-linux-gnu, GTK+ Version 2.18.0)
 of 2009-09-27 on palmer, modified by Debian
Package: Org-mode version 6.30c

current state:
==============
(setq
 org-empty-line-terminates-plain-lists t
 org-log-done 'time
 org-file-apps '((auto-mode . emacs) ("\\.x?html?\\'" . "firefox %s")
         ("\\.pdf\\'" . default))
 org-todo-keyword-faces '(("REMINDER" :foreground "purple" :weight bold)
              ("APPOINT" :foreground "blue" :weight bold))
 org-startup-align-all-tables t
 org-agenda-custom-commands '(("x" "Basic TODO list" todo "TODO" nil)
                  ("za" "Show all TODOs as a Block List"
                   ((tags-todo
                 "+CATEGORY=\"blah\"+TODO=\"TODO\"" nil)
                (tags-todo
                 "+CATEGORY=\"Personal\"+TODO=\"TODO\"" nil)
                (tags-todo "+CATEGORY=\"Math\"+TODO=\"TODO\""
                 nil)
                (tags-todo
                 "+CATEGORY=\"foo\" +TODO=\"TODO\"" nil)
                )
                   nil)
                  ("zm" "Show blah TODOs" tags
                   "+CATEGORY=\"blah"+TODO=\"TODO\"" nil)
                  ("zw" "Show Math TODOs" tags
                   "+CATEGORY=\"Math\"+TODO=\"TODO\"" nil)
                  ("zp" "Show Personal TODOs" tags
                   "+CATEGORY=\"Personal\"+TODO=\"TODO\"" nil)
                  ("z" .
                   "Show Todos of type a=all, p=personal, m=blah, w=math ")
                  )
 org-agenda-files '("~/Computing/job.org" "~/Computing/home.org"
            "~/Computing/math.org" "~/Computing/foo.org"
            "~/Computing/personal.org")
 org-blocker-hook '(org-block-todo-from-checkboxes
            org-block-todo-from-children-or-siblings-or-parent)
 org-sort-agenda-notime-is-late nil
 org-hide-leading-stars t
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-agenda-remove-tags t
 org-agenda-todo-ignore-scheduled t
 org-archive-location "archive.org::From %s"
 org-deadline-warning-days 7
 org-agenda-time-grid '((daily today require-timed remove-match)
            "----------------" (800 1000 1200 1400 1600 1800 2000))
 org-hide-emphasis-markers t
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-todo-keywords '((sequence "TODO" "DONE")
             (type "REMINDER" "APPOINT" "DONE"))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
          org-cycle-show-empty-lines
          org-optimize-window-after-visibility-change)
 org-mode-hook '((lambda nil
          (setq org-mouse-context-menu-function
           (quote org-mouse-context-menu))
          (when (memq (quote context-menu) org-mouse-features)
           (define-key org-mouse-map
            (if (featurep (quote xemacs)) [button3] [mouse-3]) nil)
           (define-key org-mode-map [mouse-3]
            (quote org-mouse-show-context-menu))
           )
          (define-key org-mode-map [down-mouse-1]
           (quote org-mouse-down-mouse))
          (when (memq (quote context-menu) org-mouse-features)
           (define-key org-mouse-map [C-drag-mouse-1]
            (quote org-mouse-move-tree))
           (define-key org-mouse-map [C-down-mouse-1]
            (quote org-mouse-move-tree-start))
           )
          (when (memq (quote yank-link) org-mouse-features)
           (define-key org-mode-map [S-mouse-2]
            (quote org-mouse-yank-link))
           (define-key org-mode-map [drag-mouse-3]
            (quote org-mouse-yank-link))
           )
          (when (memq (quote move-tree) org-mouse-features)
           (define-key org-mouse-map [drag-mouse-3]
            (quote org-mouse-move-tree))
           (define-key org-mouse-map [down-mouse-3]
            (quote org-mouse-move-tree-start))
           )
          (when (memq (quote activate-stars) org-mouse-features)
           (font-lock-add-keywords nil
            (\`
             (((\, outline-regexp) 0
               (\`
            (face org-link mouse-face highlight keymap
             (\, org-mouse-map))
            )
               (quote prepend))
              )
             )
            t)
           )
          (when (memq (quote activate-bullets) org-mouse-features)
           (font-lock-add-keywords nil
            (\`
             (("^[     ]*\\([-+*]\\|[0-9]+[.)]\\) +"
               (1
            (\`
             (face org-link keymap (\, org-mouse-map) mouse-face
              highlight)
             )
            (quote prepend))
               )
              )
             )
            t)
           )
          (when (memq (quote activate-checkboxes) org-mouse-features)
           (font-lock-add-keywords nil
            (\`
             (("^[     ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
               (2
            (\`
             (face bold keymap (\, org-mouse-map) mouse-face
              highlight)
             )
            t)
               )
              )
             )
            t)
           )
          (defadvice org-open-at-point
           (around org-mouse-open-at-point activate)
           (let ((context (org-context)))
            (cond ((assq :headline-stars context) (org-cycle))
             ((assq :checkbox context) (org-toggle-checkbox))
             ((assq :item-bullet context)
              (let ((org-cycle-include-plain-lists t)) (org-cycle)))
             (t ad-do-it))
            )
           )
          )
         #[nil "\300\301\302\303\304$\207"
           [org-add-hook change-major-mode-hook org-show-block-all
            append local]
           5]
         turn-on-auto-fill)
 org-font-lock-hook '(org-inlinetask-fontify)
 org-cycle-separator-lines 1
 org-confirm-elisp-link-function 'yes-or-no-p
 org-agenda-mode-hook '((lambda nil
             (setq org-mouse-context-menu-function
              (quote org-mouse-agenda-context-menu))
             (define-key org-agenda-keymap
              (if (featurep (quote xemacs)) [button3] [mouse-3])
              (quote org-mouse-show-context-menu))
             (define-key org-agenda-keymap [down-mouse-3]
              (quote org-mouse-move-tree-start))
             (define-key org-agenda-keymap
              (if (featurep (quote xemacs)) [(control mouse-4)]
               [C-mouse-4])
              (quote org-agenda-earlier))
             (define-key org-agenda-keymap
              (if (featurep (quote xemacs)) [(control mouse-5)]
               [C-mouse-5])
              (quote org-agenda-later))
             (define-key org-agenda-keymap [drag-mouse-3]
              (quote
               (lambda (event) (interactive "e")
                (case (org-mouse-get-gesture event)
                 (:left (org-agenda-earlier 1))
                 (:right (org-agenda-later 1)))
                )
               )
              )
             )
            )
 org-agenda-start-on-weekday 0
 org-enforce-todo-dependencies t
 org-occur-hook '(org-first-headline-recenter)
 org-drawers '("PROPERTIES" "CLOCK" "HIDDEN")
 org-export-preprocess-after-tree-selection-hook 
'(org-inlinetask-export-handler)
 org-agenda-use-time-grid nil
 org-enforce-todo-checkbox-dependencies t
 )

^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: Org-mode version 6.30c; plain list termination
  2009-11-27 15:07 Org-mode version 6.30c; plain list termination Duane Farnsworth
@ 2009-11-30 17:22 ` Carsten Dominik
  0 siblings, 0 replies; 2+ messages in thread
From: Carsten Dominik @ 2009-11-30 17:22 UTC (permalink / raw)
  To: Duane Farnsworth; +Cc: emacs-orgmode

Hi Duane,

On Nov 27, 2009, at 4:07 PM, Duane Farnsworth wrote:

> I enjoy using org mode, but I have found a bug that is very
> frustrating.  It appears to be platform independent--I have  
> experienced
> it on both windows and ubuntu.
>
> Expected behavior: Setting org-empty-line-terminates-plain-lists to t
> means that leaving a blank line terminates all open lists and org  
> mode's
> indenting/folding behavior respects this.
>
> Actual behavior:  Leaving a blank line does not terminate the list.
> Indentation still occurs at the lowest list level that was opened.  If
> plain list folding is enabled, all subsequent text (until the next  
> plain
> list or headline) is folded.  Setting this variable has no apparent  
> effect.

Unfortunately, this behavior only works for *export* - not for
identation, and certainly not for outline folding.  In fact,
outline folding for plain list items always goes to the next
sibling item or to the next full headline.  Text "after" an
item does not exist for folding, and it would be complex to fix this.

I would like to fix indentation for this case - but this is also complex
and I have not gotten around to it.  So currently I don't recommend
this setting at all.  For now I will update the documentation of this
variable to make this clearer.

- Carsten

>
>
> ------------------------------------------------------------------------
>
>
>
> Emacs  : GNU Emacs 23.1.50.1 (i486-pc-linux-gnu, GTK+ Version 2.18.0)
> of 2009-09-27 on palmer, modified by Debian
> Package: Org-mode version 6.30c
>
> current state:
> ==============
> (setq
> org-empty-line-terminates-plain-lists t
> org-log-done 'time
> org-file-apps '((auto-mode . emacs) ("\\.x?html?\\'" . "firefox %s")
>        ("\\.pdf\\'" . default))
> org-todo-keyword-faces '(("REMINDER" :foreground "purple" :weight  
> bold)
>             ("APPOINT" :foreground "blue" :weight bold))
> org-startup-align-all-tables t
> org-agenda-custom-commands '(("x" "Basic TODO list" todo "TODO" nil)
>                 ("za" "Show all TODOs as a Block List"
>                  ((tags-todo
>                "+CATEGORY=\"blah\"+TODO=\"TODO\"" nil)
>               (tags-todo
>                "+CATEGORY=\"Personal\"+TODO=\"TODO\"" nil)
>               (tags-todo "+CATEGORY=\"Math\"+TODO=\"TODO\""
>                nil)
>               (tags-todo
>                "+CATEGORY=\"foo\" +TODO=\"TODO\"" nil)
>               )
>                  nil)
>                 ("zm" "Show blah TODOs" tags
>                  "+CATEGORY=\"blah"+TODO=\"TODO\"" nil)
>                 ("zw" "Show Math TODOs" tags
>                  "+CATEGORY=\"Math\"+TODO=\"TODO\"" nil)
>                 ("zp" "Show Personal TODOs" tags
>                  "+CATEGORY=\"Personal\"+TODO=\"TODO\"" nil)
>                 ("z" .
>                  "Show Todos of type a=all, p=personal, m=blah,  
> w=math ")
>                 )
> org-agenda-files '("~/Computing/job.org" "~/Computing/home.org"
>           "~/Computing/math.org" "~/Computing/foo.org"
>           "~/Computing/personal.org")
> org-blocker-hook '(org-block-todo-from-checkboxes
>           org-block-todo-from-children-or-siblings-or-parent)
> org-sort-agenda-notime-is-late nil
> org-hide-leading-stars t
> org-after-todo-state-change-hook '(org-clock-out-if-current)
> org-agenda-remove-tags t
> org-agenda-todo-ignore-scheduled t
> org-archive-location "archive.org::From %s"
> org-deadline-warning-days 7
> org-agenda-time-grid '((daily today require-timed remove-match)
>           "----------------" (800 1000 1200 1400 1600 1800 2000))
> org-hide-emphasis-markers t
> org-export-preprocess-hook '(org-export-blocks-preprocess)
> org-tab-first-hook '(org-hide-block-toggle-maybe)
> org-src-mode-hook '(org-src-mode-configure-edit-buffer)
> org-confirm-shell-link-function 'yes-or-no-p
> org-todo-keywords '((sequence "TODO" "DONE")
>            (type "REMINDER" "APPOINT" "DONE"))
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide- 
> drawers
>         org-cycle-show-empty-lines
>         org-optimize-window-after-visibility-change)
> org-mode-hook '((lambda nil
>         (setq org-mouse-context-menu-function
>          (quote org-mouse-context-menu))
>         (when (memq (quote context-menu) org-mouse-features)
>          (define-key org-mouse-map
>           (if (featurep (quote xemacs)) [button3] [mouse-3]) nil)
>          (define-key org-mode-map [mouse-3]
>           (quote org-mouse-show-context-menu))
>          )
>         (define-key org-mode-map [down-mouse-1]
>          (quote org-mouse-down-mouse))
>         (when (memq (quote context-menu) org-mouse-features)
>          (define-key org-mouse-map [C-drag-mouse-1]
>           (quote org-mouse-move-tree))
>          (define-key org-mouse-map [C-down-mouse-1]
>           (quote org-mouse-move-tree-start))
>          )
>         (when (memq (quote yank-link) org-mouse-features)
>          (define-key org-mode-map [S-mouse-2]
>           (quote org-mouse-yank-link))
>          (define-key org-mode-map [drag-mouse-3]
>           (quote org-mouse-yank-link))
>          )
>         (when (memq (quote move-tree) org-mouse-features)
>          (define-key org-mouse-map [drag-mouse-3]
>           (quote org-mouse-move-tree))
>          (define-key org-mouse-map [down-mouse-3]
>           (quote org-mouse-move-tree-start))
>          )
>         (when (memq (quote activate-stars) org-mouse-features)
>          (font-lock-add-keywords nil
>           (\`
>            (((\, outline-regexp) 0
>              (\`
>           (face org-link mouse-face highlight keymap
>            (\, org-mouse-map))
>           )
>              (quote prepend))
>             )
>            )
>           t)
>          )
>         (when (memq (quote activate-bullets) org-mouse-features)
>          (font-lock-add-keywords nil
>           (\`
>            (("^[     ]*\\([-+*]\\|[0-9]+[.)]\\) +"
>              (1
>           (\`
>            (face org-link keymap (\, org-mouse-map) mouse-face
>             highlight)
>            )
>           (quote prepend))
>              )
>             )
>            )
>           t)
>          )
>         (when (memq (quote activate-checkboxes) org-mouse-features)
>          (font-lock-add-keywords nil
>           (\`
>            (("^[     ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
>              (2
>           (\`
>            (face bold keymap (\, org-mouse-map) mouse-face
>             highlight)
>            )
>           t)
>              )
>             )
>            )
>           t)
>          )
>         (defadvice org-open-at-point
>          (around org-mouse-open-at-point activate)
>          (let ((context (org-context)))
>           (cond ((assq :headline-stars context) (org-cycle))
>            ((assq :checkbox context) (org-toggle-checkbox))
>            ((assq :item-bullet context)
>             (let ((org-cycle-include-plain-lists t)) (org-cycle)))
>            (t ad-do-it))
>           )
>          )
>         )
>        #[nil "\300\301\302\303\304$\207"
>          [org-add-hook change-major-mode-hook org-show-block-all
>           append local]
>          5]
>        turn-on-auto-fill)
> org-font-lock-hook '(org-inlinetask-fontify)
> org-cycle-separator-lines 1
> org-confirm-elisp-link-function 'yes-or-no-p
> org-agenda-mode-hook '((lambda nil
>            (setq org-mouse-context-menu-function
>             (quote org-mouse-agenda-context-menu))
>            (define-key org-agenda-keymap
>             (if (featurep (quote xemacs)) [button3] [mouse-3])
>             (quote org-mouse-show-context-menu))
>            (define-key org-agenda-keymap [down-mouse-3]
>             (quote org-mouse-move-tree-start))
>            (define-key org-agenda-keymap
>             (if (featurep (quote xemacs)) [(control mouse-4)]
>              [C-mouse-4])
>             (quote org-agenda-earlier))
>            (define-key org-agenda-keymap
>             (if (featurep (quote xemacs)) [(control mouse-5)]
>              [C-mouse-5])
>             (quote org-agenda-later))
>            (define-key org-agenda-keymap [drag-mouse-3]
>             (quote
>              (lambda (event) (interactive "e")
>               (case (org-mouse-get-gesture event)
>                (:left (org-agenda-earlier 1))
>                (:right (org-agenda-later 1)))
>               )
>              )
>             )
>            )
>           )
> org-agenda-start-on-weekday 0
> org-enforce-todo-dependencies t
> org-occur-hook '(org-first-headline-recenter)
> org-drawers '("PROPERTIES" "CLOCK" "HIDDEN")
> org-export-preprocess-after-tree-selection-hook '(org-inlinetask- 
> export-handler)
> org-agenda-use-time-grid nil
> org-enforce-todo-checkbox-dependencies t
> )
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2009-11-30 17:26 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2009-11-27 15:07 Org-mode version 6.30c; plain list termination Duane Farnsworth
2009-11-30 17:22 ` Carsten Dominik

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).