> altstyleプラグイン

sawadaさんに教えてもらったソース を見て、tDiaryの中身を追っかけながらRuby入門書と首っ引きで作成。あっちゃこっちゃからソースを貰って来てなんとか動くものが出来た。結果はこの文書のヘッダを参照。

def css_tag
	@themes = []
	
	Dir::glob( "#{PATH}/theme/*" ).sort.each do |dir|
		theme = dir.sub( %r[.*/theme/], '')
		#next unless FileTest::file?( "#{dir}/#{theme}.css" )
		next unless theme != "base.css"
		name = theme.split( /_/ ).collect{|s| s.capitalize}.join( ' ' )
		@themes << [theme,name]
	end
	
	r = %Q[<meta http-equiv="Content-Style-Type" content="text/css">¥n]
	@themes.each do |theme|
		alt = ""
		if theme[0] != @conf.theme then
			alt << "alternate¥s"
		end
		r << %Q[¥t<link rel="#{alt}stylesheet" type="text/css" media="all" href="#{theme_url}/#{theme[0]}/#{theme[0]}.css" title="#{theme[1]}">¥n]
	end
	r
end

変な事を目一杯している気もするけど自分にはわからないので、わかる人は直して下さい（出来れば直す場所教えて下さい）。