Commit de5a7db1 authored by Dave Cooper's avatar Dave Cooper

added timestamp thing to gdl.el

parent d0767d86
......@@ -334,6 +334,28 @@
(fi:inferior-lisp-newline)
(end-of-buffer)))
(defun timestamp ()
(insert (format-time-string "%Y-%m-%dT%H:%M:%S" (current-time))))
;;
;; See http://pomodorotechnique.com/
;;
(defun pomodoro ()
(timestamp)
(insert (format-time-string ";%Y-%m-%dT%H:%M:%S;"
(time-add (current-time) (seconds-to-time (* 25 60))))))
(global-set-key "\C-t" '(lambda() (interactive) (pomodoro)))
(defun post-pomodoro ()
(insert (format-time-string "%Y-%m-%dT%H:%M:%S"
(time-subtract (current-time) (seconds-to-time (* 25 60)))))
(insert (format-time-string ";%Y-%m-%dT%H:%M:%S;" (current-time))))
(global-set-key "\M-t" '(lambda() (interactive) (post-pomodoro)))
;;
;; Establish input method for I.A.S.T diacritics
;;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment