mirror of
				https://github.com/KevinMidboe/linguist.git
				synced 2025-10-29 17:50:22 +00:00 
			
		
		
		
	Add .eliom extension for Ocsigen (OCaml web framework)
This commit is contained in:
		| @@ -822,6 +822,8 @@ OCaml: | |||||||
|   - .mli |   - .mli | ||||||
|   - .mll |   - .mll | ||||||
|   - .mly |   - .mly | ||||||
|  |   - .eliom | ||||||
|  |   - .eliomi | ||||||
|  |  | ||||||
| ObjDump: | ObjDump: | ||||||
|   type: data |   type: data | ||||||
|   | |||||||
							
								
								
									
										48
									
								
								samples/OCaml/example.eliom
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										48
									
								
								samples/OCaml/example.eliom
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,48 @@ | |||||||
|  |  | ||||||
|  | {shared{ | ||||||
|  |  | ||||||
|  |   open Eliom_content | ||||||
|  |   open Html5.D | ||||||
|  |   open Eliom_parameter | ||||||
|  |  | ||||||
|  | }} | ||||||
|  |  | ||||||
|  | {server{ | ||||||
|  |  | ||||||
|  |   module Example = | ||||||
|  |     Eliom_registration.App | ||||||
|  |       (struct | ||||||
|  |         let application_name = "example" | ||||||
|  |        end) | ||||||
|  |  | ||||||
|  |   let main = | ||||||
|  |     Eliom_service.service | ||||||
|  |       ~path:[] | ||||||
|  |       ~get_params:unit | ||||||
|  |       () | ||||||
|  |  | ||||||
|  | }} | ||||||
|  |  | ||||||
|  | {client{ | ||||||
|  |  | ||||||
|  |   let hello_popup () = | ||||||
|  |     Dom_html.window##alert(Js.string ("Hello Popup!")) | ||||||
|  |  | ||||||
|  | }} | ||||||
|  |  | ||||||
|  | {server{ | ||||||
|  |  | ||||||
|  |   let _ = | ||||||
|  |  | ||||||
|  |     Example.register | ||||||
|  |       ~service:main | ||||||
|  |       (fun () () -> | ||||||
|  |         Lwt.return | ||||||
|  |           (html | ||||||
|  |              (head (title (pcdata "Hello World of Ocsigen")) []) | ||||||
|  |              (body [h1 [pcdata "Hello World!"]; | ||||||
|  |                     p [pcdata "Welcome to my first Ocsigen website."]; | ||||||
|  |                     h2 ~a:[a_onclick {{ hello_popup () }}] | ||||||
|  |                       [pcdata "Click me!"]]))) | ||||||
|  |  | ||||||
|  | }} | ||||||
		Reference in New Issue
	
	Block a user