Image attachment tracking system, adjustable pins

src/nat/ArchiveController.kiss

@@ -152,6 +152,7 @@
     // Add systems!
     (archive.addSystem nameSystem)
     (archive.addSystem (new WikipediaImageSystem))
+    (archive.addSystem (new ImageAttachmentSystem))
     // Just for testing:
     // (archive.addSystem (new AttachmentSystem ["jpg" "jpeg" "png"] ->[archive e files] ~files))
 
@@ -215,6 +216,20 @@
         (doFor e entries
             (addFiles archive e files))
         entries)
-    
+
+    (method adjustImagePins [:Array<Entry> entries increment]
+        (doFor e entries
+            (if (hasComponent e Images)
+                    (withWritableComponents archive e [images Images]
+                        (set images.pinnedImageIndex (max 0 (min images.imageFiles.length (+ increment images.pinnedImageIndex)))))
+                (ui.reportError "Entry $e has no Images component")))
+        entries)
+
+    (defCommand PinNextImage [entries (SelectedEntries 1 null)]
+        (adjustImagePins entries 1))
+
+    (defCommand PinPreviousImage [entries (SelectedEntries 1 null)]
+        (adjustImagePins entries -1))
+
     (defCommand SelectByName [name (Text null)]
         (SelectEntries (nameSystem.getEntries name)) []))