set buffer snippets %opt{snippets} # keep global snippets (if any)
set -add buffer snippets 'Import Html libs' 'html-imp' %{ snippets-insert %{let open Dream_html in
let open HTML in
  }
  }
set -add buffer snippets 'Create form' 'letform-' \
        %{ phantom-selection-clear ; snippets-insert %{let form ~csrf req =
  match%lwt Dream.form ~csrf req with
  | `Ok [ ("${}", ${}); ] ->
    Lwt_result.return (${})
  | e -> Lwt_result.fail (`Form e)
  ${}
}; phantom-selection-add-selection ; phantom-selection-iterate-next }

set -add buffer snippets 'Create user form (base)' 'form-b' \
        %{ snippets-insert %{null 
  [ h2 [] [txt "${}"] 
  ; form
          [ id "${}"; action "/${}"; method_ `POST ]
          [ csrf_tag req
          ; br []
          ]
  ]
};  }

set -add buffer snippets 'Create user form (text field)' 'form-tf' \
        %{ snippets-insert %{; label [ for_ "${}" ] [ txt "${}" ]
  ; input [ id "${}"; name "${}"; type_ "text" ]
  ; br []
};  }

set -add buffer snippets 'Create user form (submit)' 'form-s' \
        %{ snippets-insert %{; button [type_ "submit"] [ txt "${}" ]
};  }