partial implementation of pt-get-columns

pivot-table.el

@@ -25,13 +25,11 @@
 
 (defun pt-build (source &rest params)
   "Build a pivot table
-
 TODO: more documentation"
   (let* ((rows (plist-get params :rows))
          (cols (plist-get params :cols))
          (vals (plist-get params :vals))
          (col-index (pt-get-columns source))
-         (index (pt-column-names source))
          src-cols
          (src-body (pt-get-body source))
          (buckets (make-hash-table)))
@@ -42,6 +40,18 @@ TODO: more documentation"
     (dolist (record src-body)
       (pt--process-record record source-cols buckets))))
 
+(defun pt-get-columns (source)
+  "Extract the column names from a table"
+  (let (result)
+    (dolist (row source)
+      (unless (and (listp row) (eq "!" (car row)))
+        (let ((n 2))
+          (dolist (cell (cdr row))
+            (unless (eq cell "")
+              (setq result (((format "%s" cell) . n) . result)))
+            (setq n (1+ n))))))
+    result))
+
 ;; Local Variables:
 ;; read-symbol-shorthands: (("pt-" . "pivot-table-"))
 ;; End: