Changeset 289 for dotfiles/emacs/kentaro/.emacs.d/conf/init-perl.el

Timestamp:

09/27/07 19:27:24 (16 months ago)

Author:

kentaro

Message:

dotfiles/emacs/kentaro:

• added init-autosave-buffers.el
  
• added init-scheme.el
  
• added init-w3m.el
  
• added some utilities into init-perl.el
  

Files:

• dotfiles/emacs/kentaro/.emacs.d/conf/init-perl.el (modified) (3 diffs)

dotfiles/emacs/kentaro/.emacs.d/conf/init-perl.el

@@ +1 @@
+
 ;; -*- Mode: Emacs-Lisp ; Coding: utf-8 -*-
 
@@ -24 +25 @@
             (set-face-background 'cperl-hash-face "black")
             ))
+
+;; cperl-mode初回起動時に、モジュール名を全て詰め込んだバッファを作成し、
+;; dabbrevでモジュール名を補完できるようにする。
+;; http://subtech.g.hatena.ne.jp/antipop/20070917/1190009355
+(add-hook 'cperl-mode-hook
+          (lambda ()
+            (let ((buffer nil) (buffer-name "*PerlModules*"))
+              (unless (get-buffer buffer-name)
+                (setq buffer (generate-new-buffer buffer-name))
+                (save-current-buffer
+                  (shell-command
+                   "find `perl -e 'print join(q{ }, @INC);'` -name '*.pm' -type f | xargs egrep -h -o 'package [a-zA-Z0-9:]+;' | perl -nle 's/package\s+(.+);/$1/; print' | sort | uniq"
+                   buffer)
+                  (set-buffer buffer)
+                  (delete-window))))))
+
+;; use文を、C-c C-mで自動挿入。
+;; http://subtech.g.hatena.ne.jp/antipop/20070917/1189962499
+(add-hook 'cperl-mode-hook
+          (lambda ()
+            (local-set-key (kbd "\C-c \C-m") 'perl-insert-use-statement)))
+
+(defun perl-insert-use-statement (current-point)
+  "use statement auto-insertion."
+  (interactive "d")
+  (insert-use-statement
+   (detect-module-name current-point)
+   (detect-insert-point)))
+
+(defun insert-use-statement (module-name insert-point)
+  (save-excursion
+    (goto-char insert-point)
+    (insert (concat "\nuse " module-name ";"))))
+
+(defun detect-insert-point ()
+  (save-excursion
+    (if (re-search-backward "use .+;" 1 t)
+        (match-end 0)
+      (progn
+        (string-match "^$" (buffer-string))
+        (match-end 0)))))
+
+(defun detect-module-name (current-point)
+  (let ((str (save-excursion
+               (buffer-substring
+                current-point
+                (progn (beginning-of-line) (point))))))
+    (if (string-match "\\([[:alnum:]-_:]+\\)$" str)
+        (match-string 1 str)
+      (error "Module name not found"))))
 
 ;; perly-sense
@@ -81 +132 @@
           '(lambda()
              (progn
-               (define-key cperl-mode-map "{" 'insert-braces)
+;               (define-key cperl-mode-map "{" 'insert-braces)
                (define-key cperl-mode-map "(" 'insert-parens)
                (define-key cperl-mode-map "\"" 'insert-double-quotation)