tdiary 3.2.2.20130507

data/tdiary/style/wiki_style.rb

@@ -0,0 +1,213 @@
+# -*- coding: utf-8; -*-
+#
+# Wiki_style.rb: Wiki style for tDiary 2.x format. $Revision: 1.32 $
+#
+# if you want to use this style, add @style into tdiary.conf below:
+#
+#    @style = 'Wiki'
+#
+# Copyright (C) 2003, TADA Tadashi <t@tdtds.jp>
+# Copyright (C) 2005, Kazuhiko <kazuhiko@fdiary.net>
+# You can distribute this under GPL.
+#
+require 'hikidoc'
+
+module TDiary
+	class WikiSection
+		include SectionBase
+
+		def initialize( fragment, author = nil )
+			@author = author
+			if fragment[0] == ?! then
+				@subtitle, @body = fragment.split( /\n/, 2 )
+				@subtitle.sub!( /^\!\s*/, '' )
+			else
+				@subtitle = nil
+				@body = fragment.dup
+			end
+			@body = @body || ''
+			@body.sub!( /[\n\r]+\Z/, '' )
+			@body << "\n\n"
+			@categories = get_categories
+			@stripped_subtitle = strip_subtitle
+
+			@subtitle_to_html = @subtitle ? to_html( "!#{@subtitle}" ) : ''
+			@body_to_html = to_html( @body )
+			@html = @subtitle_to_html + "\n" +  @body_to_html + "\n"
+			@subtitle_to_html = strip_headings( @subtitle_to_html )
+			@body_to_html = strip_headings( @body_to_html )
+			@stripped_subtitle_to_html = @stripped_subtitle ? strip_headings( to_html( "!#{@stripped_subtitle}" ) ) : nil
+		end
+
+		def subtitle=(subtitle)
+			@subtitle = subtitle ? (categories_to_string + subtitle) : nil
+			@stripped_subtitle = strip_subtitle
+		end
+
+		def categories=(categories)
+			@subtitle = @subtitle ? (categories_to_string + @stripped_subtitle) : nil
+			@stripped_subtitle = strip_subtitle
+		end
+
+		def to_src
+			r = ''
+			r << "! #{@subtitle}\n" if @subtitle
+			r << @body
+		end
+
+		def do_html4( date, idx, opt )
+			subtitle = false
+			r = @html.lstrip
+			r.sub!( %r!<h3>(.+?)</h3>!m ) do
+				subtitle = true
+				"<h3><%= subtitle_proc( Time.at( #{date.to_i} ), #{$1.dump.gsub( /%/, '\\\\045' )} ) %></h3>"
+			end
+			r.sub!( %r!^<p>(.+?)</p>$!m ) do
+				"<p><%= subtitle_proc( Time.at( #{date.to_i} ), #{$1.dump.gsub( /%/, '\\\\045' )} ) %></p>"
+			end unless subtitle
+			r.gsub( /<(\/)?tdiary-section>/, '<\\1p>' )
+		end
+
+	private
+
+		def valid_plugin_syntax?(code)
+			lambda {
+				$SAFE = 4
+				eval( "BEGIN {return true}\n#{code}", nil, "(plugin)", 0 )
+			}.call
+		rescue SyntaxError
+			lambda { eval('') }.call
+			false
+		end
+
+		def to_html( string )
+			html = HikiDoc::to_html( string,
+				:level => 3,
+				:empty_element_suffix => '>',
+				:use_wiki_name => false,
+				:allow_bracket_inline_image => false,
+				:plugin_syntax => method(:valid_plugin_syntax?) ).strip
+			html.gsub!( %r!<span class="plugin">\{\{(.+?)\}\}</span>!m ) do
+				"<%=#{CGI.unescapeHTML($1)}\n%>"
+			end
+			html.gsub!( %r!<div class="plugin">\{\{(.+?)\}\}</div>!m ) do
+				"<p><%=#{CGI.unescapeHTML($1)}\n%></p>"
+			end
+			html.gsub!( %r!<a href="(.+?)">(.+?)</a>! ) do
+				k, u = $2, $1
+				if /^(\d{4}|\d{6}|\d{8}|\d{8}-\d+)[^\d]*?#?([pct]\d+)?$/ =~ u then
+					%Q[<%=my '#{$1}#{$2}', '#{escape_quote k}' %>]
+				elsif /:/ =~ u
+					scheme, path = u.split( /:/, 2 )
+					if /\A(?:http|https|ftp|mailto)\z/ =~ scheme
+      				u.sub!( /^\w+:/, '' ) if %r|://| !~ u and /^mailto:/ !~ u
+						%Q[<a href="#{u}">#{k}</a>]
+					elsif ( k == u )
+						%Q[<%=kw '#{escape_quote u}'%>]
+					else
+						%Q[<%=kw '#{escape_quote u}', '#{escape_quote k}'%>]
+					end
+				elsif k == u
+					%Q[<%=kw '#{escape_quote u}', '#{escape_quote k}'%>]
+				else
+					%Q[<a href="#{u}">#{k}</a>]
+				end
+			end
+			html
+		end
+
+		def escape_quote( s )
+			s.gsub( /'/, "\\\\'" )
+		end
+
+		def strip_headings( string )
+			html = string
+			html.sub!( /\A<h3>/, '' )
+			html.sub!( %r|</h3>\z|, '' )
+			html.empty? ? nil : html
+		end
+
+		def get_categories
+			return [] unless @subtitle
+			cat = /^(\[([^\[]+?)\])+/.match(@subtitle).to_a[0]
+			return [] unless cat
+			cat.scan(/\[(.*?)\]/).collect do |c|
+				c[0].split(/,/)
+			end.flatten
+		end
+
+		def strip_subtitle
+			return nil unless @subtitle
+			r = @subtitle.sub(/^(\[[^\[]+?\])+\s*/,'')
+			if r == ""
+				nil
+			else
+				r
+			end
+		end
+	end
+
+	class WikiDiary
+		include DiaryBase
+		include CategorizableDiary
+
+		def initialize( date, title, body, modified = Time.now )
+			init_diary
+			replace( date, title, body )
+			@last_modified = modified
+		end
+
+		def style
+			'Wiki'
+		end
+
+		def append( body, author = nil )
+			# body1 is a section starts without subtitle.
+			# body2 are sections starts with subtitle.
+			if /(.*?)(^![^!].*)/m =~ body
+				body1 = $1
+				body2 = $2
+			elsif /^![^!]/ !~ body
+				body1 = body
+				body2 = ''
+			else
+				body1 = ''
+				body2 = body
+			end
+
+			unless body1.empty?
+				current_section = @sections.pop
+				if current_section then
+					body1 = "#{current_section.to_src.sub( /\n+\Z/, '' )}\n\n#{body1}"
+				end
+				@sections << WikiSection::new( body1, author )
+			end
+			section = nil
+			body2.each_line do |l|
+				case l
+				when /^\![^!]/
+					@sections << WikiSection::new( section, author ) if section
+					section = l
+				else
+					section = '' unless section
+					section << l
+				end
+			end
+			@sections << WikiSection::new( section, author ) if section
+			@last_modified = Time.now
+			self
+		end
+
+		def add_section(subtitle, body)
+			@sections << WikiSection::new("! #{subtitle}\n#{body}")
+			@sections.size
+		end
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/tdiary/tasks.rb

@@ -0,0 +1 @@
+Dir[File.join(File.dirname(__FILE__), 'tasks/**/*.rake')].each {|f| load f }

data/tdiary/tasks/assets.rake

@@ -0,0 +1,31 @@
+namespace :assets do
+	if defined? CoffeeScript
+		desc "compile coffeescript"
+		task :compile do
+			FileList['js/**/*.coffee'].each do |coffee|
+				File.open(coffee.sub(/\.coffee\z/, '.js'), 'w') do |js|
+					js.write CoffeeScript.compile(File.read(coffee))
+				end
+			end
+		end
+	end
+
+	desc "copy assets files"
+	task :copy do
+		require 'fileutils'
+		assets_path = File.dirname(__FILE__) + '/../../public/assets'
+
+		FileUtils.mkdir_p assets_path
+		FileList['{js,theme}/*'].each do |file|
+			FileUtils.cp_r(file, "#{assets_path}/#{Pathname.new(file).basename}")
+		end
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/tdiary/tasks/auth.rake

@@ -0,0 +1,28 @@
+namespace :auth do
+	namespace :password do
+		desc "create password"
+		task :create do
+			require 'webrick/httpauth/htpasswd'
+			puts 'create .htpasswd file'
+			print 'Username: '
+			ARGV.replace([])
+			username = gets().chop
+			print 'New password: '
+			system "stty -echo"
+			password = $stdin.gets.chop
+			puts
+			print 'Re-type new password: '
+			password2 = $stdin.gets.chop
+			puts
+			system "stty echo"
+			if password != password2
+				raise StandardError, 'password verification error'
+			else
+				htpasswd = WEBrick::HTTPAuth::Htpasswd.new('.htpasswd')
+				htpasswd.set_passwd(nil, username, password)
+				htpasswd.flush
+				puts "Adding password for user #{username}"
+			end
+		end
+	end
+end

data/tdiary/tasks/db.rake

@@ -0,0 +1,110 @@
+namespace :db do
+	desc "import database from file system"
+	task :import do
+		$:.unshift '.'
+		require 'tdiary'
+
+		cgi = CGI.new
+		conf = TDiary::Config.new(cgi)
+		base = TDiary::TDiaryBase.new(cgi, 'day.rhtml', conf)
+		io = conf.io_class.new(base)
+		io.load_styles
+
+		Sequel.connect(conf.database_url) do |db|
+			db.create_table :conf do
+				String :body, :text => true
+			end unless db.table_exists?(:conf)
+			db[:conf].insert(:body => File.read(conf.data_path + 'tdiary.conf'))
+		end
+
+		yms = base.calendar
+		yms.keys.sort.reverse_each do |year|
+			yms[year.to_s].sort.reverse_each do |month|
+				date = Time.local(year, month)
+				io.transaction(date) do |diaries|
+					Sequel.connect(conf.database_url) do |db|
+						db.create_table :diaries do
+							String :diary_id, :size => 8
+							String :year, :size => 4
+							String :month, :size => 2
+							String :day, :size => 2
+							String :title, :text => true
+							String :body, :text => true
+							String :style, :text => true
+							Fixnum :last_modified
+							TrueClass :visible
+							primary_key :diary_id
+						end unless db.table_exists?(:diaries)
+
+						db.create_table :comments do
+							String :diary_id, :size => 8
+							Fixnum :no
+							String :name, :text => true
+							String :mail, :text => true
+							String :comment, :text => true
+							Fixnum :last_modified
+							TrueClass :visible
+							primary_key [:diary_id, :no]
+						end unless db.table_exists?(:comments)
+
+						diaries.each do |date, diary|
+							no = 0
+							if /(\d\d\d\d)(\d\d)(\d\d)/ =~ date
+								year  = $1
+								month = $2
+								day   = $3
+							end
+							entry = db[:diaries].filter(:year => year,
+								:month => month,
+								:day => day,
+								:diary_id => date)
+							if entry.count > 0
+								entry.update(:title => diary.title,
+									:last_modified => diary.last_modified.to_i,
+									:style => diary.style,
+									:visible => diary.visible?,
+									:body => diary.to_src)
+							else
+								db[:diaries].insert(:year => year,
+									:month => month,
+									:day => day,
+									:diary_id => date,
+									:title => diary.title,
+									:last_modified => diary.last_modified.to_i,
+									:style => diary.style,
+									:visible => diary.visible?,
+									:body => diary.to_src)
+							end
+
+							diary.each_comment(diary.count_comments(true)) do |com|
+								no += 1
+								comment = db[:comments].filter(:diary_id => date, :no => no)
+								if comment.count > 0
+									comment.update(:name => com.name, :mail => com.mail, :last_modified => com.date.to_i, :visible => com.visible?, :comment => com.body)
+								else
+									db[:comments].insert(:name => com.name, :mail => com.mail, :last_modified => com.date.to_i, :visible => com.visible?, :comment => com.body, :diary_id => date, :no => no)
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+
+	desc "drop database"
+	task :drop do
+		conf = TDiary::Config.new(CGI.new)
+		Sequel.connect(conf.database_url || ENV['DATABASE_URL']) do |db|
+			db.drop_table :diaries, :comments, :conf
+		end
+	end
+end if defined?(Sequel)
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/tdiary/tasks/doc.rake

@@ -0,0 +1,31 @@
+desc "generate document files"
+task :doc do
+	require 'redcarpet'
+	require 'pathname'
+	FileList['doc/*.md'].each do |md|
+		target = Pathname.new(md)
+		header = <<-HEADER
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html lang="ja-JP">
+<head>
+<title>#{target.basename('.md')}</title>
+<link href="doc.css" media="screen" rel="stylesheet" type="text/css" />
+</head>
+<body>
+HEADER
+		footer = <<-FOOTER
+</body>
+</html>
+FOOTER
+		html = Redcarpet::Markdown.new(Redcarpet::Render::HTML, :fenced_code_blocks => true).render(File.open(md).read)
+		open(target.sub(/\.md\z/, '.html'), 'w') {|f| f.write(header + html + footer)}
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/tdiary/tasks/heroku.rake

@@ -0,0 +1,37 @@
+namespace :heroku do
+	file 'tdiary.conf' => ['tdiary.conf.heroku'] do |t|
+		FileUtils.cp(t.prerequisites.first, t.name)
+	end
+
+	file '.htpasswd' do
+		Rake::Task["auth:password:create"].invoke
+	end
+
+	task :install => ['.htpasswd', 'tdiary.conf'] do |t|
+		sh "git checkout -b deploy"
+		sh "git add -f #{t.prerequisites.join(' ')}"
+		sh "git commit -m 'deploy'"
+		sh "git push heroku deploy:master"
+		# FIXME: heroku command does not work in rake env
+		# sh "heroku run rake db:create"
+	end
+
+	task :update do
+		# sh "git pull origin master:deploy"
+		# sh "git push heroku deploy:master"
+		raise NotImplementedError
+	end
+
+	task :clean do
+		sh "git checkout master"
+		sh "git branch -D deploy"
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3