Insert date from calendar

Insert date from calendar

[KIRCHE Sébastien]

Hi,
i have the following defun in my .emacs :

(defun my-insert-date ()  (interactive)  (insert (calendar-date-string
(calendar-current-date)))) 
I would like to tune this to insert the date corresponding to where the
cursor is currently
in the calendar
But i know very few lisp.

Does someone can help ?
Thanks,
Sébastien Kirche


----------------------------------------------------------------------------
------------------------------------------ Ce message et tous les fichiers
qui y sont attachés contiennent des informations confidentielles,
exclusivement destinées à la personne à laquelle elles sont adressées. Dans
l’hypothèse où ce message ne vous serait pas destiné, nous vous remercions
de le retourner immédiatement à son émetteur et de le supprimer. La
publication, la distribution, l’impression ou tout autre usage non autorisé
de ce message est strictement interdit. Les idées et opinions contenues dans
ce message sont celles de son auteur et ne représentent pas nécessairement
celles du Groupe Sage.

Re: Insert date from calendar

[Oliver Scholz]

KIRCHE Sébastien <Sebastien.Kirche@sage.com> writes:
[...]
> (defun my-insert-date ()  (interactive)  (insert (calendar-date-string
> (calendar-current-date)))) 
> I would like to tune this to insert the date corresponding to where the
> cursor is currently
> in the calendar

(when (and (boundp 'calendar-buffer)
	   (buffer-live-p (get-buffer calendar-buffer))
  (let ((str
	 (with-current-buffer calendar-buffer
	   (calendar-date-string (calendar-cursor-to-date t)))))
    (insert str)))


    Oliver
-- 
Jour du Travail de l'Année 211 de la Révolution
Liberté, Egalité, Fraternité!