jira-table.el

;;; jira-table.el --- Manage tables data  -*- lexical-binding: t -*-

;; Copyright (C) 2025 Pablo González Carrizo

;; Author: Pablo González Carrizo <unmonoqueteclea@gmail.com>
;; Created: 2025-02-16

;; This file is NOT part of GNU Emacs.

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; Handle data to show in tables

;;; Code:

(require 'jira-api)

(defun jira-table-field-info (all-fields field)
  "Get FIELD info from ALL-FIELDS."
  (alist-get field all-fields))

(defun jira-table-field-path (all-fields field)
  "Get FIELD path from ALL-FIELDS."
  (alist-get :path (jira-table-field-info all-fields field)))

(defun jira-table-field-columns (all-fields field)
  "Get FIELD columns from ALL-FIELDS."
  (alist-get :columns (jira-table-field-info all-fields field)))

(defun jira-table-field-name (all-fields field)
  "Get FIELD name from ALL-FIELDS."
  (alist-get :name (jira-table-field-info all-fields field)))

(defun jira-table-field-formatter (all-fields field)
  "Get FIELD formatter from ALL-FIELDS."
  (alist-get :formatter (jira-table-field-info all-fields field)))

(defun jira-table-field-parent (all-fields field)
  "Get FIELD parent from ALL-FIELDS."
  (car (cdr (jira-table-field-path all-fields field))))

(defun jira-table-extract-field (all-fields field issue-data)
  "Extract FIELD value from ISSUE-DATA alist.

ALL-FIELDS is the list of all fields available in the JIRA instance."
  (let ((field-path (jira-table-field-path all-fields field)))
    (if (listp field-path)
        (let ((result issue-data))
          (dolist (path field-path result)
            (setq result
                  (alist-get
                   (if (listp path) ;; custom fields
                       (intern (cdr (assoc (car (cdr path)) jira-fields)))
                     path)
                   result)))
          result)
      (alist-get field-path issue-data))))


(provide 'jira-table)

;;; jira-table.el ends here