SKK専用スレッド

■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

レス数が1000を超えています。残念ながら全部は表示しません。

SKK専用スレッド

1 ：名無しさん＠お腹いっぱい。 ：2000/11/27(月) 00:40: なんだかんだ言っても、一番使いやすいのはSKK
624 ：580 ：01/12/24 07:02: >>623
確かに面白そうですね。でも rule-list の仕様を
どうしたらいいかな?
後、関数だったら add-hook みたいな形式だと
funcall で既存の関数でも lambda 式でも呼べる
みたいで楽だけど、でも lambda 式だと rule-list が
異様にゴチャゴチャしそう。
変数は (eval (quote VAL)) すればいけるみたい。
ただ、僕は lisp (もそれ以外も)全然詳しくないので
今のままだと例えば

(setq my-skk-dynamic-insert-rule-list
'(("."
(("[-0-9,.\n]" . ".")
((func-foo . function) . "。")
((val-bar . variable) . "．")
(t . skk-current-kuten)))))

みたいに明示的にしないとダメです。あまり
嬉しくないですね。あと変数や関数の返り値が t だったら
ある文字にする場合と、返り値をそのまま使う場合と用意しないと。
;; これは (func-foo . function)というコンスセルを止めて
;; (func-foo function t)みたく3番目の引数で指定すればいいか。

誰かやってみませんか?
それと仕様募集中です。
625 ：名無しさん＠お腹いっぱい。 ：01/12/24 08:55: >>624

似たようなことしてる、Wanderlust の wl-draft-config-exec だと、
stringp だったら、正規表現と見なして、それ以外は eval しちゃってる。

それを参考にして..
戻り値をそのまんま使う場合、cdr が nil なら、ってのでいいような。
空文字入力は "" って線で。

(setq my-skk-dynamic-insert-rule-list
'(("." (("[-0-9,.\n]" . ".") # stringp がマッチだよん。
(((func-foo) . "。") # eval で ok
(((func-bar 1 2) . "○") # eval で ok
((val-bar . "．") # eval で ok
((hoge-mode . "") # eval で ok
((get-kuten) . nil) # eval で ok 戻り値使う。
(t . skk-current-kuten))))))) # eval で ok

どうでしょう。
626 ：名無しさん＠お腹いっぱい。 ：01/12/24 08:58: >>625
括弧の対応変でした...

(setq my-skk-dynamic-insert-rule-list
'(("." ("[-0-9,.\n]" . ".") # stringp がマッチだよん。
((func-foo) . "。") # eval で ok
((func-bar 1 2) . "○") # eval で ok
(val-bar . "．") # eval で ok
(hoge-mode . "") # eval で ok
((get-kuten) . nil) # eval で ok cdr ->nil なので戻り値使う。
(t . skk-current-kuten)))) # eval で ok

です。
627 ：580 ：01/12/24 10:44: >>625
どうもです。
案外 eval で殆どいけちゃうんですね。
lambda な場合も functionp だったら funcall と
いう事でいけそうな事に気付きました。
あと、re-search-backward した時の match-data を
渡せたらちょっとした小物が手軽に作れていいかもと
>>621 を読んで思いました。
でもそうすると
rule-list が複雑になってしまうなぁ。
一応
(("[a-z]" (func arg)) . nil)
こーいうフォーマットを考えついて、これだと

(let ((tmp '(("[a-z]" (func arg) . nil))))
(and (listp (car tmp))
(stringp (caar tmp))))

という事で listp と eq で他と区別はできる。
;; かなりゴチャゴチャしてるけど、t を他のシンボルにすれば
;; 拡張もできるし、コンスセルでなくリストなので、
;; func が lambda でも arg の引数を自由に追加できる。
あと my-skk-dynamic-insert-ignore-CRLF の値をキー毎に
切り替えれたらいいかもと思ってみたり。
;; 流石に関数毎には無理そうです。
628 ：名無しさん＠お腹いっぱい。 ：01/12/24 11:11: >>627
関数定義するぐらい拘る人だったら、

(lambda ()
(let ((my-skk-dynamic-insert-rule-list t))
(progn ..)))

ぐらいするんじゃないかな。

なんか、すごいものに昇華しそうな予感。
文脈に依存した入力ってやつだよね。これ。

たとえば、c-mode だったばあい、
"..." /* .. */ とかの中身を使いわけられるわけだし。
そこまで使いわける人がいるかはおいといて。

<h1 lang="ja">...</h1> のときと <h1 lang="en">...</h1>のときの挙動かえたりとか...

さらに発展して、文脈に依存した変換とか、モード切り変えなんてできたら...
あぁ、妄想がふくらんでくー。
629 ：名無しさん＠お腹いっぱい。 ：01/12/24 18:44: abbrev-mode の拡張版みたいで面白いね.
skk の利用法の発展ではあるけど,
用途は skk にとどまらないな.
630 ：580 ：01/12/24 19:21: なんか一日潰してしまった。ヘボいなぁ >自分

多分いろいろバグがあると思いますが、とりあえず。
いろいろツツいてください。

まずは rule-list の例

(setq my-skk-dynamic-insert-rule-list
'(("."
;;カーソル以前の文字列を正規表現で比較 cdr が入る
("[-0-9,.\n]" . ".")
;;"hoge" で re-search-backward で検索したときの (match-data) の値を md として
;; func に渡す。その結果が non-nil なら"．"
;; ちなみに md の他に arg も使え、これは my-skk-dynamic-insert自身の引数である
(("hoge" (func md)) . "．")
;; 同様。誰が使うんだ (^^;; おまえ、実装してみたいだけちゃうんかと...
(("fuga" (lambda (arg md) BODY)) . "●")
;; 関数の返り値が non-nil なら "。"
;; dynamic-scope なので、arg と書くと my-skk-dynamic-insert自身の arg が入る
((func arg) . "。")
;; 引数はいまのとこサポートしてない
;; rule-list が複雑になる & 使いにくそうだし
;; (arg ぐらい渡してもいいかもしれんが、arg の価値がよく分らんし... 上と矛盾してる)
;; (単にこれ書いてる今になってコード書き忘れたのに気付いただけ)
((lambda () BODY) . "◎")
;; 変数が non-nil なら "○"
(variable . "○")
;; どれにもマッチしない時は t に指定してあるものが選ばれる
(t . skk-current-kuten))
(","
((.....)))))

ちなみに単純な正規表現マッチの場合を除いて、cdr を `t' の指定をする事で
関数 or 変数の値が返り値 => バッファに入る
;; nil でないのは実装上の都合です。nil 以外のシンボルなら構わないのですが
631 ：580 ：01/12/24 19:32: ;; 以下では rule-list に
;; ("[-0-9,.\n]" . ",")
;; このようにあるとき、"[-0-9,.\n]" を COND,
;; "," を VAL と呼ぶことにする。(って、使うかな??)

(defun my-skk-dynamic-insert (arg)
(let* ((str (char-to-string last-command-char))
(alist (nth 1 (assoc str my-skk-dynamic-insert-rule-list)))
(cond-list (mapcar (lambda (l)
(car l))
alist))
(default-data (cdr (assq t alist)))
(idx 0)
data cnd md use-match-data)
(catch 'return
;; my-skk-dynamic-insert-rule-list を後から修正して
;; 対応するエントリが無くなった場合の fail safe
(when (null alist)
(throw 'return str))
(dolist (cnd cond-list)
(cond
((or (stringp cnd) ;("[-0-9,.\n]" . ".")
(and (listp cnd) ;(("[a-z]" (func arg)) . nil)
(stringp (car cnd))
(setq use-match-data t)))
(setq data (cond
;; 一応 REGEXP によるマッチングは現状ではカーソル以前の文字列しか使えないので。
;; 実装するつもりも暇も無い。rule-list がややこしくなりそう。
;; もしやるなら looking-at 利用が効率いいかな? > やってみたい人。
((bobp)
default-data)
632 ：580 ：01/12/24 19:33: (t
(save-match-data
(save-excursion
(let ((regexp (if use-match-data
(car cnd)
cnd))
pos)
(when (and (bolp)
my-skk-dynamic-insert-ignore-CRLF)
(backward-char))
(setq pos (point))
(when (and (re-search-backward regexp nil t)
(string= (buffer-substring-no-properties (point) pos)
(buffer-substring-no-properties (match-beginning 0)
(match-end 0))))
(setq md (match-data))
(cdr (nth idx alist)))))))))
;; この時点の data は rule-list の VAL
(when (and data
use-match-data)
;; match-data を用いて出力を生成 or 条件判定
;; この時の条件は
;; (("[a-z]" (func arg)) . nil)
;; or (("[a-z]" (lambda (arg) BODY) arg) . nil)
;; my-skk-dynamic-insert 自体の引数は arg。
;; (この仕様は skk-make-raw-arg を見ると分る。なにに役立つんだろう?)
;; match-data の内容は md。
;; lambda 式には arg, md の順で与える。(ので、そのつもりで定義するように >利用者)
(setq data
(let* (;;func (nth 1 cnd)) ;; なんか分らんくなってしまった... ヘボ >自分
(retval (if (functionp (nth 1 cnd))
(funcall (nth 1 cnd) arg md)
(eval (nth 1 cnd)))))
(when retval
(if (eq data t)
retval
data)))))
;; この data はまだ skk-current-kuten のように文字列でない可能性がある
;; あとでまとめて処理
(when data
(throw 'return data)))
633 ：580 ：01/12/24 19:35: ((functionp cnd) ;((lambda (arg) BODY) . nil)
(let ((retval (funcall cnd))
(val (cdr (nth idx alist))))
(setq data
(when retval
(if (eq val t)
retval
val))))
(when data
(throw 'return data)))

(t ; 一般的な lisp 式はここで
(let ((retval (eval cnd))
(val (cdr (nth idx alist))))
(setq data
(when retval
(if (eq val t)
retval
val))))
(when data
(throw 'return data))))
;; cond を抜けた
(setq idx (1+ idx)
;; 初期化
use-match-data nil)))
;; catch & dolist を抜けた
;; VAL が skk-current-kuten だったり、func が関数のシンボルを返してる場合の処理
(cond ((stringp data)
data)
((functionp data)
(funcall data arg))
(t
(format "%S" data)))))

;; 3回にも分ける必要があるなんて、面倒スギ
634 ：名無しさん＠お腹いっぱい。 ：01/12/26 00:42: lkk 使ってる人いる?
apel 不要はちょっと嬉しいかな、と。
635 ：名無しさん＠お腹いっぱい。 ：01/12/26 02:49: lisp の拡張の簡単さのおかげで
emacs 自体も emacs 関連のパッケージも
ほとんど膨張していく運命にあるような
636 ：621 ：01/12/26 08:12: でけた。
"\$[^0-9.]-?[0-9]+\\(\\.[0-9]+\$?\\) ?\$[*/+-]\$ ?\$-?[0-9]+\$\$\\.[0-9]+\$?"
637 ：名無しさん＠Ｅｍａｃｓ ：01/12/26 10:05: 激しくレベル高いな。勉強してこよ。
638 ：名無しさん＠お腹いっぱい。 ：01/12/26 12:17: >>635
そうだね...
いじりやすいってのも罪なんだろうか。
639 ：名無しさん＠お腹いっぱい。 ：01/12/26 13:25: とても面白そうだったのでコード拡張(?)してみました。
ちなみに looking-at を加えて lambda 対応は省きました。
# これってどういうメリットがあったんでしょうか?
# よく分らなかったのと、変数でも関数でもあるシンボル
# への対応が面倒だったので無くしちゃいました。

my-skk-dynamic-insert-rule-list の形式も変えてみました。
'((INPUT-STATE NEXT-STATE
(;; looking-at が nil なら re-search-backward()
;; (- (point) limit) を re-search-backward の
;; LIMIT に渡す
(REGEXP looking-at ignore-lf limit S-EXP . VAL)
;; looking-at が non-nil なら looking-at()
;; b-regexp が指定されていれば、その条件で
;; re-search-backward してから looking-at する
;; limit は re-search-backward の際に使われる
(REGEXP looking-at b-regexp limit S-EXP . VAL)
;; 上以外
(S-EXP . VAL))))

looking-at, ignore-lf, limit, S-EXP は不要であれば
書かずにすみます。つまり
(REGEXP looking-at ignore-lf limit . VAL)
(REGEXP looking-at ignore-lf . VAL)
(REGEXP looking-at . VAL)
(REGEXP . VAL)
これら全て ok です。指定されてなければ nil として扱います。
# 一番下の形式だと re-search-backward となります。
ignore-lf が明示的に指定された時には、
my-skk-dynamic-insert-ignore-CRLF を上書きします。

VAL は文字列 or 関数のシンボル(arg付きで呼ばれる) or 変数 etc.
>>616 とは変えて、nil だと S-EXP の評価値になるようにしました。
looking-at の際に re-search-backward できるのは、こっちのほうが
context を考慮しやすいだろうと判断したからです。
# skip-chars-backward と迷ったのですが、こっちのほうが
# 柔軟に対処できそうなので。あまりオプション増すと
# 大変なので、これ以上の事がしたければ REGEXP でなく
# S-EXP のほうで対処してもらうという事で。
640 ：名無しさん＠お腹いっぱい。 ：01/12/26 13:40: begin 664 my-skk-dynamic-insert.gz
M'XL("#%2*3P``VUY+7-K:RUD>6YA;6EC+6EN<V5R=`"]6$^+'$44O_LI'@&Q
M1BEQ-_&TF(L@"#D9OT!-=\U,,3U=D^KJW<W'B:D%(8O&0]@D9I,URB11=Q)/
MW@,BR0K"*!X\B*^J_\]T3_>L8!T6INO]WJOW>W_JU1*?#^(0)M=I-!Y3_WK(
M)L*C(HRXTD"8&O;>`"`!UV\#(9%60+P14U1+BC]$.(2`19IZ<C)AH4_M7L\B
MTD54''#*`A&ALE"/8`MU1I'TP*JJ-4H=Q")Z%4UX3KK+`K3O*Z?D&F@HU%>%
MA;\/[Y4^6*`7*Z<;O-!/MHC'M#>"MQ37L0I3Z9V=MG.!6=S]Q=PRKX[-R1US
M9&8%\O&+K_XQ]\S9P><'?QP\/7AM#G^\8[XTWYMOS:.'O]W[U<QAP$0`$1OP
M%$7V1CQ$<N(@*+N3GYWHD9)[V2$M;[FGQ)<)L[EKM0HBKJ]9IZV_*J>AQ!?Q
M9.B7V"-):*<%4^D&I@&0@8Q15T3Y_A0FM"*0&4.Z*U]KS90V2%_VI[VZ+4C#
M7KM)="V$1&R7TXF-+?699K5"F1C?1T(B(<,&J2+Y126C&F05'UI>EHAKD"UB
MT2J["V2JY+#YE!7IO9'`9""AM"6LY00J1;D>ZP(H@&R]`Z(K*%DJJ4W5ZVBL
MPZ$"RD#08`!]FC(;B`E,9;0.B75(MF`;+L(E>!?>[X&9'WWSX+99W)^?_F3K
MU1AS9N;F28L.VZ]"N/+QU4]1Q<*6M?G!/$=N+N-G\\1\9LZ^_LL</CL\_7F-
M)I?U0F.&48]%'$)15QL5A`N!=3UMF9W3Q"W'ET-N;XC,2;8J.B%L-)RIBQN:
M2MJ'@UZJ:TEUBW"EY/JD:6PQN0#2NM8(!CZ0<HSMC[+Z]I*K<HT[XZPMIHK3
MB#.%+:G/O/$>4WY7:+-M9/\<6$13["92A+IG5?1ZL//L%::VO:5FYB7(\3FT
MZK;@)==<P2TDSK>E2U(,R9VS/A[9PCL)2-']6YO,[GJ)ADLF6Y@OJZ'MP@2S
M%W)?!JT,%$"!=7T9^\_V1GVY<S&[53_[B&$HT<T//[GR42N?)&-A91JL$W;A
MQ8:>962G+'+<U534N>MIR<!Y"ZM0LU1A_T6;[IX@R=SV`88@'@RXHE'<3S[1
M4%*<'Z882\&CS4^3.=-R\S:`DV*L.PF.5.WY]']T@'15!.U+(%>"$P`.#\;,
MCE_,GYO%R=V3+T`J>+@X^OWI\7>O5X"U[ZD'MQ[/S?SVWX_^Q#D"WU8W;I8-
MS&<O3V>X@<>_<;,Z51=I[WAH\L?=JLO>KAO)LYD>BTF[QQ6W?Q,UC;0EITD0
MS5,SDK-NWZY$Q2KQB8%5]-)3*,66'B[E]*ASS([EJU[9X=H.KL48LL&;IHT+
MQT,C"P4#Y9/7NM_B?#JWX[O73>[^?K[K9J+2HV[Y-;7TFY!!''IV7ET5=5L,
@'ZJ63/N_@0I05T6EPN2&"V]>O0!YE/\%$`-ZE6X0````
`
end

uudecode してから gunzip してください。
# 変数自分好みにかなり変えちゃいました。すいません。
# あと ML に出しません? >>580
641 ：名無しさん＠お腹いっぱい。 ：01/12/26 14:13: '((INPUT-STATE NEXT-STATE
(...)))

と変えようと提案したのにコードが対応してなかった...。
パッチです。
3c3
< (rule-alist (nth 1 (assoc str my-skk-dynamic-insert-rule-list)))
---
> (rule-alist (nth 2 (assoc str my-skk-dynamic-insert-rule-list)))
11c11,12
< (throw 'return str))
---
> (setq val str)
> (throw 'return val))
642 ：名無しさん＠お腹いっぱい。 ：01/12/26 14:51: ML にて発見されました。
なんかやる気でるっす。
643 ：580 ：01/12/26 15:33: >>639
素晴らしいです。

>ちなみに looking-at を加えて lambda 対応は省きました。
># これってどういうメリットがあったんでしょうか?

言われてみれば、特にないですね (^^;;;
暴走しちゃってたようです。しかも
>変数でも関数でもあるシンボルへの対応
とか忘れてるし (^^;;;

>my-skk-dynamic-insert-rule-list の形式も変えてみました。

全然おっけーです。というか、めっちゃスッキリしていい感じです。
しかも looking-at の時の re-search-backward とか、すごく
実用的な気がする。

># 変数自分好みにかなり変えちゃいました。すいません。
いえいえ、お気になさらずに。
># あと ML に出しません? >>580
ごめんなさい。ML に出てくタイミング、完全に失いました。
639 さんが変わりに投稿してくれたりするととても嬉しいのですが...
;; 身勝手でごめんなさい。
;; できれば SKK の貢献者に 580@2ch とか万一にもならないことを
;; 希望します...
644 ：名無しさん＠お腹いっぱい。 ：01/12/27 11:12: ▽モードで C-q を押して半角カタカナに変換すると、
例えば、
「▽うまー」→「ｳﾏ-」
となってしまいます。

skk-jisx0201-mode では、「-」→「ｰ」となるので、
不統一であるように思います。「ｰ」の方が 2ch 的には
嬉しいし(w
645 ：名無しさん＠お腹いっぱい。 ：01/12/27 16:13: >>643
後で ML に出してみようと思います。

書き忘れてたけど、仕様を変えたので、
skk-rom-kana-rule-list への append は

(setq skk-rom-kana-rule-list
(append skk-rom-kana-rule-list
(mapcar (lambda (l)
(list (car l)
(cadr l)
'my-skk-dynamic-insert))
my-skk-dynamic-insert-rule-list)))
となりますね。
646 ：名無しさん＠お腹いっぱい。 ：01/12/27 22:36: >>644
俺が試してみたら emacs20 か 21 かで
▽うまー [C-q] のハイフンが違った。
21 だと、お望みの結果に。
647 ：644 ：01/12/27 22:56: >>646
あら本当ですね。さっさと Emacs21 に移行
しろということなんでしょうか(w
648 ：名無しさん＠お腹いっぱい。 ：01/12/28 01:20: 最近いつのまにかカーソルの色が消えてる事が多い気がする。
ccc.el 関係なんだろうな...
649 ：名無しさん＠お腹いっぱい。 ：01/12/28 07:27: 確かに消えますね。
でも、気にならくなりました…
650 ：580 ：01/12/28 20:40: 今頃気付いたんだけど、新しい rule-list で
((INPUT-STATE NEXT-STATE
って対応難しいんじゃないのかな??
651 ：名無しさん＠お腹いっぱい。 ：01/12/29 07:17: rule-list 複雑怪奇すぎ。
俺には dynamic-insert 使えそーもねーや。
652 ：名無しさん＠お腹いっぱい。 ：01/12/29 09:30: コメント行で字を変えようと試したけど
(eq (get-char-property (point) 'face) 'font-lock-string-face)
じゃうまく変わらんよ。鬱だ...。
653 ：名無しさん＠お腹いっぱい。 ：01/12/29 10:42: >>652
簡単には

(defun my-inside-string-p ()
(and (eq (get-text-property (1- (point)) 'face) 'font-lock-string-face)
(eq (get-text-property (point) 'face) 'font-lock-string-face)))

(defun my-inside-comment-p ()
(and (eq (get-text-property (1- (point)) 'face) 'font-lock-comment-face)
(eq (get-text-property (point) 'face) 'font-lock-comment-face)))

こんなふーに個別に作成して

((my-inside-comment-p) . "moji")

または汎用性を持たせて

(defun my-inside-specific-face-p (face)
(and (eq (get-text-property (1- (point)) 'face) face)
(eq (get-text-property (point) 'face) face)))

として

((my-inside-specific-face-p 'font-lock-comment-face) . "moji")

バッファの末尾にいるとダメ。
ちょっと頑張ってみようかとも思ったけど、たとえば ruby-mode での
"foo#{bar}baz" みたいなのとか対応しきれんのでヤメ。
入力の時点で判定するのはけっこームズイ。
654 ：名無しさん＠お腹いっぱい。 ：01/12/31 03:51: 最近MLはスパムばっかですね。
上のコードが本体にマージされると嬉しい。

で、；を常に半角で出したいのですがどうすればいいのですか？
655 ：名無しさん＠お腹いっぱい。 ：01/12/31 13:01: >>654
ふつーに
(setq skk-rom-kana-rule-list
(append skk-rom-kana-rule-list
'((";" nil ";"))))
すればいい。dynamic-insert は関係無い。
656 ：654 ：01/12/31 13:45: >>655
ありがとう。

> すればいい。dynamic-insert は関係無い。
ええ、それは分かってます。
ちょっと感想を言ってみただけです
657 ：名無しさん＠お腹いっぱい。 ：02/01/04 18:55: なんかアイコンが付いたZo!
658 ：名無しさん＠お腹いっぱい。 ：02/01/04 21:13: 拡張ローマ字入力 "AZIK" を使うための
skk-rom-kana-rule-list を作ってみた。

詳しい知識があるわけではないので
実装しきれてない部分がある・・・。

・";" に "っ" を割り当てても、送り仮名が "っ" で始まる
変換はできない。
・発音拡張や二十母音拡張を用いると、送りありエントリー
の変換で支障の出るものがある

(上記2項目については、「送り仮名の自動処理」を有効にすれば
しのぐことができる・・・が、やはりどうにかなったらいいなぁ・・・)

・"x" にしゃ行を割り当てても、Shiftを押しながらの入力で
漢字変換モードに入らない。
・"q" による "ん" の入力は捨てた (^^;
659 ：名無しさん＠お腹いっぱい。 ：02/01/04 22:27: なんかビミョーにスレ違いかもしれないんですけど，
skkfep って皆さん使えてますか?
Kterm 6.2.0 on Vine Linux 2.1.5 で使おうとしても
入力した文字(アルファベット)と，それに対応する日本語の両方が
表示されてメチャクチャになっちゃいます．

TERM=vt100 skkfep

ってやるとキチンと動くので，kterm の termcap が悪いのかなぁと
いう気がするのですが， termcap はｻﾊﾟｰﾘ分かりません．
どなたか使ってる人，いい使い方教えて下さい m(_ _)m
660 ：名無しさん＠お腹いっぱい。 ：02/01/05 01:08: Canna から SKK か T-Code へ乗り換えようと思ってます。
とりあえず一月程試してて気付いた事をいくつか。

余分(?)にすら感じる機能
# 昔は ML が活発だった??

見出し語を補完しながら▼モードへ

欲しい feature

▽での「,」、「.」に平等な扱いを
# 補完してなければ skk-rom-kana-rule-list による
# 入力になってほしい。
▽モードにおける文字列のハイライト表示
(▽自身にもさらに別な色欲しかったり)
-nw でも modeline にカラーインジケータを!!

Info

skk-undo-kakutei-word-only, skk-downcase-alist
skk-read-from-minibuffer-function が載ってない。

仕様(しゃーない事)

▼モードでは, 『xa』で【ぁ】の入力ができない
(cf. 昔のML Mailinglist-ID: 198)

よー意図の分らん variable
# 設立の経緯をコメントにでも欲しいなぁ...

skk-downcase-alist, skk-read-from-minibuffer-function

skk-search-end-function の面白い利用例を知りたい

SKK はなかなか悪くないね。T-Code はどうかな?
661 ：名無しさん＠お腹いっぱい。 ：02/01/05 01:58: >>658
漏れも詳しくはないが
>・"x" にしゃ行を割り当てても、Shiftを押しながらの入力で
> 漢字変換モードに入らない。

skk-previous-candidate-char が ?x になってるからかな?
これが▼モードじゃないのに悪さしてると思う。

;; 開発者の (Todo|既知の不具合)リスト見てみたい
662 ：名無しさん＠お腹いっぱい。 ：02/01/05 06:44: >>660 Canna から SKK か T-Code へ乗り換えようと思ってます。

私は、Wnn → SKK と乗り換えましたが、
今は、漢字直接入力とSKKのおいしいとこどりをしてます。
基本は漢直を使い、覚えてない漢字は SKK で変換して、
SKK の補完機能も活用させてもらってます。

さらに、交ぜ書き変換すると単語の一発確定率がとても高まって、
快適でっせ。
663 ：名無しさん＠お腹いっぱい。 ：02/01/05 07:54: >>660
skk-downcase-alist は tcode 入力を skk でやろうと
した時に使った.
skk では大文字入力で漢字変換スタートということになっているので,
! の小文字を 1 と見せかけるような時に使う.
664 ：名無しさん＠お腹いっぱい。 ：02/01/05 23:59: >>661
>>・"x" にしゃ行を割り当てても、Shiftを押しながらの入力で
>> 漢字変換モードに入らない。
>
> skk-previous-candidate-char が ?x になってるからかな?

いや、"X" が skk-purge-from-jisyo だからじゃないか?

>;; 開発者の (Todo|既知の不具合)リスト見てみたい

見たいね。cvs import されんかな?
665 ：658 ：02/01/06 00:32: >>658 です。

設定ファイル、
公開するので誰か手を加えてくれないかなぁ・・・。
SKK を使っている人は AZIK みたいなものには
あまり興味がないのだろうか。
自分では SKK＋AZIK でかなり入力効率が上がったと
ほくそ笑んでいるのだが・・・。
666 ：名無しさん＠お腹いっぱい。 ：02/01/06 01:23: >>665
ML に出してくれると、X とか q とかの不具合も
対処法分かっていいと思うな。
もし現状無理でもコード変更で対処してくれるかもしれんし。
667 ：名無しさん＠お腹いっぱい。 ：02/01/06 06:15: 複数辞書をサーバ側で利用したいと思ったけど、
skksearch コンパイル出来ない (;_;)
debian ではパッケージがあるらしいけど...
誰かドキュメント書いてくれんかなぁ？
668 ：名無しさん＠お腹いっぱい。 ：02/01/06 12:47: >>667
附属の README で十分だと思うが…
669 ：名無しさん＠お腹いっぱい。 ：02/01/07 06:30: ところで今の SKK って、
APEL と SKK を $HOME に展開してそこに
load-path を通すだけでも使えるんですか?
権限が無いので make install は無理なのですが…
670 ：名無しさん＠お腹いっぱい。 ：02/01/07 10:38: 使えますよ.
671 ：669 ：02/01/07 13:01: >>670
どうも。
なんか make install しないと (skk|auto)-autoload.el
が無いのでダメかと思ってました。
けど、これがドキュメントにないのは損してますね >SKK
672 ：580 ：02/01/07 22:51: 御無沙汰しております。
えーと、my-skk-dynamic-insert-rule-list ですが、
いまのフォーマットは結構いい感じだと思ってます。
ただ、("ア" . "あ")のようなコンスセルを値に持てないのは
ちょっとだけ残念かも。でも簡単なルールは簡単に書けるように
コード側で対処してくれてるので、いまのままでいいと思います。
で、またもや妄想しちゃったんですけど、制御構造?を導入できたら
嬉しかったりしないかなーなんて。
;; もちろん現行のとは別に関数も rule-list も用意して。
あるモードではこのルールリストを使ってとかしたいとき、
いちいち全てのルールに (eq major-mode 'hoge-mode)
の条件書くのは大変だし。
抵当なフォーマットが思いつかないのですが、以下のような
方法でも充分かな、と。

("a" nil (ローカル変数のリスト)
((("[a-z]" オプションいろいろ) VAL LABEL t-label nil-label その他拡張)
;; ^^^ ここに変えた!!
((S式) VAL LABEL t-labl nil-label その他拡張)))
;; S式が括弧の中に入るのがダサい:-<

VAL が nil のとき、正規表現マッチングや S式の結果をみて
non-nil だったら t-label に示された LABEL をもつルールへ飛ぶ。
nil だったら nil-label の LABEL へ飛ぶ。
LABEL が指定されてなかったら素直に次のルールへ。
こーすればループすらできるし、任意のローカル変数を持てるようにすれば
状態も持てる。というのを誰か書いてくれんかな～。

あと、もし experimental の下にはいるなら Author が必要そうだけど、
2ch の文字が入ったら困るなーと思ってたら
SKK Development Team なんていう都合のいいのがあった! (ほっ
という事でおねがいします。m(__)m
673 ：580 ：02/01/07 22:59: とか書いてたら
Breakpoint set in skk-update-jisyo-original
Go...
edebug-signal:
Args out of range: [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
("option" nil "オプション" nil) ("かe" "え" "変" nil) ("せいきひょうげん" nil "正規表現" nil)
("しき" nil "式" nil) ("かっこ" nil "括弧" nil) ("じゅう" nil "重" nil) ("た" nil "他" nil)
("option" nil "オプション" nil) ("せいきひょうげん" nil "正規表現" nil) ("match" nil "マッチ" nil)
("しき" nil "式" nil) ("matching" nil "マッチング" nil) ("しき" nil "式" nil)
("けっか" nil "結果" nil) ("しめs" "さ" "示" nil) ("rule" nil "ルール" nil)
("とb" "ぶ" "飛" nil) ("とb" "ぶ" "飛" nil) ("loop" nil "ループ" nil)
("local" nil "ローカル" nil) ("へんすう" nil "変数" nil) ("list" nil "リスト" nil)
("にんい" nil "任意" nil) ("local" nil "ローカル" nil) ("へんすう" nil "変数" nil)
("もt" "て" "持" nil) ("じょうたい" nil "状態" nil) ("もt" "て" "持" nil)
("だれ" nil "誰" nil) ("かi" "い" "書" nil) ("-" nil "ー" nil) ("しき" nil "式" nil)
("かっこ" nil "括弧" nil) ("なか" nil "中" nil) ("はいr" "る" "入" nil)], 50

error: "Cannot return from the debugger in an error"

となって書けなくなった :-<
;; 2ちゃん対策で改行いれた。
674 ：名無しさん＠お腹いっぱい。 ：02/01/08 02:19: >>669
APEL-CFG と SKK-CFG を適当に変更すれば
$HOME 以下に make install 出来ると思いますけど。
675 ：名無しさん＠お腹いっぱい。 ：02/01/08 08:02: >>672
SKK Development Team が Author になることはありません。Maintainer になる
ことはあると思うけれど。Author がなのらないのは都合悪いです。正直なとこ
ろ。SKK は当初からContributor ひとりひとりを尊重してるので。メーリングリ
ストで議論していただけないと、ごく一部の人以外には何の話か分かんなくなっ
ちゃうし。(かくいう自分もよく分かっとらぬ)
676 ：アゲー ：02/01/09 22:50: 揚げ
677 ：：02/01/09 22:55: irchat-pj で SKK on のまま発言しようとすると(Enter)
> Symbol's value as variable is void: skk-henkan-on
っていわれるのはどうして？
C-x j して off にすると発言できる
678 ：名無しさん＠お腹いっぱい。 ：02/01/09 22:57: cvs版のirc-pjで直ってるよ。
前に俺がskk-mlで聞いた。
679 ：名無しさん＠Ｅｍａｃｓ ：02/01/10 00:11: SKKの最初の起動はけっこう重いんですが高速化する技を教えてください。
680 ：名無しさん＠お腹いっぱい。 ：02/01/10 00:15: 一度起動されればしばらく起動されることもないから気にすんなよ。
681 ：名無しさん＠お腹いっぱい。 ：02/01/10 02:11: >>679
> SKKの最初の起動はけっこう重いんですが高速化する技を教えてください。

早速、塚本さんが起動をちょびっと早くする方法を投稿してたよ。

--------
Emacs 起動の時間を少し犠牲にして、SKK の初回起動時の時間を短縮する
方法を考えてみました。~/.emacs に

(setq skk-preload t)

と書くか、popup menu → "Customize Daredevil SKK" から

「SKK の初回起動を高速にする」をチェックして Emacs を起動しなおし
てみてください。

XEmacs の場合にはアイコンが表示されるので分かりやすいと思います。

# Windows のタスクトレイみたいになってきた。
682 ：名無しさん＠お腹いっぱい。 ：02/01/10 05:23: >>679
うーん、SKK の起動、全然遅くないけどなぁ。
辞書サーバ使ってます??
L 辞書を Emacs に読むようにしてるといくらか重いだろうけど。
683 ：677 ：02/01/10 05:39: >>678
Thx!
しかしぃ、irchat-pj の make install が

# make EMACSLOADPATH="/usr/share/emacs/site-lisp/pure" install
emacs -batch -q -nw -no-site-file -l ./make.el -f make-pj-install lispdir=
Cannot open load file: bytecomp
make: *** [install] エラー 255

になっちゃいます。どうすれば？
684 ：名無しさん＠Ｅｍａｃｓ ：02/01/10 09:48: >>682
Meadowだからかも。
>>681
試してみます。ありがとう。
685 ：名無しさん＠お腹いっぱい。 ：02/01/10 15:20: SKK のインクリメンタルサーチで "ー" の入る言葉を検索しようとすると
Wrong type argument: integerp, nil
と怒られます。どうしたらいいですか？
686 ：名無しさん＠お腹いっぱい。 ：02/01/10 15:24: >>685
# 俺の環境では再現しないが、
M-x toggle-debug-on-error
して、*Backtrace* を ML に送る。
気力があれば
http://www.jpl.org/elips/BUGS-ja.html
を参考に出来るところまでやってみる。
# バグ報告は ML にね。
687 ：名無しさん＠お腹いっぱい。 ：02/01/10 17:24: ここに書いてもだめ？

Signaling: (wrong-type-argument integerp nil)
signal(wrong-type-argument (integerp nil))
byte-code("�@A\"�" [error signal] 3)
skk-isearch-redo-function()
skk-isearch-wrapper(nil)
* call-interactively(skk-isearch-wrapper)
688 ：名無しさん＠お腹いっぱい。 ：02/01/10 17:30: だめ～。
MLを利用しようよ。
689 ：687 ：02/01/10 17:33: あ、分かった。
これのせいです。コメントにしときます。

;; 数字のあとのハイフンを半角にする
(setq skk-rom-kana-rule-list
(cons '("-" nil skk-insert-hyphen)
skk-rom-kana-rule-list))

(defun skk-insert-hyphen (arg)
(interactive "P")
(insert
(let ((c (char-to-string (char-before (point)))))
(cond ((string-match "[0-9]" c) "-")
((string-match "[０-９]" c) "－")
(t "ー")))))
690 ：名無しさん＠お腹いっぱい。 ：02/01/10 17:34: そいえば、上のdynamic-insertって本体に統合されたの？
.skkに書いてたのは消してもいいの？
691 ：名無しさん＠お腹いっぱい。 ：02/01/10 18:53: >>690
いまから experimental の下に commit します。
692 ：名無しさん＠お腹いっぱい。 ：02/01/10 20:12: >>683
EMACSLOADPATH なんて設定ちゃﾀﾞﾒﾀﾞﾒ
693 ：名無しさん＠お腹いっぱい。 ：02/01/11 00:06: >>682
>>683
もし load-path の設定が必要なら subdirs.el を使え。
694 ：677 ：02/01/11 01:07: >>693
使い方がわからないですー。
もはやスレ違い？
どうすればいいの(涙
695 ：名無しさん＠お腹いっぱい。 ：02/01/11 02:35: p29c96a.ykhmac00.ap.so-net.ne.jp
696 ：677 ：02/01/11 02:42: >>693
pure の上の site-lisp に subdirs.el を置いただけで
make install が成功しました(^^;
ありがとう！
697 ：名無しさん＠お腹いっぱい。 ：02/01/11 13:56: かなモード → C-q → ｶﾅﾓ-ﾄﾞ → C-q → カナモード

っていう風になるんですがこれって前からでしたっけ？
半角カナモードで C-q したらひらがなモードに戻ってた気がするけど。
ﾊﾝｶｸﾓ-ﾄﾞ → ひらがなモードに一発で戻るのはどうすんの？
698 ：名無しさん＠お腹いっぱい。 ：02/01/11 14:01: >>697
ちゃんとかなモードに戻るけど。
あと C-q じゃなくて q でも戻れるみたい
699 ：697 ：02/01/11 14:33: ﾊﾞｰｼﾞｮﾝｱｯﾌﾟの時ｲﾝｽﾄｰﾙがうまくいっていなかったようです。
ｲﾝｽﾄｰﾙし直したらちゃんと動きました。
700 ：名無しさん＠お腹いっぱい。 ：02/01/11 19:06: ring な e-mail address は、何故あれほど
SPAM に狙われるのだろう......
701 ：名無しさん＠お腹いっぱい。 ：02/01/11 19:51: SKKの配布物の中に画像ファイルがあるけどどうやって何に使うの？
702 ：名無しさん＠お腹いっぱい。 ：02/01/11 20:48: experiments/skk-azik.el 入れてみたんだけど，▽ モードで
; (っ) が入らないのはなんか他の設定が邪魔してんのかな．
703 ：名無しさん＠お腹いっぱい。 ：02/01/11 20:53: >>701
XEmacs で使う。
どーいうメリットがあるかは知らない ^^;;
# あえていうなら、SKK のコードが load されてるか判別できるとか
704 ：名無しさん＠お腹いっぱい。 ：02/01/12 14:26: さっそくEmacs21でもアイコンが使えるようになってる。
開発者の好意を感じた。
705 ：名無しさん＠お腹いっぱい。 ：02/01/13 05:38: 最近って、特に SKK への批判とか聞かないような
気がするんだけど、どうなんかな?
SKK9.6 よりも設定とかしやすいし。もっと昔はしらんけど。

それより、luna.el だれか解説プリーズ。
706 ：名無しさん＠お腹いっぱい。 ：02/01/13 06:27: みんな luna.el はソース読んで使い方覚えてるのかね。
707 ：名無しさん＠お腹いっぱい。 ：02/01/13 06:42: というか luna は SKK とは関係ないだろう。
Emacs スレへ (･∀･)ｶｴﾚ!
708 ：名無しさん＠お腹いっぱい。 ：02/01/13 06:45: >>707
いや、どうやら luna 化するらしいんすよ。
予習しとかないとつらいかなーとおもって。
709 ：名無しさん＠お腹いっぱい。 ：02/01/13 07:08: >>708
>予習しとかないとつらいかなーとおもって。
cvs account 取りません? ;)
# さいきん、すぐこれだなぁ。

ところで luna って、中島さんでも昔はよく理解できて
ないって(どっかで)書いてたぐらいだし俺には当分
無理だろうなぁ。obarray とかサッパリだし。
710 ：名無しさん＠お腹いっぱい。 ：02/01/13 07:10: >>708
ほぇ～、そいつは知らなかった。
じゃあ、おわびに簡単な使い方(前に luna をどう使うか試しで作ったやつ)。
base64 + gzip ですよん。
----BEGIN BASE64----(luna-test.el.gz)
H4sICN6zQDwAA2x1bmEtdGVzdC5lbACtVFtz0kAUfoa/0Jd150SS0VjUOlKjlnQQ
SqlUH/vkLGFLU5JNzS449de7l9wJDA9mIMPuHs53Oees56EgIpyjE7iE+ejxg39i
X3btaMOIu6T3IaOuOY+fsx+200W7j81ITBFZUcfpdj1PpbOIxa0f1z8vBMwsbJ1a
nnUO57Du38H85qvf3wMXMkFTRiKXBAHlPEk56uXgJreOuCcBrZE2SThlS739Ea7h
FMawGIzhDtbwAC9hJvfWMtSpI64oo2kYFBIlBU5T4W5JtKFSMGUiFM9KNjYnyOwg
E4ANq5iKh2R5wMcsoEDhtITIMFAptMXj9qcwXvGb+9+/aQpXEh75E7NIh79Gj3ID
yxC7hq/+XDiey1Kbzk6ohNiJLOvdot5u2GuqMpa1mMNE0dtXq90KNa1rFGjHPe2F
zDz98tnOdWelK0W1aa/6jhGurGy2iRc0dUXicpGGbFXJ1GKN45SDMJkOB0rv0YO2
lH5t87Vd9kSn05y0Yyanmu0QJ7X8X01cx+yop9aoR3ShHSQsIALhLBc2fXlcY9qv
FBJ629dlkJo9L7s6uCAsvzmGg+EbrVCm+Y0E5bI9tNiYrKmbpepVuiozb0pGNzAz
fnGugPSU+X9073YrN5HO2WtzS5/gvwnbYPTufdvFlqoClBPzAsvcxch48AlmEjDK
IPeMhkIxBhwo+iFTMvMPeFMrdWFRwR3kbEOjtW7PnkZRgwgs5Pe1dwVJoam0scqi
1c1qAF6F6wSjs4Ehk2xpmoZLmt00FxroVr59iIG3WNLCZI+7FVSJhZD8/AOpTOul
UAcAAA==
----END BASE64----
711 ：名無しさん＠お腹いっぱい。 ：02/01/13 07:40: >>709
obarray って、変数の名前空間でしたっけ？
なるほど。それを分離しちゃってるのかー。
って、広瀬さんの本をチラリズムしただけなんでよくわかってません。

しかし、skk の開発メンバーってそんなに act 率低いでしたっけ..?

>>710
激サンクス。
しかし navi2ch の base64 機能デコード便利だね。
712 ：名無しさん＠お腹いっぱい。 ：02/01/13 08:49: ;; luna もなにも分ってないけど
luna.el って new style の backquote で書かれてるから、このまま
利用するなら一部 Emacsen サポート打ち切りって事になるよね。
;; 書き直せばすむ話だけど。だけど、開発者の負担減らしても
;; いい気もする。
;;; でも akiho さんも 19.28 利用してるんだっけ。
713 ：名無しさん＠お腹いっぱい。 ：02/01/13 09:01: luna と eieio はどのように違ってくるんだろう？
中島さん、eieio にも興味持ってらしたよね。
714 ：名無しさん＠Ｅｍａｃｓ ：02/01/13 09:25: >>711
スレ違いですが
> navi2ch の base64 機能デコード
ってどうやって使うんですか？
715 ：名無しさん＠お腹いっぱい。 ：02/01/13 09:43: >>714
navi2ch 1.4 以降ならスレの上で M-b
716 ：名無しさん＠Ｅｍａｃｓ ：02/01/13 09:50: >>715
ほーなるほど。初めてあの謎の文字列を解読することができた。ありがとう。
717 ：名無しさん＠お腹いっぱい。 ：02/01/13 10:18: >>713
eieio の方がごつい？のかな。
開発環境なんてのまで付いてきてるし。
http://cedet.sourceforge.net/eieio.shtml

個人的には flim に付いてる luna.el で済むならその方がいいや。
718 ：名無しさん＠お腹いっぱい。 ：02/01/14 00:35: SKKのアイコンをもうちょうと有効に使えないかな。
サイズが小さいから文字は入れないで、ただの●でいいから
SKK 灰色●
かな茶色●
カナ緑色●
jisx0201紫色●
全英黄色●

とかね。
719 ：名無しさん＠お腹いっぱい。 ：02/01/14 09:26: M-x とかしてカーソルがミニバッファに移ると
確実にカーソルの色が消えちゃうね。
720 ：名無しさん＠お腹いっぱい。 ：02/01/14 15:56: ほんとだ。
721 ：名無しさん＠お腹いっぱい。 ：02/01/15 03:24: skk + azik なメモ
ttp://cgi.members.interq.or.jp/kansai/nosada/dokugon.cgi?200111

>▽モード時、AZIKの二重母音入力をShiftキーを押下しながら行なった場合、
>2つめの母音を送り仮名にする。
>(k Shift+qだと"か*い"になるようにする)

これいいかも。

skk + hana なメモ
ttp://www.asahi-net.or.jp/~ez3k-msym/charsets/hana/hanasetup.htm
ttp://www.asahi-net.or.jp/~ez3k-msym/charsets/laycomp.htm

うーむ、試す価値あるかも。
722 ：名無しさん＠Ｅｍａｃｓ ：02/01/15 22:50: >>721
おー、zl で → とか初めて知った。
723 ：名無しさん＠お腹いっぱい。 ：02/01/16 21:08: 6000語突破記念age

Wed Jan 16 21:02:49 2002 登録: 0 確定: 15 確定率: 100% 語数: 6066

掲示板に戻る全部前100 次100 最新50

read.cgi ver5.26+ (01/10/21-)