トップ «前の日記(2003-10-19 (Sun)) 最新次の日記(2003-10-22 (Wed))» 編集

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

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。

2002|12|

2003|01|02|03|04|05|06|07|08|09|10|11|12|

2004|01|02|03|04|05|06|07|08|09|10|11|12|

2005|01|02|03|04|05|06|07|08|09|10|11|12|

2006|01|02|03|04|05|06|07|08|09|10|11|12|

2007|01|02|03|04|05|06|07|08|09|10|11|12|

2008|01|02|03|04|05|06|07|08|09|10|11|12|

2009|01|02|03|04|05|06|07|08|09|10|11|12|

2010|01|02|03|04|05|06|07|08|

2011|09|

2012|02|

2003-10-20 (Mon) ちょっと筋肉痛 [長年日記]

○ 金はいらない

某掲示板から

;; 適当なキーにアサイン
(define-key global-map "\C-cc" 'exchange-char)
 
(defvar exchange-chars '((?ア . ?ァ)
			 (?イ . ?ィ)
			 (?ウ . ?ゥ)
			 (?エ . ?ェ)
			 (?オ . ?ォ)
			 (?ヤ . ?ャ)
			 (?ユ . ?ュ)
			 (?ヨ . ?ョ)
			 (?ァ . ?ア)
			 (?ィ . ?イ)
			 (?ゥ . ?ウ)
			 (?ェ . ?エ)
			 (?ォ . ?オ)
			 (?ャ . ?ヤ)
			 (?ュ . ?ユ)
			 (?ョ . ?ヨ))
  "*置き換える文字の組合わせの alist")
 
(defun exchange-char ()
  "カーソルの次の文字を exchange-chars に則って変更する"
  (interactive)
  (let* ((char (char-after))
	 (repl (cdr (assq char exchange-chars))))
    (cond
     (repl
      (delete-char 1)
      (insert-char repl 1))
     (char
      (ding)
      (message "`%c' は置換対象ではありません" char))
     (t
      (message "次の文字がありません")))))

○ うーん、

仕様が良くわからないけど、こっちのほうが良いな。

(defvar exchange-chars '((?ア . ?ァ)
			 (?イ . ?ィ)
			 (?ウ . ?ゥ)
			 (?エ . ?ェ)
			 (?オ . ?ォ)
			 (?ヤ . ?ャ)
			 (?ユ . ?ュ)
			 (?ヨ . ?ョ))
  "*置き換える文字の組合わせの alist")
 
(defun exchange-char ()
  "カーソルの次の文字を exchange-chars に則って変更する"
  (interactive)
  (let* ((char (char-after))
	 (repl (or (cdr (assq char exchange-chars))
		   (car (rassq char exchange-chars)))))
    (cond
     (repl
      (delete-char 1)
      (insert-char repl 1))
     (char
      (ding)
      (message "`%c' は置換対象ではありません" char))
     (t
      (message "次の文字がありません")))))

本日のツッコミ(全1件) [ツッコミを入れる]

△ X (2003-10-20 (Mon) 17:59)

完璧です！！！<br>ありがとうございます！！<br>2番目のめちゃ便利です！！<br>金不要って恐縮です。ぱんださんのことは忘れません。<br>ありがとうございました！

書いている人: 白井秀行 (mailto:ｓｈｉｒａｉ＠ｍｅａｄｏｗｙ。ｏｒｇ)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)