mieki256's diary

_ふかふか - changelogmemo - xyyzy で ChangeLogメモをとる
_chalow - ChangeLog ファイルを HTML ファイルに変換して Web日記にするツール
_横着プログラミング 第1回: Unixのメモ技術
_ChangeLog メモを試してみよう
_私の ChangeLog メモ活用法

C-x 4 a でメモを追加できる。保存は C-x C-s、終了は C-c q。

が、ActivePerl には HTML::Template が入ってなかった。

_PAR: Perl のスクリプトを Windows 用の実行ファイル (exe形式) に変換する : いやな日記

まずは chalow 用に Jcode と HTML::Template をインストールしておく。

> ppm install jcode
> ppm install html-template

PAR: Perl のスクリプトを Windows 用の実行ファイル (exe形式) に変換する : いやな日記 より

入れてみたり。DOS窓からは動いた。＞ chalow。

が、xyzzy からは呼び出せない。~/.xyzzy に、

(setq *changelogmemo-chalow-command* "perl C:\\hoge\\bin\\chalow\\chalow -o C:\\hoge\\xyzzy\\chalow_output C:\\hoge\\xyzzy\\changelogmemo")

と書いてみたり、

(setq *changelogmemo-chalow-command* "perl C:/hoge/bin/chalow/chalow -o C:/hoge/xyzzy/chalow_output C:/hoge/xyzzy/changelogmemo")

と書いてみたりしたけど、何も出力されてる気配がない。

DOS窓から

perl C:\hoge\bin\chalow\chalow -o C:\hoge\xyzzy\chalow_output C:\hoge\xyzzy\changelogmemo

と打ってみたら、

 Can't locate ChangeLogReader.pm in @INC (@INC contains: D:/usr/local/Perl/lib D:/usr/local/Perl/site/lib .) at C:\hoge\bin\chalow\chalow line 15.
 BEGIN failed--compilation aborted at C:\hoge\bin\chalow\chalow line 15.

と出てきた。カレントディレクトリ外で実行しようとしてるから、ChangeLogReader.pm が読めないのか…。

面倒なのでbatファイルを作成。

C:
cd \hoge\xyzzy\chalow
perl chalow -o output ..\changelogmemo

~/.xyzzy 中で、

(setq *changelogmemo-chalow-command* "C:/hoge/bin/chalow.bat")

とか。

出力された html は文字化け。changelogmemo を sjis で書いたせいだろうか。おそらく chalow は、euc-jp 決め打ちで処理してるのだろうな。試しに changelogmemo を euc-jp で保存してから chalow を動かしてみた。…文字化けせずに出力された。

うーむ。既に hns を使って日記を書いてる人間が、あえて changelog を html出力して日記代わりにする必要もないなと思い至ったり。

WinChalow は、Active Perl 5.8 系で chalow を動かすことを目的としています。

chalow / WinChalow より

というものがあるらしい。

_CalMemo 00readme

calendar にメモ書き機能を追加します。

・ 1 日 1 ファイルでメモを保存します。
・ 自分用の休日等を設定し，カレンダーに色付けできます。
・ カレンダー上で，その日のメモをポップアップ表示します。
・ メモの一覧表示ができます。
・ 記述したメモファイルを Grep で検索したり，一覧表示からブロック単位で絞込検索したりできます。
・ 他のメモやファイルにリンクできます。
・ いくらかの ToDo 管理ができます。

00readme.txt より

強力そう。ChangeLog 形式で書いておくことで、chalow を使って html出力もできるとか。素晴らしい。

これで hnf を開けないだろうか…。

_Emacs-Wiki

ちと気になる。

これもメモ用らしい。どういう機能なんだろう。

_I am waiting for the Day - remember.el
_ZaurusSL-C3000/初期設定/emacsその4 - いろいろなLISPその2 remember-el

どうもこれはEmacs上（Mewやw3mを含む）で記入したり、読んだりしたものを、その場で設定ファイル「~/.notes」に次々とコピーして貼り付けておくもののようだ。

ZaurusSL-C3000/初期設定/emacsその４ - いろいろなLISPその２ より

なるほど。

xyzzy 用、remember.l を、netinstaller 経由でインストールしてみた。

M-x rememer でウインドウが開いて何か書ける。C-c C-c で閉じる。と、~/.notes に対して、書いた内容を「追加」してくれる。

ChangeLog と違って、時間まで記録してくれているのがありがたい。のだけど、曜日や月が、「Mon」「Nov」といった感じで入ってしまう。…自分、「月」の単語すらわからんぐらいに英語がダメダメな人間なわけで。厳しかー。

remember-date-format を定義しなおせば、「2005/11/21 (月) 12:11:15」といった記入も出来るらしい。結局、~/.xyzzy には、下のような内容を記述。

(autoload 'remember "remember" t)
(autoload 'remember-region "remember" t)

(global-set-key '(#\C-c #\m #\m) 'remember)
(global-set-key '(#\C-c #\m #\r) 'remember-region)

(setq remember-date-format "%Y/%m/%d (%v) %H:%M:%S")

emacs では C-c m に割り振ってる場面が多いらしいのだけど。ウチの xyzzy では migemo を入れてるので、C-c m t 、C-c m o 、C-c m c が既に割り当てられているのだった。ということで、C-c m m と、C-c m r に割り当て。

_QuickTour/ext/template-insert - Xyzzy Wiki

ファイルを新崎作成した際に、テンプレートファイルの内容を挿入してくれる。htmlファイルを xyzzy から作成し始める際に、面倒だったわけで。これで多少は快適になってくれると嬉しいのだけど。

#!/usr/bin/perl
# xyzzy - remember ( ~/.notes ) を分類して出力するPerlスクリプト
# usage : perl notessplit.pl KEYWORD

use strict;
use File::Basename;

my $notes_path = "F:/hoge/.notes";
my $keywd = "";

if ( $#ARGV < 0 ) {
    usage();
}

$keywd = shift(@ARGV);

my @list = ();
open(IN,$notes_path) || die "Can't open $notes_path";
while(<IN>) {
    chomp;
    push( @list, $_ );
}
close(IN);

my $fg = 0;
foreach my $ln (@list) {
    if ( $fg == 0 ) {
        $fg = 1 if ( $ln =~ /^\*\*/ && $ln =~ /$keywd/i );
    } else {
        $fg = 0 if ( $ln =~ /^\*\*/ && !($ln =~ /$keywd/) );
    }
    print $ln,"\n" if $fg;
}

exit;

sub usage {
    print "\n";
    print basename($0),"\n";
    print "\tThe item including the key word is selected from ~/.notes \n";
    print "\tusage : perl notessplit.pl KEYWORD\n";
    exit;
}

これで作業メモがとれそうな。

出力結果を changelogmemo に貼り付けてみたり。…うーん。C-8 を押して整形したら、えらいことになった。


changelog に貼り付けられるように、もうちょっと修正。

my $fg = 0;
foreach my $ln (@list) {
    if ( $fg == 0 ) {
        $fg = 1 if ( $ln =~ /^\*\*/ && $ln =~ /$keywd/i );
    } else {
        $fg = 0 if ( $ln =~ /^\*\*/ && !($ln =~ /$keywd/) );
    }
    if ( $fg ) {
        next if $ln =~ /^$/;
        next if $ln =~ /^$keywd:$/;
        
        if ( $ln =~ /^\*\*/ ) {
            $ln =~ /\*\* (\d+\/\d+\/\d+ .*\d{1,2}:\d{1,2}:\d{1,2}) \((.+?:)(.*)\)/;
            my $tm = $1;
            my $ct = $2;
            my $title = $3;
            if ( $title ) {
                print "\n\t* $2 $1 ($3)\n";
            } else {
                print "\n\t* $2 $1\n";
            }
        } else {
            print "\t",$ln,"\n";
        }
    }
}

~/.notes にメモを取るときに、

カテゴリ:
- サブ項目内容

とする必要があるけど、

* xyzzy: 2005/11/21 (月) 11:57:41
- remember.l 導入

* xyzzy: 2005/11/21 (月) 11:58:40
- remember.l テスト

こういう感じの結果が得られる、かな。

ActionScript 2.0 の学習、ActionScript 2.0 リファレンスガイド について、PDFでダウンロードできるらしい。知らなかった…。

権威者の指示に従う人間の心理状況を実験したものである。 実験者の名にちなみミルグラム効果または ミルグラム実験と呼ばれることもある。

この実験はナチス・ドイツのユダヤ人虐殺の責任者であるアドルフ・アイヒマンの裁判の翌年（1961年）に、「アイヒマンとその他虐殺に加わった人達は、単に上の指示に従っただけなのかどうか?」と言う質問に答えるためにミルグラムによって始められた。

アイヒマン実験 - Wikipedia より

権威が存在し、それに服従する状況では、「仕方なかった」の閾値が低くなるということかもしれん。で、日本人はいかんせん「水戸黄門」とか延々と流せるような民族なので、権威に対する服従心が一際強いのかも、みたいな？ ＜素人考えな予感も。

_自虐・自己処罰 - [セ]日清フィストファック戦争 大セックル帝国皇帝御坐所
_ARTIFACT@ハテナ系 - 心のリストカット

ああー！ と思ってしまったり。

_(via はてなブックマーク - Atahualpa: 【日記】町田のラリーは「非モテ」を拒絶する)

非モテ繋がりでメモ。

そのへんいい具合に処理をしてくれてるということなのであらうか。

考えてみたら、Windows、Mac、UNIX で、改行コードすら違うわけで。結構色々なところでいい具合に処理してくれてるのかもしれんなぁ。＞ FLASH の ActionScript。

まあ、後で問題が出たら、このへん疑おう。