From: Anupam Sengupta <anupamsg@gmail.com>
To: Carsten Dominik <carsten.dominik@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Org-mode version 6.30c; org-remember does not honor `org-odd-levels-only' setting
Date: Thu, 3 Sep 2009 21:10:21 +0530 [thread overview]
Message-ID: <c4c802f90909030840n6f545620o5ba99817eb0a7d8a@mail.gmail.com> (raw)
In-Reply-To: <19AC4586-17FD-4846-9963-27B6390FFDDE@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
prev parent reply other threads:[~2009-09-03 15:47 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-09-02 17:48 Org-mode version 6.30c; org-remember does not honor `org-odd-levels-only' setting Anupam Sengupta
2009-09-03 6:50 ` Carsten Dominik
2009-09-03 15:40 ` Anupam Sengupta [this message]
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=c4c802f90909030840n6f545620o5ba99817eb0a7d8a@mail.gmail.com \
--to=anupamsg@gmail.com \
--cc=carsten.dominik@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).