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

[Anupam Sengupta <anupamsg@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 11151 bytes --]

Thanks Carsten!
I thought on the same lines after posting (about the global vs. per file
setting) - but the hook you suggested is much nicer!


Thanks again,
--
Anupam
http://slashusr.wordpress.com
My Profile: http://www.google.com/profiles/anupamsg


On Thu, Sep 3, 2009 at 12:20 PM, Carsten Dominik
<carsten.dominik@gmail.com>wrote:

> 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  \305   ! L\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
>>
>
>

[-- Attachment #1.2: Type: text/html, Size: 13704 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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