| (let (cd-args cmd-args start-dir) |
| (setq start-dir default-directory) |
| (makunbound 'plugin-name) |
| (makunbound 'PLUGIN-NAME) |
| (setq plugin-name (read-string "Plugin name: ")) |
| (setq PLUGIN-NAME (upcase plugin-name)) |
| (find-file (concat plugin-name ".am")) |
| (skel-plugin-makefile-am-fragment) |
| (setq cmd-args (concat "mkdir -p " plugin-name)) |
| (setq cd-args (concat start-dir "/" plugin-name)) |
| (setq default-directory cd-args) |
| (find-file (concat plugin-name ".api")) |
| (find-file (concat plugin-name "_all_api_h.h")) |
| (find-file (concat plugin-name ".h")) |
| (find-file (concat plugin-name ".c")) |
| (find-file (concat plugin-name "_msg_enum.h")) |
| (find-file (concat plugin-name "_test.c")) |