tdiary-blogkit 5.0.1

data/lib/tdiary/style/blogrd.rb

@@ -0,0 +1,75 @@
+# -*- coding: utf-8; -*-
+# Copyright (c) 2003 URABE, Shyouhei <root@mput.dip.jp>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this code, to deal in the code without restriction,
+# including without limitation the rights to use, copy, modify, merge,
+# publish, distribute, sublicense, and/or sell copies of the code, and
+# to permit persons to whom the code is furnished to do so, subject to
+# the following conditions:
+#
+#     The above copyright notice and this permission notice shall be
+#     included in all copies or substantial portions of the code.
+#
+# THE CODE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE CODE
+# OR THE USE OR OTHER DEALINGS IN THE CODE.
+
+begin
+	require 'tdiary/style/rd'
+rescue LoadError
+	require 'tdiary/rd_style'
+end
+
+module RD
+	class RD2BlogVisitor < RD2tDiaryVisitor
+		def apply_to_Headline( element, title )
+			r = "<h%1$1d>%2$s</h%1$1d>" % [ element.level + RD::TDIARY_BASE_LEVEL, title ]
+			if element.level == 3 && @td_opt['multi_user'] && @td_author then
+				r << "[" << @td_author << "]"
+			end
+			r
+		end
+	end
+end
+
+module TDiary
+	module Style
+		class BlogrdDiary < RdDiary
+			include RD
+	
+			def style
+				'BlogRD'
+			end
+	
+			def to_html( opt, mode=:HTML )
+				v = RD2BlogVisitor.new( date, 0, opt, @author )
+				r = ''
+				@sections.each_with_index do | section, i |
+					if i == 0 or opt['anchor'] then
+						t = RDTree.new( ("=begin\n%s\n=end" % section.to_src).to_a, nil, nil )
+						t.parse
+						r << %Q[<div class="section">%s</div>] % v.visit( t )
+					else
+						r << %Q[<p class="readmore"><a href="%s<%%=anchor "%s"%%>">Read more ...</a></p>\n] % [opt['index'], date.strftime('%Y%m%d')]
+						break;
+					end
+				end
+				r
+			end
+		end
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# code: utf-8
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vi: ts=3 sw=3

data/lib/tdiary/style/blogwiki.rb

@@ -0,0 +1,80 @@
+# -*- coding: utf-8; -*-
+#
+# blogwiki_style.rb: WikiWiki style for tDiary Blogkit. $Revision: 1.7 $
+#
+# if you want to use this style,
+#
+#   1. copy wiki_style.rb and wiki_parser.rb in tDiary's misc/style/wiki
+#      to tDiary's tdiary directory.
+#
+#   2. copy this blogwiki_style.rb to tDiaty's tdiary directory.
+#
+#   3. specify @style in tdiary.conf below:
+#
+#    @style = 'BlogWiki'
+#
+# Copyright (C) 2003, TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this under GPL.
+#
+require 'tdiary/style/wiki'
+
+module TDiary
+	module Style
+		class BlogwikiSection < WikiSection
+		end
+	
+		class BlogwikiDiary < WikiDiary
+			def style
+				'BlogWiki'
+			end
+	
+			def append( body, author = nil )
+				section = nil
+				body.each_line do |l|
+					case l
+					when /^\![^!]/
+						@sections << BlogwikiSection::new( section, author ) if section
+						section = l
+					else
+						section = '' unless section
+						section << l
+					end
+				end
+				@sections << BlogwikiSection::new( section, author ) if section
+				@last_modified = Time::now
+				self
+			end
+	
+			def to_html4( opt )
+				r = ''
+				idx = 1
+				each_section do |section|
+					if idx > 1 and not opt['anchor'] then
+						r << %Q|<p class="readmore"><a href="#{opt['index']}<%=anchor "#{date.strftime( '%Y%m%d' )}"%>">Read more...</a></p>\n|
+						break
+					end
+					r << section.html4( date, idx, opt )
+					idx += 1
+				end
+				r
+			end
+	
+			def to_chtml( opt )
+				r = ''
+				idx = 1
+				each_section do |section|
+					r << section.chtml( date, idx, opt )
+					idx += 1
+				end
+				r
+			end
+		end
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/plugin/archive.rb

@@ -0,0 +1,70 @@
+# archive.rb $Revision: 1.10 $
+#
+# archive: show list of past news archive
+#   parameter: none.
+#
+# archive_dropdown: show list of past news archive in dropdown.
+#   parameter(default):
+#      label: label of submit button ('Go')
+#
+# Copyright (c) 2002 TADA Tadashi <sho@spc.gr.jp>
+# Distributed under the GPL
+#
+
+def archive_make_list
+	list = []
+	@years.keys.sort.reverse_each do |year|
+		@years[year.to_s].sort.reverse_each do |month|
+			list << "#{year}#{month}"
+		end
+	end
+	list
+end
+
+def archive
+	result = %Q[<ul>\n]
+	list = archive_make_list
+	count = list.length
+	list.each do |month|
+		result << %Q[<li><a href="#{h @index}#{anchor "#{month}"}">#{'%05d' % count}</a></li>\n]
+		count -= 1
+	end
+	result << %Q[</ul>\n]
+end
+
+def archive_dropdown( label = 'Go' )
+	result = %Q[<form method="get" action="#{h @index}"><div>\n]
+	result << %Q[<select name="date">\n]
+	list = archive_make_list
+	count = list.length
+	list.each do |month|
+		result << %Q[<option value="#{month}">#{'%05d' % count}</option>\n]
+		count -= 1
+	end
+	result << %Q[</select>\n<input type="submit" value="#{h label}">\n]
+	result << %Q[</div></form>\n]
+end
+
+def archive_make_index
+	list = archive_make_list.sort.push( nil ).unshift( nil )
+	this = @date.strftime( "%Y%m" )
+	@archive_index = list.index( this )
+end
+
+def navi_prev_month
+	archive_make_index unless @archive_index
+	'%05d' % (@archive_index - 1)
+end
+
+def navi_next_month
+	archive_make_index unless @archive_index
+	'%05d' % (@archive_index + 1)
+end
+
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/plugin/blog-category.rb

@@ -0,0 +1,247 @@
+# blog-category.rb $Revision: 1.14 $
+#
+# Usage:
+#
+#  Select blog-category.rb in 'Preferece' -> 'sp'.
+#  You should initialize the category index file in 'Prefernce' -> 'Categorize blogkit'.
+#  You can read the detailed documentation in the same page.
+#
+# Copyright (c) 2003 Junichiro KITA <kita@kitaj.no-ip.com>
+# Distributed under the GPL
+#
+
+require 'pstore'
+
+def blog_category
+	cat = @cgi.params['blogcategory'][0]
+	if cat and !cat.empty?
+		cat
+	else
+		nil
+	end
+end
+
+# NOTICE: very illegal usage
+@title_procs.insert( 0, Proc::new {|d, t| categorized_title_of_day( d, t ) } )
+
+def categorized_title_of_day( date, title )
+	r = ''
+	cats, stripped = title.scan( /^((?:\[[^\]]+\])+)\s*(.*)/ )[0]
+	if cats then
+		cats.scan( /\[([^\]]+)\]+/ ).flatten.each do |c|
+			r << %Q|[<a href="#{h @index}?blogcategory=#{h c}">#{c}</a>]|
+		end
+	else
+		stripped = title
+	end
+	r + ' ' + stripped
+end
+
+if /^(latest|month|day|append|replace|comment|showcomment|saveconf|trackbackreceive|pingbackreceive)$/ =~ @mode
+	eval(<<-'MODIFY_CLASS', TOPLEVEL_BINDING)
+		module TDiary
+			module Style
+				module BaseDiary
+					def stripped_title
+						return '' unless @title
+						stripped = @title.sub(/^(\[(.*?)\])+\s*/,'')
+					end
+	
+					def categories
+						return [] unless @title
+						cat = /^(\[([^\[]+?)\])+/.match(@title).to_a[0]
+						return [] unless cat
+						cat.scan(/\[(.*?)\]/).collect do |c|
+							c[0].split(/,/)
+						end.flatten
+					end
+				end
+			end
+
+			class TDiaryMonth
+				attr_reader :diaries
+			end
+		end
+	MODIFY_CLASS
+end
+
+if category_param = blog_category and @mode == 'latest'
+	eval(<<-'MODIFY_CLASS', TOPLEVEL_BINDING)
+		module TDiary
+			module Cache
+				def cache_enable?( prefix )
+					false
+				end
+
+				def store_cache( cache, prefix )
+				end
+			end
+		end
+	MODIFY_CLASS
+
+	years = @years.collect{|y,ms| ms.collect{|m| "#{y}#{m}"}}.flatten.sort.reverse
+	@diaries.keys.each {|date| years.delete(date[0, 6])}
+
+	@diaries.delete_if do |date, diary|
+		!diary.categories.include?(category_param)
+	end
+
+	cgi = CGI.new
+	def cgi.referer; nil; end
+	years.each do |ym|
+		break if @diaries.keys.size >= @conf.latest_limit
+		cgi.params['date'] = [ym]
+		m = TDiaryMonth.new(cgi, '', @conf)
+		m.diaries.delete_if do |date, diary|
+			!diary.categories.include?(category_param)
+		end
+		@diaries.update(m.diaries)
+	end
+end
+
+alias :navi_user_blog_category :navi_user
+def navi_user
+	r = navi_user_blog_category
+	r << %Q[<span class="adminmenu"><a href="#{h @index}">#{navi_latest}</a></span>\n] if @mode == 'latest' and blog_category
+	r
+end
+
+def blog_category_cache
+	"#{@cache_path}/blog_category"
+end
+
+def blog_category_cache_add(diary)
+	PStore.new(blog_category_cache).transaction do |db|
+		db['blog_category'] = Hash.new unless db.root?('blog_category')
+		diary.categories.each do |c|
+			db['blog_category'][c] = Hash.new unless db['blog_category'][c]
+			db['blog_category'][c][diary.date.strftime('%Y%m%d')] = diary.stripped_title
+		end
+	end
+end
+
+def blog_category_cache_restore
+	return nil unless File.exist?(blog_category_cache)
+	cache = {}
+	PStore.new(blog_category_cache).transaction do |db|
+		cache.update(db['blog_category'])
+		db.abort
+	end
+	cache
+end
+
+def blog_category_entry(limit = 20)
+	return 'DO NOT USE IN SECURE MODE' if @conf.secure
+
+	cache = blog_category_cache_restore
+	return '' if (blog_category.nil? or cache.nil?)
+	n_shown = @diaries.keys.size
+	n_shown = @conf.latest_limit if n_shown > @conf.latest_limit
+	dates = cache[blog_category].keys.sort.reverse[n_shown..-1]
+	return '' if dates.empty?
+
+	r = "<ul>\n"
+	dates.each do |date|
+		r << %Q|	<li><a href="#{h @index}#{anchor date}">#{@conf.shorten(cache[blog_category][date], limit)}</a></li>\n|
+	end
+	r << "</ul>\n"
+end
+
+def blog_category_form
+	cache = blog_category_cache_restore
+	return '' if cache.nil?
+
+	r = <<HTML
+<form method="get" action="#{h @index}">
+	<div>
+		<select name="blogcategory">
+			<option value="">select...</option>
+HTML
+	cache.keys.sort.each do |cat|
+		r << %Q|			<option value="#{h cat}"#{" selected" if cat == blog_category}>#{cat}</option>\n|
+	end
+	r << <<HTML
+		</select>
+		<input type="submit" value="show">
+	</div>
+</form>
+HTML
+end
+
+add_update_proc do
+	if @mode != 'comment'
+		diary = @diaries[@date.strftime('%Y%m%d')]
+		blog_category_cache_add(diary)
+	end
+end
+
+def blog_category_cache_initialize
+	cgi = CGI::new
+	def cgi.referer; nil; end
+
+	PStore.new(blog_category_cache).transaction do |db|
+		db['blog_category'] = Hash.new
+		@years.each do |y, ms|
+			ms.each do |m|
+				cgi.params['date'] = ["#{y}#{m}"]
+				m = TDiaryMonth.new(cgi, '', @conf)
+				m.diaries.each do |k, diary|
+					diary.categories.each do |c|
+						db['blog_category'][c] = Hash.new unless db['blog_category'][c]
+						db['blog_category'][c][diary.date.strftime('%Y%m%d')] = diary.stripped_title
+					end
+				end
+			end
+		end
+	end
+end
+
+add_conf_proc( 'blog_category', @blog_category_conf_label, 'basic' ) do
+	if @mode == 'saveconf' and @cgi.valid?('blog_category_initialize')
+		blog_category_cache_initialize
+	end
+
+	r = ''
+	r << @blog_category_desc_label
+	r
+end
+
+def blog_category_edit
+	cache = blog_category_cache_restore
+	return '' if cache.nil?
+
+	ret = ''
+   unless cache.keys.size == 0 then
+		ret << %Q[
+		<script type="text/javascript">
+		<!--
+		function inj_c(val){
+			target = window.document.forms[0].title
+			target.focus();
+			target.value += val
+		}
+		//-->
+		</script>
+		]
+
+		ret << '<div class="field title">'
+		ret << "#{@blog_category_conf_label}:\n"
+
+		cache.keys.sort.each do |cat|
+			ret << %Q!| <a href="javascript:inj_c(&quot;[#{h cat}]&quot;)">#{h cat}</a>\n!
+		end
+		ret << "|\n</div>\n<br>\n"
+	end
+end
+
+add_edit_proc do
+	blog_category_edit
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3