;-*- coding: utf-8 -*-
; some custome string insertion functions

; 2007-06
;   Xah
; ∑ http://xahlee.org/


; signature.
(defun insert-xah-sig ()
  "Insert xahlee.org signature."
  (interactive)
  (insert "  Xah
∑ http://xahlee.org/

☄"))


(defun insert-xah-im ()
  "Insert Xah Lee contact info."
  (interactive)
  (insert "Jabber (google talk): xahlee@gmail.com
AIM: xahlee
Yahoo: P0lyglut
MSN: p0lyglut@yahoo.com or xahlee
Skype: XahLee
Second Life: Xah Toll
"))

(defun insert-xah-url () "Insert http://xahlee.org/" (interactive) (insert "http://xahlee.org/"))

(defun insert-date () "Insert current date." (interactive)
  (insert (format-time-string "%Y-%m-%d"))
)
(put 'insert-date 'delete-selection t)

(defun insert-date-time () "Insert current date-time string." (interactive)
  (insert
   (concat
    (format-time-string "%Y-%m-%dT%T")
    ((lambda (x) (concat (substring x 0 3) ":" (substring x 3 5))) (format-time-string "%z")))))

(defun insert-emacs-coding-template ()
  "Insert string “-*- coding: utf-8 -*-”."
  (interactive)
  (insert "-*- coding: utf-8 -*-"))