├── .gitignore
├── README.md
├── elm-package.json
├── explorer
├── Explorer.elm
├── Style.elm
├── Stylesheets.elm
├── elm-package.json
├── explorer.js
├── index.html
├── post-parser.js
└── styles.css
├── package.json
└── src
└── post.pegjs
/.gitignore:
--------------------------------------------------------------------------------
1 | .idea
2 | elm-stuff
3 | node_modules
4 | post-parser.js
--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
1 | # wp-post-grammar
2 | > Working towards a defined unambiguous grammar of WordPress posts and an associated parser.
3 |
4 | ## Contributing
5 |
6 | Please pardon the state of building and contributing as this project is new and started as a demo.
7 | The process for contributing involves updating `src/post.pegjs` for working on the actual grammar
8 | and then building all of the code and checking in the generated code on commit.
9 | We need to rebuild the generated parser so that the interactive explorer updates with the changes.
10 |
11 | ```bash
12 | npm run build:explorer
13 | ```
14 |
15 | > **Note**: you will need to have Elm installed in order to build this
16 |
17 | ```bash
18 | npm install -g elm@0.18
19 | ```
20 |
21 | ## Valuable references
22 |
23 | - [HTML5 syntax specification](https://www.w3.org/TR/html5/syntax.html)
24 |
--------------------------------------------------------------------------------
/elm-package.json:
--------------------------------------------------------------------------------
1 | {
2 | "version": "1.0.0",
3 | "summary": "helpful summary of your project, less than 80 characters",
4 | "repository": "https://github.com/user/project.git",
5 | "license": "BSD3",
6 | "source-directories": [
7 | "explorer"
8 | ],
9 | "exposed-modules": [],
10 | "dependencies": {
11 | "elm-community/html-extra": "2.2.0 <= v < 3.0.0",
12 | "elm-lang/core": "5.0.0 <= v < 6.0.0",
13 | "elm-lang/html": "2.0.0 <= v < 3.0.0",
14 | "rtfeldman/elm-css": "7.0.0 <= v < 8.0.0",
15 | "rtfeldman/elm-css-helpers": "2.0.1 <= v < 3.0.0"
16 | },
17 | "elm-version": "0.18.0 <= v < 0.19.0"
18 | }
19 |
--------------------------------------------------------------------------------
/explorer/Explorer.elm:
--------------------------------------------------------------------------------
1 | port module Explorer exposing (..)
2 |
3 | import Html exposing (code, div, pre, text, textarea)
4 | import Html.Attributes exposing (style)
5 | import Html.Attributes.Extra exposing (innerHtml)
6 | import Html.Events exposing (onInput)
7 | import Style exposing (class, CssClasses(..))
8 |
9 |
10 | port submitPost : String -> Cmd msg
11 |
12 |
13 | port receiveParse : (String -> msg) -> Sub msg
14 |
15 |
16 | type Msg
17 | = UpdateInput String
18 | | ReceiveParse String
19 |
20 |
21 | type ParseStatus
22 | = ParseGood
23 | | ParseBad
24 |
25 |
26 | type alias Model =
27 | { input : String
28 | , parse : String
29 | , status : ParseStatus
30 | }
31 |
32 |
33 | update : Msg -> Model -> ( Model, Cmd Msg )
34 | update msg model =
35 | case msg of
36 | UpdateInput input ->
37 | ( { model
38 | | input = input
39 | , status = ParseBad
40 | }
41 | , submitPost input
42 | )
43 |
44 | ReceiveParse parse ->
45 | case parse of
46 | "" ->
47 | ( { model | status = ParseBad }, Cmd.none )
48 |
49 | _ ->
50 | ( { model | parse = parse, status = ParseGood }, Cmd.none )
51 |
52 |
53 | subscriptions : Model -> Sub Msg
54 | subscriptions model =
55 | receiveParse ReceiveParse
56 |
57 |
58 | statusMessage : ParseStatus -> Html.Html Msg
59 | statusMessage status =
60 | case status of
61 | ParseGood ->
62 | div [ class [ ParseGood ] ] [ text "Complete parse" ]
63 |
64 | ParseBad ->
65 | div [ class [ ParseBad ] ] [ text "No valid parse" ]
66 |
67 |
68 | highlightClass : ParseStatus -> List CssClasses
69 | highlightClass status =
70 | case status of
71 | ParseGood ->
72 | []
73 |
74 | ParseBad ->
75 | [ NoHighlight ]
76 |
77 |
78 | view : Model -> Html.Html Msg
79 | view { input, parse, status } =
80 | div
81 | [ class [ Layout ] ]
82 | [ div
83 | [ style
84 | [ ( "flex", "1 0 0" )
85 | , ( "min-width", "50%" )
86 | ]
87 | ]
88 | [ textarea
89 | [ class [ InputPane ]
90 | , onInput UpdateInput
91 | ]
92 | [ text input ]
93 | ]
94 | , div
95 | [ style
96 | [ ( "flex", "1 0 0" )
97 | ]
98 | ]
99 | [ div [] [ statusMessage status ]
100 | , pre
101 | [ highlightClass status
102 | |> List.append
103 | [ OutputPane
104 | ]
105 | |> class
106 | ]
107 | [ code [ innerHtml parse ] [] ]
108 | ]
109 | ]
110 |
111 |
112 | main : Program Never Model Msg
113 | main =
114 | Html.program
115 | { init = ( Model initialInput "" ParseBad, submitPost initialInput )
116 | , update = update
117 | , subscriptions = subscriptions
118 | , view = view
119 | }
120 |
121 |
122 | initialInput : String
123 | initialInput =
124 | """
125 | Content
126 |
127 |
128 | ### Text
129 |
130 | The quick brown fox jumps over the lazy dog.
131 |
132 |
133 |
134 | The quick brown fox jumps over the lazy dog.
135 |
136 |
137 |
138 | The quick brown fox jumps over the lazy dog.
139 |
140 |
141 | ### Image
142 |
143 | 
144 |
145 |
146 |
147 |
148 |
149 |
150 |
151 |
152 | ### Image with caption
153 |
154 | [caption] A picture is worth a thousand words.[/caption]
155 |
156 |
157 |
158 |
159 |
160 | A picture is worth a thousand words.
161 |
162 |
163 |
164 | ### Quote
165 |
166 |
167 | The quick brown fox jumps over the lazy dog.
168 |
169 |
170 |
171 |
172 | ### HTML
173 |
174 |
175 |
176 |
Look, Ma, canvas!
177 |