@peccul is peccu

(love peccu '(emacs lisp cat outdoor bicycle mac linux coffee))

今日の思いつき

global-mode-line

- 全てのフレームに共通するモードライン
- そこにメールの受信状況,Readerのフィルターに引っかかった更新状況
- twtterのmention
- feed残unread
- など

API.el

- APIに対するelispを作りやすくするための機構
- 取得部
- 認証部
- 解析部
- 出力
- タイマーで自動更新
- キーバインドとかモード作成でいるやつ
- google readerとか,googleCalendar,twitterとか作りやすくなったらいいなと

stop-smartchr.el

- 89に()をsmartchrで割り当ててるんだけど,ことえりで7890と入力してF10など押そうものなら7()0となってしまうので,ことえりで全角入力してるかどうかを取得できれば何とかなりそうだけれども.知らない.誰か知らない?
- 参考資料 http://d.hatena.ne.jp/kitokitoki/20100506/p1
(defvar my-smartchr-minor-mode nil)
(defun my-smartchr-minor-mode ()
"指定した smartchr.el のキーバインドの有効/無効を切り替えるマイナーモード"
(interactive)
(setq my-smartchr-minor-mode (not my-smartchr-minor-mode))
(cond (my-smartchr-minor-mode
(global-set-key (kbd "F") 'self-insert-command)
(global-set-key (kbd ">") 'self-insert-command)
(global-set-key (kbd "=") 'self-insert-command)
)
(t
(global-set-key (kbd "F") (smartchr '("F" "$" "FF")))
(global-set-key (kbd ">") (smartchr '(">" ">>" ">|`!!'|")))
(global-set-key (kbd "=") (smartchr '("=" " = " " == " " === " "=> ")))
)))
(defadvice cua--deactivate-rectangle (before my-cua--deactivate-rectangle ())
(my-smartchr-minor-mode))
(defadvice cua--activate-rectangle (before my-cua--activate-rectangle ())
(my-smartchr-minor-mode))