Changeset 289

Timestamp:

09/27/07 19:27:24 (6 years 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
  

Location:

dotfiles/emacs/kentaro

Files:

• .emacs (modified) (2 diffs)
• .emacs.d/conf/init-abbrves.el (modified) (1 diff)
• .emacs.d/conf/init-autosafe-buffers.el (deleted)
• .emacs.d/conf/init-autosave-buffers.el (added)
• .emacs.d/conf/init-dired.el (modified) (1 diff)
• .emacs.d/conf/init-global.el (modified) (2 diffs)
• .emacs.d/conf/init-highlighting.el (modified) (1 diff)
• .emacs.d/conf/init-keymaps.el (modified) (1 diff)
• .emacs.d/conf/init-languages.el (modified) (1 diff)
• .emacs.d/conf/init-minibuf.el (modified) (2 diffs)
• .emacs.d/conf/init-perl.el (modified) (3 diffs)
• .emacs.d/conf/init-scheme.el (added)
• .emacs.d/conf/init-w3m.el (added)

dotfiles/emacs/kentaro/.emacs

@@ -66 +66 @@
 (load "init-dired")
 (load "init-sdic")
+(load "init-w3m")
 (load "init-languages")
 (load "init-html")
@@ -74 +75 @@
 (load "init-php")
 (load "init-haskell")
+(load "init-scheme")
 (load "init-yaml")
 

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

@@ -3 +3 @@
 ;; 動的略語展開
 (define-key global-map "\C-u" 'dabbrev-expand)
+;; dabbrev時に、大文字・小文字を区別しない。
+(setq dabbrev-case-fold-search nil)
+;; dabbrev時に、補完候補をハイライトする。
+(require 'dabbrev-highlight)
+;; dabbrevをいろんな単語にマッチさせる
+(setq dabbrev-abbrev-char-regexp "\\sw\\|\\s_\\|[:-_]")
 
 ;; ac-mode

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

@@ -1 +1 @@
 ;; -*- Mode: Emacs-Lisp ; Coding: utf-8 -*-
+
+;; wdired
+;; http://www.bookshelf.jp/soft/meadow_25.html#SEC292
+(require 'wdired)
+;; rでdiredバッファを直接編集できるようになる。
+(define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
 
 ;; lsの代りにEmacs自体の機能を利用してディレクトリをリスト

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

@@ -37 +37 @@
 (setq make-backup-files nil)
 
+;; 自動保存したファイルを削除する。
+(setq delete-auto-save-files t)
+
+;; 自動セーブしない。
+(setq auto-save-default nil)
+
+;; yes/noを、y/nで選択できるようにする。
+(fset 'yes-or-no-p 'y-or-n-p)
+
 ;; kill-lineで行末の改行文字も削除
 (setq kill-whole-line t)
@@ -68 +77 @@
             ))
 
-;;; マクロ読み込み
+;; マクロ読み込み
 (load "~/.emacs.d/conf/macros")
+
+;; 個人用infoディレクトリを追加
+(setq Info-default-directory-list
+      (cons "~/.emacs.d/info/" Info-default-directory-list))

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

@@ -11 +11 @@
 (autoload 'paren-activate "mic-paren" nil t)
 (setq paren-match-face 'bold paren-sexp-mode t)
+
+;; hightlight-current-line
+;; http://www.emacswiki.org/cgi-bin/wiki/HighlightCurrentLine
+(require 'highlight-current-line)
+(highlight-current-line-on t)
+(set-face-attribute 'highlight-current-line-face nil
+                    :background "black"
+                    :underline nil)
 
 ;; リージョンをハイライト表示

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

@@ -6 +6 @@
 ;; C-x?でヘルプ
 (global-set-key "\C-x?" 'help)
+
+;; C-c C-iでインフォを引く
+(define-key global-map "\C-c\C-i" 'info-lookup-symbol)
+
+;; C-aで、インデント文字を飛ばした行頭に戻る
+;; http://subtech.g.hatena.ne.jp/antipop/20070916/1189915386
+(global-set-key "\C-a" 'beggining-of-indented-line)
+(defun beggining-of-indented-line (current-point)
+  "インデント文字を飛ばした行頭に戻る。ただし、ポイントから行頭ま
+での間にインデント文字しかない場合は、行頭に戻る。"
+  (interactive "d")
+  (if (string-match
+       "^[ \t]*$"
+       (save-excursion
+         (buffer-substring-no-properties
+          (progn (beginning-of-line) (point))
+          current-point)))
+      (beginning-of-line)
+    (back-to-indentation)))

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

@@ -17 +17 @@
 (global-set-key "\C-c\C-f" 'find-tag)
 (global-set-key "\C-c\C-b" 'pop-tag-mark)
+
+;; infoファイル置き場を追加
+(setq Info-default-directory-list
+      (cons "~/.emacs.d/info" Info-default-directory-list))
+
+;; リージョンを自動的に囲む
+;; http://sami.samhuri.net/2007/6/23/emacs-for-textmate-junkies
+(defun wrap-region (left right beg end)
+  "Wrap the region in arbitrary text, LEFT goes to the left and RIGHT goes to the right."
+  (interactive)
+  (save-excursion
+    (goto-char beg)
+    (insert left)
+    (goto-char (+ end (length left)))
+    (insert right)))
+
+(defmacro wrap-region-with-function (left right)
+  "Returns a function which, when called, will interactively `wrap-region-or-insert' using LEFT and RIGHT."
+  `(lambda () (interactive)
+     (wrap-region-or-insert ,left ,right)))
+
+(defun wrap-region-with-tag-or-insert ()
+  (interactive)
+  (if (and mark-active transient-mark-mode)
+      (call-interactively 'wrap-region-with-tag)
+    (insert "<")))
+
+(defun wrap-region-with-tag (tag beg end)
+  "Wrap the region in the given HTML/XML tag using `wrap-region'. If any
+attributes are specified then they are only included in the opening tag."
+  (interactive "*sTag (including attributes): \nr")
+  (let* ((elems    (split-string tag " "))
+         (tag-name (car elems))
+         (right    (concat "</" tag-name ">")))
+    (if (= 1 (length elems))
+        (wrap-region (concat "<" tag-name ">") right beg end)
+      (wrap-region (concat "<" tag ">") right beg end))))
+
+(defun wrap-region-or-insert (left right)
+  "Wrap the region with `wrap-region' if an active region is marked, otherwise insert LEFT at point."
+  (interactive)
+  (if (and mark-active transient-mark-mode)
+      (wrap-region left right (region-beginning) (region-end))
+    (insert left)))
+
+(global-set-key "'"  (wrap-region-with-function "'" "'"))
+(global-set-key "\"" (wrap-region-with-function "\"" "\""))
+(global-set-key "`"  (wrap-region-with-function "`" "`"))
+(global-set-key "("  (wrap-region-with-function "(" ")"))
+(global-set-key "["  (wrap-region-with-function "[" "]"))
+(global-set-key "{"  (wrap-region-with-function "{" "}"))
+(global-set-key "<"  'wrap-region-with-tag-or-insert)

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

@@ -12 +12 @@
 (setq read-file-name-completion-ignore-case t)
 
+;; pointがある箇所のファイルを開く
+(ffap-bindings)
+
 ;; バッファの選択候補をインクリメンタルにしぼる
 ;; http://www.fan.gr.jp/~ring/Meadow/meadow.html#iswitchb.el
 (require 'iswitchb)
 (iswitchb-default-keybindings)
+
+;; iswitchbで補完対象に含めないバッファ
+(setq iswitchb-buffer-ignore
+      '(
+        "^ "
+        "*Messages*"
+        "*Buffer*"
+        "*PerlModules*"
+        "Completions"
+        ))
 
 ;; ミニバッファ内の入力を、インクリメンタルに選択
@@ -46 +59 @@
 (require 'uniquify)
 (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
+
+;; anything - find-file, bookmark, buffer操作等、なんでもいっしょくたに
+;; http://d.hatena.ne.jp/rubikitch/20070725#1186048100
+(require 'anything-config)
+
+;; anythingバッファ内での移動
+(define-key anything-map "\C-p" 'anything-previous-line)
+(define-key anything-map "\C-n" 'anything-next-line)
+(define-key anything-map "\C-v" 'anything-next-page)
+(define-key anything-map "\M-v" 'anything-previous-page)
+
+;; iswitchbとの連携
+(anything-iswitchb-setup)

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)