/[james]/factorcss/CSS.hs
ViewVC logotype

Contents of /factorcss/CSS.hs

Parent Directory Parent Directory | Revision Log Revision Log


Revision 63 - (show annotations) (download) (as text)
Mon Dec 27 19:45:02 2004 UTC (19 years, 10 months ago) by james
File MIME type: text/x-haskell
File size: 3957 byte(s)
Add an overview and file headers.

1 --
2 -- This file is part of FactorCSS
3 -- Licensed under the MIT License,
4 -- http://www.opensource.org/licenses/mit-license
5 -- Copyright 2004 James Bursa <james@semichrome.net>
6 --
7
8 -- Datatypes for CSS
9
10 module CSS where
11 import List
12
13 data Stylesheet
14 = Stylesheet
15 (Maybe String) -- charset
16 [(String, [String])] -- imports (url, media)
17 [Statement]
18 deriving Show
19
20 data Statement
21 = Ruleset [Selector] [Declaration]
22 | Media [String] [Statement]
23 | Page (Maybe String) [Declaration]
24 deriving Show
25
26 type Selector
27 = [(SimpleSelector, Combinator)]
28
29 type SimpleSelector
30 = (Maybe String, [Detail])
31
32 data Detail
33 = Id String
34 | Class String
35 | Attrib String
36 | AttribEq String String
37 | AttribInc String String
38 | AttribDM String String
39 | Pseudo String
40 | PseudoFunc String String
41 deriving Show
42
43 data Combinator
44 = Ancestor
45 | Preceded
46 | Parent
47 | NoMore
48 deriving Show
49
50 type Declaration
51 = (String, [Value], Bool)
52
53 data Value
54 = Number Float
55 | Percentage Float
56 | Length String
57 | Ems Float
58 | Exs Float
59 | Angle String
60 | Time String
61 | Freq String
62 | StringV String
63 | Ident String
64 | Uri String
65 | HexColour String
66 | Slash
67 | Comma
68 | Function String [Value]
69 deriving Show
70
71
72 is_ruleset :: Statement -> Bool
73 is_ruleset (Ruleset sels decls) = True
74 is_ruleset _ = False
75
76 is_media :: Statement -> Bool
77 is_media (Media media stmts) = True
78 is_media _ = False
79
80 is_page :: Statement -> Bool
81 is_page (Page page decls) = True
82 is_page _ = False
83
84
85 show_stylesheet :: Stylesheet -> [String]
86 show_stylesheet (Stylesheet c is ss) = show_charset c ++
87 map show_import (reverse is) ++
88 map show_statement ss
89
90 show_charset :: Maybe String -> [String]
91 show_charset Nothing = []
92 show_charset (Just c) = ["@charset " ++ c ++ ";"]
93
94 show_import :: (String, [String]) -> String
95 show_import (url, media) = "@import " ++ url ++ " " ++
96 (concat . intersperse ", ") media ++ ";"
97
98 show_statement :: Statement -> String
99 show_statement (Ruleset ss ds) =
100 show_selectors ss ++
101 " { " ++
102 (concat . intersperse "; " . map show_declaration) ds ++
103 " }"
104 show_statement (Media media stmts) =
105 "@media " ++ (concat . intersperse ", ") media ++
106 " {\n" ++
107 (unlines . map ('\t':) . map show_statement) stmts ++
108 "}"
109 show_statement z = "(statement)"
110
111 show_selectors :: [Selector] -> String
112 show_selectors = concat . intersperse ", " . map show_selector
113
114 show_selector :: Selector -> String
115 show_selector [] = ""
116 show_selector ((ss, c):zs) = show_simple_selector ss ++
117 show_combinator c ++
118 show_selector zs
119
120 show_simple_selector :: SimpleSelector -> String
121 show_simple_selector (Just s, ds) = s ++ (concat . map show_detail) ds
122 show_simple_selector (Nothing, ds) = (concat . map show_detail) ds
123
124 show_detail :: Detail -> String
125 show_detail (Id i) = i
126 show_detail (Class c) = "." ++ c
127 show_detail (Attrib a) = "[" ++ a ++ "]"
128 show_detail (AttribEq a v) = "[" ++ a ++ "=" ++ v ++ "]"
129 show_detail (AttribInc a v) = "[" ++ a ++ "~=" ++ v ++ "]"
130 show_detail (AttribDM a v) = "[" ++ a ++ "|=" ++ v ++ "]"
131 show_detail (Pseudo p) = ":" ++ p
132 show_detail (PseudoFunc f p) = ":" ++ f ++ p ++ ")"
133
134 show_combinator :: Combinator -> String
135 show_combinator Ancestor = " "
136 show_combinator Preceded = " + "
137 show_combinator Parent = " > "
138 show_combinator NoMore = ""
139
140 show_declaration :: Declaration -> String
141 show_declaration (p, vs, i) = p ++ ": " ++ show_values vs ++
142 if i then " !important" else ""
143
144 show_values :: [Value] -> String
145 show_values = concat . intersperse " " . map show_value
146
147 show_value :: Value -> String
148 show_value (Number n) = show n
149 show_value (Percentage p) = show p ++ "%"
150 show_value (Length l) = l
151 show_value (Ems e) = show e ++ "em"
152 show_value (Exs x) = show x ++ "ex"
153 show_value (Angle a) = a
154 show_value (Time t) = t
155 show_value (Freq f) = f
156 show_value (StringV s) = s
157 show_value (Ident i) = i
158 show_value (Uri u) = u
159 show_value (HexColour c) = c
160 show_value Slash = "/"
161 show_value Comma = ","
162 show_value (Function f vs) = f ++ show_values vs ++ ")"

  ViewVC Help
Powered by ViewVC 1.1.26