;;; -*-emacs-lisp-*-

(skel-include "skelrc.c")

(defun skelrc-mxd-header ()
  (if buffer-file-name
      (file-name-sans-extension (file-name-nondirectory buffer-file-name)))
    (skel-lookup 'mxd-header-name))

(setq skel-alist
      (append
       '((preamble . "[[prologue]][[includes]][[structures]]")
	 (prologue . "@mxd prologue \"[[header-name]].h\";\n\n")
	 (header-name . (skelrc-mxd-header))
	 (c++-guard . "#ifdef __cplusplus\n  extern \"C\" {\n#endif\n\n")
	 (includes . "[[includes-banner]]\n\n[[headers]]")
	 (includes-banner . (skelrc-banner "Header files"))
	 (headers . "")
	 (structures . "[[struct-banner]]\n\n@mxd {\n\n}\n\n")
	 (struct-banner . (skelrc-banner "Data structures"))
	 (postamble . "[[epilogue]]\n")
	 (epilogue . "\n@mxd epilogue;"))
       skel-alist))