aboutsummaryrefslogtreecommitdiff
path: root/editor/actions/import.ml
diff options
context:
space:
mode:
Diffstat (limited to 'editor/actions/import.ml')
-rwxr-xr-xeditor/actions/import.ml7
1 files changed, 6 insertions, 1 deletions
diff --git a/editor/actions/import.ml b/editor/actions/import.ml
index 4cac76c..13ed938 100755
--- a/editor/actions/import.ml
+++ b/editor/actions/import.ml
@@ -44,9 +44,14 @@ end
let create () =
let title = Jstr.v "Importer des notes" in
+ let form = Forms.Selector.create () in
let ev = Elements.Popup.create
~title
- ~form:(Some (Forms.Selector.create ())) in
+ ~form
+ ~valid_on:(Note.S.map (fun form -> form.Forms.Selector.file != None) (fst form))
+ ()
+ in
+
Note.E.map
(fun v -> State.E
( v