0 | module CyBy.UI.CSS.Classes
 1 |
 2 | import Chem.Elem
 3 | import Derive.Prelude
 4 | import Text.HTML.Attribute
 5 | import Text.HTML.DomID
 6 | import public Text.HTML.Extra.Class
 7 |
 8 | %default total
 9 | %language ElabReflection
10 |
11 | --------------------------------------------------------------------------------
12 | -- Attributes
13 | --------------------------------------------------------------------------------
14 |
15 | public export
16 | data DragMode = None | Rotating | Dragging
17 |
18 | %runElab derive "DragMode" [Show,Eq]
19 |
20 | export %inline
21 | dragMode : DragMode -> Attribute t
22 | dragMode = Str "data-dragmode" . toLower . show
23 |
24 | --------------------------------------------------------------------------------
25 | -- Components
26 | --------------------------------------------------------------------------------
27 |
28 | export %inline
29 | sketcher : Class
30 | sketcher = "cyby-draw-sketcher"
31 |
32 | export %inline
33 | drawUtils : Class
34 | drawUtils = "cyby-draw-utils"
35 |
36 | export %inline
37 | drawElems : Class
38 | drawElems = "cyby-draw-elems"
39 |
40 | export %inline
41 | drawInfo : Class
42 | drawInfo = "cyby-draw-info"
43 |
44 | export %inline
45 | drawTemplates : Class
46 | drawTemplates = "cyby-draw-templates"
47 |
48 | export %inline
49 | drawDetails : Class
50 | drawDetails = "cyby-draw-details"
51 |
52 | export %inline
53 | elem : Class
54 | elem = "cyby-draw-elem"
55 |
56 | export %inline
57 | pseIcon : Class
58 | pseIcon = "cyby-draw-pse-icon"
59 |
60 | export %inline
61 | moleculeCanvas : Class
62 | moleculeCanvas = "cyby-draw-molecule-canvas"
63 |