emacs a bit

タイムスタンプの自動挿入

とりあえずあまり使わない "C-x t" にタイムスタンプ機能をつけてしまった。

(defun my-insert-time ()
 (interactive)
 (insert (concat
		  "" (format-time-string "%Y%02m%02d-%02H:%02M"))))
(global-set-key "\C-xt" 'my-insert-time) 

[参照url]

• http://www.bookshelf.jp/cgi-bin/goto.cgi?file=meadow&node=time%20string
• http://hjk.homedns.org/~webmaster/Debian/process.htm#time-stamp

Mewへのアドレス登録

• \C-c\C-a

メニューバーとかツールバーとか

~/.Xresource （に追記）
!Emacs
!toolbar
!Emacs*ToolBar: 0
!menubar
!Emacs*MenuBar: off
Emacs.pane.menubar.*.borderWidth: 0 
Emacs.pane.menubar.*.shadowThickness: 1 
Emacs.pane.menubar.*.margin: 0 
Emacs*XlwMenu*margin: 4 


~/.emacs （に追記）
;; menubar
(menu-bar-mode 1)
;; toolbar
(progn
(if (= 21 emacs-major-version) (tool-bar-mode -1)))

辞書機能追加 (sdic)

1. bzip2を用意しておく
2. 公式ページから 辞書ファイル"gene95.tar.bz2"をいただいておく(/tmp/に置く)
3. ルート権限で
   • # chown -c root gene95.tar.bz2
   して"gene95.tar.bz2"の所有者をrootに変更しておく
4. 以下のものをインストールする
   • sdic
   • sdic-gene95 (上記の gene95.tar.bz2 が必要となる)
   • sdic-edict
   • edict
   • sufary (高速検索が可能になる)
   • libsufary2
   • kakasi
   • kakasi-dic
5. ~/.emacs に追記

   • 
     ;; 文字を書き込んでから検索
     (global-set-key "\C-cW" 'sdic-describe-word)
     ;; カーソル位置の文字をすぐに検索
     (global-set-key "\C-cw" 'sdic-describe-word-at-point)
     ;; sdic ウィンドウを閉じる
     (global-set-key "\C-cq" 'sdic-close-window)
           
     (setq sdic-window-height 10
     	sdic-disable-select-window t)
           
     (defvar sdic-face-color
     	"cyan" "*Color of entry. 見出し語を表示するために使う色")
     
     

• 簡単な使い方

  コマンド	動作
  w, /	新たな単語を検索する
  W	辞書を指定して検索する
  SPC	辞書閲覧バッファを前方へスクロールする
  b, BS, Delete	辞書閲覧バッファを後方へスクロールする
  n, TAB	次の項目へ移動する
  p, M-TAB	前の項目へ移動する
  <	辞書閲覧バッファの先頭へ移動する
  >	辞書閲覧バッファの終端へ移動する
  o	辞書閲覧バッファから他のバッフへ移る
  q	辞書閲覧バッファを消す
  Q	SDIC を終了する
  ?	ヘルプを表示する

• 参考HP
  • ☆☆Emacs で動く辞書 sdic のインストール("~/.emacs"はここの丸移し)
  • ☆公式HP
  • Emacsで英和／和英辞書を使う
  • Debian (testing) 公式ページ
  • debian パッケージの詳細情報(公式ページ内のDebian特記)
  • SDIC Reference Manual(公式マニュアル)

anthy-el

# apt-get install anthy-el
$ emacs ~/.emacs
	;;(set-input-method 'japanese-egg-canna) ;;コメントアウト
	(set-input-method "japanese-anthy")	;;追加

• C-\ (C-o)

$ emacs ~/.emacs
	(anthy-change-hiragana-map "。" "．")
	(anthy-change-hiragana-map "、" "，")

TABの文字数

(setq-default tab-width 4)
(setq tab-stop-list '(4 8 12 16 20 24 28))

連係ブラウザの変更

(setq browse-url-generic-program "dillo") ;;連係ブラウザをdilloに変更
(setq browse-url-browser-function 'browse-url-generic)

バッテリ残量の表示

 (load "battery")
 (setq battery-mode-line-format " [%p%%] ")
 (display-battery) ;; バッテリ残量をモードラインに表示

lisp でおいしい

(show-paren-mode 1) ;;対応する括弧を光らせる

起動時のサイズ

(setq default-frame-alist
      (append (list '(width . 80)
		    '(height . 35)
	      )
	      default-frame-alist)
) ;;デフォルトのフレーム設定

ブラウザ変更

(setq browse-url-generic-program "dillo") ;;連係ブラウザをdilloに変更
(setq browse-url-browser-function 'browse-url-generic)

mew の画像ビューワを xv から display にかえる

• (setq mew-prog-image/*-ext "display")

emacs で バッファの切替えをスムーズに

そこでバッファの切替えがもうちょっと事が簡単に進まんかのぉ、と 思っていたところ、

しかし、これ、大変面倒。バッファが一つ前しか表示されず、それを↑↓で 選択する（やってないが、多分）というもの。
もうちょっと、便利なもんがあるんじゃねーかー、ということで探すこと 数十秒。
… ありました。

これで C-x b で 自動的に iswitchb でバッファ検索できる。

Xemacs21 でぐるぐる

• ~/.xemacs/init.el

;;;Xemacsでホイールする
;; scroll on wheel of mouses
(define-key global-map 'button4
'(lambda (&rest args)
(interactive) 
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down 5)
(select-window curwin)
)))
(define-key global-map 'button5
'(lambda (&rest args)
(interactive) 
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up 5)
(select-window curwin)
)))

を足してみた。

できたよ。うむ。 あ、リンク先のはもうちょっと丁寧に書いてくれているけどもぉ、
ここの[2002.11.1]あたりだと、上のようになってた。
短くても（意味不明でも）動くんだからしょーがない

emacs M-x calender

こことか、 そことかによると、

• i-d (iNSERT dIARY) で 日記モード
• t-m で一ヵ月分のカレンダーを生成する

う〜む 、奥が深い。

eshell (emacs shell)

• M-x eshell

emacs ESC-(M-)の小技

その微妙な不快感を解消する方法を偶然発見（今回はまさに発見）

• ctrl + [ = ESC

emacs の バァファを消す

というわけで、バッファを消すコマンド。

• C-x k
• M-x kill-some-buffers

ま、性格上、"C-x k"多様なんだろうけど…

emacs の全角特殊文字

　　　以下の特殊文字を入力するときは以下のようにタイプします。

表示	入力
ぁ	xa
ぃ	xi
ぅ	xu
ぇ	xe
ぉ	xo
ゃ	xya
ゅ	xyu
ょ	xyo
ゐ	wi
ゑ	we
ヴ	vi

z の後に１文字入力することで、いろいろな記号を入力することができます。以下にその組み合わせを示します。

入力	表示	入力	表示
z1	○	z!	●
z2	▽	z@	▼
z3	△	z#	▲
z4	□	z$	■
z5	◇	z%	◆
z6	☆	z^	★
z7	◎	z&	£
z8	¢	z(	【
z9	♂	z)	】
z0	♀	z*	×
z-	〜	z_	∴
z=	≠	z+	±
z\（バックスラッシュ)	＼	z|	‖
z`	¯	z~	¨
zq	《	zQ	<
zw	》	zW	>
zr	々	zR	仝
zt	〆	zT	§
zp	〒	zP	↑
z[	『	z{	』
z]	〔	z}	〕
zs	ヽ	zS	ヾ
zd	ゝ	zD	ゞ
zf	〃	zF	→
zg	‐	zG	─
zh	←	zj	↓
zk	↑	zl	→
z;	゛	z:	゜
z'	‘	z"	“
zx	: -	zX	:-)
zc	○	zC	℃
zv	※	zV	÷
zb	゜	zB	←
zn	′	zN	↓
zm	″	zM	〓
z,	‥	z<	≦
z.	…	z>	≧
z/	・	z?	∞

emacs キーバインドを vi 風に

• (global-set-key "\C-h" 'backward-char)
  (global-set-key "\C-k" 'next-line)
  (global-set-key "\C-l" 'previous-line)
  (global-set-key "\C-l" 'forward-char)
  

ちなみに、大いに参考にさせてもらった ここでは、
下のような設定になっている。

… そう、こっちのキーバインドの方が、
人間工学的（というより普通のホームポジション的に）
↑より優れている。

;;独自のキーバインド設定
(global-set-key "\C-j" 'backward-char)
(global-set-key "\C-k" 'next-line)
(global-set-key "\C-l" 'previous-line)
(global-set-key [?\C-;] 'forward-char)

emacs21 の色関係 設定

• (setq default-frame-alist
  (append
  '((foreground-color . "gray") ; 前景色
  (background-color . "black") ; 背景色
  (cursor-color . "blue") ; カーソル色
  (width . 80) ; フレーム幅(文字数)
  (height . 40) ; フレーム高(文字数)
  (top . 50) ; フレームの Y 位置(ピクセル数)
  (left . 10) ; フレームの X 位置(ピクセル数)
  )
  default-frame-alist))
  

emacs で ブラウザからの張り付け

• Shift + ins

emacs21 での単語登録

• egg

したがって、私の emacs21 では 単語を登録する時は
M-x canna-touroku-region
からではなく、

• M-x egg-toroku-region

Tamago

emacs の shellモード で文字化け

すると、 ここ にヒントらしきものがあった（そのままではうまくいかなかったが）。

要するに、"ls= --color=auto"を外してやればいいみたいだったので、
## ----- お好みに応じて -----
# ls の動作 (属性表示、色つき)。man ls 参照
if [ "$TERM" = "dumb" -o "$TERM" = "emacs" ]
then
alias ls='ls -F'
else
alias ls='ls -F --color=auto'
fi

の部分を
## ----- お好みに応じて -----
# ls の動作 (属性表示、色つき)。man ls 参照
if [ "$TERM" = "dumb" -o "$TERM" = "emacs" ]
then
alias ls='ls -F'
#else
# alias ls='ls -F --color=auto'
fi

のように、コメントアウト("#")してやった。

emacs でホイールマウスを使えるようにする

canna の句読点 ( 。を ．にする方法)