mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code

org.el (org-time-stamp): C-u C-u C-c . inserts a timestamp with no prompt.

Browse Source 
* org.el (org-time-stamp): With two universal arguments,
insert an active timestamp with the current time without
prompting the user.

This idea came up on the list, I can't recall who proposed this.
Thanks to him anyway!
This commit is contained in:
Bastien Guerry 2012-07-06 13:16:13 +02:00
parent 9780de8b30
commit 2cf1ff345e
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/org.el
View File

@ -15007,13 +15007,20 @@ Return the position where this entry starts, or nil if there is no such entry."
(defun org-time-stamp (arg &optional inactive)
"Prompt for a date/time and insert a time stamp.
If the user specifies a time like HH:MM, or if this command is called
with a prefix argument, the time stamp will contain date and time.
Otherwise, only the date will be included. All parts of a date not
specified by the user will be filled in from the current date/time.
So if you press just return without typing anything, the time stamp
will represent the current date/time. If there is already a timestamp
at the cursor, it will be modified."
If the user specifies a time like HH:MM or if this command is
called with at least one prefix argument, the time stamp contains
the date and the time. Otherwise, only the date is be included.
All parts of a date not specified by the user is filled in from
the current date/time. So if you just press return without
typing anything, the time stamp will represent the current
date/time.
If there is already a timestamp at the cursor, it will be
modified.
With two universal prefix arguments, insert an active timestamp
with the current time without prompting the user."
(interactive "P")
(let* ((ts nil)
(default-time
@ -15059,6 +15066,8 @@ at the cursor, it will be modified."
(concat (substring org-last-inserted-timestamp 0 -1)
" " repeater ">"))))
(message "Timestamp updated"))
((equal arg '(16))
(org-insert-time-stamp (current-time) t))
(t
(setq time (let ((this-command this-command))
(org-read-date arg 'totime nil nil default-time default-input inactive)))