root/dotfiles/emacs/xcezx/.emacs.d/conf/init.perl.el @ 14366

;; -*- Mode: Emacs-Lisp ; Coding: utf-8 -*-

(defalias 'perl-mode 'cperl-mode)
(autoload 'cperl-mode "cperl-mode" nil t)
(add-to-list 'auto-mode-alist
             '("\\.\\(cgi\\|[pP][Llm]\\|t\\)\\'" . cperl-mode))

;; perltidy
;; (autoload 'perltidy "perltidy-mode" nil t)
;; (autoload 'perltidy-mode "perltidy-mode" nil t)
;; (eval-after-load "cperl-mode"
;;   '(add-hook 'cperl-mode-hook 'perltidy-mode))
(require 'set-perl5lib)

;; For Flymake Perl
(require 'flymake-perl)

(add-hook 'cperl-mode-hook
          '(lambda ()
             (flymake-perl-load)
             (set-perl5lib)
             (define-key cperl-mode-map "\C-ct" 'perltidy-region)
             (define-key cperl-mode-map "\M-p" 'cperl-perldoc)))

;; perl tidy
(defun perltidy-region ()
  "Run perltidy on the current region."
  (interactive)
  (save-excursion
    (shell-command-on-region (point) (mark) "perltidy -q" nil t)))

;; ack
(defun ack ()
  (interactive)
  (let ((grep-find-command "ack --nocolor --nogroup "))
    (call-interactively 'grep-find)))
;; __END__