From: Anupam Sengupta <anupamsg@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Org-mode version 6.30c; org-remember does not honor `org-odd-levels-only' setting
Date: Wed, 02 Sep 2009 23:18:44 +0530 [thread overview]
Message-ID: <m263c1grur.fsf@gmail.com> (raw)
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
)
next reply other threads:[~2009-09-02 17:49 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-09-02 17:48 Anupam Sengupta [this message]
2009-09-03 6:50 ` Org-mode version 6.30c; org-remember does not honor `org-odd-levels-only' setting Carsten Dominik
2009-09-03 15:40 ` Anupam Sengupta
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m263c1grur.fsf@gmail.com \
--to=anupamsg@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).