Function: orgtbl--skipcols

orgtbl--skipcols is a byte-compiled function defined in org-table.el.gz.

Signature

(orgtbl--skipcols AST _ INFO)

Documentation

Extract first X table columns from AST.

X is taken from :skipcols property in INFO plist. Special columns are always ignored. Return the modified AST.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-table.el.gz
(defun orgtbl--skipcols (ast _ info)
  "Extract first X table columns from AST.
X is taken from :skipcols property in INFO plist.
Special columns are always ignored.
Return the modified AST."
  (when-let* ((skipcols (plist-get info :skipcols)))
    (unless (consp skipcols) (user-error "Wrong :skipcols value"))
    (org-element-map ast 'table
      (lambda (table)
	(let ((specialp (org-export-table-has-special-column-p table)))
	  (dolist (row (org-element-contents table))
	    (when (eq (org-element-property :type row) 'standard)
	      (let ((c 1))
		(dolist (cell (nthcdr (if specialp 1 0)
				      (org-element-contents row)))
		  (when (memq c skipcols)
		    (org-element-extract cell))
		  (cl-incf c)))))))))
  ast)