Y.A.S.D.

plink tramp

2009-02-01T00:36:15+09:00

最近ノートでも OpenSolaris なので NTEmacs も使う機会がとんとないんだけど，今日は内輪査読の関係で Acrobat 使わんとあかんかったので Windows で暮らしてた。

で，そういえばりんどーが「plink で tramp 使えねぇ」って言ってたなーと思って，予定通りに出てこない卒論を待ってる間にちょっと見てみた。個人的には Windows でも PuTTY で multi-tty (emacsclient -t) なのでやっぱり tramp 使わないんだけど。

結論からいうと TERM が dumb にならんくてパスワードプロンプト等がうまく処理できてなかったぽい。 PuTTY の設定（接続→データ→端末の詳細→端末のタイプを表す文字列）を変えたら動いた。 PuTTY で保存したセッション名使って

/セッション名:ファイル名

とかでも開けるのは便利かも。

weblogger.el × metaWeblog (タイトルを渡す編)

2008-11-18T21:51:13+09:00

注：とりあえず現時点では weblogger-start-entry<f> 以外ではテストしていません。

Subject: に書いた文字列が title として Roller 側に渡らないのは， weblogger-api-new-entry が weblogger-api-blogger-new-entry<f> になってるからで，ほんとは weblogger-api-meta-new-entry<f> を使ってほしいところ。根本的には weblogger-determine-capabilities<f> が悪いんだけど，とりあえず

(setq weblogger-api-new-entry 'weblogger-api-meta-new-entry)

しておくと，metaWeblog.newPost を使ってくれるようになる。でも今度は Roller 側がエラーを吐く。原因を一言で言うと，そもそも値のないメンバを値 nil の boolean なメンバとして weblogger が request 生成してしまうから。

たとえば draft である *weblogger-entry* バッファには default では Date: フィールドがないんだけど，weblogger.el がこれを parse して (Date . nil) という構造で内部データとして持っていて（ここまでは別によい），最終的に

<member>
  <name>dateCreated</name>
  <value>
    <boolean>0</boolean>
  </value>
</member>

という request を生成しよる。なんでやねん。

同様に，内部データに (mt_tb_ping_urls . nil) と (mt_convert_breaks . nil) という MovableType 用(?) のメンバを勝手に追加しよる。あと，(link . nil) とか (categories . nil) とかも。値が nil ならメンバごと要らんはず。

というわけで，どのタイミングでこいつらを消すかというのは微妙なところだけど，とりあえずこんな感じで動くには動いた。delq してるところを見ると，作者は「消してるつもり」なんだろうと思う。ちょっと泥臭いので，本当はこれより前に消しておいた方がよい気がする。ただ，実際 boolean false を渡すべきメンバもあるかもなので，「assoc の結果が nil なメンバは全部消して良い」ということはなくて，どっちにしても項目ごとに泥臭くチェックするしかないとは思う。

--- weblogger.el.orig
+++ weblogger.el
@@ -598,7 +598,7 @@
   (bury-buffer))
 
 
-(defun weblogger-save-entry (&optional publishp &optional arg)
+(defun weblogger-save-entry (&optional publishp arg)
   "Publish the current entry is publishp is set.  With optional
 argument, prompts for the weblog to use."
   (interactive)
@@ -1088,18 +1088,26 @@
 
 (defun weblogger-struct-to-request (entry)
   "Convert the struct to something that can be used in an xml-rpc request."
-  (delq nil
-       (list
-        (assoc "title"        entry)
-        (assoc "authorName"   entry)
-        (assoc "userid"       entry)
-        (assoc "dateCreated"  entry)
-        (cons "mt_tb_ping_urls"   (cdr (assoc "trackbacks"  entry)))
-        (cons "mt_convert_breaks" (weblogger-texttype-id-from-name
-                                   (cdr (assoc "texttype"    entry))))
-        (cons "link"              (cdr (assoc "url"         entry)))
-        (cons "description"       (cdr (assoc "content"     entry)))
-        (cons "categories"        (cdr (assoc "categories"     entry))))))
+  (let ((dateCreated           (assoc "dateCreated" entry))
+       (mt_tb_ping_urls        (cdr (assoc "trackbacks" entry)))
+       (mt_convert_breaks      (cdr (assoc "texttype"    entry)))
+       (link                   (cdr (assoc "url" entry)))
+       (categories             (assoc "categories" entry)))
+    (delq nil
+         (list
+          (assoc "title"        entry)
+          (assoc "authorName"   entry)
+          (assoc "userid"       entry)
+          (when (cdr dateCreated) dateCreated)
+          (when mt_tb_ping_urls
+            (cons "mt_tb_ping_urls" mt_tb_ping_urls))
+          (when mt_convert_breaks
+            (cons "mt_convert_breaks" mt_convert_breaks))
+          (when link
+            (cons "link" link))
+          (cons "description"       (cdr (assoc "content"     entry)))
+          (when (< 0 (length (cdr categories))) categories)
+        ))))
 
 (defun weblogger-server-userid ()
   "Get information on user."

dateCreated をちゃんと Roller 側に渡したい場合は，こんなこともしておくと良いかも。

(defadvice weblogger-save-entry (before TT:insert-date-field)
  "Insert Date: field."
  (goto-line 0)
  (insert (format-time-string "Date: %Y%m%dT%TZ\n" (current-time))))

安易に advice で済ませたくないけど，残念ながら welogger-new-entry-hook に add-hook するのでは遅い...。

weblogger.el × Roller

2008-11-16T18:08:31+09:00

weblogger という Emacs package があるらしいので使ってみたところ，動かなかった。

軽く追っかけてみたところ，Roller は <methodResponse> に xmlns:ex="http://ws.apache.org/xmlrpc/namespaces/extensions" という attribute をつけて返すみたいなんだけど，xml-rpc.el の xml-rpc-clean<f> が attribute をうまく処理できてないようだ。

こんな感じでとりあえず post できるとこまでこぎ着けたけど，まだ問題が...

HTMLタグが書けないぽい。書くと post 時にエラーになる。仕様っぽい? でも致命的。
Subject: に何か書いても，本文の冒頭がエントリタイトルとして使われちゃう。

--- xml-rpc.el.orig     2008-11-16 17:24:23.303673000 +0900
+++ xml-rpc.el  2008-11-16 17:54:01.583264000 +0900
@@ -515,7 +515,7 @@

 (defun xml-rpc-clean (l)
   (cond
-   ((listp l)
+   ((and (listp l) (listp (cdr l)))
     (let ((remain l)
          elem
          (result nil))
@@ -573,7 +573,7 @@
                                (buffer-substring errstart (point-max)))))

                        ;; Maybe they just gave us an the XML w/o PI?
-                       ((search-forward "<methodResponse>" nil t)
+                       ((search-forward "<methodResponse" nil t)
                         (xml-rpc-clean (xml-parse-region (match-beginning 0)
                                                          (point-max))))

multi-tty

2004-06-17T11:28:43+09:00

今更ながら使いはじめてみる。Emacs の cvs head を build したのは，かなり久しぶり。multi-tty 便利すぎ。これからはPuTTYひとつで，学校で起動しっぱなしの Emacs に access できる。Terminal で C-x 5- できるのは変な気分。

実体参照

2003-09-05T18:46:17+09:00

(require 'un-define)
(require 'utf)
(defun TT:html-entitize (&optional b e)
  (interactive)
  (unless (and b e)
    (setq b (region-beginning)
	  e (region-end)))
  (let ((str "") (cl))
    (setq cl (cddr (string-to-list 
		    (mucs-convert-string (buffer-substring b e)
					 'utf-16-be-unix-stream-encoder
					 t))))
    (while cl
      (setq str (concat str (format "&#%d;"
				    (+ (* 256 (car cl)) (cadr cl))))
	    cl (cddr cl)))
    (goto-char b)
    (delete-region b e)
    (insert str)))

(　･∀･)つ〃∩ ﾍｪｰ
↓
&#40;&#12288;&#65381;&#8704;&#65381;&#41;&#12388;&#12291;&#8745;&#32;&#65421;&#65386;&#65392;

츠무라토모아키
↓
&#52768;&#47924;&#46972;&#53664;&#47784;&#50500;&#53412;

なんかゴテゴテしてるかも...。実体参照にしなくていい文字まで問答無用で変換してる。 spamよけとかにも使えるし(謎)。もっと楽な方法はないか。

URI

2003-07-04T11:44:30+09:00

なぜタイガースは勝つのか (Mainich INTERACTIVE)
Emacs XML (meadowy.org)

そういうわけで

2002-10-16T20:51:23+09:00

残念ながら Active!Mail との兼ね合いで EMH はお役御免になりました。 Active!Mail が「IMAP対応」と言いながら #mh/ フォルダを読めないためです。環境としては，UI にちょっとした EMH emulation を施した Wanderlust に移行です。

EMH とか (ND)

2002-04-09T01:05:11+09:00

とりあえず環境を合わせに行く。ついでに interface いじったりして。もう「絶対 command 覚えるべし」な環境はダメだよなと。後で nY田さんも同じことを言ってはって，ちょっと安心する。あと EMH/Emacs21 の toolbar を，Wanderlust と Mew からパクってきた pixmap 使ってでっちあげてみた。

結局 Peterson 先生も忙しくてどうしようもないらしく，夏休みにはなんとかしましょうと言われる。ありがたいことです。

URI

2002-03-14T23:38:39+09:00

WhizzyTeX ... An Emacs minor mode for incremental viewing of LaTeX documents.

...

2002-02-28T23:33:37+09:00

「ロックといってもめちゃめちゃうるさいわけではなく」...意味不明。

「まだ su超初心者なので，.emacs や .cshrc をいじっただけ」...意味不明。なんで「.emacs や .cshrc をいじ」るのに root の権限が要るのだ? というか，そんな人に root passwd 教えちゃったんだ〜。コワ〜。「他にもこんなこと」なんて，ありすぎて mail では伝えきれんので，遠慮しとく。

...

2002-01-08T22:53:40+09:00

Elpoint: Yet another presentation tool on Emacsen

E呑み

2001-11-20T00:03:21+09:00

参加者：g新部先生，守岡さん，岡田くん，林さん，土屋さん， himiさん，高橋さん †，津邑，以上8名(奥から順(謎))。各敬称は，規則性がないですが，あんまり気にしないでください。お願い。

えー，とりあえず年内に Wanderlust 2.8.0 が出るそうです。ってか高橋さんが出すそうです(笑)。
himi さんによると，岡田くんと私は同じく某爆弾を食らった盟友(?)であるらしい。
g新部先生，高橋さん(TNT)，岡田くんの名刺ゲットだぜ。とか。
himi さんより私のが年上なんだー，ショックー(何が?)。とか。
土屋さんの右手に光る指輪が気になるなー。とか。
ソニー坊や。とか。

んー，やっぱ楽しいな。是非また呼んでください。日記は暴力的メディアだそうなので，どんどん使っていこう(お)。

minibuffer

2001-11-12T16:48:24+09:00

私のやり方ですが， background-color/foreground-color な属性を持った frame-alist を適当に定義して，それ使って make-frame してるだけです。 default-frame-alist には (minibuffer . nil) を追加しとく。なにぶん3年ほど前の設定なので，もっと上手い方法あるかも。

(setq minibuffer-frame-alist
      '((minibuffer	 . only)
        (vertical-scroll-bars . nil)
           : ほか適当にお好みで (auto-raise . t) とか。
        (foreground-color . "#ffffff")
        (background-color . "#605599")))
(make-frame minibuffer-frame-alist)

XEmacs w/ detached-minibuf なら default-minibuffer-frame に property を設定すればよいかと。

(set-frame-properties default-minibuffer-frame
        '([default foreground] "#ffffff"
          [default background] "#605599"))

minibuffer frame

2001-11-09T18:36:27+09:00

そういえば，minibuffer frame の背景色を本体(?) の背景とは別に設定してあるんだけど，Emacs21 では C-x C-r などを実行したとき(再現性なし)にそいつが本体の色に同期してしまう(笑)。謎。

EUC

2001-10-26T18:53:21+09:00

むー，ありがとうございます。ぜんぜん気付かんかった。原因は Emacs21 の customize がいつのまにか勝手に書きこんだ

'(current-language-environment "Japanese")

が効いて，自分で設定してる set-default-coding-systems() が無効化されてたからみたい...。穴だらけの設定を何とかしないと。

wl-interactive-send

2001-09-20T21:33:16+09:00

ごもっとも。私はもともとこの手の変数はいらないと思ってたクチで，「なんで C-c C-c してから最後の確認せなアカンねん。C-c C-c するまえに最後の確認せーや。」っていう意見だったんだけど，最近は変わってきてる。

っていうのも，wl-draft-config-alist による影響は，C-c C-c した後に確認するから。実際「あ，その To: でその From: はちょっと待って!」っていうのがよくある。要は wl-draft-config-alist を設定するにあたっての私の考えが浅いだけという話はありますが...。

XEmacs 21.5.2

2001-07-31T14:45:58+09:00

lwlib/lwlib-Xm.c の xm_update_one_widget の最後のところって， #ifdef LWLIB_WIDGETS_MOTIF ... #endif で囲まんとあかんような...。

WLUG

2001-02-22T15:18:30+09:00

結局，私は OS (←すごく曖昧であることは自覚) と application は directory 構造上で完全に分けて整理したいのだということに気付く。 /usr/local は使いたくないし (/usr は OS の持ちものなので?)， /etc には application の設定を書きたくないし，/etc/alternative なんてもってのほか(意味不明)。

ただ，application であっても host 固有となる設定 (sshd とかの) は，やっぱり /etc がいいと思うわけで，ええ加減ではある。結局は「application (を置く directory) は NFS 共有」というのが根底にあるんだろう。そういう意味で何でもかんでも /usr/local という FreeBSD は，男前だとは思うが，私の指向とはちょっと違う。

|

2001-02-02T14:32:01+09:00

emacs-version^J
"19.34.1"
(car '(|))^J
|
'|^J
|
(pp-to-string '(|))^J
Unbalanced parentheses
(pp-to-string '|)^J
Unbalanced parentheses

む。

WLUG

2000-10-22T13:47:46+09:00

そんなわけで 6時起き。よしだ先生† と共に，わざわざ中西さんに和歌山駅から車に乗せていっていただく。やっぱりよしだ先生と出かけると，どこ行っても打ち合わせになってしまうのは面白い。講演は，時間は短かったながらも水間さんのが個人的には一番興味深かったかな。最後に個人的にお話させていただいた LILO 上野さんの講習案も参考になった。

打ち上げでは文学部の宮崎さんと隣席。サーバマシンの OS を何にするか相談を受けて，いくつかの要件を考えた結果 Linux をお勧めしとく。デーヴァナーガリな Quail/LaTeX 環境を見せていただけたのが面白かった。

水間さんをはじめ(笑)，楽しい方が多かったですね。帰りも中西さんに駅まで送っていただく。何から何までお世話になりっぱなし。最後に竹居先生に従妹の進路指導をよろしくお願いして(笑)帰洛。

WLUG

2000-10-14T14:41:53+09:00

中西さんって，ほんっといい人ですね。早くお会いしたいわ。

IIIMECF

2000-10-12T14:42:06+09:00

なるほどと思って(?)，面白そうなので私も azusa† でやってみる。確かに ATOK12 が Emacs で使えてます。使わんけどな。 ND に install すれば需要があるかな。

WL

2000-10-02T23:43:14+09:00

というわけで, いろいろあったので高橋さんのご指摘への反応が遅れる。まだ直しきれてません, すいません。

紀北企画

2000-09-18T20:40:00+09:00

よしだ先生講演が正式決定。よかったよかった。多分お供します。

WL mirror

2000-09-03T17:39:56+09:00

daidai† での mirror は中止いたしました。違うとこで mirror は続けるかもしれませんが，どうせなら(謎) opaopa.org を使うのがいいでしょう。京大に2つもいらんでしょうし。寺西さんに DM しとく。

wl-address-get-petname

2000-08-28T11:19:46+09:00

岡田くん† の言う「どこぞ」ってのは私んとこかな。うーむ，上野さんが謝らはることではないのでは... (^^;。たしかに nil を返すほうが真っ当な気がする。個人的には戻さなくてよいに一票かな。

原稿

2000-07-29T04:02:51+09:00

の仕事，また入るかも。今度は Wanderlust† じゃなく (じゃあ何だ?)。

WL

2000-07-19T21:18:24+09:00

「教祖さまっ」のテンプ君ネタで「uuencode (UNIX向け)」と書いてあって，「今日び UNIX でも，あんま使わねっす」と思ったのを思いだした。テンプ三兄弟だったかな? Base64, uuencode, BinHex。

LD_RUN_PATH / SYSV

2000-07-17T00:26:44+09:00

ただ，gcc なんかだと例の specs ファイルの中に default の -R が記述されてしまっているので，多分それに負けちゃうんですよね。だから指定しても効かなかったりする。

XEmacs の configure は，LD_RUN_PATH の値を -R として Makefiles に埋めこんでくれるので，その辺は賢い，というか強引。どっちかというと gcc が何も考えてないということになるのかな。

NEWS-6 とか HP-UX とか IRIX とかの人は悩まされていないのか，っていうのが気になるところではあります。それとももう皆，Linux user になっちゃった? ;-p とりあえず需要はありそうなので，一回どっかにまとめたほうがいいかも。

(WL 05130)

2000-07-04T22:06:29+09:00

全然関係ないけど，私の居る部屋は「富田一研」。