+;;; -*-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))