- 1 名前：ミスターエックスワイジー [2007/10/06(土) 23:44:07 ID:L/pKByeF0]
- xyzzyってさ、一見さんお断りの京都料亭みたいでさ、何から手をつけていいのかわからないでしょ？
とりあえず，初心者同士で解決できる問題はまず過去ログ・グーグルで検索した後ここで相談しましょう
たとえば
・ここのHPに書いてある通りにやりましたができません．
・xyzzyが起動しなくなりました．
・キーバインドってどうやって変更するの？
初心者の私が答えられるのはこの程度です．
自分でlispが書けるような方，こんな機能が欲しいのですが
だれか作ってくださいという方は Win板本スレへ。
xyzzy Part15 @Win板（通称：本家）
pc11.2ch.net/test/read.cgi/win/1175649315/
過去ログ & 関連リンクは>>2-5あたりに。
- 335 名前：332 [2008/02/12(火) 06:39:47 ID:SUwXSJwZ0]
- ミスッタ orz
; エンコーディング変更ポップアップ と メニューに追加
(defvar *encoding-menu* nil)
(defvar *process-encoding-menu* nil)
(defun encoding-menu (encoding-menu encode-func)
(or encoding-menu
(let ((menu (create-popup-menu)))
(mapc #'(lambda (x)
(add-menu-item menu nil (car x)
#'(lambda ()
(interactive)
(funcall encode-func (cdr x)))))
`(("utf-8n \t(&8)" . ,*encoding-utf8n*)
("utf-16 \t(&6)" . ,*encoding-utf16*)
("sjis \t(&S)" . ,*encoding-sjis*)
("auto \t(&A)" . ,*encoding-auto*)
("euc-jp \t(&E)" . ,*encoding-euc-jp*)
;("jis \t(&J)" . ,*encoding-jis*)
))
(add-menu-item menu :select "詳細指定\t(&_)"
#'(lambda (encoding)
(interactive "zEncoding: ")
(funcall encode-func encoding)))
(setq encoding-menu menu))))
- 336 名前：332 [2008/02/12(火) 06:40:14 ID:SUwXSJwZ0]
- ; ポップアップ
(defun revert-buffer-encoding-popup2 ()
(interactive)
(track-popup-menu (encoding-menu *encoding-menu* 'revert-buffer)))
(defun encoding-menu-in-file-autoload ()
(let ((filemenu (get-menu *app-menu* 'ed::file)))
(insert-popup-menu filemenu
(1- (get-menu-position (get-menu *app-menu* 'ed::file) :above-session))
(encoding-menu '*encoding-menu* 'revert-buffer)
"Reopen with Encoding (&G)\tC-c e")))
(defun set-default-process-encoding (encoding)
(setq *default-process-encoding* encoding))
(defun process-encoding-popup ()
(interactive)
(track-popup-menu (encoding-menu *process-encoding-menu* 'set-default-process-encoding)))
(add-hook '*init-app-menus-hook* 'encoding-menu-in-file-autoload)
; ポップアップのキー設定
(global-set-key '(#\C-c #\e) 'revert-buffer-encoding-popup2)
(global-set-key '(#\C-c #\C-e) 'process-encoding-popup)
----------------------------
終わり
|
 |
