- 610 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/12/09(水) 21:51:47 ID:A2Bg7reX0]
- テキストエディタをまた〜り語ろうで話に出た、テキストをドラッグした時に
その文字数をステータスに表示するlispを貼っておきます。
もし使いたい人は、適当にどうぞ〜
以下を.xyzzyかsite-lisp/siteinit.lに書く
;;; 左ドラッグで選択した領域の文字数（改行を除く）を
;;; ステータスのところに表示するスクリプト。
;; 全体でなくモードごとに有効にする場合は、最後のglobal-set-keyを
;; ローカルのマッピングに変える
(defun selection-char-count ()
(interactive)
(let ((start nil) (end nil) (res 0))
(setf res (length (remove #\LFD
(selection-start-end (ed st)
(progn
(setf start st end ed)
(buffer-substring start end))))))
(if start
(progn
(message "文字数： ~A" res)
(start-selection 2 t start); 関数呼び出しでセレクションが解除されてしまうため、設定しなおす
(goto-char end)))))
(global-set-key #\LBtnUp 'selection-char-count)
|
 |
