extras/emacs/plugin.el

   1 (defun make-plugin ()
   2   "Create a plugin"
   3   (interactive)
   4   (save-excursion
   5     (let (cd-args cmd-args start-dir)
   6       (setq start-dir default-directory)
   7       (makunbound 'plugin-name)
   8       (makunbound 'PLUGIN-NAME)
   9       (setq plugin-name (read-string "Plugin name: "))
  10       (setq PLUGIN-NAME (upcase plugin-name))
  11       (find-file (concat plugin-name ".am"))
  12       (skel-plugin-makefile-am-fragment)
  13       (setq cmd-args (concat "mkdir -p " plugin-name))
  14       (shell-command cmd-args)
  15       (setq cd-args (concat start-dir "/" plugin-name))
  16       (setq default-directory cd-args)
  17       (find-file (concat plugin-name ".api"))
  18       (skel-plugin-api)
  19       (find-file (concat plugin-name "_all_api_h.h"))
  20       (skel-plugin-all-apih)
  21       (find-file (concat plugin-name ".h"))
  22       (skel-plugin-h)
  23       (find-file (concat plugin-name ".c"))
  24       (skel-plugin-main)
  25       (find-file (concat plugin-name "_msg_enum.h"))
  26       (skel-plugin-msg-enum)
  27       (find-file "node.c")
  28       (skel-plugin-node)
  29       (find-file (concat plugin-name "_test.c"))
  30       (skel-plugin-test)
  31       (cd start-dir))))
  32