Lines Matching refs:coord
1660 (let ((orig-coord (table--get-coordinate))
1661 (coord (table--get-coordinate))
1699 (table--goto-coordinate coord) (setcdr coord (1+ (cdr coord)))
1704 (table--goto-coordinate coord) (setcdr coord (1+ (cdr coord)))
1708 (table--goto-coordinate coord) (setcdr coord (1+ (cdr coord)))
1714 (table--goto-coordinate (table--offset-coordinate orig-coord '(1 . 1)))
1727 (coord-list (table--cell-list-to-coord-list (table--horizontal-cell-list t nil 'top)))
1728 (append-row (if coord-list nil (setq coord-list (table--find-row-column))))
1729 (cell-height (cdr (table--min-coord-list coord-list)))
1731 (this-list coord-list)
1732 (right-list (cdr coord-list))
1740 (table--create-growing-space-below (* n (+ 1 cell-height)) coord-list bottom-border-y)
1743 (let* ((left (prog1 (car left-list) (setq left-list (if left-list (cdr left-list) coord-list))))
1781 (setq this-list (if append-row nil coord-list))
1794 (if append-row (cons (car (caar coord-list)) (1+ bottom-border-y))
1795 (caar coord-list))) nil
1810 (coord-list (table--cell-list-to-coord-list (table--vertical-cell-list t nil 'left)))
1811 (append-column (if coord-list nil (setq coord-list (table--find-row-column 'column))))
1812 (cell-width (car (table--min-coord-list coord-list)))
1821 (this-list coord-list)
1822 (below-list (cdr coord-list))
1825 (table--horizontally-shift-above-and-below columns-to-extend coord-list)
1828 (let* ((above (prog1 (car above-list) (setq above-list (if above-list (cdr above-list) coord-list))))
1833 (beg-coord (cons (if append-column (1+ right-border-x) (caar this))
1835 (end-coord (cons (1+ right-border-x)
1839 (let ((coord (table--copy-coordinate beg-coord))
1843 (if (table--goto-coordinate coord 'no-extension)
1845 (setcdr coord (1+ (cdr coord)))
1849 (setq rect (extract-rectangle (table--goto-coordinate beg-coord)
1850 (table--goto-coordinate end-coord)))
1851 (delete-rectangle (table--goto-coordinate beg-coord)
1852 (table--goto-coordinate end-coord))
1866 (table--goto-coordinate beg-coord)
1869 (setq this-list (if append-column nil coord-list))
1884 (cdar (car coord-list)))
1885 (caar coord-list))) nil
2073 (let ((coord (table--get-coordinate (car cell)))
2078 (table--goto-coordinate coord)
2079 (table--goto-coordinate (cons (+ (car coord) table-cell-info-width 1) (cdr coord))))
2081 (setcdr coord (1+ (cdr coord))))))
2116 (let* ((coord-list (table--cell-list-to-coord-list (table--horizontal-cell-list t)))
2118 (this-list coord-list)
2119 (right-list (cdr coord-list))
2128 (table--create-growing-space-below n coord-list bottom-border-y)
2131 (let* ((left (prog1 (car left-list) (setq left-list (if left-list (cdr left-list) coord-list))))
2176 (coord-list (table--cell-list-to-coord-list (table--horizontal-cell-list t)))
2178 (this-list coord-list)
2179 (right-list (cdr coord-list))
2183 (current-cell-coordinate (table--cell-to-coord (table--probe-cell)))
2220 (setq this-list coord-list)
2238 (setq this-list coord-list)
2240 (let* ((left (prog1 (car left-list) (setq left-list (if left-list (cdr left-list) coord-list))))
2307 (let* ((coord-list (table--cell-list-to-coord-list (table--vertical-cell-list)))
2309 (this-list coord-list)
2310 (above-list (cdr coord-list)))
2313 (table--horizontally-shift-above-and-below n (reverse coord-list))
2316 (let* ((below (prog1 (car below-list) (setq below-list (if below-list (cdr below-list) coord-list))))
2348 (let ((coord (table--get-coordinate beg))
2352 (if (table--goto-coordinate coord 'no-extension)
2354 (setcdr coord (1+ (cdr coord)))
2375 (let* ((coord-list (table--cell-list-to-coord-list (table--vertical-cell-list)))
2376 (current-cell (table--cell-to-coord (table--probe-cell)))
2381 (setq tmp-list coord-list)
2398 (setq tmp-list coord-list)
2430 ;; coord-list is now possibly invalid since some cells may have already
2433 (setq coord-list (table--cell-list-to-coord-list (table--vertical-cell-list)))
2436 (table--horizontally-shift-above-and-below (- n) (reverse coord-list))
2439 (this-list coord-list)
2440 (above-list (cdr coord-list)))
2442 (let* ((below (prog1 (car below-list) (setq below-list (if below-list (cdr below-list) coord-list))))
2815 (let ((o-coord (table--get-coordinate))
2825 (table--goto-coordinate o-coord)))
3302 (let* ((lu-coord (table--get-coordinate (car origin-cell)))
3303 (rb-coord (table--get-coordinate (cdr tail-cell)))
3304 (x0 (car lu-coord))
3305 (x1 (car rb-coord))
3306 (y (cdr lu-coord))
3307 (y1 (cdr rb-coord)))
3500 (let ((orig-coord (table--get-coordinate))
3501 (bt-coord (table--get-coordinate (cdr (table--vertical-cell-list nil 'first-only))))
3502 lu-coord rb-coord rect)
3515 (unless lu-coord
3516 (setq lu-coord (table--get-coordinate (caar cell-list))))
3517 (setq rb-coord (table--get-coordinate (cdar (last cell-list))))
3518 (table--goto-coordinate (cons (car orig-coord) (+ 2 (cdr rb-coord))))))
3521 (table--goto-coordinate (cons (1- (car lu-coord)) (1+ (cdr rb-coord))))
3522 (table--goto-coordinate (cons (1+ (car rb-coord)) (1+ (cdr bt-coord))))))
3525 (table--goto-coordinate (cons (1- (car lu-coord)) (1- (cdr lu-coord))))
3526 (table--goto-coordinate (cons (1+ (car rb-coord)) (1+ (cdr bt-coord)))))
3527 (table--goto-coordinate (cons (1- (car lu-coord)) (1- (cdr lu-coord))))
3530 (append rect (make-list (+ 2 (- (cdr rb-coord) (cdr lu-coord)))
3531 (make-string (+ 2 (- (car rb-coord) (car lu-coord))) ?\s))))
3533 (table--goto-coordinate (cons 0 (- (cdr bt-coord) (- (cdr rb-coord) (cdr lu-coord)))))
3534 (table--remove-blank-lines (+ 2 (- (cdr rb-coord) (cdr lu-coord))))
3536 (let ((coord (cons (car lu-coord) (1- (cdr lu-coord))))
3537 (n (1+ (- (car rb-coord) (car lu-coord)))))
3539 (table--goto-coordinate coord)
3541 (or (and (table--goto-coordinate (cons (car coord) (1- (cdr coord))) 'no-extension)
3543 (and (table--goto-coordinate (cons (car coord) (1+ (cdr coord))) 'no-extension)
3551 (setcar coord (1+ (car coord)))))
3553 (table--goto-coordinate (cons (car orig-coord) (cdr lu-coord)))))
3562 (let ((orig-coord (table--get-coordinate))
3563 lu-coord rb-coord)
3576 (unless lu-coord
3577 (setq lu-coord (table--get-coordinate (caar cell-list))))
3578 (setq rb-coord (table--get-coordinate (cdar (last cell-list))))
3579 (table--goto-coordinate (cons (1+ (car rb-coord)) (cdr orig-coord)))))
3582 (table--goto-coordinate (cons (car lu-coord) (1- (cdr lu-coord))))
3583 (table--goto-coordinate (cons (1+ (car rb-coord)) (1+ (cdr rb-coord)))))
3585 (let ((coord (cons (1- (car lu-coord)) (cdr lu-coord)))
3586 (n (1+ (- (cdr rb-coord) (cdr lu-coord)))))
3588 (table--goto-coordinate coord)
3590 (or (and (table--goto-coordinate (cons (1- (car coord)) (cdr coord)) 'no-extension)
3593 (and (table--goto-coordinate (cons (1+ (car coord)) (cdr coord)) 'no-extension)
3602 (setcdr coord (1+ (cdr coord)))))
3604 (table--goto-coordinate (cons (car lu-coord) (cdr orig-coord)))))
3890 (let* ((lu-coord (table--get-coordinate table-lu))
3891 (rb-coord (table--get-coordinate table-rb))
3892 (lu (table--goto-coordinate (table--offset-coordinate lu-coord '(-1 . -1)))))
3894 (setcdr rb-coord (1+ (cdr rb-coord)))
3895 (delete-rectangle lu (table--goto-coordinate (cons (car lu-coord) (cdr rb-coord))))
3897 (table--goto-coordinate (cons 0 (1- (cdr lu-coord))))
3898 (table--goto-coordinate rb-coord) nil t)))
4164 (org-coord (table--get-coordinate))
4165 (in-cell (equal (table--cell-to-coord (table--probe-cell))
4185 org-coord))))
4205 (current-cell-coordinate (table--cell-to-coord (table--probe-cell)))
4206 (cell-coord-list (progn
4208 (table--cell-list-to-coord-list (table--vertical-cell-list)))))
4209 (while cell-coord-list
4210 (let* ((cell-coord (prog1 (car cell-coord-list) (setq cell-coord-list (cdr cell-coord-list))))
4211 (currentp (equal cell-coord current-cell-coordinate)))
4213 (table--goto-coordinate (car cell-coord)))
4246 (current-cell-coordinate (table--cell-to-coord (table--probe-cell)))
4247 (cell-coord-list (progn
4249 (table--cell-list-to-coord-list (table--horizontal-cell-list)))))
4250 (while cell-coord-list
4251 (let* ((cell-coord (prog1 (car cell-coord-list) (setq cell-coord-list (cdr cell-coord-list))))
4252 (currentp (equal cell-coord current-cell-coordinate)))
4254 (table--goto-coordinate (car cell-coord)))
4411 (let ((coord (table--get-coordinate)))
4412 (unless (< (cdr coord) table-cell-info-height)
4413 (setcdr coord (1- table-cell-info-height))
4414 (table--goto-coordinate coord))
4415 coord))))
4583 (defun table--horizontally-shift-above-and-below (columns-to-extend top-to-bottom-coord-list)
4593 (let (beg-coord end-coord)
4594 (table--goto-coordinate (caar top-to-bottom-coord-list))
4596 (coord (cons (car (table--get-coordinate (cdr cell)))
4598 (setcar coord (1+ (car coord)))
4599 (setcdr coord (- (cdr coord) 2))
4600 (setq beg-coord (cons (car coord) (1+ (cdr coord))))
4601 (while (and (table--goto-coordinate coord 'no-extension)
4609 (setcdr coord (1- (cdr coord)))))
4610 (table--goto-coordinate (caar (last top-to-bottom-coord-list)))
4611 (let ((coord (table--get-coordinate (cdr (table--horizontal-cell-list nil 'first-only 'bottom)))))
4612 (setcar coord (1+ (car coord)))
4613 (setcdr coord (+ (cdr coord) 2))
4614 (setq end-coord (cons (car coord) (1- (cdr coord))))
4615 (while (and (table--goto-coordinate coord 'no-extension)
4623 (setcdr coord (1+ (cdr coord)))))
4624 (while (<= (cdr beg-coord) (cdr end-coord))
4625 (table--untabify-line (table--goto-coordinate beg-coord 'no-extension))
4626 (setcdr beg-coord (1+ (cdr beg-coord)))))))
4628 (defun table--create-growing-space-below (lines-to-extend left-to-right-coord-list bottom-border-y)
4646 (cons (1- (caar (car left-to-right-coord-list))) bottom-border-y)))
4659 (table--goto-coordinate (cons (1- (caar (car left-to-right-coord-list))) y))
4660 (table--goto-coordinate (cons (1+ (cadr (car (last left-to-right-coord-list)))) y))))))
4718 (let ((coord (table--get-coordinate)))
4721 (if columnp (setcar coord (1- (car coord)))
4722 (setcdr coord (1- (cdr coord))))
4723 (>= (if columnp (car coord) (cdr coord)) 0))
4725 (table--goto-coordinate coord 'no-extension 'no-tab-expansion)
4730 (if columnp (setcar coord (1- (car coord)))
4731 (setcdr coord (1- (cdr coord))))
4732 (if (< (if columnp (car coord) (cdr coord)) 0)
4735 (throw 'end (table--cell-list-to-coord-list (if columnp
4738 (table--goto-coordinate (table--offset-coordinate coord (if columnp '(0 . 1) '(1 . 0)))
4741 (throw 'end (table--cell-list-to-coord-list (if columnp
4748 (defun table--min-coord-list (coord-list)
4750 COORD-LIST is a list of coordinate pairs (lu-coord . rb-coord), where
4751 each pair in the list represents a cell. lu-coord is the left upper
4752 coordinate of a cell and rb-coord is the right bottom coordinate of a
4757 (if (null coord-list) nil
4760 (while coord-list
4761 (let* ((coord (prog1 (car coord-list) (setq coord-list (cdr coord-list))))
4762 (width (- (cadr coord) (caar coord)))
4763 (height (1+ (- (cddr coord) (cdar coord)))))
4922 (defun table--cell-to-coord (cell)
4929 (defun table--cell-list-to-coord-list (cell-list)
4934 coordinate pairs (lu-coord . rb-coord), where lu-coord is the left
4935 upper coordinate and rb-coord is the right bottom coordinate of a
4937 (let ((coord-list))
4940 (setq coord-list
4941 (cons (table--cell-to-coord cell) coord-list))))
4942 (nreverse coord-list)))
5521 (defun table--copy-coordinate (coord)
5523 (cons (car coord) (cdr coord)))