Re: Timestamp increment inside tables

From: Carsten Dominik <dominik@science.uva.nl>
To: Niels Giesen <niels.giesen@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Timestamp increment inside tables
Date: Tue, 8 May 2007 08:40:53 +0200	[thread overview]
Message-ID: <098291f14dd087900dfafaa8ef2bc70e@science.uva.nl> (raw)
In-Reply-To: <87ejlxolqe.fsf@gmail.com>

Hi Niels,

nice idea, I am taking the patch.  There *could* be a problem if you 
start this command in a table that is not correctly aligned, but I 
don't think it is worth catering for this special case.

Thanks.

- Carsten

On May 3, 2007, at 19:33, Niels Giesen wrote:

> Hi Carsten,
>
> Please consider this patch to `org-table-copy-down', serving to 
> increment timestamps in
> an org-table while copying down, similar to integer icrements:
>
> --- org.el	2007-04-25 08:26:21.000000000 -0100
> +++ org2.el	2007-05-03 19:24:00.776923788 -0100
> @@ -6495,7 +6495,11 @@
>  column to be filled row-by-row.
>  If the variable `org-table-copy-increment' is non-nil and the field 
> is an
> -integer, it will be incremented while copying."
> +integer or a timestamp, it will be incremented while copying.  In the 
> case of
> +a timestamp, if the cursor is on the year, change the year.  If it is 
> on the
> +month or the day, change that.  Point will stay on the current date 
> field
> +in order to easily repeat the interval."
>    (interactive "p")
>    (let* ((colpos (org-table-current-column))
> +	 (column (- (point) (point-at-bol)))
>  	 (field (org-table-get-field))
>  	 (non-empty (string-match "[^ \t]" field))
> @@ -6526,5 +6530,8 @@
>  	  (insert txt)
>  	  (org-table-maybe-recalculate-line)
> -	  (org-table-align))
> +	  (org-table-align)
> +	  (when (and org-table-copy-increment (org-at-timestamp-p t))
> +	    (goto-char (+ (point-at-bol) column))
> +	    (org-timestamp-up 1)))
>        (error "No non-empty field found"))))
>
> Table alignment does not seem to pose any problems, but this is one 
> thing that might
> require some critical looking into.
>
> Regards,
>
> Niels Giesen
>
> PS: its use? Making expenses claims for train tickets without having 
> to fire up OOo.
> -- 
> It's always darkest just before the lights go out.
> 		-- Alex Clark
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>

--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477