;;; sepia-init.el --- Initialize sepia

;;; Insinuation

(unless (fboundp 'sepia-repl)
  (setq load-path (cons (concat "/usr/share/emacs/site-lisp/sepia")
                        load-path)))

(require 'sepia)

(add-to-list 'auto-mode-alist '("\\.[Pp][LlMm][Cc]?\\'" . sepia-mode))

(dolist (interp '("perl" "perl5" "miniperl" "pugs"))
  (let ((item (assoc interp interpreter-mode-alist)))
    (if item
        (setcdr item 'sepia-mode)
      (add-to-list 'interpreter-mode-alist (cons interp 'sepia-mode)))))

;; sepia+develock integration
(require 'develock)
(plist-put develock-max-column-plist 'sepia-mode 79)
(add-to-list 'develock-mode-ignore-kinsoku-list 'sepia-mode)
(push '(sepia-mode cperl-font-lock-keywords-x
                   develock-cperl-font-lock-keywords)
      develock-keywords-alist)

;; sepia is not allowed to turn on eldoc
(defun sepia-install-eldoc ()
  nil)

;;; Customizations

(custom-set-variables
 '(cperl-close-paren-offset -4)
 '(cperl-indent-level 4)
 '(cperl-indent-parens-as-block t)
 '(cperl-merge-trailing-else nil))
(custom-set-faces
 '(cperl-hash-face ((((class color) (background light)) (:foreground "Red" :slant italic :weight bold))))
 '(cperl-nonoverridable-face ((((class color) (background light)) (:foreground "chartreuse4")))))

;;; sepia-init.el ends here