muneda's diary

_1 近場のハイキングコース情報

• ごてんばせんネット 御殿場線沿線ハイキングガイド 34コース
• バスTABI (m00015396)
• 沼津アルプス
• ハロー・ナビ静岡:広域ハイキングコース

富士山に向けて，先日購入した靴を慣らしに週末どこか行こうかな．メモ．

_2 Emacs

• 28.2.1.1 iswitchb で選択中の内容を表示 (2004/06/27)

(defadvice iswitchb-exhibit
  (after
   iswitchb-exhibit-with-display-buffer
   activate)
  "選択している buffer を window に表示してみる。"
  (when (and
         (eq iswitchb-method iswitchb-default-method)
         iswitchb-matches)
    (select-window
     (get-buffer-window (cadr (buffer-list))))
    (let ((iswitchb-method 'samewindow))
      (iswitchb-visit-buffer
       (get-buffer (car iswitchb-matches))))
    (select-window (minibuffer-window))))

• キーバインドを追加したい

(add-hook 'iswitchb-define-mode-map-hook
          'iswitchb-my-keys)

(defun iswitchb-my-keys ()
  "Add my keybindings for iswitchb."
  (define-key iswitchb-mode-map " " 'iswitchb-next-match))

_3 xyzzy

• isearch で大文字小文字を区別させないようにしたい

(setq *case-fold-search* t)

• isearch で選択範囲を指定してコピー

(in-package "editor")
(defun isearch-copy-as-kill ()
  (kill-new *isearch-current-string*)
  (message "Current string copied")
  (isearch-exit))
(define-key *isearch-map* #\C-c 'isearch-copy-as-kill)
(in-package "user")

• #\C-c g を 'goto-line に割り当てる

(global-set-key '(#\C-c #\g) 'goto-line)

_4 MotoGP 第7戦 RioGPレポート

あとでじっくり読もう．

_5 iPod到着

iSkin evoを装着しようとしたがどうやってやったらいいのかサッパリわからん．最初に入っている厚紙ってどうやって取るの？

evo 自体がシリコンなのでビヨ〜んと引っ張っちゃえばいいようだ．ぜんぜん頭が回らなかったオレは20分ほど悩みました．凹．