Skip to main content

Ocsigen form select

The goal

How to make a Select input with Ocsigen

The solution

 open Lwt open XHTML.M open Eliom_services open Eliom_parameters open Eliom_sessions open Eliom_predefmod.Xhtml  open Mysql open Postgresql  let coucou_handler _ selection () =   Lwt.return     (html        (head (title (pcdata "Results")) [])        (body [p [ pcdata ("You sent: " ^ selection)]]))   let coucou_service =   Eliom_predefmod.Xhtml.register_new_service      ~path: ["coucou"]     ~get_params: (Eliom_parameters.string "selection")     coucou_handler  let coucou_form enter_selection =   [XHTML.M.fieldset       [Eliom_predefmod.Xhtml.string_select ~name:enter_selection          (Eliom_predefmod.Xhtml.Option ([], "one",   Some (pcdata "um"),   false))          [Eliom_predefmod.Xhtml.Option ([], "two",   Some (pcdata "dois"), false);           Eliom_predefmod.Xhtml.Option ([], "three", Some (pcdata "trĂªs"), true)];        Eliom_predefmod.Xhtml.string_input ~input_type:`Text ~value:"un email seulement" ();        Eliom_predefmod.Xhtml.string_input ~input_type:`Submit ~value:"Send" ()]]  let main_handler sp () () =   let myform = Eliom_predefmod.Xhtml.get_form coucou_service sp coucou_form in     Lwt.return       (html          (head (title (pcdata "")) [])          (body [p [pcdata "Form for coucou:"]; myform]))   let main_service =   Eliom_predefmod.Xhtml.register_new_service     ~path: [""]     ~get_params: Eliom_parameters.unit     main_handler 


Popular posts from this blog

npm run build base-href

Using NPM to specify base-href
When building an Angular application, people usually use "ng" and pass arguments to that invocation.
Typically, when wanting to hard code "base-href" in "index.html", one will issue:

ng build --base-href=''

I used to build my angular apps through Bamboo or Jenkins and they have a "npm" plugin.
I got the habit to build the application with "npm run build" before deploying it.

But the development team once asked me to set the "--base-href=''" parameter.

npm run build --base-href='

did not set the base href in indext.html

After looking for a while, I found where it says:
You need to use −− to pass arguments to npm scripts. This did the job!
The command to issue is then:

npm run build -- --base-href=''

dockerfile multiline to file

Outputing a multiline string from Dockerfile
I motsly use a Dockerfile by sourcing from a base ditribution: CentOS or Debian.
But I also have a local mirror and would like to use it for packages installation.

Espacially on CentOS it is about many lines to write to the /etc/yum.repos.d/CentOS-Base.repo file.

Easiest way: one RUN per line The first method that comes in mind is to issue one RUN per line to write.
Here you are:

RUN echo "[base] " > /etc/yum.repos.d/CentOS-Base.repo RUN echo "name=CentOS-$releasever - Base " >> /etc/yum.repos.d/CentOS-Base.repo RUN echo "baseurl= " >> /etc/yum.repos.d/CentOS-Base.repo RUN echo "gpgcheck=0 " >>…

Project Lead NextGen Project

Jira, change project Lead in a Next-Gent project Atlassian has launched a new feature on Jira Cloud instances: Next-Gent project
Roles, Workflow and settings are not the same as in usual.
When one creates a Next-Gent project, the creator is the "Project Lead", and changin this is not straight:
How-to-change-project-lead-in-a-Next-Gen-ProjectHow-do-i-set-default-assignee-and-workflow-in-next-gen-projects Here is the mergeGet the ID of your project: say 10002Go to https://[account name]!default.jspa?pid=10002Set the project Lead