defined pt-get-body

pivot-table.el

@@ -23,25 +23,16 @@
 
 ;;; Code:
 
-(defun pt-build (source &key rows cols vals)
+(defun pt-build (source &rest params)
   "Build a pivot table
-
-The SOURCE value should be the table the data is being taken
-from.  ROWS and COLS should be lists of column references from
-the source table to be used as rows and columns for the pivot
-table.  These can either be integers representing the column
-number, or strings representing column names.
-
-VALUES should be a list containing information about the values
-in the body of the pivot table.  Each element of the list should
-be in the following format (REF FUNC &optional LABEL).
-
 TODO: more documentation"
-  (let ((col-index (pt-get-columns source))
+  (let* ((rows (plist-get params :rows))
-        (index (pt-column-names source))
+         (cols (plist-get params :cols))
-        src-cols
+         (vals (plist-get params :vals))
-        (src-body (pt-get-body source))
+         (col-index (pt-get-columns source))
-        (buckets (make-hash-table)))
+         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)
@@ -49,6 +40,29 @@ TODO: more documentation"
     (dolist (record src-body)
       (pt--process-record record source-cols buckets))))
 
+(defun pt-get-columns (table)
+  "Extract the column names from a table"
+  (let (result)
+    (dolist (row table)
+      (when (and (listp row) (equal (car row) "!"))
+        (let ((n 2))
+          (dolist (cell (cdr row))
+            (unless (equal cell "")
+              (push (cons (format "%s" cell) n) result))
+            (setq n (1+ n))))))
+    result))
+
+(defun pt-get-body (source)
+  "Discards all rows from a table before the first hline (if present)
+If there is no hline, the table is instead returned unaltered."
+  (catch :return
+    (let ((remain source))
+      (while remain
+        (when (eq (car remain) 'hline)
+          (throw :return (cdr remain)))
+        (pop remain))
+      source)))
+
 ;; Local Variables:
 ;; read-symbol-shorthands: (("pt-" . "pivot-table-"))
 ;; End: