            if len(result) and not self.in_list_item and not self.in_def_list \
                    and not self.in_table:
                self.open_paragraph()
                result = result + "<br />"               ※この行を追加
            self.out.write(result + os.linesep)
            self.close_table_row()

diffとると

--- formatter.py        2006-12-15 15:28:48.000000000 +0900
***************
*** 836,841 ****
--- 836,842 ----
              if len(result) and not self.in_list_item and not self.in_def_list \
                      and not self.in_table:
                  self.open_paragraph()
+                 result = result + "<br />"
              self.out.write(result + os.linesep)
              self.close_table_row()

こんな感じ

2006-12-14

ファイルリストからファイルサイズの合計を出力するスクリプト

Perl

パスが通っているところにfilesize.plで保存して実行権限つけたとして
こんな感じで使える

$ find -type f | filesize.pl -h
2.27K

#!/usr/bin/perl

use strict;
use Getopt::Std;

# commandline options
my %opts;
getopt('kmgt', \%opts);


# Read filelist and count file size
my $size = 0;
while(<>){
    chomp;
    $size += (-s $_);
}

# Format
if (exists($opts{'h'})){
    if ($size > 1024 * 1024 * 1024 * 1024){
        $opts{'t'} = 1;
    }
    elsif ($size > 1024 * 1024 * 1024){
        $opts{'g'} = 1;
    }
    elsif ($size > 1024 * 1024){
        $opts{'m'} = 1;
    }
    elsif ($size > 1024){
        $opts{'k'} = 1;
    }
}

if (exists($opts{'k'})){
    $size = sprintf("%.2fK", $size / 1024);
}
elsif (exists($opts{'m'})){
    $size = sprintf("%.2fM", $size / 1024 / 1024);
}
elsif (exists($opts{'g'})){
    $size = sprintf("%.2fG", $size / 1024 / 1024 / 1024);
}
elsif (exists($opts{'t'})){
    $size = sprintf("%.2fT", $size / 1024 / 1024 / 1024 / 1024);
}


# Output
print "$size\n";

2006-09-28

Emacs22のインストール (fedora Core 4)

Linux

vc-svn使いたさにEmacs22が欲しくなったので久々にEmacsをmake
VineSeedのSRPMを元に作成

必要なもの

VineSeed emacs22-22.0.50-0.20060403vl2.src.rpm
http://www.ring.gr.jp/pub/linux/Vine/VineSeed/SRPMS.plus/emacs22-22.0.50-0.20060403vl2.src.rpm より

emacs-22.0.50.20060403.tar.bz2
emcws-22.0.50-200604020110.gz
emacs-22.0.50-locallisppath.patch
emacs-21.2-emcws-version.patch
emacs-22.0.50-fixed-resolution.patch
emacs-21.1-bzip2.patch.bz2

# yum -y install Canna-devel
# yum -y install gtk2-devel
# tar xfj emacs-22.0.50.20060403.tar.bz2
# gunzip emcws-22.0.50-200604020110.gz
# bunzip2 emacs-21.1-bzip2.patch.bz2
# cd emacs-22.0.50.20060403
# patch -p1 < ../emcws-22.0.50-200604020110
# patch -p1 < ../emacs-22.0.50-locallisppath.patch
# patch -p1 < ../emacs-21.2-emcws-version.patch
# patch -p1 < ../emacs-22.0.50-fixed-resolution.patch
# patch -p1 < ../emacs-21.1-bzip2.patch
# autoconf
# ./configure --prefix=/usr/local --with-gcc --with-pop --with-sound --with-canna --disable-rename --with-gtk --with-xpm --with-jpeg --with-tiff --with-gif --with-png
# make bootstrap
# make
# make install