model: disable deletion from non-editable collectionsv0.3.0

2 files changed, 8 insertions, 4 deletions

diff --git a/acf2/model/model.lua b/acf2/model/model.lua
index 55fe95f..cf90d88 100644
--- a/acf2/model/model.lua
+++ b/acf2/model/model.lua
@@ -108,7 +108,7 @@ end
 M.Model = M.new(node.TreeNode)
 
 function M.Model:init(context)
-   super(self, M.Model):init(context, 'model')
+   super(self, M.Model):init(context, 'model', true)
 
    local mt = getmetatable(self)
 
diff --git a/acf2/model/node.lua b/acf2/model/node.lua
index 711680e..86a9f0c 100644
--- a/acf2/model/node.lua
+++ b/acf2/model/node.lua
@@ -58,7 +58,7 @@ local function equal_tns(tn1, tn2)
    return getmetatable(tn1).path == getmetatable(tn2).path
 end
 
-function M.TreeNode:init(context, dtype)
+function M.TreeNode:init(context, dtype, editable)
    local mt = getmetatable(self)
    update(mt, context)
 
@@ -84,7 +84,9 @@ function M.TreeNode:init(context, dtype)
 
    function mt.member_removable(k)
       local v = mt.load(k, {dereference=false})
-      return not isinstance(v, M.TreeNode) or getmetatable(v).removable()
+      return editable and (
+	    not isinstance(v, M.TreeNode) or getmetatable(v).removable()
+      )
    end
 
    function mt.check_removable(k, v)
@@ -194,7 +196,9 @@ end
 M.Collection = class(M.TreeNode)
 
 function M.Collection:init(context, params, dtype)
-   super(self, M.Collection):init(context, dtype or 'collection')
+   super(self, M.Collection):init(
+      context, dtype or 'collection', params.editable
+   )
 
    self.init = nil
    self.fetch = nil