From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH] Re: Insert LOGBOOK drawer removes indendation of first line under headline Date: Sat, 21 Mar 2009 18:21:34 +0100 Message-ID: References: <20090320211753.GA4890@thinkpad> Mime-Version: 1.0 (Apple Message framework v930.3) Content-Type: multipart/mixed; boundary="===============0029573186==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Ll7M2-0007hJ-N0 for emacs-orgmode@gnu.org; Sat, 21 Mar 2009 15:59:38 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Ll7Lx-0007df-CK for emacs-orgmode@gnu.org; Sat, 21 Mar 2009 15:59:37 -0400 Received: from [199.232.76.173] (port=41368 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ll7Lw-0007dT-UA for emacs-orgmode@gnu.org; Sat, 21 Mar 2009 15:59:33 -0400 Received: from ey-out-1920.google.com ([74.125.78.150]:1602) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Ll7Lw-0000eE-CQ for emacs-orgmode@gnu.org; Sat, 21 Mar 2009 15:59:32 -0400 Received: by ey-out-1920.google.com with SMTP id 13so217118eye.24 for ; Sat, 21 Mar 2009 12:59:32 -0700 (PDT) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Peter Jones Cc: emacs-orgmode@gnu.org --===============0029573186== Content-Type: multipart/alternative; boundary=Apple-Mail-5--496626593 --Apple-Mail-5--496626593 Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Applied, thanks. - Carsten On Mar 20, 2009, at 11:25 PM, Peter Jones wrote: > David Maus writes: >> When I start to clock a headline (C-c C-x C-i) that does not have a >> LOGBOOK drawer orgmode inserts one but removes the indentation of the >> first line below the headline: > > This patch fixes your problem. Sorry about that. > > diff --git a/lisp/org-clock.el b/lisp/org-clock.el > index c79a6af..8d2279a 100644 > --- a/lisp/org-clock.el > +++ b/lisp/org-clock.el > @@ -444,13 +444,13 @@ the clocking selection, associated with the > letter `d'." > (stringp org-clock-into-drawer) > (and (integerp org-clock-into-drawer) > (< org-clock-into-drawer 2))) > - (org-indent-line-function) > (insert ":" drawer ":\n:END:\n") > - (beginning-of-line 0) > - (org-indent-line-function) > - (beginning-of-line 0) > + (beginning-of-line -1) > + (org-indent-line-function) > (org-flag-drawer t) > - (beginning-of-line 2) > + (beginning-of-line 2) > + (org-indent-line-function) > + (beginning-of-line) > (or org-log-states-order-reversed > (and (re-search-forward org-property-end-re nil t) > (goto-char (match-beginning 0)))))))) > > -- > Peter Jones, http://pmade.com > pmade inc. Louisville, CO US > > > > _______________________________________________ > 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 --Apple-Mail-5--496626593 Content-Type: text/html; charset=US-ASCII Content-Transfer-Encoding: quoted-printable Applied, = thanks.

- Carsten

On Mar 20, = 2009, at 11:25 PM, Peter Jones wrote:

David Maus <maus.david@gmail.com> = writes:
When I start to clock a headline = (C-c C-x C-i) that does not have a
LOGBOOK drawer orgmode inserts one but removes the = indentation of the
first line = below the headline:

This patch fixes your problem. =  Sorry about that.

diff --git a/lisp/org-clock.el = b/lisp/org-clock.el
index c79a6af..8d2279a 100644
--- = a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -444,13 +444,13 @@ = the clocking selection, associated with the letter `d'."
(stringp = org-clock-into-drawer)
(and (integerp = org-clock-into-drawer)
    (< = org-clock-into-drawer 2)))
- (org-indent-line-function)
= = (insert ":" drawer ":\n:END:\n")
- (beginning-of-line 0)
- = (org-indent-line-function)
- (beginning-of-line 0)
+ =        (beginning-of-line -1)
+ =        (org-indent-line-function)
= = (org-flag-drawer t)
- (beginning-of-line 2)
+ =        (beginning-of-line 2)
+ =        (org-indent-line-function)
+<= span class=3D"Apple-tab-span" style=3D"white-space:pre"> = (beginning-of-line)
(or = org-log-states-order-reversed
   (and = (re-search-forward org-property-end-re nil t)
= (goto-char (match-beginning 0))))))))

--
Peter Jones, http://pmade.com
pmade inc. =  Louisville, CO = US



_______________________________________________
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
<= br>
= --Apple-Mail-5--496626593-- --===============0029573186== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --===============0029573186==--