   (if (re-matches #"[/\-a-zA-Z0-9\.]+" slug) false true))
 
 (defn link-label-has-invalid-chars? [label]
-  (if (re-matches #"[/\-a-zA-Z0-9\.?!]+" label) false true))
+  (if (re-matches #"[\u0080-\uffffa-zA-Z0-9.?! -]+" label)
+    false
+    true))
 
 (defn html-with-clean-image-uris [html]
   (let [get-num-sub-paths (fn [s] (when (string? s)

             (get-links-from-ul menu-container-el)
             feeds
             documents)
            (ui/remove-dialog)))))
    (do
      (when (classes/has parent-el "new-node")
        (dom/removeNode parent-el))
      (ui/remove-dialog))))

(defn update-related-pages [related-pages]
  (when (not-empty related-pages)

                           documents))))

(defn menu-item-dialog-callback [feeds documents parent-el e]
  (. e (preventDefault))
 
  (let [active-el (or parent-el menu-container-el)]
    (if (= "ok" (.-key e))
      (let [nested (classes/has parent-el "new-node")
            new-link-details (menu-item-link-details-from-dialog!)
            menu-container-el (dom/getElement "menu-container")]
        (validate-link-label! (:label new-link-details))
        (when-not (classes/has (dom/getElement "add-link-status") "error")
          (let [dummy-el (dom/createElement "ul")]
            (classes/remove parent-el "new-node")
            (set! (.-innerHTML dummy-el)
                  (ui/render-template-as-string tpl/menu-item-li
                                                new-link-details))
