管理 | 差分 || 新規作成 || カテゴリ一覧 | ページ一覧 | 更新履歴 | 差分履歴 || アンテナ || PUT || more≫ ≫omit
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage ||[edit]
category: GuestPage/AsO

GuestPage/AsO/dd - 複数dd要素対応書式

LastModified : Wed Jan 5 18:07:25 2005
[管理]

複数dd要素対応書式

[TOP↑] [管理]

BeginnerGuidanceBeginnerGuidance dl要素内に複数の dd要素を書けるようにします。

書式拡張

[TOP↑] [管理]
"$画像URI$コメント"
"$$継続コメント1"
"$$継続コメント2"

本来の定義書式で使うキャラクタは「:」なのだが、URLを貼りたい時がある。そこで「$」でも可能にした。ついでに「$」の場合は別のCSSクラスとした。

実装

[TOP↑] [管理]

アルバム用のコメント欄をつける。

[TOP↑] [管理]

写真ごとに、コメント欄を設置できるようにします。 この改造には、ページ内に複数のコメント欄を設置するためのカスタマイズ「LinuZau:WalWiki/カスタマイズ/同一ページ内複数コメント」が必要です。

$画像URI$コメント
$$継続コメント1
$$継続コメント2
[[#acomment]]

上のような書式で、コメント欄から継続コメントを書き込めるようになります。 なお、このカスタマイズは sbox には入れていないので、sbox で動作を確認することはできません。

表示サンプル

以下は rica によるカスタマイズです。とても適当なので、添削があったらよろしくです。

グローバル変数

[TOP↑] [管理]
my $embed_acomment = '[[#acomment]]';

sub inline()

[TOP↑] [管理]
               # yakty add [multi comment] start
               (defined($link_cache{$1})) ? $link_cache{$1} :
#               ($1 eq $embed_comment or $1 eq $embed_rcomment) ? &make_link($1) :
               ($1 eq $embed_comment or $1 eq $embed_rcomment or $1 eq $embed_acomment) ? &make_link($1) :    # add
               (length($_ = &make_link($1)) < 1024) ? ($link_cache{$1} = $_) : $_
               # yakty add [multi comment] end

sub do_comment()

[TOP↑] [管理]
   for(my $i=0; $i<=$cmtno; $i++){
#       if($content =~ /(^|\n)((\Q$embed_comment\E)|(\Q$embed_rcomment\E))/){
       if($content =~ /(^|\n)((\Q$embed_comment\E)|(\Q$embed_rcomment\E)|(\Q$embed_acomment\E))/){    #add
           $contenthead .= $`;
           $content = $';
           my $matchstr = $&;
           if($i == $cmtno){
               if ($matchstr =~ s/(\Q$embed_comment\E)/- $datestr$namestr$form{mymsg}\n$1/) {
                   ;
               } elsif ($matchstr =~ s/(\Q$embed_acomment\E)/$$ $namestr$form{mymsg}\n$1/){   #add
                   ;                                                                          #add
               } else {
                   $matchstr =~ s/(\Q$embed_rcomment\E)/$1\n- $datestr$namestr$form{mymsg}/;
               }

sub embedded_to_html()

[TOP↑] [管理]
   my $escapedmypage = &escape($form{mypage});
#   if ($embedded eq $embed_comment or $embedded eq $embed_rcomment) {
   if ($embedded eq $embed_comment or $embedded eq $embed_rcomment or $embedded eq $embed_acomment) {    #add

先生質問!

[TOP↑] [管理]
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage || [edit]
select css: default | sakura | mono | greenheck | snow | NN4.x用(多分) || LinuZau!! | VikiWiki!? || others |

管理 | 差分 || 新規作成 || カテゴリ一覧 | ページ一覧 | 更新履歴 | 差分履歴 || PUT