diff options
| -rw-r--r-- | pearl.el | 81 |
1 files changed, 44 insertions, 37 deletions
@@ -3136,6 +3136,49 @@ Uses async API for better performance." (message "No team selected")))) ;;;###autoload +(defun pearl--read-issue-label (team-id) + "Prompt for an issue-type label in TEAM-ID, returning its label id (or nil). +Labels are grouped by their \" - \" category prefix; the user picks a category +\(or All), then a label, with a fuzzy match used directly when the typed text +resolves to a single label." + (let* ((issue-types (pearl-get-issue-types team-id)) + (label-names (mapcar #'car issue-types)) + ;; Group labels by category (e.g., "Docs", "Feature", etc.) + (label-categories (let ((categories (make-hash-table :test 'equal))) + (dolist (label label-names) + (when-let* ((parts (split-string label " - " t)) + (category (car parts))) + (puthash category + (cons label (gethash category categories nil)) + categories))) + categories)) + (category-names (hash-table-keys label-categories)) + ;; First select a category, then a specific label + (selected-category (completing-read + "Label category: " + (append '("All") category-names) + nil nil nil nil "All")) + (filtered-labels (if (string= selected-category "All") + label-names + (gethash selected-category label-categories nil))) + (label-prompt (completing-read + (if (string= selected-category "All") + "Label (type for fuzzy search): " + (format "Label in %s category: " selected-category)) + filtered-labels + nil nil nil nil "")) + (matching-labels (when (not (string-empty-p label-prompt)) + (cl-remove-if-not + (lambda (label-name) + (string-match-p (regexp-quote label-prompt) label-name)) + filtered-labels))) + (selected-label-name (if (= (length matching-labels) 1) + (car matching-labels) + (when matching-labels + (completing-read "Select specific label: " matching-labels nil t))))) + (when (and selected-label-name (not (string-empty-p selected-label-name))) + (cdr (assoc selected-label-name issue-types))))) + (defun pearl-new-issue () "Create a new Linear issue with additional attributes." (interactive) @@ -3180,43 +3223,7 @@ Uses async API for better performance." (string-to-number estimate))) ;; Issue type (label) - (issue-types (pearl-get-issue-types team-id)) - (label-names (mapcar #'car issue-types)) - ;; Group labels by category (e.g., "Docs", "Feature", etc.) - (label-categories (let ((categories (make-hash-table :test 'equal))) - (dolist (label label-names) - (when-let* ((parts (split-string label " - " t)) - (category (car parts))) - (puthash category - (cons label (gethash category categories nil)) - categories))) - categories)) - (category-names (hash-table-keys label-categories)) - ;; First select a category, then a specific label - (selected-category (completing-read - "Label category: " - (append '("All") category-names) - nil nil nil nil "All")) - (filtered-labels (if (string= selected-category "All") - label-names - (gethash selected-category label-categories nil))) - (label-prompt (completing-read - (if (string= selected-category "All") - "Label (type for fuzzy search): " - (format "Label in %s category: " selected-category)) - filtered-labels - nil nil nil nil "")) - (matching-labels (when (not (string-empty-p label-prompt)) - (cl-remove-if-not - (lambda (label-name) - (string-match-p (regexp-quote label-prompt) label-name)) - filtered-labels))) - (selected-label-name (if (= (length matching-labels) 1) - (car matching-labels) - (when matching-labels - (completing-read "Select specific label: " matching-labels nil t)))) - (selected-type (when (and selected-label-name (not (string-empty-p selected-label-name))) - (cdr (assoc selected-label-name issue-types)))) + (selected-type (pearl--read-issue-label team-id)) ;; Get project (selected-project (pearl-select-project team-id)) |