[Pyukiwiki-cvs 0008747] CVS update: PyukiWiki-Devel/plugin

Back to archive index

PyukiWiki CVS Commit pyuki****@lists*****
2012年 3月 18日 (日) 03:48:13 JST


Index: PyukiWiki-Devel/plugin/edit_extend.inc.pl
diff -u PyukiWiki-Devel/plugin/edit_extend.inc.pl:1.5 PyukiWiki-Devel/plugin/edit_extend.inc.pl:1.6
--- PyukiWiki-Devel/plugin/edit_extend.inc.pl:1.5	Sun Mar 18 03:23:14 2012
+++ PyukiWiki-Devel/plugin/edit_extend.inc.pl	Sun Mar 18 03:48:13 2012
@@ -1,6 +1,6 @@
 #######################################################################
 # edit_extend.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: edit_extend.inc.pl,v 1.5 2012/03/17 18:23:14 papu Exp $
+# $Id: edit_extend.inc.pl,v 1.6 2012/03/17 18:48:13 papu Exp $
 #
 # "PyukiWiki" ver 0.2.0-p3 $$
 # Author: Nanami http://nanakochi.daiba.cx/
@@ -19,12 +19,24 @@
 
 use strict;
 
+$edit_extend::read_instagcss=0;
+$edit_extend::read_instagjs=0;
+$edit_extend::read_jquery=0;
+
 sub plugin_edit_extend_edit_init {
 	%::resource=&read_resource("$::res_dir/edit_extend.$::lang.txt", %::resource);
-	$::IN_HEAD.=qq(<link rel="stylesheet" href="$::skin_url/instag.css" type="text/css" media="screen" charset="utf-8">
-\n);
+	if(-r "$::skin_dir/instag.css") {
+		$::IN_HEAD.=qq(<link rel="stylesheet" href="$::skin_url/instag.css" type="text/css" media="screen" charset="utf-8">\n);
+		$edit_extend::read_instagcss=1;
+	}
+	if(-r "$::skin_dir/jquery.js") {
 	$::IN_HEAD.=qq(<script type="text/javascript" src="$::skin_url/jquery.js"></script>\n);
-	$::IN_HEAD.=qq(<script type="text/javascript" src="$::skin_url/instag.js"></script>\n);
+		$edit_extend::read_jquery=1;
+	}
+	if(-r "$::skin_dir/instag.js") {
+		$::IN_HEAD.=qq(<script type="text/javascript" src="$::skin_url/instag.js"></script>\n);
+		$edit_extend::read_instagjs=1;
+	}
 }
 
 sub mkextend {
@@ -39,6 +51,9 @@
 
 sub plugin_edit_extend_edit {
 	my $body;
+	return
+		if($edit_extend::read_instagcss eq 0 || $edit_extend::read_instagjs eq 0);
+
 	$body="<div>";
 	$body.=&mkextend(
 		"edit_plugin_instag_bold", qq(\\'\\'), qq(\\'\\'), "<strong>B</strong>");
@@ -90,46 +105,48 @@
 			qq(<span style="color:$name;background-color:$name;">&nbsp;&nbsp;</span>));
 	}
 }
-	my $teststring=$::resource{edit_plugin_instag_color_title};
-	my $teststring2=$::resource{edit_plugin_instag_size_teststring};
+	if($edit_extend::read_jquery) {
 
-	# ƒtƒHƒ“ƒg		# comment
-	$body.=<<EOD;
+		my $teststring=$::resource{edit_plugin_instag_color_title};
+		my $teststring2=$::resource{edit_plugin_instag_size_teststring};
+
+		# ƒtƒHƒ“ƒg		# comment
+		$body.=<<EOD;
 <a href="#" onclick="return false;" id="panellink4">
 <span style="font-weight: bold;">$::resource{edit_plugin_instag_font_title}</span></a>
 <span class="editpanel editfontpanel" id="panelbody4">
 EOD
-	foreach(split(/,/,$::resource{edit_plugin_instag_fontlist})) {
-		$body.=<<EOD;
+		foreach(split(/,/,$::resource{edit_plugin_instag_fontlist})) {
+			$body.=<<EOD;
 <a href="http://www.daiba.cx" onclick="insTag('&font(@{[$_]}){','};','font');return true;" class="jqmClose fontsample" style="font-size:$::resource{edit_plugin_instag_fontlist_samplesize}px; font-family: $_;">
 $teststring2 ($_)</a><br />
 EOD
-	}
-	$body.=<<EOD;
+		}
+		$body.=<<EOD;
 </a>
 </span>
 EOD
 
-	# ƒTƒCƒY		# comment
-	$body.=<<EOD;
+		# ƒTƒCƒY		# comment
+		$body.=<<EOD;
 <a href="#" onclick="return false;" id="panellink3">
 <span style="font-weight: bold;">$::resource{edit_plugin_instag_size_title}</span></a>
 <span class="editpanel editsizepanel" id="panelbody3">
 EOD
 
-	foreach(split(/,/,$::resource{edit_plugin_instag_sizelist})) {
-		$body.=<<EOD;
+		foreach(split(/,/,$::resource{edit_plugin_instag_sizelist})) {
+			$body.=<<EOD;
 <a href="#" onclick="insTag('&size(@{[$_]}px){','};','size');return false;" class="jqmClose sizesample" style="font-size:@{[$_]}px">
 $teststring2 (@{[$_]}px)</a><br />
 EOD
-	}
-	$body.=<<EOD;
+		}
+		$body.=<<EOD;
 </a>
 </span>
-EOD
+	EOD
 
-	# •¶ŽšF		# comment
-	$body.=<<EOD;
+		# •¶ŽšF		# comment
+		$body.=<<EOD;
 <a href="#" onclick="return false;" id="panellink1">
 <span style="font-weight: bold; color:red;">$teststring</span></a>
 <span class="editpanel editcolorpicker" id="panelbody1">
@@ -138,8 +155,8 @@
 </span>
 EOD
 
-	# ”wŒiF		# comment
-	$body.=<<EOD;
+		# ”wŒiF		# comment
+		$body.=<<EOD;
 <a href="#" onclick="return false;" id="panellink2">
 <span style="font-weight: bold; color:white; background-color:red;">$teststring</span></a>
 <span class="editpanel editcolorpicker" id="panelbody2">
@@ -148,27 +165,28 @@
 </span>
 EOD
 
-	# Šç•¶Žš		# comment
-	if($::usePukiWikiStyle) {
-		$body.=<<EOD;
+		# Šç•¶Žš		# comment
+		if($::usePukiWikiStyle) {
+			$body.=<<EOD;
 <a href="#" onclick="return false;" id="panellink5">
 <span style="font-weight: bold;">$::resource{edit_plugin_instag_face_title}</span></a>
 <span class="editpanel editfacepanel" id="panelbody5">
 EOD
-		foreach(split(/,/,$::resource{edit_plugin_instag_face_list})) {
-			my $img=&text_to_html($_);
-			$img=~s/<p>//g;
-			$img=~s/<\/p>//g;
-			$body.=<<EOD;
+			foreach(split(/,/,$::resource{edit_plugin_instag_face_list})) {
+				my $img=&text_to_html($_);
+				$img=~s/<p>//g;
+				$img=~s/<\/p>//g;
+				$body.=<<EOD;
 <a href="#" onclick="insTag('$_','','');return false;" class="jqmClose facesample">
 $img</a>
 EOD
-		}
-		$body.=<<EOD;
+			}
+			$body.=<<EOD;
 </a>
 </span>
 EOD
 
+		}
 	}
 	$body.=<<EOD;
 </div>



Pyukiwiki-cvs メーリングリストの案内
Back to archive index