closql--remake-instances: New function

It is convenient to have this available when implementing `closql-dref' methods.
magit · Jun 23, 2024 · ffbd489 · ffbd489
1 parent 749b4da
commit ffbd489
Showing 1 changed file with 17 additions and 11 deletions.
diff --git a/closql.el b/closql.el
@@ -97,17 +97,17 @@
            ((not (eq value eieio--unbound)) value)
            ((setq class (closql--slot-class obj slot))
             (aset obj c
-                  (mapcar (lambda (row) (closql--remake-instance class db row))
-                          (emacsql db `[:select * :from $i1
-                                        :where (= $i2 $s3)
-                                        :order-by
-                                        ,(or (oref-default class closql-order-by)
-                                             [(asc $i4)])]
-                                   (oref-default class closql-table)
-                                   (oref-default class closql-foreign-key)
-                                   (closql--oref
-                                    obj (oref-default obj closql-primary-key))
-                                   (oref-default class closql-primary-key)))))
+                  (closql--remake-instances class db
+                    (emacsql db `[:select * :from $i1
+                                  :where (= $i2 $s3)
+                                  :order-by
+                                  ,(or (oref-default class closql-order-by)
+                                       [(asc $i4)])]
+                             (oref-default class closql-table)
+                             (oref-default class closql-foreign-key)
+                             (closql--oref
+                              obj (oref-default obj closql-primary-key))
+                             (oref-default class closql-primary-key)))))
            ((setq table (closql--slot-table obj slot))
             (let ((columns (closql--table-columns db table)))
               (aset obj c
@@ -454,6 +454,12 @@
       (closql--resolve-slots obj))
     obj))
 
+(defun closql--remake-instances (class db rows)
+  (declare (indent defun))
+  (mapcar (lambda (row)
+            (closql--remake-instance class db row))
+          rows))
+
 (cl-defmethod closql--resolve-slots ((obj closql-object))
   (dolist (slot (eieio-class-slots (eieio--object-class obj)))
     (setq  slot (cl--slot-descriptor-name slot))