猫熊は燃えつきた？！日記

○ 謎の人

344 ってだれだ？っと思っていたら、344っちだったのね。大場さんの日記を読むまで気付かなかった。

○ 今日の現実逃避

掲示板もいいんだけど、なんかコードを書きたいときにこまるよな。というわけで、キーボードでフレーム移動を作って見た。(なんか絶対世の中にありそう)

(defvar my-move-frame-distance 15) ;; 移動量
  
(defun my-move-frame (&optional vertical horizon)
  "vertical, horizon の数だけ Frame を動かす"
  (when window-system
    (let* ((meadowy (featurep 'meadow))
	   (top (frame-parameter (selected-frame) 'top))
	   (left (frame-parameter (selected-frame) 'left))
	   (mpos (if meadowy
		     (cdr (mouse-position))
		   (cdr (mouse-pixel-position))))
	   (hoff (* (or horizon 0) my-move-frame-distance))
	   (voff (* (or vertical 0) my-move-frame-distance)))
      (set-frame-position (selected-frame) (+ left hoff) (+ top voff))
      (if meadowy
	  (set-mouse-position (selected-frame) (car mpos) (cdr mpos))
	(set-mouse-pixel-position (selected-frame)
				  (+ (car mpos) hoff)
				  (+ (cdr mpos) voff))))))
 
(defun my-move-frame-up ()
  "Frame を上に動かす"
  (interactive)
  (my-move-frame -1 0))
 
(defun my-move-frame-down ()
  "Frame を下に動かす"
  (interactive)
  (my-move-frame 1 0))
 
(defun my-move-frame-left ()
  "Frame を左に動かす"
  (interactive)
  (my-move-frame 0 -1))
 
(defun my-move-frame-right ()
  "Frame を右に動かす"
  (interactive)
  (my-move-frame 0 1))
 
(define-key global-map [?\C-\M-1] 'my-move-frame-left)
(define-key global-map [?\C-\M-2] 'my-move-frame-down)
(define-key global-map [?\C-\M-3] 'my-move-frame-up)
(define-key global-map [?\C-\M-4] 'my-move-frame-right)

一番時間がかかったのはキーアサインをどれにするか考えていた時間。C-u つきでたくさん移動っていうのをやったら、Frame が遥か彼方に行ってしまって帰って来なくなってしまったのでやめた。マウスポインタの場所のキープが UNIX な Emacs21 と Meadow1.15 で別にやらないとうまく行かなかった。などなど
あと、Meadow2 では frame-parameter の top left がちゃんと帰ってこないので動かない > 頑張れ 344っち ^^;;;

○ 匠の技

いつまで経っても ACアダブタのジャックの先っぽが取れないぼくの SL-C3000 だが、昨日、後輩の SL-C3000 にもついに同じことが発生してしまったのだ。
そして、ついに匠が立ち上がった！！。
『白井さん、ちょっと Zaurus 貸してよ』
と言われてから、お昼休みも含むと約二時間後、先っぽのプラスチックチップが取れた！すごい！！ブラボー！！！

○ ファンヒータと犬

うちのダンはファンヒータつけるとこれだもんなぁ。だけど、寒い土手でも元気に走り回っているけどね。明日降るといわれている雪の中で遊ばせるのが楽しみだ。

○ egg-pobox.el

truncate-lines が t のときの候補の一覧表示を失敗していたので、昨日、ちょっとだけ修正しておいた。

が、使ってくださっている人っているのかしら ^^;;;