EmacsとCSVと表

;;; csvrow --- A pretty csv row. -*- lexical-binding: t -*-

;; Copyright (C) 2024 TakesxiSximada

;; Author: TakesxiSximada
;; Maintainer: TakesxiSximada
;; Version: 2
;; Package-Version: 20240508.0000
;; Package-Requires: ((emacs "29.1"))
;; Date: 2024-05-08

;; This file is not part of Emacs.

;; This software is free software: you can redistribute it and/or
;; modify it under the terms of the GNU Affero General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.

;; This software 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
;; Affero General Public License for more details.

;; You should have received a copy of the GNU Affero General Public
;; License along with this program.  If not, see
;; <https://www.gnu.org/licenses/>.

(require 's)

;;; Code:

(defun csvrow-line-to-list (line)
  (string-split line ","))

;;;###autoload
(defun csvrow ()
  (interactive)
  (let* ((header-line (save-excursion
			(beginning-of-buffer)
			(buffer-substring-no-properties
			 (line-beginning-position)
			 (line-end-position))))
	 (file-name buffer-file-name)
	 (line-number (line-number-at-pos))
	 (data-line (buffer-substring-no-properties
		     (line-beginning-position)
		     (line-end-position)))
	 (header-list (csvrow-line-to-list header-line))
	 (data-list (csvrow-line-to-list data-line))
	 (tb-entry-list (mapcar (lambda (val) (list nil val))
  				(cl-mapcar #'vector header-list data-list))))
    (with-current-buffer (get-buffer-create "*CSV ROW*")
      (tabulated-list-mode)
      (setq-local csvrow-current-file-name file-name)
      (setq-local csvrow-current-line-number line-number)
      (setq-local header-line-format '("Label" "Value"))
      (setq-local tabulated-list-format [("Label" 40 t)
					 ("Value" 40 t)])
      (tabulated-list-init-header)

      (setq-local tabulated-list-entries tb-entry-list)
      (tabulated-list-revert)
      (display-buffer "*CSV ROW*")
      )))

(defvar csvrow-after-edit-hooks nil
  "CSV Row called after edit")

;;;###autoload
(defun csvrow-edit ()
  (interactive)
  (let* ((id (tabulated-list-get-id))
	 (old-entry (tabulated-list-get-entry))
	 (new-entry (read--expression "Entry: "
				      (prin1-to-string old-entry))))
    (tabulated-list-delete-entry)
    (tabulated-list-print-entry id new-entry))
  (run-hooks 'csvrow-after-edit-hooks))

(defun csvrow-line-beginnings ()
  (save-excursion
    (goto-char (point-min))
    (let ((line-beginnings nil))
      (while (not (eobp))
	(push (point) line-beginnings)
	(forward-line 1))
      (nreverse line-beginnings))))

(defun csvrow-properties-of-entries (positions)
  (let ((entries nil))
    (dolist (pos positions)
      (add-to-list
       'entries
       `(,(tabulated-list-get-id pos)
	 ,(get-text-property pos 'tabulated-list-entry))
       t))
    entries))

;;;###autoload
(defun csvrow-reapply-entries ()
  (interactive)
  (setq-local tabulated-list-entries
	      (csvrow-properties-of-entries
	       (csvrow-line-beginnings)))
  (tabulated-list-init-header)
  (tabulated-list-revert)
  (display-buffer "*CSV ROW*"))

;;;###autoload
(defun csvrow-export ()
  (interactive)
  (csvrow-reapply-entries)
  (let ((data
	 (s-join
	  ","
	  (mapcar (lambda (x) (seq-first (seq-reverse (car (cdr x)))))
		  tabulated-list-entries))))
    (message data)
    (kill-new data)
    data))

;;;###autoload
(defun csvrow-save ()
  (interactive)
  (if-let ((target-file-name csvrow-current-file-name)
	   (target-line-number csvrow-current-line-number)
	   (new-line (csvrow-export)))
      (save-excursion
	(with-temp-buffer
	  (insert-file-contents target-file-name)
	  (goto-line target-line-number)
	  (kill-line)
	  (insert new-line)
	  (write-file target-file-name)))))

(provide 'csvrow)
;;; csvrow.el ends here