;;;------------------------------------------------------------
;;; autoinsert from ~/emacs/insert
(if (fboundp 'auto-insert)
    (progn
      (setq auto-insert-query nil)
      (add-hook 'find-file-hooks 'auto-insert))
  (load "autoinsert" t nil))
(setq auto-insert-alist nil)
(setq auto-insert-directory (expand-file-name "~/emacs/insert/"))

(my-append 'auto-insert-alist `("\\.\\([pP][lL]x?\\|cgi\\)$" .
                                ,(if is-onlineoffice
                                    "perl-oo.pl"
                                  "perl.pl")))
(my-append 'auto-insert-alist `("\\.pm$" .
                                ,(if is-onlineoffice
                                    "perl-oo-module.pm"
                                  "perl-module.pm")))
(my-append 'auto-insert-alist '(".*Tk.*\\.pm$" . "perl-widget.pm") t)
(my-append 'auto-insert-alist '("\\(^\\|[^g]\\)tk\\.pl$" . "perl-tk.pl") t)
(my-append 'auto-insert-alist '("gtk\\.pl$" . "perl-gtk.pl") t)
(my-append 'auto-insert-alist '("\\.t$" . "perl-test.t") t)
(my-append 'auto-insert-alist '("Makefile\\.PL$" . "Makefile.PL") t)