50 lines
1.5 KiB
EmacsLisp
50 lines
1.5 KiB
EmacsLisp
;;; pivot-table.el --- Build org-mode pivot tables
|
|
|
|
;; Copyright (C) 2025 Jonathan Lamothe
|
|
|
|
;; Author: Jonathan Lamothe <jonathan@jlamothe.net>
|
|
;; Package-Version: 0.0
|
|
|
|
;; 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 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 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
|
|
;; 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/>.
|
|
|
|
;;; Code:
|
|
|
|
(defun pt-build (source &rest params)
|
|
"Build a pivot table
|
|
|
|
TODO: more documentation"
|
|
(let* ((rows (assoc :rows params))
|
|
(cols (assoc :cols params))
|
|
(vals (assoc :vals params))
|
|
(col-index (pt-get-columns source))
|
|
(index (pt-column-names source))
|
|
src-cols
|
|
(src-body (pt-get-body source))
|
|
(buckets (make-hash-table)))
|
|
(pt--index-columns rows)
|
|
(pt--index-columns cols)
|
|
(pt--index-columns vals car)
|
|
(sort src-cols #'<)
|
|
(dolist (record src-body)
|
|
(pt--process-record record source-cols buckets))))
|
|
|
|
;; Local Variables:
|
|
;; read-symbol-shorthands: (("pt-" . "pivot-table-"))
|
|
;; End:
|
|
|
|
;;; pivot-table.el ends here
|