Converting dates to org-mode dates

Converting dates to org-mode dates

[Chris Randle]

Hi

I've been converting a file that contains dates in this format:

dd/mm/yyyy

to Org-mode inactive format. It's pretty simple using regular expression
search & replace, except that I get this far:

[yyyy-mm-dd ]

and can't find a way to put the day of the week in there. Individually,
I can do a 'C-u 0 S-right' on each date, and that shifts the date 0 days
into the future, and fills in the day of the week.

This also impacts on cases (unusual and unlikely, I grant you) where you
might have an incorrect day:

[2007-11-12 Tue] (should be Mon)

As far as I can see, that will stay like this until the date is shifted
in some way.

Is there any way to parse an entire region/buffer for Org-mode dates and
refresh their day of the week text?

-- 
Chris Randle
GNU Emacs 22.1.1
Org-mode 5.13h

Re: Converting dates to org-mode dates

[Rainer Stengele]

Chris Randle schrieb:
> Hi
> 
> I've been converting a file that contains dates in this format:
> 
> dd/mm/yyyy
> 
> to Org-mode inactive format. It's pretty simple using regular expression
> search & replace, except that I get this far:
> 
> [yyyy-mm-dd ]
> 
> and can't find a way to put the day of the week in there. Individually,
> I can do a 'C-u 0 S-right' on each date, and that shifts the date 0 days
> into the future, and fills in the day of the week.
> 
> This also impacts on cases (unusual and unlikely, I grant you) where you
> might have an incorrect day:
> 
> [2007-11-12 Tue] (should be Mon)
> 
> As far as I can see, that will stay like this until the date is shifted
> in some way.
> 
> Is there any way to parse an entire region/buffer for Org-mode dates and
> refresh their day of the week text?
> 

I would probably do this with an Emacs macro,
searching for the date as a regex, moving to the space before "]" and shifting rigth and again shifting left.
This will end up with the right week day for each date.

rainer

RE: Converting dates to org-mode dates

[Chris Randle]

Bastien wrote:
> Maybe you can try this (not heavily tested):
> 
> (defun my-update-day-name-in-inactive-time-stamps ()
>   "Update the abbreviate day name in inactive time-stamps."

Thank you. It works a treat. It also has a potentially useful
side-effect, in that valid inactive time stamps like:

[2007-11-12 ]

are left untouched, which may well be what some people would want,
whereas if my search replace operations leave:

[2007-11-12 xxx]

then they will be updated. And if I want the former style stamps
updated, your code is clear enough that (even!) I can see how to adjust
it.

Thanks again.

-- 
Chris Randle

Re: Converting dates to org-mode dates

[Bastien]

"Chris Randle" <chris@amlog.co.uk> writes:

> [2007-11-12 Tue] (should be Mon)
>
> As far as I can see, that will stay like this until the date is shifted
> in some way.
>
> Is there any way to parse an entire region/buffer for Org-mode dates and
> refresh their day of the week text?

Maybe you can try this (not heavily tested):

(defun my-update-day-name-in-inactive-time-stamps ()
  "Update the abbreviate day name in inactive time-stamps."
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward 
	    "\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\)\\( [a-z]+\\)\\]" nil t)
      (let* ((date (match-string 1))
	     (day (format-time-string
		   "%a"
		   (apply 'encode-time 
			  (save-match-data (org-parse-time-string date))))))
	(replace-match (concat "[" date " " day "]") t t)))))

-- 
Bastien