組織モードで、今日の日付でタイムスタンプを挿入するにはどうすればよいですか？

Lisp関数で、今日の日付のタイムスタンプを自動的に挿入するようにorgに指示するにはどうすればよいですか？

関数を見つけましたが、org-insert-time-stamp今日の日付を返す引数を提供する方法がわかりません。

関数のドキュメントは言う：

(org-insert-time-stamp TIME &optional WITH-HM INACTIVE PRE POST EXTRA)  

...しかし、TIME &optional WITH-HM INACTIVE PRE POST EXTRAこれらを関数でどのように指定するか、またはどのように指定するかについてのドキュメントがどこにあるかわかりません。

そして、これが私が書こうとしている関数です：

(defun org-today-heading-and-clock-in ()
  "Insert a new heading with today's date, and then clock in."
  (interactive)
  (org-insert-subheading)
  (org-insert-time-stamp (today))
  (org-clock-in))

少し推測してみましょう：

(org-insert-time-stamp (current-time))

タイムスタンプ形式が異なる次の2つの関数を使用しています。2015年または15年に使用する桁数、時間、分、秒なども指定できます。

(defun now ()
  "Insert string for the current time formatted like '2:34 PM' or 1507121460"
  (interactive)                 ; permit invocation in minibuffer
  ;;(insert (format-time-string "%D %-I:%M %p")))
  ;;(insert (format-time-string "%02y%02m%02d%02H%02M%02S")))
  (insert (format-time-string "%02y%02m%02d%02H%02M")))

(defun today ()
  "Insert string for today's date nicely formatted in American style,
  e.g. Sunday, September 17, 2000 or standard 17-09-2000."
  (interactive)       ; permit invocation in minibuffer
  ;;(insert (format-time-string "%A, %B %e, %Y")))
  (insert (format-time-string "%d-%m-%y")))

{{{date}}}を使用してタイムスタンプを取得します