Форум программистов [Powered by Invision Power Board]

Код

<?/*
    при создании типографа помимо личного опыта использовались:
      http://philigon.ru/
      http://artlebedev.ru/kovodstvo/
      http://pvt.livejournal.com/
*/

// типографит html
function typo($str)
{
    $safe_blocks = array(
        "<pre[^>]*>" => "<\/pre>",
        "<style[^>]*>" => "<\/style>",
        "<script[^>]*>" => "<\/script>",
        "<!--" => "-->",
    );

    $pattern = "((?U)";
    foreach ($safe_blocks as $start => $end) $pattern .= "$start.*$end|";
    $pattern .= "<[^>]*[\s][^>]*>)";
    $str = preg_replace_callback("/$pattern/is", '_typo_stack', $str);

    $str = typo_text($str);
    $str = strtr($str, _typo_stack());
    return $str;
}


function _typo_stack($m = false)
{    
    static $arr = array();
    if ($m !== false)
    {
        $key = "<tag".count($arr).">";
        $arr[$key] = $m[0];
        return $key;
    }
    else
    {
        $t = $arr;
        unset($arr);
        return $t;
    }
}


// типографит текст.
function typo_text($str){
    if (trim($str) == "") return "";
      
    // то, что предположительно захочется переопределять
    $sym = array(
        "nbsp"    => "&nbsp;",
        "lnowrap" => '<span style="white-space:nowrap">',
        "rnowrap" => "</span>",

        "lquote"  => "&laquo;",
        "rquote"  => "&raquo;",
        "lquote2" => "&lsquo;",
        "rquote2" => "&rsquo;",

        "mdash"   => "&mdash;",
        "ndash"   => "&ndash;",
        "minus"   => "&minus;",

        "hellip"  => "&hellip;",
        "copy"    => "&copy;",
        "trade"   => "&trade;",
        "apos"    => "'",   // см. http://fishbowl.pastiche.org/2003/07/01/the_curse_of_apos
        "reg"     => "&reg;",
    );


    $html_tag = "(?:(?U)<.*>)";
    $hellip = "\.{2,4}";
    
    $phrase_end   = "(?:[)!?.]|$|\w)";
    $phrase_begin = "(?:$hellip|\w)";
    $any_quote    = "(?:$sym[lquote]|$sym[rquote]|$sym[lquote2]|$sym[lquote2])";
    
    $replace = array(

         // кавычки        
        "/(?<=\s|^)($html_tag*)(\")($html_tag*$phrase_begin$html_tag*)/"    => '$1'.$sym['lquote'].'$3',
        "/($html_tag*$phrase_end$html_tag*)(\")($html_tag*$phrase_end$html_tag*|\s|[,:])/"    => '$1'.$sym['rquote'].'$3',

        // Знак дефиса или два знака дефиса подряд - на знак длинного тире.
        // + Нельзя разрывать строку перед тире, например: Знание - сила, Курить - здоровью вредить.
        "/(\s+|^)(--?)(?=\s)/" => '$1'.$sym["mdash"],

        // Знак дефиса, ограниченный с обоих сторон цифрами - на знак короткого тире.
        "/(?<=\d)-(?=\d)/" => $sym["ndash"],

        // Нельзя оставлять в конце строки однобуквенные предлоги и союзы а, в, и, к, о, с, у.
        "/(?<=\s|^|\W)(а|в|к|о|с|у|я|о|об|не|за|на|как|без|что)(\s+)/i" => '$1'.$sym["nbsp"],
        
        // Нельзя отрывать частицы бы, ли, же от предшествующего слова, например: как бы, вряд ли, так же.
        "/(?<=\S)(\s+)(ж|бы|же|ли|либо|или)(?=$html_tag*[\s)!?.])/i" => $sym["nbsp"].'$2',
        
        // неразрывный пробел после инициалов
        "/((\s\w\.){1,3})(\s)(\w)/" => '$1'.$sym["nbsp"].'$4',

        // закавыченное внутри закавыченного
        //"/($sym[lquote].*)($sym[lquote])(.*)($sym[rquote])(.*$sym[rquote])/Us" => '$1'.$sym["lquote2"].'$3'.$sym["rquote2"].'$5',

        //
        //"/($sym[lquote]\S*)(\s+)(\S*$sym[rquote])/U" => '$1'.$sym["nbsp"].'$3',


        // два-четыре знака точки подряд - на знак многоточия (больше - мб авторской задумкой)
        "/$hellip/" => $sym["hellip"],
                                
        "/\(c\)/i"    =>    $sym["copy"],
        "/\(r\)/i"    =>    $sym["reg"],
        "/\(tm\)/i"    =>    $sym["trade"],
        "/'/"        =>    $sym["apos"],

/*

 - Нельзя разрывать строку перед дефисом или после дефиса. (Если разорвать строку 
   после дефиса, читатель может принять его за знак переноса.) Например, нельзя
   переносить: как-нибудь, генерал-майор, большая-пребольшая.

 - Нельзя разрывать строку после тире, если оно разделяет границы диапазона, например: 1799-1837, 10-15 кг.

 - Нельзя разрывать сокращённые словосочетания, например: и т.д., т.е., у.е.

 - Нельзя отрывать инициалы друг от друга и от фамилии, например: А.С. Пушкин, Дж.Вашингтон.

 - Нельзя отрывать имя собственное от относящегося к нему сокращения, например: гр. Иванов, пос. Молоково.

 - Нельзя отрывать число от относящейся к нему единицы измерения, например: 60 м2, 25 %. Нельзя отрывать 
   знаки номера (№) и параграфа () от относящегося к ним числа, например: № 5,  38.

 - Нельзя разрывать многоразрядные числа, например: 98 765 432.

 - Нельзя оставлять в конце строки служебные части речи (предлоги, союзы, частицы) из 
   двух или трёх букв, если они стоят в начале предложения.

*/

    );

    $str = preg_replace(array_keys($replace), array_values($replace), $str);
//    return $m[1].$str.$m[3];
    return $str;
}