Navigation and linkage support

Author: nikitaeverywhere

package.json

@@ -1,7 +1,7 @@
 {
   "name": "cache-visual-editor",
   "printableName": "Cache Visual Editor",
-  "version": "0.4.1",
+  "version": "0.4.2",
   "description": "Visual class editor for InterSystems Caché",
   "main": "index.js",
   "keywords": [

source/cache/VisualEditor.REST.Editor.cls

@@ -15,22 +15,27 @@ XData UrlMap
 /// { "TestPack.TestClass": { "properties": { "TestInt": { "Description": "Test desc!" } } } }
 ClassMethod Save() As %Status
 {
+
     set ns = %request.Get("ns")
     if (##class(%SYS.Namespace).Exists(ns)) {
         znspace ns
     }
+
     do %request.Content.%CopyToArray(.classes)
     set response = ##class(%ZEN.proxyObject).%New()
-    set response.error = 0
+    set response.error = ""
     set response.modified = 0
     set className = $order(classes(""))
     while (className '= "") {
+
+        set errorLog = ""
+
         do classes(className).Properties.%CopyToArray(.properties)
         set propertyName = $order(properties(""))
         while (propertyName '= "") {
             set pDef = ##class(%Dictionary.PropertyDefinition).%OpenId(className_"||"_propertyName)
             if (pDef = "") {
-                set response.error = response.error _ "Property " _ propertyName _ " not found in "
+                set errorLog = errorLog _ "Property " _ propertyName _ " not found in "
                     _ className _ $Char(10)
                 set propertyName = $order(properties(propertyName))
                 continue
@@ -39,7 +44,7 @@ ClassMethod Save() As %Status
             set pDef.Description = properties(propertyName).Description
             set error = $System.Status.GetErrorText(pDef.%Save())
             if (error '= "") {
-                set response.error = response.error _ error _ $Char(10)
+                set errorLog = errorLog _ error _ $Char(10)
             } else {
                 set response.modified = response.modified + 1
             }
@@ -48,9 +53,24 @@ ClassMethod Save() As %Status
         }
 
         set className = $order(classes(className))
+
+        if (errorLog '= "") {
+            set response.error = response.error _ errorLog
+            continue
+        }
+
+        set st = $system.OBJ.Compile(className, , .errorLog)
+
+        if (errorLog '= "") {
+            set response.error = response.error _ $CHAR(10) _ errorLog
+            continue
+        }
+
     }
+
     do response.%ToJSON(, "o")
     return $$$OK
+
 }
 
 /// This method is a handler that is executed before each request.

source/client/js/classEditor/index.js

@@ -40,12 +40,12 @@ let backButton = onInit(() => {
         for (let ns in data["namespaces"]) {
             let c = block("option", "", ns);
             c.setAttribute("value", ns);
-            if (ns === data["namespace"]) c.setAttribute("selected", "true");
+            if (ns === NAMESPACE) c.setAttribute("selected", "true");
             topNamespace.appendChild(c);
         }
         updateHeaderNamespaceWidth(NAMESPACE);
         topNamespace.addEventListener("change", (e) => {
-            NAMESPACE = (e.target || e.srcElement).value;
+            setNamespace((e.target || e.srcElement).value);
             updateHeaderNamespaceWidth(NAMESPACE);
             loadLevel("");
         });
@@ -60,6 +60,51 @@ let backButton = onInit(() => {
         });
     });
 
+/**
+ * Get the location hash parameter value.
+ * @param {string} name - Parameter name.
+ * @returns {string|undefined}
+ */
+export function getURLHashParameter (name) {
+    let eName = encodeURIComponent(name),
+        arr = location.hash.substr(1).split("&").filter(keyVal => keyVal.split("=")[0] === eName);
+    if (!arr.length) return undefined;
+    return decodeURIComponent(arr[0].split("=")[1] || "");
+}
+
+/**
+ * Set the location hash parameter value.
+ * @param {string} name - Parameter name.
+ * @param {string|undefined} [value] - If no value provided, then URL parameter will be removed.
+ */
+export function setURLHashParameter (name, value) {
+    let eName = encodeURIComponent(name);
+    if (getURLHashParameter(name) === undefined) {
+        if (typeof value === "undefined") return;
+        location.hash += `${ location.hash.length > 1 ? "&" : "" }${
+                encodeURIComponent(name)
+            }${ value ? `=${ encodeURIComponent(value) }` : `` }`;
+    } else {
+        location.hash = "#" + location.hash.substr(1).split("&").map((keyVal) => {
+                let kv = keyVal.split("=");
+                return (kv[0] === eName)
+                    ? typeof value === "undefined"
+                        ? ""
+                        : `${ kv[0] }=${ encodeURIComponent(value) }`
+                    : keyVal;
+            }).filter(e => e !== "").join("&");
+    }
+}
+
+/**
+ * This function sets the namespace. Note that namespace should be a valid namespace that exists.
+ * @param {string} namespace
+ */
+export function setNamespace (namespace) {
+    NAMESPACE = namespace;
+    setURLHashParameter("namespace", NAMESPACE);
+}
+
 /**
  * This function applies visual effects regarding to changes were made and
  * indicates that changes are needed to be saved.
@@ -118,6 +163,8 @@ export function loadLevel (level) {
         backButton.style.display = "none";
     setTitle(`${ PATH ? "." : "" }${ PATH }`);
 
+    setURLHashParameter("level", PATH || undefined);
+
     getList(NAMESPACE, PATH, (data) => {
         grid.clear();
         if (PATH !== "")
@@ -131,7 +178,7 @@ export function loadLevel (level) {
 }
 
 export function onInit (callback) {
-    if (typeof callback !== "function") throw new Error(`onInit requires function`);
+    if (typeof callback !== "function") throw new Error(`onInit requires a function`);
     if (INITIALIZED)
         callback();
     else
@@ -146,10 +193,10 @@ export function onInit (callback) {
 export function init (data) {
 
     INITIALIZED = true;
-    NAMESPACE = data["namespace"];
+    setNamespace(getURLHashParameter("namespace") || data["namespace"]);
     initCallbacks.forEach(cb => cb(data));
     initCallbacks = [];
 
-    loadLevel(PATH);
+    loadLevel(getURLHashParameter("level") || "");
 
 }

source/client/js/server.js

@@ -1,4 +1,4 @@
-let BASE_URL = location.href.replace(/\/$/, ""); // = "http://[host]/VisualBuilder" (no slash)
+let BASE_URL = location.pathname.replace(/\/$/, ""); // = "http://[host]/VisualBuilder" (no slash)
 
 /**
  * @param {string} url