Y.A.S.D.
http://blog.roguelife.org/yasd/feed/entries/atom
2022-11-23T17:50:23+09:00
Apache Roller (incubating)
http://blog.roguelife.org/yasd/entry/plink_tramp
plink tramp
つむら
2009-02-01T00:36:15+09:00
2009-02-01T00:56:42+09:00
<p>最近ノートでも OpenSolaris なので NTEmacs も使う機会がとんとないんだけど,
今日は内輪査読の関係で Acrobat 使わんとあかんかったので Windows で暮らしてた。</p>
<p>で,そういえば りんどー が「plink で tramp 使えねぇ」って言ってたなーと思って,
予定通りに出てこない卒論を待ってる間にちょっと見てみた。
個人的には Windows でも PuTTY で multi-tty (emacsclient -t) なので やっぱり tramp 使わないんだけど。</p>
<p>結論からいうと TERM が dumb にならんくてパスワードプロンプト等がうまく処理できてなかったぽい。
PuTTY の設定(接続→データ→端末の詳細→端末のタイプを表す文字列)を変えたら動いた。
PuTTY で保存したセッション名使って</p>
<pre class="command">
/セッション名:ファイル名
</pre>
<p>とかでも開けるのは便利かも。</p>
http://blog.roguelife.org/yasd/entry/weblogger_el_roller_%E3%81%9D%E3%81%AE2
weblogger.el × metaWeblog (タイトルを渡す編)
つむら
2008-11-18T21:51:13+09:00
2008-11-18T21:51:15+09:00
<p style="font-weight: bold;">注:とりあえず現時点では weblogger-start-entry<f> 以外ではテストしていません。</p>
<p>Subject: に書いた文字列が title として Roller 側に渡らないのは,
weblogger-api-new-entry が weblogger-api-blogger-new-entry<f> になってるからで,
ほんとは weblogger-api-meta-new-entry<f> を使ってほしいところ。
根本的には weblogger-determine-capabilities<f> が悪いんだけど,とりあえず</p>
<pre class="elisp">(setq weblogger-api-new-entry 'weblogger-api-meta-new-entry)</pre>
<p>しておくと,metaWeblog.newPost を使ってくれるようになる。
でも今度は Roller 側がエラーを吐く。原因を一言で言うと,
そもそも値のないメンバを値 nil の boolean なメンバとして
weblogger が request 生成してしまうから。</p>
<p>たとえば draft である *weblogger-entry* バッファには default では
Date: フィールドがないんだけど,weblogger.el がこれを parse して
(Date . nil) という構造で内部データとして持っていて(ここまでは別によい),最終的に</p>
<pre class="code">
<member>
<name>dateCreated</name>
<value>
<strong><boolean>0</boolean></strong>
</value>
</member>
</pre>
<p>という request を生成しよる。なんでやねん。</p>
<p>同様に,内部データに (mt_tb_ping_urls . nil) と (mt_convert_breaks . nil) という
MovableType 用(?) のメンバを勝手に追加しよる。
あと,(link . nil) とか (categories . nil) とかも。値が nil ならメンバごと要らんはず。</p>
<p>というわけで,どのタイミングでこいつらを消すかというのは微妙なところだけど,
とりあえずこんな感じで動くには動いた。delq してるところを見ると,
作者は「消してるつもり」なんだろうと思う。
ちょっと泥臭いので,本当はこれより前に消しておいた方がよい気がする。
ただ,実際 boolean false を渡すべきメンバもあるかもなので,「assoc の結果が nil なメンバは
全部消して良い」ということはなくて,どっちにしても項目ごとに泥臭くチェックするしかないとは思う。</p>
<pre class="elisp">
--- 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."
</pre>
<p>dateCreated をちゃんと Roller 側に渡したい場合は,こんなこともしておくと良いかも。</p>
<pre class="elisp">
(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))))
</pre>
<p>安易に advice で済ませたくないけど,
残念ながら welogger-new-entry-hook に add-hook するのでは遅い...。</p>
http://blog.roguelife.org/yasd/entry/weblogger_%E3%81%A8%E3%81%84%E3%81%86_e_methodresponse
weblogger.el × Roller
つむら
2008-11-16T18:08:31+09:00
2008-11-16T22:48:31+09:00
<p><a href="http://www.emacswiki.org/emacs/WebloggerMode">weblogger</a>
という Emacs package があるらしいので使ってみたところ,動かなかった。</p>
<p>軽く追っかけてみたところ,Roller は <methodResponse> に
xmlns:ex="http://ws.apache.org/xmlrpc/namespaces/extensions" という
attribute をつけて返すみたいなんだけど,xml-rpc.el の xml-rpc-clean<f> が
attribute をうまく処理できてないようだ。</p>
<p>こんな感じでとりあえず post できるとこまでこぎ着けたけど,まだ問題が...</p>
<ul>
<li>HTMLタグが書けないぽい。書くと post 時にエラーになる。仕様っぽい? でも致命的。</li>
<li>Subject: に何か書いても,本文の冒頭がエントリタイトルとして使われちゃう。</li>
</ul>
<pre class="elisp">
--- 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))))
</pre>
http://blog.roguelife.org/yasd/entry/20040617_e
multi-tty
つむら
2004-06-17T11:28:43+09:00
2004-06-17T11:28:43+09:00
<p>今更ながら使いはじめてみる。Emacs の cvs head を build したのは,
かなり久しぶり。<a href="http://lorentey.web.elte.hu/project/emacs.html">multi-tty</a> 便利すぎ。これからはPuTTYひとつで,学校で起動しっぱなしの Emacs に
access できる。Terminal で C-x 5- できるのは変な気分。</p>
http://blog.roguelife.org/yasd/entry/20030905_h
実体参照
つむら
2003-09-05T18:46:17+09:00
2008-11-11T19:30:55+09:00
<pre class="elisp">
(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)))
</pre>
<pre class="sample">
( ・∀・)つ〃∩ ヘェー
↓
&#40;&#12288;&#65381;&#8704;&#65381;&#41;&#12388;&#12291;&#8745;&#32;&#65421;&#65386;&#65392;
츠무라토모아키
↓
&#52768;&#47924;&#46972;&#53664;&#47784;&#50500;&#53412;
</pre>
<p>なんかゴテゴテしてるかも...。
実体参照にしなくていい文字まで問答無用で変換してる。
spamよけとかにも使えるし(謎)。もっと楽な方法はないか。</p>
http://blog.roguelife.org/yasd/entry/20030704_uri
URI
つむら
2003-07-04T11:44:30+09:00
2003-07-11T11:44:30+09:00
<ul>
<li><a href="http://www.mainichi.co.jp/eye/muguruma/2003/0702.html">なぜタイガースは勝つのか</a> (Mainich INTERACTIVE)</li>
<li><a href="http://www.meadowy.org/xml/">Emacs XML</a> (meadowy.org)</li>
</ul>
http://blog.roguelife.org/yasd/entry/20021016_nd
そういうわけで
つむら
2002-10-16T20:51:23+09:00
2002-10-17T20:51:23+09:00
<p>残念ながら Active!Mail との兼ね合いで EMH はお役御免になりました。
Active!Mail が「IMAP対応」と言いながら #mh/ フォルダを読めないためです。
環境としては,UI にちょっとした EMH emulation を施した Wanderlust に移行です。</p>
http://blog.roguelife.org/yasd/entry/20020409_nd
EMH とか (ND)
つむら
2002-04-09T01:05:11+09:00
2002-04-10T01:05:11+09:00
<p>とりあえず環境を合わせに行く。ついでに interface いじったりして。
もう「絶対 command 覚えるべし」な環境はダメだよなと。
後で nY田 さんも同じことを言ってはって,ちょっと安心する。
あと EMH/Emacs21 の toolbar を,Wanderlust と Mew からパクってきた
pixmap 使って でっちあげてみた。</p>
<p>結局 Peterson 先生も忙しくてどうしようもないらしく,
夏休みにはなんとかしましょうと言われる。ありがたいことです。</p>
http://blog.roguelife.org/yasd/entry/20020314_uri
URI
つむら
2002-03-14T23:38:39+09:00
2002-03-14T23:38:39+09:00
<ul>
<li><a href="http://pauillac.inria.fr/whizzytex/">WhizzyTeX</a> ...
An Emacs minor mode for incremental viewing of LaTeX documents.</li>
</ul>
http://blog.roguelife.org/yasd/entry/20020228_amsk
...
つむら
2002-02-28T23:33:37+09:00
2002-02-28T23:33:37+09:00
<p>「ロックといってもめちゃめちゃうるさいわけではなく」...意味不明。</p>
<p>「まだ su超初心者なので,.emacs や .cshrc をいじっただけ」...意味不明。
なんで「.emacs や .cshrc をいじ」るのに root の権限が要るのだ? というか,
そんな人に root passwd 教えちゃったんだ〜。コワ〜。「他にもこんなこと」なんて,
ありすぎて mail では伝えきれんので,遠慮しとく。</p>
http://blog.roguelife.org/yasd/entry/20020108_el
...
つむら
2002-01-08T22:53:40+09:00
2002-01-08T22:53:40+09:00
<ul>
<li><a href="http://www.gohome.org/elpoint/"><!--
-->Elpoint: Yet another presentation tool on Emacsen</a></li>
</ul>
http://blog.roguelife.org/yasd/entry/20011120_E
E呑み
つむら
2001-11-20T00:03:21+09:00
2001-11-22T00:03:21+09:00
<p>参加者:g新部先生,
<a href="http://www.kanji.zinbun.kyoto-u.ac.jp/~tomo/">守岡さん</a>,
<a href="http://www.opaopa.org/okada/">岡田くん</a>,
<a href="http://www.sodan.org/~penny/">林さん</a>,
<a href="http://www.namazu.org/~tsuchiya/">土屋さん</a>,
himiさん,
<a href="http://triaez.kaisei.org/~kaoru/">高橋さん</a> <a href="ddic.html#kaoru">†</a>,
津邑,以上8名(奥から順(謎))。各敬称は,規則性がないですが,
あんまり気にしないでください。お願い。</p>
<ul>
<li>えー,とりあえず年内に Wanderlust 2.8.0 が出るそうです。ってか
高橋さんが出すそうです(笑)。</li>
<li>himi さんによると,岡田くんと私は同じく某爆弾を食らった
盟友(?)であるらしい。</li>
<li>g新部先生,高橋さん(TNT),岡田くん の名刺ゲットだぜ。とか。</li>
<li>himi さんより私のが年上なんだー,ショックー(何が?)。とか。</li>
<li>土屋さんの右手に光る指輪が気になるなー。とか。</li>
<li><a href="http://www.komakinet.com/kichi/sony.html">ソニー坊や</a>。とか。</li>
</ul>
<p>んー,やっぱ楽しいな。是非また呼んでください。日記は暴力的メディアだ
そうなので,どんどん使っていこう(お)。</p>
http://blog.roguelife.org/yasd/entry/20011112_m
minibuffer
つむら
2001-11-12T16:48:24+09:00
2008-11-11T19:47:10+09:00
<p>私の<a href="http://uranus.ailab.is.tsukuba.ac.jp/~machi/diary/?date=20011110#p01">やり方</a>ですが,
background-color/foreground-color な属性を持った frame-alist を
適当に定義して,それ使って make-frame してるだけです。
<var>default-frame-alist</var> には <code>(minibuffer . nil)</code>
を追加しとく。なにぶん3年ほど前の設定なので,もっと上手い方法あるかも。</p>
<pre class="elisp">
(setq minibuffer-frame-alist
'((minibuffer . only)
(vertical-scroll-bars . nil)
: ほか適当にお好みで (auto-raise . t) とか。
(foreground-color . "#ffffff")
(background-color . "#605599")))
(make-frame minibuffer-frame-alist)
</pre>
<p>XEmacs w/ detached-minibuf なら <var>default-minibuffer-frame</var>
に property を設定すればよいかと。</p>
<pre class="elisp">
(set-frame-properties default-minibuffer-frame
'([default foreground] "#ffffff"
[default background] "#605599"))
</pre>
http://blog.roguelife.org/yasd/entry/20011109_e
minibuffer frame
つむら
2001-11-09T18:36:27+09:00
2001-11-09T18:36:27+09:00
<p><a href="http://www.nijino.com/ari/diary/?20011108&to=200111081S2#200111081S2">そういえば</a>,minibuffer frame の背景色を本体(?) の背景とは
別に設定してあるんだけど,Emacs21 では <kbd>C-x C-r</kbd>
などを実行したとき(再現性なし)に そいつが本体の色に同期してしまう(笑)。謎。</p>
http://blog.roguelife.org/yasd/entry/20011026_euc
EUC
つむら
2001-10-26T18:53:21+09:00
2008-11-11T19:48:14+09:00
<p>むー,<a href="http://www.bb.wakwak.com/~shindoh/cgi-bin/nikki/index.cgi?200110c&to=200110262#200110262">ありがとうございます</a>。ぜんぜん気付かんかった。
原因は Emacs21 の customize がいつのまにか勝手に書きこんだ</p>
<pre class="config">
'(current-language-environment "Japanese")
</pre>
<p>が効いて,自分で設定してる set-default-coding-systems() が
無効化されてたからみたい...。穴だらけの設定を何とかしないと。</p>
http://blog.roguelife.org/yasd/entry/20010920_wl
wl-interactive-send
つむら
2001-09-20T21:33:16+09:00
2001-09-20T21:33:16+09:00
<p>ごもっとも。私はもともとこの手の変数はいらないと思ってたクチで,
「なんで <kbd>C-c C-c</kbd>
してから最後の確認せなアカンねん。<kbd>C-c C-c</kbd> するまえに
最後の確認せーや。」っていう意見だったんだけど,最近は変わってきてる。</p>
<p>っていうのも,<var>wl-draft-config-alist</var>
による影響は,<kbd>C-c C-c</kbd> した後に確認するから。実際「あ,その To:
でその From: はちょっと待って!」っていうのがよくある。要は
<var>wl-draft-config-alist</var> を設定するにあたっての
私の考えが浅いだけという話はありますが...。</p>
http://blog.roguelife.org/yasd/entry/20010731_xe
XEmacs 21.5.2
つむら
2001-07-31T14:45:58+09:00
2001-07-31T14:45:58+09:00
<p>lwlib/lwlib-Xm.c の <code>xm_update_one_widget</code> の最後のところって,
<code>#ifdef LWLIB_WIDGETS_MOTIF ... #endif</code> で囲まんと
あかんような...。</p>
http://blog.roguelife.org/yasd/entry/20010222_wlug
WLUG
つむら
2001-02-22T15:18:30+09:00
2001-02-23T15:18:30+09:00
<p>結局,私は OS (←すごく曖昧であることは自覚) と application は
directory 構造上で完全に分けて整理したいのだということに気付く。
/usr/local は使いたくないし (/usr は OS の持ちものなので?),
/etc には application の設定を書きたくないし,/etc/alternative なんて
もってのほか(意味不明)。</p>
<p>ただ,application であっても host 固有となる設定 (sshd とかの)
は,やっぱり /etc がいいと思うわけで,ええ加減ではある。
結局は「application (を置く directory) は NFS 共有」というのが
根底にあるんだろう。
そういう意味で何でもかんでも /usr/local という FreeBSD は,
男前だとは思うが,私の指向とはちょっと違う。</p>
http://blog.roguelife.org/yasd/entry/20010202_e
|
つむら
2001-02-02T14:32:01+09:00
2008-11-12T00:31:22+09:00
<pre class="elisp">
emacs-version^J
"19.34.1"
(car '(|))^J
|
'|^J
|
(pp-to-string '(|))^J
<div class="warning">Unbalanced parentheses</div>
(pp-to-string '|)^J
<div class="warning">Unbalanced parentheses</div></pre>
<p>む。</p>
http://blog.roguelife.org/yasd/entry/20001022_wlug
WLUG
つむら
2000-10-22T13:47:46+09:00
2000-10-23T13:47:46+09:00
<p>そんなわけで 6時起き。よしだ先生<a href="ddic.html#tyoshida">†</a>
と共に,わざわざ中西さんに和歌山駅から車に乗せていっていただく。やっぱり
よしだ先生と出かけると,どこ行っても打ち合わせになってしまうのは面白い。
講演は,
時間は短かったながらも水間さんのが個人的には一番興味深かったかな。最後に
個人的にお話させていただいた LILO 上野さんの講習案も参考になった。</p>
<p>打ち上げでは文学部の宮崎さんと隣席。サーバマシンの OS を何にするか相談を
受けて,いくつかの要件を考えた結果 Linux をお勧めしとく。デーヴァナーガリな
Quail/LaTeX 環境を見せていただけたのが面白かった。</p>
<p>水間さんをはじめ(笑),楽しい方が多かったですね。
帰りも中西さんに駅まで送っていただく。何から何までお世話になりっぱなし。
最後に竹居先生に従妹の進路指導をよろしくお願いして(笑)帰洛。</p>
http://blog.roguelife.org/yasd/entry/20001014_wlug
WLUG
つむら
2000-10-14T14:41:53+09:00
2000-10-15T14:41:53+09:00
<p>中西さんって,ほんっと いい人ですね。早くお会いしたいわ。</p>
http://blog.roguelife.org/yasd/entry/20001012_iiimecf
IIIMECF
つむら
2000-10-12T14:42:06+09:00
2000-10-13T14:42:06+09:00
<p>なるほど と思って(?),面白そうなので私も
azusa<a href="ddic.html#AZUSA">†</a> で
やってみる。確かに ATOK12 が Emacs で使えてます。使わんけどな。
ND に install すれば需要があるかな。</p>
http://blog.roguelife.org/yasd/entry/20001002_wl
WL
つむら
2000-10-02T23:43:14+09:00
2000-10-02T23:43:14+09:00
<p>というわけで, いろいろあったので高橋さんのご指摘への
反応が遅れる。まだ直しきれてません, すいません。</p>
http://blog.roguelife.org/yasd/entry/20000918_wlug
紀北企画
つむら
2000-09-18T20:40:00+09:00
2000-09-18T20:40:00+09:00
<p>よしだ先生講演が正式決定。よかったよかった。多分お供します。</p>
http://blog.roguelife.org/yasd/entry/20000903_wl
WL mirror
つむら
2000-09-03T17:39:56+09:00
2000-09-03T17:39:56+09:00
<p>daidai<a href="ddic.html#daidai">†</a>
での mirror は中止いたしました。
<a href="ftp://RogueLife.org/pub/tsumura/wl/">違うとこ</a> で mirror は
続けるかもしれませんが,どうせなら(謎) <a
href="ftp://opaopa.org/pub/mirror/elisp/wl/">opaopa.org</a>
を使うのがいいでしょう。京大に2つもいらんでしょうし。
寺西さんに DM しとく。</p>
http://blog.roguelife.org/yasd/entry/20000828_wl
wl-address-get-petname
つむら
2000-08-28T11:19:46+09:00
2000-08-29T11:19:46+09:00
<p>岡田くん<a href="ddic.html#kokada">†</a> の言う「どこぞ」ってのは
私んとこかな。
うーむ,上野さんが謝らはることではないのでは... <kbd>(^^;</kbd>。たしかに
<samp>nil</samp> を返すほうが真っ当な気がする。
個人的には戻さなくてよいに一票かな。</p>
http://blog.roguelife.org/yasd/entry/20000729_w
原稿
つむら
2000-07-29T04:02:51+09:00
2000-07-30T04:02:51+09:00
<p>の仕事,また入るかも。今度は Wanderlust<a href="ddic.html#wanderlust">†</a>
じゃなく (じゃあ何だ<a
href="http://www.hakuhodo.co.jp/kohkoku/kohkoku.html">?</a>)。</p>
http://blog.roguelife.org/yasd/entry/20000719_wl
WL
つむら
2000-07-19T21:18:24+09:00
2000-07-19T21:18:24+09:00
<p>「教祖さまっ」の テンプ君 ネタで「uuencode (UNIX向け)」と書いてあって,
「今日び UNIX でも,あんま使わねっす」と思ったのを思いだした。
テンプ三兄弟 だったかな? Base64, uuencode, BinHex。</p>
http://blog.roguelife.org/yasd/entry/20000717_ld
LD_RUN_PATH / SYSV
つむら
2000-07-17T00:26:44+09:00
2000-07-18T00:26:44+09:00
<p>ただ,gcc なんかだと例の specs ファイルの中に default の -R が
記述されてしまっているので,多分それに負けちゃうんですよね。
だから指定しても効かなかったりする。</p>
<p>XEmacs の configure は,<var>LD_RUN_PATH</var> の値を -R として Makefiles
に埋めこんでくれるので,その辺は賢い,というか強引。どっちかというと
gcc が何も考えてないということになるのかな。</p>
<p>NEWS-6 とか HP-UX とか IRIX とかの人は悩まされていないのか,
っていうのが気になるところではあります。それとも
もう皆,Linux user になっちゃった? <kbd>;-p</kbd>
とりあえず需要はありそうなので,一回どっかにまとめたほうがいいかも。</p>
http://blog.roguelife.org/yasd/entry/20000704_wl
(WL 05130)
つむら
2000-07-04T22:06:29+09:00
2000-07-04T22:06:29+09:00
<p>全然関係ないけど,私の居る部屋は「富田一研」。</p>