は、特定の場所にある「ペア

Question

私はHTMLコンテンツとしてのWordPressのビジュアルエディタに挿入するためのPandocを使用してHMTL5に値下げを変換するツールチェーンを使用していますしとタグを変更する。

を、それが画像を挿入することになると、ワードプレスは何を置きますフォームのHTMLテキストに

[caption id="attachment_100" align="aligncenter" width="300" caption="This is an image caption"] 

のshortcodeと呼ばれている。これは。これは、COR動作しません、本当にマークダウンではなく、そのHTML出力用<q> ... </q>ペアにそれぞれ" ... "ペアを変換Pandocによって解釈されますすぐにワードプレスで。

は私が" ... "だけ独占的にワードプレスで入れていると私はに入れ、他のコンテンツと混同することはできません明確に定義された[caption ... ]角括弧内で発生するもの。

の変換を防ぐ に必要

Pandoc APIまたはHaskellについては、このテキスト断片をPandoc処理から除外するためのインラインのpaseser/filterを書くのには不十分です。 PandocとHaskellとの知り合いがなかったので、私がpandocメーリングリストで受けたアドバイスは、これまでのところ私の頭上を超えています。

私はPerlフィルタを書くことを考えましたが、非常に正当な理由でregexpsの使用を強く断念しました。

私はそれが後処理ステップとして、pandocを介して実行された後[caption ... ]ブロック内のテキストのみのため" ... "に<q> ... </q>タグからの逆置換を行うための堅牢な方法があるかどうかを調べるためにここに求めています。

誰かがこれについてどうすればよいかお勧めしますか？

多くのありがとうございます。

Answer 1

このようなタイプがありますか？

import Data.List 
import System.IO 

main = do 
    inh <- openFile "input.txt" ReadMode 
    outh <- openFile "output.txt" WriteMode 
    str <- hGetContents inh 
    hPutStrLn outh (outsideCaption str) 
    hClose inh 
    hClose outh 

outsideCaption::String->String 
outsideCaption [] = [] 
outsideCaption str@(x:xs) 
    | isPrefixOf "[caption" str = insideCaption str 
    | otherwise     = x:outsideCaption xs 


insideCaption::String->String 
insideCaption []  = [] 
insideCaption (']':xs) = ']':outsideCaption xs 
insideCaption str@(x:xs) 
    | (isPrefixOf "<q>" str) = '\"':insideCaption (drop 3 str) 
    | (isPrefixOf "</q>" str) = '\"':insideCaption (drop 4 str) 
    | otherwise    = x :insideCaption   xs 

このコードは、 "input.txt"という名前のファイルを読み取り、記述した置換を実行して結果を "output.txt"に出力します。

と現在の主な置き換え：たとえば、

main = interact outsideCaption 

はそれが標準入力からstdoutに読みます：

[rothesay]Ygfijj: echo "testing <q> [caption<q></q>]" | ./test 
testing <q> [caption""]