Generate a series of org-style time stamps, can be used with org-capture-templates. Easing daily time planning.

timestampseries.el

(defun org-install-series-time-stamp (a b)
  "For inserting a morning diary using org's template system.
At the function call, it calls org-insert-time-stamp to
insert a series of active time stamps, one line each. The
function is called with 2 parameters: a hour of the
work day and the b, in the form of int N and M.

i.e. (org-install-series-time-stamp 9 18)"
  ()
  (cond ((< b a) (org-install-series-time-stamp b a))
        ((< a (- b 1)) (concat (org-insert-time-stamp
                                 (current-time)
                                 nil nil nil nil
                                 (concat
                                  " " (number-to-string a) ":00-"
                                  (number-to-string (+ 1 a)) ":00"))
                         "\n" (make-string (org-outline-level) 42) " "
                         (org-install-series-time-stamp (+ 1 a) b)))
        ((= a (- b 1)) (concat (org-insert-time-stamp
                                 (current-time)
                                 nil nil nil nil
                                 (concat
                                  " " (number-to-string a) ":00-"
                                  (number-to-string (+ 1 a)) ":00"))
                                (org-install-series-time-stamp (+ 1 a) b)))
        ((= a b) ())))