tdiary-contrib 3.2.2.20130518

data/plugin/tweet_quote.rb

@@ -0,0 +1,106 @@
+# -*- coding: utf-8 -*-
+#
+# tweet_quote.rb - tDiary plugin to quote tweet on twitter.com,
+# formaly known as blackbird-pie.rb
+#
+# Copyright (C) 2010, hb <smallstyle@gmail.com>
+#
+# usage:
+#    <%= tweet_quote "id|url" %>
+#     or
+#    <%= twitter_quote "id|url" %>
+#     or
+#    <%= blackbird_pie "id|url" %>
+#     or
+#    <%= bbp "id|url" %>
+#
+
+require 'pstore'
+require 'open-uri'
+require 'timeout'
+require 'rexml/document'
+require 'time'
+require 'uri'
+
+def twitter_statuses_show_api( tweet_id )
+	url = "http://api.twitter.com/1/statuses/show/#{tweet_id}.xml"
+
+	proxy = @conf['proxy']
+	proxy = 'http://' + proxy if proxy
+
+	timeout( 20 ) do
+		open( url, :proxy => proxy ) {|f| f.read }
+	end
+end
+
+
+def tweet_quote( src )
+	if %r|http(?:s)?://twitter.com/(?:#!/)?[^/]{1,15}/status(?:es)?/([0-9]+)| =~ src.to_s.downcase
+		src = $1
+	end
+
+	return unless /\A[0-9]+\z/ =~ src.to_s
+
+	cache = "#{@cache_path}/blackbird.pstore"
+	xml = nil
+
+	db = PStore.new( cache )
+	db.transaction do
+		key = src
+		db[key] ||= {}
+		if db[key][:xml]
+			xml = db[key][:xml]
+		else
+			begin
+				xml = twitter_statuses_show_api( src )
+			rescue OpenURI::HTTPError
+				return %Q|<p class="bbpMessage">#$!</p>|
+			end
+			db[key][:xml] = xml
+		end
+	end
+
+	doc = REXML::Document::new( REXML::Source.new( xml ) ).root
+
+	tweet_id = doc.elements['//id'].text
+	screen_name = doc.elements['//user/screen_name'].text
+	name = doc.elements['//user/name'].text
+	background_url = doc.elements['//user/profile_background_image_url'].text
+	profile_background_color = '#' + doc.elements['//user/profile_background_color'].text
+	avatar = doc.elements['//user/profile_image_url'].text
+	source = doc.elements['//source'].text
+	timestamp = Time.parse( doc.elements['//created_at'].text ).to_s
+	content = doc.elements['//text'].text
+	content.gsub!( URI.regexp( %w|http https| ) ){ %Q|<a href="#{$&}">#{$&}</a>| }
+	content = content.split( /(<[^>]*>)/ ).map do |s|
+		next s if s[/\A</]
+		s.gsub!( /@(?>([a-zA-Z0-9_]{1,15}))(?![a-zA-Z0-9_])/ ){ %Q|<a href="http://twitter.com/#{$1}">#{$&}</a>| }
+		s.gsub( /#([a-zA-Z0-9]{1,16})/ ){ %Q|<a href="http://twitter.com/search?q=%23#{$1}">#{$&}</a>| }
+	end.join
+
+	r = <<-HTML
+	<!-- http://twitter.com/#{screen_name}/status/#{tweet_id} -->
+	<div class="bbpBox" style=
+	"background:url(#{background_url}) #{profile_background_color};padding:20px;">
+	<p class="bbpTweet" style=
+		"background:#fff;padding:10px 12px 10px 12px;margin:0;min-height:48px;color:#000;font-size:16px !important;line-height:22px;-moz-border-radius:5px;-webkit-border-radius:5px;">
+		#{content} <span class="bbpTimestamp" style=
+		"font-size:12px;display:block;"><a title="#{timestamp}" href=
+		"http://twitter.com/#{screen_name}/status/#{tweet_id}">#{timestamp}</a> via #{source}
+		</span> <span class="bbpMetadata" style=
+		"display:block;width:100%;clear:both;margin-top:8px;padding-top:12px;height:40px;border-top:1px solid #fff;border-top:1px solid #e6e6e6;">
+		<span class="bbpAuthor" style="line-height:19px;"><a href=
+		"http://twitter.com/#{screen_name}"><img alt="#{name}" src=
+		"#{avatar}" style=
+		"float:left;margin:0 7px 0 0;width:38px;height:38px;"></a>
+		<strong><a href=
+		"http://twitter.com/#{screen_name}">#{screen_name}</a></strong><br>
+		#{name}</span></span></p>
+	</div>
+	<!-- end of tweet -->
+	HTML
+end
+
+alias :blackbird_pie :tweet_quote
+alias :bbp :tweet_quote
+alias :twitter_quote :tweet_quote

data/plugin/twitpic.rb

@@ -0,0 +1,10 @@
+#
+# twitpic.rb: plugin to insert images on twitpic.com.
+#
+# Copyright (C) 2010 TADA Tadashi <t@tdtds.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+def twitpic( image_id, label = 'image on Twitpic', place = 'photo' )
+	%Q|<a class="twitpic" href="http://twitpic.com/#{h image_id}" title="#{h label}"><img class="#{h place}" src="http://twitpic.com/show/thumb/#{h image_id}.jpg" width="150" height="150" alt="#{h label}"></a>|
+end

data/plugin/twitter.rb

@@ -0,0 +1,46 @@
+# twitter.rb $Revision: 1.1 $
+# Copyright (C) 2007 Michitaka Ohno <elpeo@mars.dti.ne.jp>
+# You can redistribute it and/or modify it under GPL2.
+
+require 'timeout'
+require 'time'
+require 'open-uri'
+require 'rexml/document'
+
+@twitter_statuses = []
+
+if /^(latest|day)$/ =~ @mode then
+	add_header_proc do
+		xml = nil
+		timeout( 5 ) do
+			begin
+				xml = open( "http://twitter.com/statuses/user_timeline/#{@conf['twitter.user']}.xml" ){|f| f.read}
+			rescue Exception
+			end
+		end
+		doc = REXML::Document.new( xml ).root if xml
+		if doc then
+			doc.elements.each( 'status' ) do |e|
+				@twitter_statuses << [@conf.to_native( e.elements['text'].text ), Time.parse( e.elements['created_at'].text ).localtime]
+			end
+		end
+		''
+	end
+end
+
+add_body_leave_proc do |date|
+	today_statuses = []
+	@twitter_statuses.each do |t, d|
+		 today_statuses << [t, d] if d.to_a[3,3] == date.to_a[3,3]
+	end
+	if !today_statuses.empty?
+		r = %Q[<div class="section">]
+		r << %Q[<h3><a href="http://twitter.com/#{@conf['twitter.user']}">Twitter statuses</a></h3>]
+		today_statuses.sort{|a, b| b.last<=>a.last}.each do |t, d|
+			r << %Q[<p><strong>#{CGI::escapeHTML( t )}</strong> (#{d.strftime( '%H:%M:%S' )})</p>]
+		end
+		r << %Q[</div>]
+	else
+		''
+	end
+end

data/plugin/twitter_anywhere.rb

@@ -0,0 +1,209 @@
+# -*- coding: utf-8 -*-
+#
+# twitter_anywhere.rb - bringing the Twitter communication platform to tDiary
+#  refer to the URL below. 
+#  https://dev.twitter.com/docs/anywhere/welcome
+#
+# Copyright (C) 2010-2012, tamoot <tamoot+tdiary@gmail.com>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+def follow_button(account)
+   return not_support_anywhere unless support_anywhere?
+   return not_ready_anywhere   unless ready_anywhere?
+   
+   if account.nil? || account == ''
+      return anywhere_plugin_error("Account name is not specified.")
+      
+   end
+   
+   <<-FOLLOW_API
+   <span id="follow-twitterapi"></span>
+   <script type="text/javascript">
+      twttr.anywhere(function (T) {
+         T('#follow-twitterapi').followButton("#{account}");
+      });
+   </script>
+   FOLLOW_API
+   
+end
+
+def tweet_box(label = nil, content = nil, option = {})
+   return not_support_anywhere unless support_anywhere?
+   return not_ready_anywhere   unless ready_anywhere?
+   init_tweetbox
+   
+   @tweetbox_opt.merge!(option)
+   @tweetbox_opt.merge!(:height => 120) unless option[:height].to_i > 0
+   @tweetbox_opt.merge!(:width  => 480) unless option[:width].to_i > 0
+   
+   @tweetbox_opt.merge!(:label   => label)   if label
+   @tweetbox_opt.merge!(:defaultContent => content) if content
+   
+   %Q|<span id="tweetbox"></span>|
+   
+end
+
+def twitter_anywhere_settings
+   enable_js('twitter_anywhere.js')
+   add_js_setting('$tDiary.plugin.twitter_anywhere')
+   
+   selectors = @conf['twitter_anywhere.hovercards.selectors'].split(',').collect do |selector|
+      %Q|"#{selector.strip}"|
+   end
+   add_js_setting('$tDiary.plugin.twitter_anywhere.selectors',
+                  "[#{selectors.join(',')}]" )
+   
+   expanded = '{}'
+   if @conf['twitter_anywhere.hovercards.expand_default'] == 'true'
+      expanded = '{"expanded":true}'
+      
+   end
+   add_js_setting('$tDiary.plugin.twitter_anywhere.hovercards')
+   add_js_setting('$tDiary.plugin.twitter_anywhere.hovercards.expand_default',
+                  expanded)
+   
+end
+
+
+add_header_proc do 
+
+   if /\A(?:latest|day|month|nyear|preview)\z/ =~ @mode
+      
+      if ready_anywhere?
+         %Q|<script src="http://platform.twitter.com/anywhere.js?id=#{h @conf['twitter_anywhere.id']}&v=1"></script>|
+         
+      else
+         ''
+         
+      end
+       
+   end
+   
+end
+
+def init_tweetbox
+   @tweetbox_json_opt ||= []
+   @tweetbox_opt ||= {}
+   
+end
+
+add_footer_proc do |date|
+   
+   if /\A(?:latest|day|month|nyear|preview)\z/ =~ @mode
+      
+      if ready_anywhere?
+         
+         init_tweetbox
+         
+         @tweetbox_opt.each_pair do |k, v|
+            @tweetbox_json_opt << "\"#{k}\":\"#{v}\""
+            
+         end
+         
+         tweet_box_call =  %Q|<script type="text/javascript">\n|
+         tweet_box_call << %Q|<!--\n|
+         tweet_box_call << %Q|   showTweetBox({#{@tweetbox_json_opt.join(',')}});\n|
+         tweet_box_call << %Q|//-->\n|
+         tweet_box_call << %Q|</script>\n|
+         
+      else
+         ''
+         
+      end
+      
+   else
+      ''
+      
+   end
+end
+
+add_conf_proc( 'twitter_anywhere', 'Twitter Anywhere' ) do
+   if @mode == 'saveconf' then
+      @conf['twitter_anywhere.id'] = @cgi.params['twitter_anywhere.id'][0]
+      @conf['twitter_anywhere.hovercards.selectors'] = @cgi.params['twitter_anywhere.hovercards.selectors'][0]
+      @conf['twitter_anywhere.hovercards.expand_default'] = @cgi.params['twitter_anywhere.hovercards.expand_default'][0] 
+      
+   end
+   
+   expand_true  = ""
+   expand_false = "selected"
+   
+   if @conf['twitter_anywhere.hovercards.expand_default'] == "true"
+      expand_true  = "selected"
+      expand_false = ""
+      
+   end
+   
+   <<-HTML
+   <h3 class="subtitle">Consumer key</h3>
+   
+   <p><input name="twitter_anywhere.id" value="#{h @conf['twitter_anywhere.id']}" size="70"></p>
+   <p>Register your tDiary and get Consumer key. 
+   <a href="http://dev.twitter.com/anywhere">Go Twitter OAuth settings.</a></p>
+   
+   <h3 class="subtitle">Rending Hovercards</h3>
+   
+   <h4>CSS Selector To limit the scope of where Hovercards appear</h4>
+   <p><input name="twitter_anywhere.hovercards.selectors" value="#{h @conf['twitter_anywhere.hovercards.selectors']}" size="70"></p>
+   <p>example) div.section p, div.commentshort p, div.commentbody p</p>
+   
+   <h4>Expanded by Default</h4>
+   <p><select name="twitter_anywhere.hovercards.expand_default">
+   <option value="true"  #{expand_true}>true</option>
+   <option value="false" #{expand_false}>false</option>
+   </select></p>
+   HTML
+   
+end
+
+def support_anywhere?
+   return false if @conf.mobile_agent? || feed?
+   return true
+   
+end
+
+def ready_anywhere?
+   if @conf['twitter_anywhere.id'] && @conf['twitter_anywhere.id'].size > 0 
+      return true
+      
+   end
+   
+   return false
+   
+end
+
+
+def not_support_anywhere
+   '[Twitter@Anywhere] not support this environment.' 
+   
+end
+
+def not_ready_anywhere
+   anywhere_plugin_error(
+      "Twitter consumer Key not specified.",
+      %Q|<a href="http://dev.twitter.com/anywhere">Go Twitter OAuth settings.</a>|)
+   
+end
+
+def anywhere_plugin_error(message, detail= '')
+   <<-PLUGIN_ERROR
+   <div class="plugin-message" style="background: #FDC; border: 2px solid #d00; color: #500; padding: .1em; margin: 1em 0;">
+   <p style="font-weight: bold;">[ERROR] twitter_anywhere.rb: #{message}</p><br>
+   <p>#{detail}</p>
+   </div>
+   PLUGIN_ERROR
+   
+end
+
+if /\A(?:latest|day|month|nyear|preview)\z/ =~ @mode
+   twitter_anywhere_settings
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/plugin/twitter_badge.rb

@@ -0,0 +1,42 @@
+#
+# twitter_badge.rb: insert 'Follow me' badge of Twitter.
+#
+# Copyright (C) 2010 TADA Tadashi <t@tdtds.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+def twitter_badge( account, opt = {} )
+	return '' unless account
+	@twitter_badge_setting = {
+		:account => account,
+		:label => (opt[:label] || 'follow-me'),
+		:color => (opt[:color] || '#35ccff'),
+		:side => (opt[:side] || 'right')[0,1],
+		:top => (opt[:top] || 136).to_i,
+		:delay => (opt[:delay] || 5).to_i * 1000,
+	}
+	'' # do nothing in this method.
+end
+
+add_footer_proc do
+	if @twitter_badge_setting then
+		t = @twitter_badge_setting
+		<<-TEXT
+		<!-- Twitter follow badge by go2web20 -->
+		<script src="http://files.go2web20.net/twitterbadge/1.0/badge.js" type="text/javascript" charset="utf-8"></script>
+		<script type="text/javascript"><!--
+		tfb.account = '#{t[:account]}';
+		tfb.label = '#{t[:label]}';
+		tfb.color = '#{t[:color]}';
+		tfb.side = '#{t[:side]}';
+		tfb.top = #{t[:top]};
+		setTimeout( tfb.showbadge, #{t[:delay]} );
+		//-->
+		</script>
+		<!-- end of Twitter follow badge -->
+		TEXT
+	else
+		''
+	end
+end
+

data/plugin/twitter_js.rb

@@ -0,0 +1,59 @@
+# twitter_js.rb $Revision: 1.1 $
+# Copyright (C) 2007 Michitaka Ohno <elpeo@mars.dti.ne.jp>
+# You can redistribute it and/or modify it under GPL2.
+
+if /\A(?:latest|day)\z/ =~ @mode then
+	if @conf['twitter.user'] then
+		twitter_user = @conf['twitter.user']
+		add_header_proc do
+			result = <<-HTML
+			<script type="text/javascript"><!--
+			function twitter_cb(a){
+				var f=function(n){return (n<10?'0':'')+n};
+				for(var i=0,l=a.length;i<l;i++){
+					var d=new Date(a[i]['created_at'].replace('+0000','UTC'));
+					var id='twitter_statuses_'+f(d.getFullYear())+f(d.getMonth()+1)+f(d.getDate());
+					var e=document.getElementById(id);
+					if(!e) continue;
+					if(!e.innerHTML) e.innerHTML='<h3><a href="http://twitter.com/#{h twitter_user}">Twitter statuses</a></h3>';
+					e.innerHTML+='<p><strong>'+a[i]['text']+'</strong> ('+f(d.getHours())+':'+f(d.getMinutes())+':'+f(d.getSeconds())+')</p>';
+				}
+			}
+			function twitter_js(){
+				var e=document.createElement('script');
+				e.type='text/javascript';
+				e.src='http://twitter.com/statuses/user_timeline/#{h twitter_user}.json?callback=twitter_cb&amp;count=20';
+				document.documentElement.appendChild(e);
+			}
+			if(window.addEventListener){
+				window.addEventListener('load',twitter_js,false);
+			}else if(window.attachEvent){
+				window.attachEvent('onload',twitter_js);
+			}else{
+				window.onload=twitter_js;
+			}
+			// --></script>
+			HTML
+			result.gsub( /^\t\t/, '' )
+		end
+
+		add_body_leave_proc do |date|
+			result = <<-HTML
+			<div id="twitter_statuses_#{date.strftime( "%Y%m%d" )}" class="section"></div>
+			HTML
+			result.gsub( /^\t\t/, '' )
+		end
+	end
+end
+
+add_conf_proc( 'twitter_js', 'Twitter' ) do
+
+	if @mode == 'saveconf' then
+		@conf['twitter.user'] = @cgi.params['twitter.user'][0]
+	end
+
+	<<-HTML
+   <h3 class="subtitle">Account Name</h3>
+   <p><input name="twitter.user" value="#{h @conf['twitter.user']}"></p>
+	HTML
+end

data/plugin/ustream.rb

@@ -0,0 +1,19 @@
+#
+# ustream.rb - insert some services of Ustream.tv
+#
+# Copyright (C) 2010, TADA Tadashi <t@tdtds.jp>.
+# You can redistribute it and/or modify it under GPL2.
+#
+
+def ustream( id, type = :recorded )
+	if type == :live then
+		return ''
+	end
+
+	# insert recorded video
+	if @conf.mobile_agent? or @conf.iphone? or feed? then
+		return %Q|<a href="http://www.ustream.tv/recorded/#{id}">Link to Ustream ##{id}</a></p><p>|
+	end
+
+	%Q|<iframe class="ustream" width="480" height="302" src="http://www.ustream.tv/embed/recorded/#{id}?v=3&amp;wmode=direct" scrolling="no" frameborder="0" style="border: 0px none transparent;"></iframe>|
+end

data/plugin/vimeo.rb

@@ -0,0 +1,14 @@
+#
+# vimeo.rb - insert some services of vimeo.com
+#
+# Copyright (C) 2011, Kiwamu Okabe <kiwamu@debian.or.jp>.
+# You can redistribute it and/or modify it under GPL2.
+#
+
+def vimeo( id )
+	if @conf.mobile_agent? or @conf.iphone? or feed? then
+		return %Q|<a href="http://vimeo.com/#{id}">Link to vimeo ##{id}</a></p><p>|
+	end
+
+	%Q|<iframe src="http://player.vimeo.com/video/#{id}?title=0&amp;byline=0&amp;portrait=0" width="400" height="300" frameborder="0" webkitAllowFullScreen allowFullScreen></iframe>|
+end

data/plugin/volatile.rb

@@ -0,0 +1,89 @@
+# hide old diaries
+#
+# options configurable through settings:
+#   @conf['volatile.limit'] : number of diaries to show
+#
+# Copyright (c) MATSUOKA Kohei <http://www.machu.jp/diary/>
+# Distributed under the GPL
+#
+module ::TDiary
+  # 複数の日記を一括して更新するためのクラス
+  class TDiaryBulkUpdate < TDiaryUpdate
+    def initialize( cgi, rhtm, conf )
+      super
+      date = Time::local( *cgi.params['date'][0].scan( /^(\d{4})(\d\d)$/ )[0] )
+      @io.transaction( date ) do |diaries|
+        yield(diaries)
+        # DIRTY_DIARYは@ioへ日記を更新することを伝えるフラグ
+        DIRTY_DIARY
+      end
+    end
+  end
+end
+
+# 古い日記を非表示にするプラグイン
+class VolatileDiaryPlugin
+  def initialize(conf)
+    @conf = conf
+    @limit = conf['volatile.limit'] || 10
+  end
+
+  # all を true にすると全ての日記を対象とする
+  def update(years, all = false)
+    each_recent_diary(years) do |date, diary, count|
+      diary.show(count <= @limit)
+      all || count <= @limit
+    end
+  end
+
+  def each_recent_diary(years)
+    cgi = CGI.new
+    count = 1
+    break_flag = false
+    years.keys.sort.reverse_each do |year|
+      years[year].sort.reverse_each do |month|
+        cgi.params['date'] = ["#{year}#{month}"]
+        cgi.params['year'] = [year]
+        cgi.params['month'] = [month]
+        cgi.params['day'] = ["1"]
+        m = TDiaryBulkUpdate::new(cgi, '', @conf) {|diaries|
+          # diaries.class is Hash (date => diary)
+          diaries.sort.reverse_each do |date, diary|
+            unless yield(date, diary, count)
+              break_flag = true
+              break
+            end
+            count += 1
+          end
+        }
+        break if break_flag
+      end
+      break if break_flag
+    end
+  end
+end
+
+add_update_proc do
+  # 古い日記を非表示にする
+  plugin = VolatileDiaryPlugin.new(@conf)
+  plugin.update(@years)
+end
+
+add_conf_proc('volatile', "揮発性日記", 'update') do
+  if @mode == 'saveconf' then
+    @conf['volatile.limit'] = @cgi.params['volatile.limit'][0].to_i
+    p = VolatileDiaryPlugin.new(@conf)
+    p.update(@years, true)
+  end
+
+  r = <<-HTML
+    <p>日記の更新時に古い日記を非表示にします。</p>
+    <h3>公開する日記の件数</h3>
+    <dl>
+      <dt>公開したい日記の件数を入力してください。</dt>
+      <dd><input name="volatile.limit" value="#{@conf['volatile.limit'] || '10'}"></dd>
+    </dl>
+  HTML
+  r
+end
+