mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-18 09:19:32 -06:00
38 lines
1.0 KiB
Haskell
38 lines
1.0 KiB
Haskell
----------------------------------------------------------------------
|
|
-- |
|
|
-- Module : UnicodeF
|
|
-- Maintainer : AR
|
|
-- Stability : (stable)
|
|
-- Portability : (portable)
|
|
--
|
|
-- > CVS $Date: 2005/04/21 16:22:17 $
|
|
-- > CVS $Author: bringert $
|
|
-- > CVS $Revision: 1.4 $
|
|
--
|
|
-- (Description of the module)
|
|
-----------------------------------------------------------------------------
|
|
|
|
module GF.Fudgets.UnicodeF (fudlogueWriteU) where
|
|
import Fudgets
|
|
|
|
import GF.Data.Operations
|
|
import GF.Text.Unicode
|
|
|
|
-- AR 12/4/2000, 18/9/2001 (added font parameter)
|
|
|
|
fudlogueWriteU :: String -> (String -> String) -> IO ()
|
|
fudlogueWriteU fn trans =
|
|
fudlogue $
|
|
shellF "GF Unicode Output" (writeF fn trans >+< quitButtonF)
|
|
|
|
writeF fn trans = writeOutputF fn >==< mapF trans >==< writeInputF fn
|
|
|
|
displaySizeP = placerF (spacerP (sizeS (Point 440 500)) verticalP)
|
|
|
|
writeOutputF fn = moreF' (setFont fn) >==< justWriteOutputF
|
|
|
|
justWriteOutputF = mapF (map (wrapLines 0) . filter (/=[]) . map mkUnicode . lines)
|
|
|
|
writeInputF fn = stringInputF' (setShowString mkUnicode . setFont fn)
|
|
|