tdiary-contrib 3.2.2.20130518

data/plugin/search-yahoo.rb

@@ -0,0 +1,109 @@
+# -*- coding: utf-8 -*-
+#
+# search-yahoo.rb - site search plugin sample using Yahoo! Search BOSS API.
+#
+# Copyright (C) 2009, TADA Tadashi <t@tdtds.jp>
+# You can redistribute it and/or modify it under GPL.
+#
+# Needed these options below:
+#
+# @options['search-yahoo.appid'] : Your BOSS APPID
+# @options['search-yahoo.result_filter'] : your dialy's URL format of DAY mode into Regexp.
+#
+
+require 'timeout'
+require 'rexml/document'
+require 'net/http'
+Net::HTTP.version_1_2
+
+def search_title
+	'全文検索 by Yahoo! Search BOSS'
+end
+
+def search_input_form( q )
+	r = <<-HTML
+		<form method="GET" action="#{@conf.index}"><div>
+			検索キーワード:
+			<input name="q" value="#{h q}">
+			<input type="submit" value="OK">
+		</div></form>
+	HTML
+end
+
+def search_boss_api( q, start = 0 )
+	url = 'http://boss.yahooapis.com/ysearch/web/v1/'
+	appid = @conf['search-yahoo.appid']
+
+	url << "#{q}?appid=#{appid}&format=xml&count=20&start=#{start}"
+
+	proxy = @conf['proxy']
+	proxy = 'http://' + proxy if proxy
+	
+	proxy_host, proxy_port = nil
+	if proxy
+		proxy_host = proxy_uri.host
+		proxy_port = proxy_uri.port
+	end
+	proxy_class = Net::HTTP::Proxy(proxy_host, proxy_port)
+
+	query = URI.parse(url)
+	req = Net::HTTP::Get.new(query.request_uri)
+	http = proxy_class.new(query.host, query.port)
+	http.open_timeout = 20
+	http.read_timeout = 20
+	res = http.start do
+		http.request(req)
+	end
+	res.body
+end
+
+def search_to_html( str )
+	(str || '').gsub( /(?:<wbr(?:[ \t\r\n][^>]*)?>)+/, '' ).gsub( %r{<(/?)b[ \t\n\r]*>}, '<\\1strong>' )
+end
+
+def search_result
+	query = CGI::unescape( @cgi.params['q'][0] )
+	start = CGI::unescape( @cgi.params['start'][0] || '0' ).to_i
+
+	begin
+		uri = URI::parse( @conf.base_url )
+		q = "#{query} site:#{uri.host}"
+		q << %Q| inurl:"#{uri.path}"| unless uri.path == '/'
+		xml = search_boss_api( u( q.untaint ), start )
+		doc = REXML::Document::new( REXML::Source.new( xml ) ).root
+		res = doc.elements.to_a( '/ysearchresponse' )[0]
+		unless res.attribute( 'responsecode' ).value == '200' then
+			return '<p class="message">ERROR</p>'
+		end
+	rescue OpenURI::HTTPError
+		return %Q|<p class="message">#$!</p>|
+	end
+
+	r = search_input_form( query )
+	r << '<dl class="search-result autopagerize_page_element">'
+	doc.elements.to_a( '*/result' ).each do |elem|
+		url = elem.elements.to_a( 'url' )[0].text
+		next unless url =~ @conf['search-yahoo.result_filter']
+		title = elem.elements.to_a( 'title' )[0].text
+		abstract = elem.elements.to_a( 'abstract' )[0].text
+		r << %Q|<dt><a href="#{h url}">#{search_to_html title}</a></dt>|
+		r << %Q|<dd>#{search_to_html abstract}</dd>|
+	end
+	r << '</dl>'
+
+	r << '<div class="search-navi">'
+	doc.elements.to_a( '/ysearchresponse/prevpage' ).each do |p|
+		if /start=\d+/ =~ p.text then
+			r << %Q|<a href="#{@conf.index}?q=#{u query}&amp;#$&" rel="prev">&lt;前の20件</a>&nbsp;|
+		end
+	end
+
+	doc.elements.to_a( '/ysearchresponse/nextpage' ).each do |n|
+		if /start=\d+/ =~ n.text then
+			r << %Q|<a href="#{@conf.index}?q=#{u query}&amp;#$&" rel="next">次の20件&gt;</a>|
+		end
+	end
+	r << '</div>'
+
+	r
+end

data/plugin/section_footer.rb

@@ -0,0 +1,195 @@
+# -*- coding: utf-8 -*-
+# section_footer.rb
+#
+# Copyright (c) 2005 SHIBATA Hiroshi <h-sbt@nifty.com>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+require 'digest/md5'
+require 'open-uri'
+require 'timeout'
+
+def permalink( date, index, escape = true )
+	ymd = date.strftime( "%Y%m%d" )
+	uri = @conf.index.dup
+	uri.sub!( %r|\A(?!https?://)|i, @conf.base_url )
+	uri.gsub!( %r|/\.(?=/)|, "" ) # /././ -> /
+	link = uri + anchor( "#{ymd}p%02d" % index )
+	link.sub!( "#", "%23" ) if escape
+	link
+end
+
+add_header_proc do
+	<<-SCRIPT
+	<link rel="stylesheet" href="theme/hatena_bookmark.css" type="text/css" media="all">
+	<script type="text/javascript" src="http://b.hatena.ne.jp/js/BookmarkCommentViewerAllInOne.1.2.js" charset="utf-8"></script>
+	<script type="text/javascript">
+	initCreateRelAfterIcon();
+	BookmarkCommentViewer.options['dateFormat'] = '%y-%m-%d';
+	// BookmarkCommentViewer.options['blankCommentHide'] = true;
+	BookmarkCommentViewer.options['tags'] = false;
+	</script>
+	SCRIPT
+end
+
+add_section_enter_proc do |date, index|
+	@category_to_tag_list = {}
+end
+
+alias subtitle_link_original subtitle_link
+def subtitle_link( date, index, subtitle )
+	s = ''
+	if subtitle then
+		s = subtitle.sub( /^(\[([^\[]+?)\])+/ ) do
+			$&.scan( /\[(.*?)\]/ ) do |tag|
+				@category_to_tag_list[tag] = false # false when diary
+			end
+			''
+		end
+	end
+	subtitle_link_original( date, index, s.strip )
+end
+
+add_section_leave_proc do |date, index|
+	r = '<div class="tags">'
+
+	unless @conf.mobile_agent? then
+		# カテゴリタグの追加
+		if @category_to_tag_list and not @category_to_tag_list.empty? then
+			r << "Tags: "
+			@category_to_tag_list.each do |tag, blog|
+				if blog
+					r << %Q|<a href="#{@index}?blogcategory=#{h tag}">#{tag}</a> |
+				else
+					r << category_anchor( "#{tag}" ).sub( /^\[/, '' ).sub( /\]$/, '' ) << ' '
+				end
+			end
+		end
+
+		# 「このエントリの Delicious history (JSON)」
+		r << add_delicious_json(date, index)
+
+		# 「このエントリを含む Delicious (画像API)」
+		# r << add_delicious(date, index)
+
+		# 「このエントリを含むはてなブックーク」
+		r << add_hatenabm(date, index)
+
+		# 「このエントリを含む livedoor クリップ」
+		r << add_ldclip(date, index)
+
+		# 「このエントリを含む Buzzurl」
+		r << add_buzzurl(date, index)
+
+		# 「このエントリを含む Yahoo!ブックマーク」
+		r << add_yahoobm(date, index)
+
+		# Permalinkの追加
+		r << add_permalink(date, index)
+	end
+
+	r << "</div>\n"
+end
+
+def add_permalink(date, index)
+	r = " | "
+	r << %Q|<a href="#{permalink(date, index, false)}">Permalink</a> |
+	return r
+end
+
+def add_hatenabm(date, index)
+	r = " | "
+	r << %Q|<a href="http://b.hatena.ne.jp/entry/#{permalink(date, index)}"><img src="http://d.hatena.ne.jp/images/b_entry.gif" style="border: 0 none;vertical-align: middle;" title="#{@section_footer_hatenabm_label}" alt="#{@section_footer_hatenabm_label}" width="16" height="12"> <img src="http://b.hatena.ne.jp/entry/image/normal/#{permalink(date, index)}" style="border: 0 none;vertical-align: middle;"></a> <img src="http://r.hatena.ne.jp/images/popup.gif" style="border: 0 none;vertical-align: middle;" onclick="iconImageClickHandler(this, '#{permalink(date, index, false)}', event);" alt="">|
+	return r
+end
+
+def add_ldclip(date, index)
+	r = " | "
+	r << %Q|<a href="http://clip.livedoor.com/page/#{permalink(date, index)}"><img src="http://parts.blog.livedoor.jp/img/cmn/clip_16_16_w.gif" width="16" height="16" style="border: 0 none;vertical-align: middle;" alt="#{@section_footer_ldclip_label}" title="#{@section_footer_ldclip_label}"> <img src="http://image.clip.livedoor.com/counter/#{permalink(date, index)}" style="border: 0 none;vertical-align: middle;"></a>|
+	return r
+end
+
+def add_buzzurl(date, index)
+	r = " | "
+	r << %Q|<a href="http://buzzurl.jp/entry/#{permalink(date, index)}"><img src="http://buzzurl.jp/static/image/api/icon/add_icon_mini_10.gif" style="border: 0 none;vertical-align: middle;" title="#{@section_footer_buzzurl_label}" alt="#{@section_footer_buzzurl_label}" width="16" height="12" class="icon"> <img src="http://buzzurl.jp/api/counter/#{permalink(date, index)}" style="border: 0 none;vertical-align: middle;"></a>|
+	return r
+end
+
+def add_delicious(date, index)
+	url_md5 = Digest::MD5.hexdigest(permalink(date, index, false))
+
+	r = " | "
+	r << %Q|<a href="http://delicious.com/url/#{url_md5}"><img src="http://static.delicious.com/img/delicious.small.gif" width="10" height="10" style="border: 0 none;vertical-align: middle;" alt="#{@section_footer_delicious_label}" title="#{@section_footer_delicious_label}"> <img src="http://del.icio.us/feeds/img/savedcount/#{url_md5}?aggregate" style="border: 0 none;margin: 0;"></a>|
+	return r
+end
+
+def add_delicious_json(date, index)
+	require 'fileutils'
+	begin
+		require 'json'
+	rescue
+		retry if require 'rubygems'
+	end
+
+	url_md5 = Digest::MD5.hexdigest(permalink(date, index, false))
+	cache_dir = "#{@cache_path}/delicious/#{date.strftime( "%Y%m" )}/"
+	file_name = "#{cache_dir}/#{url_md5}.json"
+	cache_time = 8 * 60 * 60  # 8 hour
+	update = false
+	count = 0
+
+	r = " | "
+	r << %Q|<a href="http://delicious.com/url/#{url_md5}"><img src="http://static.delicious.com/img/delicious.small.gif" width="10" height="10" style="border: 0 none;vertical-align: middle;" alt="#{@section_footer_delicious_label}" title="#{@section_footer_delicious_label}">|
+
+	begin
+		FileUtils.mkdir_p( cache_dir ) unless File::directory?( cache_dir )
+		cached_time = nil
+		cached_time = File::mtime( file_name ) if File::exist?( file_name )
+
+		unless cached_time.nil?
+			if Time.now > cached_time + cache_time
+				update = true
+			end
+		end
+
+		if cached_time.nil? or update
+			begin
+				timeout(10) do
+					open( "http://feeds.delicious.com/v2/json/urlinfo/#{url_md5}") do |file|
+						File::open( file_name, 'wb' ) do |f|
+							f.write( file.read )
+						end
+					end
+				end
+			rescue => e
+				@logger.debug( e )
+			end
+		end
+	rescue
+	end
+
+	begin
+		File::open( file_name ) do |f|
+				data = JSON.parse(@conf.to_native( f.read, 'utf-8' ))
+			unless data[0].nil?
+				count = data[0]["total_posts"].to_i
+			end
+		end
+	rescue
+	end
+
+	if count > 0
+		r << %Q| #{count} users</a>|
+	else
+		r << %Q|</a>|
+	end
+
+	return r
+end
+
+def add_yahoobm(date, index)
+	r = " | "
+	r << %Q|<a href="http://bookmarks.yahoo.co.jp/url?url=#{permalink(date, index)}&amp;opener=bm&amp;ei=UTF-8"><img src="http://i.yimg.jp/images/sicons/ybm16.gif" style="border: 0 none;vertical-align: middle;" title="#{@section_footer_yahoobm_label}" alt="#{@section_footer_yahoobm_label}" width="16" height="16" class="icon"></a>|
+	return r
+end
+

data/plugin/section_footer2.rb

@@ -0,0 +1,278 @@
+# section_footer2.rb
+#
+# Copyright (c) 2008 SHIBATA Hiroshi <shibata.hiroshi@gmail.com>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+require 'digest/md5'
+require 'timeout'
+require 'open-uri'
+require 'yaml'
+require 'pathname'
+
+begin
+	require 'json'
+rescue LoadError
+	retry if require 'rubygems'
+end
+
+
+def permalink( date, index, escape = true )
+	ymd = date.strftime( "%Y%m%d" )
+	uri = @conf.index.dup
+	uri.sub!( %r|\A(?!https?://)|i, @conf.base_url )
+	uri.gsub!( %r|/\.(?=/)|, "" ) # /././ -> /
+	link = uri + anchor( "#{ymd}p%02d" % index )
+	link.sub!( "#", "%23" ) if escape
+	link
+end
+
+unless defined?(subtitle)
+	def subtitle( date, index, escape = true )
+		diary = @diaries[date.strftime( "%Y%m%d" )]
+		return "" unless diary
+		sn = 1
+		diary.each_section do |section|
+			if sn == index
+				old_apply_plugin = @options["apply_plugin"]
+				@options["apply_plugin"] = true
+				title = apply_plugin( section.subtitle_to_html, true )
+				@options["apply_plugin"] = old_apply_plugin
+				title.gsub!( /(?=")/, "\\" ) if escape
+				return title
+			end
+			sn += 1
+		end
+		''
+	end
+end
+
+def init_buttons_status
+	@installed_buttons = ['yaml', 'delicious', 'hatena', 'facebook', 'twitter', 'plusone']
+	if @conf['section_footer2.isDisplay'].nil?
+	 	@conf['section_footer2.isDisplay'] = ''
+	end
+end
+
+add_header_proc do
+  <<-"EOS"
+  <script type="text/javascript" src="http://b.st-hatena.com/js/bookmark_button_wo_al.js" charset="utf-8" async="async"></script>
+  <style type="text/css">iframe.hatena-bookmark-button-frame {margin-bottom: -7px; }</style>
+  <script src="http://platform.twitter.com/widgets.js" type="text/javascript"></script>
+  <style type="text/css">iframe.twitter-share-button.twitter-count-horizontal {margin-bottom: -6px; }</style>
+  <script src="http://connect.facebook.net/#{@section_footer2_locale}/all.js"></script>
+  <script>
+  FB.init({
+    appId  : '',
+    status : true, // check login status
+    cookie : true, // enable cookies to allow the server to access the session
+    xfbml  : true  // parse XFBML
+  });
+  </script>
+  <style type="text/css">iframe.fb_ltr {margin-bottom: -2px; margin-right: 4px;}</style>
+  <script type="text/javascript" src="http://apis.google.com/js/plusone.js">
+  {lang: '#{@section_footer2_locale}'}
+  </script>
+  <style type="text/css">.tags > div > iframe {margin-bottom: -6px !important; }</style>
+  EOS
+end
+
+add_section_enter_proc do |date, index|
+	@category_to_tag_list = {}
+	init_buttons_status
+	''
+end
+
+alias section_footer2_subtitle_link_original subtitle_link unless defined?( section_footer2_subtitle_link_original )
+def subtitle_link( date, index, subtitle )
+	s = ''
+	@subtitle = subtitle
+	if subtitle then
+		s = subtitle.sub( /^(?:\[[^\[]+?\])+/ ) do
+			$&.scan( /\[(.*?)\]/ ) do |tag|
+				@category_to_tag_list[tag.shift] = false # false when diary
+			end
+			''
+		end
+	end
+	section_footer2_subtitle_link_original( date, index, s.strip )
+end
+
+add_section_leave_proc do |date, index|
+	unless @conf.mobile_agent? or @conf.iphone? or feed? or bot?
+		r = '<div class="tags">'
+		# add category_tag
+		if @category_to_tag_list and not @category_to_tag_list.empty? then
+			r << "Tags: "
+			@category_to_tag_list.each do |tag, blog|
+				r << category_anchor( "#{tag}" ).sub( /^\[/, '' ).sub( /\]$/, '' ) << ' '
+			end
+			r << ' | '
+		end
+
+		# add button
+		r << add_button_by_service(date, index)
+
+		# add Permalink
+		r << %Q|<a href="#{permalink(date, index, false)}">Permalink</a> |
+
+		r << "</div>\n"
+	end
+end
+
+def call_delicious_json( url_md5 )
+	json = nil
+	begin
+		timeout(10) do
+			open( "http://feeds.delicious.com/v2/json/urlinfo/#{url_md5}" ) do |f|
+				json = JSON.parse( f.read )
+			end
+		end
+	rescue => e
+		@logger.debug( e )
+	end
+	return json
+end
+
+def add_delicious( date, index )
+	url_md5 = Digest::MD5.hexdigest(permalink(date, index, false))
+	db_file = "#{@cache_path}/delicious.cache"
+
+	r = ''
+	r << %Q|<a href="http://delicious.com/url/#{url_md5}"><img src="http://static.delicious.com/img/delicious.small.gif" style="border: none;vertical-align: middle;" alt="#{@section_footer2_delicious_label}" title="#{@section_footer2_delicious_label}">|
+
+	begin
+		cache_time = 8 * 60 * 60  # 12 hour
+
+		PStore.new(db_file).transaction do |db|
+			entry = db[url_md5]
+			entry = { :count => 0, :update=> Time.at(0) } if entry.nil?
+
+			if Time.now > entry[:update] + cache_time
+				json = call_delicious_json( url_md5 )
+				entry[:count] = json[0]["total_posts"].to_i unless json[0].nil?
+				entry[:update] = Time.now
+				db[url_md5] = entry
+			end
+
+			if entry[:count] > 0
+				r << %Q| #{entry[:count]} user|
+				r << 's' if entry[:count] > 1
+			end
+		end
+	rescue => e
+		@logger.debug( e )
+	end
+
+	r << '</a>'
+	r << ' | '
+
+	return r
+end
+
+def add_hatena( date, index )
+       %Q!<a href="http://b.hatena.ne.jp/entry/#{permalink( date, index )}" class="hatena-bookmark-button" data-hatena-bookmark-layout="standard"><img src="http://b.st-hatena.com/images/entry-button/button-only.gif" width="20" height="20" style="border: none;" /></a> | !
+end
+
+def add_facebook(date, index)
+# add Facebook Like!
+	r = ''
+	r << %Q!<fb:like href="#{permalink(date, index, false)}" layout="button_count"></fb:like> | !
+end
+
+def add_twitter(date, index)
+	r = <<-"EOS"
+	<a href="http://twitter.com/share" class="twitter-share-button"
+		data-url="#{permalink(date, index, false).gsub(/#.*$/, '')}"
+		data-text="#{CGI.escapeHTML(subtitle(date, index))}"
+		data-via="#{@conf['twitter.user']}"
+	>tweet</a> | 
+	EOS
+end
+
+def add_plusone(date, index)
+	%Q!<g:plusone size="medium" href="#{permalink(date, index, false)}"></g:plusone> | !
+end
+
+def add_yaml(date, index)
+	r = ''
+	yaml_dir = "#{@cache_path}/yaml/"
+	Dir.glob( yaml_dir + "*.yaml" ) do |file|
+		r << parse_sbm_yaml(file, date, index)
+	end
+	return r
+end
+
+def add_button_by_service(date, index)
+
+	r = ''
+
+	@installed_buttons.each do |button|
+		if @conf['section_footer2.isDisplay'].include?(button) then
+			method = "add_" + button + "(date, index)"
+			unless method.nil? then
+ 				r << instance_eval(method)
+ 			end
+ 		end
+	end
+	return r
+end
+
+def parse_sbm_yaml(file, date, index)
+	config = YAML.load( Pathname.new( file ).expand_path.read )
+	r = ""
+
+	unless config.nil?
+
+		url = config["url"]
+		unless config['usesubtitle'].nil?
+			sub = (@subtitle || '').sub( /\A(?:\[[^\]]*\])+ */, '' )
+			sub = apply_plugin( sub, true ).strip
+			regexp = config["usesubtitle"]
+			url.gsub!(regexp, sub)
+			char_space = ' '
+		end
+
+		title = config["title"][@conf.lang]
+		r << %Q|<a href="#{url}#{char_space}#{permalink(date, index)}">|
+		r << %Q|<img src="#{config["src"]}" style="border: none;vertical-align: middle;" |
+		r << %Q|title="#{title}" |
+		r << %Q|alt="#{title}">|
+		r << %Q| <img src="#{config["counter"]}#{permalink(date, index)}" style="border: none;vertical-align: middle;">| unless config["counter"].nil?
+		r << '</a>'
+		r << ' | '
+	end
+
+	return r
+end
+
+add_conf_proc('section_footer2', 'Section Footer Button') do
+
+	if @mode == 'saveconf' then
+		@conf['section_footer2.isDisplay'] = ''
+		@cgi.params['section_footer2.isDisplay'].each do |item|
+			@conf['section_footer2.isDisplay'] << item + '\n'
+		end
+	end
+
+	r = '<h3>表示するボタンをチェックしてください(YAMLをチェックすると各自でインストールしたYAMLのボタンをすべて表示します)</h3>'
+	r << '<p>'
+	init_buttons_status
+	@installed_buttons.each do |button|
+		if @conf['section_footer2.isDisplay'].include?(button) then
+			item_checked = "checked"
+		else
+			item_checked = ''
+		end
+		r << %Q|<input name="section_footer2.isDisplay" value="#{button}" #{item_checked} type="checkbox" />#{button}|
+	end
+	r << '</p>'
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/plugin/section_permalink.rb

@@ -0,0 +1,73 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011, KADO Masanori <kdmsnr@gmail.com>
+# You can redistribute it and/or modify it under GPL.
+#
+# section_permalink.rb
+# - enables section permalink and shows section title
+
+def section_mode?
+	@mode == 'day' and @cgi.params['p'][0].to_s != ""
+end
+
+# Change permalink
+def anchor( s )
+	if /^([\-\d]+)#?([pct]\d*)?$/ =~ s then
+		if $2 then
+			s1 = $1
+			s2 = $2
+			if $2 =~ /^p/
+				"?date=#{s1}&amp;p=#{s2.gsub(/p/, '')}"
+			else
+				"?date=#{s1}.html##{s2}"
+			end
+		else
+			"?date=#$1"
+		end
+	else
+		""
+	end
+end
+
+# Change HTML title to section name
+alias :_orig_title_tag :title_tag
+def title_tag
+	if section_mode? and diary = @diaries[@date.strftime('%Y%m%d')]
+		sections = diary.instance_variable_get(:@sections)
+
+		title = "<title>"
+		section = sections[@cgi.params['p'][0].to_i - 1].stripped_subtitle_to_html
+		title << apply_plugin(section, true).chomp
+		title << " - #{h @html_title}"
+		title << "(#{@date.strftime( '%Y-%m-%d' )})" if @date
+		title << "</title>"
+		return title
+	else
+		_orig_title_tag
+	end
+rescue
+	_orig_title_tag
+end
+
+add_header_proc do
+	if section_mode? and diary = @diaries[@date.strftime('%Y%m%d')]
+		index = @cgi.params['p'][0]
+<<-EOS
+<script type="text/javascript">
+$(document).ready(function() {
+  var anc = $("a[name=p#{h(index)}]");
+  anc.parent().css("background-color", "yellow");
+  var dest = anc.offset().top;
+  $("body").animate({scrollTop: dest});
+});
+</script>
+EOS
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/plugin/section_permalink_anchor.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2011, KADO Masanori <kdmsnr@gmail.com>
+# You can redistribute it and/or modify it under GPL.
+#
+# section_permalink_anchor.rb
+# - enables section permalink with mod_rewrite
+# - depends on section_permalink.rb
+#
+# sample .htaccess:
+# <IfModule mod_rewrite.c>
+#    RewriteEngine on
+#    RewriteRule ^([0-9\-]+)p?([0-9]*)\.html$ ?date=$1&p=$2 [L]
+# </IfModule>
+
+def anchor( s )
+	if /^([\-\d]+)#?([pct]\d*)?$/ =~ s then
+		if $2 then
+			s1 = $1
+			s2 = $2
+			if $2 =~ /^p/
+				"#{s1}#{s2}.html"
+			else
+				"#{s1}.html##{s2}"
+			end
+		else
+			"#$1.html"
+		end
+	else
+		""
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3