Re: Org-mode version 6.30c; org-remember does not honor `org-odd-levels-only' setting

[Carsten Dominik <carsten.dominik@gmail.com>]

Hi Anupam,

Remember has no way of knowing what kind of setting for
org-odd-levels-only will be used in the target file.  Therefore
you need to take care of setting this value correctly, for example
with

(add-hook 'org-remember-mode-hook (lambda () (setq org-odd-levels-only  
t)))

or by setting that variable globally.

- Carsten

On Sep 2, 2009, at 7:48 PM, Anupam Sengupta wrote:

> Hi Carsten,
>
>
> *Problem*: `org-odd-levels-only' is not honored in a remember buffer  
> for
> creating child entries.
>
> I have been using the clean outline view using the `org-odd-levels- 
> only'
> setting (actually via the per file #+STARTUP: odd setting) to simulate
> the indented view of the outline (info "(org)Clean View")
>
> This works perfectly in the main buffer for the org files - where
> creating a child entry using M-S-Right (`org-demote-subtree') indents
> the entry by an odd number of stars so that the indentation is  
> preserved
> and the outline hierarchy is correct.
>
> However, in a org-remember buffer, trying to use the same function to
> create a child entry after the main headline does not honor this
> setting, and uses the default behavior of incrementing the stars'  
> count
> by 1.
>
> I.e, instead of this happening in the remember buffer:
>
> * TODO Parent Entry
> *** TODO The child entry /after M-S-Right/
>
> what actually ends up happening is:
>
> * TODO Parent Entry
> ** TODO The child entry /after M-S-Right/
>  ^
>  |
>  +---- Notice the missing third star which should have been created
>
>
> This causes problems in the actual org-buffer later on after the  
> remember
> note is filed - as org-mode seems to get confused on the outline  
> levels.
>
>
> I have added the org-mode settings using the `org-submit-bug-report'
> with some trimming of private settings that probably are not relevant
> (e.g. the `org-agenda-custom-commands').
>
>
> -  Anupam Sengupta
>
> ------------------------------------------------------------------------
> Org-mode variable and customization dump follows  >>>>>>>>>
> ------------------------------------------------------------------------
>
> Emacs  : GNU Emacs 23.1.50.1 (i386-apple-darwin9.7.0, NS apple- 
> appkit-949.46)
> Package: Org-mode version 6.30c
>
> current state:
> ==============
> (setq
> org-empty-line-terminates-plain-lists t
> org-log-done t
> org-remember-default-headline "INBOX"
> org-remember-interactive-interface 'outline-path-completion
> org-todo-keyword-faces '(("MEETING" . hi-blue) ("WAITING" . hi-pink)  
> ("DELEGATED" . hi-pink) ("STARTED" . hi-green))
> org-special-ctrl-a/e t
> org-agenda-files '("~/org/work.gpg" "~/org/personal.gpg")
> org-blocker-hook '(org-block-todo-from-checkboxes org-block-todo- 
> from-children-or-siblings-or-parent)
> org-tag-faces '(("ISSUE" . org-warning) ("Slipped" . org-warning)  
> ("HEADING" . shadow) ("INFO" . shadow) ("ATTACH" . org-clock-overlay)
>                 ("Project" . shadow))
> org-publish-timestamp-directory "~/org/.org-timestamps/"
> org-agenda-tags-column -90
> org-hide-leading-stars t
> org-checklist-export-function 'org-export-as-ascii
> org-agenda-skip-timestamp-if-done t
> org-after-todo-state-change-hook '(org-checklist org-clock-out-if- 
> current)
> org-track-ordered-property-with-tag t
> org-combined-agenda-icalendar-file "~/org/OrgMode.ics"
> org-agenda-default-appointment-duration 60
> org-todo-state-tags-triggers '(("PROJECT" ("Project" . t))  
> ("TODO" ("Project")) ("MEETING" ("Project")))
> org-special-ctrl-k t
> org-remember-mode-hook '(delete-other-windows)
> org-agenda-restore-windows-after-quit t
> org-deadline-warning-days 3
> org-protocol-protocol-alist '(("org-mac-remember" :protocol "mac- 
> remember" :function org-mac-protocol-remember :kill-client t))
> org-agenda-skip-scheduled-if-done t
> org-export-preprocess-hook '(org-eval-replace-snippts org-export- 
> blocks-preprocess)
> org-tags-exclude-from-inheritance '("HEADING" "Project")
> org-tab-first-hook '(org-hide-block-toggle-maybe)
> org-src-mode-hook '(org-src-mode-configure-edit-buffer)
> org-finalize-agenda-hook '(my-org-agenda-to-appt)
> org-confirm-shell-link-function 'yes-or-no-p
> org-toc-info-mode t
> org-clock-persist t
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-icalendar-include-sexps nil
> org-registry-file "~/.emacs.d/data/org-registry.el"
> org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide- 
> drawers org-cycle-show-empty-lines
>                  org-optimize-window-after-visibility-change)
> org-publish-project-alist '(("org-notes" :base-directory "~/ 
> org/" :base-extension "gpg" :publishing-directory "~/ 
> public_html" :recursive
>                              nil :publishing-function org-publish- 
> org-to-html :headline-levels 4 :auto-preamble t)
>                             )
> org-fontify-done-headline t
> 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 "\303\304\x18\x19\305	!\bL\210*\306\n\307\310#\207"
>                   [value var yas/keymap yas/trigger-key [tab] make- 
> local-variable define-key [tab] yas/next-field-group] 4]
>                 org-clock-load #[nil "\300\301!\207" [imenu-add-to- 
> menubar "Headings"] 2] turn-on-auto-fill
>                 #[nil "\300\301\302\303\304$\207" [org-add-hook  
> change-major-mode-hook org-show-block-all append local] 5])
> org-font-lock-hook '(org-eval-handle-snippets)
> org-agenda-ndays 1
> org-refile-targets '((nil :maxlevel . 3))
> org-confirm-elisp-link-function 'yes-or-no-p
> org-log-into-drawer t
> org-clock-modeline-total 'current
> 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-footnote-auto-adjust t
> org-agenda-skip-deadline-if-done t
> org-enforce-todo-dependencies t
> org-occur-hook '(org-first-headline-recenter)
> org-drawers '("PROPERTIES" "CLOCK" "DETAILS" "SETUP" "LOGBOOK")
> org-tags-column -99
> org-modules '(org-bbdb org-bibtex org-gnus org-info org-jsinfo org- 
> mac-message org-protocol org-mouse org-bookmark org-checklist org-eval
>               org-expiry org-panel org-registry org2rem org-toc org- 
> mac-protocol)
> org-remember-templates '(("Next Work Action" 110 "* TODO %^{Heading}  
> %^g\n  SCHEDULED: %^{Scheduled for}t\n  %?%i\n  %a" "~/org/work.gpg"
>                           "INBOX" nil)
>                          ("Next Personal Action" 112 "* TODO  
> %^{Heading} %^g\n  SCHEDULED: %^{Scheduled For}t\n  %?%i\n  %a"
>                           "~/org/personal.gpg" "INBOX" nil))
> org-icalendar-include-todo t
> org-ellipsis 'org-warning
> org-enforce-todo-checkbox-dependencies t
> org-expiry-handler-function 'org-toggle-archive-tag
> )
>
>
> _______________________________________________
> 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