On Sat, 25 Mar 2006 09:00:57 +0900, shelarcy <[EMAIL PROTECTED]> wrote:
I tried to wrote my web diary by HSXML
(I started web diary before blog boom. Web diary is like blog ... but in
manycase, web diary isn't cgi or web application system, it is wrote
html text file. Of cource, many people use generator and web diary based
blog system exist now,)
I attatched yestaday's article that name diary.hs .
Oops, I forgot that.
This file written in Japanese by euc-jp encode.
So if you want to test it, you must chage HSXML_HTML to use Japanese
text like this;
html_clean str = all good_char str where
-- good_char c | not (isAscii c) = False
good_char c | isSpace c = True
-- good_char c | not (isPrint c) = False
good_char c | c `elem` "<>\"&" = False
good_char _ = True
html_encode_char :: Char -> String
-- html_encode_char c | not (isAscii c) = error $ "non-ascii character"
html_encode_char c | isSpace c = [c]
-- html_encode_char c | not (isPrint c) = error $ "non-printable
html_encode_char '<' = "<"
html_encode_char '>' = ">"
html_encode_char '"' = """
html_encode_char '&' = "&"
html_encode_char c = [c]
Sorry for I posted this message for Haskell mailing list after that
Okay. We will move to Cafe for that. After this mail.
shelarcy <shelarcy capella.freemail.ne.jp>
Haskell mailing list