
;;; (d-add-hours 2)
(defun d-add-hours (hours-to-add)
  (let* ((tm (decode-time))
         (hours-slot 2)
         (minutes-slot 1)
         (hours   (nth hours-slot tm))
         (minutes (nth minutes-slot tm)))
    ;;(debug)
    (setq hours (mod (+ hours-to-add hours) 24))
    (format "%02s:%02s" hours minutes)))

(provide 'd-add-hours)

