How to stop org delete surrounding newline when adding headlines?

How to stop org delete surrounding newline when adding headlines?

[Shiyao Ma]

[-- Attachment #1: Type: text/plain, Size: 362 bytes --]

Hi,

I don't want org to automatically insert newline when adding headlines, so
I set this:

org-blank-before-new-entry '((heading . nil) (plain-list-item . nil))

But turns out, org *aggressively* delete the existing newlines when I press
ctrl-return.


How to tell org simply not to add newline when adding headline, meanwhile
not do anything else?


Regards.

[-- Attachment #2: Type: text/html, Size: 544 bytes --]

Re: How to stop org delete surrounding newline when adding headlines?

[Narendra Joshi]

Hi,

I am getting Arithmetic Error with Emacs HEAD, while opening
`org-agenda'.
I think it's because of <Tue .. ++0d> the zero in time stamps. (See <2017-01-21 Sat ++0d>" )

Here is the trace:

Debugger entered--Lisp error: (arith-error)
  org-closest-date(#("<2017-01-21 Sat ++0d>" 0 21 (fontified nil org-category "main")) 736398 #("+0d" 0 3 (org-category "main" fontified nil)) nil t)
  org-time-string-to-absolute(#("<2017-01-21 Sat ++0d>" 0 21 (fontified nil org-category "main")) 736398 nil t #<buffer main.org> 38219)
  org-agenda-get-timestamps((#("  main:        5 d. ago:  TODO Write a blog post about something  :writing:" 0 26 (org-category "main" tags ("writing") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Write a blog post about something  :writing:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 5 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 8333 in main.org> warntime nil ts-date 736393 org-hd-marker #<marker at 8242 in main.org> priority 1005 ...) 26 64 (org-heading t org-category "main" fontified nil tags ("writing") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Write a blog post about something  :writing:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 5 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 8333 in main.org> warntime nil ts-date 736393 ...) 64 75 (org-heading t org-category "main" tags ("writing") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Write a blog post about something  :writing:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 5 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 8333 in main.org> warntime nil ts-date 736393 org-hd-marker #<marker at 8242 in main.org> ...)) #("  main:        2 d. ago:  TODO Learn about a culture every month  :culture:" 0 26 (org-category "main" tags ("culture") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Learn about a culture every month  :culture:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 2 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 12067 in main.org> warntime nil ts-date 736396 org-hd-marker #<marker at 11976 in main.org> priority 1002 ...) 26 64 (org-heading t org-category "main" fontified nil tags ("culture") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Learn about a culture every month  :culture:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 2 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 12067 in main.org> warntime nil ts-date 736396 ...) 64 75 (org-heading t org-category "main" tags ("culture") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Learn about a culture every month  :culture:" 0 38 (fontified nil org-category "main" org-heading t) 38 49 (org-heading t)) level "  " time "" extra " 2 d. ago: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 12067 in main.org> warntime nil ts-date 736396 org-hd-marker #<marker at 11976 in main.org> ...)) #("  main:       In   1 d.:  TODO Workout on alternate days          :workout:" 0 26 (org-category "main" tags ("workout") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Workout on alternate days          :workout:" 0 30 (fontified nil org-category "main" org-heading t) 30 49 (org-heading t)) level "  " time "" extra "In   1 d.: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 30535 in main.org> warntime nil ts-date 736399 org-hd-marker #<marker at 30444 in main.org> priority 999 ...) 26 56 (org-heading t org-category "main" fontified nil tags ("workout") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Workout on alternate days          :workout:" 0 30 (fontified nil org-category "main" org-heading t) 30 49 (org-heading t)) level "  " time "" extra "In   1 d.: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 30535 in main.org> warntime nil ts-date 736399 ...) 56 75 (org-heading t org-category "main" tags ("workout") org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort "" effort-minutes nil breadcrumbs nil txt #("TODO Workout on alternate days          :workout:" 0 30 (fontified nil org-category "main" org-heading t) 30 49 (org-heading t)) level "  " time "" extra "In   1 d.: " format (((org-prefix-has-time t) (org-prefix-has-tag nil) (org-prefix-category-length 12) (org-prefix-has-effort nil) (org-prefix-has-breadcrumbs nil)) (format " %s %s%s%s" (format "%s" (if ... "" ...)) (format "%-12s" (if ... "" ...)) (if (equal "" time) "" (format "%-12s" ...)) (format "%s" (if ... "" ...)))) dotime nil mouse-face highlight org-not-done-regexp "\\(TODO\\|TRACKING\\)" org-todo-regexp "\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)" org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(TODO\\|DONE\\|WONT-DO\\|TRACKING\\|TRACKED\\)\\)?\\(?: +\\(\\[#.\\]\\)\\)?\\(?: +\\(.*?\\)\\)??\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ 	]*$" help-echo "mouse-2 or RET jump to org file ~/miscellany/personal/org/main.org" org-marker #<marker at 30535 in main.org> warntime nil ts-date 736399 org-hd-marker #<marker at 30444 in main.org> ...))))
  org-agenda-get-day-entries("/home/nj/miscellany/personal/org/main.org" (3 10 2017) :deadline :scheduled :timestamp :sexp)
  apply(org-agenda-get-day-entries "/home/nj/miscellany/personal/org/main.org" (3 10 2017) (:deadline :scheduled :timestamp :sexp))
  org-agenda-list(nil)
  funcall-interactively(org-agenda-list nil)
  call-interactively(org-agenda-list nil nil)
  #[1025 "\306.\211?\205.\0	\211.\306.\n\203.\0\307 \210.9\203(.\x04\310N\203(.\v\203(.\311\303!\202\244.\x04\312.!\262.\211\211\242\313=\262.\203C.\314.\x06\a\"\211\262.\204).\315.!\203s.\x04\203l.\316.\x03E\fB.\r\247\203l.\r\317V\203l.\r\f\233\211:\203k.\211\306\241\210\210\316.\x03\"\202\242.\320.\x06.\x06.\x06#.\x069\203\242.\x06.\321N\203\242.\x06.\322N\204\242.\323.\a\322\324#\210\325\326\327.	\211\321N\330#\"\210\262.\207" [debug-on-next-call prefix-arg current-prefix-arg disabled-command-function command-history history-length nil prefix-command-update disabled run-hooks indirect-function autoload autoload-do-load arrayp execute-kbd-macro 0 call-interactively byte-obsolete-info command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning "command"] 13 2406715](org-agenda-list nil nil nil)
  ad-Advice-command-execute(#[1025 "\306.\211?\205.\0	\211.\306.\n\203.\0\307 \210.9\203(.\x04\310N\203(.\v\203(.\311\303!\202\244.\x04\312.!\262.\211\211\242\313=\262.\203C.\314.\x06\a\"\211\262.\204).\315.!\203s.\x04\203l.\316.\x03E\fB.\r\247\203l.\r\317V\203l.\r\f\233\211:\203k.\211\306\241\210\210\316.\x03\"\202\242.\320.\x06.\x06.\x06#.\x069\203\242.\x06.\321N\203\242.\x06.\322N\204\242.\323.\a\322\324#\210\325\326\327.	\211\321N\330#\"\210\262.\207" [debug-on-next-call prefix-arg current-prefix-arg disabled-command-function command-history history-length nil prefix-command-update disabled run-hooks indirect-function autoload autoload-do-load arrayp execute-kbd-macro 0 call-interactively byte-obsolete-info command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning "command"] 13 2406715] org-agenda-list)
  apply(ad-Advice-command-execute #[1025 "\306.\211?\205.\0	\211.\306.\n\203.\0\307 \210.9\203(.\x04\310N\203(.\v\203(.\311\303!\202\244.\x04\312.!\262.\211\211\242\313=\262.\203C.\314.\x06\a\"\211\262.\204).\315.!\203s.\x04\203l.\316.\x03E\fB.\r\247\203l.\r\317V\203l.\r\f\233\211:\203k.\211\306\241\210\210\316.\x03\"\202\242.\320.\x06.\x06.\x06#.\x069\203\242.\x06.\321N\203\242.\x06.\322N\204\242.\323.\a\322\324#\210\325\326\327.	\211\321N\330#\"\210\262.\207" [debug-on-next-call prefix-arg current-prefix-arg disabled-command-function command-history history-length nil prefix-command-update disabled run-hooks indirect-function autoload autoload-do-load arrayp execute-kbd-macro 0 call-interactively byte-obsolete-info command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning "command"] 13 2406715] org-agenda-list)
  command-execute(org-agenda-list)


-- 
Narendra Joshi

Re: How to stop org delete surrounding newline when adding headlines?

[Nicolas Goaziou]

Hello,

Narendra Joshi <narendraj9@gmail.com> writes:

> I am getting Arithmetic Error with Emacs HEAD, while opening
> `org-agenda'.
> I think it's because of <Tue .. ++0d> the zero in time stamps. (See
> <2017-01-21 Sat ++0d>" )

I cannot reproduce it on recent Org. Could you update yours and try again?

Regards,

-- 
Nicolas Goaziou

Re: How to stop org delete surrounding newline when adding headlines?

[Nicolas Goaziou]

Hello,

Shiyao Ma <i@introo.me> writes:

> I don't want org to automatically insert newline when adding headlines, so
> I set this:
>
> org-blank-before-new-entry '((heading . nil) (plain-list-item . nil))
>
> But turns out, org *aggressively* delete the existing newlines when I press
> ctrl-return.
>
>
> How to tell org simply not to add newline when adding headline, meanwhile
> not do anything else?

Have you tried '((heading . auto))?

Regards,

-- 
Nicolas Goaziou

Re: How to stop org delete surrounding newline when adding headlines?

[Shiyao Ma]

[-- Attachment #1: Type: text/plain, Size: 745 bytes --]

Hi,

Yes, I've tried with '((heading . auto)).

'((heading . auto)) opens the possibility of inserting newline, which is
not desirable for me.



On Sat, Mar 11, 2017 at 1:21 AM, Nicolas Goaziou <mail@nicolasgoaziou.fr>
wrote:

> Hello,
>
> Shiyao Ma <i@introo.me> writes:
>
> > I don't want org to automatically insert newline when adding headlines,
> so
> > I set this:
> >
> > org-blank-before-new-entry '((heading . nil) (plain-list-item . nil))
> >
> > But turns out, org *aggressively* delete the existing newlines when I
> press
> > ctrl-return.
> >
> >
> > How to tell org simply not to add newline when adding headline, meanwhile
> > not do anything else?
>
> Have you tried '((heading . auto))?
>
> Regards,
>
> --
> Nicolas Goaziou
>

[-- Attachment #2: Type: text/html, Size: 1556 bytes --]

Re: How to stop org delete surrounding newline when adding headlines?

[Nicolas Goaziou]

Hello,

Shiyao Ma <i@introo.me> writes:

> Yes, I've tried with '((heading . auto)).
>
> '((heading . auto)) opens the possibility of inserting newline, which is
> not desirable for me.

Then there is no possibility to achieve what you want at the moment. We
could implement a `manual' behavior for both headings and lists. Do you
want to provide a patch for that?

Regards,

-- 
Nicolas Goaziou

Re: How to stop org delete surrounding newline when adding headlines?

[Shiyao Ma]

[-- Attachment #1: Type: text/plain, Size: 732 bytes --]

Hi,

Not very urgent for me.  I only meant to check if such functionality
exists.

I am now ok with the ((heading . nil)) stuff.  Maybe one day I get bothered
with this behavior, I might write one and post here.

Regards.


On Sat, Mar 11, 2017 at 6:08 PM, Nicolas Goaziou <mail@nicolasgoaziou.fr>
wrote:

> Hello,
>
> Shiyao Ma <i@introo.me> writes:
>
> > Yes, I've tried with '((heading . auto)).
> >
> > '((heading . auto)) opens the possibility of inserting newline, which is
> > not desirable for me.
>
> Then there is no possibility to achieve what you want at the moment. We
> could implement a `manual' behavior for both headings and lists. Do you
> want to provide a patch for that?
>
> Regards,
>
> --
> Nicolas Goaziou
>

[-- Attachment #2: Type: text/html, Size: 1341 bytes --]