4 번째 수정본 소스 보기 : UseModWiki소스수정/WikiHeading

내용출력

로그인[l]

수정할 수 없습니다: UseModWiki소스수정/WikiHeading 는 읽기 전용 페이지입니다.

== Wiki Heading 개선 ==
Jof:UseModWiki소스수정/WikiHeading개선""을 그대로 적용. Thanks to [[조프]].

* 사용법: 
** <toc>가 있을 경우, 각 헤드라인에 있는 번호를 클릭하면 목차로 되돌아간다.
** Jof:UseModWiki소스수정/WikiHeading개선 참조

=== wiki.pl 수정 ===
{{{#!vim perl
sub WikiToHTML {
    ...
### 아래 한 줄 추가
    $pageText =~ s/&__LT__;toc&__GT__;/<a name="toc"><\/a>$TableOfContents/i;
    $pageText =~ s/&__LT__;toc&__GT__;/$TableOfContents/gi;
    ...
}
}}}

{{{#!vim perl
sub WikiHeadingNumber {
    ...
#   return &StoreHref(" name=\"$anchor\"") . $number;          마지막 줄을 다음과 같이 수정
    return &StoreHref(" name='$anchor' href='#toc'",$number);
}
}}}

=== 추가 업데이트 내역 ===

=== 사용자 의견 ===

wikicreole markup suggested (in coexistence with earlier markup). \\
First of all, I'm not sure where the exact site for cutting regular expresion at "/(^[ \t]*(\=+)\s+[^\n]+\s+\=+\s*$)/", but works fine by now. \\
<pre> \\
sub DoEdit { \\
    - while ($temp_text =~ /(^[ \t]*(\=+)\s+[^\n]+\s+\=+\s*$)/gm) { \\
    + while ($temp_text =~ /(^[ \t]*(\=+)\s+[^\n]*$)/gm) { \\
      $num++; \\
      $h_pos[$num] = pos($temp_text) - length($1); \\
      $h_depth[$num] = length($2); \\
      if ($num == $section) { # summary \\
        my $h_str = $1; \\
 \\
        - $h_str =~ /^[ \t]*\=+\s+(#\s+)?([^\n]+)\s+\=+\s*$/; \\
        + $h_str =~ /^[ \t]*\=+\s+(#\s+)?([^\n]+)\s+\s*$/; \\
        $h_str = $2; \\
        + # suppress the "=" series on the right of header \\
        + $h_str =~ s/(\=+)?//g; \\
        + # suppress possible blank before the "=" series on the right of header \\
        + $h_str =~ s/( +)?$//g; \\
        $h_str =~ s/"/"/g; \\
        $q->param("summary", "$h_str - "  \\
                  . &GetParam("summary", "")) unless $preview || $saveEdit; \\
        $header .= '. ' . T('Section') . '=' . $num . ': ' . $h_str ; \\
      } \\
    } \\
 .... \\
sub CommonMarkup { \\
  s/(^|\n)\s*(\=+)\s+([^\n]+)\s+\=+/&WikiHeading($1, $2, $3)/geo; \\
  + # creole heading \\
  + s/(^|\n)\s*(\=+)\s+([^\n]+)/&WikiHeading($1, $2, $3)/geo; \\
... \\
sub  DoPostMain { \\
... \\
 - while ($temp_text =~ /(^[ \t]*(\=+)\s+[^\n]+\s+\=+\s*$)/gm) { \\
 + while ($temp_text =~ /(^[ \t]*(\=+)?\s+[^\n]*$)/gm) { \\
 \\
End. <mysign([[JuanmaMP]],2012-7-11 11:17 am)>
<longcomments(UseModWiki소스수정/WikiHeading,100)>
----
[[위키위키분류]]

UseModWiki소스수정/WikiHeading 페이지로 돌아가기 | 다른 수정본 보기