Insert date and Time

Insert date and Time

[Tugello]

Hello, 
good morning to all,I'm newbie with emacs
my question is about how to insert current date and time, using a short key
combination instead to write they completely .
someone ave any suggestion ?
thanks in advance 
-- 
View this message in context: http://old.nabble.com/Insert-date-and-Time-tp27714370p27714370.html
Sent from the Emacs - Help mailing list archive at Nabble.com.

Re: Insert date and Time

[Tim Visher]

On Thu, Feb 25, 2010 at 3:29 AM, Tugello <kompy01@yahoo.it> wrote:
> good morning to all,I'm newbie with emacs
> my question is about how to insert current date and time, using a short key
> combination instead to write they completely .
> someone ave any suggestion ?
> thanks in advance

I use this function to insert a time stamp at point:

    (defun insert-time-stamp ()
      "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
      (interactive)
      (insert (format-time-string "%Y-%m-%d - %I:%M %p")))

I just call that via `M-x insert-time-stamp` unless a higher level
function calls it.  You could call it with a short cut though with
something like

    (global-set-key (kbd "<f12>") 'insert-time-stamp)

if you wanted.

You'll need to evaluate those in your scratch buffer to get them in
the current emacs session.  Paste them in and then `M-x eval-buffer`.

If you want them in all emacs sessions, put them in your .emacs file.
`C-h r m Init File RET`.  Also, [Yegge's .emacs
file](http://steve.yegge.googlepages.com/my-dot-emacs-file) is worth a
read.

Hope that helps.

-- 

In Christ,

Timmy V.

http://burningones.com/
http://five.sentenc.es/ - Spend less time on e-mail

Re: Insert date and Time

[Kevin Rodgers]

Tugello wrote:
> Hello, 
> good morning to all,I'm newbie with emacs
> my question is about how to insert current date and time, using a short key
> combination instead to write they completely .
> someone ave any suggestion ?

(defun insert-current-time ()
   "Insert the result of `current-time-string' at point."
   (interactive)
   (insert (current-time-string)))

(global-set-key (kbd "C-c t") 'insert-current-time)

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: Insert date and Time

[Pascal J. Bourguignon]

Tugello <kompy01@yahoo.it> writes:

> Hello, 
> good morning to all,I'm newbie with emacs
> my question is about how to insert current date and time, using a short key
> combination instead to write they completely .
> someone ave any suggestion ?
> thanks in advance 

I type: C-u M-! date RET

A purely emacs lisp alternative would be: 
M-: (insert (current-time-string)) RET


Of course, if you have to do it often, you can do:

(defun insert-timestamp ()
  (interactive)
  (insert (current-time-string)))

(global-set-key (kbd "<f8>") 'insert-timestamp)

so that you only have to type F8 to insert the timestamp.

-- 
__Pascal Bourguignon__

Re: Insert date and Time

[David Rogoff]

On 2010-02-25 06:50:34 -0800, Pascal J. Bourguignon said:

> Tugello <kompy01@yahoo.it> writes:
> 
>> Hello,
>> good morning to all,I'm newbie with emacs
>> my question is about how to insert current date and time, using a short key
>> combination instead to write they completely .
>> someone ave any suggestion ?
>> thanks in advance
> 
> I type: C-u M-! date RET
> 
> A purely emacs lisp alternative would be:
> M-: (insert (current-time-string)) RET
> 
> 
> Of course, if you have to do it often, you can do:
> 
> (defun insert-timestamp ()
>   (interactive)
>   (insert (current-time-string)))
> 
> (global-set-key (kbd "<f8>") 'insert-timestamp)
> 
> so that you only have to type F8 to insert the timestamp.

Here's a couple of versions I use with some formatting and chioce of 
just date or date and time:

(defun insert-date ()
  "Insert current date at point, and newline if point is at beginning of line."
  (interactive)
  (if (prog1 (bolp)
        (let ((time (current-time-string)))
          (insert (substring time 4 11) (substring time 20 24)))
        )
      ;; insert newline if point was at beginning of line
      (insert ?\n))
  )

;; output looks like this:  Feb 25 2010

;; (global-set-key '[(meta f12)] 'insert-date)



(defun insert-date-and-time ()
  "Insert current date and time at point, and newline if point is at 
beginning of line."
  (interactive)
  (if (prog1 (bolp)
        (let ((time (current-time-string)))
          (insert (substring time 4 11) (substring time 20 24) 
(substring time 10 19) ) )
        )
      ;; insert newline if point was at beginning of line
      (insert ?\n))
  )

(global-set-key '[A-home] 'insert-date-and-time)

;; output looks like this:  Feb 25 2010 11:05:43

Re: Insert date and Time

[Tim X]

Tugello <kompy01@yahoo.it> writes:

> Hello, 
> good morning to all,I'm newbie with emacs
> my question is about how to insert current date and time, using a short key
> combination instead to write they completely .
> someone ave any suggestion ?
> thanks in advance 

Have a look at the commentry section of timestamp.el. It shows how this
can be done.

Tim

-- 
tcross (at) rapttech dot com dot au

Re: Insert date and Time

[B. T. Raven]

Tugello wrote:
> Hello, 
> good morning to all,I'm newbie with emacs
> my question is about how to insert current date and time, using a short key
> combination instead to write they completely .
> someone ave any suggestion ?
> thanks in advance 

Also, if you need only one time-stamp per file and it's acceptable to
have this time stamp at the top of the buffer, you can put

(add-hook 'write-file-hooks 'time-stamp)

into the .emacs and then the line (or similar)

;; Time-stamp: "2010-02-19 12:15:41 userloginname"

near the top every file you want time-stamped.

The string part is formatted per variable 'time-stamp-format.

Every time the file is saved this commented line will be updated.

Ed

RE: Insert date and Time

[Drew Adams]

http://www.emacswiki.org/emacs/TimeStamp 

Re: Insert date and Time

[Kevin Rodgers]

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

Drew Adams wrote:
> http://www.emacswiki.org/emacs/TimeStamp 

There is a trade-off between simplicity and flexibility, and the solutions on
the wiki favor simplicity over flexibility.  Here's my attempt to support the
user's preference for different date and time formats while still minimizing
keystrokes.

-- 
Kevin Rodgers
Denver, Colorado, USA

[-- Attachment #2: insert-time-string.el --]
[-- Type: application/emacs-lisp, Size: 2673 bytes --]

RE: Insert date and Time

[Drew Adams]

> > http://www.emacswiki.org/emacs/TimeStamp 
> 
> There is a trade-off between simplicity and flexibility, and 
> the solutions on the wiki favor simplicity over flexibility.
> Here's my attempt to support the user's preference for
> different date and time formats while still minimizing
> keystrokes.

If you post it to the wiki also, then there will be no such distinction. ;-)

Just a suggestion.

Re: Insert date and Time

[Uwe Siart]

Tim Visher <tim.visher@gmail.com> writes:

> I use this function to insert a time stamp at point:
>
>     (defun insert-time-stamp ()
>       "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
>       (interactive)
>       (insert (format-time-string "%Y-%m-%d - %I:%M %p")))

Nice gimmick. To make it perfect I'd like insert-time-stamp to replace
region (if there is a region). How to achieve this? (insert "string")
does not replace region but inserts at point.

-- 
Uwe

Re: Insert date and Time

[Andreas Röhler]

Uwe Siart wrote:
> Tim Visher <tim.visher@gmail.com> writes:
> 
>> I use this function to insert a time stamp at point:
>>
>>     (defun insert-time-stamp ()
>>       "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
>>       (interactive)
>>       (insert (format-time-string "%Y-%m-%d - %I:%M %p")))
> 
> Nice gimmick. To make it perfect I'd like insert-time-stamp to replace
> region (if there is a region). How to achieve this? (insert "string")
> does not replace region but inserts at point.
> 

May be that way:

(defun insert-time-stamp ()
  "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
  (interactive "*")
  (let ((beg (when (region-active-p)
               (region-beginning)))
	(end (when
                 (region-active-p) (region-end))))
    (when (and beg end)
      (delete-region beg end)))
  (insert (format-time-string "%Y-%m-%d - %I:%M %p")))


Andreas

--
https://code.launchpad.net/~a-roehler/python-mode
https://code.launchpad.net/s-x-emacs-werkstatt/

Re: Insert date and Time

[Uwe Siart]

Andreas Röhler <andreas.roehler@easy-emacs.de> writes:

> Uwe Siart wrote:
>> Nice gimmick. To make it perfect I'd like insert-time-stamp to replace
>> region (if there is a region). How to achieve this? (insert "string")
>> does not replace region but inserts at point.
>
> May be that way:
>
> (defun insert-time-stamp ()
>   "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
>   (interactive "*")
>   (let ((beg (when (region-active-p)
>                (region-beginning)))
> 	(end (when
>                  (region-active-p) (region-end))))
>     (when (and beg end)
>       (delete-region beg end)))
>   (insert (format-time-string "%Y-%m-%d - %I:%M %p")))

Quite the thing. Many thanks!

-- 
Uwe

Re: Insert date and Time

[Jim Diamond]

On 2010-03-02 at 06:36 AST, Andreas Röhler <andreas.roehler@easy-emacs.de> wrote:
> Uwe Siart wrote:
>> Tim Visher <tim.visher@gmail.com> writes:
>> 
>>> I use this function to insert a time stamp at point:
>>>
>>>     (defun insert-time-stamp ()
>>>       "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
>>>       (interactive)
>>>       (insert (format-time-string "%Y-%m-%d - %I:%M %p")))
>> 
>> Nice gimmick. To make it perfect I'd like insert-time-stamp to replace
>> region (if there is a region). How to achieve this? (insert "string")
>> does not replace region but inserts at point.
>> 
>
> May be that way:
>
> (defun insert-time-stamp ()
>   "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
>   (interactive "*")
>   (let ((beg (when (region-active-p)
>                (region-beginning)))
> 	(end (when
>                  (region-active-p) (region-end))))
>     (when (and beg end)
>       (delete-region beg end)))
>   (insert (format-time-string "%Y-%m-%d - %I:%M %p")))

Andreas,

this seems gratuitously complicated.  Is there anything wrong with

(defun insert-time-stamp ()
  "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
  (interactive "*")
  (when (region-active-p)
      (delete-region (region-beginning) (region-end)))
  (insert (format-time-string "%Y-%m-%d - %I:%M %p")))

Sorta curious, since I am no elisp wizard.

Cheers.
			Jim