selectAllEntries, addTags

src/nat/ArchiveController.kiss

@@ -140,6 +140,9 @@
     (defcommand selectEntries [entries (Entries null null)]
         (set selectedEntries entries) [])
 
+    (defcommand selectAllEntries []
+        (set selectedEntries (for =>id e archive.entries e)) [])
+
     (defcommand selectLastChangeSet []
         (set selectedEntries lastChangeSet) [])
 
@@ -152,4 +155,14 @@
     
     (defcommand createEntries [names (VarText null)]
         (flatten (for name names
-            (createEntry name)))))
+            (createEntry name))))
+            
+    (defcommand addTags [entries (SelectedEntries 1 null)
+                            tagsToAdd (VarText null)]
+        (doFor e entries
+            (withWritableEntry archive e
+                (if (hasComponent e Tags)
+                        (withWritableComponents archive e [tags Tags]
+                            (doFor tag tagsToAdd (dictSet tags tag 1)))
+                    (addComponent archive e Tags (for tag tagsToAdd =>tag 1)))))
+        entries))