Commits

Hugh Giddens committed b61c370

Pull all the issue field extraction into the let* block.

Comments (0)

Files changed (1)

   (let ((row-count 0)
         icon-requests)
     (dolist (issue issues)
-      (let* ((fields (cdr (assoc 'fields issue)))
+      (let* ((key (cdr (assoc 'key issue)))
+             (fields (cdr (assoc 'fields issue)))
              (status (cdr (assoc 'status fields)))
              (priority (cdr (assoc 'priority fields)))
              (assignee (cdr (assoc 'assignee fields)))
+             (summary (cdr (assoc 'summary fields)))
              (row-start (point)))
         (insert (format "%-16s" " "))
         (beginning-of-line)
         (make-text-button (point)
                           (progn
-                            (insert (cdr (assoc 'key issue)))
+                            (insert key)
                             (point))
                           'action (lambda (button)
                                     (jira-show-issue
                                      jira-instance
                                      (button-get button 'jira-issue-key)))
                           'follow-link 'mouse-face
-                          'jira-issue-key (cdr (assoc 'key issue)))
+                          'jira-issue-key key)
         (beginning-of-line)
         (forward-char 16)
         (insert (format "%-15s" (if (null assignee)
                                              ""
                                            (cdr (assoc 'name priority))))))
         (put-text-property (- (point) 12) (- (point) 10) 'invisible t)
-        (insert "\n" (cdr (assoc 'summary fields)) "\n")
+        (insert "\n" summary "\n")
         (when (and jira-zebra-stripe-rows (oddp row-count))
           (overlay-put (make-overlay row-start (point)) 'face 'jira-zebra-stripe-face)))
       (incf row-count))