defined pt-get-body

pivot-table.el

@@ -40,18 +40,29 @@ TODO: more documentation"
     (dolist (record src-body)
       (pt--process-record record source-cols buckets))))
 
-(defun pt-get-columns (source)
+(defun pt-get-columns (table)
   "Extract the column names from a table"
   (let (result)
-    (dolist (row source)
-      (unless (and (listp row) (eq "!" (car row)))
+    (dolist (row table)
+      (when (and (listp row) (equal (car row) "!"))
         (let ((n 2))
           (dolist (cell (cdr row))
-            (unless (eq cell "")
-              (setq result (((format "%s" cell) . n) . result)))
+            (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: