; window stuff
(define-key ctl-x-map #\3 'split-window-vertically)
(define-key ctl-x-map '(#\5 #\f) 'find-file-other-window)
(define-key ctl-x-map '(#\5 #\2) 'new-pseudo-frame)
(define-key ctl-x-map '(#\5 #\0) 'delete-pseudo-frame)
(define-key ctl-x-map '(#\5 #\o) 'next-pseudo-frame)
(define-key ctl-x-map '(#\5 #\n) 'next-pseudo-frame)
(define-key ctl-x-map '(#\5 #\p) 'previous-pseudo-frame)

(defun kill-buffer-and-window ()
  (interactive)
  (and (kill-buffer (selected-buffer)) (delete-window)))
(define-key ctl-x-map '(#\4 #\0) 'kill-buffer-and-window)

; ミニバッファのヒストリの挙動
(define-key minibuffer-local-completion-map #\Up
	    'minibuffer-previous-line-or-history)
(define-key minibuffer-local-completion-map #\Down
	    'minibuffer-next-line-or-history)
(define-key minibuffer-local-completion-map #\C-p
	    'minibuffer-previous-line-or-history)
(define-key minibuffer-local-completion-map #\C-n
	    'minibuffer-next-line-or-history)
(define-key minibuffer-local-completion-map #\C-Up
	    'minibuffer-previous-line-or-search-history)
(define-key minibuffer-local-completion-map #\C-Down
	    'minibuffer-next-line-or-search-history)

　そしてRPN電卓！Emacsにはmcalcというのがあるが、xyzzyにも移植されていたので、持ってきて設定を追加してみた。演算子を簡単に追加できるのがいいね。以下でクリップボードやキルリングとの間で数値を相互にコピペできる。

; RPN calculator
(load-library "mcalc")

(defun mcalc-copy (arglist)
  (let ((arg (nth 0 arglist)))
    (ed::kill-new (mcalc-format-string arg))
    (message "Copied")
    (list arg)))
(mcalc-add-function "w" 'mcalc-copy 1)

(defun mcalc-paste (arglist)
  (let ((arg (parse-integer (nth 0 (ed::current-kill 0)))))
    (list arg)))
(mcalc-add-function "y" 'mcalc-paste 0)

(defun mcalc-copy-to-clipboard (arglist)
  (let ((arg (nth 0 arglist)))
    (copy-to-clipboard (mcalc-format-string arg))
    (message "Copied to clipboard")
    (list arg)))
(mcalc-add-function "c" 'mcalc-copy-to-clipboard 1)

(defun mcalc-paste-from-clipboard (arglist)
  (let ((arg (parse-integer (get-clipboard-data))))
    (list arg)))
(mcalc-add-function "v" 'mcalc-paste-from-clipboard 0)

　同じことをEmacsのmcalcでやるにはこうする。Xのクリップボードの操作は面倒なのでやっていない。(kill-newにあたるものがないようだ)

(require 'mcalc)

(defun mcalc-copy (arglist)
  (let ((arg (nth 0 arglist)))
    (kill-new (mcalc-format-string arg))
    (message "Copied")
    (list arg)))
(mcalc-add-function "w" 'mcalc-copy 1)

(defun mcalc-paste (arglist)
  (let ((arg (string-to-number (current-kill 0))))
    (list arg)))
(mcalc-add-function "y" 'mcalc-paste 0)

　んー、いい感じ。

The post xyzzy / mcalc appeared first on 工夫と趣向と分別と。.

　長いことMeadowで粘ってきたのだが、結局ケータイの仕事となると半角カナや絵文字が当たり前になるので、そこで誤認識しまくるMeadowは使えないと結論した。フックを書いてディレクトリ名やファイル名で判別するように頑張ったが、所詮限界がある。Emacs 21.3.50では特に問題はないので、Meadowが21.3.50/21.4ベースになればいけそうだけどね。

　ということで、xyzzyに移行することにした。初期状態ではEmacsと微妙に非互換なので、~/.xyzzyにいろいろ書いて矯正してみる。

; search/replace
(load-library "isearch")
(global-set-key #\M-% 'query-replace)
(setf *ispell-command* "C:/xyzzy/ispell-win32/bin/ispell.exe")

; undo/redo
(global-set-key #\C-- 'redo)
(global-set-key #\C-_ 'undo)
(global-set-key #\C-/ 'undo)
(define-key ctl-x-map #\u 'undo)

; input
(global-set-key #\C-\\ 'toggle-ime)
(global-set-key #\M-SPC 'just-one-space)
(global-set-key #\M-/ 'dabbrev-expand)

; file stuff
(define-key ctl-x-map #\C-w 'emacs-write-file)
(define-key ctl-x-map #\d 'open-filer)

; indentation
(global-set-key #\C-M-\\ 'indent-region)

; window stuff
(define-key ctl-x-map #\3 'split-window-vertically)

; rectangle selection
(define-key ctl-x-map '(#\r #\k) 'kill-rectangle)
(define-key ctl-x-map '(#\r #\d) 'delete-rectangle)
(define-key ctl-x-map '(#\r #\y) 'yank-rectangle)
(define-key ctl-x-map '(#\r #\r) 'copy-rectangle)
(define-key ctl-x-map '(#\r #\t) 'string-rectangle)

; help stuff
(global-set-key '(#\M-\? #\b) 'describe-bindings)
(global-set-key '(#\M-\? #\k) 'describe-key)
(global-set-key '(#\M-\? #\f) 'describe-function)
(global-set-key '(#\M-\? #\v) 'describe-variable)

; miscellaneous stuff
(global-set-key #\M-: 'eval-expression)

　おー、いい感じ。そしてcvs-mode, svn mode, php-mode, ruby-modeなどを入れて設定してやったら完璧な使い心地に！軽いし最初からxyzzycli.exeというのがあるから、別々に起動しても一つのセッションに統合することができる。

　Cygwin的には、次のような手抜きスクリプトを書けば環境変数EDITORに設定できる。

#!/bin/sh

prog=/cygdrive/c/xyzzy/xyzzycli.exe

if [ $# -eq 0 ]; then
        exec $prog
else
        exec $prog -wait "$(cygpath -w "$1")"
fi

　ただし、Beckyの「外部編集ツール」はプログラムの終了は見ず、ウィンドウが閉じるのを待っているようなので、xyzzycli.exe -waitではうまくいかない。仕方ないが、xyzzy.exeを登録して独立したセッションで編集せねばならない。まあ、そのくらいはいいけどね。

　てな感じで快適です。ちなみに、.xyzzyに(require "Gates")と書くとWindows標準寄りのキーバインドになるので、実はEmacs使い以外にもおすすめできたり。まあ、面倒はごめんなので秘密にしておきますが。(・∀・)

　あ、tdiary-modeもあるけど、しばしば通信中にxyzzyごと固まってしまうので怖くて使えません。直らないかなー。でないと日記の更新が遅れがちに…。と言い訳

The post xyzzyイイ appeared first on 工夫と趣向と分別と。.