add some date and time insertion functions

edgecase · May 2, 2012 · ef00139 · ef00139
1 parent 2601b5c
commit ef00139
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/.emacs.d/config-defuns.el b/.emacs.d/config-defuns.el
@@ -9,4 +9,14 @@
     (byte-compile-file user-init-file)
     (message "%s compiled" user-init-file)))
 
+(defun mp-insert-date ()
+  (interactive)
+  (insert (format-time-string "%x")))
+(global-set-key (kbd "C-c i d") 'mp-insert-date)
+
+(defun mp-insert-time ()
+  (interactive)
+  (insert (format-time-string "%X")))
+(global-set-key (kbd "C-c i t") 'mp-insert-time)
+
 (provide 'config-defuns)