Changeset 3783 for dotfiles

Timestamp:

12/30/07 05:55:52 (5 years ago)

Author:

shyouhei

Message:

dotfiles/emacs/shyouhei/.emacs.d/elisp/*.el: 最近のならともかくちょっと前までEmacsってUnicode扱えなかったんだよ

Location:

dotfiles/emacs/shyouhei/.emacs.d/elisp

Files:

• autoloads.el (modified) (9 diffs, 1 prop)
• configs.el (modified) (9 diffs, 1 prop)
• new-file-p.el (modified) (1 diff, 1 prop)
• persistent-scratch.el (modified) (1 diff, 1 prop)
• startup.el (modified) (1 diff, 1 prop)
• tab4.el (modified) (1 diff, 1 prop)
• trim-buffer.el (modified) (1 diff, 1 prop)
• unix-defaults.el (modified) (3 diffs, 1 prop)
• utils.el (modified) (2 diffs, 1 prop)

dotfiles/emacs/shyouhei/.emacs.d/elisp/autoloads.el

@@ -1 +1 @@
 ;; autoloads.el
-;; load�Ȥ��μ��
+;; loadとその周辺
 
 (load "utils")
@@ -38 +38 @@
   (add-hook 'haskell-mode-hook 'turn-on-haskell-indent))
 
-;; gtags-mode : global ����
+;; gtags-mode : global 便利。
 (when (autoload-p 'gtags-mode "gtags" "GNU GLOBAL" 'interactive)
   (setq gtags-mode-hook
@@ -46 +46 @@
                     (local-set-key "\M-s" 'gtags-find-symbol) ; find
                     (local-set-key "\C-t" 'gtags-pop-stack)))); pop
-  ;; C-mode �ΤȤ��Ͼ� gtags ��ѡ�
+  ;; C-mode のときは常に gtags 使用。
   (defun-add-hook 'c-mode-common-hook (gtags-mode 1)))
 
-;; sense-region.el : \C-spc ��region<->rectabgle ����롣����
+;; sense-region.el : \C-spc で region<->rectabgle をトグル。便利。
 (when (autoload-p 'sense-region-on "sense-region" "sense-region" 'interactive)
   (sense-region-on))
@@ -62 +62 @@
   (autoload 'w3m-namazu "w3m-namazu" "Search files with Namazu." t))
 
-;; ��͸�ã
+;; 廃人御用達
 (when (autoload-p 'riece "riece" "Riece IRC Client for Emacs" 'interactive)
   (setq riece-channel-list-buffer-mode t)
@@ -99 +99 @@
           "yellow" "green" "DarkCyan" "cyan"
           "blue" "magenta" "gray" "DimGray"))
-  (setq riece-keywords '("shyouhei" "mput" "��" "����")))
+  (setq riece-keywords '("shyouhei" "mput" "卜部" "うらべ")))
 ;;   (setq riece-server "ircnet"
 ;;      riece-server-alist '(("ircnet" :host "irc.tokyo.wide.ad.jp")
@@ -126 +126 @@
   (setq navi2ch-mona-enable t))
 
-;; ����Ĵ
+;; 括弧強調
 (when (load-p "mic-paren")
   (paren-activate))
 
-;; ���Ĥ�
+;; 色つき
 (when (load-p "develock")
   (global-font-lock-mode t))
 
-;; Open recent������
+;; Open recent。便利。
 ;; (when (load-p "recentf")
 ;;  (recentf-mode 1)
-;;  ;; Open recent ��������
+;;  ;; Open recent で保存する数
 ;;  (setq recentf-max-menu-items 16)
 ;;  (setq recentf-max-saved-items 48))
 
-;; ʪ��԰��
+;; 物理行移動
 ;; (when (load-p "physical-line")
 ;;  (physical-line-mode))
 
-;; �ʤ�⥿�֤Ǥ�ac-mdoe
+;; なんでもタブでやるac-mdoe
 ;; (when (load-p "ac-mode")
 ;;  (setq ac-mode-exception '(dired-mode hex-mode ruby-mode))
 ;;  (add-hook 'find-file-hooks 'ac-mode-without-exception))
 
-;; split���ޤ������������
+;; splitしまくると移動めどいよね
 (when (load-p "windmove")
   (windmove-default-keybindings)
   (setq windmove-wrap-around t))
 
-;; screen��macs -nw�򺮤��������Ĥ�����ˤۤ����ʤ�when (and (not window-system)
+;; screenとemacs -nwを混ぜるとこいつが強烈にほしくなる
+(when (and (not window-system)
            (string-match "^xterm\\|^screen" (getenv "TERM"))
            (load-p "term/xterm"))
@@ -176 +177 @@
 ;;   (xterm-title-mode 1))
 
-;; ��ư�¸
+;; 自動保存
 (when (load-p "auto-save-buffers")
   (setq auto-save-buffers-regexp "^/[^:]+/")
@@ -190 +191 @@
   (diminish 'abbrev-mode "Abbr")
   ;; (diminish 'ac-mode "[tab]")
-  (diminish 'font-lock-mode "");ư���Ƥ�����
-  ;; �Ĥ��Ǥ����jor mode����������㤨
+  (diminish 'font-lock-mode "");動いていて当たり前
+  ;; ついでだからmajor modeも書き換えちゃえ
   (defun-add-hook 'lisp-interaction-mode-hook (setq mode-name "Lisp"))
   (defun-add-hook 'emacs-lisp-mode-hook (setq mode-name "elisp"))
@@ -204 +205 @@
   (setq tramp-verbose 3))
 
-;; ����Ȥ������
+;; 行末の空白とかを取り除く
 (load-p "trim-buffer")
 
-;; 4����(load-p "tab4")
-
-;; �������ե���������˳��
+;; 4タブ
+(load-p "tab4")
+
+;; 新しいファイルを作る前に確認
 ;(load-p "new-file-p")
 
-;; emacs21��scratch*����Ƥ��ޤä�ᤷ���פ��򤷤��͸���
+;; emacs21で*scratch*を消してしまって悲しい思いをした人向け
 (load-p "persistent-scratch")
 
-;; UNIX����load-p "unix-defaults")
-
-;; ����ط��������Ǥ����Ĥϰ��Ǹ���
+;; UNIX系設定
+(load-p "unix-defaults")
+
+;; 依存関係があるのでこいつは一番最後に。
 (load-p "configs")
 

dotfiles/emacs/shyouhei/.emacs.d/elisp/configs.el

@@ -1 +1 @@
 ;; configs.el
-;; ����
-;;�⡼�ɥ饤������������
-;;��߹��߻��Τߥ������äƤ����Τ�����Ȥ����Ƥʤ�
+;; 設定系
+
+;;モードラインに今いる関数を表示
+;;読み込み時のみスキャンっていうのがちょっといけてない
 (which-func-mode)
 
-;; blink��������
+;; blinkうざいし
 (blink-cursor-mode nil)
 
-;; �ġ������Ȥ�? ���ϻȤ�����(tool-bar-mode nil)
+;; ツールバー使う? 俺は使わんけど
+(tool-bar-mode nil)
 
-;; ���塼�С��Ȥ�?
+;; メニューバー使う?
 (menu-bar-mode -1)
 
-;; �������������Ȥ�?
+;; スクロールバー使う?
 (scroll-bar-mode -1)
 
-;; �ۥ����������Ȥ�? �ʤ�������
+;; ホイールマウス使う? なら入れとけ。
 (mouse-wheel-mode 1)
 
-;; xterm�Ȥ�gnome-terminal�Ȥ���
+;; xtermとかgnome-terminalとか。
 (xterm-mouse-mode 1)
 
-;; ;; fringe(���������Τ褦�˸����Ƥ륢��;; (fringe-mode 8)
+;; ;; fringe(左右に余白のように見えてるアレ)
+;; (fringe-mode 8)
 
-;; ;; �������
+;; ;; 時間表示
 ;; (display-time)
 
-;; ��ֹ�����line-number-mode t)
+;; 行番号と列番号
+(line-number-mode t)
 (column-number-mode t)
 
-;; ��Ÿ��
+;; 画像展開
 (auto-image-file-mode)
 
@@ -37 +41 @@
 (iswitchb-default-keybindings)
 
-;; �Хå����åץե������¸��ֻ��; CVS�Ǵ����Ƥ�����Ƥ����Ȱ��
-;; !path!to!file-name~ ��������
+;; バックアップファイルの保存位置指定
+;; CVSで管理していても設定しておくと安全
+;; !path!to!file-name~ で保存される
 (setq backup-directory-alist
       '(("." . "~/.emacs.d/backups")))
@@ -45 +50 @@
 (setq transient-mark-mode t)
 
-;;isearch �򿧤Ĥ���(setq search-highlight t)
+;;isearch を色つきに
+(setq search-highlight t)
 (setq query-replace-highlight t)
 ;;(setq isearch-lazy-highlight-initial-delay 0) ; obsolate
@@ -58 +64 @@
 (setq woman-cache-filename (expand-file-name "~/.emacs.d/woman-cache"))
 
-;; �Хå����åפ��Ȥ���node������Τ���ʤ�
+;; バックアップごときでinodeが変わるのが許せない
 (setq backup-by-copying t)
 
-;;GC�ֳ�(setq gc-cons-threshold 1000000)
+;;GC間隔
+(setq gc-cons-threshold 1000000)
 
-;; ���ץ�����ɽ�� : ��ư��®���ʤ�setq inhibit-startup-message t)
+;; スプラッシュ非表示 : 起動が速くなる
+(setq inhibit-startup-message t)
 
-;; �ӡ��ײ��Τ����˲�ȿž
+;; ビープ音のかわりに画面反転
 (setq visible-bell nil)
 
-;; ���ޤ�������ե���������������֤������ǡ������setq font-lock-maximum-size nil)
+;; あまりに大きいファイルは色付けると時間かかるので、上限を指定
+(setq font-lock-maximum-size nil)
 
 ;; ;; fast-lock
@@ -74 +83 @@
 ;; (setq fast-lock-cache-directories '("~/.emacs.d/emacs-flc"))
 
-;; auto-save�ξ�
+;; auto-saveの場所
 (setq auto-save-list-file-prefix "~/.emacs.d/auto-save-list/.saves-")
 
-;; �Ǹ����Ԥ���롣
+;; 最後に改行を付ける。
 (setq require-final-newline t)
 
-;; /tmp �Ǥ�����������ɡ�
+;; /tmp でもまあいいんだけど。
 ;; (setq temporary-file-directory "~/.emacs.d/tmp")
 (setq temporary-file-directory "/dev/shm")
 
-;; 1�Ԥ��ĥ��������롣
+;; 1行ずつスクロール。
 (setq scroll-conservatively 1)
 
-;;�����Ԥ�����ʤ�
-;;emacs21�Ǥϥǥե�����
+;;新規行を作成しない
+;;emacs21ではデフォルト。
 (setq next-line-add-newlines nil)
 
-;; 80 ��Ȥ���ȡġ�(setq fill-column 79)
+;; 80 だとちょっと……
+(setq fill-column 79)
 
-;; *Messages* �����
+;; *Messages* の長さ
 (setq message-log-max 200)
 
-;; .gz �ʥե�����������˰�����ĥ
+;; .gz なファイルとかを透過的に圧縮/伸張
 (auto-compression-mode t)
 
-;; apropos �򤢤������Ȥ�(setq apropos-do-all t)
+;; apropos をあらゆるとことに
+(setq apropos-do-all t)
 
 ;; abbrev
@@ -110 +121 @@
 (setq vc-command-messages t)
 
-;; narrowing�������ˤ������ٹ𤷤Ƥ�����������
+;; narrowingするときにいちいち警告してくるのがウザイ
 (put 'narrow-to-region 'disabled nil)
 (put 'narrow-to-page 'disabled nil)
 
-;; ���ä��idow��Խ����ʤ��餢�ä��help*�򥹥�����������
+;; こっちのwidowで編集しながらあっちの*help*をスクロールとか。
 (global-set-key "\M-V" 'scroll-other-window-down)
 
-;; ����������(setq cursor-in-non-selected-windows nil)
+;; カーソル一個
+(setq cursor-in-non-selected-windows nil)
 
-;; ���Ĵ
+;; 空行強調
 (setq-default indicate-empty-lines t)
 
-;; �Դ��������Ƥ⤤�����ʤ�)
+;; 行間(これ消してもいいかなぁ)
 ;; (setq-default line-spacing 0)
 
@@ -138 +150 @@
 
 
-;; C������귲
+;; C言語系の設定群
 
 ;; Ruby default style
@@ -148 +160 @@
                 (statement-case-intro . 2))))
 
-;; �Ǥ����stroustrup ��������
+;; でも本当は stroustrup が好き。
 (defun-add-hook 'c-mode-common-hook
   (c-set-style "Stroustrup")
@@ -155 +167 @@
   (setq c-basic-offset 4))
 
-;; ���������������ˤ���global-set-key "\C-m" 'newline-and-indent)
+;; 普段、インデントするようにする
+(global-set-key "\C-m" 'newline-and-indent)
 (global-set-key "\C-j" 'newline)
 
 
-;; \C-h ��backspace �Ǥ�������(global-set-key "\C-h" 'delete-backward-char)
+;; \C-h は backspace であるべきだ
+(global-set-key "\C-h" 'delete-backward-char)
 
 (load "custom")

dotfiles/emacs/shyouhei/.emacs.d/elisp/new-file-p.el

@@ -1 @@
-;;¸�ߤ��ʤ��ե������������Ȥ����Ȥ�ǰ����
-;;fj.editor.emacs��
+;;存在しないファイルを開こうとしたとき念押し
+;;fj.editor.emacsより
 (add-hook 'find-file-not-found-hooks 'new-file-p)
 (defun new-file-p ()

dotfiles/emacs/shyouhei/.emacs.d/elisp/persistent-scratch.el

@@ -1 @@
-;; *scratch* �������ʤ��褦�ˤ���; http://www-tsujii.is.s.u-tokyo.ac.jp/~yoshinag/tips/elisp_tips.html#scratch
+;; *scratch* がきえないようにする
+;; http://www-tsujii.is.s.u-tokyo.ac.jp/~yoshinag/tips/elisp_tips.html#scratch
 (defun my-make-scratch (&optional arg)
   (interactive)

dotfiles/emacs/shyouhei/.emacs.d/elisp/startup.el

@@ -1 +1 @@
 ;; startup.el
-;; �Ķ�������utoloads.el���
+;; 環境設定してautoloads.elを呼ぶ
+
 ;; chdir
 (cd "~/")
 
-;; path ��(setq exec-path (append '("/usr/local/bin" "/sw/bin") exec-path))
+;; path 系
+(setq exec-path (append '("/usr/local/bin" "/sw/bin") exec-path))
 
 (setenv "PATH" (concat '"/usr/local/bin:/sw/bin:/usr/bin:" (getenv "PATH")))
 
 ;;; my-load-path
-;;; kaoru �ץ��������ä������Ȼפä���
+;;; kaoru プロの設定を読んでかっこいいと思った。
 (defvar default-load-path load-path
   "*Base of `load-path'.

dotfiles/emacs/shyouhei/.emacs.d/elisp/tab4.el

@@ -1 @@
-;; 4 ���֤ˤ�����������åե��Τ�
+;; 4 タブにする(ローカルバッファのみ)
 ;; usage M-x tab4
-;; fj.editor.mule��
+;; fj.editor.muleより
 (defun tab4 (arg)
   "Toggle `tab-width' between 4 and 8.

dotfiles/emacs/shyouhei/.emacs.d/elisp/trim-buffer.el

@@ -1 @@
-;; ��������;; usage M-x trim-buffer
+;; 行末の空白を一括削除する
+;; usage M-x trim-buffer
 (defun trim-buffer ()
   "Delete excess white space."

dotfiles/emacs/shyouhei/.emacs.d/elisp/unix-defaults.el

@@ -1 +1 @@
 ;; Unix default settings
 
-;; �����
+;; 日本語設定
 (set-language-environment 'Japanese)
-;; �Ƕ���$LANG�Ǥ������������ˤʤä���
+;; 最近もう$LANGでいいやという気になった。
 ;; (set-default-coding-systems 'euc-jp-unix)
 ;; (set-buffer-file-coding-system 'euc-jp-unix)
@@ -12 +12 @@
 ;; (setq default-process-coding-system '(undecided . euc-jp-unix))
 
-;; ����
+;; 色設定
 (if window-system
     (progn
@@ -36 +36 @@
                     default-frame-alist))
 
-      ;; �⡼�ɥ饤�����
+      ;; モードラインの色設定
 ;;     (set-face-foreground 'modeline "black")
 ;;     (set-face-background 'modeline "gray80")

dotfiles/emacs/shyouhei/.emacs.d/elisp/utils.el

@@ -1 +1 @@
 ;; utils.el
-;; .emacs ����Ȥ��ؿ�; http://www.sodan.org/~knagano/emacs/dotemacs.html
-;; �Ȥ����ȡ�
+;; .emacs の中で使う関数
+
+;; http://www.sodan.org/~knagano/emacs/dotemacs.html
+;; とか参照。
 
 (defun autoload-p (function file &optional docstring interactive type)
@@ -8 +10 @@
        (autoload function file docstring interactive type)))
 (defmacro defun-add-hook (hookname &rest sexplist)
-  "add-hook �Υ����ꥢ�������ؿ�ѥå�����hook ��ɲä��롣"
+  "add-hook のエイリアス。引数を関数にパックして hook に追加する。"
   `(add-hook ,hookname
              (function (lambda () ,@sexplist))))
 (defun load-p (loadlib)
-  "�����load����߹��ߤ˼�����Ƥ⤽���ǻߤޤ�����"
-  ;; missing-ok ��ɤ�ߤơ�����餳�ä���essage �Ǥ����Ƥ���
+  "安全な load。読み込みに失敗してもそこで止まらない。"
+  ;; missing-ok で読んでみて、ダメならこっそり message でも出しておく
   (let ((load-status (load loadlib t)))
     (or load-status