qwikdoc 0.0.1

data/vendor/qwik/act-style.rb

@@ -0,0 +1,608 @@
+# 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.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-css'
+require 'qwik/act-code'
+
+module Qwik
+  class Action
+    D_PluginStyle = {
+      :dt => 'Style plugin',
+      :dd => 'You can specify styles of the page.',
+      :dc => '* Examples
+** Embed CSS
+ {{css
+ body {
+  background: #efe;
+ }
+ }}
+{{css
+body {
+ background: #efe;
+}
+}}
+
+You can embed any CSS style except some inhibit pattern by this plugin.
+This code specifies the background color of this page.
+
+*** CSS Inhibit Patterns List
+{{css_inhibit_pattern}}
+
+** Specify style to a div block
+ {{style_div("font-size:200%;")
+ This is a test.
+ }}
+{{style_div("font-size:200%;")
+This is a test.
+}}
+
+** Specify class for a div block
+{{block_div("notice")
+This is a test.
+}}
+ {{block_div("notice")
+ This is a test.
+ }}
+You can specify any class here.
+
+** Align center
+ {{center
+ This is a test.~
+ This is a test too.
+ }}
+{{center
+This is a test.~
+This is a test too.
+}}
+
+** Align right
+ {{right
+ This is a test.~
+ This is a test too.
+ }}
+{{right
+This is a test.~
+This is a test too.
+}}
+
+** Align left
+ {{left
+ This is a test.~
+ This is a test too.
+ }}
+{{left
+This is a test.~
+This is a test too.
+}}
+
+Usually, this plugin is not useful.
+I made this plugin only for the symmetry of plugins.
+
+** Float left
+{{float_left
+This is a test.
+}}
+This is a dummy text.~
+This is a dummy text.~
+This is a dummy text.~
+ {{float_left
+ This is a test.
+ }}
+
+** Float right
+{{float_right
+This is a test.
+}}
+This is a dummy text.~
+This is a dummy text.~
+This is a dummy text.~
+ {{float_right
+ This is a test.
+ }}
+
+** Style span
+ This is a {{style_span("font-size:200%;", "very big")}} test string.
+This is a {{style_span("font-size:200%;", "very big")}} test string.
+
+** Small
+ This is a {{small("small")}} string.
+This is a {{small("small")}} string.
+
+** Insert an image
+ {{img(".theme/i/login_qwik_logo.gif")}}
+{{img(".theme/i/login_qwik_logo.gif")}}
+You can specify a link.
+ {{img(".theme/i/login_qwik_logo.gif", "qwikWeb", "http://qwik.jp/")}}
+{{img(".theme/i/login_qwik_logo.gif", "qwikWeb", "http://qwik.jp/")}}
+
+** Make a link to a pge
+ {{a(FrontPage)}}
+{{a(FrontPage)}}
+ {{a(FrontPage, go back)}}
+{{a(FrontPage, go back)}}
+
+** Ascii Art plugin
+You can include ascii art.
+This plugin specifies style sheet for ascii art.
+
+{{{
+{{aa
+�@�@ �ȁQ�ȁ@�@�^�P�P�P�P�P
+�@�@�i�@�L�́M�j���@monar
+�@�@�i�@�@�@�@�j �@�_�Q�Q�Q�Q�Q
+�@�@�b �b�@|
+�@�@�i_�Q�j�Q�j
+}}
+}}}
+{{aa
+�@�@ �ȁQ�ȁ@�@�^�P�P�P�P�P
+�@�@�i�@�L�́M�j���@monar
+�@�@�i�@�@�@�@�j �@�_�Q�Q�Q�Q�Q
+�@�@�b �b�@|
+�@�@�i_�Q�j�Q�j
+}}
+
+{{aa
+�@�@�@�Z�Q�Z 
+�@�@ �i�@�E(�)�E�j �@��Kumar!
+�@�@/J�@��J 
+�@�@���\-J 
+}}
+
+The style sheet simply set "MS P Gothic" font and the line height.
+
+** Code plugin
+You can show codes by this plugin.
+ {{code
+ puts "hello, world!"
+ puts "hello, qwik users!"
+ }}
+{{code
+puts "hello, world!"
+puts "hello, qwik users!"
+}}
+You can see line number in the left of each line.
+
+** Notice plugin
+You can show a notice by this plugin.
+{{notice
+\'\'\'WARNING\'\'\': This is just a sample!
+}}
+ {{notice
+ \'\'\'WARNING\'\'\': This is just a sample!
+ }}
+
+* Monta method plugin
+You can hide a part of text.  Click black box and you\'ll see the text.
+ {{monta("This is an example.")}}
+{{monta("This is an example.")}}
+'
+    }
+
+    D_PluginStyle_ja = {
+      :dt => '�X�^�C���v���O�C��',
+      :dd => '������i���̕\���X�^�C����I�ׂ܂��B',
+      :dc => '* ��
+** CSS���ߍ���
+ {{css
+ body {
+  background: #efe;
+ }
+ }}
+{{css
+body {
+ background: #efe;
+}
+}}
+
+�֎~�p�^�[���ȊO�̔C�ӂ�CSS�𖄍��߂܂��B
+�����ł̓y�[�W�̔w�i��ΐF�ɐݒ肵�Ă܂��B
+
+*** �֎~�p�^�[���ꗗ
+{{css_inhibit_pattern}}
+
+** �i���ւ̃X�^�C���w��
+ {{style_div("font-size:200%;")
+ This is a test.
+ }}
+{{style_div("font-size:200%;")
+This is a test.
+}}
+
+** �i���ւ̃N���X�w��
+{{block_div("notice")
+This is a test.
+}}
+ {{block_div("notice")
+ This is a test.
+ }}
+�C�ӂ̃N���X���w��ł��܂��B
+
+** ���S��
+ {{center
+ This is a test.~
+ This is a test too.
+ }}
+{{center
+This is a test.~
+This is a test too.
+}}
+
+** �E��
+ {{right
+ This is a test.~
+ This is a test too.
+ }}
+{{right
+This is a test.~
+This is a test too.
+}}
+
+** ����
+ {{left
+ This is a test.~
+ This is a test too.
+ }}
+{{left
+This is a test.~
+This is a test too.
+}}
+
+���񂹂͂��܂�g���Ȃ��Ǝv���܂����A
+�v���O�C���̑Ώ̐�����c���Ă��܂��B
+
+** ���ɉ�肱��
+{{float_left
+This is a test.
+}}
+This is a dummy text.~
+This is a dummy text.~
+This is a dummy text.~
+ {{float_left
+ This is a test.
+ }}
+
+** �E�ɉ�肱��
+{{float_right
+This is a test.
+}}
+This is a dummy text.~
+This is a dummy text.~
+This is a dummy text.~
+ {{float_right
+ This is a test.
+ }}
+
+** �e�L�X�g�̈ꕔ�ɃX�^�C���w��
+ This is a {{style_span("font-size:200%;", "very big")}} test string.
+This is a {{style_span("font-size:200%;", "very big")}} test string.
+
+** �e�L�X�g��������
+ This is a {{small("small")}} string.
+This is a {{small("small")}} string.
+
+** �摜������
+ {{img(".theme/i/login_qwik_logo.gif")}}
+{{img(".theme/i/login_qwik_logo.gif")}}
+�����N���͂邱�Ƃ��ł��܂��B
+ {{img(".theme/i/login_qwik_logo.gif", "qwikWeb", "http://qwik.jp/")}}
+{{img(".theme/i/login_qwik_logo.gif", "qwikWeb", "http://qwik.jp/")}}
+
+** �y�[�W�ւ̃����N
+ {{a(FrontPage)}}
+{{a(FrontPage)}}
+ {{a(FrontPage, go back)}}
+{{a(FrontPage, go back)}}
+
+** �A�X�L�[�E�A�[�g�E�v���O�C��
+�A�X�L�[�E�A�[�g�������Ƃ��ɂ����p�������B
+{{{
+{{aa
+�@�@ �ȁQ�ȁ@�@�^�P�P�P�P�P
+�@�@�i�@�L�́M�j���@monar
+�@�@�i�@�@�@�@�j �@�_�Q�Q�Q�Q�Q
+�@�@�b �b�@|
+�@�@�i_�Q�j�Q�j
+}}
+}}}
+{{aa
+�@�@ �ȁQ�ȁ@�@�^�P�P�P�P�P
+�@�@�i�@�L�́M�j���@monar
+�@�@�i�@�@�@�@�j �@�_�Q�Q�Q�Q�Q
+�@�@�b �b�@|
+�@�@�i_�Q�j�Q�j
+}}
+
+{{aa
+�@�@�@�Z�Q�Z 
+�@�@ �i�@�E(�)�E�j �@��Kumar!
+�@�@/J�@��J 
+�@�@���\-J 
+}}
+
+�P�Ƀt�H���g���uMS P�S�V�b�N�v�Ɏw�肵�Ă��邾���ł��B
+
+** �R�[�h�E�v���O�C��
+�R�[�h�𖄍��ނƂ��Ɏg���܂��B
+ {{code
+ puts "hello, world!"
+ puts "hello, qwik users!"
+ }}
+{{code
+puts "hello, world!"
+puts "hello, qwik users!"
+}}
+�s�ԍ��������܂�܂��B
+
+** ���ӎ����\���v���O�C��
+���ӎ�����\������̂Ɏg���܂��B
+{{notice
+\'\'\'WARNING\'\'\': This is just a sample!
+}}
+ {{notice
+ \'\'\'WARNING\'\'\': This is just a sample!
+ }}
+
+* �����^�E���\�b�h�E�v���O�C��
+�e�L�X�g�̈ꕔ���B���܂��B�N���b�N����ƕ\������܂��B
+ {{monta("This is an example.")}}
+{{monta("This is an example.")}}
+'
+    }
+
+    def plg_a(page, text=page)
+      return [:a, {:href=>"#{page}.html"}, text]
+    end
+
+    def plg_img(f, alt=f, link=nil)
+      img = [:img, {:src=>f, :alt=>alt}]
+      img = [:a, {:href=>link}, img] if link
+      return img
+    end
+
+    def plg_css_inhibit_pattern
+      return plg_code { CSS::INHIBIT_PATTERN.join("\n") }
+    end
+
+    def plg_style_div(style='', a='', &b)
+      return unless CSS.valid?(style)
+      b = ''
+      b = yield if block_given?
+      msg = a.to_s + b.to_s
+      x = c_res(msg)
+      x << '' if x.empty?
+      return [:div, {:style=>style}, *x]
+    end
+
+    def plg_block_div(div_class='', a='', &b)
+      return unless CSS.valid?(div_class)
+      b = ''
+      b = yield if block_given?
+      msg = a.to_s + b.to_s
+      x = c_res(msg)
+      x << '' if x.empty?
+      return [:div, {:class=>div_class}, *x]
+    end
+    
+    def plg_float_left(a='', &b)
+      return plg_style_div('float:left;', &b)
+    end
+
+    def plg_float_right(a='', &b)
+      return plg_style_div('float:right;', &b)
+    end
+
+    def plg_left(a='', &b)
+      return plg_style_div('text-align:left;', &b)
+    end
+
+    def plg_center(a='', &b)
+      return plg_style_div('text-align:center;', &b)
+    end
+
+    def plg_right(a='', &b)
+      return plg_style_div('text-align:right;', &b)
+    end
+
+    def plg_style_span(style='', a='')
+      return unless CSS.valid?(style)
+
+      b = ''
+      b = yield if block_given?
+
+      msg = a.to_s + b.to_s
+      x = c_res(msg)
+      w = x[0]
+      war = []
+      if w.nil?
+	war << '' 
+      elsif w.first == :p
+	w.shift
+	war += w
+      else
+	war << w
+      end
+      return [:span, {:style=>style}, *war]
+    end
+
+    def plg_small(a='', &b)
+      return plg_style_span('font-size:smaller;', a, &b)
+    end
+
+    def plg_css
+      str = yield
+      return 'error' unless CSS.valid?(str)
+      return [:style, str]
+    end
+    alias plg_style plg_css
+
+    # ============================== monta
+    MONTA_STYLE = 'background-color:black;text:black;'
+    MONTA_SCRIPT = "this.style.backgroundColor='transparent';this.style.text='inherited';return true;"
+    def plg_monta(*a)
+      element = :span
+      txt = a.shift
+      if block_given?
+	element = :div
+	txt = yield
+      end
+
+      return if txt.nil?
+
+      return [element, {:style=>MONTA_STYLE, :onmouseup=>MONTA_SCRIPT}, txt]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActStyle < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      # test_a
+      ok_wi [:a, {:href=>"b.html"}, "b"], '{{a(b)}}'
+      ok_wi [:a, {:href=>"b.html"}, "c"], '{{a(b, c)}}'
+
+      # test_img
+      ok_wi([:img, {:alt=>"t", :src=>"t"}], '{{img(t)}}')
+      ok_wi([:img, {:alt=>"m", :src=>"t"}], '{{img(t, m)}}')
+      ok_wi([:a, {:href=>"http://e.com/"}, [:img, {:alt=>"m", :src=>"t"}]],
+	    "{{img(t, m, http://e.com/)}}")
+      ok_wi([:a, {:href=>"http://qwik.jp/"},
+	      [:img, {:alt=>"qwikWeb", :src=>".theme/i/login_qwik_logo.gif"}]],
+	    "{{img(\".theme/i/login_qwik_logo.gif\", \"qwikWeb\", \"http://qwik.jp/\")}}")
+
+      # test_inhibit_pattern
+      ok_wi(/javascript/, "{{css_inhibit_pattern}}")
+
+      # test_style_div
+      ok_wi [:div, {:style=>"text-align:center;"}, [:p, "y"]],
+	    "{{style_div(text-align:center;)
+y
+}}"
+      ok_wi [:div, {:style=>"text-align:center;"}, [:p, "<"]],
+	    "{{style_div(text-align:center;)
+<
+}}"
+      ok_wi [], "{{style_div(@i)
+y
+}}"
+
+      # test_float_left
+      ok_wi [:div, {:style=>"float:left;"}, [:p, "This is a test."]],
+	"{{float_left
+This is a test.
+}}"
+
+      # test_float_right
+      ok_wi [:div, {:style=>"float:right;"}, [:p, "This is a test."]],
+	"{{float_right
+This is a test.
+}}"
+
+      # test_left
+      ok_wi [:div, {:style=>"text-align:left;"}, [:p, "a"]],
+	"{{left
+a
+}}"
+
+      # test_center
+      ok_wi [:div, {:style=>"text-align:center;"}, [:p, "a"]],
+	"{{center
+a
+}}"
+      ok_wi [:div, {:style=>"text-align:center;"}, "test"],
+	    "{{center
+{{qwik_test}}
+}}"
+      ok_wi [:div, {:style=>"text-align:center;"},
+	[:img, {:alt=>"t", :src=>"t"}]],
+	"{{center
+{{img(t)}}
+}}"
+
+      # test_right
+      ok_wi [:div, {:style=>"text-align:right;"}, [:p, "a"]],
+	"{{right
+a
+}}"
+
+      # test_style_span
+      ok_wi [:p, "a", [:span, {:style=>"font-size:200%;"}, "b"], "c"],
+	'a{{style_span("font-size:200%;", "b")}}c'
+
+      # test_small
+      ok_wi [:span, {:style=>"font-size:smaller;"}, ""],
+	"{{small
+}}"
+      ok_wi [:span, {:style=>"font-size:smaller;"}, "a"],
+	'{{small(a)}}'
+      ok_wi [:span, {:style=>"font-size:smaller;"}, "a"],
+	"{{small
+a
+}}"
+      ok_wi [:span, {:style=>"font-size:smaller;"}, "a"],
+	"{{small(a)
+}}"
+      ok_wi [:span, {:style=>"font-size:smaller;"}, "aa"],
+	"{{small(a)
+a
+}}"
+      ok_wi [:span, {:style=>"font-size:smaller;"},
+	[:img, {:alt=>"t", :src=>"t"}]],
+	"{{small
+{{img(t)}}
+}}"
+
+      # test_css
+      ok_wi [:style, "a\n"],
+	    "{{css
+a
+}}"
+      ok_wi [:style, "a\n"],
+	    "{{style
+a
+}}"
+      ok_wi [:style, "h2 { color: red }\n"],
+	    "{{css
+h2 { color: red }
+}}"
+      ok_wi ["error"], "{{css
+@import
+}}"
+      ok_wi ["error"], "{{css
+\\important
+}}"
+      ok_wi ["error"], "{{css
+javascript
+}}"
+
+      ok_wi [:div, {:class=>"notice"}, [:p, "y"]],
+	"{{block_div(notice)
+y
+}}"
+
+      # test_monta
+      ok_wi [], '{{monta}}'
+      ok_wi [:span, {:style=>'background-color:black;text:black;',
+	  :onmouseup=>"this.style.backgroundColor='transparent';this.style.text='inherited';return true;"},
+	't'],
+	'{{monta(t)}}'
+
+      ok_wi [:div, {:style=>'background-color:black;text:black;',
+	  :onmouseup=>"this.style.backgroundColor='transparent';this.style.text='inherited';return true;"},
+	"t
+"],
+	"{{monta
+t
+}}"
+    end
+  end
+end