;; Templatery

;;; C templates

(define-skeleton jem-skel-c-ife
  "Insert a C if ... else .. block"
  nil
  >
  "if ( " _ " )" \n
  "{" \n \n
  "}" \n 
  "else" \n
  "{" \n \n
  "}")

(define-skeleton jem-skel-c-file-header
  "Insert a file header for C files"
  nil
  "/" (make-string 1 ?*) " -*- mode: C -*- Time-stamp: \" \"" \n
  "*" \n
  "*       File:         " (file-name-nondirectory (buffer-file-name)) \n
  "*       Author:       " user-full-name " (" user-mail-address ")" \n
  "*       Date:         " (current-time-string) \n
  "*" \n
  "*       " _ \n
  "*" \n
  "*/")
  

(define-skeleton jem-skel-c-routine-doc
  "Insert a C routine documentation block"
  nil
  "/*-" \n
  "*      Routine:       " _ " " \n
  "*" \n
  "*      Purpose:" \n
  "*              none" \n
  "*      Conditions:" \n
  "*              none" \n
  "*      Returns:" \n
  "*              none" \n
  "*" \n
  "*/" \n)

(define-skeleton jem-skel-c-type-doc
  "Insert a C type declaration documentation block"
  nil
  "/*-" \n
  "*      Type:       " _ " " \n
  "*" \n
  "*      Purpose:" \n
  "*              none" \n
  "*" \n
  "*/" \n)

;;; Tcl templates

  
(define-skeleton jem-skel-tcl-routine-doc
  "Insert a Tcl routine documentation block"
  nil
  ";#-" \n
  ";#      Routine:       " _ " " \n
  ";#" \n
  ";#      Purpose:" \n
  ";#              none" \n
  ";#      Conditions:" \n
  ";#              none" \n
  ";#      Returns:" \n
  ";#              none" \n
  ";#" \n)


;;; Auto-insert

;;(require 'autoinsert)
;;(auto-insert-mode nil)
;;(setq auto-insert-query nil)