forge--set-connections: Renamed from forge--set-id-slot

magit · Jan 26, 2025 · 839dc74 · 839dc74
1 parent 2e040c1
commit 839dc74
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 13 deletions.
diff --git a/lisp/forge-core.el b/lisp/forge-core.el
@@ -295,7 +295,7 @@ Using OBJ itself would not be appropriate because multiple
 non-equal objects may exist, representing the same thing."
   (oref obj id))
 
-(defun forge--set-id-slot (repo object slot ids)
+(defun forge--set-connections (repo object slot ids)
   (closql-dset object slot
                (let ((rid (oref repo id)))
                  (mapcar (##forge--object-id rid (alist-get 'id %)) ids))

diff --git a/lisp/forge-github.el b/lisp/forge-github.el
@@ -296,8 +296,8 @@
               :body    (forge--sanitize-string .body))
              t)))
         (forge--update-status repo issue data bump initial-pull))
-      (forge--set-id-slot repo issue 'assignees .assignees)
-      (forge--set-id-slot repo issue 'labels .labels))
+      (forge--set-connections repo issue 'assignees .assignees)
+      (forge--set-connections repo issue 'labels .labels))
     issue))
 
 ;;;; Pullreqs
@@ -360,11 +360,11 @@
               :body    (forge--sanitize-string .body))
              t)))
         (forge--update-status repo pullreq data bump initial-pull))
-      (forge--set-id-slot repo pullreq 'assignees .assignees)
-      (forge--set-id-slot repo pullreq 'review-requests
-                          (mapcar (##alist-get 'requestedReviewer %)
-                                  .reviewRequests))
-      (forge--set-id-slot repo pullreq 'labels .labels))
+      (forge--set-connections repo pullreq 'assignees .assignees)
+      (forge--set-connections repo pullreq 'review-requests
+                              (mapcar (##alist-get 'requestedReviewer %)
+                                      .reviewRequests))
+      (forge--set-connections repo pullreq 'labels .labels))
     pullreq))
 
 ;;;; Notifications

diff --git a/lisp/forge-gitlab.el b/lisp/forge-gitlab.el
@@ -199,8 +199,8 @@
                :body         (forge--sanitize-string .description))))
         (closql-insert (forge-db) issue t)
         (unless (magit-get-boolean "forge.omitExpensive")
-          (forge--set-id-slot repo issue 'assignees .assignees)
-          (forge--set-id-slot repo issue 'labels .labels))
+          (forge--set-connections repo issue 'assignees .assignees)
+          (forge--set-connections repo issue 'labels .labels))
         (dolist (c .notes)
           (let-alist c
             (let ((post
@@ -337,9 +337,9 @@
                :body         (forge--sanitize-string .description))))
         (closql-insert (forge-db) pullreq t)
         (unless (magit-get-boolean "forge.omitExpensive")
-          (forge--set-id-slot repo pullreq 'assignees .assignees)
-          (forge--set-id-slot repo pullreq 'review-requests .reviewers)
-          (forge--set-id-slot repo pullreq 'labels .labels))
+          (forge--set-connections repo pullreq 'assignees .assignees)
+          (forge--set-connections repo pullreq 'review-requests .reviewers)
+          (forge--set-connections repo pullreq 'labels .labels))
         (dolist (c .notes)
           (let-alist c
             (let ((post