qwik2md 0.1.0

data/vendor/qwik/lib/qwik/act-wema.rb

@@ -0,0 +1,558 @@
+# -*- coding: shift_jis -*-
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+# Thanks to Mr. Kan Fushihara
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/act-monitor'
+
+module Qwik
+  $wema_debug = false
+  $wema_redirect = true
+
+  class Action
+    D_PluginWema = {
+      :dt => 'Post-it plugin',
+      :dd => 'You can put post-it notes on the page.',
+      :dc => "* How to
+ {{wema}}
+{{wema}}
+
+Embed this wema plugin to your page.
+Click 'New Post-it' link, then you see a small window.
+Enter some text and save it.
+You can move the small window and click set for setting the position.
+* Thanks
+I start development from [[wema|http://wema.sourceforge.jp/]]
+by Mr. Kan Fushihara.  Thank you very much.
+"
+    }
+
+    D_PluginWema_ja = {
+      :dt => '附箋機能 ',
+      :dd => '附箋をはることができます。',
+      :dc => '* 使用法
+ {{wema}}
+{{wema}}
+
+ページ中に上記のようにwemaプラグインをうめこみます。
+「New Post-it」というリンクを押すと、小さなWindowが表示されます。
+なにかテキストをいれ、セーブしてください。
+Windowを動かして、「set」を押すと位置をセットします。
+* 感謝
+伏原幹氏による「[[wema|http://wema.sourceforge.jp/]]」を元に開発いたし
+ました。どうもありがとうございます。
+'
+    }
+
+    # Show only if there is already wema.
+    def plg_wema_compat
+      return if @site[@req.base].nil?
+      return if defined?(@wema_generated)
+      wp = WemaPage.new(@site, @site[@req.base])
+      wemas = wp.get_wemas
+      if wemas.empty?
+	# create wema link.
+	return [:a, {:href=>'PluginWema.describe'}, _('Post-it')]
+      end
+      @wema_generated = true
+      return WemaHtmlGenerator.generate(wemas, @req.base)
+    end
+
+    def plg_wema
+      return if @site[@req.base].nil?
+      return if defined?(@wema_generated)
+      wp = WemaPage.new(@site, @site[@req.base])
+      wemas = wp.get_wemas
+      @wema_generated = true
+      return WemaHtmlGenerator.generate(wemas, @req.base)
+    end
+
+    def ext_wema
+      c_require_post
+      c_require_login
+
+      wp = WemaPage.new(@site, @site[@req.base])
+      redirect = "#{@req.base}.html"
+      redirect = nil if $wema_debug
+
+      mode = @req.query['mode']
+      wid  = @req.query['id']		# wema id
+      connected = @req.query['ln']
+      left = @req.query['l']
+      top  = @req.query['t']
+      fg   = @req.query['tc']
+      bg   = @req.query['bg']
+      text = @req.query['body']
+
+      mode = 'delete' if mode == 'edit' && text.empty?
+
+      case mode
+      when 'edit'
+	if wid.nil? || wid.empty?	# create new
+	  wema = wp.create_new
+	  msg = _('New post-it is created.')
+	else
+	  id = wid.sub(/\Aid/, '').to_i
+	  wp.get_wemas
+	  wema = wp[id]
+	  msg = _('Edit done.')
+	end
+
+	if wema
+	  wema.set(connected, left, top, fg, bg, text)
+	  c_make_log('wemaedit') # WEMAEDIT
+	  #c_monitor('wemaedit') # WEMAEDIT
+	end
+	return wema_jump(msg, redirect)
+
+      when 'delete'
+	if wid.nil? || wid.empty?
+	  return wema_jump(_('No action.'), redirect)
+	end
+
+	id = wid.sub(/\Aid/, '').to_i
+	wp.get_wemas
+	wema = wp[id]
+	wp.delete(id)
+	c_make_log('wemadelete') # WEMADELETE
+	#c_monitor('wemadelete') # WEMADELETE
+	return wema_jump(_('Delete a Post-it.'), redirect)
+
+      when 'setpos'
+	wid = nil if wid.empty?
+	return c_nerror('wid is nil') if wid.nil?
+	  
+	id = wid.sub(/\Aid/, '').to_i
+	wp.get_wemas
+	wema = wp[id]
+	return c_nerror('can not get wema') if wid.nil?
+	wema.setpos(left, top)
+
+	#c_make_log('wemasetpos') # too many...
+	#c_monitor('wemasetpos')
+	return wema_jump(_('Set position.'), redirect)
+
+      else
+	return c_nerror("Unknown mode: [#{mode}]")
+
+      end
+    end
+
+    def wema_jump(msg, url)
+      return c_nredirect(msg, url) if $wema_redirect
+      return c_notice(msg, url)
+    end
+  end
+
+  class WemaPage
+    include Enumerable
+
+    def initialize(site, page)
+      @site = site
+      @page = page
+      @pagename = @page.key
+      @wemas = []
+    end
+    attr_reader :site, :pagename
+
+    def get_wemas
+      @wemas = get_list.map {|id|
+	Wema.new(self, id)
+      }
+      return @wemas
+    end
+
+    def [](id)
+      @wemas.each {|wema|
+	return wema if wema.id == id
+      }
+      return nil
+    end
+
+    def create_new
+      return create(get_new_id)
+    end
+
+    def delete(k)
+      self[k].delete
+      @wemas[k] = nil
+    end
+
+    private
+
+    def get_new_id
+      list = get_list
+      return 1 if list.empty?
+      return list.max + 1
+    end
+
+    def create(id)
+      return Wema.new(self, id)
+    end
+
+    def get_list
+      list = []
+      @site.to_a(true).each {|page|	# true means get all pages.
+	if /\A_#{@pagename}_wema_([0-9]+)\z/ =~ page.key
+	  list << $1.to_i
+	end
+      }
+      list
+    end
+
+    def get_lines
+      lines = []
+      @wemas.each {|wema|
+	connected = wema.connected
+	if connected && ! connected.empty?
+	  lines << [wema.id, connected]
+	end
+      }
+      lines
+    end
+  end
+
+  class Wema
+    def initialize(wemapage, id)
+      @wemapage, @id = wemapage, id
+      @site = @wemapage.site
+      pagename = key(id)
+      @page = @site[pagename]
+      @page = @site.create(pagename) if @page.nil?
+      @connected = @x = @y = @fg = @bg = @text = nil
+      parse(@page.load)
+    end
+    attr_reader :id, :connected, :x, :y, :fg, :bg, :text
+
+    def get_data
+      data = {
+	:id	=> @id,
+	:connected => @connected,
+	:x	=> @x,
+	:y	=> @y,
+	:fg	=> @fg,
+	:bg	=> @bg,
+	:text	=> @text,
+      }
+      return data
+    end
+
+    def set(connected, x, y, fg, bg, text)
+      set_px(x) {|a| @x = a }
+      set_px(y) {|a| @y = a }
+      set_color(fg) {|a| @fg = a }
+      set_color(bg) {|a| @bg = a }
+      set_text(text) {|a| @text = a }
+      set_str(connected) {|a| @connected = a }
+      store
+    end
+
+    def setpos(x, y)
+      set(nil, x, y, nil, nil, nil)
+    end
+
+    def get_id
+      return "id#{@id}"
+    end
+
+    def delete
+      @site.delete(key(id))
+    end
+
+    private
+
+    def key(id)
+      return "_#{@wemapage.pagename}_wema_#{id}"
+    end
+
+    def parse(str)
+      lines = str.to_a
+      f = lines.shift # first line
+      return if f.nil?
+      f.chomp!
+      dummy, @connected, @x, @y, @fg, @bg = f.split(',')
+      @text = lines.join('')
+    end
+
+    def store
+      str = [nil, @connected, @x, @y, @fg, @bg].join(',')+"\n"
+      str << @text.to_s
+      @page.store(str)
+    end
+
+    private
+
+    def set_px(a)
+      return if is_nil?(a)
+      yield a.sub(/px$/, '').to_i
+    end
+
+    def set_color(a)
+      return if is_nil?(a)
+      return unless /\A[\#a-z0-9]+\z/ =~ a
+      yield a
+    end
+
+    def set_text(a)
+      return if is_nil?(a)
+      yield a.delete("\r").chomp+"\n"
+    end
+
+    def set_str(a)
+      return if is_nil?(a)
+      return unless /\A[a-z0-9]+\z/ =~ a
+      yield a
+    end
+
+    def is_nil?(a)
+      return a.nil? || ! a.is_a?(String) || a.empty?
+    end
+  end
+
+  class WemaHtmlGenerator
+    def self.generate(wemas, pagename)
+      ar = [:div]
+      ar << load_css		# At the first, load CSS.
+      ar << make_menu		# Then, make menu.
+      wemas.each {|wema|
+	ar << get_div(wema)	# Create all divs for wemas.
+      }
+      ar << editor_html(pagename)	# Create an editor.
+      ar << load_js		# At the last, load JavaScript.
+      return ar
+    end
+
+    private
+
+    def self.load_css
+      return [:style, "@import '.theme/css/wema.css';"]
+    end
+
+    def self.make_menu
+      return [:span, {:class=>'attribute'}, 'Post-it', ': ',
+	[:a, {:href=>'javascript:wema_editor_show()'}, 'New Post-it'],
+	' (', [:a, {:href=>'javascript:wema_help_show()'}, 'Help'], ')']
+    end
+
+    def self.load_js
+      [:script, {:type=>'text/javascript', :src=>'.theme/js/wema.js'}, '']
+    end
+
+    # ============================== wema window
+    def self.get_div(wema)
+      k = wema.get_id
+
+      text = wema.text || ''
+
+      tokens = TextTokenizer.tokenize(text, true)
+      h = TextParser.make_tree(tokens)
+
+      h = resolve_href(h)
+
+      h << '' if h.length == 0
+
+      fg = wema.fg
+      fg = '#000' if fg.nil? || fg.empty?
+      bg = wema.bg
+      bg = '#fff' if bg.nil? || bg.empty?
+
+      x = wema.x
+      y = wema.y
+
+      div = [:div, {:id=>k, :class=>'wema',
+	  :style=>"left:#{x}px;top:#{y}px;color:#{fg};background:#{bg};",
+	  :wema_tc=>wema.fg,
+	  :wema_bg=>wema.bg,
+	  :wema_ln=>wema.connected,
+	  :wema_d=>wema.text},
+	[:div, {:class=>'menubar'}, [:span, {:class=>'handle'}, k],
+	  [:span, {:class=>'cmd'},
+	    [:a, {:href=>"javascript:wema_setpos('#{k}')"}, 'set'],
+	    [:a, {:href=>"javascript:wema_edit('#{k}')"}, 'edit'],
+	    [:a, {:href=>"javascript:wema_link('#{k}')"}, 'link']]],
+	[:div, {:class=>'cont'}, h]]
+      return div
+    end
+
+    def self.resolve_href(wabisabi)
+      wabisabi.each_tag(:a){|w|
+	ww = resolve_ref(w)
+	w = ww ? ww : [w]
+	w
+      }
+    end
+
+    def self.resolve_ref(w)
+      attr = w[1]
+      return nil if attr.nil? || !attr.is_a?(Hash)
+      href = attr[:href].to_s
+
+      if /^(?:http|https|ftp|file):\/\// =~ href	# external link
+	w.set_attr :class=>'external', :rel=>'nofollow',
+	  :href=>".redirect?url=#{href}"
+	return [w]
+      end
+
+      return nil
+    end
+
+    # ============================== editor window
+    def self.editor_html(pagename)
+      action = "#{pagename}.wema"
+      return [:div, {:id=>'editor', :class=>'wema'},
+	[:div, {:class=>'menubar'},
+	  [:span, {:class=>'handle'}, 'editor'],
+	  [:span, {:class=>'close'},
+	    [:a, {:href=>'javascript:wema_editor_hide()'}, 'X']]],
+	[:div, {:class=>'cont'},
+	  [:form, {:method=>'POST', :action=>action,
+	      :id=>'frm', :name=>'frm'},
+	    [:p, {:class=>'save'},
+	      [:input, {:type=>'submit', :value=>'Save'}]],
+	    [:textarea, {:name=>'body', :cols=>'40', :rows=>'7'}, ''],
+	    font_color,
+	    bg_color,
+	    [:p, 'Draw Line: ', text('ln')],
+	    [:p, 'x:', text('l'), ' y:', text('t')],
+	    param('id', ''),
+	    param('mode', 'edit')]]]
+    end
+
+    def self.font_color
+      ar = ['Text color: ', [:input, {:id=>'tc', :name=>'tc'}]]
+      ar += ['#000', '#600', '#060', '#006'].map {|c| radio_color('tc', c) }
+      return [:p, ar]
+    end
+
+    def self.bg_color
+      ar = ['Background'+': ', [:input, {:id=>'bg', :name=>'bg'}]]
+      ar += ['#fff', '#fcc', '#cfc', '#ccf', '#ffc', '#000'].map {|c|
+	radio_color('bg', c)
+      }
+      return [:p, ar]
+    end
+
+    def self.radio_color(name, color)
+      return [:a, {:href=>"javascript:wema_set_color('#{name}', '#{color}')",
+	  :class=>'color',
+	  :style=>"color:#{color};background:#{color};"}, '[_]']
+    end
+
+    def self.param(*a)
+      return text(*a) if $wema_debug
+      return hidden(*a)
+    end
+
+    def self.text(a='', b=nil)
+      h = {}
+      h.update(:name=>a) if a
+      h.update(:value=>b) if b
+      return [:input, h]
+    end
+
+    def self.hidden(a='', b=nil)
+      h = {:type=>'hidden'}
+      h.update(:name=>a) if a
+      h.update(:value=>b) if b
+      return [:input, h]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestExtWema < Test::Unit::TestCase
+    include TestSession
+
+    def test_act_wema
+      t_add_user
+
+      page = @site['_PageAttribute']
+      page.store '{{wema}}'
+
+      page = @site.create_new
+
+      res = session '/test/1.wema'
+      ok_title 'Please input POST'
+
+      res = session 'POST /test/1.wema'
+      assert_text 'Unknown mode: []', 'title'
+
+      res = session 'POST /test/1.wema?mode=edit&body='
+      ok_title 'No action.'
+
+      res = session 'POST /test/1.wema?mode=edit&body=t'
+      ok_title 'New post-it is created.'
+      page = @site['_1_wema_1']
+      eq ",,,,,\nt\n", page.load
+
+      res = session 'POST /test/1.wema?mode=edit&id=id1&body=t2'
+      ok_title 'Edit done.'
+      page = @site['_1_wema_1']
+      eq ",,,,,\nt2\n", page.load
+
+      res = session 'POST /test/1.wema?mode=setpos&id=id1&l=1&t=2'
+      ok_title 'Set position.'
+      page = @site['_1_wema_1']
+      eq ",,1,2,,\nt2\n", page.load
+
+      res = session '/test/1.html'
+      ok_title '1'
+      ok_in ['t2'], "//div[@class='wema']/p"
+      ok_in [:p, 't2'], "//div[@class='wema']/div[@class='cont']"
+
+      res = session 'POST /test/1.wema?mode=edit&id=id1&body=* t3'
+      ok_title 'Edit done.'
+      page = @site['_1_wema_1']
+      eq ",,1,2,,\n* t3\n", page.load
+
+      res = session '/test/1.html'
+      ok_in [:h2, 't3'], "//div[@class='wema']/div[@class='cont']"
+
+      res = session 'POST /test/1.wema?mode=edit&id=id1&body={{recent}}'
+      ok_title 'Edit done.'
+      page = @site['_1_wema_1']
+      eq ",,1,2,,\n{{recent}}\n", page.load
+
+      res = session '/test/1.html'
+      ok_in [:plugin, {:method=>'recent', :param=>''}],
+	"//div[@class='wema']/div[@class='cont']"
+
+      res = session 'POST /test/1.wema?mode=edit&id=id1&body=http://e.com/'
+      ok_title 'Edit done.'
+      page = @site['_1_wema_1']
+      eq ",,1,2,,\nhttp://e.com/\n", page.load
+
+      res = session '/test/1.html'
+      ok_xp [:a, {:href=>'.redirect?url=http://e.com/',
+	  :rel=>'nofollow', :class=>'external'}, 'http://e.com/'],
+	"//div[@class='wema']/p/a"
+
+      res = session 'POST /test/1.wema?mode=edit&id=id1&body='
+      ok_title 'Delete a Post-it.'
+      page = @site['_1_wema_1']
+# comment outed due to cache issue.
+#      eq nil, page
+    end
+
+    def test_act_wema_without_login
+      t_add_user
+
+      page = @site.create_new
+
+      res = session('POST /test/1.wema?mode=edit&body=t') {|req|
+	req.cookies.delete('user')
+	req.cookies.delete('pass')
+      }
+      ok_title 'Login'
+      eq false, @site.exist?('_1_wema_1')
+    end
+  end
+end