set-perl5lib.plの改良. t::Util.pmのようなモジュールも認識するように環境変数 PERL5LIBを設定

set-perl5lib.el

;;; -*- coding: utf-8; mode:emacs-lisp -*-
;;; set-perl5lib.el --- set path into PERL5LIB if its file path includes 'lib' directory

;; Copyright (C) 2008 Taiyoh Tanaka
;; Author: Taiyoh Tanaka <[email protected]>

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published
;; by the Free Software Foundation; either version 2, or (at your
;; option) any later version.

;; This file is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;;; * set-perl5lib について

;;; ファイルのパスに"lib"というディレクトリが含まれていたら、
;;; そこまでのパスをPERL5LIBに登録します。
;;;
;;; また、.emacsにて、
;;; (require 'set-perl5lib)
;;; のあとで、Flymakeのflymake-perl-load関数をオーバーライドして
;;; (set-perl5lib)
;;; を関数内に追加すれば、自動的にパスを登録できます。
;;;
;;; SeeAlso: http://d.hatena.ne.jp/sun-basix/20080117/1200528765

(eval-when-compile
 (require 'cl))

(defun perllib-check-path (lst lib-path)
  (let ((dir (car lst))
        (set-lib-path (concat lib-path "/lib"))
        (set-blib-path (concat lib-path "/blib/lib"))
        (set-blib-arch-path (concat lib-path "/blib/arch")))
    (if (setf stock-lst (cdr lst))
        (cond ((string= dir "lib") (list set-lib-path))
              ((and (string= dir "t")
                    (file-readable-p set-lib-path))
               (list set-blib-arch-path set-blib-path set-lib-path lib-path))
              (t (perllib-check-path stock-lst (concat lib-path "/" dir)))))))

(defun set-perl5lib ()
  "Set path into PERL5LIB if its file path includes 'lib' directory"
  (interactive)
  (let* ((path-list (cdr (split-string
                          (if (string-match "^.:" buffer-file-name)
                              (concat (cygwin-mount-get-cygdrive-prefix)
                                      (mapconcat 'identity (split-string buffer-file-name ":") ""))
                            (buffer-file-name))
                          "/")))
         (perl5lib-lst (split-string (or (getenv "PERL5LIB") "") ":"))
         (lib-path (remove-if (lambda (x) (member x perl5lib-lst))
                              (perllib-check-path path-list ""))))
    (if lib-path
        (let ((lst (if perl5lib-lst
                       (remove-if-not (lambda (x)
                                        (string-match "/lib$" x)) perl5lib-lst)))
              (path-str (mapconcat #'identity lib-path ":")))
          (setenv "PERL5LIB" (mapconcat #'identity (append lib-path lst) ":"))
          (message "Added %s into PERL5LIB" path-str)))))

(defun clear-and-update-perl5lib ()
  (interactive)
  (progn
    (setenv "PERL5LIB")
    (set-perl5lib)))

(provide 'set-perl5lib)