ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
org-mode/lisp/org-table.el

6388 lines
237 KiB
EmacsLisp
Raw Normal View History

Activate lexical binding in some libraries * lisp/ob-C.el (org-babel-prep-session:C): (org-babel-load-session:C): * lisp/ob-J.el: (org-babel-expand-body:J): (org-babel-execute:J): * lisp/ob-R.el: (org-babel-expand-body:R): * lisp/ob-abc.el: (org-babel-execute:abc): (org-babel-prep-session:abc): * lisp/ob-asymptote.el: (org-babel-execute:asymptote): (org-babel-prep-session:asymptote): * lisp/ob-awk.el: (org-babel-expand-body:awk): * lisp/ob-calc.el: (org-babel-expand-body:calc): * lisp/ob-clojure.el: * lisp/ob-comint.el: (org-babel-comint-in-buffer): (org-babel-comint-with-output): (org-babel-comint-eval-invisibly-and-wait-for-file): * lisp/ob-coq.el: * lisp/ob-css.el: (org-babel-execute:css): (org-babel-prep-session:css): * lisp/ob-ditaa.el: (org-babel-execute:ditaa): (org-babel-prep-session:ditaa): * lisp/ob-dot.el: (org-babel-execute:dot): (org-babel-prep-session:dot): * lisp/ob-ebnf.el: * lisp/ob-emacs-lisp.el: * lisp/ob-eval.el: * lisp/ob-forth.el: * lisp/ob-fortran.el: (org-babel-execute:fortran): (org-babel-prep-session:fortran): (org-babel-load-session:fortran): * lisp/ob-gnuplot.el: (org-babel-expand-body:gnuplot): (org-babel-prep-session:gnuplot): (org-babel-gnuplot-initiate-session): * lisp/ob-groovy.el: (org-babel-prep-session:groovy): (org-babel-groovy-initiate-session): * lisp/ob-haskell.el: (org-babel-haskell-initiate-session): * lisp/ob-io.el: (org-babel-prep-session:io): (org-babel-io-initiate-session): * lisp/ob-java.el: (org-babel-execute:java): * lisp/ob-js.el: * lisp/ob-keys.el: * lisp/ob-latex.el: (org-babel-prep-session:latex): * lisp/ob-ledger.el: (org-babel-execute:ledger): (org-babel-prep-session:ledger): * lisp/ob-lilypond.el: (org-babel-lilypond-commands): (org-babel-lilypond-process-basic): (org-babel-prep-session:lilypond): (org-babel-lilypond-parse-line-num): * lisp/ob-lisp.el: * lisp/ob-makefile.el: (org-babel-execute:makefile): (org-babel-prep-session:makefile): * lisp/ob-matlab.el: * lisp/ob-maxima.el: (org-babel-prep-session:maxima): * lisp/ob-mscgen.el: (org-babel-prep-session:mscgen): * lisp/ob-ocaml.el: (org-babel-execute:ocaml): (org-babel-prep-session:ocaml): * lisp/ob-octave.el: (org-babel-execute:octave): (org-babel-octave-initiate-session): * lisp/ob-org.el: (org-babel-prep-session:org): * lisp/ob-perl.el: (org-babel-prep-session:perl): (org-babel-perl--var-to-perl): (org-babel-perl-initiate-session): * lisp/ob-picolisp.el: (org-babel-expand-body:picolisp): (org-babel-execute:picolisp): * lisp/ob-plantuml.el: (org-babel-execute:plantuml): (org-babel-prep-session:plantuml): * lisp/ob-processing.el: (org-babel-prep-session:processing): * lisp/ob-python.el: (org-babel-python-initiate-session): * lisp/ob-ref.el: (org-babel-ref-resolve): * lisp/ob-ruby.el: (org-babel-ruby-initiate-session): * lisp/ob-sass.el: (org-babel-execute:sass): (org-babel-prep-session:sass): * lisp/ob-scala.el: (org-babel-execute:scala): (org-babel-prep-session:scala): (org-babel-scala-initiate-session): * lisp/ob-scheme.el: * lisp/ob-screen.el: (org-babel-prep-session:screen): (org-babel-screen-session-write-temp-file): (org-babel-screen-test): * lisp/ob.el: * lisp/org-colview.el: (org-columns-todo): (org-columns-set-tags-or-toggle): (org-columns-new): (org-columns-uncompile-format): (org-agenda-colview-summarize): * lisp/org-footnote.el: (electric-indent-mode): * lisp/org-indent.el: (org-indent-refresh-maybe): * lisp/org-list.el: * lisp/org-macro.el: (org-macro--collect-macros): * lisp/org-src.el: * lisp/org-table.el: (sort-fold-case): (org-table-create): (org-table-field-info): (org-table-transpose-table-at-point): (org-table-remove-rectangle-highlight): (orgtbl-create-or-convert-from-region): (org-define-lookup-function): * lisp/ox-ascii.el: (org-ascii-format-drawer-function): (org-ascii--has-caption-p): (org-ascii-bold): (org-ascii-center-block): (org-ascii-clock): (org-ascii-code): (org-ascii-dynamic-block): (org-ascii-entity): (org-ascii-example-block): (org-ascii-export-snippet): (org-ascii-export-block): (org-ascii-fixed-width): (org-ascii-footnote-reference): (org-ascii-horizontal-rule): (org-ascii-inline-src-block): (org-ascii-format-inlinetask-default): (org-ascii-italic): (org-ascii-keyword): (org-ascii-latex-environment): (org-ascii-latex-fragment): (org-ascii-line-break): (org-ascii-node-property): (org-ascii-planning): (org-ascii-quote-block): (org-ascii-radio-target): (org-ascii-special-block): (org-ascii-src-block): (org-ascii-statistics-cookie): (org-ascii-subscript): (org-ascii-superscript): (org-ascii-strike-through): (org-ascii-timestamp): (org-ascii-underline): (org-ascii-verbatim): (org-ascii-verse-block): (org-ascii-filter-headline-blank-lines): (org-ascii-filter-paragraph-spacing): (org-ascii-filter-comment-spacing): Use lexical binding.
2015-10-25 20:56:00 -04:00
;;; org-table.el --- The Table Editor for Org -*- lexical-binding: t; -*-
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Backport commit cae528457 from Emacs ; Add 2023 to copyright years. cae528457cb862dc886a34240c9d4c73035b6659 Eli Zaretskii Sun Jan 1 05:31:12 2023 -0500
2023-01-01 05:31:12 -05:00
;; Copyright (C) 2004-2023 Free Software Foundation, Inc.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update Carsten's email address in some files
2021-05-07 10:50:57 -04:00
;; Author: Carsten Dominik <carsten.dominik@gmail.com>
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; Keywords: outlines, hypermedia, calendar, wp
Prefer "website" to "homepage" Emacs now advises using "website" (instead of "homepage") and consequently to use the "URL" comment header instead of "Homepage". * README: * README_ELPA: * doc/org-guide.org (Creating Footnotes): * doc/org-manual.org (Creating Footnotes): * etc/styles/README (URL): Prefer "website" to "homepage". * lisp/*.el: * mk/org-fixup.el: Replace the "Homepage" header comment with "URL".
2021-09-26 03:44:29 -04:00
;; URL: https://orgmode.org
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;;
;; This file is part of GNU Emacs.
;;
Sync copyright fixes from downstream Emacs
2008-05-06 08:45:52 -04:00
;; GNU Emacs is free software: you can redistribute it and/or modify
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; it under the terms of the GNU General Public License as published by
Sync copyright fixes from downstream Emacs
2008-05-06 08:45:52 -04:00
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
Backport commit bc511a64f from Emacs Prefer HTTPS to FTP and HTTP in documentation bc511a64f6da9ab51acc7c8865e80c4a4cb655c2 Paul Eggert Wed Sep 13 15:54:37 2017 -0700
2017-09-13 18:52:52 -04:00
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
org-table: Fix code comments
2015-07-28 18:14:10 -04:00
;; This file contains the table editor and spreadsheet for Org mode.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; Watch out: Here we are talking about two different kind of tables.
org-table: Fix code comments
2015-07-28 18:14:10 -04:00
;; Most of the code is for the tables created with the Org mode table editor.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; Sometimes, we talk about tables created and edited with the table.el
;; Emacs package. We call the former org-type tables, and the latter
;; table.el-type tables.
;;; Code:
Assert all the Org files to load the same Org version * lisp/org-compat.el (org-assert-version): New macro comparing Org version at compile time and laod time. Add `org-assert-version' call to all files: * lisp/org-macs.el: * lisp/org-crypt.el: * lisp/org-ctags.el: * lisp/org-cycle.el: * lisp/org-datetree.el: * lisp/org-duration.el: * lisp/org-element.el (avl-tree): * lisp/org-entities.el: * lisp/org-faces.el: * lisp/org-feed.el: * lisp/org-fold-core.el: * lisp/org-fold.el: * lisp/org-footnote.el: * lisp/org-goto.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-indent.el: * lisp/org-inlinetask.el: * lisp/org-keys.el: * lisp/org-lint.el: * lisp/org-list.el: * lisp/org-macro.el: * lisp/org-mobile.el: * lisp/org-mouse.el: * lisp/org-num.el: * lisp/org-pcomplete.el: * lisp/org-persist.el: * lisp/org-plot.el: * lisp/org-protocol.el: * lisp/org-refile.el: * lisp/org-src.el: * lisp/org-table.el: * lisp/org-tempo.el: * lisp/org-timer.el: * lisp/org.el: * lisp/ox-ascii.el: * lisp/ox-beamer.el: * lisp/ox-html.el: * lisp/ox-icalendar.el: * lisp/ox-koma-letter.el: * lisp/ox-latex.el: * lisp/ox-man.el: * lisp/ox-md.el: * lisp/ox-odt.el: * lisp/ox-org.el: * lisp/ox-publish.el: * lisp/ox-texinfo.el: * lisp/ox.el:
2022-08-04 09:53:05 -04:00
(require 'org-macs)
(org-assert-version)
Remove some home-grown copies of cl-lib functions. * lisp/org.el (org-count, org-remove-if, org-remove-if-not): (org-reduce, org-every, org-some): Obsolete, use cl-lib versions everywhere. (org-sublist): Reimplement in terms of `cl-subseq'; make obsolete.
2015-11-06 07:04:20 -05:00
(require 'cl-lib)
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(require 'org-macs)
(require 'org-compat)
(require 'org-keys)
org-table: Require org-fold-core * lisp/org-table.el: Explicitly load org-fold-core. 'make single' warns that org-fold-core-ignore-modifications in org-table.el (introduced a few commits back) is not known to be defined, and the Emacs repo would show the same warning.
2022-12-10 16:15:16 -05:00
(require 'org-fold-core)
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(declare-function calc-eval "calc" (str &optional separator &rest args))
org-table.el: Silence compiler warnings
2020-01-30 05:54:51 -05:00
(declare-function face-remap-remove-relative "face-remap" (cookie))
(declare-function face-remap-add-relative "face-remap" (face &rest specs))
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(declare-function org-at-timestamp-p "org" (&optional extended))
(declare-function org-delete-backward-char "org" (N))
Silence byte-compiler in Emacs repo These show up in the Emacs repo (before and after the latest sync in f22856a5c5), but for an unknown reason do not show up with `make compile' or `make single' in the Org repo. All of these functions are autoloaded.
2020-12-13 13:56:29 -05:00
(declare-function org-mode "org" ())
(declare-function org-duration-p "org-duration" (duration &optional canonical))
(declare-function org-duration-to-minutes "org-duration" (duration &optional canonical))
Fix signature for org-element-at-point
2022-01-06 12:39:05 -05:00
(declare-function org-element-at-point "org-element" (&optional pom cached-only))
Silence byte-compiler
2015-06-28 10:50:08 -04:00
(declare-function org-element-contents "org-element" (element))
(declare-function org-element-extract-element "org-element" (element))
(declare-function org-element-interpret-data "org-element" (data))
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(declare-function org-element-lineage "org-element" (blob &optional types with-self))
(declare-function org-element-map "org-element" (data types fun &optional info first-match no-recursion with-affiliated))
(declare-function org-element-parse-buffer "org-element" (&optional granularity visible-only))
Silence byte-compiler
2015-06-28 10:50:08 -04:00
(declare-function org-element-property "org-element" (property element))
org-table: Silence byte-compiler
2015-09-19 10:36:26 -04:00
(declare-function org-element-type "org-element" (element))
org-export: Suppress cache persistence in buffer copies during export * lisp/org-element.el (org-element-cache-reset): Add new optional argument that suppresses all persistence-related calculations. * lisp/org-table.el (org-element-cache-reset): * lisp/org.el (org-element-cache-reset): Update function signature. * lisp/ox.el (org-export--generate-copy-script): Do not try to use cache persistence in throwaway buffer copies. Reported-by: Rudolf Adamkovič <salutis@me.com> Link: https://list.orgmode.org/m2zgef774u.fsf@me.com/T/#t
2022-10-07 00:42:26 -04:00
(declare-function org-element-cache-reset "org-element" (&optional all no-persistence))
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(declare-function org-entry-get "org" (pom property &optional inherit literal-nil))
Fix remaining declare-function issues * lisp/ob-shell.el (org-babel-comint-in-buffer): (org-babel-comint-with-output): * lisp/org-table.el (org-export-create-backend): * lisp/org.el (org-babel-do-in-edit-buffer): Indicate that FN is not a defun. * lisp/ob-tangle.el (org-string-nw-p): * lisp/org-table.el (org-export-create-backend): (org-export-data-with-backend): (org-export-filter-apply-functions): (org-export-first-sibling-p): (org-export-get-backend): (org-export-get-environment): (org-export-install-filters): (org-export-table-has-special-column-p): (org-export-table-row-is-special-p): Correct source file name. * lisp/ob-R.el (ess-wait-for-process): * lisp/org-clock.el (calendar-iso-to-absolute): * lisp/org-list.el (org-previous-line-empty-p): * lisp/org-pcomplete.el (org-entry-properties): * lisp/org-table.el (org-export-data-with-backend): (org-export-get-environment): * lisp/org.el (org-element-interpret-data): Correct argument list.
2016-05-15 17:42:47 -04:00
(declare-function org-export-create-backend "ox" (&rest rest) t)
(declare-function org-export-data-with-backend "ox" (data backend info))
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(declare-function org-export-filter-apply-functions "ox" (filters value info))
Fix remaining declare-function issues * lisp/ob-shell.el (org-babel-comint-in-buffer): (org-babel-comint-with-output): * lisp/org-table.el (org-export-create-backend): * lisp/org.el (org-babel-do-in-edit-buffer): Indicate that FN is not a defun. * lisp/ob-tangle.el (org-string-nw-p): * lisp/org-table.el (org-export-create-backend): (org-export-data-with-backend): (org-export-filter-apply-functions): (org-export-first-sibling-p): (org-export-get-backend): (org-export-get-environment): (org-export-install-filters): (org-export-table-has-special-column-p): (org-export-table-row-is-special-p): Correct source file name. * lisp/ob-R.el (ess-wait-for-process): * lisp/org-clock.el (calendar-iso-to-absolute): * lisp/org-list.el (org-previous-line-empty-p): * lisp/org-pcomplete.el (org-entry-properties): * lisp/org-table.el (org-export-data-with-backend): (org-export-get-environment): * lisp/org.el (org-element-interpret-data): Correct argument list.
2016-05-15 17:42:47 -04:00
(declare-function org-export-first-sibling-p "ox" (blob info))
(declare-function org-export-get-backend "ox" (name))
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(declare-function org-export-get-environment "ox" (&optional backend subtreep ext-plist))
Fix remaining declare-function issues * lisp/ob-shell.el (org-babel-comint-in-buffer): (org-babel-comint-with-output): * lisp/org-table.el (org-export-create-backend): * lisp/org.el (org-babel-do-in-edit-buffer): Indicate that FN is not a defun. * lisp/ob-tangle.el (org-string-nw-p): * lisp/org-table.el (org-export-create-backend): (org-export-data-with-backend): (org-export-filter-apply-functions): (org-export-first-sibling-p): (org-export-get-backend): (org-export-get-environment): (org-export-install-filters): (org-export-table-has-special-column-p): (org-export-table-row-is-special-p): Correct source file name. * lisp/ob-R.el (ess-wait-for-process): * lisp/org-clock.el (calendar-iso-to-absolute): * lisp/org-list.el (org-previous-line-empty-p): * lisp/org-pcomplete.el (org-entry-properties): * lisp/org-table.el (org-export-data-with-backend): (org-export-get-environment): * lisp/org.el (org-element-interpret-data): Correct argument list.
2016-05-15 17:42:47 -04:00
(declare-function org-export-install-filters "ox" (info))
(declare-function org-export-table-has-special-column-p "ox" (table))
(declare-function org-export-table-row-is-special-p "ox" (table-row info))
Fix byte-comp function warnings * (org.el, org-table.el org-keys.el) Declare functions for byte compiler.
2021-09-25 15:05:08 -04:00
(declare-function org-forward-paragraph "org" (&optional arg))
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(declare-function org-id-find "org-id" (id &optional markerp))
(declare-function org-indent-line "org" ())
(declare-function org-load-modules-maybe "org" (&optional force))
(declare-function org-restart-font-lock "org" ())
(declare-function org-sort-remove-invisible "org" (s))
(declare-function org-time-stamp-format "org" (&optional long inactive))
(declare-function org-time-string-to-absolute "org" (s &optional daynr prefer buffer pos))
(declare-function org-time-string-to-time "org" (s))
(declare-function org-timestamp-up-day "org" (&optional arg))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar constants-unit-system)
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(defvar org-M-RET-may-split-line)
`orgtbl-to-generic' speed-up * lisp/org-element.el (org-element-class): Make it a defsubst. * lisp/org-table.el (orgtbl-to-generic): Do not use cache when building Org table. Factor out calls to Org Export functions when they are not necessary. (org-table--to-generic-row): Factor out calls to Org Export functions when they are not necessary. * lisp/ox.el (org-export-resolve-fuzzy-link): (org-export-table-has-header-p): (org-export-table-row-group): (org-export-table-cell-width): (org-export-table-cell-alignment): Small refactoring. (org-export-table-row-number): Add caching. * testing/lisp/test-org-element.el (test-org-element/class): Remove test.
2016-12-29 12:48:20 -05:00
(defvar org-element-use-cache)
org-table: Silence byte-compiler
2016-03-24 17:12:58 -04:00
(defvar org-export-filters-alist)
org-table: Do not require 'org
2019-03-12 06:05:50 -04:00
(defvar org-finish-function)
(defvar org-inhibit-highlight-removal)
(defvar org-inhibit-startup)
(defvar org-selected-window)
(defvar org-self-insert-cluster-for-undo)
(defvar org-self-insert-command-undo-counter)
(defvar org-ts-regexp)
(defvar org-ts-regexp-both)
(defvar org-ts-regexp-inactive)
(defvar org-ts-regexp3)
(defvar org-window-configuration)
Activate lexical binding in some libraries * lisp/ob-C.el (org-babel-prep-session:C): (org-babel-load-session:C): * lisp/ob-J.el: (org-babel-expand-body:J): (org-babel-execute:J): * lisp/ob-R.el: (org-babel-expand-body:R): * lisp/ob-abc.el: (org-babel-execute:abc): (org-babel-prep-session:abc): * lisp/ob-asymptote.el: (org-babel-execute:asymptote): (org-babel-prep-session:asymptote): * lisp/ob-awk.el: (org-babel-expand-body:awk): * lisp/ob-calc.el: (org-babel-expand-body:calc): * lisp/ob-clojure.el: * lisp/ob-comint.el: (org-babel-comint-in-buffer): (org-babel-comint-with-output): (org-babel-comint-eval-invisibly-and-wait-for-file): * lisp/ob-coq.el: * lisp/ob-css.el: (org-babel-execute:css): (org-babel-prep-session:css): * lisp/ob-ditaa.el: (org-babel-execute:ditaa): (org-babel-prep-session:ditaa): * lisp/ob-dot.el: (org-babel-execute:dot): (org-babel-prep-session:dot): * lisp/ob-ebnf.el: * lisp/ob-emacs-lisp.el: * lisp/ob-eval.el: * lisp/ob-forth.el: * lisp/ob-fortran.el: (org-babel-execute:fortran): (org-babel-prep-session:fortran): (org-babel-load-session:fortran): * lisp/ob-gnuplot.el: (org-babel-expand-body:gnuplot): (org-babel-prep-session:gnuplot): (org-babel-gnuplot-initiate-session): * lisp/ob-groovy.el: (org-babel-prep-session:groovy): (org-babel-groovy-initiate-session): * lisp/ob-haskell.el: (org-babel-haskell-initiate-session): * lisp/ob-io.el: (org-babel-prep-session:io): (org-babel-io-initiate-session): * lisp/ob-java.el: (org-babel-execute:java): * lisp/ob-js.el: * lisp/ob-keys.el: * lisp/ob-latex.el: (org-babel-prep-session:latex): * lisp/ob-ledger.el: (org-babel-execute:ledger): (org-babel-prep-session:ledger): * lisp/ob-lilypond.el: (org-babel-lilypond-commands): (org-babel-lilypond-process-basic): (org-babel-prep-session:lilypond): (org-babel-lilypond-parse-line-num): * lisp/ob-lisp.el: * lisp/ob-makefile.el: (org-babel-execute:makefile): (org-babel-prep-session:makefile): * lisp/ob-matlab.el: * lisp/ob-maxima.el: (org-babel-prep-session:maxima): * lisp/ob-mscgen.el: (org-babel-prep-session:mscgen): * lisp/ob-ocaml.el: (org-babel-execute:ocaml): (org-babel-prep-session:ocaml): * lisp/ob-octave.el: (org-babel-execute:octave): (org-babel-octave-initiate-session): * lisp/ob-org.el: (org-babel-prep-session:org): * lisp/ob-perl.el: (org-babel-prep-session:perl): (org-babel-perl--var-to-perl): (org-babel-perl-initiate-session): * lisp/ob-picolisp.el: (org-babel-expand-body:picolisp): (org-babel-execute:picolisp): * lisp/ob-plantuml.el: (org-babel-execute:plantuml): (org-babel-prep-session:plantuml): * lisp/ob-processing.el: (org-babel-prep-session:processing): * lisp/ob-python.el: (org-babel-python-initiate-session): * lisp/ob-ref.el: (org-babel-ref-resolve): * lisp/ob-ruby.el: (org-babel-ruby-initiate-session): * lisp/ob-sass.el: (org-babel-execute:sass): (org-babel-prep-session:sass): * lisp/ob-scala.el: (org-babel-execute:scala): (org-babel-prep-session:scala): (org-babel-scala-initiate-session): * lisp/ob-scheme.el: * lisp/ob-screen.el: (org-babel-prep-session:screen): (org-babel-screen-session-write-temp-file): (org-babel-screen-test): * lisp/ob.el: * lisp/org-colview.el: (org-columns-todo): (org-columns-set-tags-or-toggle): (org-columns-new): (org-columns-uncompile-format): (org-agenda-colview-summarize): * lisp/org-footnote.el: (electric-indent-mode): * lisp/org-indent.el: (org-indent-refresh-maybe): * lisp/org-list.el: * lisp/org-macro.el: (org-macro--collect-macros): * lisp/org-src.el: * lisp/org-table.el: (sort-fold-case): (org-table-create): (org-table-field-info): (org-table-transpose-table-at-point): (org-table-remove-rectangle-highlight): (orgtbl-create-or-convert-from-region): (org-define-lookup-function): * lisp/ox-ascii.el: (org-ascii-format-drawer-function): (org-ascii--has-caption-p): (org-ascii-bold): (org-ascii-center-block): (org-ascii-clock): (org-ascii-code): (org-ascii-dynamic-block): (org-ascii-entity): (org-ascii-example-block): (org-ascii-export-snippet): (org-ascii-export-block): (org-ascii-fixed-width): (org-ascii-footnote-reference): (org-ascii-horizontal-rule): (org-ascii-inline-src-block): (org-ascii-format-inlinetask-default): (org-ascii-italic): (org-ascii-keyword): (org-ascii-latex-environment): (org-ascii-latex-fragment): (org-ascii-line-break): (org-ascii-node-property): (org-ascii-planning): (org-ascii-quote-block): (org-ascii-radio-target): (org-ascii-special-block): (org-ascii-src-block): (org-ascii-statistics-cookie): (org-ascii-subscript): (org-ascii-superscript): (org-ascii-strike-through): (org-ascii-timestamp): (org-ascii-underline): (org-ascii-verbatim): (org-ascii-verse-block): (org-ascii-filter-headline-blank-lines): (org-ascii-filter-paragraph-spacing): (org-ascii-filter-comment-spacing): Use lexical binding.
2015-10-25 20:56:00 -04:00
(defvar sort-fold-case)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;; Customizables
New hook to run after orgtbl-mode has sent a table * lisp/org-table.el (orgtbl-after-send-table-hook): New hook. (orgtbl-ctrl-c-ctrl-c): Run `orgtbl-after-send-table-hook' when a table was sent. (orgtbl-send-table): Return the number of sent tables, or nil if no sending has happened. Patch by Seweryn Kokot. TINYCHANGE
2010-11-17 07:58:52 -05:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defgroup org-table nil
"Options concerning tables in Org mode."
:tag "Org Table"
:group 'org)
org-table.el (org-TBLFM-begin): Add function * org-table.el (org-TBLFM-begin): New defun. (org-TBLFM-begin-regexp): New variable. * testing/lisp/test-org-table.el: Add test.
2013-04-02 05:09:26 -04:00
Remove `org-enable-table-editor' * doc/org.texi (Built-in table editor): Document removal. * lisp/org-table.el (orgtbl-optimized): (org-table-auto-blank-field): Ignore removed variable.
2017-08-19 17:39:22 -04:00
(defcustom orgtbl-optimized t
Remove comma after means in many docstrings Stephen Eglen says these commas should not be there.
2010-01-21 10:15:40 -05:00
"Non-nil means use the optimized table editor version for `orgtbl-mode'.
Remove `org-enable-table-editor' * doc/org.texi (Built-in table editor): Document removal. * lisp/org-table.el (orgtbl-optimized): (org-table-auto-blank-field): Ignore removed variable.
2017-08-19 17:39:22 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
In the optimized version, the table editor takes over all simple keys that
normally just insert a character. In tables, the characters are inserted
in a way to minimize disturbing the table structure (i.e. in overwrite mode
for empty fields). Outside tables, the correct binding of the keys is
restored.
Remove `org-enable-table-editor' * doc/org.texi (Built-in table editor): Document removal. * lisp/org-table.el (orgtbl-optimized): (org-table-auto-blank-field): Ignore removed variable.
2017-08-19 17:39:22 -04:00
Changing this variable requires a restart of Emacs to become
effective."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:group 'org-table
:type 'boolean)
(defcustom orgtbl-radio-table-templates
'((latex-mode "% BEGIN RECEIVE ORGTBL %n
% END RECEIVE ORGTBL %n
\\begin{comment}
#+ORGTBL: SEND %n orgtbl-to-latex :splice nil :skip 0
| | |
\\end{comment}\n")
(texinfo-mode "@c BEGIN RECEIVE ORGTBL %n
@c END RECEIVE ORGTBL %n
@ignore
#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0
| | |
@end ignore\n")
(html-mode "<!-- BEGIN RECEIVE ORGTBL %n -->
<!-- END RECEIVE ORGTBL %n -->
<!--
#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0
| | |
Add `orgtbl-to-table.el' and `orgtbl-to-unicode'. * org-table.el (orgtbl-radio-table-templates): Add a template for org-mode. (orgtbl-to-orgtbl): Complete and align the table created with orgtbl-to-orgtbl, in case the user use the function for radio tables. (orgtbl-to-table.el): New function to export a table to another one using the table.el format. (orgtbl-to-unicode): New function to export a table using unicode characters.
2012-07-31 09:40:05 -04:00
-->\n")
(org-mode "#+ BEGIN RECEIVE ORGTBL %n
#+ END RECEIVE ORGTBL %n
#+ORGTBL: SEND %n orgtbl-to-orgtbl :splice nil :skip 0
| | |
"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
"Templates for radio tables in different major modes.
Improve docstring of `orgtbl-radio-table-templates' * lisp/org-table.el (orgtbl-radio-table-templates): Improve docstring.
2013-09-02 05:33:54 -04:00
Each template must define lines that will be treated as a comment and that
must contain the \"BEGIN RECEIVE ORGTBL %n\" and \"END RECEIVE ORGTBL\"
lines where \"%n\" will be replaced with the name of the table during
Backport Paul's fixes from Emacs trunk (1/2) See http://article.gmane.org/gmane.emacs.diffs/123123
2013-11-17 03:12:41 -05:00
insertion of the template. The transformed table will later be inserted
Improve docstring of `orgtbl-radio-table-templates' * lisp/org-table.el (orgtbl-radio-table-templates): Improve docstring.
2013-09-02 05:33:54 -04:00
between these lines.
The template should also contain a minimal table in a multiline comment.
Backport Paul's fixes from Emacs trunk (1/2) See http://article.gmane.org/gmane.emacs.diffs/123123
2013-11-17 03:12:41 -05:00
If multiline comments are not possible in the buffer language,
Improve docstring of `orgtbl-radio-table-templates' * lisp/org-table.el (orgtbl-radio-table-templates): Improve docstring.
2013-09-02 05:33:54 -04:00
you can pack it into a string that will not be used when the code
is compiled or executed. Above the table will you need a line with
the fixed string \"#+ORGTBL: SEND\", followed by instruction on how to
convert the table into a data structure useful in the
language of the buffer. Check the manual for the section on
\"Translator functions\", and more generally check out
Make manual and URL links in docstrings clickable
2018-01-16 11:46:46 -05:00
the Info node `(org)Tables in arbitrary syntax'.
Improve docstring of `orgtbl-radio-table-templates' * lisp/org-table.el (orgtbl-radio-table-templates): Improve docstring.
2013-09-02 05:33:54 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
All occurrences of %n in a template will be replaced with the name of the
table, obtained by prompting the user."
:group 'org-table
:type '(repeat
(list (symbol :tag "Major mode")
(string :tag "Format"))))
(defgroup org-table-settings nil
Change "Org-mode" into "Org mode" * lisp/org-agenda.el: * lisp/org-attach.el: * lisp/org-bbdb.el: * lisp/org-capture.el: * lisp/org-clock.el: * lisp/org-entities.el: * lisp/org-gnus.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-info.el: * lisp/org-inlinetask.el: * lisp/org-irc.el: * lisp/org-list.el: * lisp/org-mhe.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/ox-html.el: * lisp/ox-odt.el: Use "Org mode", or "Org", instead of "Org-mode".
2016-10-11 12:00:08 -04:00
"Settings for tables in Org mode."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:tag "Org Table Settings"
:group 'org-table)
Replace "org-table-electric-header" by "org-table-header-line" * lisp/org-table.el (org-table-header-line-p) (org-table-header-line-mode): Replace "org-table-electric-header" by "org-table-header-line". * doc/org-manual.org (Miscellaneous): Ditto. Thanks to Samuel Wales for suggesting this name.
2020-02-01 03:52:57 -05:00
(defcustom org-table-header-line-p nil
"Activate `org-table-header-line-mode' by default?"
Implement the `org-table-electric-header-mode' minor mode * lisp/org-table.el (org-table-electric-header-p): New option. (org-table-temp-header-line, org-table-electric-header-mode): New variables. (org-table-set-header-line-format) (org-table-electric-header-mode): New minor mode to display the table's current first row as the header line when this first row is not visible anymore. * doc/org-manual.org (Miscellaneous): Document `org-table-electric-header-mode'.
2020-01-29 09:17:32 -05:00
:type 'boolean
Fix :package-version values * lisp/ol.el (org-link-email-description-format): * lisp/org-src.el (org-src-tab-acts-natively): * lisp/org-table.el (org-table-header-line-p): * lisp/org.el (org-loop-over-headlines-in-active-region): (org-fontify-done-headline): Use correct (PACKAGE . VERSION-STRING) value. Remove :version keyword since :package-version overrides it.
2020-05-05 20:10:15 -04:00
:package-version '(Org . "9.4")
Implement the `org-table-electric-header-mode' minor mode * lisp/org-table.el (org-table-electric-header-p): New option. (org-table-temp-header-line, org-table-electric-header-mode): New variables. (org-table-set-header-line-format) (org-table-electric-header-mode): New minor mode to display the table's current first row as the header line when this first row is not visible anymore. * doc/org-manual.org (Miscellaneous): Document `org-table-electric-header-mode'.
2020-01-29 09:17:32 -05:00
:group 'org-table)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defcustom org-table-default-size "5x2"
"The default size for newly created tables, Columns x Rows."
:group 'org-table-settings
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
:type 'string)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defcustom org-table-number-regexp
Backport commit dfc322d77 from Emacs * lisp/org-mobile.el (org-mobile-copy-agenda-files) (org-mobile-update-checksum-for-capture-file): * lisp/org-table.el (org-table-number-regexp): Replace various combinations of [0-9a-fA-F] with [[:xdigit:]]. (Bug#36167) Replace manually crafted hex regexes with [:xdigit:] dfc322d77fd1ce3aa4d852e0ff07bb36944f6432 Konstantin Kharlamov Sat Jul 6 10:54:25 2019 +0300
2019-06-12 20:18:43 -04:00
"^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%:]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$"
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
"Regular expression for recognizing numbers in table columns.
If a table column contains mostly numbers, it will be aligned to the
right. If not, it will be aligned to the left.
The default value of this option is a regular expression which allows
anything which looks remotely like a number as used in scientific
context. For example, all of the following will be considered a
number:
Revert "org-table.el: Minor docstring update" This reverts commit 5d5736425638c0dbad99c191c3dba54db57f1adc.
2012-08-27 11:55:05 -04:00
12 12.2 2.4e-08 2x10^12 4.034+-0.02 2.7(10) >3.5
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Other options offered by the customize interface are more restrictive."
:group 'org-table-settings
:type '(choice
(const :tag "Positive Integers"
"^[0-9]+$")
(const :tag "Integers"
"^[-+]?[0-9]+$")
(const :tag "Floating Point Numbers"
Revert "org-table: Accept comma as a decimal mark to represent numbers" This reverts commit 7ff8c166e663872e4c1dd8c33771519800b3a8e9.
2012-08-27 11:55:18 -04:00
"^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.[0-9]*\\)$")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(const :tag "Floating Point Number or Integer"
Revert "org-table: Accept comma as a decimal mark to represent numbers" This reverts commit 7ff8c166e663872e4c1dd8c33771519800b3a8e9.
2012-08-27 11:55:18 -04:00
"^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.?[0-9]*\\)$")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(const :tag "Exponential, Floating point, Integer"
Revert "org-table: Accept comma as a decimal mark to represent numbers" This reverts commit 7ff8c166e663872e4c1dd8c33771519800b3a8e9.
2012-08-27 11:55:18 -04:00
"^[-+]?[0-9.]+\\([eEdD][-+0-9]+\\)?$")
Extend org-table-number-regexp * lisp/org-table.el (org-table-number-regexp): Extend 0x hex to fixed-point number, add <radix>#<number>, add Calc infinite numbers uinf, -inf and inf. * testing/lisp/test-org-table.el (test-org-table/align): Adapt alignment.
2012-12-28 09:00:03 -05:00
(const :tag "Very General Number-Like, including hex and Calc radix"
Backport commit dfc322d77 from Emacs * lisp/org-mobile.el (org-mobile-copy-agenda-files) (org-mobile-update-checksum-for-capture-file): * lisp/org-table.el (org-table-number-regexp): Replace various combinations of [0-9a-fA-F] with [[:xdigit:]]. (Bug#36167) Replace manually crafted hex regexes with [:xdigit:] dfc322d77fd1ce3aa4d852e0ff07bb36944f6432 Konstantin Kharlamov Sat Jul 6 10:54:25 2019 +0300
2019-06-12 20:18:43 -04:00
"^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$")
Extend org-table-number-regexp * lisp/org-table.el (org-table-number-regexp): Extend 0x hex to fixed-point number, add <radix>#<number>, add Calc infinite numbers uinf, -inf and inf. * testing/lisp/test-org-table.el (test-org-table/align): Adapt alignment.
2012-12-28 09:00:03 -05:00
(const :tag "Very General Number-Like, including hex and Calc radix, allows comma as decimal mark"
Backport commit dfc322d77 from Emacs * lisp/org-mobile.el (org-mobile-copy-agenda-files) (org-mobile-update-checksum-for-capture-file): * lisp/org-table.el (org-table-number-regexp): Replace various combinations of [0-9a-fA-F] with [[:xdigit:]]. (Bug#36167) Replace manually crafted hex regexes with [:xdigit:] dfc322d77fd1ce3aa4d852e0ff07bb36944f6432 Konstantin Kharlamov Sat Jul 6 10:54:25 2019 +0300
2019-06-12 20:18:43 -04:00
"^\\([<>]?[-+^.,0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$")
Backport commit af085ef40 from Emacs * lisp/org-agenda.el (org-agenda-hide-tags-regexp) (org-agenda-category-icon-alist): * lisp/org-protocol.el (org-protocol-data-separator): * lisp/org-table.el (org-table-number-regexp): * lisp/ox-latex.el (org-latex-known-warnings): Use 'regexp' instead of 'string' as type for values that are regexps in defcustom declarations. Use regexp type for regexps in defcustom declarations af085ef40b961ca3466e8b2dfb7f722573e5a4cc Mattias Engdegård Thu Dec 26 16:50:58 2019 +0100
2019-12-21 12:52:06 -05:00
(regexp :tag "Regexp:")))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defcustom org-table-number-fraction 0.5
"Fraction of numbers in a column required to make the column align right.
org-table: Fix typo in a docstring * lisp/org-table.el (org-table-number-fraction): Fix typo.
2012-04-23 14:53:51 -04:00
In a column all non-white fields are considered. If at least
this fraction of fields is matched by `org-table-number-regexp',
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
alignment to the right border applies."
:group 'org-table-settings
:type 'number)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defcustom org-table-formula-field-format "%s"
"Format for fields which contain the result of a formula.
For example, using \"~%s~\" will display the result within tilde
characters. Beware that modifying the display can prevent the
field from being used in another formula."
:group 'org-table-settings
:version "24.1"
:type 'string)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defgroup org-table-editing nil
Change "Org-mode" into "Org mode" * lisp/org-agenda.el: * lisp/org-attach.el: * lisp/org-bbdb.el: * lisp/org-capture.el: * lisp/org-clock.el: * lisp/org-entities.el: * lisp/org-gnus.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-info.el: * lisp/org-inlinetask.el: * lisp/org-irc.el: * lisp/org-list.el: * lisp/org-mhe.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/ox-html.el: * lisp/ox-odt.el: Use "Org mode", or "Org", instead of "Org-mode".
2016-10-11 12:00:08 -04:00
"Behavior of tables during editing in Org mode."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:tag "Org Table Editing"
:group 'org-table)
(defcustom org-table-automatic-realign t
Remove comma after means in many docstrings Stephen Eglen says these commas should not be there.
2010-01-21 10:15:40 -05:00
"Non-nil means automatically re-align table when pressing TAB or RETURN.
Improve docstrings * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-custom-commands): (org-stuck-projects): (org-agenda): (org-timeline): (org-todo-list): (org-agenda-filter-by-tag): (org-agenda-log-mode): (org-agenda-refile): (org-agenda-show-and-scroll-up): (org-agenda-tree-to-indirect-buffer): (org-agenda-show-the-flagging-note): (org-agenda-to-appt): * lisp/org-capture.el (org-capture-mode): (org-capture-use-agenda-date): (org-capture): * lisp/org-clock.el (org-clock-in): (org-clock-display): * lisp/org-colview.el (org-columns--display-here): (org-columns): * lisp/org-footnote.el (org-footnote-section): * lisp/org-gnus.el (org-gnus-prefer-web-links): * lisp/org-lint.el (org-lint): * lisp/org-list.el (org-plain-list-ordered-item-terminator): (org-list-allow-alphabetical): (org-list-automatic-rules): (org-list-use-circular-motion): * lisp/org-protocol.el (org-protocol-store-link): (org-protocol-create-for-org): * lisp/org-src.el (org-src-preserve-indentation): (org-edit-src-content-indentation): (org-src-mode-hook): (org-src-mode): (org-edit-table.el): (org-edit-export-block): (org-edit-src-code): (org-edit-fixed-width-region): * lisp/org-table.el (org-table-automatic-realign): (org-table-copy-increment): (org-table-formula-evaluate-inline): (org-table-allow-automatic-line-recalculation): (org-table-edit-field): (orgtbl-ascii-plot): * lisp/org-timer.el (org-timer): * lisp/org.el (org-deadline-string): (org-comment-string): (org-ellipsis): (org-show-context-detail): (org-indirect-buffer-display): (org-cycle-global-at-bob): (org-insert-heading-respect-content): (org-enable-table-editor): (org-context-in-file-links): (org-display-internal-link-with-indirect-buffer): (org-file-apps): (org-refile-targets): (org-todo-keywords): (org-use-fast-todo-selection): (org-treat-insert-todo-heading-as-state-change): (org-time-clocksum-use-fractional): (org-time-clocksum-use-effort-durations): (org-agenda-files): (org-cycle-hide-archived-subtrees): (org-cycle): (org-global-cycle): (org-tree-to-indirect-buffer): (org-insert-heading): (org-store-link): (org-insert-link): (org-mark-ring-push): (org-refile): (org-todo): (org-show-todo-tree): (org-reveal): (org-check-deadlines): (org-switchb): (org-cdlatex-mode): (org-toggle-latex-fragment): (org-ctrl-c-ctrl-c): (org-toggle-heading): (org-indent-line): (org-yank): (org-speedbar-set-agenda-restriction): * lisp/ox-html.el (org-html-htmlize-output-type): * lisp/ox-icalendar.el (org-icalendar-combined-agenda-file): * lisp/ox-publish.el (org-publish-project-alist): * lisp/ox.el (org-export-in-background): (org-export-stack-mode): (org-export--stack-source-at-point): (org-export-dispatch): Improve quotes and formatting in docstrings.
2016-10-15 11:36:47 -04:00
When nil, aligning is only done with `\\[org-table-align]', or after column
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
removal/insertion."
:group 'org-table-editing
:type 'boolean)
(defcustom org-table-auto-blank-field t
Remove comma after means in many docstrings Stephen Eglen says these commas should not be there.
2010-01-21 10:15:40 -05:00
"Non-nil means automatically blank table field when starting to type into it.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
This only happens when typing immediately after a field motion
Remove `org-enable-table-editor' * doc/org.texi (Built-in table editor): Document removal. * lisp/org-table.el (orgtbl-optimized): (org-table-auto-blank-field): Ignore removed variable.
2017-08-19 17:39:22 -04:00
command (TAB, S-TAB or RET)."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:group 'org-table-editing
:type 'boolean)
Implement a minor mode for the editor following the cursor through the table * doc/org.texi (Built-in table editor): Document the table field follow mode. * lisp/org-table.el (org-table-exit-follow-field-mode-when-leaving-table): New option. (org-table-check-inside-data-field): New optional argument `noerror'. When set, the function will only return nil instead of throwing an error. (org-table-edit-field): Interpret double prefix argument, and improve the properties of the editing window. (org-table-follow-field-mode): New minor mode. (org-table-follow-fields-with-editor): New function. The main purpose of this functionality is to make working with table with long fields simpler, by always showing the full content of the current field. This functionality is based on the following mailing list thread http://thread.gmane.org/gmane.emacs.orgmode/41584 and contains ideas by Jonny, Juan Pechiar, and Michael Brand.
2011-05-11 03:48:36 -04:00
(defcustom org-table-exit-follow-field-mode-when-leaving-table t
"Non-nil means automatically exit the follow mode.
When nil, the follow mode will stay on and be active in any table
the cursor enters. Since the table follow filed mode messes with the
window configuration, it is not recommended to set this variable to nil,
except maybe locally in a special file that has mostly tables with long
fields."
:group 'org-table
Fix the master branch. I started from the 78ec8e commit then cherry-picked and squashed commits that have been done in master since then, except the bad commits that overwrote the tree (in master) with the tree in maint. This commit also bumps the version number to 7.8.06. The only "fix" that was made between 78ec8e and the previous commit is e0072f which has been reported to break stuff.
2012-03-19 16:38:12 -04:00
:version "24.1"
Implement a minor mode for the editor following the cursor through the table * doc/org.texi (Built-in table editor): Document the table field follow mode. * lisp/org-table.el (org-table-exit-follow-field-mode-when-leaving-table): New option. (org-table-check-inside-data-field): New optional argument `noerror'. When set, the function will only return nil instead of throwing an error. (org-table-edit-field): Interpret double prefix argument, and improve the properties of the editing window. (org-table-follow-field-mode): New minor mode. (org-table-follow-fields-with-editor): New function. The main purpose of this functionality is to make working with table with long fields simpler, by always showing the full content of the current field. This functionality is based on the following mailing list thread http://thread.gmane.org/gmane.emacs.orgmode/41584 and contains ideas by Jonny, Juan Pechiar, and Michael Brand.
2011-05-11 03:48:36 -04:00
:type 'boolean)
New custom variable `org-table-fix-formulas-confirm'. * org-table.el (org-table-fix-formulas-confirm): new custom variable. (org-table-insert-column, org-table-delete-column) (org-table-move-column, org-table-move-row) (org-table-insert-row, org-table-kill-row): Use it.
2011-03-05 17:22:32 -05:00
(defcustom org-table-fix-formulas-confirm nil
"Whether the user should confirm when Org fixes formulas."
:group 'org-table-editing
Fix the master branch. I started from the 78ec8e commit then cherry-picked and squashed commits that have been done in master since then, except the bad commits that overwrote the tree (in master) with the tree in maint. This commit also bumps the version number to 7.8.06. The only "fix" that was made between 78ec8e and the previous commit is e0072f which has been reported to break stuff.
2012-03-19 16:38:12 -04:00
:version "24.1"
New custom variable `org-table-fix-formulas-confirm'. * org-table.el (org-table-fix-formulas-confirm): new custom variable. (org-table-insert-column, org-table-delete-column) (org-table-move-column, org-table-move-row) (org-table-insert-row, org-table-kill-row): Use it.
2011-03-05 17:22:32 -05:00
:type '(choice
(const :tag "with yes-or-no" yes-or-no-p)
(const :tag "with y-or-n" y-or-n-p)
(const :tag "no confirmation" nil)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defcustom org-table-tab-jumps-over-hlines t
Remove comma after means in many docstrings Stephen Eglen says these commas should not be there.
2010-01-21 10:15:40 -05:00
"Non-nil means tab in the last column of a table with jump over a hline.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
If a horizontal separator line is following the current line,
`org-table-next-field' can either create a new row before that line, or jump
over the line. When this option is nil, a new line will be created before
this line."
:group 'org-table-editing
:type 'boolean)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defcustom org-table-shrunk-column-indicator "…"
"String to be displayed in a shrunk column."
:group 'org-table-editing
:type 'string
:package-version '(Org . "9.2")
:safe (lambda (v) (and (stringp v) (not (equal v "")))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defgroup org-table-calculation nil
Change "Org-mode" into "Org mode" * lisp/org-agenda.el: * lisp/org-attach.el: * lisp/org-bbdb.el: * lisp/org-capture.el: * lisp/org-clock.el: * lisp/org-entities.el: * lisp/org-gnus.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-info.el: * lisp/org-inlinetask.el: * lisp/org-irc.el: * lisp/org-list.el: * lisp/org-mhe.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/ox-html.el: * lisp/ox-odt.el: Use "Org mode", or "Org", instead of "Org-mode".
2016-10-11 12:00:08 -04:00
"Options concerning tables in Org mode."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:tag "Org Table Calculation"
:group 'org-table)
Change default for `org-table-use-standard-references'. * lisp/org-table.el (org-table-use-standard-references): Change default to `from'.
2011-03-03 11:45:02 -05:00
(defcustom org-table-use-standard-references 'from
Turn org-mode into Org or Org mode Use Org or Org mode instead of org-mode or Org-mode according to "Documentation standards".
2016-08-23 16:13:56 -04:00
"Non-nil means using table references like B3 instead of @3$2.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Possible values are:
nil never use them
from accept as input, do not present for editing
Fix small typo in docstring.
2011-03-03 03:30:16 -05:00
t accept as input and present for editing"
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:group 'org-table-calculation
:type '(choice
Small bug fixes.
2008-03-30 14:33:07 -04:00
(const :tag "Never, don't even check user input for them" nil)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(const :tag "Always, both as user input, and when editing" t)
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
(const :tag "Convert user input, don't offer during editing" from)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defcustom org-table-copy-increment t
Improve docstrings * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-custom-commands): (org-stuck-projects): (org-agenda): (org-timeline): (org-todo-list): (org-agenda-filter-by-tag): (org-agenda-log-mode): (org-agenda-refile): (org-agenda-show-and-scroll-up): (org-agenda-tree-to-indirect-buffer): (org-agenda-show-the-flagging-note): (org-agenda-to-appt): * lisp/org-capture.el (org-capture-mode): (org-capture-use-agenda-date): (org-capture): * lisp/org-clock.el (org-clock-in): (org-clock-display): * lisp/org-colview.el (org-columns--display-here): (org-columns): * lisp/org-footnote.el (org-footnote-section): * lisp/org-gnus.el (org-gnus-prefer-web-links): * lisp/org-lint.el (org-lint): * lisp/org-list.el (org-plain-list-ordered-item-terminator): (org-list-allow-alphabetical): (org-list-automatic-rules): (org-list-use-circular-motion): * lisp/org-protocol.el (org-protocol-store-link): (org-protocol-create-for-org): * lisp/org-src.el (org-src-preserve-indentation): (org-edit-src-content-indentation): (org-src-mode-hook): (org-src-mode): (org-edit-table.el): (org-edit-export-block): (org-edit-src-code): (org-edit-fixed-width-region): * lisp/org-table.el (org-table-automatic-realign): (org-table-copy-increment): (org-table-formula-evaluate-inline): (org-table-allow-automatic-line-recalculation): (org-table-edit-field): (orgtbl-ascii-plot): * lisp/org-timer.el (org-timer): * lisp/org.el (org-deadline-string): (org-comment-string): (org-ellipsis): (org-show-context-detail): (org-indirect-buffer-display): (org-cycle-global-at-bob): (org-insert-heading-respect-content): (org-enable-table-editor): (org-context-in-file-links): (org-display-internal-link-with-indirect-buffer): (org-file-apps): (org-refile-targets): (org-todo-keywords): (org-use-fast-todo-selection): (org-treat-insert-todo-heading-as-state-change): (org-time-clocksum-use-fractional): (org-time-clocksum-use-effort-durations): (org-agenda-files): (org-cycle-hide-archived-subtrees): (org-cycle): (org-global-cycle): (org-tree-to-indirect-buffer): (org-insert-heading): (org-store-link): (org-insert-link): (org-mark-ring-push): (org-refile): (org-todo): (org-show-todo-tree): (org-reveal): (org-check-deadlines): (org-switchb): (org-cdlatex-mode): (org-toggle-latex-fragment): (org-ctrl-c-ctrl-c): (org-toggle-heading): (org-indent-line): (org-yank): (org-speedbar-set-agenda-restriction): * lisp/ox-html.el (org-html-htmlize-output-type): * lisp/ox-icalendar.el (org-icalendar-combined-agenda-file): * lisp/ox-publish.el (org-publish-project-alist): * lisp/ox.el (org-export-in-background): (org-export-stack-mode): (org-export--stack-source-at-point): (org-export-dispatch): Improve quotes and formatting in docstrings.
2016-10-15 11:36:47 -04:00
"Non-nil means increment when copying current field with \
`\\[org-table-copy-down]'."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:group 'org-table-calculation
Change :version in defcustoms from "25.2" to "26.1" * lisp/ob-J.el (org-babel-J-command): * lisp/ob-core.el (org-babel-hash-show-time): * lisp/ob-exp.el (org-babel-exp-inline-code-template): * lisp/ob-lisp.el (org-babel-lisp-eval-fn): * lisp/org-agenda.el (org-agenda-view-columns-initially): * lisp/org-attach.el (org-attach-commit): (org-attach-archive-delete): (org-attach-annex-auto-get): * lisp/org-bibtex.el (org-bibtex-inherit-tags): * lisp/org-clock.el (org-clock-into-drawer): * lisp/org-colview.el (org-columns-summary-types): * lisp/org-faces.el (org-block): * lisp/org-src.el (org-src-block-faces): * lisp/org-table.el (org-table-copy-increment): (org-table-formula-create-columns): (org-table-convert-region-max-lines): * lisp/org-timer.el (org-timer-default-timer): * lisp/org.el (org-export-backends): (org-show-context-detail): (org-cycle-hook): (org-occur-case-fold-search): (org-preview-latex-default-process): (org-preview-latex-process-alist): (org-preview-latex-image-directory): (org-latex-default-packages-alist): (org-sparse-tree-default-date-type): (org-structure-template-alist): (org-effort-durations): (org-agenda-ignore-properties): Change :version from "25.2" to "26.1". (customize-package-emacs-version-alist): Fix associations between Org and Emacs releases. * lisp/ox-ascii.el (org-ascii-list-margin): * lisp/ox-beamer.el (org-beamer-subtitle-format): * lisp/ox-html.el (org-html-format-headline-function): (org-html-format-inlinetask-function): (org-html-viewport): * lisp/ox-latex.el (org-latex-caption-above): (org-latex-prefer-user-labels): (org-latex-subtitle-format): (org-latex-hyperref-template): (org-latex-footnote-defined-format): (org-latex-images-centered): (org-latex-default-figure-position): (org-latex-text-markup-alist): (org-latex-format-inlinetask-function): (org-latex-custom-lang-environments): (org-latex-compiler-file-string): (org-latex-compiler): (org-latex-bib-compiler): (org-latex-logfiles-extensions): (org-latex-known-warnings): * lisp/ox-md.el (org-md-footnotes-section): (org-md-footnote-format): * lisp/ox-odt.el (org-odt-format-headline-function): (org-odt-format-inlinetask-function): (org-odt-inline-image-rules): * lisp/ox-texinfo.el (org-texinfo-format-headline-function): * lisp/ox.el (org-export-with-creator): (org-export-with-title): (org-export-with-broken-links): (org-export-copy-to-kill-ring): Change :version from "25.2" to "26.1". It looks like the goal is to sync Org 9.0.* (maint) with the Emacs master branch (what will be version 26.1): https://lists.gnu.org/archive/html/emacs-orgmode/2017-01/msg00558.html
2017-01-25 23:39:18 -05:00
:version "26.1"
org-table.el (org-table-copy-increment): Change increment behavior * org-table.el (org-table-copy-increment): Use a number as a way to force a fixed increment value. (org-table-copy-down): Increment by the difference between the current field and the field in the row above. This is the default behavior. To go back to the previous behavior (to always increment by 1 unit), set `org-table-copy-increment' to 1. Thanks to Michael Brand for suggesting this.
2014-05-20 10:07:01 -04:00
:package-version '(Org . "8.3")
:type '(choice
(const :tag "Use the difference between the current and the above fields" t)
(integer :tag "Use a number" 1)
Fix code typo in 7ac468 Thanks to Michael for reporting it.
2014-05-20 12:59:29 -04:00
(const :tag "Don't increment the value when copying a field" nil)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defcustom org-calc-default-modes
'(calc-internal-prec 12
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
calc-float-format (float 8)
calc-angle-mode deg
calc-prefer-frac nil
calc-symbolic-mode nil
calc-date-format (YYYY "-" MM "-" DD " " Www (" " hh ":" mm))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
calc-display-working-message t)
Correct some doc strings [part 5] This is the fifth patch in a series that makes some straightforward corrections to a number of docstrings. Each change is normally to: - correct a typo, or - fix up hyperlinks to function or variable names, or - ensure slightly better conformance with the documentation guidelines and tips given in the Elisp manual No attempt is made to provide missing docstrings or document arguments. Cheers, Phil
2010-07-17 14:53:36 -04:00
"List with Calc mode settings for use in `calc-eval' for table formulas.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
The list must contain alternating symbols (Calc modes variables and values).
Turn org-mode into Org or Org mode Use Org or Org mode instead of org-mode or Org-mode according to "Documentation standards".
2016-08-23 16:13:56 -04:00
Don't remove any of the default settings, just change the values. Org mode
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
relies on the variables to be present in the list."
:group 'org-table-calculation
:type 'plist)
org-table: new defcustom `org-table-duration-custom-format'. This allows to display the output of duration computations as a fraction of days, hours, minutes or seconds. Thanks to Daniel E. Doherty for bringing up this need. * org-table.el (org-table-duration-custom-format): New defcustom to select output format of durations computations. (org-table-time-seconds-to-string): Use the new variable. (org-table-eval-formula): Allow `t' as a flag, on top of `T'. `t' will use the custom output format defined in `org-table-duration-custom-format.
2011-07-27 07:14:37 -04:00
(defcustom org-table-duration-custom-format 'hours
"Format for the output of calc computations like $1+$2;t.
Protect remaining apostrophes in docstrings Protect apostrophes not covered by the last backport. Convert expressions like '(...) to \\='(...) and symbols written as 'name to `name'. (In addition to ensuring the correct display, the latter also improves consistency with many Org docstrings.) If these aren't protected, Emacs 25 may display them as curved quotes in the help buffer, depending on the value of text-quoting-style.
2015-09-21 00:24:12 -04:00
The default value is `hours', and will output the results as a
number of hours. Other allowed values are `seconds', `minutes' and
`days', and the output will be a fraction of seconds, minutes or
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
days. `hh:mm' selects to use hours and minutes, ignoring seconds.
Implement new `U' mode switch for table formulas to omit seconds in durations * lisp/org-table.el (org-table-duration-custom-format): Add new HH:MM format. (org-table-duration-hour-zero-padding): New option. (org-table-eval-formula): Select second-less format if requested. (org-table-time-seconds-to-string): Implement formats without seconds and without zero-padding for hours. * testing/lisp/test-org-table.el (test-org-table/duration): New test for second-less durations. * doc/org.texi (Formula syntax for Calc) (Durations and time values): Document the U mode switch.
2017-06-11 17:44:51 -04:00
The `U' flag in a table formula will select this specific format for
a single formula."
org-table: new defcustom `org-table-duration-custom-format'. This allows to display the output of duration computations as a fraction of days, hours, minutes or seconds. Thanks to Daniel E. Doherty for bringing up this need. * org-table.el (org-table-duration-custom-format): New defcustom to select output format of durations computations. (org-table-time-seconds-to-string): Use the new variable. (org-table-eval-formula): Allow `t' as a flag, on top of `T'. `t' will use the custom output format defined in `org-table-duration-custom-format.
2011-07-27 07:14:37 -04:00
:group 'org-table-calculation
Fix the master branch. I started from the 78ec8e commit then cherry-picked and squashed commits that have been done in master since then, except the bad commits that overwrote the tree (in master) with the tree in maint. This commit also bumps the version number to 7.8.06. The only "fix" that was made between 78ec8e and the previous commit is e0072f which has been reported to break stuff.
2012-03-19 16:38:12 -04:00
:version "24.1"
org-table: new defcustom `org-table-duration-custom-format'. This allows to display the output of duration computations as a fraction of days, hours, minutes or seconds. Thanks to Daniel E. Doherty for bringing up this need. * org-table.el (org-table-duration-custom-format): New defcustom to select output format of durations computations. (org-table-time-seconds-to-string): Use the new variable. (org-table-eval-formula): Allow `t' as a flag, on top of `T'. `t' will use the custom output format defined in `org-table-duration-custom-format.
2011-07-27 07:14:37 -04:00
:type '(choice (symbol :tag "Seconds" 'seconds)
(symbol :tag "Minutes" 'minutes)
(symbol :tag "Hours " 'hours)
Implement new `U' mode switch for table formulas to omit seconds in durations * lisp/org-table.el (org-table-duration-custom-format): Add new HH:MM format. (org-table-duration-hour-zero-padding): New option. (org-table-eval-formula): Select second-less format if requested. (org-table-time-seconds-to-string): Implement formats without seconds and without zero-padding for hours. * testing/lisp/test-org-table.el (test-org-table/duration): New test for second-less durations. * doc/org.texi (Formula syntax for Calc) (Durations and time values): Document the U mode switch.
2017-06-11 17:44:51 -04:00
(symbol :tag "Days " 'days)
(symbol :tag "HH:MM " 'hh:mm)))
(defcustom org-table-duration-hour-zero-padding t
org-table: Add missing keywords to a defcustom * lisp/org-table.el (org-table-duration-hour-zero-padding): Add :package-version and :safe. Fix :version and docstring.
2017-06-14 03:43:50 -04:00
"Non-nil means hours in table duration computations should be zero-padded.
Implement new `U' mode switch for table formulas to omit seconds in durations * lisp/org-table.el (org-table-duration-custom-format): Add new HH:MM format. (org-table-duration-hour-zero-padding): New option. (org-table-eval-formula): Select second-less format if requested. (org-table-time-seconds-to-string): Implement formats without seconds and without zero-padding for hours. * testing/lisp/test-org-table.el (test-org-table/duration): New test for second-less durations. * doc/org.texi (Formula syntax for Calc) (Durations and time values): Document the U mode switch.
2017-06-11 17:44:51 -04:00
So this is about 08:32:34 versus 8:33:34."
:group 'org-table-calculation
org-table: Add missing keywords to a defcustom * lisp/org-table.el (org-table-duration-hour-zero-padding): Add :package-version and :safe. Fix :version and docstring.
2017-06-14 03:43:50 -04:00
:version "26.1"
:package-version '(Org . "9.1")
:type 'boolean
:safe #'booleanp)
org-table: new defcustom `org-table-duration-custom-format'. This allows to display the output of duration computations as a fraction of days, hours, minutes or seconds. Thanks to Daniel E. Doherty for bringing up this need. * org-table.el (org-table-duration-custom-format): New defcustom to select output format of durations computations. (org-table-time-seconds-to-string): Use the new variable. (org-table-eval-formula): Allow `t' as a flag, on top of `T'. `t' will use the custom output format defined in `org-table-duration-custom-format.
2011-07-27 07:14:37 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defcustom org-table-formula-evaluate-inline t
Remove comma after means in many docstrings Stephen Eglen says these commas should not be there.
2010-01-21 10:15:40 -05:00
"Non-nil means TAB and RET evaluate a formula in current table field.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
If the current field starts with an equal sign, it is assumed to be a formula
which should be evaluated as described in the manual and in the documentation
string of the command `org-table-eval-formula'. This feature requires the
Emacs calc package.
When this variable is nil, formula calculation is only available through
Improve docstrings * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-custom-commands): (org-stuck-projects): (org-agenda): (org-timeline): (org-todo-list): (org-agenda-filter-by-tag): (org-agenda-log-mode): (org-agenda-refile): (org-agenda-show-and-scroll-up): (org-agenda-tree-to-indirect-buffer): (org-agenda-show-the-flagging-note): (org-agenda-to-appt): * lisp/org-capture.el (org-capture-mode): (org-capture-use-agenda-date): (org-capture): * lisp/org-clock.el (org-clock-in): (org-clock-display): * lisp/org-colview.el (org-columns--display-here): (org-columns): * lisp/org-footnote.el (org-footnote-section): * lisp/org-gnus.el (org-gnus-prefer-web-links): * lisp/org-lint.el (org-lint): * lisp/org-list.el (org-plain-list-ordered-item-terminator): (org-list-allow-alphabetical): (org-list-automatic-rules): (org-list-use-circular-motion): * lisp/org-protocol.el (org-protocol-store-link): (org-protocol-create-for-org): * lisp/org-src.el (org-src-preserve-indentation): (org-edit-src-content-indentation): (org-src-mode-hook): (org-src-mode): (org-edit-table.el): (org-edit-export-block): (org-edit-src-code): (org-edit-fixed-width-region): * lisp/org-table.el (org-table-automatic-realign): (org-table-copy-increment): (org-table-formula-evaluate-inline): (org-table-allow-automatic-line-recalculation): (org-table-edit-field): (orgtbl-ascii-plot): * lisp/org-timer.el (org-timer): * lisp/org.el (org-deadline-string): (org-comment-string): (org-ellipsis): (org-show-context-detail): (org-indirect-buffer-display): (org-cycle-global-at-bob): (org-insert-heading-respect-content): (org-enable-table-editor): (org-context-in-file-links): (org-display-internal-link-with-indirect-buffer): (org-file-apps): (org-refile-targets): (org-todo-keywords): (org-use-fast-todo-selection): (org-treat-insert-todo-heading-as-state-change): (org-time-clocksum-use-fractional): (org-time-clocksum-use-effort-durations): (org-agenda-files): (org-cycle-hide-archived-subtrees): (org-cycle): (org-global-cycle): (org-tree-to-indirect-buffer): (org-insert-heading): (org-store-link): (org-insert-link): (org-mark-ring-push): (org-refile): (org-todo): (org-show-todo-tree): (org-reveal): (org-check-deadlines): (org-switchb): (org-cdlatex-mode): (org-toggle-latex-fragment): (org-ctrl-c-ctrl-c): (org-toggle-heading): (org-indent-line): (org-yank): (org-speedbar-set-agenda-restriction): * lisp/ox-html.el (org-html-htmlize-output-type): * lisp/ox-icalendar.el (org-icalendar-combined-agenda-file): * lisp/ox-publish.el (org-publish-project-alist): * lisp/ox.el (org-export-in-background): (org-export-stack-mode): (org-export--stack-source-at-point): (org-export-dispatch): Improve quotes and formatting in docstrings.
2016-10-15 11:36:47 -04:00
the command `\\[org-table-eval-formula]'."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:group 'org-table-calculation
:type 'boolean)
(defcustom org-table-formula-use-constants t
Remove comma after means in many docstrings Stephen Eglen says these commas should not be there.
2010-01-21 10:15:40 -05:00
"Non-nil means interpret constants in formulas in tables.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
A constant looks like `$c' or `$Grav' and will be replaced before evaluation
by the value given in `org-table-formula-constants', or by a value obtained
from the `constants.el' package."
:group 'org-table-calculation
:type 'boolean)
(defcustom org-table-formula-constants nil
"Alist with constant names and values, for use in table formulas.
The car of each element is a name of a constant, without the `$' before it.
The cdr is the value as a string. For example, if you'd like to use the
speed of light in a formula, you would configure
Protect remaining apostrophes in docstrings Protect apostrophes not covered by the last backport. Convert expressions like '(...) to \\='(...) and symbols written as 'name to `name'. (In addition to ensuring the correct display, the latter also improves consistency with many Org docstrings.) If these aren't protected, Emacs 25 may display them as curved quotes in the help buffer, depending on the value of text-quoting-style.
2015-09-21 00:24:12 -04:00
(setq org-table-formula-constants \\='((\"c\" . \"299792458.\")))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
and then use it in an equation like `$1*$c'.
Constants can also be defined on a per-file basis using a line like
#+CONSTANTS: c=299792458. pi=3.14 eps=2.4e-6"
:group 'org-table-calculation
:type '(repeat
(cons (string :tag "name")
(string :tag "value"))))
(defcustom org-table-allow-automatic-line-recalculation t
Remove comma after means in many docstrings Stephen Eglen says these commas should not be there.
2010-01-21 10:15:40 -05:00
"Non-nil means lines marked with |#| or |*| will be recomputed automatically.
Use substitute-command-keys more * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-log-mode-items): (org-agenda-auto-exclude-function): (org-search-view): (org-todo-list): (org-tags-view): (org-agenda-log-mode): (org-agenda-show-the-flagging-note): * lisp/org-clock.el (org-clock-out-when-done): * lisp/org-id.el (org-id-link-to-org-use-id): * lisp/org-table.el (org-table-allow-automatic-line-recalculation): (org-table-edit-formulas): * lisp/org.el (org-support-shift-select): (org-remove-highlights-with-change): (org-refile-use-cache): (org-use-fast-todo-selection): (org-time-stamp-rounding-minutes): (org-agenda-text-search-extra-files): (org-cycle): (org-ctrl-c-ctrl-c): Use substitute-command-keys.
2015-09-21 00:23:15 -04:00
\\<org-mode-map>\
Improve docstrings * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-custom-commands): (org-stuck-projects): (org-agenda): (org-timeline): (org-todo-list): (org-agenda-filter-by-tag): (org-agenda-log-mode): (org-agenda-refile): (org-agenda-show-and-scroll-up): (org-agenda-tree-to-indirect-buffer): (org-agenda-show-the-flagging-note): (org-agenda-to-appt): * lisp/org-capture.el (org-capture-mode): (org-capture-use-agenda-date): (org-capture): * lisp/org-clock.el (org-clock-in): (org-clock-display): * lisp/org-colview.el (org-columns--display-here): (org-columns): * lisp/org-footnote.el (org-footnote-section): * lisp/org-gnus.el (org-gnus-prefer-web-links): * lisp/org-lint.el (org-lint): * lisp/org-list.el (org-plain-list-ordered-item-terminator): (org-list-allow-alphabetical): (org-list-automatic-rules): (org-list-use-circular-motion): * lisp/org-protocol.el (org-protocol-store-link): (org-protocol-create-for-org): * lisp/org-src.el (org-src-preserve-indentation): (org-edit-src-content-indentation): (org-src-mode-hook): (org-src-mode): (org-edit-table.el): (org-edit-export-block): (org-edit-src-code): (org-edit-fixed-width-region): * lisp/org-table.el (org-table-automatic-realign): (org-table-copy-increment): (org-table-formula-evaluate-inline): (org-table-allow-automatic-line-recalculation): (org-table-edit-field): (orgtbl-ascii-plot): * lisp/org-timer.el (org-timer): * lisp/org.el (org-deadline-string): (org-comment-string): (org-ellipsis): (org-show-context-detail): (org-indirect-buffer-display): (org-cycle-global-at-bob): (org-insert-heading-respect-content): (org-enable-table-editor): (org-context-in-file-links): (org-display-internal-link-with-indirect-buffer): (org-file-apps): (org-refile-targets): (org-todo-keywords): (org-use-fast-todo-selection): (org-treat-insert-todo-heading-as-state-change): (org-time-clocksum-use-fractional): (org-time-clocksum-use-effort-durations): (org-agenda-files): (org-cycle-hide-archived-subtrees): (org-cycle): (org-global-cycle): (org-tree-to-indirect-buffer): (org-insert-heading): (org-store-link): (org-insert-link): (org-mark-ring-push): (org-refile): (org-todo): (org-show-todo-tree): (org-reveal): (org-check-deadlines): (org-switchb): (org-cdlatex-mode): (org-toggle-latex-fragment): (org-ctrl-c-ctrl-c): (org-toggle-heading): (org-indent-line): (org-yank): (org-speedbar-set-agenda-restriction): * lisp/ox-html.el (org-html-htmlize-output-type): * lisp/ox-icalendar.el (org-icalendar-combined-agenda-file): * lisp/ox-publish.el (org-publish-project-alist): * lisp/ox.el (org-export-in-background): (org-export-stack-mode): (org-export--stack-source-at-point): (org-export-dispatch): Improve quotes and formatting in docstrings.
2016-10-15 11:36:47 -04:00
Automatically means when `TAB' or `RET' or `\\[org-ctrl-c-ctrl-c]' \
Use substitute-command-keys more * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-log-mode-items): (org-agenda-auto-exclude-function): (org-search-view): (org-todo-list): (org-tags-view): (org-agenda-log-mode): (org-agenda-show-the-flagging-note): * lisp/org-clock.el (org-clock-out-when-done): * lisp/org-id.el (org-id-link-to-org-use-id): * lisp/org-table.el (org-table-allow-automatic-line-recalculation): (org-table-edit-formulas): * lisp/org.el (org-support-shift-select): (org-remove-highlights-with-change): (org-refile-use-cache): (org-use-fast-todo-selection): (org-time-stamp-rounding-minutes): (org-agenda-text-search-extra-files): (org-cycle): (org-ctrl-c-ctrl-c): Use substitute-command-keys.
2015-09-21 00:23:15 -04:00
are pressed in the line."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
:group 'org-table-calculation
:type 'boolean)
Tables: Relative row references may now cross hlines A relative row reference like @-1 in a table may now reach across a horizontal separator line. I hope this will not break any important tables out there, but I think it is the right thing to do. The original reason for not-crossing was to implement running averages of one column in the next. This can now be done using field formulas near the beginning and end of the column, and a column formula for the central part. See the variable `org-table-relative-ref-may-cross-hline' for more details.
2009-08-01 01:56:26 -04:00
(defcustom org-table-relative-ref-may-cross-hline t
Remove comma after means in many docstrings Stephen Eglen says these commas should not be there.
2010-01-21 10:15:40 -05:00
"Non-nil means relative formula references may cross hlines.
Tables: Relative row references may now cross hlines A relative row reference like @-1 in a table may now reach across a horizontal separator line. I hope this will not break any important tables out there, but I think it is the right thing to do. The original reason for not-crossing was to implement running averages of one column in the next. This can now be done using field formulas near the beginning and end of the column, and a column formula for the central part. See the variable `org-table-relative-ref-may-cross-hline' for more details.
2009-08-01 01:56:26 -04:00
Here are the allowed values:
nil Relative references may not cross hlines. They will reference the
field next to the hline instead. Coming from below, the reference
will be to the field below the hline. Coming from above, it will be
to the field above.
Fix spelling and grammar
2009-11-12 07:39:29 -05:00
t Relative references may cross hlines.
Tables: Relative row references may now cross hlines A relative row reference like @-1 in a table may now reach across a horizontal separator line. I hope this will not break any important tables out there, but I think it is the right thing to do. The original reason for not-crossing was to implement running averages of one column in the next. This can now be done using field formulas near the beginning and end of the column, and a column formula for the central part. See the variable `org-table-relative-ref-may-cross-hline' for more details.
2009-08-01 01:56:26 -04:00
error An attempt to cross a hline will throw an error.
It is probably good to never set this variable to nil, for the sake of
portability of tables."
:group 'org-table-calculation
:type '(choice
(const :tag "Allow to cross" t)
(const :tag "Stick to hline" nil)
(const :tag "Error on attempt to cross" error)))
org-table: Field formulas can now create columns as needed * org-table.el (org-table-formula-create-columns): New variable. (org-table-recalculate): Use the new org-table-formula-make-new-cols customization to control whether org creates new columns when a formula explicitly targets them.
2014-10-01 01:36:21 -04:00
(defcustom org-table-formula-create-columns nil
org-table: Obey to `org-table-formula-create-columns' * lisp/org-table.el (org-table-recalculate): Return an error when the formula cannot create a necessary column. (org-table-formula-create-columns): Fix docstring. * testing/lisp/test-org-table.el (test-org-table/field-formula-outside-table): Fix tests.
2018-01-07 04:45:29 -05:00
"Non-nil means evaluation of formula can add new columns.
When non-nil, evaluating an out-of-bounds field can insert as
many columns as needed. When set to `warn', issue a warning when
doing so. When set to `prompt', ask user before creating a new
column. Otherwise, throw an error."
org-table: Field formulas can now create columns as needed * org-table.el (org-table-formula-create-columns): New variable. (org-table-recalculate): Use the new org-table-formula-make-new-cols customization to control whether org creates new columns when a formula explicitly targets them.
2014-10-01 01:36:21 -04:00
:group 'org-table-calculation
:package-version '(Org . "8.3")
:type '(choice
org-table: Obey to `org-table-formula-create-columns' * lisp/org-table.el (org-table-recalculate): Return an error when the formula cannot create a necessary column. (org-table-formula-create-columns): Fix docstring. * testing/lisp/test-org-table.el (test-org-table/field-formula-outside-table): Fix tests.
2018-01-07 04:45:29 -05:00
(const :tag "Out-of-bounds field generates an error (default)" nil)
(const :tag "Out-of-bounds field silently adds columns as needed" t)
(const :tag "Out-of-bounds field adds columns, but issues a warning" warn)
(const :tag "Prompt user when setting an out-of-bounds field" prompt)))
org-table: Field formulas can now create columns as needed * org-table.el (org-table-formula-create-columns): New variable. (org-table-recalculate): Use the new org-table-formula-make-new-cols customization to control whether org creates new columns when a formula explicitly targets them.
2014-10-01 01:36:21 -04:00
Apply patches by James TD Smith.
2008-04-10 02:27:56 -04:00
(defgroup org-table-import-export nil
Change "Org-mode" into "Org mode" * lisp/org-agenda.el: * lisp/org-attach.el: * lisp/org-bbdb.el: * lisp/org-capture.el: * lisp/org-clock.el: * lisp/org-entities.el: * lisp/org-gnus.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-info.el: * lisp/org-inlinetask.el: * lisp/org-irc.el: * lisp/org-list.el: * lisp/org-mhe.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/ox-html.el: * lisp/ox-odt.el: Use "Org mode", or "Org", instead of "Org-mode".
2016-10-11 12:00:08 -04:00
"Options concerning table import and export in Org mode."
Apply patches by James TD Smith.
2008-04-10 02:27:56 -04:00
:tag "Org Table Import Export"
:group 'org-table)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Documentation fixes for table exporter.
2008-05-12 01:31:21 -04:00
(defcustom org-table-export-default-format "orgtbl-to-tsv"
Correct some doc strings [part 5] This is the fifth patch in a series that makes some straightforward corrections to a number of docstrings. Each change is normally to: - correct a typo, or - fix up hyperlinks to function or variable names, or - ensure slightly better conformance with the documentation guidelines and tips given in the Elisp manual No attempt is made to provide missing docstrings or document arguments. Cheers, Phil
2010-07-17 14:53:36 -04:00
"Default export parameters for `org-table-export'.
These can be overridden for a specific table by setting the
TABLE_EXPORT_FORMAT property. See the manual section on orgtbl
radio tables for the different export transformations and
available parameters."
Apply patches by James TD Smith.
2008-04-10 02:27:56 -04:00
:group 'org-table-import-export
:type 'string)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: introduce an upper bound on `org-table-convert-region-max-lines'. * lisp/org-table.el (org-table-convert-region-max-lines): New defcustom. (org-table-convert-region): Use it. This is useful primarily for babel results. If a large table-like object is returned by a code block, this function will become bogged down in trying to read it, and hang emacs (necessitating a C-g). This situation most commonly arises when a :results none header has been omitted. With the patch, the user will not experience a hang, but rather an error message.
2014-12-11 23:51:57 -05:00
(defcustom org-table-convert-region-max-lines 999
"Max lines that `org-table-convert-region' will attempt to process.
The function can be slow on larger regions; this safety feature
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
prevents it from hanging Emacs."
org-table: introduce an upper bound on `org-table-convert-region-max-lines'. * lisp/org-table.el (org-table-convert-region-max-lines): New defcustom. (org-table-convert-region): Use it. This is useful primarily for babel results. If a large table-like object is returned by a code block, this function will become bogged down in trying to read it, and hang emacs (necessitating a C-g). This situation most commonly arises when a :results none header has been omitted. With the patch, the user will not experience a hang, but rather an error message.
2014-12-11 23:51:57 -05:00
:group 'org-table-import-export
:type 'integer
:package-version '(Org . "8.3"))
Implement the `org-table-electric-header-mode' minor mode * lisp/org-table.el (org-table-electric-header-p): New option. (org-table-temp-header-line, org-table-electric-header-mode): New variables. (org-table-set-header-line-format) (org-table-electric-header-mode): New minor mode to display the table's current first row as the header line when this first row is not visible anymore. * doc/org-manual.org (Miscellaneous): Document `org-table-electric-header-mode'.
2020-01-29 09:17:32 -05:00
org-table.el: Implement org table header mode using an overlay * lisp/org-table.el (org-table-row-get-visible-string): Update docstring. (org-table-header-set-header): Use an overlay instead of the header line.
2020-02-06 21:08:08 -05:00
;;; Org table header minor mode
org-table.el: Fixes to `org-table-set-header-line-format' * lisp/org-table.el (org-table-row-get-visible-string): New function. (org-table-set-header-line-format): Use it to handle shrunk columns. Also fix handling of `display-line-numbers-mode'.
2020-02-01 11:21:34 -05:00
(defun org-table-row-get-visible-string (&optional pos)
org-table.el: Implement org table header mode using an overlay * lisp/org-table.el (org-table-row-get-visible-string): Update docstring. (org-table-header-set-header): Use an overlay instead of the header line.
2020-02-06 21:08:08 -05:00
"Get the visible string of a table row.
This may be useful when columns have been shrunk."
org-table.el: Fixes to `org-table-set-header-line-format' * lisp/org-table.el (org-table-row-get-visible-string): New function. (org-table-set-header-line-format): Use it to handle shrunk columns. Also fix handling of `display-line-numbers-mode'.
2020-02-01 11:21:34 -05:00
(save-excursion
(when pos (goto-char pos))
org-table.el: Various fixes and enhancements * lisp/org.el (org-mode): Obey `org-table-header-line-p'. * lisp/org-table.el (org-table-row-get-visible-string): Fix handling of shrunk cells. (org-table-header-set-line): Minor enhancements. Rename from `org-table-set-header-line-format'. (org-table-header-line-mode): Use `org-table-header-set-line'.
2020-02-04 12:14:29 -05:00
(goto-char (line-beginning-position))
(let ((end (line-end-position)) str)
lisp/org-table.el: Fix bug in `org-table-row-get-visible-string' * lisp/org-table.el (org-table-row-get-visible-string): Don't use `backward-char' in a function called in a post-command hook.
2022-03-31 11:31:50 -04:00
(goto-char (1- pos))
org-table.el: Various fixes and enhancements * lisp/org.el (org-mode): Obey `org-table-header-line-p'. * lisp/org-table.el (org-table-row-get-visible-string): Fix handling of shrunk cells. (org-table-header-set-line): Minor enhancements. Rename from `org-table-set-header-line-format'. (org-table-header-line-mode): Use `org-table-header-set-line'.
2020-02-04 12:14:29 -05:00
(while (progn (forward-char 1) (< (point) end))
(let ((ov (car (overlays-at (point)))))
(if (not ov)
(push (char-to-string (char-after)) str)
(push (overlay-get ov 'display) str)
(goto-char (1- (overlay-end ov))))))
lisp/org-table.el: Fix bug in `org-table-row-get-visible-string' * lisp/org-table.el (org-table-row-get-visible-string): Don't use `backward-char' in a function called in a post-command hook.
2022-03-31 11:31:50 -04:00
(format "|%s" (mapconcat #'identity (reverse str) "")))))
org-table.el: Various fixes and enhancements * lisp/org.el (org-mode): Obey `org-table-header-line-p'. * lisp/org-table.el (org-table-row-get-visible-string): Fix handling of shrunk cells. (org-table-header-set-line): Minor enhancements. Rename from `org-table-set-header-line-format'. (org-table-header-line-mode): Use `org-table-header-set-line'.
2020-02-04 12:14:29 -05:00
org-table.el: Implement org table header mode using an overlay * lisp/org-table.el (org-table-row-get-visible-string): Update docstring. (org-table-header-set-header): Use an overlay instead of the header line.
2020-02-06 21:08:08 -05:00
(defvar-local org-table-header-overlay nil)
org-table.el: Enhancements to table header mode * lisp/org-faces.el (org-table-header): New face. * lisp/org-table.el (org-table-header-set-header): Rename from `org-table-header-set-line'. Use the new face.
2020-02-04 19:20:54 -05:00
(defun org-table-header-set-header ()
org-table.el: Implement org table header mode using an overlay * lisp/org-table.el (org-table-row-get-visible-string): Update docstring. (org-table-header-set-header): Use an overlay instead of the header line.
2020-02-06 21:08:08 -05:00
"Display the header of the table at point."
table: Restore temporary-goal-column after displaying header * lisp/org-table.el (org-table-header-set-header): Restore temporary-goal-column to prevent disrupting the expected next-line and previous-line movement. org-table-header-set-header, which org-table-header-line-mode adds to post-command-hook, changes the value of temporary-goal-column to zero, interfering with the logic in line-move-1. Reported-by: Oorja Sandhu <oorja.sandhu@inoutbox.com> Ref: https://orgmode.org/list/1b8b1a96-149e-4409-9738-fc45fad3a604@www.fastmail.com
2021-04-17 15:06:11 -04:00
(let ((gcol temporary-goal-column))
(unwind-protect
(progn
(when (overlayp org-table-header-overlay)
(delete-overlay org-table-header-overlay))
(let* ((ws (window-start))
(beg (save-excursion
(goto-char (org-table-begin))
(while (or (org-at-table-hline-p)
(looking-at-p ".*|\\s-+<[rcl]?\\([0-9]+\\)?>"))
(move-beginning-of-line 2))
org-table.el: Fix a bug when displaying a table header * lisp/org-table.el (org-table-row-get-visible-string): Fix wrong beginning of the header string. (org-table-header-set-header): Get the real beginning of the line. Reported-by: "Oorja Sandhu" <oorja.sandhu@inoutbox.com> Link: https://orgmode.org/list/7beea3b5-6fe5-4ba6-831e-19a88d87de6b@www.fastmail.com/
2021-04-26 15:51:12 -04:00
(line-beginning-position)))
Fix Emacs 29 compiler warnings * lisp/oc-basic.el (org-cite-basic--parse-bibliography): Do not use obsolete `buffer-file-name' generalized variable. Prefer `set-visited-file-name'. * lisp/ol-bibtex.el (org-indent-region): Declare function. (org-bibtex-import-from-file): Remove unused variable. * lisp/ol.el (org-link--decode-compound): Use `ash' instead of obsolete `lsh'. * lisp/org-macs.el: Do no use obsolete generalized variable `buffer-string'. * lisp/org-plot.el (org-plot/redisplay-img-in-buffer): * lisp/org.el (image-flush): (org-display-inline-images): Use `image-flush' instead of obsolete `image-refresh'. * lisp/ox.el (org-export-to-file): Quote ' in the docstring. All other changes are changing obsolete `point-at-bol' and `point-at-eol' to `line-beginning-position' and `line-end-position'.
2022-09-06 08:50:59 -04:00
(end (save-excursion (goto-char beg) (line-end-position))))
table: Restore temporary-goal-column after displaying header * lisp/org-table.el (org-table-header-set-header): Restore temporary-goal-column to prevent disrupting the expected next-line and previous-line movement. org-table-header-set-header, which org-table-header-line-mode adds to post-command-hook, changes the value of temporary-goal-column to zero, interfering with the logic in line-move-1. Reported-by: Oorja Sandhu <oorja.sandhu@inoutbox.com> Ref: https://orgmode.org/list/1b8b1a96-149e-4409-9738-fc45fad3a604@www.fastmail.com
2021-04-17 15:06:11 -04:00
(if (pos-visible-in-window-p beg)
(when (overlayp org-table-header-overlay)
(delete-overlay org-table-header-overlay))
(setq org-table-header-overlay
(make-overlay ws (+ ws (- end beg))))
(org-overlay-display
org-table-header-overlay
(org-table-row-get-visible-string beg)
'org-table-header))))
(setq temporary-goal-column gcol))))
Implement the `org-table-electric-header-mode' minor mode * lisp/org-table.el (org-table-electric-header-p): New option. (org-table-temp-header-line, org-table-electric-header-mode): New variables. (org-table-set-header-line-format) (org-table-electric-header-mode): New minor mode to display the table's current first row as the header line when this first row is not visible anymore. * doc/org-manual.org (Miscellaneous): Document `org-table-electric-header-mode'.
2020-01-29 09:17:32 -05:00
Run `org-table-electric-header-mode' with a tiny timer * lisp/org-table.el (org-table-electric-header-mode): Autoload and run with timer.
2020-01-29 15:35:04 -05:00
;;;###autoload
Replace "org-table-electric-header" by "org-table-header-line" * lisp/org-table.el (org-table-header-line-p) (org-table-header-line-mode): Replace "org-table-electric-header" by "org-table-header-line". * doc/org-manual.org (Miscellaneous): Ditto. Thanks to Samuel Wales for suggesting this name.
2020-02-01 03:52:57 -05:00
(define-minor-mode org-table-header-line-mode
Implement the `org-table-electric-header-mode' minor mode * lisp/org-table.el (org-table-electric-header-p): New option. (org-table-temp-header-line, org-table-electric-header-mode): New variables. (org-table-set-header-line-format) (org-table-electric-header-mode): New minor mode to display the table's current first row as the header line when this first row is not visible anymore. * doc/org-manual.org (Miscellaneous): Document `org-table-electric-header-mode'.
2020-01-29 09:17:32 -05:00
"Display the first row of the table at point in the header line."
Backport commit c45bfd3c4 from Emacs * lisp/ox-beamer.el (org-beamer-mode-map): Move initialization into declaration. (org-beamer-mode): * lisp/org.el (org-cdlatex-mode): * lisp/org-table.el (org-table-header-line-mode) (org-table-follow-field-mode, orgtbl-mode): * lisp/org-src.el (org-src-mode): * lisp/org-list.el (org-list-checkbox-radio-mode): * lisp/org-indent.el (org-indent-mode): * lisp/org-capture.el (org-capture-mode): Avoid old-style positional args to `define-minor-mode`. * lisp/**/*.el: Avoid positional args to `define-minor-mode` c45bfd3c4abbfa585c9199f4866b6b8046945117 Stefan Monnier Sun Apr 11 23:47:14 2021 -0400
2021-04-11 23:47:14 -04:00
:lighter " TblHeader"
Handle header line scaling for `org-table-electric-header-mode' * lisp/org-table.el (org-table-temp-header-remapping): New variable. (org-table-set-header-line-format): Scale the header line properly. (org-table-electric-header-mode): Don't run outside `org-mode'.
2020-01-29 11:14:12 -05:00
(unless (eq major-mode 'org-mode)
org-table.el: Implement org table header mode using an overlay * lisp/org-table.el (org-table-row-get-visible-string): Update docstring. (org-table-header-set-header): Use an overlay instead of the header line.
2020-02-06 21:08:08 -05:00
(user-error "Cannot turn org table header mode outside org-mode buffers"))
Replace "org-table-electric-header" by "org-table-header-line" * lisp/org-table.el (org-table-header-line-p) (org-table-header-line-mode): Replace "org-table-electric-header" by "org-table-header-line". * doc/org-manual.org (Miscellaneous): Ditto. Thanks to Samuel Wales for suggesting this name.
2020-02-01 03:52:57 -05:00
(if org-table-header-line-mode
org-table.el: Fix removal of the table header * lisp/org-table.el (org-table-header-set-header): Ensure the table header overlay is correctly deleted. Lessen the timer.
2020-02-07 11:06:38 -05:00
(add-hook 'post-command-hook #'org-table-header-set-header nil t)
org-table.el: Implement org table header mode using an overlay * lisp/org-table.el (org-table-row-get-visible-string): Update docstring. (org-table-header-set-header): Use an overlay instead of the header line.
2020-02-06 21:08:08 -05:00
(when (overlayp org-table-header-overlay)
org-table.el: Don't run table header mode with a timer * lisp/org-table.el (org-table-header-set-header): Don't run with a timer.
2020-02-11 15:42:54 -05:00
(delete-overlay org-table-header-overlay)
(setq org-table-header-overlay nil))
org-table.el: Fix removal of the table header * lisp/org-table.el (org-table-header-set-header): Ensure the table header overlay is correctly deleted. Lessen the timer.
2020-02-07 11:06:38 -05:00
(remove-hook 'post-command-hook #'org-table-header-set-header t)))
Implement the `org-table-electric-header-mode' minor mode * lisp/org-table.el (org-table-electric-header-p): New option. (org-table-temp-header-line, org-table-electric-header-mode): New variables. (org-table-set-header-line-format) (org-table-electric-header-mode): New minor mode to display the table's current first row as the header line when this first row is not visible anymore. * doc/org-manual.org (Miscellaneous): Document `org-table-electric-header-mode'.
2020-01-29 09:17:32 -05:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;; Regexps Constants
(defconst org-table-any-line-regexp "^[ \t]*\\(|\\|\\+-[-+]\\)"
"Detect an org-type or table-type table.")
(defconst org-table-line-regexp "^[ \t]*|"
"Detect an org-type table line.")
(defconst org-table-dataline-regexp "^[ \t]*|[^-]"
"Detect an org-type table line.")
(defconst org-table-hline-regexp "^[ \t]*|-"
"Detect an org-type table hline.")
(defconst org-table1-hline-regexp "^[ \t]*\\+-[-+]"
"Detect a table-type table hline.")
(defconst org-table-any-border-regexp "^[ \t]*[^|+ \t]"
"Detect the first line outside a table when searching from within it.
This works for both table types.")
(defconst org-TBLFM-regexp "^[ \t]*#\\+TBLFM: "
"Detect a #+TBLFM line.")
(defvar org-table-TBLFM-begin-regexp "^[ \t]*|.*\n[ \t]*#\\+TBLFM: ")
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defconst org-table-auto-recalculate-regexp "^[ \t]*| *# *\\(|\\|$\\)"
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Regexp matching a line marked for automatic recalculation.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defconst org-table-recalculate-regexp "^[ \t]*| *[#*] *\\(|\\|$\\)"
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Regexp matching a line marked for recalculation.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defconst org-table-calculate-mark-regexp "^[ \t]*| *[!$^_#*] *\\(|\\|$\\)"
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Regexp matching a line marked for calculation.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defconst org-table-border-regexp "^[ \t]*[^| \t]"
org-table: Speed-up `org-table-{begin,end}' * lisp/org-table.el (org-table-border-regexp): Improve docstring. (org-table-begin): (org-table-end): Assume point is in a table already. In this case, using parser is not necessary anymore.
2015-07-29 17:38:35 -04:00
"Regexp matching any line outside an Org table.")
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defconst org-table-range-regexp
Merge branch 'maint'
2019-04-14 22:11:27 -04:00
"@\\([-+]?I*[-+]?[0-9]*\\)\\(\\$[-+]?[0-9]+\\)?\\(\\.\\.@?\\([-+]?I*[-+]?[0-9]*\\)\\(\\$[-+]?[0-9]+\\)?\\)?"
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;; 1 2 3 4 5
"Regular expression for matching ranges in formulas.")
(defconst org-table-range-regexp2
(concat
"\\(" "@[-0-9I$&]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\|" "\\$[a-zA-Z0-9]+" "\\)"
"\\.\\."
"\\(" "@?[-0-9I$&]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\|" "\\$[a-zA-Z0-9]+" "\\)")
"Match a range for reference display.")
(defconst org-table-translate-regexp
(concat "\\(" "@[-0-9I$]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\)")
"Match a reference that needs translation, for reference display.")
org-table: Prevent Emacs from merging displayed separator spaces * lisp/org-table.el (org-table-separator-space): Remove. (org-table--separator-space-pre): (org-table--separator-space-post): Use non-`eq' spaces as table cell boundaries. This way, Emacs display engine will not merge the two spaces with `eq' 'display properties in empty table cells. (org-table--make-shrinking-overlay): (org-table--align-field): Use the new constants for table alignment. Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45915
2022-09-22 07:54:21 -04:00
(defconst org-table--separator-space-pre
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(propertize " " 'display '(space :relative-width 1))
org-table: Prevent Emacs from merging displayed separator spaces * lisp/org-table.el (org-table-separator-space): Remove. (org-table--separator-space-pre): (org-table--separator-space-post): Use non-`eq' spaces as table cell boundaries. This way, Emacs display engine will not merge the two spaces with `eq' 'display properties in empty table cells. (org-table--make-shrinking-overlay): (org-table--align-field): Use the new constants for table alignment. Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45915
2022-09-22 07:54:21 -04:00
"Space used in front of fields when aligning the table.
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
This space serves as a segment separator for the purposes of the
org-table: Prevent Emacs from merging displayed separator spaces * lisp/org-table.el (org-table-separator-space): Remove. (org-table--separator-space-pre): (org-table--separator-space-post): Use non-`eq' spaces as table cell boundaries. This way, Emacs display engine will not merge the two spaces with `eq' 'display properties in empty table cells. (org-table--make-shrinking-overlay): (org-table--align-field): Use the new constants for table alignment. Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45915
2022-09-22 07:54:21 -04:00
bidirectional reordering.
Note that `org-table--separator-space-pre' is not `eq' to
`org-table--separator-space-post'. This is done to prevent Emacs from
visually merging spaces in an empty table cell. See bug#45915.")
(defconst org-table--separator-space-post
(propertize " " 'display '(space :relative-width 1.001))
"Space used after fields when aligning the table.
This space serves as a segment separator for the purposes of the
bidirectional reordering.
Note that `org-table--separator-space-pre' is not `eq' to
`org-table--separator-space-post'. This is done to prevent Emacs from
visually merging spaces in an empty table cell. See bug#45915.")
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;; Internal Variables
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-last-highlighted-reference nil)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-formula-history nil)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defvar org-field-marker nil)
(defvar org-table-buffer-is-an nil)
(defvar-local org-table-formula-constants-local nil
"Local version of `org-table-formula-constants'.")
(defvar org-table-may-need-update t
"Indicates that a table might need an update.
This variable is set by `org-before-change-function'.
`org-table-align' sets it back to nil.")
(defvar orgtbl-after-send-table-hook nil
"Hook for functions attaching to `C-c C-c', if the table is sent.
This can be used to add additional functionality after the table is sent
to the receiver position, otherwise, if table is not sent, the functions
are not run.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-column-names nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Alist with column names, derived from the `!' line.
This variable is initialized with `org-table-analyze'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-column-name-regexp nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Regular expression matching the current column names.
This variable is initialized with `org-table-analyze'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-local-parameters nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Alist with parameter names, derived from the `$' line.
This variable is initialized with `org-table-analyze'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-named-field-locations nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Alist with locations of named fields.
Associations follow the pattern (NAME LINE COLUMN) where
NAME is the name of the field as a string,
LINE is the number of lines from the beginning of the table,
COLUMN is the column of the field, as an integer.
This variable is initialized with `org-table-analyze'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-current-line-types nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Table row types in current table.
This variable is initialized with `org-table-analyze'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-current-begin-pos nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Current table begin position, as a marker.
This variable is initialized with `org-table-analyze'.")
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
(defvar org-table-current-ncol nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Number of columns in current table.
This variable is initialized with `org-table-analyze'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-dlines nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Vector of data line line numbers in the current table.
Line numbers are counted from the beginning of the table. This
variable is initialized with `org-table-analyze'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar org-table-hlines nil
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
"Vector of hline line numbers in the current table.
Line numbers are counted from the beginning of the table. This
variable is initialized with `org-table-analyze'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defvar org-table-aligned-begin-marker (make-marker)
"Marker at the beginning of the table last aligned.
Used to check if cursor still is in that table, to minimize realignment.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defvar org-table-aligned-end-marker (make-marker)
"Marker at the end of the table last aligned.
Used to check if cursor still is in that table, to minimize realignment.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defvar org-table-last-alignment nil
"List of flags for flushright alignment, from the last re-alignment.
This is being used to correctly align a single field after TAB or RET.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defvar org-table-last-column-widths nil
"List of max width of fields in each column.
This is being used to correctly align a single field after TAB or RET.")
org-table: Improve bidirectional reordering in tables * lisp/org-table.el (org-table-separator-space): New variable. (org-table-align): Use new variable.
2017-12-23 17:37:45 -05:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defvar-local org-table-formula-debug nil
"Non-nil means debug table formulas.
When nil, simply write \"#ERROR\" in corrupted fields.")
(defvar-local org-table-overlay-coordinates nil
"Overlay coordinates after each align of a table.")
(defvar org-last-recalc-line nil)
(defvar org-show-positions nil)
(defvar org-table-rectangle-overlays nil)
(defvar org-table-clip nil
"Clipboard for table regions.")
(defvar org-timecnt nil)
(defvar org-recalc-commands nil
"List of commands triggering the recalculation of a line.
Will be filled automatically during use.")
(defvar org-recalc-marks
'((" " . "Unmarked: no special line, no automatic recalculation")
("#" . "Automatically recalculate this line upon TAB, RET, and C-c C-c in the line")
("*" . "Recalculate only when entire table is recalculated with `C-u C-c *'")
("!" . "Column name definition line. Reference in formula as $name.")
("$" . "Parameter definition line name=value. Reference in formula as $name.")
("_" . "Names for values in row below this one.")
("^" . "Names for values in row above this one.")))
(defvar org-pos nil)
;;; Macros and Inlined Functions
Allow editing partially shrunk columns * lisp/org-table.el (org-table-with-shrunk-field): New macro. (org-table-get-field): (org-table-toggle-column-width): Use new macro. (org-table--shrunk-field): Update function. (org-table--shrink-field): When there is a width cookie, leave first characters editable. * lisp/org.el (org-self-insert-command): (org-delete-backward-char): (org-delete-char): Small refactoring. Handle shrink overlays. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): Update tests.
2018-01-25 17:43:37 -05:00
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(defmacro org-table-with-shrunk-columns (&rest body)
"Expand all columns before executing BODY, then shrink them again."
(declare (debug (body)))
(org-with-gensyms (shrunk-columns begin end)
`(let ((,begin (copy-marker (org-table-begin)))
(,end (copy-marker (org-table-end) t))
(,shrunk-columns (org-table--list-shrunk-columns)))
org-table: Implement org-table-expand * lisp/org-table.el (org-table-expand): New function. (org-table--expand-all-columns): Remove function. (org-table-with-shrunk-columns): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-toggle-column-width): Use new function.
2017-08-19 09:39:04 -04:00
(org-with-point-at ,begin (org-table-expand ,begin ,end))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(unwind-protect
(progn ,@body)
(org-table--shrink-columns ,shrunk-columns ,begin ,end)
(set-marker ,begin nil)
(set-marker ,end nil)))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defmacro org-table-with-shrunk-field (&rest body)
"Save field shrunk state, execute BODY and restore state."
(declare (debug (body)))
(org-with-gensyms (end shrunk size)
`(let* ((,shrunk (save-match-data (org-table--shrunk-field)))
(,end (and ,shrunk (copy-marker (overlay-end ,shrunk) t)))
(,size (and ,shrunk (- ,end (overlay-start ,shrunk)))))
(when ,shrunk (delete-overlay ,shrunk))
(unwind-protect (progn ,@body)
(when ,shrunk (move-overlay ,shrunk (- ,end ,size) ,end))))))
(defmacro org-table-save-field (&rest body)
"Save current field; execute BODY; restore field.
Field is restored even in case of abnormal exit."
(declare (debug (body)))
(org-with-gensyms (line column)
`(let ((,line (copy-marker (line-beginning-position)))
(,column (org-table-current-column)))
(unwind-protect
(progn ,@body)
(goto-char ,line)
(org-table-goto-column ,column)
(set-marker ,line nil)))))
;;; Predicates
(defun org-at-TBLFM-p (&optional pos)
"Non-nil when point (or POS) is in #+TBLFM line."
(save-excursion
(goto-char (or pos (point)))
(beginning-of-line)
(and (let ((case-fold-search t)) (looking-at org-TBLFM-regexp))
(eq (org-element-type (org-element-at-point)) 'table))))
(defun org-at-table-p (&optional table-type)
"Non-nil if the cursor is inside an Org table.
If TABLE-TYPE is non-nil, also check for table.el-type tables."
(and (org-match-line (if table-type "[ \t]*[|+]" "[ \t]*|"))
(or (not (derived-mode-p 'org-mode))
(let ((e (org-element-lineage (org-element-at-point) '(table) t)))
(and e (or table-type
(eq 'org (org-element-property :type e))))))))
(defun org-at-table.el-p ()
"Non-nil when point is at a table.el table."
(and (org-match-line "[ \t]*[|+]")
(let ((element (org-element-at-point)))
(and (eq (org-element-type element) 'table)
(eq (org-element-property :type element) 'table.el)))))
(defun org-at-table-hline-p ()
"Non-nil when point is inside a hline in a table.
Assume point is already in a table."
(org-match-line org-table-hline-regexp))
(defun org-table-check-inside-data-field (&optional noerror assume-table)
"Non-nil when point is inside a table data field.
Raise an error otherwise, unless NOERROR is non-nil. In that
case, return nil if point is not inside a data field. When
optional argument ASSUME-TABLE is non-nil, assume point is within
a table."
(cond ((and (or assume-table (org-at-table-p))
(not (save-excursion (skip-chars-backward " \t") (bolp)))
(not (org-at-table-hline-p))
(not (looking-at-p "[ \t]*$"))))
(noerror nil)
(t (user-error "Not in table data field"))))
;;; Create, Import, and Convert Tables
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-create-with-table.el ()
"Use the table.el package to insert a new table.
Turn org-mode into Org or Org mode Use Org or Org mode instead of org-mode or Org-mode according to "Documentation standards".
2016-08-23 16:13:56 -04:00
If there is already a table at point, convert between Org tables
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
and table.el tables."
(interactive)
(require 'table)
(cond
Many small code improvements * lisp/org-capture.el (org-capture-member): Make obsolete; the old definition was identical to ‘org-capture-get’ anyway. (org-capture-mode-map): Move the calls to ‘define-key’ up to where the variable is defined. (org-capture-mode-hook): Small docstring tweak. (org-capture-mode): Fix typo in mode lighter. (org-capture-set-target-location, org-capture-place-item): (org-capture-place-plain-text, org-capture-narrow): (org-capture-empty-lines-after): (org-capture-import-remember-templates): ‘if’ without else -> ‘when’ * lisp/org-colview.el (org-columns-edit-value): Change an error to a user-error. (org-columns-uncompile-format): Improve docstring. * lisp/org-compat.el (org-remove-from-invisibility-spec): Make obsolete, the underlying emacs function exists since 1997, commit 31aa282e. (org-in-invisibility-spec-p, org-count-lines): ‘if’ without else -> ‘when’. * lisp/org-element.el (org-element-swap-A-B): * lisp/org-entities.el (org-entities-create-table): * lisp/org-list.el (org-insert-item): * lisp/org-macs.el (org-with-point-at, org-base-buffer): (org-preserve-local-variables, org-overlay-display): (org-overlay-before-string): ‘if’ without else -> ‘when’. * lisp/org-eshell.el (org-eshell-open): Fix docstring typo. * lisp/org-pcomplete.el (pcomplete/org-mode/file-option/language): (pcomplete/org-mode/file-option/startup): (pcomplete/org-mode/file-option/options): (pcomplete/org-mode/file-option/infojs_opt): (pcomplete/org-mode/link, pcomplete/org-mode/tex): (pcomplete/org-mode/todo, pcomplete/org-mode/searchhead): (pcomplete/org-mode/tag, pcomplete/org-mode/prop): Avoid the formerly misspelled ‘pcomplete-uniqify-list’ function. It has a defalias in emacs >= 27; we add our own for older emacsen. (pcomplete/org-mode/file-option/bind): ‘if’ without else -> ‘when’. * lisp/org-protocol.el (org-protocol-capture): (org-protocol-convert-query-to-plist): ‘if’ without else -> ‘when’. (org-protocol-do-capture): Pacify byte compiler, simplify conditional logic. * lisp/org-table.el (org-table-create-with-table.el): Simplify conditional logic. (org-table-create, org-table-convert-region, org-table-next-field): (org-table-beginning-of-field, org-table-end-of-field): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): ‘if’ without else -> ‘when’. * lisp/org.el (org-babel-do-load-languages, org-previous-link): (org-refile): Use ‘(foo ...)’ instead of ‘(funcall 'foo ...)’. (org-add-log-note): Convert a long cond into a cl-case. (org-priority): Improve docstring, show a deprecation warning if the ‘show’ argument is passed (which was previously silently ignored). Also, use ?\s instead of ?\ as a character literal for space. (org-fast-tag-insert): Fix docstring typo. (org-fill-element): ‘if’ without else -> ‘when’. (org-on-target-p): Remove ancient compatibility alias.
2018-05-09 21:02:35 -04:00
((and (org-at-table.el-p)
(y-or-n-p "Convert table to Org table? "))
(org-table-convert))
((and (org-at-table-p)
(y-or-n-p "Convert table to table.el table? "))
(org-table-align)
(org-table-convert))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(t (call-interactively 'table-insert))))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-create-or-convert-from-region (arg)
"Convert region to table, or create an empty table.
If there is an active region, convert it to a table, using the function
`org-table-convert-region'. See the documentation of that function
to learn how the prefix argument is interpreted to determine the field
separator.
If there is no such region, create an empty table with `org-table-create'."
(interactive "P")
(if (org-region-active-p)
(org-table-convert-region (region-beginning) (region-end) arg)
(org-table-create arg)))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-create (&optional size)
"Query for a size and insert a table skeleton.
SIZE is a string Columns x Rows like for example \"3x2\"."
(interactive "P")
(unless size
(setq size (read-string
(concat "Table size Columns x Rows [e.g. "
org-table-default-size "]: ")
"" nil org-table-default-size)))
(let* ((pos (point))
(indent (make-string (current-column) ?\ ))
(split (org-split-string size " *x *"))
(rows (string-to-number (nth 1 split)))
(columns (string-to-number (car split)))
(line (concat (apply 'concat indent "|" (make-list columns " |"))
"\n")))
(if (string-match "^[ \t]*$" (buffer-substring-no-properties
Backport commit b7e867b84 from Emacs Make point-at-eol and point-at-bol obsolete b7e867b841f47dcff3aeaef9b5608a237386ce70 Stefan Kangas Tue Aug 23 04:54:57 2022 +0200 [ km: This was independently covered on the main branch with e73c5b7d0. I'm applying it here too for bookkeeping/traceability purposes. ]
2022-08-22 22:54:57 -04:00
(line-beginning-position) (point)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(beginning-of-line 1)
(newline))
;; (mapcar (lambda (x) (insert line)) (make-list rows t))
Activate lexical binding in some libraries * lisp/ob-C.el (org-babel-prep-session:C): (org-babel-load-session:C): * lisp/ob-J.el: (org-babel-expand-body:J): (org-babel-execute:J): * lisp/ob-R.el: (org-babel-expand-body:R): * lisp/ob-abc.el: (org-babel-execute:abc): (org-babel-prep-session:abc): * lisp/ob-asymptote.el: (org-babel-execute:asymptote): (org-babel-prep-session:asymptote): * lisp/ob-awk.el: (org-babel-expand-body:awk): * lisp/ob-calc.el: (org-babel-expand-body:calc): * lisp/ob-clojure.el: * lisp/ob-comint.el: (org-babel-comint-in-buffer): (org-babel-comint-with-output): (org-babel-comint-eval-invisibly-and-wait-for-file): * lisp/ob-coq.el: * lisp/ob-css.el: (org-babel-execute:css): (org-babel-prep-session:css): * lisp/ob-ditaa.el: (org-babel-execute:ditaa): (org-babel-prep-session:ditaa): * lisp/ob-dot.el: (org-babel-execute:dot): (org-babel-prep-session:dot): * lisp/ob-ebnf.el: * lisp/ob-emacs-lisp.el: * lisp/ob-eval.el: * lisp/ob-forth.el: * lisp/ob-fortran.el: (org-babel-execute:fortran): (org-babel-prep-session:fortran): (org-babel-load-session:fortran): * lisp/ob-gnuplot.el: (org-babel-expand-body:gnuplot): (org-babel-prep-session:gnuplot): (org-babel-gnuplot-initiate-session): * lisp/ob-groovy.el: (org-babel-prep-session:groovy): (org-babel-groovy-initiate-session): * lisp/ob-haskell.el: (org-babel-haskell-initiate-session): * lisp/ob-io.el: (org-babel-prep-session:io): (org-babel-io-initiate-session): * lisp/ob-java.el: (org-babel-execute:java): * lisp/ob-js.el: * lisp/ob-keys.el: * lisp/ob-latex.el: (org-babel-prep-session:latex): * lisp/ob-ledger.el: (org-babel-execute:ledger): (org-babel-prep-session:ledger): * lisp/ob-lilypond.el: (org-babel-lilypond-commands): (org-babel-lilypond-process-basic): (org-babel-prep-session:lilypond): (org-babel-lilypond-parse-line-num): * lisp/ob-lisp.el: * lisp/ob-makefile.el: (org-babel-execute:makefile): (org-babel-prep-session:makefile): * lisp/ob-matlab.el: * lisp/ob-maxima.el: (org-babel-prep-session:maxima): * lisp/ob-mscgen.el: (org-babel-prep-session:mscgen): * lisp/ob-ocaml.el: (org-babel-execute:ocaml): (org-babel-prep-session:ocaml): * lisp/ob-octave.el: (org-babel-execute:octave): (org-babel-octave-initiate-session): * lisp/ob-org.el: (org-babel-prep-session:org): * lisp/ob-perl.el: (org-babel-prep-session:perl): (org-babel-perl--var-to-perl): (org-babel-perl-initiate-session): * lisp/ob-picolisp.el: (org-babel-expand-body:picolisp): (org-babel-execute:picolisp): * lisp/ob-plantuml.el: (org-babel-execute:plantuml): (org-babel-prep-session:plantuml): * lisp/ob-processing.el: (org-babel-prep-session:processing): * lisp/ob-python.el: (org-babel-python-initiate-session): * lisp/ob-ref.el: (org-babel-ref-resolve): * lisp/ob-ruby.el: (org-babel-ruby-initiate-session): * lisp/ob-sass.el: (org-babel-execute:sass): (org-babel-prep-session:sass): * lisp/ob-scala.el: (org-babel-execute:scala): (org-babel-prep-session:scala): (org-babel-scala-initiate-session): * lisp/ob-scheme.el: * lisp/ob-screen.el: (org-babel-prep-session:screen): (org-babel-screen-session-write-temp-file): (org-babel-screen-test): * lisp/ob.el: * lisp/org-colview.el: (org-columns-todo): (org-columns-set-tags-or-toggle): (org-columns-new): (org-columns-uncompile-format): (org-agenda-colview-summarize): * lisp/org-footnote.el: (electric-indent-mode): * lisp/org-indent.el: (org-indent-refresh-maybe): * lisp/org-list.el: * lisp/org-macro.el: (org-macro--collect-macros): * lisp/org-src.el: * lisp/org-table.el: (sort-fold-case): (org-table-create): (org-table-field-info): (org-table-transpose-table-at-point): (org-table-remove-rectangle-highlight): (orgtbl-create-or-convert-from-region): (org-define-lookup-function): * lisp/ox-ascii.el: (org-ascii-format-drawer-function): (org-ascii--has-caption-p): (org-ascii-bold): (org-ascii-center-block): (org-ascii-clock): (org-ascii-code): (org-ascii-dynamic-block): (org-ascii-entity): (org-ascii-example-block): (org-ascii-export-snippet): (org-ascii-export-block): (org-ascii-fixed-width): (org-ascii-footnote-reference): (org-ascii-horizontal-rule): (org-ascii-inline-src-block): (org-ascii-format-inlinetask-default): (org-ascii-italic): (org-ascii-keyword): (org-ascii-latex-environment): (org-ascii-latex-fragment): (org-ascii-line-break): (org-ascii-node-property): (org-ascii-planning): (org-ascii-quote-block): (org-ascii-radio-target): (org-ascii-special-block): (org-ascii-src-block): (org-ascii-statistics-cookie): (org-ascii-subscript): (org-ascii-superscript): (org-ascii-strike-through): (org-ascii-timestamp): (org-ascii-underline): (org-ascii-verbatim): (org-ascii-verse-block): (org-ascii-filter-headline-blank-lines): (org-ascii-filter-paragraph-spacing): (org-ascii-filter-comment-spacing): Use lexical binding.
2015-10-25 20:56:00 -04:00
(dotimes (_ rows) (insert line))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(goto-char pos)
Many small code improvements * lisp/org-capture.el (org-capture-member): Make obsolete; the old definition was identical to ‘org-capture-get’ anyway. (org-capture-mode-map): Move the calls to ‘define-key’ up to where the variable is defined. (org-capture-mode-hook): Small docstring tweak. (org-capture-mode): Fix typo in mode lighter. (org-capture-set-target-location, org-capture-place-item): (org-capture-place-plain-text, org-capture-narrow): (org-capture-empty-lines-after): (org-capture-import-remember-templates): ‘if’ without else -> ‘when’ * lisp/org-colview.el (org-columns-edit-value): Change an error to a user-error. (org-columns-uncompile-format): Improve docstring. * lisp/org-compat.el (org-remove-from-invisibility-spec): Make obsolete, the underlying emacs function exists since 1997, commit 31aa282e. (org-in-invisibility-spec-p, org-count-lines): ‘if’ without else -> ‘when’. * lisp/org-element.el (org-element-swap-A-B): * lisp/org-entities.el (org-entities-create-table): * lisp/org-list.el (org-insert-item): * lisp/org-macs.el (org-with-point-at, org-base-buffer): (org-preserve-local-variables, org-overlay-display): (org-overlay-before-string): ‘if’ without else -> ‘when’. * lisp/org-eshell.el (org-eshell-open): Fix docstring typo. * lisp/org-pcomplete.el (pcomplete/org-mode/file-option/language): (pcomplete/org-mode/file-option/startup): (pcomplete/org-mode/file-option/options): (pcomplete/org-mode/file-option/infojs_opt): (pcomplete/org-mode/link, pcomplete/org-mode/tex): (pcomplete/org-mode/todo, pcomplete/org-mode/searchhead): (pcomplete/org-mode/tag, pcomplete/org-mode/prop): Avoid the formerly misspelled ‘pcomplete-uniqify-list’ function. It has a defalias in emacs >= 27; we add our own for older emacsen. (pcomplete/org-mode/file-option/bind): ‘if’ without else -> ‘when’. * lisp/org-protocol.el (org-protocol-capture): (org-protocol-convert-query-to-plist): ‘if’ without else -> ‘when’. (org-protocol-do-capture): Pacify byte compiler, simplify conditional logic. * lisp/org-table.el (org-table-create-with-table.el): Simplify conditional logic. (org-table-create, org-table-convert-region, org-table-next-field): (org-table-beginning-of-field, org-table-end-of-field): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): ‘if’ without else -> ‘when’. * lisp/org.el (org-babel-do-load-languages, org-previous-link): (org-refile): Use ‘(foo ...)’ instead of ‘(funcall 'foo ...)’. (org-add-log-note): Convert a long cond into a cl-case. (org-priority): Improve docstring, show a deprecation warning if the ‘show’ argument is passed (which was previously silently ignored). Also, use ?\s instead of ?\ as a character literal for space. (org-fast-tag-insert): Fix docstring typo. (org-fill-element): ‘if’ without else -> ‘when’. (org-on-target-p): Remove ancient compatibility alias.
2018-05-09 21:02:35 -04:00
(when (> rows 1)
;; Insert a hline after the first row.
(end-of-line 1)
(insert "\n|-")
(goto-char pos))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-align)))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-convert-region (beg0 end0 &optional separator)
"Convert region to a table.
Fix documentation * doc/org.texi (Installation): (Feedback): (Handling links): (Setting tags): (Matching tags and properties): (Storing searches): (The very busy C-c C-c key): (org-crypt): (Adding hyperlink types): * lisp/org-agenda.el (org-agenda-todo-ignore-deadlines): (org-agenda-show-inherited-tags): (org-agenda-week-view): (org-agenda-fortnight-view): (org-agenda-month-view): (org-agenda-year-view): * lisp/org-archive.el (org-archive-to-archive-sibling): * lisp/org-capture.el (org-capture-templates): * lisp/org-table.el: * lisp/org.el (org-startup-folded): (org-tag-alist): (org-match-sparse-tree): Provide more accurate documentation. Reported-by: Jorge Morais Neto <jorge13515@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/110080>
2016-11-06 19:14:04 -05:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
The region goes from BEG0 to END0, but these borders will be moved
org-table-convert-region: Update docstring * lisp/org-table.el (org-table-convert-region): Mention when an error can be thrown in the docstring.
2022-11-21 21:05:48 -05:00
slightly, to make sure a beginning of line in the first line is
included.
Throw an error when the region has more than
`org-table-convert-region-max-lines' lines.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
SEPARATOR specifies the field separator in the lines. It can have the
following values:
Backport quote-related commits from Emacs These changes are the combination of the commits below (in order applied). Unlike other backports, these are applied in one commit because they are closely related and because some of the later commits reverse changes in earlier commits. Changes to message and help quote display for Emacs 25 seem to be here to stay. The quote protections are required to ensure grave accents and apostrophes are displayed as intended in Emacs 25, and they should not affect earlier versions. Quoting fixes in lisp/org 6cd2629bd1b3ce77d29ac28e29237c94a4197116 Paul Eggert Mon Aug 31 00:29:40 2015 -0700 More-conservative ‘format’ quote restyling fbb5531fa11d13854b274d28ccd329c9b6652cfc Paul Eggert Sun Aug 23 22:39:06 2015 -0700 Prefer directed to neutral quotes 875a5d0ead827d3da32ecbd30e739a29f07bbc87 Paul Eggert Mon Aug 24 23:57:25 2015 -0700 Escape ` and ' in doc 19532d147b431a4fe34f088d6de07891c48e2c5c Paul Eggert Tue Sep 1 18:23:21 2015 -0700 Fix some more docstring etc. quoting problems 26bd978d87dfbf9baa115cd961a67d42b416c4bf Paul Eggert Thu Sep 3 15:32:54 2015 -0700 Go back to grave quoting in source-code docstrings etc. 6afef3f6ca2f3009c722b84e249903b7f807b044 Paul Eggert Mon Sep 7 16:09:27 2015 -0700
2015-09-21 00:23:36 -04:00
(4) Use the comma as a field separator
(16) Use a TAB as field separator
(64) Prompt for a regular expression as field separator
Fix documentation * doc/org.texi (Installation): (Feedback): (Handling links): (Setting tags): (Matching tags and properties): (Storing searches): (The very busy C-c C-c key): (org-crypt): (Adding hyperlink types): * lisp/org-agenda.el (org-agenda-todo-ignore-deadlines): (org-agenda-show-inherited-tags): (org-agenda-week-view): (org-agenda-fortnight-view): (org-agenda-month-view): (org-agenda-year-view): * lisp/org-archive.el (org-archive-to-archive-sibling): * lisp/org-capture.el (org-capture-templates): * lisp/org-table.el: * lisp/org.el (org-startup-folded): (org-tag-alist): (org-match-sparse-tree): Provide more accurate documentation. Reported-by: Jorge Morais Neto <jorge13515@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/110080>
2016-11-06 19:14:04 -05:00
integer When a number, use that many spaces, or a TAB, as field separator
Allow regexp separator when converting the region to a table * lisp/org-table.el (org-table-convert-region): Interpret string SEPARATOR as regular expression. Triple `C-u' prefix arg will read a regexp from the user. * doc/org.texi: Document that `C-c |' can take a regexp as a separator. Patch modified from a proposal by Francois.
2013-09-29 06:27:09 -04:00
regexp When a regular expression, use it to match the separator
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
nil When nil, the command tries to be smart and figure out the
separator in the following way:
- when each line contains a TAB, assume TAB-separated material
Fix typos in org-table.el
2008-12-16 11:49:26 -05:00
- when each line contains a comma, assume CSV material
Implement changes from downstream Emacs. These are changes that where made in the Emacs CVS. The change in org-publish is not final, it is still being discussed - however, the current change should make it possible to compile and run the code with the latest CVS version of Emacs.
2008-11-08 16:00:03 -05:00
- else, assume one or more SPACE characters as separator."
Fix `interactive' statement in `org-table-convert-region' * lisp/org-table.el (org-table-convert-region): Fix interactive statement.
2013-06-01 01:46:08 -04:00
(interactive "r\nP")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let* ((beg (min beg0 end0))
(end (max beg0 end0))
re)
org-table.el: Fix usage of user-error * lisp/org-table.el (org-table-convert-region): Don't use `if' because Elisp has no concept of continuable errors.
2021-05-23 04:18:33 -04:00
(when (> (count-lines beg end) org-table-convert-region-max-lines)
(user-error "Region is longer than `org-table-convert-region-max-lines' (%s) lines; not converting"
org-table-convert-region-max-lines))
(when (equal separator '(64))
(setq separator (read-regexp "Regexp for field separator")))
(goto-char beg)
(beginning-of-line 1)
(setq beg (point-marker))
(goto-char end)
(if (bolp) (backward-char 1) (end-of-line 1))
(setq end (point-marker))
;; Get the right field separator
(unless separator
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(goto-char beg)
org-table.el: Fix usage of user-error * lisp/org-table.el (org-table-convert-region): Don't use `if' because Elisp has no concept of continuable errors.
2021-05-23 04:18:33 -04:00
(setq separator
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(cond
org-table.el: Fix usage of user-error * lisp/org-table.el (org-table-convert-region): Don't use `if' because Elisp has no concept of continuable errors.
2021-05-23 04:18:33 -04:00
((not (re-search-forward "^[^\n\t]+$" end t)) '(16))
((not (re-search-forward "^[^\n,]+$" end t)) '(4))
(t 1))))
(goto-char beg)
(if (equal separator '(4))
(while (< (point) end)
;; parse the csv stuff
(cond
((looking-at "^") (insert "| "))
((looking-at "[ \t]*$") (replace-match " |") (beginning-of-line 2))
((looking-at "[ \t]*\"\\([^\"\n]*\\)\"")
(replace-match "\\1")
(if (looking-at "\"") (insert "\"")))
((looking-at "[^,\n]+") (goto-char (match-end 0)))
((looking-at "[ \t]*,") (replace-match " | "))
(t (beginning-of-line 2))))
(setq re (cond
((equal separator '(4)) "^\\|\"?[ \t]*,[ \t]*\"?")
((equal separator '(16)) "^\\|\t")
((integerp separator)
(if (< separator 1)
(user-error "Number of spaces in separator must be >= 1")
(format "^ *\\| *\t *\\| \\{%d,\\}" separator)))
((stringp separator)
(format "^ *\\|%s" separator))
(t (error "This should not happen"))))
(while (re-search-forward re end t)
(replace-match "| " t t)))
(goto-char beg)
(org-table-align)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
org-table: Improve a docstring * lisp/org-table.el (org-table-import): Improve docstring. Fixes: 22597
2018-01-03 09:25:33 -05:00
(defun org-table-import (file separator)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
"Import FILE as a table.
org-table: Improve a docstring * lisp/org-table.el (org-table-import): Improve docstring. Fixes: 22597
2018-01-03 09:25:33 -05:00
The command tries to be smart and figure out the separator in the
following way:
org-table.el: Throw an error when importing a non-csv/tsv/txt file * lisp/org-table.el (org-table-import): Throw an error when interactively trying to import a non-csv/tsv/txt file. Reported-by: swedebugia <swedebugia@riseup.net> See https://orgmode.org/list/20200912135043.0354bac4@parabola/
2020-09-13 13:13:05 -04:00
- when each line contains a TAB, assume TAB-separated material;
- when each line contains a comma, assume CSV material;
- else, assume one or more SPACE characters as separator.
org-table: Improve a docstring * lisp/org-table.el (org-table-import): Improve docstring. Fixes: 22597
2018-01-03 09:25:33 -05:00
When non-nil, SEPARATOR specifies the field separator in the
lines. It can have the following values:
org-table.el: Throw an error when importing a non-csv/tsv/txt file * lisp/org-table.el (org-table-import): Throw an error when interactively trying to import a non-csv/tsv/txt file. Reported-by: swedebugia <swedebugia@riseup.net> See https://orgmode.org/list/20200912135043.0354bac4@parabola/
2020-09-13 13:13:05 -04:00
- (4) Use the comma as a field separator.
- (16) Use a TAB as field separator.
- (64) Prompt for a regular expression as field separator.
- integer When a number, use that many spaces, or a TAB, as field separator.
- regexp When a regular expression, use it to match the separator."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(interactive "f\nP")
org-table.el: Throw an error when importing a non-csv/tsv/txt file * lisp/org-table.el (org-table-import): Throw an error when interactively trying to import a non-csv/tsv/txt file. Reported-by: swedebugia <swedebugia@riseup.net> See https://orgmode.org/list/20200912135043.0354bac4@parabola/
2020-09-13 13:13:05 -04:00
(when (and (called-interactively-p 'any)
org-table.el: Allow to import files with no .txt, .tsv or .csv * lisp/org-table.el (org-table-import): Allow to import files with no .txt, .tsv or .csv extension. TINYCHANGE
2021-05-01 04:48:07 -04:00
(not (string-match-p (rx "." (or "txt" "tsv" "csv") eos) file))
(not (yes-or-no-p "The file's extension is not .txt, .tsv or .csv. Import? ")))
org-table.el: Throw an error when importing a non-csv/tsv/txt file * lisp/org-table.el (org-table-import): Throw an error when interactively trying to import a non-csv/tsv/txt file. Reported-by: swedebugia <swedebugia@riseup.net> See https://orgmode.org/list/20200912135043.0354bac4@parabola/
2020-09-13 13:13:05 -04:00
(user-error "Cannot import such file"))
org-table: Improve a docstring * lisp/org-table.el (org-table-import): Improve docstring. Fixes: 22597
2018-01-03 09:25:33 -05:00
(unless (bolp) (insert "\n"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let ((beg (point))
(pm (point-max)))
(insert-file-contents file)
org-table: Improve a docstring * lisp/org-table.el (org-table-import): Improve docstring. Fixes: 22597
2018-01-03 09:25:33 -05:00
(org-table-convert-region beg (+ (point) (- (point-max) pm)) separator)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-convert ()
"Convert from Org table to table.el and back.
Obviously, this only works within limits. When an Org table is converted
to table.el, all horizontal separator lines get lost, because table.el uses
these as cell boundaries and has no notion of horizontal lines. A table.el
table can be converted to an Org table only if it does not do row or column
spanning. Multiline cells will become multiple cells. Beware, Org mode
does not test if the table can be successfully converted - it blindly
applies a recipe that works for simple tables."
(interactive)
(require 'table)
(if (org-at-table.el-p)
;; convert to Org table
(let ((beg (copy-marker (org-table-begin t)))
(end (copy-marker (org-table-end t))))
(table-unrecognize-region beg end)
(goto-char beg)
(while (re-search-forward "^\\([ \t]*\\)\\+-.*\n" end t)
(replace-match ""))
(goto-char beg))
(if (org-at-table-p)
;; convert to table.el table
(let ((beg (copy-marker (org-table-begin)))
(end (copy-marker (org-table-end))))
;; first, get rid of all horizontal lines
(goto-char beg)
(while (re-search-forward "^\\([ \t]*\\)|-.*\n" end t)
(replace-match ""))
;; insert a hline before first
(goto-char beg)
(org-table-insert-hline 'above)
(beginning-of-line -1)
;; insert a hline after each line
(while (progn (beginning-of-line 3) (< (point) end))
(org-table-insert-hline))
(goto-char beg)
(setq end (move-marker end (org-table-end)))
;; replace "+" at beginning and ending of hlines
(while (re-search-forward "^\\([ \t]*\\)|-" end t)
(replace-match "\\1+-"))
(goto-char beg)
(while (re-search-forward "-|[ \t]*$" end t)
(replace-match "-+"))
(goto-char beg)))))
Apply patches by James TD Smith.
2008-04-10 02:27:56 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;; Navigation and Structure Editing
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Remove org-autoload. * org-macs.el (org-autoload): Delete. * org-docview.el ("docview"): Fix declarations and require doc-view directly. * org-id.el (org-id-copy) (org-id-get-with-outline-path-completion) (org-id-get-with-outline-drilling, org-id-new): * org-colview.el: (org-colview-initial-truncate-line-value) (org-columns-open-link, org-string-to-number): * org-clock.el: (org-clock-put-overlay, org-count-quarter, org-clock-loaded): * org-archive.el (org-get-local-archive-location): * org-agenda.el (org-agenda-todo-custom-ignore-p): Autoload. Those functions were autoloaded from within calls to `org-autoload' in org.el, we now autoload them from where they live.
2013-11-15 00:53:59 -05:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-begin (&optional table-type)
"Find the beginning of the table and return its position.
org-table: Speed-up `org-table-{begin,end}' * lisp/org-table.el (org-table-border-regexp): Improve docstring. (org-table-begin): (org-table-end): Assume point is in a table already. In this case, using parser is not necessary anymore.
2015-07-29 17:38:35 -04:00
With a non-nil optional argument TABLE-TYPE, return the beginning
of a table.el-type table. This function assumes point is on
a table."
(cond (table-type
(org-element-property :post-affiliated (org-element-at-point)))
((save-excursion
(and (re-search-backward org-table-border-regexp nil t)
(line-beginning-position 2))))
(t (point-min))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Remove org-autoload. * org-macs.el (org-autoload): Delete. * org-docview.el ("docview"): Fix declarations and require doc-view directly. * org-id.el (org-id-copy) (org-id-get-with-outline-path-completion) (org-id-get-with-outline-drilling, org-id-new): * org-colview.el: (org-colview-initial-truncate-line-value) (org-columns-open-link, org-string-to-number): * org-clock.el: (org-clock-put-overlay, org-count-quarter, org-clock-loaded): * org-archive.el (org-get-local-archive-location): * org-agenda.el (org-agenda-todo-custom-ignore-p): Autoload. Those functions were autoloaded from within calls to `org-autoload' in org.el, we now autoload them from where they live.
2013-11-15 00:53:59 -05:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-end (&optional table-type)
"Find the end of the table and return its position.
org-table: Speed-up `org-table-{begin,end}' * lisp/org-table.el (org-table-border-regexp): Improve docstring. (org-table-begin): (org-table-end): Assume point is in a table already. In this case, using parser is not necessary anymore.
2015-07-29 17:38:35 -04:00
With a non-nil optional argument TABLE-TYPE, return the end of
a table.el-type table. This function assumes point is on
a table."
(save-excursion
(cond (table-type
(goto-char (org-element-property :end (org-element-at-point)))
(skip-chars-backward " \t\n")
(line-beginning-position 2))
((re-search-forward org-table-border-regexp nil t)
(match-beginning 0))
;; When the line right after the table is the last line in
;; the buffer with trailing spaces but no final newline
org-table: Fix a comment * lisp/org-table.el (org-table-end): Fix a comment.
2016-01-14 11:51:39 -05:00
;; character, be sure to catch the correct ending at its
;; beginning. In any other case, ending is expected to be
;; at point max.
org-table: Speed-up `org-table-{begin,end}' * lisp/org-table.el (org-table-border-regexp): Improve docstring. (org-table-begin): (org-table-end): Assume point is in a table already. In this case, using parser is not necessary anymore.
2015-07-29 17:38:35 -04:00
(t (goto-char (point-max))
(skip-chars-backward " \t")
(if (bolp) (point) (line-end-position))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-next-field ()
"Go to the next field in the current table, creating new lines as needed.
Before doing so, re-align the table if necessary."
(interactive)
(org-table-maybe-eval-formula)
(org-table-maybe-recalculate-line)
Many small code improvements * lisp/org-capture.el (org-capture-member): Make obsolete; the old definition was identical to ‘org-capture-get’ anyway. (org-capture-mode-map): Move the calls to ‘define-key’ up to where the variable is defined. (org-capture-mode-hook): Small docstring tweak. (org-capture-mode): Fix typo in mode lighter. (org-capture-set-target-location, org-capture-place-item): (org-capture-place-plain-text, org-capture-narrow): (org-capture-empty-lines-after): (org-capture-import-remember-templates): ‘if’ without else -> ‘when’ * lisp/org-colview.el (org-columns-edit-value): Change an error to a user-error. (org-columns-uncompile-format): Improve docstring. * lisp/org-compat.el (org-remove-from-invisibility-spec): Make obsolete, the underlying emacs function exists since 1997, commit 31aa282e. (org-in-invisibility-spec-p, org-count-lines): ‘if’ without else -> ‘when’. * lisp/org-element.el (org-element-swap-A-B): * lisp/org-entities.el (org-entities-create-table): * lisp/org-list.el (org-insert-item): * lisp/org-macs.el (org-with-point-at, org-base-buffer): (org-preserve-local-variables, org-overlay-display): (org-overlay-before-string): ‘if’ without else -> ‘when’. * lisp/org-eshell.el (org-eshell-open): Fix docstring typo. * lisp/org-pcomplete.el (pcomplete/org-mode/file-option/language): (pcomplete/org-mode/file-option/startup): (pcomplete/org-mode/file-option/options): (pcomplete/org-mode/file-option/infojs_opt): (pcomplete/org-mode/link, pcomplete/org-mode/tex): (pcomplete/org-mode/todo, pcomplete/org-mode/searchhead): (pcomplete/org-mode/tag, pcomplete/org-mode/prop): Avoid the formerly misspelled ‘pcomplete-uniqify-list’ function. It has a defalias in emacs >= 27; we add our own for older emacsen. (pcomplete/org-mode/file-option/bind): ‘if’ without else -> ‘when’. * lisp/org-protocol.el (org-protocol-capture): (org-protocol-convert-query-to-plist): ‘if’ without else -> ‘when’. (org-protocol-do-capture): Pacify byte compiler, simplify conditional logic. * lisp/org-table.el (org-table-create-with-table.el): Simplify conditional logic. (org-table-create, org-table-convert-region, org-table-next-field): (org-table-beginning-of-field, org-table-end-of-field): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): ‘if’ without else -> ‘when’. * lisp/org.el (org-babel-do-load-languages, org-previous-link): (org-refile): Use ‘(foo ...)’ instead of ‘(funcall 'foo ...)’. (org-add-log-note): Convert a long cond into a cl-case. (org-priority): Improve docstring, show a deprecation warning if the ‘show’ argument is passed (which was previously silently ignored). Also, use ?\s instead of ?\ as a character literal for space. (org-fast-tag-insert): Fix docstring typo. (org-fill-element): ‘if’ without else -> ‘when’. (org-on-target-p): Remove ancient compatibility alias.
2018-05-09 21:02:35 -04:00
(when (and org-table-automatic-realign
org-table-may-need-update)
(org-table-align))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let ((end (org-table-end)))
(if (org-at-table-hline-p)
(end-of-line 1))
(condition-case nil
(progn
(re-search-forward "|" end)
(if (looking-at "[ \t]*$")
(re-search-forward "|" end))
(if (and (looking-at "-")
org-table-tab-jumps-over-hlines
(re-search-forward "^[ \t]*|\\([^-]\\)" end t))
(goto-char (match-beginning 1)))
(if (looking-at "-")
(progn
(beginning-of-line 0)
(org-table-insert-row 'below))
(if (looking-at " ") (forward-char 1))))
(error
(org-table-insert-row 'below)))))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-previous-field ()
"Go to the previous field in the table.
Before doing so, re-align the table if necessary."
(interactive)
(org-table-justify-field-maybe)
(org-table-maybe-recalculate-line)
org-table: Small refactoring * lisp/org-table.el (org-table-previous-field): Small refactoring. * testing/lisp/test-org-table.el (test-org-table/previous-field): New test.
2017-08-02 04:35:57 -04:00
(when (and org-table-automatic-realign
org-table-may-need-update)
(org-table-align))
(when (org-at-table-hline-p)
(end-of-line))
(let ((start (org-table-begin))
(origin (point)))
(condition-case nil
(progn
(search-backward "|" start nil 2)
(while (looking-at-p "|\\(?:-\\|[ \t]*$\\)")
(search-backward "|" start)))
(error
(goto-char origin)
(user-error "Cannot move to previous table field"))))
(when (looking-at "| ?")
(goto-char (match-end 0))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Tables: Make M-a and M-e go to beginning and end of table field This commit overloads the sentence commands M-a and M-e so that they will work on table fields in tables.
2009-03-21 13:16:11 -04:00
(defun org-table-beginning-of-field (&optional n)
org-table: Fix docstrings * lisp/org-table.el (org-table-beginning-of-field): (org-table-end-of-field): Swap docstrings.
2015-03-29 08:06:43 -04:00
"Move to the beginning of the current table field.
If already at or before the beginning, move to the beginning of the
previous field.
With numeric argument N, move N-1 fields backward first."
Tables: Make M-a and M-e go to beginning and end of table field This commit overloads the sentence commands M-a and M-e so that they will work on table fields in tables.
2009-03-21 13:16:11 -04:00
(interactive "p")
(let ((pos (point)))
(while (> n 1)
(setq n (1- n))
(org-table-previous-field))
Fix Emacs 29 compiler warnings * lisp/oc-basic.el (org-cite-basic--parse-bibliography): Do not use obsolete `buffer-file-name' generalized variable. Prefer `set-visited-file-name'. * lisp/ol-bibtex.el (org-indent-region): Declare function. (org-bibtex-import-from-file): Remove unused variable. * lisp/ol.el (org-link--decode-compound): Use `ash' instead of obsolete `lsh'. * lisp/org-macs.el: Do no use obsolete generalized variable `buffer-string'. * lisp/org-plot.el (org-plot/redisplay-img-in-buffer): * lisp/org.el (image-flush): (org-display-inline-images): Use `image-flush' instead of obsolete `image-refresh'. * lisp/ox.el (org-export-to-file): Quote ' in the docstring. All other changes are changing obsolete `point-at-bol' and `point-at-eol' to `line-beginning-position' and `line-end-position'.
2022-09-06 08:50:59 -04:00
(if (not (re-search-backward "|" (line-beginning-position 0) t))
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(user-error "No more table fields before the current")
Tables: Make M-a and M-e go to beginning and end of table field This commit overloads the sentence commands M-a and M-e so that they will work on table fields in tables.
2009-03-21 13:16:11 -04:00
(goto-char (match-end 0))
(and (looking-at " ") (forward-char 1)))
Many small code improvements * lisp/org-capture.el (org-capture-member): Make obsolete; the old definition was identical to ‘org-capture-get’ anyway. (org-capture-mode-map): Move the calls to ‘define-key’ up to where the variable is defined. (org-capture-mode-hook): Small docstring tweak. (org-capture-mode): Fix typo in mode lighter. (org-capture-set-target-location, org-capture-place-item): (org-capture-place-plain-text, org-capture-narrow): (org-capture-empty-lines-after): (org-capture-import-remember-templates): ‘if’ without else -> ‘when’ * lisp/org-colview.el (org-columns-edit-value): Change an error to a user-error. (org-columns-uncompile-format): Improve docstring. * lisp/org-compat.el (org-remove-from-invisibility-spec): Make obsolete, the underlying emacs function exists since 1997, commit 31aa282e. (org-in-invisibility-spec-p, org-count-lines): ‘if’ without else -> ‘when’. * lisp/org-element.el (org-element-swap-A-B): * lisp/org-entities.el (org-entities-create-table): * lisp/org-list.el (org-insert-item): * lisp/org-macs.el (org-with-point-at, org-base-buffer): (org-preserve-local-variables, org-overlay-display): (org-overlay-before-string): ‘if’ without else -> ‘when’. * lisp/org-eshell.el (org-eshell-open): Fix docstring typo. * lisp/org-pcomplete.el (pcomplete/org-mode/file-option/language): (pcomplete/org-mode/file-option/startup): (pcomplete/org-mode/file-option/options): (pcomplete/org-mode/file-option/infojs_opt): (pcomplete/org-mode/link, pcomplete/org-mode/tex): (pcomplete/org-mode/todo, pcomplete/org-mode/searchhead): (pcomplete/org-mode/tag, pcomplete/org-mode/prop): Avoid the formerly misspelled ‘pcomplete-uniqify-list’ function. It has a defalias in emacs >= 27; we add our own for older emacsen. (pcomplete/org-mode/file-option/bind): ‘if’ without else -> ‘when’. * lisp/org-protocol.el (org-protocol-capture): (org-protocol-convert-query-to-plist): ‘if’ without else -> ‘when’. (org-protocol-do-capture): Pacify byte compiler, simplify conditional logic. * lisp/org-table.el (org-table-create-with-table.el): Simplify conditional logic. (org-table-create, org-table-convert-region, org-table-next-field): (org-table-beginning-of-field, org-table-end-of-field): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): ‘if’ without else -> ‘when’. * lisp/org.el (org-babel-do-load-languages, org-previous-link): (org-refile): Use ‘(foo ...)’ instead of ‘(funcall 'foo ...)’. (org-add-log-note): Convert a long cond into a cl-case. (org-priority): Improve docstring, show a deprecation warning if the ‘show’ argument is passed (which was previously silently ignored). Also, use ?\s instead of ?\ as a character literal for space. (org-fast-tag-insert): Fix docstring typo. (org-fill-element): ‘if’ without else -> ‘when’. (org-on-target-p): Remove ancient compatibility alias.
2018-05-09 21:02:35 -04:00
(when (>= (point) pos) (org-table-beginning-of-field 2))))
Tables: Make M-a and M-e go to beginning and end of table field This commit overloads the sentence commands M-a and M-e so that they will work on table fields in tables.
2009-03-21 13:16:11 -04:00
(defun org-table-end-of-field (&optional n)
org-table: Fix docstrings * lisp/org-table.el (org-table-beginning-of-field): (org-table-end-of-field): Swap docstrings.
2015-03-29 08:06:43 -04:00
"Move to the end of the current table field.
If already at or after the end, move to the end of the next table field.
With numeric argument N, move N-1 fields forward first."
Tables: Make M-a and M-e go to beginning and end of table field This commit overloads the sentence commands M-a and M-e so that they will work on table fields in tables.
2009-03-21 13:16:11 -04:00
(interactive "p")
(let ((pos (point)))
(while (> n 1)
(setq n (1- n))
(org-table-next-field))
Fix Emacs 29 compiler warnings * lisp/oc-basic.el (org-cite-basic--parse-bibliography): Do not use obsolete `buffer-file-name' generalized variable. Prefer `set-visited-file-name'. * lisp/ol-bibtex.el (org-indent-region): Declare function. (org-bibtex-import-from-file): Remove unused variable. * lisp/ol.el (org-link--decode-compound): Use `ash' instead of obsolete `lsh'. * lisp/org-macs.el: Do no use obsolete generalized variable `buffer-string'. * lisp/org-plot.el (org-plot/redisplay-img-in-buffer): * lisp/org.el (image-flush): (org-display-inline-images): Use `image-flush' instead of obsolete `image-refresh'. * lisp/ox.el (org-export-to-file): Quote ' in the docstring. All other changes are changing obsolete `point-at-bol' and `point-at-eol' to `line-beginning-position' and `line-end-position'.
2022-09-06 08:50:59 -04:00
(when (re-search-forward "|" (line-end-position 1) t)
Tables: Make M-a and M-e go to beginning and end of table field This commit overloads the sentence commands M-a and M-e so that they will work on table fields in tables.
2009-03-21 13:16:11 -04:00
(backward-char 1)
(skip-chars-backward " ")
Many small code improvements * lisp/org-capture.el (org-capture-member): Make obsolete; the old definition was identical to ‘org-capture-get’ anyway. (org-capture-mode-map): Move the calls to ‘define-key’ up to where the variable is defined. (org-capture-mode-hook): Small docstring tweak. (org-capture-mode): Fix typo in mode lighter. (org-capture-set-target-location, org-capture-place-item): (org-capture-place-plain-text, org-capture-narrow): (org-capture-empty-lines-after): (org-capture-import-remember-templates): ‘if’ without else -> ‘when’ * lisp/org-colview.el (org-columns-edit-value): Change an error to a user-error. (org-columns-uncompile-format): Improve docstring. * lisp/org-compat.el (org-remove-from-invisibility-spec): Make obsolete, the underlying emacs function exists since 1997, commit 31aa282e. (org-in-invisibility-spec-p, org-count-lines): ‘if’ without else -> ‘when’. * lisp/org-element.el (org-element-swap-A-B): * lisp/org-entities.el (org-entities-create-table): * lisp/org-list.el (org-insert-item): * lisp/org-macs.el (org-with-point-at, org-base-buffer): (org-preserve-local-variables, org-overlay-display): (org-overlay-before-string): ‘if’ without else -> ‘when’. * lisp/org-eshell.el (org-eshell-open): Fix docstring typo. * lisp/org-pcomplete.el (pcomplete/org-mode/file-option/language): (pcomplete/org-mode/file-option/startup): (pcomplete/org-mode/file-option/options): (pcomplete/org-mode/file-option/infojs_opt): (pcomplete/org-mode/link, pcomplete/org-mode/tex): (pcomplete/org-mode/todo, pcomplete/org-mode/searchhead): (pcomplete/org-mode/tag, pcomplete/org-mode/prop): Avoid the formerly misspelled ‘pcomplete-uniqify-list’ function. It has a defalias in emacs >= 27; we add our own for older emacsen. (pcomplete/org-mode/file-option/bind): ‘if’ without else -> ‘when’. * lisp/org-protocol.el (org-protocol-capture): (org-protocol-convert-query-to-plist): ‘if’ without else -> ‘when’. (org-protocol-do-capture): Pacify byte compiler, simplify conditional logic. * lisp/org-table.el (org-table-create-with-table.el): Simplify conditional logic. (org-table-create, org-table-convert-region, org-table-next-field): (org-table-beginning-of-field, org-table-end-of-field): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): ‘if’ without else -> ‘when’. * lisp/org.el (org-babel-do-load-languages, org-previous-link): (org-refile): Use ‘(foo ...)’ instead of ‘(funcall 'foo ...)’. (org-add-log-note): Convert a long cond into a cl-case. (org-priority): Improve docstring, show a deprecation warning if the ‘show’ argument is passed (which was previously silently ignored). Also, use ?\s instead of ?\ as a character literal for space. (org-fast-tag-insert): Fix docstring typo. (org-fill-element): ‘if’ without else -> ‘when’. (org-on-target-p): Remove ancient compatibility alias.
2018-05-09 21:02:35 -04:00
(when (and (equal (char-before (point)) ?|) (equal (char-after (point)) ?\s))
(forward-char 1)))
(when (<= (point) pos) (org-table-end-of-field 2))))
Tables: Make M-a and M-e go to beginning and end of table field This commit overloads the sentence commands M-a and M-e so that they will work on table fields in tables.
2009-03-21 13:16:11 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-next-row ()
"Go to the next row (same column) in the current table.
Before doing so, re-align the table if necessary."
(interactive)
(org-table-maybe-eval-formula)
(org-table-maybe-recalculate-line)
Fix RET past the last column of a table * lisp/org.el (org-return): Split the table before first column or after last one. * lisp/org-table.el (org-table-next-row): Remove code handling split. * testing/lisp/test-org.el (test-org/return): Add test.
2017-12-02 11:23:03 -05:00
(if (and org-table-automatic-realign
org-table-may-need-update)
(org-table-align))
(let ((col (org-table-current-column)))
(beginning-of-line 2)
org-table: Fix `org-table-next-row' at eob * lisp/org-table.el (org-table-next-row): Fix misbehaviour when called on the last row, at the end of the buffer, without a final newline.
2019-06-27 18:05:44 -04:00
(unless (bolp) (insert "\n")) ;missing newline at eob
Fix RET past the last column of a table * lisp/org.el (org-return): Split the table before first column or after last one. * lisp/org-table.el (org-table-next-row): Remove code handling split. * testing/lisp/test-org.el (test-org/return): Add test.
2017-12-02 11:23:03 -05:00
(when (or (not (org-at-table-p))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-at-table-hline-p))
Fix RET past the last column of a table * lisp/org.el (org-return): Split the table before first column or after last one. * lisp/org-table.el (org-table-next-row): Remove code handling split. * testing/lisp/test-org.el (test-org/return): Add test.
2017-12-02 11:23:03 -05:00
(beginning-of-line 0)
(org-table-insert-row 'below))
(org-table-goto-column col)
(skip-chars-backward "^|\n\r")
(when (looking-at " ") (forward-char))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-get (line column)
"Get the field in table line LINE, column COLUMN.
If LINE is larger than the number of data lines in the table, the function
returns nil. However, if COLUMN is too large, we will simply return an
empty string.
If LINE is nil, use the current line.
If COLUMN is nil, use the current column."
(setq column (or column (org-table-current-column)))
(save-excursion
(and (or (not line) (org-table-goto-line line))
(org-trim (org-table-get-field column)))))
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
(defun org-table-put (line column value &optional align)
"Put VALUE into line LINE, column COLUMN.
Correct some doc strings [part 5] This is the fifth patch in a series that makes some straightforward corrections to a number of docstrings. Each change is normally to: - correct a typo, or - fix up hyperlinks to function or variable names, or - ensure slightly better conformance with the documentation guidelines and tips given in the Elisp manual No attempt is made to provide missing docstrings or document arguments. Cheers, Phil
2010-07-17 14:53:36 -04:00
When ALIGN is set, also realign the table."
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
(setq column (or column (org-table-current-column)))
(prog1 (save-excursion
(and (or (not line) (org-table-goto-line line))
(progn (org-table-goto-column column nil 'force) t)
(org-table-get-field column value)))
(and align (org-table-align))))
Fix whitespace and compiler wanings
2010-04-01 07:11:54 -04:00
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
(defun org-table-current-line ()
"Return the index of the current data line."
Fix whitespace and compiler wanings
2010-04-01 07:11:54 -04:00
(let ((pos (point)) (end (org-table-end)) (cnt 0))
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
(save-excursion
(goto-char (org-table-begin))
(while (and (re-search-forward org-table-dataline-regexp end t)
(setq cnt (1+ cnt))
Backport commit b7e867b84 from Emacs Make point-at-eol and point-at-bol obsolete b7e867b841f47dcff3aeaef9b5608a237386ce70 Stefan Kangas Tue Aug 23 04:54:57 2022 +0200 [ km: This was independently covered on the main branch with e73c5b7d0. I'm applying it here too for bookkeeping/traceability purposes. ]
2022-08-22 22:54:57 -04:00
(< (line-end-position) pos))))
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
cnt))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-current-column ()
"Return current column number."
(interactive)
(save-excursion
(let ((pos (point)))
(beginning-of-line)
(if (not (search-forward "|" pos t)) 0
(let ((column 1)
(separator (if (org-at-table-hline-p) "[+|]" "|")))
(while (re-search-forward separator pos t) (cl-incf column))
column)))))
(defun org-table-current-dline ()
"Find out what table data line we are in.
Only data lines count for this."
(save-excursion
(let ((c 0)
(pos (line-beginning-position)))
(goto-char (org-table-begin))
(while (<= (point) pos)
(when (looking-at org-table-dataline-regexp) (cl-incf c))
(forward-line))
c)))
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
(defun org-table-goto-line (N)
"Go to the Nth data line in the current table.
Return t when the line exists, nil if it does not exist."
(goto-char (org-table-begin))
(let ((end (org-table-end)) (cnt 0))
(while (and (re-search-forward org-table-dataline-regexp end t)
Fix typo in variable name. Patch by Mikael Fornius.
2010-03-25 07:47:48 -04:00
(< (setq cnt (1+ cnt)) N)))
Fix another typo
2010-03-26 06:22:56 -04:00
(= cnt N)))
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
Remove org-autoload. * org-macs.el (org-autoload): Delete. * org-docview.el ("docview"): Fix declarations and require doc-view directly. * org-id.el (org-id-copy) (org-id-get-with-outline-path-completion) (org-id-get-with-outline-drilling, org-id-new): * org-colview.el: (org-colview-initial-truncate-line-value) (org-columns-open-link, org-string-to-number): * org-clock.el: (org-clock-put-overlay, org-count-quarter, org-clock-loaded): * org-archive.el (org-get-local-archive-location): * org-agenda.el (org-agenda-todo-custom-ignore-p): Autoload. Those functions were autoloaded from within calls to `org-autoload' in org.el, we now autoload them from where they live.
2013-11-15 00:53:59 -05:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-blank-field ()
"Blank the current table field or active region."
(interactive)
(org-table-check-inside-data-field)
Deprecate `org-called-interactively-p' in favor of `called-interactively-p' * lisp/org-compat.el (org-called-interactively-p): Make it an obsolete alias for `called-interactively-p'. * lisp/org-macs.el (org-called-interactively-p): Remove function. * contrib/lisp/org-expiry.el (org-expiry-insinuate): (org-expiry-deinsinuate): (org-expiry-process-entry): (org-expiry-process-entries): (org-expiry-archive-subtree): (org-expiry-add-keyword): * lisp/ob-core.el (org-babel-expand-src-block): (org-babel-sha1-hash): * lisp/org-agenda.el (org-toggle-sticky-agenda): (org-agenda-write): (org-agenda-dim-blocked-tasks): (org-agenda-redo): (org-agenda-show-1): (org-agenda-set-tags): * lisp/org-lint.el (org-lint): * lisp/org-table.el (org-table-blank-field): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-sum): (org-table-rotate-recalc-marks): (org-table-eval-formula): (orgtbl-send-table): * lisp/org.el (org-mode): (org-copy-subtree): (org-paste-subtree): (org-store-link): (org-todo): (org-occur): (org-create-math-formula): (org-toggle-inline-images): (org-mark-subtree): (org-mark-element): Apply removal.
2016-06-23 08:34:40 -04:00
(if (and (called-interactively-p 'any) (org-region-active-p))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let (org-table-clip)
(org-table-cut-region (region-beginning) (region-end)))
(skip-chars-backward "^|")
(backward-char 1)
(if (looking-at "|[^|\n]+")
(let* ((pos (match-beginning 0))
(match (match-string 0))
Do not assume that `org-string-width' preserves match data * lisp/org-table.el (org-table-blank-field): (org-table-clean-line): Avoid `org-string-width' modifying match data. As long as `org-string-width' creates a new window buffer, third-party modes and Emacs distributions might modify the match data in buffer hooks. Hence, we cannot assume that match data is not modified even though `org-string-width' code itself does not alter the match data. Note: Adding `save-match-data' around function calls is generally a good practice when the surrounding code relies on the match data being intact. Elisp conventions don't prohibit functions to modify match data without notice in their docstring. Reported-by: Thomas Schneider <qsx@chaotikum.eu> Link: https://orgmode.org/list/wwufsc7edzu.fsf@chaotikum.eu
2023-01-20 03:58:11 -05:00
(len (save-match-data (org-string-width match))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(replace-match (concat "|" (make-string (1- len) ?\ )))
(goto-char (+ 2 pos))
(substring match 1)))))
(defun org-table-get-field (&optional n replace)
"Return the value of the field in column N of current row.
org-table: Fix error with `org-table-get-field' at bob * lisp/org-table.el (org-table-get-field): Do not return `beginning-of-buffer' error when called at beginning of buffer. * testing/lisp/test-org-table.el (test-org-table/get-field): New test.
2017-02-01 14:56:38 -05:00
N defaults to current column. If REPLACE is a string, replace
field with this value. The return value is always the old
value."
(when n (org-table-goto-column n))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(skip-chars-backward "^|\n")
org-table: Fix error with `org-table-get-field' at bob * lisp/org-table.el (org-table-get-field): Do not return `beginning-of-buffer' error when called at beginning of buffer. * testing/lisp/test-org-table.el (test-org-table/get-field): New test.
2017-02-01 14:56:38 -05:00
(if (or (bolp) (looking-at-p "[ \t]*$"))
;; Before first column or after last one.
""
(looking-at "[^|\r\n]*")
(let* ((pos (match-beginning 0))
(val (buffer-substring pos (match-end 0))))
(when replace
Allow editing partially shrunk columns * lisp/org-table.el (org-table-with-shrunk-field): New macro. (org-table-get-field): (org-table-toggle-column-width): Use new macro. (org-table--shrunk-field): Update function. (org-table--shrink-field): When there is a width cookie, leave first characters editable. * lisp/org.el (org-self-insert-command): (org-delete-backward-char): (org-delete-char): Small refactoring. Handle shrink overlays. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): Update tests.
2018-01-25 17:43:37 -05:00
(org-table-with-shrunk-field
(replace-match (if (equal replace "") " " replace) t t)))
org-table: Fix error with `org-table-get-field' at bob * lisp/org-table.el (org-table-get-field): Do not return `beginning-of-buffer' error when called at beginning of buffer. * testing/lisp/test-org-table.el (test-org-table/get-field): New test.
2017-02-01 14:56:38 -05:00
(goto-char (min (line-end-position) (1+ pos)))
val)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Activate lexical binding in some libraries * lisp/ob-C.el (org-babel-prep-session:C): (org-babel-load-session:C): * lisp/ob-J.el: (org-babel-expand-body:J): (org-babel-execute:J): * lisp/ob-R.el: (org-babel-expand-body:R): * lisp/ob-abc.el: (org-babel-execute:abc): (org-babel-prep-session:abc): * lisp/ob-asymptote.el: (org-babel-execute:asymptote): (org-babel-prep-session:asymptote): * lisp/ob-awk.el: (org-babel-expand-body:awk): * lisp/ob-calc.el: (org-babel-expand-body:calc): * lisp/ob-clojure.el: * lisp/ob-comint.el: (org-babel-comint-in-buffer): (org-babel-comint-with-output): (org-babel-comint-eval-invisibly-and-wait-for-file): * lisp/ob-coq.el: * lisp/ob-css.el: (org-babel-execute:css): (org-babel-prep-session:css): * lisp/ob-ditaa.el: (org-babel-execute:ditaa): (org-babel-prep-session:ditaa): * lisp/ob-dot.el: (org-babel-execute:dot): (org-babel-prep-session:dot): * lisp/ob-ebnf.el: * lisp/ob-emacs-lisp.el: * lisp/ob-eval.el: * lisp/ob-forth.el: * lisp/ob-fortran.el: (org-babel-execute:fortran): (org-babel-prep-session:fortran): (org-babel-load-session:fortran): * lisp/ob-gnuplot.el: (org-babel-expand-body:gnuplot): (org-babel-prep-session:gnuplot): (org-babel-gnuplot-initiate-session): * lisp/ob-groovy.el: (org-babel-prep-session:groovy): (org-babel-groovy-initiate-session): * lisp/ob-haskell.el: (org-babel-haskell-initiate-session): * lisp/ob-io.el: (org-babel-prep-session:io): (org-babel-io-initiate-session): * lisp/ob-java.el: (org-babel-execute:java): * lisp/ob-js.el: * lisp/ob-keys.el: * lisp/ob-latex.el: (org-babel-prep-session:latex): * lisp/ob-ledger.el: (org-babel-execute:ledger): (org-babel-prep-session:ledger): * lisp/ob-lilypond.el: (org-babel-lilypond-commands): (org-babel-lilypond-process-basic): (org-babel-prep-session:lilypond): (org-babel-lilypond-parse-line-num): * lisp/ob-lisp.el: * lisp/ob-makefile.el: (org-babel-execute:makefile): (org-babel-prep-session:makefile): * lisp/ob-matlab.el: * lisp/ob-maxima.el: (org-babel-prep-session:maxima): * lisp/ob-mscgen.el: (org-babel-prep-session:mscgen): * lisp/ob-ocaml.el: (org-babel-execute:ocaml): (org-babel-prep-session:ocaml): * lisp/ob-octave.el: (org-babel-execute:octave): (org-babel-octave-initiate-session): * lisp/ob-org.el: (org-babel-prep-session:org): * lisp/ob-perl.el: (org-babel-prep-session:perl): (org-babel-perl--var-to-perl): (org-babel-perl-initiate-session): * lisp/ob-picolisp.el: (org-babel-expand-body:picolisp): (org-babel-execute:picolisp): * lisp/ob-plantuml.el: (org-babel-execute:plantuml): (org-babel-prep-session:plantuml): * lisp/ob-processing.el: (org-babel-prep-session:processing): * lisp/ob-python.el: (org-babel-python-initiate-session): * lisp/ob-ref.el: (org-babel-ref-resolve): * lisp/ob-ruby.el: (org-babel-ruby-initiate-session): * lisp/ob-sass.el: (org-babel-execute:sass): (org-babel-prep-session:sass): * lisp/ob-scala.el: (org-babel-execute:scala): (org-babel-prep-session:scala): (org-babel-scala-initiate-session): * lisp/ob-scheme.el: * lisp/ob-screen.el: (org-babel-prep-session:screen): (org-babel-screen-session-write-temp-file): (org-babel-screen-test): * lisp/ob.el: * lisp/org-colview.el: (org-columns-todo): (org-columns-set-tags-or-toggle): (org-columns-new): (org-columns-uncompile-format): (org-agenda-colview-summarize): * lisp/org-footnote.el: (electric-indent-mode): * lisp/org-indent.el: (org-indent-refresh-maybe): * lisp/org-list.el: * lisp/org-macro.el: (org-macro--collect-macros): * lisp/org-src.el: * lisp/org-table.el: (sort-fold-case): (org-table-create): (org-table-field-info): (org-table-transpose-table-at-point): (org-table-remove-rectangle-highlight): (orgtbl-create-or-convert-from-region): (org-define-lookup-function): * lisp/ox-ascii.el: (org-ascii-format-drawer-function): (org-ascii--has-caption-p): (org-ascii-bold): (org-ascii-center-block): (org-ascii-clock): (org-ascii-code): (org-ascii-dynamic-block): (org-ascii-entity): (org-ascii-example-block): (org-ascii-export-snippet): (org-ascii-export-block): (org-ascii-fixed-width): (org-ascii-footnote-reference): (org-ascii-horizontal-rule): (org-ascii-inline-src-block): (org-ascii-format-inlinetask-default): (org-ascii-italic): (org-ascii-keyword): (org-ascii-latex-environment): (org-ascii-latex-fragment): (org-ascii-line-break): (org-ascii-node-property): (org-ascii-planning): (org-ascii-quote-block): (org-ascii-radio-target): (org-ascii-special-block): (org-ascii-src-block): (org-ascii-statistics-cookie): (org-ascii-subscript): (org-ascii-superscript): (org-ascii-strike-through): (org-ascii-timestamp): (org-ascii-underline): (org-ascii-verbatim): (org-ascii-verse-block): (org-ascii-filter-headline-blank-lines): (org-ascii-filter-paragraph-spacing): (org-ascii-filter-comment-spacing): Use lexical binding.
2015-10-25 20:56:00 -04:00
(defun org-table-field-info (_arg)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
"Show info about the current field, and highlight any reference at point."
(interactive "P")
org-table.el (org-table-field-info): Throw a user error when not at a table * org-table.el (org-table-field-info): Throw a user error when not at a table.
2014-01-30 05:58:28 -05:00
(unless (org-at-table-p) (user-error "Not at a table"))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(org-table-analyze)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(save-excursion
(let* ((pos (point))
(col (org-table-current-column))
Use `number-to-string' instead of `int-to-string' * lisp/org.el (org-end-of-subtree): Use `number-to-string' instead of `int-to-string'. * lisp/org-table.el (org-table-edit-field) (org-table-fix-formulas, org-table-analyze, orgtbl-make-binding) (org-table-field-info): Ditto. * lisp/org-macs.el (org-shorten-string): Ditto. * lisp/org-agenda.el (org-get-time-of-day): Ditto.
2020-01-28 14:19:24 -05:00
(cname (car (rassoc (number-to-string col) org-table-column-names)))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(name (car (rassoc (list (count-lines org-table-current-begin-pos
(line-beginning-position))
col)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table-named-field-locations)))
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
(eql (org-table-expand-lhs-ranges
(mapcar
(lambda (e)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(cons (org-table-formula-handle-first/last-rc (car e))
(cdr e)))
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
(org-table-get-stored-formulas))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(dline (org-table-current-dline))
(ref (format "@%d$%d" dline col))
(ref1 (org-table-convert-refs-to-an ref))
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
;; Prioritize field formulas over column formulas.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(fequation (or (assoc name eql) (assoc ref eql)))
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
(cequation (assoc (format "$%d" col) eql))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(eqn (or fequation cequation)))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(let ((p (and eqn (get-text-property 0 :orig-eqn (car eqn)))))
(when p (setq eqn p)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(goto-char pos)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(ignore-errors (org-table-show-reference 'local))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(message "line @%d, col $%s%s, ref @%d$%d or %s%s%s"
dline col
(if cname (concat " or $" cname) "")
dline col ref1
(if name (concat " or $" name) "")
;; FIXME: formula info not correct if special table line
(if eqn
(concat ", formula: "
(org-table-formula-to-user
(concat
Clean up string handling. * lisp/org-compat.el (string-prefix-p, string-suffix-p): Add compatibility definitions for 24.3. * lisp/ob-R.el (org-babel-edit-prep:R): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-js.el (org-babel-js-read): * lisp/ob-latex.el (org-babel-execute:latex): * lisp/ob-ref.el (org-babel-ref-parse): * lisp/ob-shell.el (org-babel-variable-assignments:shell): * lisp/org-protocol.el (org-protocol-create): * lisp/org-table.el (org-table-field-info): * lisp/org.el (org-get-buffer-for-internal-link): * lisp/ox-publish.el (org-publish-compare-directory-files): * lisp/ox-texinfo.el (org-texinfo-template): Use `string-{suffix,prefix}-p' instead of `string-match(-p)'. * lisp/ob-python.el (org-babel-python-read-string): Ditto, also use `substring' rather than `match-string'. * lisp/org-table.el (org-table-copy-down): (org-table-insert-hline, org-table-current-field-formula): (org-table-get-formula): Use `string-match-p' instead of `string-match'.
2016-08-24 11:05:54 -04:00
(if (or (string-prefix-p "$" (car eqn))
(string-prefix-p "@" (car eqn)))
""
"$")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(car eqn) "=" (cdr eqn))))
"")))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-goto-field (ref &optional create-column-p)
"Move point to a specific field in the current table.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
REF is either the name of a field its absolute reference, as
a string. No column is created unless CREATE-COLUMN-P is
non-nil. If it is a function, it is called with the column
number as its argument as is used as a predicate to know if the
column can be created.
This function assumes the table is already analyzed (i.e., using
`org-table-analyze')."
(let* ((coordinates
(cond
((cdr (assoc ref org-table-named-field-locations)))
((string-match "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" ref)
(list (condition-case nil
(aref org-table-dlines
(string-to-number (match-string 1 ref)))
(error (user-error "Invalid row number in %s" ref)))
(string-to-number (match-string 2 ref))))
(t (user-error "Unknown field: %s" ref))))
(line (car coordinates))
(column (nth 1 coordinates))
(create-new-column (if (functionp create-column-p)
(funcall create-column-p column)
create-column-p)))
(when coordinates
(goto-char org-table-current-begin-pos)
(forward-line line)
(org-table-goto-column column nil create-new-column))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-goto-column (n &optional on-delim force)
"Move the cursor to the Nth column in the current table line.
With optional argument ON-DELIM, stop with point before the left delimiter
of the field.
If there are less than N fields, just go to after the last delimiter.
However, when FORCE is non-nil, create new columns if necessary."
(interactive "p")
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
(beginning-of-line 1)
(when (> n 0)
(while (and (> (setq n (1- n)) -1)
Backport commit b7e867b84 from Emacs Make point-at-eol and point-at-bol obsolete b7e867b841f47dcff3aeaef9b5608a237386ce70 Stefan Kangas Tue Aug 23 04:54:57 2022 +0200 [ km: This was independently covered on the main branch with e73c5b7d0. I'm applying it here too for bookkeeping/traceability purposes. ]
2022-08-22 22:54:57 -04:00
(or (search-forward "|" (line-end-position) t)
New helper functions in org-table.el
2010-03-21 15:08:01 -04:00
(and force
(progn (end-of-line 1)
(skip-chars-backward "^|")
(insert " | ")
t)))))
(when (and force (not (looking-at ".*|")))
(save-excursion (end-of-line 1) (insert " | ")))
(if on-delim
(backward-char 1)
(if (looking-at " ") (forward-char 1)))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-insert-column ()
"Insert a new column into the table."
(interactive)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(unless (org-at-table-p) (user-error "Not at a table"))
org-table: Repair table before inserting rows/columns * lisp/org-table.el (org-table-insert-column): (org-table-insert-row): Repair the table as needed before inserting. The internal insertion logic assumes that the table is valid. The rapair checks are copied from `org-table-insert-hline'. Reported-by: Mauro Aranda <maurooaranda@gmail.com> Link: https://orgmode.org/list/87o8csah5t.fsf@localhost
2022-10-06 04:22:57 -04:00
(when (eobp) (save-excursion (insert "\n")))
(unless (string-match-p "|[ \t]*$" (org-current-line-string))
(org-table-align))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-find-dataline)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(let ((col (max 1 (org-table-current-column)))
(beg (org-table-begin))
(end (copy-marker (org-table-end)))
(shrunk-columns (org-table--list-shrunk-columns)))
org-table: Implement org-table-expand * lisp/org-table.el (org-table-expand): New function. (org-table--expand-all-columns): Remove function. (org-table-with-shrunk-columns): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-toggle-column-width): Use new function.
2017-08-19 09:39:04 -04:00
(org-table-expand beg end)
org-table: Insert new column to the right instead of the left * lisp/org-table.el (org-table-insert-column): Insert new column to the right instead of the left. * testing/lisp/test-org-table.el (test-org-table/insert-column): New test.
2017-11-19 17:22:16 -05:00
(save-excursion
(goto-char beg)
(while (< (point) end)
(unless (org-at-table-hline-p)
(org-table-goto-column col t)
org-table: Insert column at point * lisp/org-table.el (org-table-insert-column): Adjust the function to insert the column at point (and not to the right.) Org-manual, ORG-NEWS and testing are changed accordingly.
2020-04-17 18:13:24 -04:00
(insert "|"))
org-table: Insert new column to the right instead of the left * lisp/org-table.el (org-table-insert-column): Insert new column to the right instead of the left. * testing/lisp/test-org-table.el (test-org-table/insert-column): New test.
2017-11-19 17:22:16 -05:00
(forward-line)))
org-table: Insert column at point * lisp/org-table.el (org-table-insert-column): Adjust the function to insert the column at point (and not to the right.) Org-manual, ORG-NEWS and testing are changed accordingly.
2020-04-17 18:13:24 -04:00
(org-table-goto-column col)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-align)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
;; Shift appropriately stored shrunk column numbers, then hide the
;; columns again.
org-table: Insert column at point * lisp/org-table.el (org-table-insert-column): Adjust the function to insert the column at point (and not to the right.) Org-manual, ORG-NEWS and testing are changed accordingly.
2020-04-17 18:13:24 -04:00
(org-table--shrink-columns (mapcar (lambda (c) (if (< c col) c (1+ c)))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
shrunk-columns)
org-table: Implement org-table-expand * lisp/org-table.el (org-table-expand): New function. (org-table--expand-all-columns): Remove function. (org-table-with-shrunk-columns): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-toggle-column-width): Use new function.
2017-08-19 09:39:04 -04:00
beg end)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(set-marker end nil)
;; Fix TBLFM formulas, if desirable.
New custom variable `org-table-fix-formulas-confirm'. * org-table.el (org-table-fix-formulas-confirm): new custom variable. (org-table-insert-column, org-table-delete-column) (org-table-move-column, org-table-move-row) (org-table-insert-row, org-table-kill-row): Use it.
2011-03-05 17:22:32 -05:00
(when (or (not org-table-fix-formulas-confirm)
(funcall org-table-fix-formulas-confirm "Fix formulas? "))
table: Remove the last row (LR) feature The feature was undocumented and broken according to Carsten. * lisp/org-table.el (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-get-formula): (org-table-fix-formulas): (org-table-analyze): Remove the parts refering to LR.
2020-05-01 18:04:30 -04:00
(org-table-fix-formulas "$" nil (1- col) 1))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-find-dataline ()
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
"Find a data line in the current table, which is needed for column commands.
This function assumes point is in a table. Raise an error when
there is no data row below."
(or (not (org-at-table-hline-p))
(let ((col (current-column))
(end (org-table-end)))
(forward-line)
(while (and (< (point) end) (org-at-table-hline-p))
(forward-line))
(when (>= (point) end)
(user-error "Cannot find data row for column operation"))
(org-move-to-column col)
t)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
(defun org-table-line-to-dline (line &optional above)
"Turn a buffer line number into a data line number.
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
If there is no data line in this line, return nil.
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
If there is no matching dline (most likely the reference was
a hline), the first dline below it is used. When ABOVE is
non-nil, the one above is used."
(let ((min 1)
(max (1- (length org-table-dlines))))
(cond ((or (> (aref org-table-dlines min) line)
(< (aref org-table-dlines max) line))
nil)
org-table: Fix thinko * lisp/org-table.el (org-table-line-to-dline): Do not assume dichotomy failed. Reported-by: Lem Ming <ramboman777@gmail.com> <http://lists.gnu.org/r/emacs-orgmode/2018-09/msg00035.html>
2018-09-05 12:50:03 -04:00
((= line (aref org-table-dlines max)) max)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(t (catch 'exit
(while (> (- max min) 1)
(let* ((mean (/ (+ max min) 2))
(v (aref org-table-dlines mean)))
(cond ((= v line) (throw 'exit mean))
((> v line) (setq max mean))
(t (setq min mean)))))
org-table: Fix thinko * lisp/org-table.el (org-table-line-to-dline): Do not assume dichotomy failed. Reported-by: Lem Ming <ramboman777@gmail.com> <http://lists.gnu.org/r/emacs-orgmode/2018-09/msg00035.html>
2018-09-05 12:50:03 -04:00
(cond ((= line (aref org-table-dlines max)) max)
((= line (aref org-table-dlines min)) min)
(above min)
(t max)))))))
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
org-table: Adding single cell movement functions * lisp/org-table.el (org-table--swap-cells): (org-table--move-cell): (org-table-move-cell-up): (org-table-move-cell-down): (org-table-move-cell-left): (org-table-move-cell-right): New functions. * testing/lisp/test-org-table.el (test-org-table/move-cell-down): (test-org-table/move-cell-up): (test-org-table/move-cell-right): (test-org-table/move-cell-left): New tests. * doc/org-manual.org (Column and row editing): Document functions and keybindings for single cell movement.
2017-07-23 00:13:11 -04:00
(defun org-table--swap-cells (row1 col1 row2 col2)
"Swap two cells indicated by the coordinates provided.
ROW1, COL1, ROW2, COL2 are integers indicating the row/column
position of the two cells that will be swapped in the table."
(let ((content1 (org-table-get row1 col1))
(content2 (org-table-get row2 col2)))
(org-table-put row1 col1 content2)
(org-table-put row2 col2 content1)))
(defun org-table--move-cell (direction)
"Move the current cell in a cardinal direction.
DIRECTION is a symbol among `up', `down', `left', and `right'.
The contents the current cell are swapped with cell in the
indicated direction. Raise an error if the move cannot be done."
(let ((row-shift (pcase direction (`up -1) (`down 1) (_ 0)))
(column-shift (pcase direction (`left -1) (`right 1) (_ 0))))
(when (and (= 0 row-shift) (= 0 column-shift))
(error "Invalid direction: %S" direction))
;; Initialize `org-table-current-ncol' and `org-table-dlines'.
(org-table-analyze)
(let* ((row (org-table-current-line))
(column (org-table-current-column))
(target-row (+ row row-shift))
(target-column (+ column column-shift))
(org-table-current-nrow (1- (length org-table-dlines))))
(when (or (< target-column 1)
(< target-row 1)
(> target-column org-table-current-ncol)
(> target-row org-table-current-nrow))
(user-error "Cannot move cell further"))
(org-table--swap-cells row column target-row target-column)
(org-table-goto-line target-row)
(org-table-goto-column target-column))))
;;;###autoload
(defun org-table-move-cell-up ()
"Move a single cell up in a table.
Swap with anything in target cell."
(interactive)
(unless (org-table-check-inside-data-field)
(error "No table at point"))
(org-table--move-cell 'up)
(org-table-align))
;;;###autoload
(defun org-table-move-cell-down ()
"Move a single cell down in a table.
Swap with anything in target cell."
(interactive)
(unless (org-table-check-inside-data-field)
(error "No table at point"))
(org-table--move-cell 'down)
(org-table-align))
;;;###autoload
(defun org-table-move-cell-left ()
"Move a single cell left in a table.
Swap with anything in target cell."
(interactive)
(unless (org-table-check-inside-data-field)
(error "No table at point"))
(org-table--move-cell 'left)
(org-table-align))
;;;###autoload
(defun org-table-move-cell-right ()
"Move a single cell right in a table.
Swap with anything in target cell."
(interactive)
(unless (org-table-check-inside-data-field)
(error "No table at point"))
(org-table--move-cell 'right)
(org-table-align))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-delete-column ()
"Delete a column from the table."
(interactive)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(unless (org-at-table-p) (user-error "Not at a table"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-find-dataline)
table: Small fix to column deletion * lisp/org-table.el (org-table-delete-column): Do not assume row ends right after the last vertical line. Do not use `looking-back'. * testing/lisp/test-org-table.el (test-org-table/delete-column): Add test.
2020-04-18 12:33:07 -04:00
(when (save-excursion (skip-chars-forward " \t") (eolp))
(search-backward "|")) ;snap into last column
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
(org-table-check-inside-data-field nil t)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(let* ((col (org-table-current-column))
(beg (org-table-begin))
(end (copy-marker (org-table-end)))
(shrunk-columns (remq col (org-table--list-shrunk-columns))))
org-table: Implement org-table-expand * lisp/org-table.el (org-table-expand): New function. (org-table--expand-all-columns): Remove function. (org-table-with-shrunk-columns): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-toggle-column-width): Use new function.
2017-08-19 09:39:04 -04:00
(org-table-expand beg end)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(org-table-save-field
(goto-char beg)
(while (< (point) end)
(if (org-at-table-hline-p)
nil
(org-table-goto-column col t)
(and (looking-at "|[^|\n]+|")
(replace-match "|")))
(forward-line)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-align)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
;; Shift appropriately stored shrunk column numbers, then hide the
;; columns again.
(org-table--shrink-columns (mapcar (lambda (c) (if (< c col) c (1- c)))
shrunk-columns)
beg end)
(set-marker end nil)
;; Fix TBLFM formulas, if desirable.
New custom variable `org-table-fix-formulas-confirm'. * org-table.el (org-table-fix-formulas-confirm): new custom variable. (org-table-insert-column, org-table-delete-column) (org-table-move-column, org-table-move-row) (org-table-insert-row, org-table-kill-row): Use it.
2011-03-05 17:22:32 -05:00
(when (or (not org-table-fix-formulas-confirm)
(funcall org-table-fix-formulas-confirm "Fix formulas? "))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(org-table-fix-formulas
table: Remove the last row (LR) feature The feature was undocumented and broken according to Carsten. * lisp/org-table.el (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-get-formula): (org-table-fix-formulas): (org-table-analyze): Remove the parts refering to LR.
2020-05-01 18:04:30 -04:00
"$" (list (cons (number-to-string col) "INVALID")) col -1 col))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-move-column-right ()
"Move column to the right."
(interactive)
(org-table-move-column nil))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-move-column-left ()
"Move column to the left."
(interactive)
(org-table-move-column 'left))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-move-column (&optional left)
"Move the current column to the right. With arg LEFT, move to the left."
(interactive "P")
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(unless (org-at-table-p) (user-error "Not at a table"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-find-dataline)
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
(org-table-check-inside-data-field nil t)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let* ((col (org-table-current-column))
(col1 (if left (1- col) col))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(colpos (if left (1- col) (1+ col)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(beg (org-table-begin))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(end (copy-marker (org-table-end))))
(when (and left (= col 1))
(user-error "Cannot move column further left"))
(when (and (not left) (looking-at "[^|\n]*|[^|\n]*$"))
(user-error "Cannot move column further right"))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(let ((shrunk-columns (org-table--list-shrunk-columns)))
org-table: Implement org-table-expand * lisp/org-table.el (org-table-expand): New function. (org-table--expand-all-columns): Remove function. (org-table-with-shrunk-columns): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-toggle-column-width): Use new function.
2017-08-19 09:39:04 -04:00
(org-table-expand beg end)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(org-table-save-field
(goto-char beg)
(while (< (point) end)
(unless (org-at-table-hline-p)
(org-table-goto-column col1 t)
(when (looking-at "|\\([^|\n]+\\)|\\([^|\n]+\\)|")
(transpose-regions
(match-beginning 1) (match-end 1)
(match-beginning 2) (match-end 2))))
(forward-line)))
(org-table-goto-column colpos)
(org-table-align)
;; Shift appropriately stored shrunk column numbers, then shrink
;; the columns again.
(org-table--shrink-columns
(mapcar (lambda (c)
(cond ((and (= col c) left) (1- c))
((= col c) (1+ c))
((and (= col (1+ c)) left) (1+ c))
((and (= col (1- c)) (not left) (1- c)))
(t c)))
shrunk-columns)
beg end)
(set-marker end nil)
;; Fix TBLFM formulas, if desirable.
(when (or (not org-table-fix-formulas-confirm)
(funcall org-table-fix-formulas-confirm "Fix formulas? "))
(org-table-fix-formulas
"$" (list (cons (number-to-string col) (number-to-string colpos))
table: Remove the last row (LR) feature The feature was undocumented and broken according to Carsten. * lisp/org-table.el (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-get-formula): (org-table-fix-formulas): (org-table-analyze): Remove the parts refering to LR.
2020-05-01 18:04:30 -04:00
(cons (number-to-string colpos) (number-to-string col))))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-move-row-down ()
"Move table row down."
(interactive)
(org-table-move-row nil))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-move-row-up ()
"Move table row up."
(interactive)
(org-table-move-row 'up))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-move-row (&optional up)
"Move the current table line down. With arg UP, move it up."
(interactive "P")
(let* ((col (current-column))
(pos (point))
(hline1p (save-excursion (beginning-of-line 1)
(looking-at org-table-hline-regexp)))
(dline1 (org-table-current-dline))
(dline2 (+ dline1 (if up -1 1)))
(tonew (if up 0 2))
org-table: Fix `org-table-move-row-down' without final newline * lisp/org-table.el (org-table-move-row): Fix `org-table-move-row-down' without final newline.
2017-07-01 04:07:29 -04:00
hline2p)
org-table: Fix checks for impossible row moves * lisp/org-table.el (org-table-move-row): Fix checks.
2017-07-01 03:57:45 -04:00
(when (and up (= (point-min) (line-beginning-position)))
(user-error "Cannot move row further"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(beginning-of-line tonew)
org-table: Fix checks for impossible row moves * lisp/org-table.el (org-table-move-row): Fix checks.
2017-07-01 03:57:45 -04:00
(when (or (and (not up) (eobp)) (not (org-at-table-p)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(goto-char pos)
Use `user-error' when moving or modifying the element at point is not possible * org.el (org-move-subtree-down, org-forward-element) (org-backward-element): * org-table.el (org-table-previous-field) (org-table-move-column, org-table-move-row): * org-list.el (org-move-item-down, org-move-item-up) (org-cycle-item-indentation): Use `user-error' when moving or modifying the element at point is not possible.
2013-02-22 04:31:35 -05:00
(user-error "Cannot move row further"))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(org-table-with-shrunk-columns
(setq hline2p (looking-at org-table-hline-regexp))
(goto-char pos)
(let ((row (delete-and-extract-region (line-beginning-position)
(line-beginning-position 2))))
(beginning-of-line tonew)
(unless (bolp) (insert "\n")) ;at eob without a newline
(insert row)
(unless (bolp) (insert "\n")) ;missing final newline in ROW
(beginning-of-line 0)
(org-move-to-column col)
(unless (or hline1p hline2p
(not (or (not org-table-fix-formulas-confirm)
(funcall org-table-fix-formulas-confirm
"Fix formulas? "))))
(org-table-fix-formulas
"@" (list
(cons (number-to-string dline1) (number-to-string dline2))
(cons (number-to-string dline2) (number-to-string dline1)))))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-insert-row (&optional arg)
"Insert a new row above the current line into the table.
With prefix ARG, insert below the current line."
(interactive "P")
org-table: Fix inserting a new row * lisp/org-table.el (org-table-insert-row): Fix inserting a new row when the buffer doesn't end with a newline character. Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/next-field): New test.
2016-09-28 17:33:32 -04:00
(unless (org-at-table-p) (user-error "Not at a table"))
org-table: Repair table before inserting rows/columns * lisp/org-table.el (org-table-insert-column): (org-table-insert-row): Repair the table as needed before inserting. The internal insertion logic assumes that the table is valid. The rapair checks are copied from `org-table-insert-hline'. Reported-by: Mauro Aranda <maurooaranda@gmail.com> Link: https://orgmode.org/list/87o8csah5t.fsf@localhost
2022-10-06 04:22:57 -04:00
(when (eobp) (save-excursion (insert "\n")))
(unless (string-match-p "|[ \t]*$" (org-current-line-string))
(org-table-align))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(org-table-with-shrunk-columns
(let* ((line (buffer-substring (line-beginning-position) (line-end-position)))
(new (org-table-clean-line line)))
;; Fix the first field if necessary
org-table: Also copy special star marker upon creating a row * lisp/org-table.el (org-table-insert-row): Copy "*" character when in first column, as it is considered as a special marker then.
2019-01-12 05:36:40 -05:00
(when (string-match "^[ \t]*| *[#*$] *|" line)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(setq new (replace-match (match-string 0 line) t t new)))
(beginning-of-line (if arg 2 1))
;; Buffer may not end of a newline character, so ensure
;; (beginning-of-line 2) moves point to a new line.
(unless (bolp) (insert "\n"))
(let (org-table-may-need-update) (insert-before-markers new "\n"))
(beginning-of-line 0)
(re-search-forward "| ?" (line-end-position) t)
(when (or org-table-may-need-update org-table-overlay-coordinates)
(org-table-align))
(when (or (not org-table-fix-formulas-confirm)
(funcall org-table-fix-formulas-confirm "Fix formulas? "))
(org-table-fix-formulas "@" nil (1- (org-table-current-dline)) 1)))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-insert-hline (&optional above)
"Insert a horizontal-line below the current line into the table.
With prefix ABOVE, insert above the current line."
(interactive "P")
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(unless (org-at-table-p) (user-error "Not at a table"))
(when (eobp) (save-excursion (insert "\n")))
(unless (string-match-p "|[ \t]*$" (org-current-line-string))
(org-table-align))
(org-table-with-shrunk-columns
(let ((line (org-table-clean-line
Backport commit b7e867b84 from Emacs Make point-at-eol and point-at-bol obsolete b7e867b841f47dcff3aeaef9b5608a237386ce70 Stefan Kangas Tue Aug 23 04:54:57 2022 +0200 [ km: This was independently covered on the main branch with e73c5b7d0. I'm applying it here too for bookkeeping/traceability purposes. ]
2022-08-22 22:54:57 -04:00
(buffer-substring (line-beginning-position) (line-end-position))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(col (current-column)))
(while (string-match "|\\( +\\)|" line)
(setq line (replace-match
(concat "+" (make-string (- (match-end 1) (match-beginning 1))
?-) "|") t t line)))
(and (string-match "\\+" line) (setq line (replace-match "|" t t line)))
(beginning-of-line (if above 1 2))
(insert line "\n")
(beginning-of-line (if above 1 -1))
(org-move-to-column col)
(when org-table-overlay-coordinates (org-table-align)))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-hline-and-move (&optional same-column)
"Insert a hline and move to the row below that line."
(interactive "P")
(let ((col (org-table-current-column)))
(org-table-maybe-eval-formula)
(org-table-maybe-recalculate-line)
(org-table-insert-hline)
(end-of-line 2)
(if (looking-at "\n[ \t]*|-")
(progn (insert "\n|") (org-table-align))
(org-table-next-field))
(if same-column (org-table-goto-column col))))
(defun org-table-clean-line (s)
"Convert a table line S into a string with only \"|\" and space.
In particular, this does handle wide and invisible characters."
(if (string-match "^[ \t]*|-" s)
;; It's a hline, just map the characters
(setq s (mapconcat (lambda (x) (if (member x '(?| ?+)) "|" " ")) s ""))
(while (string-match "|\\([ \t]*?[^ \t\r\n|][^\r\n|]*\\)|" s)
(setq s (replace-match
Do not assume that `org-string-width' preserves match data * lisp/org-table.el (org-table-blank-field): (org-table-clean-line): Avoid `org-string-width' modifying match data. As long as `org-string-width' creates a new window buffer, third-party modes and Emacs distributions might modify the match data in buffer hooks. Hence, we cannot assume that match data is not modified even though `org-string-width' code itself does not alter the match data. Note: Adding `save-match-data' around function calls is generally a good practice when the surrounding code relies on the match data being intact. Elisp conventions don't prohibit functions to modify match data without notice in their docstring. Reported-by: Thomas Schneider <qsx@chaotikum.eu> Link: https://orgmode.org/list/wwufsc7edzu.fsf@chaotikum.eu
2023-01-20 03:58:11 -05:00
(concat "|"
(make-string
(save-match-data
(org-string-width (match-string 1 s)))
?\ )
"|")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
t t s)))
s))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-kill-row ()
"Delete the current row or horizontal line from the table."
(interactive)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(unless (org-at-table-p) (user-error "Not at a table"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let ((col (current-column))
org-table: Fix formula correction when removing a hline * lisp/org-table.el (org-table-kill-row): Do not correct formula when removing a hline. Reported-by: alan.wehmann@gmail.com <http://lists.gnu.org/archive/html/emacs-orgmode/2017-09/msg00429.html>
2017-09-28 16:13:49 -04:00
(dline (and (not (org-match-line org-table-hline-regexp))
(org-table-current-dline))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(org-table-with-shrunk-columns
Backport commit b7e867b84 from Emacs Make point-at-eol and point-at-bol obsolete b7e867b841f47dcff3aeaef9b5608a237386ce70 Stefan Kangas Tue Aug 23 04:54:57 2022 +0200 [ km: This was independently covered on the main branch with e73c5b7d0. I'm applying it here too for bookkeeping/traceability purposes. ]
2022-08-22 22:54:57 -04:00
(kill-region (line-beginning-position)
(min (1+ (line-end-position)) (point-max)))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(if (not (org-at-table-p)) (beginning-of-line 0))
(org-move-to-column col)
Merge branch 'maint'
2017-09-28 16:15:34 -04:00
(when (and dline
(or (not org-table-fix-formulas-confirm)
(funcall org-table-fix-formulas-confirm "Fix formulas? ")))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
(org-table-fix-formulas
"@" (list (cons (number-to-string dline) "INVALID")) dline -1 dline)))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-cut-region (beg end)
"Copy region in table to the clipboard and blank all relevant fields.
If there is no active region, use just the field at point."
(interactive (list
(if (org-region-active-p) (region-beginning) (point))
(if (org-region-active-p) (region-end) (point))))
(org-table-copy-region beg end 'cut))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: Improve `org-table-copy-down' * lisp/org-table.el (org-table--increment-field): New function. (org-table-copy-down): Use new function. * testing/lisp/test-org-table.el (test-org-table/copy-down): New test. * doc/org-manual.org (Calculations): Update documentation.
2019-06-27 17:57:13 -04:00
(defun org-table--increment-field (field previous)
"Increment string FIELD according to PREVIOUS field.
Increment FIELD only if it is a string representing a number, per
Emacs Lisp syntax, a timestamp, or is either prefixed or suffixed
with a number. In any other case, return FIELD as-is.
If PREVIOUS has the same structure as FIELD, e.g.,
a number-prefixed string with the same pattern, the increment
step is the difference between numbers (or timestamps, measured
in days) in PREVIOUS and FIELD. Otherwise, it uses
`org-table-copy-increment', if the variable contains a number, or
default to 1.
The function assumes `org-table-copy-increment' is non-nil."
(let* ((default-step (if (numberp org-table-copy-increment)
org-table-copy-increment
1))
(number-regexp ;Lisp read syntax for numbers
(rx (and string-start
(opt (any "+-"))
(or (and (one-or-more digit) (opt "."))
(and (zero-or-more digit) "." (one-or-more digit)))
(opt (any "eE") (opt (opt (any "+-")) (one-or-more digit)))
string-end)))
(number-prefix-regexp (rx (and string-start (one-or-more digit))))
(number-suffix-regexp (rx (and (one-or-more digit) string-end)))
(analyze
(lambda (field)
Backport commit d1a791f8e from Emacs Spelling fixes d1a791f8edc1b8f2189b6f1b3be7b946fef1edbc Paul Eggert Mon Dec 9 18:45:18 2019 -0800
2019-12-09 21:44:35 -05:00
;; Analyze string FIELD and return information related to
org-table: Improve `org-table-copy-down' * lisp/org-table.el (org-table--increment-field): New function. (org-table-copy-down): Use new function. * testing/lisp/test-org-table.el (test-org-table/copy-down): New test. * doc/org-manual.org (Calculations): Update documentation.
2019-06-27 17:57:13 -04:00
;; increment or nil. When non-nil, return value has the
;; following scheme: (TYPE VALUE PATTERN) where
;; - TYPE is a symbol among `number', `prefix', `suffix'
;; and `timestamp',
;; - VALUE is a timestamp if TYPE is `timestamp', or
;; a number otherwise,
;; - PATTERN is the field without its prefix, or suffix if
;; TYPE is either `prefix' or `suffix' , or nil
;; otherwise.
(cond ((not (org-string-nw-p field)) nil)
((string-match-p number-regexp field)
(list 'number
(string-to-number field)
nil))
((string-match number-prefix-regexp field)
(list 'prefix
(string-to-number (match-string 0 field))
(substring field (match-end 0))))
((string-match number-suffix-regexp field)
(list 'suffix
(string-to-number (match-string 0 field))
(substring field 0 (match-beginning 0))))
((string-match-p org-ts-regexp3 field)
(list 'timestamp field nil))
(t nil))))
(next-number-string
(lambda (n1 &optional n2)
;; Increment number N1 and return it as a string. If N2
;; is also a number, deduce increment step from the
;; difference between N1 and N2. Otherwise, increment
;; step is `default-step'.
(number-to-string (if n2 (+ n1 (- n1 n2)) (+ n1 default-step)))))
(shift-timestamp
(lambda (t1 &optional t2)
;; Increment timestamp T1 and return it. If T2 is also
;; a timestamp, deduce increment step from the difference,
;; in days, between T1 and T2. Otherwise, increment by
;; `default-step' days.
(with-temp-buffer
(insert t1)
(org-timestamp-up-day (if (not t2) default-step
(- (org-time-string-to-absolute t1)
(org-time-string-to-absolute t2))))
(buffer-string)))))
;; Check if both PREVIOUS and FIELD have the same type. Also, if
;; the case of prefixed or suffixed numbers, make sure their
;; pattern, i.e., the part of the string without the prefix or the
;; suffix, is the same.
(pcase (cons (funcall analyze field) (funcall analyze previous))
(`((number ,n1 ,_) . (number ,n2 ,_))
(funcall next-number-string n1 n2))
(`((number ,n ,_) . ,_)
(funcall next-number-string n))
(`((prefix ,n1 ,p1) . (prefix ,n2 ,p2))
(concat (funcall next-number-string n1 (and (equal p1 p2) n2)) p1))
(`((prefix ,n ,p) . ,_)
(concat (funcall next-number-string n) p))
(`((suffix ,n1 ,p1) . (suffix ,n2 ,p2))
(concat p1 (funcall next-number-string n1 (and (equal p1 p2) n2))))
(`((suffix ,n ,p) . ,_)
(concat p (funcall next-number-string n)))
(`((timestamp ,t1 ,_) . (timestamp ,t2 ,_))
(funcall shift-timestamp t1 t2))
(`((timestamp ,t1 ,_) . ,_)
(funcall shift-timestamp t1))
(_ field))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;;###autoload
(defun org-table-copy-down (n)
"Copy the value of the current field one row below.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
If the field at the cursor is empty, copy the content of the
nearest non-empty field above. With argument N, use the Nth
non-empty field.
org.el: Implement user-defined table sorting * lisp/org.el (org-do-sort): Implement the ?f and ?F sorting options to allow user-defined table sorting. Update the DOC string. * lisp/org-table (org-table-sort-lines): Add the GETKEY-FUNC and COMPARE-FUNC optional parameters and pass them to the call to `org-do-sort'. Update the DOC string. * doc/org.texi (org-table-sort-lines): Update documentation to reflect the addition of the ?f and ?F options. This patch implements user-defined extraction and comparison functions for table sorting. Thanks to Nicolas Goaziou for helpful suggestions. This patch was discussed on the Org Mode mailing list: http://article.gmane.org/gmane.emacs.orgmode/93334
2014-12-20 13:13:17 -05:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
If the current field is not empty, it is copied down to the next
row, and the cursor is moved with it. Therefore, repeating this
command causes the column to be filled row-by-row.
org-sort: Read compare-func in interactive calls * lisp/org-macs.el (org-read-function): New function. * lisp/org-table.el (org-table-sort-lines): Make WITH-CASE an optional argument to match org-sort-entries and org-sort-list. * lisp/org.el (org-sort-entries): * lisp/org-table.el (org-table-sort-lines): * lisp/org-list.el (org-sort-list): Read COMPARE-FUNC when called interactively rather than being restricted to the default behavior of sort-subr's PREDICATE parameter. Only prompt for for GETKEY-FUNC and COMPARE-FUNC during an interactive call, like org-table-sort-lines already did for GETKEY-FUNC, but use an argument rather than relying on the brittle called-interactively-p. Suggested-by: Zhitao Gong <zhitaao.gong@gmail.com> <https://lists.gnu.org/archive/html/emacs-orgmode/2017-05/msg00040.html>
2017-05-09 14:57:40 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
If the variable `org-table-copy-increment' is non-nil and the
org-table: Improve `org-table-copy-down' * lisp/org-table.el (org-table--increment-field): New function. (org-table-copy-down): Use new function. * testing/lisp/test-org-table.el (test-org-table/copy-down): New test. * doc/org-manual.org (Calculations): Update documentation.
2019-06-27 17:57:13 -04:00
field is a number, a timestamp, or is either prefixed or suffixed
with a number, it will be incremented while copying. By default,
increment by the difference between the value in the current
field and the one in the field above, if any. To increment using
a fixed integer, set `org-table-copy-increment' to a number. In
the case of a timestamp, increment by days.
However, when N is 0, do not increment the field at all."
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(interactive "p")
org-table: Improve `org-table-copy-down' * lisp/org-table.el (org-table--increment-field): New function. (org-table-copy-down): Use new function. * testing/lisp/test-org-table.el (test-org-table/copy-down): New test. * doc/org-manual.org (Calculations): Update documentation.
2019-06-27 17:57:13 -04:00
(org-table-check-inside-data-field)
(let* ((beg (org-table-begin))
(column (org-table-current-column))
(initial-field (save-excursion
(let ((f (org-string-nw-p (org-table-get-field))))
(and f (org-trim f)))))
field field-above next-field)
(save-excursion
;; Get reference field.
(if initial-field (setq field initial-field)
(beginning-of-line)
(setq field
(catch :exit
(while (re-search-backward org-table-dataline-regexp beg t)
(let ((f (org-string-nw-p (org-table-get-field column))))
(cond ((and (> n 1) f) (cl-decf n))
(f (throw :exit (org-trim f)))
(t nil))
(beginning-of-line)))
(user-error "No non-empty field found"))))
;; Check if increment is appropriate, and how it should be done.
(when (and org-table-copy-increment (/= n 0))
;; If increment step is not explicit, get non-empty field just
;; above the field being incremented to guess it.
(unless (numberp org-table-copy-increment)
(setq field-above
(let ((f (unless (= beg (line-beginning-position))
(forward-line -1)
(not (org-at-table-hline-p))
(org-table-get-field column))))
(and (org-string-nw-p f)
(org-trim f)))))
;; Compute next field.
(setq next-field (org-table--increment-field field field-above))))
;; Since initial field in not empty, we modify row below instead.
;; Skip alignment since we do it at the end of the process anyway.
(when initial-field
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(let ((org-table-may-need-update nil)) (org-table-next-row))
(org-table-blank-field))
org-table: Improve `org-table-copy-down' * lisp/org-table.el (org-table--increment-field): New function. (org-table-copy-down): Use new function. * testing/lisp/test-org-table.el (test-org-table/copy-down): New test. * doc/org-manual.org (Calculations): Update documentation.
2019-06-27 17:57:13 -04:00
;; Insert the new field. NEW-FIELD may be nil if
;; `org-table-increment' is nil, or N = 0. In that case, copy
;; FIELD.
(insert (or next-field field))
(org-table-maybe-recalculate-line)
(org-table-align)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-copy-region (beg end &optional cut)
"Copy rectangular region in table to clipboard.
org-table: Fix failing tests * lisp/org-table.el (org-table-copy-region): Preserve return value. Sligthly improve docstring.
2018-04-28 18:31:35 -04:00
A special clipboard is used which can only be accessed with
`org-table-paste-rectangle'. Return the region copied, as a list
of lists of fields."
Tables: Cut or copy single fields if no active region is defined C-c C-x C-w and C-c C-x M-w now act on single table fields if there is no active region defined.
2009-07-31 01:35:02 -04:00
(interactive (list
(if (org-region-active-p) (region-beginning) (point))
(if (org-region-active-p) (region-end) (point))
current-prefix-arg))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(goto-char (min beg end))
(org-table-check-inside-data-field)
(let ((beg (line-beginning-position))
(c01 (org-table-current-column))
region)
(goto-char (max beg end))
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
(org-table-check-inside-data-field nil t)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(let* ((end (copy-marker (line-end-position)))
(c02 (org-table-current-column))
(column-start (min c01 c02))
(column-end (max c01 c02))
(column-number (1+ (- column-end column-start)))
(rpl (and cut " ")))
(goto-char beg)
(while (< (point) end)
(unless (org-at-table-hline-p)
;; Collect every cell between COLUMN-START and COLUMN-END.
(let (cols)
(dotimes (c column-number)
(push (org-table-get-field (+ c column-start) rpl) cols))
(push (nreverse cols) region)))
(forward-line))
(set-marker end nil))
(when cut (org-table-align))
lisp/org-table.el: Fix bug with `org-table-wrap-region' * lisp/org-table.el (org-table-copy-region): Only display a message when called interactively. (org-table-wrap-region): Prevent `org-table-cut-region' from losing track of the region beginning. Reported-by: Marko Schuetz-Schmuck <marko.schutz@upr.edu> Link: https://orgmode.org/list/875z84fnwv.fsf@tpad-m.i-did-not-set--mail-host-address--so-tickle-me/
2021-05-01 23:44:46 -04:00
(when (called-interactively-p 'any)
(message (substitute-command-keys "Cells in the region copied, use \
\\[org-table-paste-rectangle] to paste them in a table.")))
org-table: Fix failing tests * lisp/org-table.el (org-table-copy-region): Preserve return value. Sligthly improve docstring.
2018-04-28 18:31:35 -04:00
(setq org-table-clip (nreverse region))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-paste-rectangle ()
"Paste a rectangular region into a table.
The upper right corner ends up in the current field. All involved fields
will be overwritten. If the rectangle does not fit into the present table,
the table is enlarged as needed. The process ignores horizontal separator
lines."
(interactive)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(unless (consp org-table-clip)
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(user-error "First cut/copy a region to paste!"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-check-inside-data-field)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(let* ((column (org-table-current-column))
(org-table-automatic-realign nil))
(org-table-save-field
(dolist (row org-table-clip)
(while (org-at-table-hline-p) (forward-line))
;; If we left the table, create a new row.
(when (and (bolp) (not (looking-at "[ \t]*|")))
(end-of-line 0)
(org-table-next-field))
(let ((c column))
(dolist (field row)
(org-table-goto-column c nil 'force)
(org-table-get-field nil field)
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(cl-incf c)))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(forward-line)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-align)))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;; Follow Field minor mode
New command: `org-table-transpose-table-at-point'. * org-table.el (org-table-transpose-table-at-point): New command. Thanks to Juan Pechiar for this function.
2011-12-11 11:34:37 -05:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(define-minor-mode org-table-follow-field-mode
"Minor mode to make the table field editor window follow the cursor.
When this mode is active, the field editor window will always show the
current field. The mode exits automatically when the cursor leaves the
table (but see `org-table-exit-follow-field-mode-when-leaving-table')."
Backport commit c45bfd3c4 from Emacs * lisp/ox-beamer.el (org-beamer-mode-map): Move initialization into declaration. (org-beamer-mode): * lisp/org.el (org-cdlatex-mode): * lisp/org-table.el (org-table-header-line-mode) (org-table-follow-field-mode, orgtbl-mode): * lisp/org-src.el (org-src-mode): * lisp/org-list.el (org-list-checkbox-radio-mode): * lisp/org-indent.el (org-indent-mode): * lisp/org-capture.el (org-capture-mode): Avoid old-style positional args to `define-minor-mode`. * lisp/**/*.el: Avoid positional args to `define-minor-mode` c45bfd3c4abbfa585c9199f4866b6b8046945117 Stefan Monnier Sun Apr 11 23:47:14 2021 -0400
2021-04-11 23:47:14 -04:00
:lighter " TblFollow"
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(if org-table-follow-field-mode
(add-hook 'post-command-hook 'org-table-follow-fields-with-editor
'append 'local)
(remove-hook 'post-command-hook 'org-table-follow-fields-with-editor 'local)
(let* ((buf (get-buffer "*Org Table Edit Field*"))
(win (and buf (get-buffer-window buf))))
(when win (delete-window win))
(when buf
(with-current-buffer buf
(move-marker org-field-marker nil))
(kill-buffer buf)))))
New command: `org-table-transpose-table-at-point'. * org-table.el (org-table-transpose-table-at-point): New command. Thanks to Juan Pechiar for this function.
2011-12-11 11:34:37 -05:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;;###autoload
(defun org-table-edit-field (arg)
"Edit table field in a different window.
This is mainly useful for fields that contain hidden parts.
New command: `org-table-transpose-table-at-point'. * org-table.el (org-table-transpose-table-at-point): New command. Thanks to Juan Pechiar for this function.
2011-12-11 11:34:37 -05:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
When called with a `\\[universal-argument]' prefix, just make the full field
visible so that it can be edited in place.
org-table: Check if on table for field edit * lisp/org-table.el (org-table-edit-field): Don't open edit buffer if not on a table. Further added the toggle-feature for org-table-follow-field-mode to the documentation.
2017-01-04 17:35:40 -05:00
When called with a `\\[universal-argument] \\[universal-argument]' prefix, \
toggle `org-table-follow-field-mode'."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(interactive "P")
org-table: Check if on table for field edit * lisp/org-table.el (org-table-edit-field): Don't open edit buffer if not on a table. Further added the toggle-feature for org-table-follow-field-mode to the documentation.
2017-01-04 17:35:40 -05:00
(unless (org-at-table-p) (user-error "Not at a table"))
Implement a minor mode for the editor following the cursor through the table * doc/org.texi (Built-in table editor): Document the table field follow mode. * lisp/org-table.el (org-table-exit-follow-field-mode-when-leaving-table): New option. (org-table-check-inside-data-field): New optional argument `noerror'. When set, the function will only return nil instead of throwing an error. (org-table-edit-field): Interpret double prefix argument, and improve the properties of the editing window. (org-table-follow-field-mode): New minor mode. (org-table-follow-fields-with-editor): New function. The main purpose of this functionality is to make working with table with long fields simpler, by always showing the full content of the current field. This functionality is based on the following mailing list thread http://thread.gmane.org/gmane.emacs.orgmode/41584 and contains ideas by Jonny, Juan Pechiar, and Michael Brand.
2011-05-11 03:48:36 -04:00
(cond
((equal arg '(16))
(org-table-follow-field-mode (if org-table-follow-field-mode -1 1)))
(arg
(let ((b (save-excursion (skip-chars-backward "^|") (point)))
(e (save-excursion (skip-chars-forward "^|\r\n") (point))))
Remove visual effect of width cookies in tables * lisp/org-colview.el (org-dblock-write:columnview): Remove :width parameter. * lisp/org-table.el (org-narrow-column-arrow): Remove variable. (org-table-cleanup-narrow-column-properties): Remove function. (org-table-align): Ignore width cookies when aligning table. (org-table-justify-field-maybe): (org-table-finish-edit-field): (org-table-follow-fields-with-editor): (orgtbl-setup): Remove reference to `org-cwidth' property. * lisp/org.el (org-mode): (org-hide-wide-columns): Remove function. (org-set-font-lock-defaults): Apply previous removal. (org-shorten-string): Ignore `org-cwidth' property. * testing/lisp/test-org-colview.el (test-org-colview/dblock): Remove a test. Export back-ends may still use width cookie to alter table's output.
2017-07-10 07:35:00 -04:00
(remove-text-properties b e '(invisible t intangible t))
Backport commit bbe88cd82 from Emacs * lisp/org-table.el (org-table-edit-field): * lisp/org.el (org-restart-font-lock): Assume font-lock-mode variable is not void; it is preloaded. Assume font-lock-mode variable is not void bbe88cd82e4bbfd76df06223614ab74d1022c119 Stefan Kangas Fri Feb 5 01:15:02 2021 +0100
2021-02-04 19:14:17 -05:00
(if font-lock-mode
Implement a minor mode for the editor following the cursor through the table * doc/org.texi (Built-in table editor): Document the table field follow mode. * lisp/org-table.el (org-table-exit-follow-field-mode-when-leaving-table): New option. (org-table-check-inside-data-field): New optional argument `noerror'. When set, the function will only return nil instead of throwing an error. (org-table-edit-field): Interpret double prefix argument, and improve the properties of the editing window. (org-table-follow-field-mode): New minor mode. (org-table-follow-fields-with-editor): New function. The main purpose of this functionality is to make working with table with long fields simpler, by always showing the full content of the current field. This functionality is based on the following mailing list thread http://thread.gmane.org/gmane.emacs.orgmode/41584 and contains ideas by Jonny, Juan Pechiar, and Michael Brand.
2011-05-11 03:48:36 -04:00
(font-lock-fontify-block))))
(t
Use (point-marker) instead of (move-marker (make-marker) (point)) * org-agenda.el (org-agenda-get-restriction-and-command): Use `point-marker'. * org-capture.el (org-capture-place-template): Likewise. * org-colview-xemacs.el (org-dblock-write:columnview): Likewise. * org-colview.el (org-dblock-write:columnview): Likewise. * org-mobile.el (org-mobile-locate-entry): Likewise. * org-table.el (org-table-convert-region): Likewise. * org.el (org-update-statistics-cookies): Likewise. * contrib/lisp/org-invoice.el (org-dblock-write:invoice): Likewise.
2012-12-19 23:46:41 -05:00
(let ((pos (point-marker))
Table editor: Display coordinates of current field * lisp/org-table.el (org-table-edit-field): Display field coordinates.
2011-07-23 12:48:52 -04:00
(coord
(if (eq org-table-use-standard-references t)
(concat (org-number-to-letters (org-table-current-column))
Use `number-to-string' instead of `int-to-string' * lisp/org.el (org-end-of-subtree): Use `number-to-string' instead of `int-to-string'. * lisp/org-table.el (org-table-edit-field) (org-table-fix-formulas, org-table-analyze, orgtbl-make-binding) (org-table-field-info): Ditto. * lisp/org-macs.el (org-shorten-string): Ditto. * lisp/org-agenda.el (org-get-time-of-day): Ditto.
2020-01-28 14:19:24 -05:00
(number-to-string (org-table-current-dline)))
(concat "@" (number-to-string (org-table-current-dline))
"$" (number-to-string (org-table-current-column)))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(field (org-table-get-field))
(cw (current-window-configuration))
p)
Implement a minor mode for the editor following the cursor through the table * doc/org.texi (Built-in table editor): Document the table field follow mode. * lisp/org-table.el (org-table-exit-follow-field-mode-when-leaving-table): New option. (org-table-check-inside-data-field): New optional argument `noerror'. When set, the function will only return nil instead of throwing an error. (org-table-edit-field): Interpret double prefix argument, and improve the properties of the editing window. (org-table-follow-field-mode): New minor mode. (org-table-follow-fields-with-editor): New function. The main purpose of this functionality is to make working with table with long fields simpler, by always showing the full content of the current field. This functionality is based on the following mailing list thread http://thread.gmane.org/gmane.emacs.orgmode/41584 and contains ideas by Jonny, Juan Pechiar, and Michael Brand.
2011-05-11 03:48:36 -04:00
(goto-char pos)
(org-switch-to-buffer-other-window "*Org Table Edit Field*")
(when (and (local-variable-p 'org-field-marker)
(markerp org-field-marker))
(move-marker org-field-marker nil))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(erase-buffer)
Table editor: Display coordinates of current field * lisp/org-table.el (org-table-edit-field): Display field coordinates.
2011-07-23 12:48:52 -04:00
(insert "#\n# Edit field " coord " and finish with C-c C-c\n#\n")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let ((org-inhibit-startup t)) (org-mode))
Implement a minor mode for the editor following the cursor through the table * doc/org.texi (Built-in table editor): Document the table field follow mode. * lisp/org-table.el (org-table-exit-follow-field-mode-when-leaving-table): New option. (org-table-check-inside-data-field): New optional argument `noerror'. When set, the function will only return nil instead of throwing an error. (org-table-edit-field): Interpret double prefix argument, and improve the properties of the editing window. (org-table-follow-field-mode): New minor mode. (org-table-follow-fields-with-editor): New function. The main purpose of this functionality is to make working with table with long fields simpler, by always showing the full content of the current field. This functionality is based on the following mailing list thread http://thread.gmane.org/gmane.emacs.orgmode/41584 and contains ideas by Jonny, Juan Pechiar, and Michael Brand.
2011-05-11 03:48:36 -04:00
(auto-fill-mode -1)
(setq truncate-lines nil)
(setq word-wrap t)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(goto-char (setq p (point-max)))
(insert (org-trim field))
Remove visual effect of width cookies in tables * lisp/org-colview.el (org-dblock-write:columnview): Remove :width parameter. * lisp/org-table.el (org-narrow-column-arrow): Remove variable. (org-table-cleanup-narrow-column-properties): Remove function. (org-table-align): Ignore width cookies when aligning table. (org-table-justify-field-maybe): (org-table-finish-edit-field): (org-table-follow-fields-with-editor): (orgtbl-setup): Remove reference to `org-cwidth' property. * lisp/org.el (org-mode): (org-hide-wide-columns): Remove function. (org-set-font-lock-defaults): Apply previous removal. (org-shorten-string): Ignore `org-cwidth' property. * testing/lisp/test-org-colview.el (test-org-colview/dblock): Remove a test. Export back-ends may still use width cookie to alter table's output.
2017-07-10 07:35:00 -04:00
(remove-text-properties p (point-max) '(invisible t intangible t))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(goto-char p)
Use setq-local and defvar-local. * lisp/org-macs.el (org-set-local): Remove. All callers changed. * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-macro.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/org.el: Use defvar-local. * lisp/org-agenda.el: * lisp/org-capture.el: * lisp/org-crypt.el: * lisp/org-ctags.el: * lisp/org-plot.el: * lisp/org.el: * lisp/ox-odt.el: * lisp/ox.el: Use setq-local instead of set + make-local-variable. Changes in contrib: * contrib/lisp/org-colview-xemacs.el (org-colview-xemacs-set-local): New macro. Adjust old callers of `org-set-local'.
2015-11-05 11:47:38 -05:00
(setq-local org-finish-function 'org-table-finish-edit-field)
(setq-local org-window-configuration cw)
(setq-local org-field-marker pos)
Implement a minor mode for the editor following the cursor through the table * doc/org.texi (Built-in table editor): Document the table field follow mode. * lisp/org-table.el (org-table-exit-follow-field-mode-when-leaving-table): New option. (org-table-check-inside-data-field): New optional argument `noerror'. When set, the function will only return nil instead of throwing an error. (org-table-edit-field): Interpret double prefix argument, and improve the properties of the editing window. (org-table-follow-field-mode): New minor mode. (org-table-follow-fields-with-editor): New function. The main purpose of this functionality is to make working with table with long fields simpler, by always showing the full content of the current field. This functionality is based on the following mailing list thread http://thread.gmane.org/gmane.emacs.orgmode/41584 and contains ideas by Jonny, Juan Pechiar, and Michael Brand.
2011-05-11 03:48:36 -04:00
(message "Edit and finish with C-c C-c")))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-follow-fields-with-editor ()
(if (and org-table-exit-follow-field-mode-when-leaving-table
(not (org-at-table-p)))
;; We have left the table, exit the follow mode
(org-table-follow-field-mode -1)
(when (org-table-check-inside-data-field 'noerror)
(let ((win (selected-window)))
(org-table-edit-field nil)
(org-fit-window-to-buffer)
(select-window win)))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-finish-edit-field ()
"Finish editing a table data field.
Remove all newline characters, insert the result into the table, realign
the table and kill the editing buffer."
(let ((pos org-field-marker)
(cw org-window-configuration)
(cb (current-buffer))
text)
(goto-char (point-min))
(while (re-search-forward "^#.*\n?" nil t) (replace-match ""))
Backport commit 6a60701bb from Emacs * lisp/org-table.el (org-table-finish-edit-field): Further improvement of regexp, as suggested by Paul Eggert. Improve regexp in org-table-finish-edit-field 6a60701bba3d87f5d9a1730e18b6da827f41a062 Mattias Engdegård Thu Apr 16 19:53:10 2020 +0200
2020-04-16 13:40:26 -04:00
(while (re-search-forward "[ \t]*\n[ \t\n]*" nil t)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(replace-match " "))
(setq text (org-trim (buffer-string)))
(set-window-configuration cw)
(kill-buffer cb)
(select-window (get-buffer-window (marker-buffer pos)))
(goto-char pos)
(move-marker pos nil)
(org-table-check-inside-data-field)
(org-table-get-field nil text)
(org-table-align)
(message "New field value inserted")))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;; Formulas
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-current-field-formula (&optional key noerror)
"Return the formula active for the current field.
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
Assumes that table is already analyzed. If KEY is given, return
the key to this formula. Otherwise return the formula preceded
with \"=\" or \":=\"."
org-table: Fix infloop in `org-table-current-field-formula' * lisp/org-table.el (org-table-current-field-formula): Fix infloop when called from outside the table, e.g., on a TBLFM line.
2016-01-14 11:36:39 -05:00
(let* ((line (count-lines org-table-current-begin-pos
(line-beginning-position)))
(row (org-table-line-to-dline line)))
(cond
(row
(let* ((col (org-table-current-column))
(name (car (rassoc (list line col)
org-table-named-field-locations)))
(scol (format "$%d" col))
(ref (format "@%d$%d" (org-table-current-dline) col))
(stored-list (org-table-get-stored-formulas noerror))
(ass (or (assoc name stored-list)
(assoc ref stored-list)
(assoc scol stored-list))))
(cond (key (car ass))
Clean up string handling. * lisp/org-compat.el (string-prefix-p, string-suffix-p): Add compatibility definitions for 24.3. * lisp/ob-R.el (org-babel-edit-prep:R): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-js.el (org-babel-js-read): * lisp/ob-latex.el (org-babel-execute:latex): * lisp/ob-ref.el (org-babel-ref-parse): * lisp/ob-shell.el (org-babel-variable-assignments:shell): * lisp/org-protocol.el (org-protocol-create): * lisp/org-table.el (org-table-field-info): * lisp/org.el (org-get-buffer-for-internal-link): * lisp/ox-publish.el (org-publish-compare-directory-files): * lisp/ox-texinfo.el (org-texinfo-template): Use `string-{suffix,prefix}-p' instead of `string-match(-p)'. * lisp/ob-python.el (org-babel-python-read-string): Ditto, also use `substring' rather than `match-string'. * lisp/org-table.el (org-table-copy-down): (org-table-insert-hline, org-table-current-field-formula): (org-table-get-formula): Use `string-match-p' instead of `string-match'.
2016-08-24 11:05:54 -04:00
(ass (concat (if (string-match-p "^[0-9]+$" (car ass)) "=" ":=")
org-table: Fix infloop in `org-table-current-field-formula' * lisp/org-table.el (org-table-current-field-formula): Fix infloop when called from outside the table, e.g., on a TBLFM line.
2016-01-14 11:36:39 -05:00
(cdr ass))))))
(noerror nil)
(t (error "No formula active for the current field")))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-get-formula (&optional equation named)
"Read a formula from the minibuffer, offer stored formula as default.
When NAMED is non-nil, look for a named equation."
(let* ((stored-list (org-table-get-stored-formulas))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(name (car (rassoc (list (count-lines org-table-current-begin-pos
(line-beginning-position))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-current-column))
org-table-named-field-locations)))
org-table: Fix `org-table-eval-formula' * lisp/org-table.el (org-table-get-formula): (org-table-store-formulas): Column formulas references are stored along with their dollar-sign since "Fix `org-table-get-range' with column formulas". Update functions accordingly. Reported-by: John Hendy <jw.hendy@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/103056>
2015-11-23 17:19:14 -05:00
(ref (format "@%d$%d"
(org-table-current-dline)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-current-column)))
org-table: Fix `org-table-eval-formula' * lisp/org-table.el (org-table-get-formula): (org-table-store-formulas): Column formulas references are stored along with their dollar-sign since "Fix `org-table-get-range' with column formulas". Update functions accordingly. Reported-by: John Hendy <jw.hendy@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/103056>
2015-11-23 17:19:14 -05:00
(scol (cond
((not named) (format "$%d" (org-table-current-column)))
table: Remove the last row (LR) feature The feature was undocumented and broken according to Carsten. * lisp/org-table.el (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-get-formula): (org-table-fix-formulas): (org-table-analyze): Remove the parts refering to LR.
2020-05-01 18:04:30 -04:00
(name)
org-table: Fix `org-table-eval-formula' * lisp/org-table.el (org-table-get-formula): (org-table-store-formulas): Column formulas references are stored along with their dollar-sign since "Fix `org-table-get-range' with column formulas". Update functions accordingly. Reported-by: John Hendy <jw.hendy@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/103056>
2015-11-23 17:19:14 -05:00
(t ref)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(name (or name ref))
(org-table-may-need-update nil)
(stored (cdr (assoc scol stored-list)))
(eq (cond
Clean up string handling. * lisp/org-compat.el (string-prefix-p, string-suffix-p): Add compatibility definitions for 24.3. * lisp/ob-R.el (org-babel-edit-prep:R): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-js.el (org-babel-js-read): * lisp/ob-latex.el (org-babel-execute:latex): * lisp/ob-ref.el (org-babel-ref-parse): * lisp/ob-shell.el (org-babel-variable-assignments:shell): * lisp/org-protocol.el (org-protocol-create): * lisp/org-table.el (org-table-field-info): * lisp/org.el (org-get-buffer-for-internal-link): * lisp/ox-publish.el (org-publish-compare-directory-files): * lisp/ox-texinfo.el (org-texinfo-template): Use `string-{suffix,prefix}-p' instead of `string-match(-p)'. * lisp/ob-python.el (org-babel-python-read-string): Ditto, also use `substring' rather than `match-string'. * lisp/org-table.el (org-table-copy-down): (org-table-insert-hline, org-table-current-field-formula): (org-table-get-formula): Use `string-match-p' instead of `string-match'.
2016-08-24 11:05:54 -04:00
((and stored equation (string-match-p "^ *=? *$" equation))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
stored)
org-table: Tiny refactoring * lisp/org-table.el (org-table-get-formula): Tiny refactoring. (org-table-get-stored-formulas): Fix string.
2018-05-22 04:46:57 -04:00
((stringp equation) equation)
(t
(org-table-formula-from-user
(read-string
(org-table-formula-to-user
(format "%s formula %s=" (if named "Field" "Column") scol))
(if stored (org-table-formula-to-user stored) "")
'org-table-formula-history)))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
mustsave)
org-table: Tiny refactoring * lisp/org-table.el (org-table-get-formula): Tiny refactoring. (org-table-get-stored-formulas): Fix string.
2018-05-22 04:46:57 -04:00
(unless (org-string-nw-p eq)
;; Remove formula.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq stored-list (delq (assoc scol stored-list) stored-list))
(org-table-store-formulas stored-list)
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(user-error "Formula removed"))
org-table: Tiny refactoring * lisp/org-table.el (org-table-get-formula): Tiny refactoring. (org-table-get-stored-formulas): Fix string.
2018-05-22 04:46:57 -04:00
(when (string-match "^ *=?" eq) (setq eq (replace-match "" t t eq)))
(when (string-match " *$" eq) (setq eq (replace-match "" t t eq)))
(when (and name (not named))
;; We set the column equation, delete the named one.
(setq stored-list (delq (assoc name stored-list) stored-list)
mustsave t))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(if stored
(setcdr (assoc scol stored-list) eq)
(setq stored-list (cons (cons scol eq) stored-list)))
org-table: Tiny refactoring * lisp/org-table.el (org-table-get-formula): Tiny refactoring. (org-table-get-stored-formulas): Fix string.
2018-05-22 04:46:57 -04:00
(when (or mustsave (not (equal stored eq)))
(org-table-store-formulas stored-list))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
eq))
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(defun org-table-store-formulas (alist &optional location)
"Store the list of formulas below the current table.
If optional argument LOCATION is a buffer position, insert it at
LOCATION instead."
org-table: Fix `org-table-eval-formula' * lisp/org-table.el (org-table-get-formula): (org-table-store-formulas): Column formulas references are stored along with their dollar-sign since "Fix `org-table-get-range' with column formulas". Update functions accordingly. Reported-by: John Hendy <jw.hendy@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/103056>
2015-11-23 17:19:14 -05:00
(save-excursion
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(if location
(progn (goto-char location) (beginning-of-line))
(goto-char (org-table-end)))
org-table: Fix `org-table-eval-formula' * lisp/org-table.el (org-table-get-formula): (org-table-store-formulas): Column formulas references are stored along with their dollar-sign since "Fix `org-table-get-range' with column formulas". Update functions accordingly. Reported-by: John Hendy <jw.hendy@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/103056>
2015-11-23 17:19:14 -05:00
(let ((case-fold-search t))
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(if (looking-at "\\([ \t]*\n\\)*[ \t]*\\(#\\+TBLFM:\\)\\(.*\n?\\)")
org-table.el: Fix `org-table-store-formulas'. The bug was introduced by this commit: http://orgmode.org/w/?p=org-mode.git;a=commit;h=1c203d Thanks to Matt Lundin who reported this nasty/stupid bug.
2012-04-28 17:34:51 -04:00
(progn
org-table: Fix `org-table-eval-formula' * lisp/org-table.el (org-table-get-formula): (org-table-store-formulas): Column formulas references are stored along with their dollar-sign since "Fix `org-table-get-range' with column formulas". Update functions accordingly. Reported-by: John Hendy <jw.hendy@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/103056>
2015-11-23 17:19:14 -05:00
;; Don't overwrite TBLFM, we might use text properties to
;; store stuff.
org-table.el: Fix `org-table-store-formulas'. The bug was introduced by this commit: http://orgmode.org/w/?p=org-mode.git;a=commit;h=1c203d Thanks to Matt Lundin who reported this nasty/stupid bug.
2012-04-28 17:34:51 -04:00
(goto-char (match-beginning 3))
(delete-region (match-beginning 3) (match-end 0)))
Rename `org-indent-line-function' to `org-indent-line'. * org.el (org-mode, org-add-log-setup) (org-get-property-block, org-entry-put) (org-property-next-allowed-value, org-return) (org-indent-line): Rename `org-indent-line-function' to `org-indent-line'. * org-timer.el (org-timer-item): Ditto. * org-table.el (org-table-store-formulas): Ditto. * org-clock.el (org-clock-in, org-clock-find-position): Ditto.
2012-07-11 13:11:26 -04:00
(org-indent-line)
lisp/org-table.el: Fix positioning of "#+TBLFM: * lisp/org-table.el (org-table-store-formulas): Fix positioning of "#+TBLFM:". Reported-by: tbanelwebmin <tbanelwebmin@free.fr> <http://list.orgmode.org/43910853-03cb-c226-f46d-4736d0e6cca6@free.fr>
2021-09-26 02:53:36 -04:00
(insert "#+TBLFM:"))
org-table.el: Fix `org-table-store-formulas'. The bug was introduced by this commit: http://orgmode.org/w/?p=org-mode.git;a=commit;h=1c203d Thanks to Matt Lundin who reported this nasty/stupid bug.
2012-04-28 17:34:51 -04:00
(insert " "
org-table: Fix `org-table-eval-formula' * lisp/org-table.el (org-table-get-formula): (org-table-store-formulas): Column formulas references are stored along with their dollar-sign since "Fix `org-table-get-range' with column formulas". Update functions accordingly. Reported-by: John Hendy <jw.hendy@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/103056>
2015-11-23 17:19:14 -05:00
(mapconcat (lambda (x) (concat (car x) "=" (cdr x)))
(sort alist #'org-table-formula-less-p)
"::")
org-table.el: Fix `org-table-store-formulas'. The bug was introduced by this commit: http://orgmode.org/w/?p=org-mode.git;a=commit;h=1c203d Thanks to Matt Lundin who reported this nasty/stupid bug.
2012-04-28 17:34:51 -04:00
"\n"))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defsubst org-table-formula-make-cmp-string (a)
Backport commit 3c94c7bc0 and db9c924d3 from Emacs * lisp/ob-core.el (org-babel-string-read): * lisp/org-agenda.el: (org-agenda-add-entry-to-org-agenda-diary-file): * lisp/org-element.el (org-element-keyword-parser): * lisp/org-list.el (org-list-indent-item-generic): * lisp/org-mhe.el (org-mhe-get-message-folder-from-index): * lisp/org-mobile.el (org-mobile-apply): * lisp/org-mouse.el (org-mouse-context-menu): * lisp/org-plot.el (org-plot/gnuplot): * lisp/org-protocol.el (org-protocol-flatten-greedy): * lisp/org-table.el (org-table-copy-down) (org-table-formula-make-cmp-string) (org-table-get-stored-formulas, org-table-recalculate) (org-table-edit-formulas): * lisp/org.el (org-translate-link-from-planner) (org-fill-line-break-nobreak-p): * lisp/ox-ascii.el (org-ascii-item): * lisp/ox-latex.el (org-latex-clean-invalid-line-breaks): * lisp/ox.el (org-export-expand-include-keyword): Fix regular-expression infelicities and typos. Fix regular-expression glitches and typos 3c94c7bc02fcacb4a101188dddb0c44d53444178 Paul Eggert Mon Mar 4 18:00:58 2019 -0800 More regexp corrections and tweaks db9c924d3d53f46846ad8fd74a5d08f4586a520e Paul Eggert Fri Mar 8 09:09:40 2019 -0800 Note(km): These two commits are ported together because, with respect to Org files, db9c924d3 is a fix of an error from 3c94c7bc0.
2019-03-04 21:00:00 -05:00
(when (string-match "\\`\\$[<>]" a)
Tables: Make @< and $< point to row/column 1 in a stable way
2011-03-08 08:49:53 -05:00
(let ((arrow (string-to-char (substring a 1))))
;; Fake a high number to make sure this is sorted at the end.
(setq a (org-table-formula-handle-first/last-rc a))
(setq a (format "$%d" (+ 10000
(if (= arrow ?<) -1000 0)
(string-to-number (substring a 1)))))))
(when (string-match
"^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?"
a)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(concat
Tables: Make @< and $< point to row/column 1 in a stable way
2011-03-08 08:49:53 -05:00
(if (match-end 2)
(format "@%05d" (string-to-number (match-string 2 a))) "")
(if (match-end 4)
(format "$%05d" (string-to-number (match-string 4 a))) "")
(if (match-end 5)
(concat "@@" (match-string 5 a))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-formula-less-p (a b)
"Compare two formulas for sorting."
(let ((as (org-table-formula-make-cmp-string (car a)))
(bs (org-table-formula-make-cmp-string (car b))))
(and as bs (string< as bs))))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(defun org-table-get-stored-formulas (&optional noerror location)
"Return an alist with the stored formulas directly after current table.
By default, only return active formulas, i.e., formulas located
on the first line after the table. However, if optional argument
LOCATION is a buffer position, consider the formulas there."
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
(save-excursion
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(if location
(progn (goto-char location) (beginning-of-line))
(goto-char (org-table-end)))
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
(let ((case-fold-search t))
(when (looking-at "\\([ \t]*\n\\)*[ \t]*#\\+TBLFM: *\\(.*\\)")
Remove final parts of XEmacs compatibility code * lisp/org-compat.el: Declare `org-add-hook', `org-decompose-region', `org-detach-overlay', `org-file-equal-p', `org-float-time', `org-indent-line-to', `org-indent-to-column', `org-looking-at-p', `org-looking-back', `org-propertize', `org-re' and `org-select-frame-set-input-focus' as obsolete. (org-overlay-display, org-overlay-before-string, org-find-overlays): Move to "org.el" (org-xemacs-key-equivalents, org-xemacs-p): Remove variables. (org-region-active-p): Drop XEmacs support. (org-xemacs-without-invisibility): Remove macro. (org-get-x-clipboard-compat): Remove function. * lisp/org-macs.el (org-match-string-no-properties): Remove function. * lisp/ob-core.el: * lisp/org-agenda.el: * lisp/org-archive.el: * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-crypt.el: * lisp/org-element.el: * lisp/org-faces.el: * lisp/org-feed.el: * lisp/org-footnote.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-indent.el: * lisp/org-inlinetask.el: * lisp/org-lint.el: * lisp/org-list.el: * lisp/org-mouse.el: * lisp/org-pcomplete.el: * lisp/org-src.el: * lisp/org-table.el: * lisp/org-timer.el: * lisp/org.el: * lisp/ox-ascii.el: * lisp/ox-odt.el: * lisp/ox.el: * contrib/lisp/org-notify.el: * contrib/lisp/ox-taskjuggler.el: * contrib/lisp/org-wikinodes.el: * testing/lisp/test-org-src.el: * testing/lisp/test-org.el: Silence byte-compiler.
2016-05-26 06:18:00 -04:00
(let ((strings (org-split-string (match-string-no-properties 2)
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
" *:: *"))
eq-alist seen)
(dolist (string strings (nreverse eq-alist))
org-table: Fix c651e150cc8fb230fca99dfff27caedfddced8ff * lisp/org-table.el (org-table-get-stored-formulas): Correctly detect named fields in formulas' LHS. * testing/lisp/test-org-table.el (test-org-table/named-field): (test-org-table/named-column): New tests. Reported-by: "Stefan-W. Hahn" <stefan.hahn@s-hahn.de> <http://permalink.gmane.org/gmane.emacs.orgmode/103119>
2015-11-26 16:41:14 -05:00
(when (string-match "\\`\\(@[-+I<>0-9.$@]+\\|\\$\\([_a-zA-Z0-9]+\\|\
org-table: Tiny refactoring * lisp/org-table.el (org-table-get-formula): Tiny refactoring. (org-table-get-stored-formulas): Fix string.
2018-05-22 04:46:57 -04:00
\[<>]+\\)\\) *= *\\(.*[^ \t]\\)"
org-table: Fix c651e150cc8fb230fca99dfff27caedfddced8ff * lisp/org-table.el (org-table-get-stored-formulas): Correctly detect named fields in formulas' LHS. * testing/lisp/test-org-table.el (test-org-table/named-field): (test-org-table/named-column): New tests. Reported-by: "Stefan-W. Hahn" <stefan.hahn@s-hahn.de> <http://permalink.gmane.org/gmane.emacs.orgmode/103119>
2015-11-26 16:41:14 -05:00
string)
(let ((lhs
(let ((m (match-string 1 string)))
(cond
((not (match-end 2)) m)
;; Is it a column reference?
Backport commit 3c94c7bc0 and db9c924d3 from Emacs * lisp/ob-core.el (org-babel-string-read): * lisp/org-agenda.el: (org-agenda-add-entry-to-org-agenda-diary-file): * lisp/org-element.el (org-element-keyword-parser): * lisp/org-list.el (org-list-indent-item-generic): * lisp/org-mhe.el (org-mhe-get-message-folder-from-index): * lisp/org-mobile.el (org-mobile-apply): * lisp/org-mouse.el (org-mouse-context-menu): * lisp/org-plot.el (org-plot/gnuplot): * lisp/org-protocol.el (org-protocol-flatten-greedy): * lisp/org-table.el (org-table-copy-down) (org-table-formula-make-cmp-string) (org-table-get-stored-formulas, org-table-recalculate) (org-table-edit-formulas): * lisp/org.el (org-translate-link-from-planner) (org-fill-line-break-nobreak-p): * lisp/ox-ascii.el (org-ascii-item): * lisp/ox-latex.el (org-latex-clean-invalid-line-breaks): * lisp/ox.el (org-export-expand-include-keyword): Fix regular-expression infelicities and typos. Fix regular-expression glitches and typos 3c94c7bc02fcacb4a101188dddb0c44d53444178 Paul Eggert Mon Mar 4 18:00:58 2019 -0800 More regexp corrections and tweaks db9c924d3d53f46846ad8fd74a5d08f4586a520e Paul Eggert Fri Mar 8 09:09:40 2019 -0800 Note(km): These two commits are ported together because, with respect to Org files, db9c924d3 is a fix of an error from 3c94c7bc0.
2019-03-04 21:00:00 -05:00
((string-match-p "\\`\\$\\([0-9]+\\|[<>]+\\)\\'" m) m)
org-table: Fix c651e150cc8fb230fca99dfff27caedfddced8ff * lisp/org-table.el (org-table-get-stored-formulas): Correctly detect named fields in formulas' LHS. * testing/lisp/test-org-table.el (test-org-table/named-field): (test-org-table/named-column): New tests. Reported-by: "Stefan-W. Hahn" <stefan.hahn@s-hahn.de> <http://permalink.gmane.org/gmane.emacs.orgmode/103119>
2015-11-26 16:41:14 -05:00
;; Since named columns are not possible in
;; LHS, assume this is a named field.
(t (match-string 2 string)))))
(rhs (match-string 3 string)))
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
(push (cons lhs rhs) eq-alist)
(cond
((not (member lhs seen)) (push lhs seen))
(noerror
(message
"Double definition `%s=' in TBLFM line, please fix by hand"
lhs)
(ding)
(sit-for 2))
(t
(user-error
"Double definition `%s=' in TBLFM line, please fix by hand"
lhs)))))))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-fix-formulas (key replace &optional limit delta remove)
"Modify the equations after the table structure has been edited.
KEY is \"@\" or \"$\". REPLACE is an alist of numbers to replace.
For all numbers larger than LIMIT, shift them by DELTA."
(save-excursion
(goto-char (org-table-end))
Fix multiple TBLFM Simplify commit release_8.2.4-14-geb28fe4 and commit release_8.2.5c-8-ga2619b7. * org-table.el (org-table-fix-formulas): Handle multiple #+TBLFM lines with `forward-line'.
2014-01-09 14:10:19 -05:00
(while (let ((case-fold-search t)) (looking-at "[ \t]*#\\+tblfm:"))
org-table: Small refactoring * lisp/org-table.el (org-table-fix-formulas): Eliminate a local variable.
2020-04-17 19:20:49 -04:00
(let ((re (concat key "\\([0-9]+\\)"))
Fix multiple TBLFM Simplify commit release_8.2.4-14-geb28fe4 and commit release_8.2.5c-8-ga2619b7. * org-table.el (org-table-fix-formulas): Handle multiple #+TBLFM lines with `forward-line'.
2014-01-09 14:10:19 -05:00
(re2
(when remove
table: Remove the last row (LR) feature The feature was undocumented and broken according to Carsten. * lisp/org-table.el (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-get-formula): (org-table-fix-formulas): (org-table-analyze): Remove the parts refering to LR.
2020-05-01 18:04:30 -04:00
(if (equal key "$")
Fix multiple TBLFM Simplify commit release_8.2.4-14-geb28fe4 and commit release_8.2.5c-8-ga2619b7. * org-table.el (org-table-fix-formulas): Handle multiple #+TBLFM lines with `forward-line'.
2014-01-09 14:10:19 -05:00
(format "\\(@[0-9]+\\)?%s%d=.*?\\(::\\|$\\)"
(regexp-quote key) remove)
(format "@%d\\$[0-9]+=.*?\\(::\\|$\\)" remove))))
s n a)
(when remove
org-table-fix-formulas: Ensure shifting columns after removing invalid * lisp/org-table.el (org-table-fix-formulas): Search from the beginning of table formula when shifting moved column numbers. Reported-by: Uwe Brauer <oub@mat.ucm.es> Link: https://orgmode.org/list/87r1gaw0av.fsf@mat.ucm.es
2022-10-05 01:13:36 -04:00
(save-excursion
(while (re-search-forward re2 (line-end-position) t)
(unless (save-match-data (org-in-regexp "remote([^)]+?)"))
(if (equal (char-before (match-beginning 0)) ?.)
(user-error
"Change makes TBLFM term %s invalid, use undo to recover"
(match-string 0))
(replace-match ""))))))
Backport commit b7e867b84 from Emacs Make point-at-eol and point-at-bol obsolete b7e867b841f47dcff3aeaef9b5608a237386ce70 Stefan Kangas Tue Aug 23 04:54:57 2022 +0200 [ km: This was independently covered on the main branch with e73c5b7d0. I'm applying it here too for bookkeeping/traceability purposes. ]
2022-08-22 22:54:57 -04:00
(while (re-search-forward re (line-end-position) t)
Fix multiple TBLFM Simplify commit release_8.2.4-14-geb28fe4 and commit release_8.2.5c-8-ga2619b7. * org-table.el (org-table-fix-formulas): Handle multiple #+TBLFM lines with `forward-line'.
2014-01-09 14:10:19 -05:00
(unless (save-match-data (org-in-regexp "remote([^)]+?)"))
(setq s (match-string 1) n (string-to-number s))
(cond
((setq a (assoc s replace))
org-table: Decrease the amount of redundant messages * lisp/org-table.el (org-table-fix-formulas): Only one message per tblfm instead of an update message for every line.
2020-04-17 19:03:15 -04:00
(replace-match (concat key (cdr a)) t t))
Fix multiple TBLFM Simplify commit release_8.2.4-14-geb28fe4 and commit release_8.2.5c-8-ga2619b7. * org-table.el (org-table-fix-formulas): Handle multiple #+TBLFM lines with `forward-line'.
2014-01-09 14:10:19 -05:00
((and limit (> n limit))
org-table: Decrease the amount of redundant messages * lisp/org-table.el (org-table-fix-formulas): Only one message per tblfm instead of an update message for every line.
2020-04-17 19:03:15 -04:00
(replace-match (concat key (number-to-string (+ n delta))) t t)))))
org-table: Small refactoring * lisp/org-table.el (org-table-fix-formulas): Eliminate a local variable.
2020-04-17 19:20:49 -04:00
(message "The formulas in #+TBLFM have been updated"))
Fix multiple TBLFM Simplify commit release_8.2.4-14-geb28fe4 and commit release_8.2.5c-8-ga2619b7. * org-table.el (org-table-fix-formulas): Handle multiple #+TBLFM lines with `forward-line'.
2014-01-09 14:10:19 -05:00
(forward-line))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-maybe-eval-formula ()
"Check if the current field starts with \"=\" or \":=\".
If yes, store the formula and apply it."
;; We already know we are in a table. Get field will only return a formula
;; when appropriate. It might return a separator line, but no problem.
(when org-table-formula-evaluate-inline
(let* ((field (org-trim (or (org-table-get-field) "")))
named eq)
org-table.el: Fix bug in ̀org-table-maybe-eval-formula'. * org-table.el (org-table-store-formulas): Fix typo. (org-table-maybe-eval-formula): Fix the regexp to only match formulas, which never end with the `=' character. If the field only contain this character, don't eval either. Thanks to Thomas S. Dye for reporting this.
2012-04-30 20:03:12 -04:00
(when (string-match "^:?=\\(.*[^=]\\)$" field)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq named (equal (string-to-char field) ?:)
eq (match-string 1 field))
org-table: Assume `calc-eval' is always available * lisp/org-table.el (org-table-maybe-eval-formula): (org-table-eval-formula): Assume `calc-eval' is always available, which is the case on any recent GNU Emacs.
2016-07-21 04:25:44 -04:00
(org-table-eval-formula (and named '(4))
(org-table-formula-from-user eq))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-rotate-recalc-marks (&optional newchar)
"Rotate the recalculation mark in the first column.
If in any row, the first field is not consistent with a mark,
insert a new column for the markers.
When there is an active region, change all the lines in the region,
after prompting for the marking character.
After each change, a message will be displayed indicating the meaning
of the new mark."
(interactive)
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(unless (org-at-table-p) (user-error "Not at a table"))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(let* ((region (org-region-active-p))
(l1 (and region
(save-excursion (goto-char (region-beginning))
(copy-marker (line-beginning-position)))))
(l2 (and region
(save-excursion (goto-char (region-end))
(copy-marker (line-beginning-position)))))
(l (copy-marker (line-beginning-position)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(col (org-table-current-column))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(newchar (if region
(char-to-string
(read-char-exclusive
"Change region to what mark? Type # * ! $ or SPC: "))
newchar))
(no-special-column
(save-excursion
(goto-char (org-table-begin))
(re-search-forward
"^[ \t]*|[^-|][^|]*[^#!$*_^| \t][^|]*|" (org-table-end) t))))
(when (and newchar (not (assoc newchar org-recalc-marks)))
(user-error "Invalid character `%s' in `org-table-rotate-recalc-marks'"
newchar))
(when l1 (goto-char l1))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(save-excursion
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(beginning-of-line)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(unless (looking-at org-table-dataline-regexp)
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(user-error "Not at a table data line")))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(when no-special-column
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-goto-column 1)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(org-table-insert-column))
(let ((previous-line-end (line-end-position))
(newchar
(save-excursion
(beginning-of-line)
(cond ((not (looking-at "^[ \t]*| *\\([#!$*^_ ]\\) *|")) "#")
(newchar)
(t (cadr (member (match-string 1)
(append (mapcar #'car org-recalc-marks)
'(" ")))))))))
;; Rotate mark in first row.
(org-table-get-field 1 (format " %s " newchar))
;; Rotate marks in additional rows if a region is active.
(when region
(save-excursion
(forward-line)
(while (<= (point) l2)
(when (looking-at org-table-dataline-regexp)
(org-table-get-field 1 (format " %s " newchar)))
(forward-line))))
;; Only align if rotation actually changed lines' length.
(when (/= previous-line-end (line-end-position)) (org-table-align)))
(goto-char l)
(org-table-goto-column (if no-special-column (1+ col) col))
(when l1 (set-marker l1 nil))
(when l2 (set-marker l2 nil))
(set-marker l nil)
Deprecate `org-called-interactively-p' in favor of `called-interactively-p' * lisp/org-compat.el (org-called-interactively-p): Make it an obsolete alias for `called-interactively-p'. * lisp/org-macs.el (org-called-interactively-p): Remove function. * contrib/lisp/org-expiry.el (org-expiry-insinuate): (org-expiry-deinsinuate): (org-expiry-process-entry): (org-expiry-process-entries): (org-expiry-archive-subtree): (org-expiry-add-keyword): * lisp/ob-core.el (org-babel-expand-src-block): (org-babel-sha1-hash): * lisp/org-agenda.el (org-toggle-sticky-agenda): (org-agenda-write): (org-agenda-dim-blocked-tasks): (org-agenda-redo): (org-agenda-show-1): (org-agenda-set-tags): * lisp/org-lint.el (org-lint): * lisp/org-table.el (org-table-blank-field): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-sum): (org-table-rotate-recalc-marks): (org-table-eval-formula): (orgtbl-send-table): * lisp/org.el (org-mode): (org-copy-subtree): (org-paste-subtree): (org-store-link): (org-todo): (org-occur): (org-create-math-formula): (org-toggle-inline-images): (org-mark-subtree): (org-mark-element): Apply removal.
2016-06-23 08:34:40 -04:00
(when (called-interactively-p 'interactive)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(message "%s" (cdr (assoc newchar org-recalc-marks))))))
;;;###autoload
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-maybe-recalculate-line ()
"Recompute the current line if marked for it, and if we haven't just done it."
(interactive)
(and org-table-allow-automatic-line-recalculation
(not (and (memq last-command org-recalc-commands)
(eq org-last-recalc-line (line-beginning-position))))
(save-excursion (beginning-of-line 1)
(looking-at org-table-auto-recalculate-regexp))
(org-table-recalculate) t))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;;###autoload
(defun org-table-eval-formula (&optional arg equation
suppress-align suppress-const
suppress-store suppress-analysis)
"Replace the table field value at the cursor by the result of a calculation.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
In a table, this command replaces the value in the current field with the
result of a formula. It also installs the formula as the \"current\" column
formula, by storing it in a special line below the table. When called
org-table: Fix docstrings * lisp/org-table.el (org-table-eval-formula): Nowadays, Calc is installed with Emacs, so there is no need to specify this. Also remove hard-coded "C-u". (org-table-recalculate): Fix code typo.
2016-03-25 18:11:34 -04:00
with a `\\[universal-argument]' prefix the formula is installed as a \
field formula.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: Fix docstrings * lisp/org-table.el (org-table-eval-formula): Nowadays, Calc is installed with Emacs, so there is no need to specify this. Also remove hard-coded "C-u". (org-table-recalculate): Fix code typo.
2016-03-25 18:11:34 -04:00
When called with a `\\[universal-argument] \\[universal-argument]' prefix, \
insert the active equation for the field
back into the current field, so that it can be edited there. This is \
useful
in order to use \\<org-table-fedit-map>`\\[org-table-show-reference]' to \
check the referenced fields.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
When called, the command first prompts for a formula, which is read in
the minibuffer. Previously entered formulas are available through the
history list, and the last used formula is offered as a default.
These stored formulas are adapted correctly when moving, inserting, or
deleting columns with the corresponding commands.
The formula can be any algebraic expression understood by the Calc package.
org-table: Fix docstrings * lisp/org-table.el (org-table-eval-formula): Nowadays, Calc is installed with Emacs, so there is no need to specify this. Also remove hard-coded "C-u". (org-table-recalculate): Fix code typo.
2016-03-25 18:11:34 -04:00
For details, see the Org mode manual.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
This function can also be called from Lisp programs and offers
additional arguments: EQUATION can be the formula to apply. If this
org-table: Speed up large tables calculation * lisp/org-table.el (org-table-eval-formula): Do not check point is really within a table when context analysis is not requested. Reported-by: Thierry Banel <tbanelwebmin@free.fr> <http://permalink.gmane.org/gmane.emacs.orgmode/111276>
2017-01-08 18:18:26 -05:00
argument is given, the user will not be prompted.
SUPPRESS-ALIGN is used to speed-up recursive calls by by-passing
unnecessary aligns.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
SUPPRESS-CONST suppresses the interpretation of constants in the
org-table: Speed up large tables calculation * lisp/org-table.el (org-table-eval-formula): Do not check point is really within a table when context analysis is not requested. Reported-by: Thierry Banel <tbanelwebmin@free.fr> <http://permalink.gmane.org/gmane.emacs.orgmode/111276>
2017-01-08 18:18:26 -05:00
formula, assuming that this has been done already outside the
function.
SUPPRESS-STORE means the formula should not be stored, either
because it is already stored, or because it is a modified
equation that should not overwrite the stored one.
SUPPRESS-ANALYSIS prevents analyzing the table and checking
location of point."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(interactive "P")
org-table: Speed up large tables calculation * lisp/org-table.el (org-table-eval-formula): Do not check point is really within a table when context analysis is not requested. Reported-by: Thierry Banel <tbanelwebmin@free.fr> <http://permalink.gmane.org/gmane.emacs.orgmode/111276>
2017-01-08 18:18:26 -05:00
(unless suppress-analysis
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
(org-table-check-inside-data-field nil t)
org-table: Speed up large tables calculation * lisp/org-table.el (org-table-eval-formula): Do not check point is really within a table when context analysis is not requested. Reported-by: Thierry Banel <tbanelwebmin@free.fr> <http://permalink.gmane.org/gmane.emacs.orgmode/111276>
2017-01-08 18:18:26 -05:00
(org-table-analyze))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(if (equal arg '(16))
(let ((eq (org-table-current-field-formula)))
(org-table-get-field nil eq)
(org-table-align)
(setq org-table-may-need-update t))
(let* (fields
(ndown (if (integerp arg) arg 1))
(org-table-automatic-realign nil)
(case-fold-search nil)
(down (> ndown 1))
(formula (if (and equation suppress-store)
equation
(org-table-get-formula equation (equal arg '(4)))))
(n0 (org-table-current-column))
org-table: Remove unused org-tbl-calc-modes variable declaration * org-table.el (org-tbl-calc-modes): Remove variable declaration as the varialble is used only within `org-table-eval-formula'. * org-table.el (org-table-eval-formula): Rename `org-tbl-calc-modes` local variable without the `org-tbl-` prefix and use the gained screen real estate to avoid indirection through covenience macro. This requires moving the mode lookup table from `org-table--set-calc-mode` to here. * org-table.el (org-table--set-calc-mode): Drop convenience macro. Note that the macro was not working as intended when the caller tried to add a new entry in the plist as in this case the macro would create a new plist with the added entry but return the old one.
2020-11-23 17:44:51 -05:00
(calc-modes (copy-sequence org-calc-default-modes))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(numbers nil) ; was a variable, now fixed default
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(keep-empty nil)
org-table: Simplify mode string parsing * org-table.el (org-table-eval-formula): Simplify mode string parsing and reduce scope of local variables.
2020-11-23 18:19:09 -05:00
form form0 formrpl formrg bw fmt ev orig lispp literal
org-table.el: Fix missing variables in let constructs. * org-table.el (org-table-eval-formula): Fix missing variable in let construct. (org-table-time-string-to-seconds): Fix missing variable in let construct. Thanks to John Wiegley for pointing at this.
2011-08-14 14:24:43 -04:00
duration duration-output-format)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; Parse the format string. Since we have a lot of modes, this is
;; a lot of work. However, I think calc still uses most of the time.
org-table: Simplify mode string parsing * org-table.el (org-table-eval-formula): Simplify mode string parsing and reduce scope of local variables.
2020-11-23 18:19:09 -05:00
(if (string-match "\\(.*\\);\\(.*\\)" formula)
(progn
(setq fmt (concat (cdr (assoc "%" org-table-local-parameters))
(match-string-no-properties 2 formula)))
(setq formula (match-string-no-properties 1 formula))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(while (string-match "\\([pnfse]\\)\\(-?[0-9]+\\)" fmt)
org-table: Simplify mode string parsing * org-table.el (org-table-eval-formula): Simplify mode string parsing and reduce scope of local variables.
2020-11-23 18:19:09 -05:00
(let ((c (string-to-char (match-string 1 fmt)))
(n (string-to-number (match-string 2 fmt))))
(cl-case c
(?p (setf (cl-getf calc-modes 'calc-internal-prec) n))
(?n (setf (cl-getf calc-modes 'calc-float-format) (list 'float n)))
(?f (setf (cl-getf calc-modes 'calc-float-format) (list 'fix n)))
(?s (setf (cl-getf calc-modes 'calc-float-format) (list 'sci n)))
(?e (setf (cl-getf calc-modes 'calc-float-format) (list 'eng n)))))
;; Remove matched flags from the mode string.
(setq fmt (replace-match "" t t fmt)))
org-table: Add mode flag to enable Calc units simplification mode * org-table.el (org-table-eval-formula): Add the `u` mode flag to enable Calc's units simplification mode. * test-org-table.el (test-org-table/mode-string-u): Add Unit test for the new mode flag. * org-manual.org: Document new mode flag.
2020-11-23 18:49:16 -05:00
(while (string-match "\\([tTUNLEDRFSu]\\)" fmt)
org-table: Simplify mode string parsing * org-table.el (org-table-eval-formula): Simplify mode string parsing and reduce scope of local variables.
2020-11-23 18:19:09 -05:00
(let ((c (string-to-char (match-string 1 fmt))))
(cl-case c
(?t (setq duration t numbers t
Clean up spacing to pass Emacs's pre-commit check * lisp/org-agenda.el (org-agenda-highlight-todo): (org-agenda-set-mode-name): * lisp/org-table.el (org-table-eval-formula): Avoid space before tab in indent. This is in preparation for syncing with the Emacs repo.
2021-09-29 00:22:40 -04:00
duration-output-format org-table-duration-custom-format))
org-table: Simplify mode string parsing * org-table.el (org-table-eval-formula): Simplify mode string parsing and reduce scope of local variables.
2020-11-23 18:19:09 -05:00
(?T (setq duration t numbers t duration-output-format nil))
(?U (setq duration t numbers t duration-output-format 'hh:mm))
(?N (setq numbers t))
(?L (setq literal t))
(?E (setq keep-empty t))
(?D (setf (cl-getf calc-modes 'calc-angle-mode) 'deg))
(?R (setf (cl-getf calc-modes 'calc-angle-mode) 'rad))
(?F (setf (cl-getf calc-modes 'calc-prefer-frac) t))
org-table: Add mode flag to enable Calc units simplification mode * org-table.el (org-table-eval-formula): Add the `u` mode flag to enable Calc's units simplification mode. * test-org-table.el (test-org-table/mode-string-u): Add Unit test for the new mode flag. * org-manual.org: Document new mode flag.
2020-11-23 18:49:16 -05:00
(?S (setf (cl-getf calc-modes 'calc-symbolic-mode) t))
(?u (setf (cl-getf calc-modes 'calc-simplify-mode) 'units))))
org-table: Simplify mode string parsing * org-table.el (org-table-eval-formula): Simplify mode string parsing and reduce scope of local variables.
2020-11-23 18:19:09 -05:00
;; Remove matched flags from the mode string.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq fmt (replace-match "" t t fmt)))
(unless (string-match "\\S-" fmt)
(setq fmt nil))))
org-table: Fix #ERROR in table formula with "@>" * lisp/org-table.el (org-table-eval-formula): Expand first and last references into proper fields coordinates before replacing ranges. Reported-by: Pablo S. Casas <pabloscasas@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/105895>
2016-03-25 17:17:08 -04:00
(when (and (not suppress-const) org-table-formula-use-constants)
(setq formula (org-table-formula-substitute-names formula)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq orig (or (get-text-property 1 :orig-formula formula) "?"))
org-table: Fix #ERROR in table formula with "@>" * lisp/org-table.el (org-table-eval-formula): Expand first and last references into proper fields coordinates before replacing ranges. Reported-by: Pablo S. Casas <pabloscasas@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/105895>
2016-03-25 17:17:08 -04:00
(setq formula (org-table-formula-handle-first/last-rc formula))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(while (> ndown 0)
Fix handling of duration for complex range formulas. Thanks to Christian Moe for signaling this bug.
2011-07-24 14:31:38 -04:00
(setq fields (org-split-string
org-table: Fix named fields with TAB-indentation * lisp/org-table.el (org-table-eval-formula): Properly parse named fields when indentation of current line ends with a TAB character. * testing/lisp/test-org-table.el (test-org-table/tab-indent): New test. Reported-by: Piotr Gajewski <pg7@outlook.com> <http://permalink.gmane.org/gmane.emacs.orgmode/103290>
2015-12-04 15:34:40 -05:00
(org-trim
(buffer-substring-no-properties
(line-beginning-position) (line-end-position)))
Fix handling of duration for complex range formulas. Thanks to Christian Moe for signaling this bug.
2011-07-24 14:31:38 -04:00
" *| *"))
;; replace fields with duration values if relevant
(if duration
(setq fields
(mapcar (lambda (x) (org-table-time-string-to-seconds x))
fields)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(if (eq numbers t)
(setq fields (mapcar
org-table.el: Fix range len bugs and inconsistencies * lisp/org-table.el (org-table-eval-formula): Keep empty fields during preprocessing. (org-table-make-reference): A range with only empty fields should not always return 0 but also empty string, consistent with field reference of an empty field. Use future design for nan but replicate current behavior. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. The range len bugs may lead to wrong calculations for range references with empty fields when the range len is relevant. Affects typically Calc vmean on simple range and without format specifier EN. Also Lisp with e. g. `length' on simple range or with L.
2012-12-28 09:02:01 -05:00
(lambda (x)
(if (string-match "\\S-" x)
(number-to-string (string-to-number x))
x))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
fields)))
(setq ndown (1- ndown))
(setq form (copy-sequence formula)
Fix handling of duration for complex range formulas. Thanks to Christian Moe for signaling this bug.
2011-07-24 14:31:38 -04:00
lispp (and (> (length form) 2) (equal (substring form 0 2) "'(")))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(if (and lispp literal) (setq lispp 'literal))
Tables: Introduce field coordinates for formulas, improve docs Patch by Michael Brand
2010-03-14 08:11:17 -04:00
;; Insert row and column number of formula result field
(while (string-match "[@$]#" form)
(setq form
(replace-match
(format "%d"
(save-match-data
(if (equal (substring form (match-beginning 0)
(1+ (match-beginning 0)))
"@")
(org-table-current-dline)
(org-table-current-column))))
t t form)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; Check for old vertical references
org-table: various small fixes * lisp/org-table.el (org-table-rewrite-old-row-references): Rename function. (org-table-eval-formula): Update caller. (org-table--to-generic-cell): Fix typo in string constant. (orgtbl-to-orgtbl): Properly respect params argument.
2014-12-09 01:12:39 -05:00
(org-table--error-on-old-row-references form)
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
;; Insert remote references
TBLFM remote ref: Add indirection of name or ID * doc/org.texi (References): Add description for indirection of NAME-OR-ID. * lisp/org-table.el (org-table-eval-formula): Make use of `org-table-remote-reference-indirection'. (org-table-remote-reference-indirection): New function. * testing/lisp/test-org-table.el (test-org-table/remote-reference-indirect): Change to use remote reference indirection.
2014-01-12 04:53:06 -05:00
(setq form (org-table-remote-reference-indirection form))
org-table: Allow accentuated characters in remote table names * lisp/org-table.el (org-table-eval-formula): Allow a larger set of characters in remote name. Reported-by: flav <flav.justflav@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/75690>
2015-01-31 19:03:45 -05:00
(while (string-match "\\<remote([ \t]*\\([^,)]+\\)[ \t]*,[ \t]*\\([^\n)]+\\))" form)
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
(setq form
(replace-match
(save-match-data
(org-table-make-reference
org-table.el: Fix bug about handling remote references as durations. * org-table.el (org-table-eval-formula): Fix bug about handling remote references as durations. Thanks to Sébastien Vauban for reporting this.
2012-04-10 18:43:05 -04:00
(let ((rmtrng (org-table-get-remote-range
(match-string 1 form) (match-string 2 form))))
(if duration
(if (listp rmtrng)
(mapcar (lambda(x) (org-table-time-string-to-seconds x)) rmtrng)
(org-table-time-string-to-seconds rmtrng))
rmtrng))
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
keep-empty numbers lispp))
t t form)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; Insert complex ranges
Fix table parsing bug.
2008-10-15 07:11:48 -04:00
(while (and (string-match org-table-range-regexp form)
(> (length (match-string 0 form)) 1))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(setq formrg
(save-match-data
(org-table-get-range
(match-string 0 form) org-table-current-begin-pos n0)))
org-table: Throw an error when replacing invalid references. * org-table.el (org-table-eval-formula): Throw an error when trying to replace complex range with invalid references. Thanks to Ken Williams for pointing this out.
2011-07-23 11:23:19 -04:00
(setq formrpl
(save-match-data
(org-table-make-reference
Fix handling of duration for complex range formulas. Thanks to Christian Moe for signaling this bug.
2011-07-24 14:31:38 -04:00
;; possibly handle durations
(if duration
org-table: fix another bug in duration computation. * org-table.el (org-table-eval-formula): Fix bug when a formula "range" is just one cell. (org-table-time-string-to-seconds): don't check whether we manipulate a string.
2011-07-24 18:55:04 -04:00
(if (listp formrg)
(mapcar (lambda(x) (org-table-time-string-to-seconds x)) formrg)
(org-table-time-string-to-seconds formrg))
formrg)
org-table: Throw an error when replacing invalid references. * org-table.el (org-table-eval-formula): Throw an error when trying to replace complex range with invalid references. Thanks to Ken Williams for pointing this out.
2011-07-23 11:23:19 -04:00
keep-empty numbers lispp)))
(if (not (save-match-data
(string-match (regexp-quote form) formrpl)))
(setq form (replace-match formrpl t t form))
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(user-error "Spreadsheet error: invalid reference \"%s\"" form)))
org-table: Fix formulas with relative ranges in current row * lisp/org-table.el (org-table-eval-formula): Fix formulas with relative ranges in current row. Reported-by: Eric S Fraga <e.fraga@ucl.ac.uk> <http://permalink.gmane.org/gmane.emacs.orgmode/97727>
2015-06-09 08:53:18 -04:00
;; Insert simple ranges, i.e. included in the current row.
(while (string-match
"\\$\\(\\([-+]\\)?[0-9]+\\)\\.\\.\\$\\(\\([-+]\\)?[0-9]+\\)"
form)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq form
(replace-match
(save-match-data
(org-table-make-reference
Remove some home-grown copies of cl-lib functions. * lisp/org.el (org-count, org-remove-if, org-remove-if-not): (org-reduce, org-every, org-some): Obsolete, use cl-lib versions everywhere. (org-sublist): Reimplement in terms of `cl-subseq'; make obsolete.
2015-11-06 07:04:20 -05:00
(cl-subseq fields
(+ (if (match-end 2) n0 0)
(string-to-number (match-string 1 form))
-1)
(+ (if (match-end 4) n0 0)
(string-to-number (match-string 3 form))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
keep-empty numbers lispp))
t t form)))
(setq form0 form)
;; Insert the references to fields in same row
ttt
2011-03-03 16:06:08 -05:00
(while (string-match "\\$\\(\\([-+]\\)?[0-9]+\\)" form)
org-table: Simplify mode string parsing * org-table.el (org-table-eval-formula): Simplify mode string parsing and reduce scope of local variables.
2020-11-23 18:19:09 -05:00
(let* ((n (+ (string-to-number (match-string 1 form))
(if (match-end 2) n0 0)))
(x (nth (1- (if (= n 0) n0 (max n 1))) fields)))
(setq formrpl (save-match-data
(org-table-make-reference
x keep-empty numbers lispp)))
(when (or (not x)
(save-match-data
(string-match (regexp-quote formula) formrpl)))
(user-error "Invalid field specifier \"%s\""
(match-string 0 form))))
org-table.el (org-table-eval-formula): Fix variable name typo
2014-07-29 11:36:39 -04:00
(setq form (replace-match formrpl t t form)))
Make the regexp matching the beginning of a table more explicit * org-table.el (org-table-get-remote-range): Enhance regexp. TINYCHANGE
2014-08-20 08:32:47 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(if lispp
(setq ev (condition-case nil
Revert "org-babel-read: Obey `org-confirm-babel-evaluate'" This reverts commit 10e857d42859a55b23cd4206ffce3ebd0f678583. * lisp/ob-core.el: (org-babel-merge-params): (org-babel-process-params): (org-babel-read): * lisp/org-table.el: Add FIXME comments to places where arbitrary code execution may happen. The extra query is reverted until we develop a better code execution safety system for Org. The commit introduced too many user queries, making the whole idea of asking users to execute code from Org files not useful. Link: https://orgmode.org/list/878rinadlq.fsf@localhost
2023-01-02 02:49:11 -05:00
;; FIXME: Arbitrary code evaluation.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(eval (eval (read form)))
fix a stray "user-error" introduced in bd89d6a02f * lisp/org-table.el (org-table-eval-formula): The condition-case to check for must be "error", not "user-error". This fixes these test failures: 4 unexpected results: FAILED test-org-table/references/format-specifier-E FAILED test-org-table/references/format-specifier-EL FAILED test-org-table/references/format-specifier-L FAILED test-org-table/references/format-specifier-none Reported in: http://permalink.gmane.org/gmane.emacs.orgmode/67450 http://permalink.gmane.org/gmane.emacs.orgmode/67503
2013-03-03 14:29:58 -05:00
(error "#ERROR"))
org-table.el: Implement computation of durations with "T" flag * install/git/org-mode/lisp/org-table.el (org-table-time-string-to-seconds) (org-table-time-seconds-to-string): New functions. (org-table-eval-formula): Implement the "T" (time) flag for computing durations.
2011-07-02 07:08:54 -04:00
ev (if (numberp ev) (number-to-string ev) ev)
org-table: Throw an error when replacing invalid references. * org-table.el (org-table-eval-formula): Throw an error when trying to replace complex range with invalid references. Thanks to Ken Williams for pointing this out.
2011-07-23 11:23:19 -04:00
ev (if duration (org-table-time-seconds-to-string
org-table: new defcustom `org-table-duration-custom-format'. This allows to display the output of duration computations as a fraction of days, hours, minutes or seconds. Thanks to Daniel E. Doherty for bringing up this need. * org-table.el (org-table-duration-custom-format): New defcustom to select output format of durations computations. (org-table-time-seconds-to-string): Use the new variable. (org-table-eval-formula): Allow `t' as a flag, on top of `T'. `t' will use the custom output format defined in `org-table-duration-custom-format.
2011-07-27 07:14:37 -04:00
(string-to-number ev)
Tiny formatting fixes * lisp/ox.el (org-export-table-dimensions): * lisp/ox-texinfo.el (org-texinfo-template): * lisp/ox-md.el (org-md-link): * lisp/ox-icalendar.el (org-icalendar-use-UTC-date-time-p): * lisp/ox-ascii.el (org-ascii-fixed-width): * lisp/org.el (org-context): * lisp/org-table.el (org-table-eval-formula) (org-table-export): * lisp/org-refile.el: * lisp/org-plot.el (org-plot/gnuplot-to-grid-data): * lisp/org-num.el (org-num): * lisp/org-mouse.el (org-mouse-popup-global-menu) (org-mouse-context-menu): * lisp/org-macro.el (org-macro): * lisp/org-lint.el (org-lint): * lisp/org-keys.el (org-keys): * lisp/org-duration.el: * lisp/org-clock.el (org-clock-get-last-clock-out-time) (org-clock-update-mode-line, org-find-open-clocks): * lisp/org-agenda.el (org-diary) (org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item) (org-agenda-highlight-todo, org-cmp-alpha) (org-agenda-filter-by-category): * lisp/ol.el (org-link-expand-abbrev, ol): * lisp/ol-docview.el (ol-docview): * lisp/ol-bibtex.el (org-execute-file-search-in-bibtex) (org-bibtex, org-bibtex-read): * lisp/ol-bbdb.el (org-bbdb-anniversary-description): * lisp/ob-tangle.el (org-babel-tangle-jump-to-org): * lisp/ob-table.el (org-babel-table-truncate-at-newline): * lisp/ob-stan.el: * lisp/ob-sqlite.el (org-babel-sqlite-table-or-scalar): * lisp/ob-sql.el: * lisp/ob-shen.el: * lisp/ob-shell.el (org-babel-prep-session:shell) (org-babel-prep-session:shell): * lisp/ob-sed.el (org-babel-execute:sed) (org-babel-execute:sed): * lisp/ob-screen.el: * lisp/ob-sass.el: * lisp/ob-ruby.el (org-babel-prep-session:ruby) (org-babel-prep-session:ruby): * lisp/ob-ref.el (org-babel-ref-resolve, ob-ref): * lisp/ob-python.el (org-babel-prep-session:python) (org-babel-prep-session:python): * lisp/ob-plantuml.el: * lisp/ob-picolisp.el: * lisp/ob-perl.el: * lisp/ob-org.el: * lisp/ob-octave.el (org-babel-prep-session:octave) (org-babel-prep-session:octave) (org-babel-octave-evaluate-session): * lisp/ob-ocaml.el: * lisp/ob-mscgen.el (org-babel-execute:mscgen) (org-babel-execute:mscgen): * lisp/ob-maxima.el: (ob-maxima): * lisp/ob-matlab.el: * lisp/ob-makefile.el: * lisp/ob-lua.el (org-babel-prep-session:lua) (org-babel-prep-session:lua): * lisp/ob-lisp.el: * lisp/ob-ledger.el: * lisp/ob-latex.el (org-babel-expand-body:latex) (org-babel-expand-body:latex, ob-latex): * lisp/ob-js.el: * lisp/ob-java.el: * lisp/ob-io.el (org-babel-prep-session:io) (org-babel-prep-session:io): * lisp/ob-hledger.el: * lisp/ob-haskell.el: * lisp/ob-groovy.el (org-babel-groovy-wrapper-method) (org-babel-groovy-evaluate): * lisp/ob-gnuplot.el: * lisp/ob-fortran.el (org-babel-expand-body:fortran) (org-babel-expand-body:fortran): * lisp/ob-forth.el (org-babel-forth-session-execute): * lisp/ob-exp.el (ob-exp): * lisp/ob-eval.el: * lisp/ob-emacs-lisp.el: * lisp/ob-ebnf.el: * lisp/ob-dot.el: * lisp/ob-ditaa.el: * lisp/ob-css.el: * lisp/ob-core.el (org-babel-put-rownames): * lisp/ob-coq.el: * lisp/ob-comint.el: * lisp/ob-calc.el: * lisp/ob-awk.el: * lisp/ob-asymptote.el: * lisp/ob-abc.el: * lisp/ob-R.el (org-babel-prep-session:R): Formatting fixes.
2020-02-18 16:57:37 -05:00
duration-output-format)
ev))
org-table: Assume `calc-eval' is always available * lisp/org-table.el (org-table-maybe-eval-formula): (org-table-eval-formula): Assume `calc-eval' is always available, which is the case on any recent GNU Emacs.
2016-07-21 04:25:44 -04:00
org-table: Fix calculations with locale specific time-stamps * lisp/org-table.el (org-table-eval-formula): Fix calculations with locale specific time-stamps. * testing/lisp/test-org-table.el (test-org-table/time-stamps): New test. Reported-by: "Ulrich J. Herter" <ujh@posteo.de> <http://permalink.gmane.org/gmane.emacs.orgmode/108165>
2016-07-21 05:49:15 -04:00
;; Use <...> time-stamps so that Calc can handle them.
(setq form
(replace-regexp-in-string org-ts-regexp-inactive "<\\1>" form))
;; Internationalize local time-stamps by setting locale to
;; "C".
(setq form
(replace-regexp-in-string
org-ts-regexp
(lambda (ts)
(let ((system-time-locale "C"))
(format-time-string
(org-time-stamp-format
(string-match-p "[0-9]\\{1,2\\}:[0-9]\\{2\\}" ts))
Use higher level helpers instead of `encode-time' * lisp/org-clock.el (org-clock-sum) (org-clock-update-time-maybe): Prefer org-time-string-to-seconds to doing it by hand. * lisp/org-macs.el (org-2ft): Prefer org-time-string-to-seconds to doing it by hand. * lisp/org-table.el (org-table-eval-formula): Prefer org-time-string-to-time to doing it by hand. Max Nikulin: A larger patch "Improve Org usage of timestamps" was suggested in https://debbugs.gnu.org/cgi/bugreport.cgi?bug=54764#10 Only cosmetic changes are selected for this patch.
2022-04-09 03:17:09 -04:00
(save-match-data (org-time-string-to-time ts)))))
org-table: Fix calculations with locale specific time-stamps * lisp/org-table.el (org-table-eval-formula): Fix calculations with locale specific time-stamps. * testing/lisp/test-org-table.el (test-org-table/time-stamps): New test. Reported-by: "Ulrich J. Herter" <ujh@posteo.de> <http://permalink.gmane.org/gmane.emacs.orgmode/108165>
2016-07-21 05:49:15 -04:00
form t t))
org-table.el: Handle localized time-stamps in formulas evaluation * org-table.el (org-table-eval-formula): Handle localized time-stamps by internally converting them to english during formulas evaluation. Thanks to Viktor Rosenfeld for suggesting this.
2012-12-19 19:36:05 -05:00
org-table.el: handle =02:34;t durations formula correctly. * org-table.el (org-table-time-string-to-seconds): Return the empty string if provided. (org-table-eval-formula): When assigning a duration string, handle it correctly -- i.e. don't make any computation on it, except the one to insert it using the correct duration format. Thanks to Sébastien Vauban for spotting this.
2012-05-05 10:14:33 -04:00
(setq ev (if (and duration (string-match "^[0-9]+:[0-9]+\\(?::[0-9]+\\)?$" form))
form
org-table: Remove unused org-tbl-calc-modes variable declaration * org-table.el (org-tbl-calc-modes): Remove variable declaration as the varialble is used only within `org-table-eval-formula'. * org-table.el (org-table-eval-formula): Rename `org-tbl-calc-modes` local variable without the `org-tbl-` prefix and use the gained screen real estate to avoid indirection through covenience macro. This requires moving the mode lookup table from `org-table--set-calc-mode` to here. * org-table.el (org-table--set-calc-mode): Drop convenience macro. Note that the macro was not working as intended when the caller tried to add a new entry in the plist as in this case the macro would create a new plist with the added entry but return the old one.
2020-11-23 17:44:51 -05:00
(calc-eval (cons form calc-modes)
Use nan for empty fields in Calc formulas * doc/org.texi (Formula syntax for Calc): Add explanation and example for empty field. * lisp/org-table.el (org-table-eval-formula): Use `keep-empty' in more places. (org-table-make-reference): Use nan (not a number) for empty fields in Calc formulas. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. (test-org-table/empty-field): New examples dealing with empty fields. (test-org-table/copy-field): New ert-deftest with examples dealing with empty fields. This makes it possible to write spreadsheet Calc formulas that check for empty fields: To sum the first two columns unless one or both empty: $3 = if("$1" = "nan" || "$2" = "nan", string(""), $1 + $2); E
2012-12-28 09:03:10 -05:00
(when (and (not keep-empty) numbers) 'num)))
org-table: Throw an error when replacing invalid references. * org-table.el (org-table-eval-formula): Throw an error when trying to replace complex range with invalid references. Thanks to Ken Williams for pointing this out.
2011-07-23 11:23:19 -04:00
ev (if duration (org-table-time-seconds-to-string
org-table.el: handle =02:34;t durations formula correctly. * org-table.el (org-table-time-string-to-seconds): Return the empty string if provided. (org-table-eval-formula): When assigning a duration string, handle it correctly -- i.e. don't make any computation on it, except the one to insert it using the correct duration format. Thanks to Sébastien Vauban for spotting this.
2012-05-05 10:14:33 -04:00
(if (string-match "^[0-9]+:[0-9]+\\(?::[0-9]+\\)?$" ev)
(string-to-number (org-table-time-string-to-seconds ev))
(string-to-number ev))
duration-output-format)
ev)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(when org-table-formula-debug
org-table.el: Restore window configuration when debugging formula * lisp/org-table.el (org-table-eval-formula): Restore window configuration when debugging table formula is done. Thanks to Eric Fraga for reporting this.
2020-02-03 14:47:23 -05:00
(let ((wcf (current-window-configuration)))
(with-output-to-temp-buffer "*Substitution History*"
(princ (format "Substitution history of formula
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Orig: %s
$xyz-> %s
@r$c-> %s
$1-> %s\n" orig formula form0 form))
org-table.el: Restore window configuration when debugging formula * lisp/org-table.el (org-table-eval-formula): Restore window configuration when debugging table formula is done. Thanks to Eric Fraga for reporting this.
2020-02-03 14:47:23 -05:00
(if (consp ev)
(princ (format " %s^\nError: %s"
(make-string (car ev) ?\-) (nth 1 ev)))
(princ (format "Result: %s\nFormat: %s\nFinal: %s"
ev (or fmt "NONE")
(if fmt (format fmt (string-to-number ev)) ev)))))
(setq bw (get-buffer-window "*Substitution History*"))
(org-fit-window-to-buffer bw)
(unless (and (called-interactively-p 'any) (not ndown))
(unless (let (inhibit-redisplay)
(y-or-n-p "Debugging Formula. Continue to next? "))
(org-table-align)
(user-error "Abort"))
(delete-window bw)
(message "")
(set-window-configuration wcf))))
Table formula: Fix for Lisp return value nil * lisp/org-table.el (org-table-eval-formula): Substitute `listp' with `consp'. * testing/lisp/test-org-table.el (test-org-table/lisp-return-value): Fix test.
2014-09-14 04:44:28 -04:00
(when (consp ev) (setq fmt nil ev "#ERROR"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-justify-field-maybe
New option `org-table-formula-field-format'. Format for fields which contain the result of a formula. For example, using \"~%s~\" will display the result within tilde characters. Beware that modifying the display can prevent the field from being used in another formula. Based on an idea of Dov Grobgeld.
2011-12-11 08:05:13 -05:00
(format org-table-formula-field-format
Fix last commit * lisp/org-table.el (org-table-eval-formula): Result is not always a string. * testing/lisp/test-org-table.el (test-org-table/copy-field): Update test.
2017-01-17 04:19:05 -05:00
(cond
((not (stringp ev)) ev)
(fmt (format fmt (string-to-number ev)))
;; Replace any active time stamp in the result with
;; an inactive one. Dates in tables are likely
;; piece of regular data, not meant to appear in the
;; agenda.
(t (replace-regexp-in-string org-ts-regexp "[\\1]" ev)))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(if (and down (> ndown 0) (looking-at ".*\n[ \t]*|[^-]"))
(call-interactively 'org-return)
(setq ndown 0)))
(and down (org-table-maybe-recalculate-line))
(or suppress-align (and org-table-may-need-update
(org-table-align))))))
(defun org-table-put-field-property (prop value)
(save-excursion
(put-text-property (progn (skip-chars-backward "^|") (point))
(progn (skip-chars-forward "^|") (point))
prop value)))
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
(defun org-table-get-range (desc &optional tbeg col highlight corners-only)
Fix typos in org-table.el
2008-12-16 11:49:26 -05:00
"Get a calc vector from a column, according to descriptor DESC.
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Optional arguments TBEG and COL can give the beginning of the table and
the current column, to avoid unnecessary parsing.
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
HIGHLIGHT means just highlight the range.
When CORNERS-ONLY is set, only return the corners of the range as
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
a list (line1 column1 line2 column2) where line1 and line2 are
line numbers relative to beginning of table, or TBEG, and column1
and column2 are table column numbers."
Use `string-match-p' instead of `org-string-match-p' * contrib/lisp/org-contacts.el (org-contacts-filter): (org-contacts-complete-group): (org-contacts-complete-tags-props): * contrib/lisp/org-wl.el (org-wl-open): * contrib/lisp/ox-bibtex.el (org-bibtex-merge-contiguous-citations): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-processing.el (org-babel-processing-view-sketch): * lisp/ob-stan.el (org-babel-execute:stan): * lisp/org-agenda.el (org-agenda-get-category-icon): * lisp/org-clock.el (org-clock-into-drawer): * lisp/org-element.el (org-element-link-parser): * lisp/org-lint.el (org-lint-orphaned-affiliated-keywords): (org-lint-invalid-babel-call-block): (org-lint-colon-in-name): * lisp/org-list.el (org-list-item-body-column): * lisp/org-macro.el (org-macro-replace-all): * lisp/org-plot.el (org-plot/gnuplot-script): * lisp/org-table.el (org-table-export): (org-table-align): (org-table-get-range): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-substitute-names): (org-table-show-reference): (orgtbl-to-texinfo): (org-table-remote-reference-indirection): * lisp/org.el (org-make-link-string): (org--open-elisp-link): (org-open-at-point): (org-store-log-note): (org-cached-entry-get): (org--valid-property-p): (org-entry-properties): (org-buffer-property-keys): (org-insert-drawer): (org-display-inline-images): (org-in-commented-heading-p): * lisp/ox-ascii.el (org-ascii-keyword): * lisp/ox-beamer.el (org-beamer--format-frame): * lisp/ox-html.el (org-html-keyword): * lisp/ox-latex.el (org-latex--label): (org-latex-headline): (org-latex-item): (org-latex-keyword): (org-latex--inline-image): (org-latex-src-block): * lisp/ox-odt.el (org-odt-styles-dir): (org-odt-keyword): (org-odt--translate-latex-fragments): * lisp/ox-texinfo.el (org-texinfo-template): (org-texinfo-keyword): (org-texinfo-src-block): * lisp/ox.el (org-export-inline-image-p): (org-export-file-uri): * testing/lisp/test-org-table.el (test-org-table/to-generic): (test-org-table/to-latex): (test-org-table/to-html): (test-org-table/named-field): (test-org-table/named-column): (test-org-table/tab-indent): (test-org-table/first-rc): (test-org-table/last-rc): Use `string-match-p' instead of `org-string-match-p'.
2016-07-25 09:21:12 -04:00
(let* ((desc (if (string-match-p "\\`\\$[0-9]+\\.\\.\\$[0-9]+\\'" desc)
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
(replace-regexp-in-string "\\$" "@0$" desc)
desc))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(col (or col (org-table-current-column)))
(tbeg (or tbeg (org-table-begin)))
(thisline (count-lines tbeg (line-beginning-position))))
(unless (string-match org-table-range-regexp desc)
(user-error "Invalid table range specifier `%s'" desc))
(let ((rangep (match-end 3))
(r1 (let ((r (and (match-end 1) (match-string 1 desc))))
(or (save-match-data
(and (org-string-nw-p r)
(org-table--descriptor-line r thisline)))
thisline)))
(r2 (let ((r (and (match-end 4) (match-string 4 desc))))
(or (save-match-data
(and (org-string-nw-p r)
(org-table--descriptor-line r thisline)))
thisline)))
(c1 (let ((c (and (match-end 2) (substring (match-string 2 desc) 1))))
(if (or (not c) (= (string-to-number c) 0)) col
(+ (string-to-number c)
(if (memq (string-to-char c) '(?- ?+)) col 0)))))
(c2 (let ((c (and (match-end 5) (substring (match-string 5 desc) 1))))
(if (or (not c) (= (string-to-number c) 0)) col
(+ (string-to-number c)
(if (memq (string-to-char c) '(?- ?+)) col 0))))))
(save-excursion
(if (and (not corners-only)
(or (not rangep) (and (= r1 r2) (= c1 c2))))
;; Just one field.
(progn
(forward-line (- r1 thisline))
(while (not (looking-at org-table-dataline-regexp))
(forward-line))
(prog1 (org-trim (org-table-get-field c1))
(when highlight (org-table-highlight-rectangle))))
;; A range, return a vector. First sort the numbers to get
;; a regular rectangle.
(let ((first-row (min r1 r2))
(last-row (max r1 r2))
(first-column (min c1 c2))
(last-column (max c1 c2)))
(if corners-only (list first-row first-column last-row last-column)
;; Copy the range values into a list.
org-table: Fix computation with backwards ranges * lisp/org-table.el (org-table-get-range): Use correct values to extract range. This is important when range is defined backwards (e.g., @-I..@-II). Reported-by: Sebastien Vauban <http://permalink.gmane.org/gmane.emacs.orgmode/99430>
2015-08-03 16:56:22 -04:00
(forward-line (- first-row thisline))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(while (not (looking-at org-table-dataline-regexp))
(forward-line)
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(cl-incf first-row))
org-table: Fix computation with backwards ranges * lisp/org-table.el (org-table-get-range): Use correct values to extract range. This is important when range is defined backwards (e.g., @-I..@-II). Reported-by: Sebastien Vauban <http://permalink.gmane.org/gmane.emacs.orgmode/99430>
2015-08-03 16:56:22 -04:00
(org-table-goto-column first-column)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(let ((beg (point)))
org-table: Fix computation with backwards ranges * lisp/org-table.el (org-table-get-range): Use correct values to extract range. This is important when range is defined backwards (e.g., @-I..@-II). Reported-by: Sebastien Vauban <http://permalink.gmane.org/gmane.emacs.orgmode/99430>
2015-08-03 16:56:22 -04:00
(forward-line (- last-row first-row))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(while (not (looking-at org-table-dataline-regexp))
(forward-line -1))
org-table: Fix computation with backwards ranges * lisp/org-table.el (org-table-get-range): Use correct values to extract range. This is important when range is defined backwards (e.g., @-I..@-II). Reported-by: Sebastien Vauban <http://permalink.gmane.org/gmane.emacs.orgmode/99430>
2015-08-03 16:56:22 -04:00
(org-table-goto-column last-column)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(let ((end (point)))
(when highlight
(org-table-highlight-rectangle
beg (progn (skip-chars-forward "^|\n") (point))))
;; Return string representation of calc vector.
(mapcar #'org-trim
(apply #'append
(org-table-copy-region beg end))))))))))))
(defun org-table--descriptor-line (desc cline)
"Return relative line number corresponding to descriptor DESC.
The cursor is currently in relative line number CLINE."
(if (string-match "\\`[0-9]+\\'" desc)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(aref org-table-dlines (string-to-number desc))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(when (or (not (string-match
"^\\(\\([-+]\\)?\\(I+\\)\\)?\\(\\([-+]\\)?\\([0-9]+\\)\\)?"
;; 1 2 3 4 5 6
desc))
(and (not (match-end 3)) (not (match-end 6)))
(and (match-end 3) (match-end 6) (not (match-end 5))))
(user-error "Invalid row descriptor `%s'" desc))
(let* ((hn (and (match-end 3) (- (match-end 3) (match-beginning 3))))
(hdir (match-string 2 desc))
(odir (match-string 5 desc))
(on (and (match-end 6) (string-to-number (match-string 6 desc))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(rel (and (match-end 6)
(or (and (match-end 1) (not (match-end 3)))
(match-end 5)))))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(when (and hn (not hdir))
(setq cline 0)
(setq hdir "+")
org-table: Add missing "cl-" prefixes * lisp/org-table.el (org-table--descriptor-line): (org-table--row-type): Add "cl-" prefixes.
2016-05-26 10:12:42 -04:00
(when (eq (aref org-table-current-line-types 0) 'hline) (cl-decf hn)))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(when (and (not hn) on (not odir)) (user-error "Should never happen"))
(when hn
(setq cline
(org-table--row-type 'hline hn cline (equal hdir "-") nil desc)))
(when on
(setq cline
(org-table--row-type 'dline on cline (equal odir "-") rel desc)))
cline)))
(defun org-table--row-type (type n i backwards relative desc)
"Return relative line of Nth row with type TYPE.
Search starts from relative line I. When BACKWARDS in non-nil,
look before I. When RELATIVE is non-nil, the reference is
relative. DESC is the original descriptor that started the
search, as a string."
(let ((l (length org-table-current-line-types)))
(catch :exit
(dotimes (_ n)
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(while (and (cl-incf i (if backwards -1 1))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(>= i 0)
(< i l)
(not (eq (aref org-table-current-line-types i) type))
;; We are going to cross a hline. Check if this is
;; an authorized move.
(cond
((not relative))
((not (eq (aref org-table-current-line-types i) 'hline)))
((eq org-table-relative-ref-may-cross-hline t))
((eq org-table-relative-ref-may-cross-hline 'error)
(user-error "Row descriptor %s crosses hline" desc))
org-table: Add missing "cl-" prefixes * lisp/org-table.el (org-table--descriptor-line): (org-table--row-type): Add "cl-" prefixes.
2016-05-26 10:12:42 -04:00
(t (cl-decf i (if backwards -1 1)) ; Step back.
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(throw :exit nil)))))))
org-table: Fix freeze with invalid hline reference * lisp/org-table.el (org-table-find-row-type): Don't end up on the last hline, which doesn't exist, per e793158bc8492752745170e20839ddbb613fcb63. Reported-by: Artis Rozentāls <artis.rozentals@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/93654>
2014-12-30 16:37:44 -05:00
(cond ((or (< i 0) (>= i l))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(user-error "Row descriptor %s leads outside table" desc))
org-table: Fix freeze with invalid hline reference * lisp/org-table.el (org-table-find-row-type): Don't end up on the last hline, which doesn't exist, per e793158bc8492752745170e20839ddbb613fcb63. Reported-by: Artis Rozentāls <artis.rozentals@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/93654>
2014-12-30 16:37:44 -05:00
;; The last hline doesn't exist. Instead, point to last row
;; in table.
((= i (1- l)) (1- i))
(t i))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: various small fixes * lisp/org-table.el (org-table-rewrite-old-row-references): Rename function. (org-table-eval-formula): Update caller. (org-table--to-generic-cell): Fix typo in string constant. (orgtbl-to-orgtbl): Properly respect params argument.
2014-12-09 01:12:39 -05:00
(defun org-table--error-on-old-row-references (s)
(when (string-match "&[-+0-9I]" s)
(user-error "Formula contains old &row reference, please rewrite using @-syntax")))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-make-reference (elements keep-empty numbers lispp)
"Convert list ELEMENTS to something appropriate to insert into formula.
KEEP-EMPTY indicated to keep empty fields, default is to skip them.
NUMBERS indicates that everything should be converted to numbers.
Use nan for empty fields in Calc formulas * doc/org.texi (Formula syntax for Calc): Add explanation and example for empty field. * lisp/org-table.el (org-table-eval-formula): Use `keep-empty' in more places. (org-table-make-reference): Use nan (not a number) for empty fields in Calc formulas. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. (test-org-table/empty-field): New examples dealing with empty fields. (test-org-table/copy-field): New ert-deftest with examples dealing with empty fields. This makes it possible to write spreadsheet Calc formulas that check for empty fields: To sum the first two columns unless one or both empty: $3 = if("$1" = "nan" || "$2" = "nan", string(""), $1 + $2); E
2012-12-28 09:03:10 -05:00
LISPP non-nil means to return something appropriate for a Lisp
Protect remaining apostrophes in docstrings Protect apostrophes not covered by the last backport. Convert expressions like '(...) to \\='(...) and symbols written as 'name to `name'. (In addition to ensuring the correct display, the latter also improves consistency with many Org docstrings.) If these aren't protected, Emacs 25 may display them as curved quotes in the help buffer, depending on the value of text-quoting-style.
2015-09-21 00:24:12 -04:00
list, `literal' is for the format specifier L."
Use nan for empty fields in Calc formulas * doc/org.texi (Formula syntax for Calc): Add explanation and example for empty field. * lisp/org-table.el (org-table-eval-formula): Use `keep-empty' in more places. (org-table-make-reference): Use nan (not a number) for empty fields in Calc formulas. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. (test-org-table/empty-field): New examples dealing with empty fields. (test-org-table/copy-field): New ert-deftest with examples dealing with empty fields. This makes it possible to write spreadsheet Calc formulas that check for empty fields: To sum the first two columns unless one or both empty: $3 = if("$1" = "nan" || "$2" = "nan", string(""), $1 + $2); E
2012-12-28 09:03:10 -05:00
;; Calc nan (not a number) is used for the conversion of the empty
;; field to a reference for several reasons: (i) It is accepted in a
;; Calc formula (e. g. "" or "()" would result in a Calc error).
;; (ii) In a single field (not in range) it can be distinguished
;; from "(nan)" which is the reference made from a single field
;; containing "nan".
(if (stringp elements)
;; field reference
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(if lispp
(if (eq lispp 'literal)
elements
org-table.el: Fix range len bugs for empty ranges (org-table-make-reference): A range with only empty fields should lead to length 0. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. The range len bugs may lead to wrong calculations for range references with empty fields when the range len is relevant. Affects typically Calc vmean on simple range and without format specifier EN. Also Lisp with e. g. `length' on simple range or with L. It is worth a small compatibility change: For a range with only empty fields it is now possible and necessary to choose different behaviors of vmean by adding the format specifiers E and/or N. This is a follow-up of commit 764315b3fce26de59189b957a8049e299209043a.
2013-04-09 08:35:21 -04:00
(if (and (eq elements "") (not keep-empty))
""
(prin1-to-string
(if numbers (string-to-number elements) elements))))
Use nan for empty fields in Calc formulas * doc/org.texi (Formula syntax for Calc): Add explanation and example for empty field. * lisp/org-table.el (org-table-eval-formula): Use `keep-empty' in more places. (org-table-make-reference): Use nan (not a number) for empty fields in Calc formulas. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. (test-org-table/empty-field): New examples dealing with empty fields. (test-org-table/copy-field): New ert-deftest with examples dealing with empty fields. This makes it possible to write spreadsheet Calc formulas that check for empty fields: To sum the first two columns unless one or both empty: $3 = if("$1" = "nan" || "$2" = "nan", string(""), $1 + $2); E
2012-12-28 09:03:10 -05:00
(if (string-match "\\S-" elements)
(progn
(when numbers (setq elements (number-to-string
(string-to-number elements))))
(concat "(" elements ")"))
(if (or (not keep-empty) numbers) "(0)" "nan")))
;; range reference
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(unless keep-empty
(setq elements
(delq nil
(mapcar (lambda (x) (if (string-match "\\S-" x) x nil))
elements))))
org-table.el: Fix range len bugs for empty ranges (org-table-make-reference): A range with only empty fields should lead to length 0. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. The range len bugs may lead to wrong calculations for range references with empty fields when the range len is relevant. Affects typically Calc vmean on simple range and without format specifier EN. Also Lisp with e. g. `length' on simple range or with L. It is worth a small compatibility change: For a range with only empty fields it is now possible and necessary to choose different behaviors of vmean by adding the format specifiers E and/or N. This is a follow-up of commit 764315b3fce26de59189b957a8049e299209043a.
2013-04-09 08:35:21 -04:00
(setq elements (or elements '())) ; if delq returns nil then we need '()
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(if lispp
(mapconcat
(lambda (x)
(if (eq lispp 'literal)
x
(prin1-to-string (if numbers (string-to-number x) x))))
elements " ")
(concat "[" (mapconcat
(lambda (x)
org-table.el: Fix range len bugs and inconsistencies * lisp/org-table.el (org-table-eval-formula): Keep empty fields during preprocessing. (org-table-make-reference): A range with only empty fields should not always return 0 but also empty string, consistent with field reference of an empty field. Use future design for nan but replicate current behavior. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. The range len bugs may lead to wrong calculations for range references with empty fields when the range len is relevant. Affects typically Calc vmean on simple range and without format specifier EN. Also Lisp with e. g. `length' on simple range or with L.
2012-12-28 09:02:01 -05:00
(if (string-match "\\S-" x)
(if numbers
(number-to-string (string-to-number x))
x)
Use nan for empty fields in Calc formulas * doc/org.texi (Formula syntax for Calc): Add explanation and example for empty field. * lisp/org-table.el (org-table-eval-formula): Use `keep-empty' in more places. (org-table-make-reference): Use nan (not a number) for empty fields in Calc formulas. * testing/lisp/test-org-table.el: Adapt expected for several ert-deftest. (test-org-table/empty-field): New examples dealing with empty fields. (test-org-table/copy-field): New ert-deftest with examples dealing with empty fields. This makes it possible to write spreadsheet Calc formulas that check for empty fields: To sum the first two columns unless one or both empty: $3 = if("$1" = "nan" || "$2" = "nan", string(""), $1 + $2); E
2012-12-28 09:03:10 -05:00
(if (or (not keep-empty) numbers) "0" "nan")))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
elements
",") "]"))))
org-table.el: org-table-recalculate is quieter * lisp/org-table.el (org-table-recalculate): Removed message for start of processing. When ALL is t, messages are printed at most once per second. TINYCHANGE
2014-11-12 06:45:03 -05:00
(defun org-table-message-once-per-second (t1 &rest args)
"If there has been more than one second since T1, display message.
ARGS are passed as arguments to the `message' function. Returns
current time if a message is printed, otherwise returns T1. If
T1 is nil, always messages."
(let ((curtime (current-time)))
Prune Emacs 25.1 compatibility kludges * lisp/oc-basic.el (org-cite-basic--field-less-p): * lisp/ol-eww.el (org-eww-store-link): * lisp/org-agenda.el (org-agenda-check-clock-gap): * lisp/org-clock.el (org-clock-get-clocked-time) (org-clock-resolve-clock, org-clock-resolve) (org-resolve-clocks, (org-resolve-clocks-if-idle) (org-clock-in, org-clock-sum): Drop now unnecessary use of compatibility functions. * lisp/org-compat.el (org-string-collate-lessp, org-decode-time) (org-format-time-string, org-link-escape-browser, org-time-add) (org-time-subtract, org-time-since, org-time-less-p): Mark as obsolete. The 9.5 release declared Emacs 25.1 as the minimum version.
2021-10-04 23:43:14 -04:00
(if (or (not t1) (time-less-p 1 (time-subtract curtime t1)))
org-table.el: org-table-recalculate is quieter * lisp/org-table.el (org-table-recalculate): Removed message for start of processing. When ALL is t, messages are printed at most once per second. TINYCHANGE
2014-11-12 06:45:03 -05:00
(progn (apply 'message args)
curtime)
t1)))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-recalculate (&optional all noalign)
"Recalculate the current table line by applying all stored formulas.
org-table: Fix docstrings * lisp/org-table.el (org-table-eval-formula): Nowadays, Calc is installed with Emacs, so there is no need to specify this. Also remove hard-coded "C-u". (org-table-recalculate): Fix code typo.
2016-03-25 18:11:34 -04:00
Improve docstring of `org-table-recalculate'.
2008-12-12 08:50:43 -05:00
With prefix arg ALL, do this for all lines in the table.
org-table: Fix docstrings * lisp/org-table.el (org-table-eval-formula): Nowadays, Calc is installed with Emacs, so there is no need to specify this. Also remove hard-coded "C-u". (org-table-recalculate): Fix code typo.
2016-03-25 18:11:34 -04:00
When called with a `\\[universal-argument] \\[universal-argument]' prefix, or \
if ALL is the symbol `iterate',
recompute the table until it no longer changes.
Improve docstring of `org-table-recalculate'.
2008-12-12 08:50:43 -05:00
If NOALIGN is not nil, do not re-align the table after the computations
are done. This is typically used internally to save time, if it is
known that the table will be realigned a little later anyway."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(interactive "P")
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(unless (memq this-command org-recalc-commands)
(push this-command org-recalc-commands))
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(unless (org-at-table-p) (user-error "Not at a table"))
Improve docstring of `org-table-recalculate'.
2008-12-12 08:50:43 -05:00
(if (or (eq all 'iterate) (equal all '(16)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-iterate)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(org-table-analyze)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let* ((eqlist (sort (org-table-get-stored-formulas)
(lambda (a b) (string< (car a) (car b)))))
(inhibit-redisplay (not debug-on-error))
(line-re org-table-dataline-regexp)
org-table.el: org-table-recalculate is quieter * lisp/org-table.el (org-table-recalculate): Removed message for start of processing. When ALL is t, messages are printed at most once per second. TINYCHANGE
2014-11-12 06:45:03 -05:00
(log-first-time (current-time))
(log-last-time log-first-time)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(cnt 0)
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
beg end eqlcol eqlfield)
org-table: Fix "$<" constructs in formulas * lisp/org-table.el (org-table-recalculate): Expand "$<" without returning an error. Small refactoring. * testing/lisp/test-org-table.el (test-org-table/first-rc): New test. Reported-by: Stefan Nobis <stefan-ml@snobis.de> <http://permalink.gmane.org/gmane.emacs.orgmode/103693>
2015-12-18 16:30:41 -05:00
;; Insert constants in all formulas.
org-table.el: org-table-recalculate early returns * lisp/org-table.el (org-table-recalculate): Add early return. TINYCHANGE
2014-10-19 21:04:31 -04:00
(when eqlist
org-table: Prevent expanding columns upon applying formulas * lisp/org-table.el (org-table-recalculate): Prevent expanding columns upon applying formulas. * testing/lisp/test-org-table.el (test-org-table/shrunk-columns): Add test. Reported-by: Nick Dokos <ndokos@gmail.com> <http://lists.gnu.org/r/emacs-orgmode/2019-04/msg00079.html>
2019-04-13 03:30:55 -04:00
(org-table-with-shrunk-columns
(org-table-save-field
;; Expand equations, then split the equation list between
;; column formulas and field formulas.
(dolist (eq eqlist)
(let* ((rhs (org-table-formula-substitute-names
(org-table-formula-handle-first/last-rc (cdr eq))))
(old-lhs (car eq))
(lhs
(org-table-formula-handle-first/last-rc
(cond
((string-match "\\`@-?I+" old-lhs)
(user-error "Can't assign to hline relative reference"))
((string-match "\\`\\$[<>]" old-lhs)
(let ((new (org-table-formula-handle-first/last-rc
old-lhs)))
(when (assoc new eqlist)
(user-error "\"%s=\" formula tries to overwrite \
org-table: Fix "$<" constructs in formulas * lisp/org-table.el (org-table-recalculate): Expand "$<" without returning an error. Small refactoring. * testing/lisp/test-org-table.el (test-org-table/first-rc): New test. Reported-by: Stefan Nobis <stefan-ml@snobis.de> <http://permalink.gmane.org/gmane.emacs.orgmode/103693>
2015-12-18 16:30:41 -05:00
existing formula for column %s"
org-table: Prevent expanding columns upon applying formulas * lisp/org-table.el (org-table-recalculate): Prevent expanding columns upon applying formulas. * testing/lisp/test-org-table.el (test-org-table/shrunk-columns): Add test. Reported-by: Nick Dokos <ndokos@gmail.com> <http://lists.gnu.org/r/emacs-orgmode/2019-04/msg00079.html>
2019-04-13 03:30:55 -04:00
old-lhs
new))
new))
(t old-lhs)))))
(if (string-match-p "\\`\\$[0-9]+\\'" lhs)
(push (cons lhs rhs) eqlcol)
(push (cons lhs rhs) eqlfield))))
(setq eqlcol (nreverse eqlcol))
;; Expand ranges in lhs of formulas
(setq eqlfield (org-table-expand-lhs-ranges (nreverse eqlfield)))
;; Get the correct line range to process.
(if all
(progn
(setq end (copy-marker (org-table-end)))
(goto-char (setq beg org-table-current-begin-pos))
(cond
((re-search-forward org-table-calculate-mark-regexp end t)
;; This is a table with marked lines, compute selected
;; lines.
(setq line-re org-table-recalculate-regexp))
;; Move forward to the first non-header line.
((and (re-search-forward org-table-dataline-regexp end t)
(re-search-forward org-table-hline-regexp end t)
(re-search-forward org-table-dataline-regexp end t))
(setq beg (match-beginning 0)))
;; Just leave BEG at the start of the table.
(t nil)))
(setq beg (line-beginning-position)
end (copy-marker (line-beginning-position 2))))
(goto-char beg)
;; Mark named fields untouchable. Also check if several
;; field/range formulas try to set the same field.
(remove-text-properties beg end '(:org-untouchable t))
(let ((current-line (count-lines org-table-current-begin-pos
(line-beginning-position)))
seen-fields)
(dolist (eq eqlfield)
(let* ((name (car eq))
(location (assoc name org-table-named-field-locations))
(eq-line (or (nth 1 location)
(and (string-match "\\`@\\([0-9]+\\)" name)
(aref org-table-dlines
(string-to-number
(match-string 1 name))))))
(reference
(if location
;; Turn field coordinates associated to NAME
;; into an absolute reference.
(format "@%d$%d"
(org-table-line-to-dline eq-line)
(nth 2 location))
name)))
(when (member reference seen-fields)
(user-error "Several field/range formulas try to set %s"
reference))
(push reference seen-fields)
(when (or all (eq eq-line current-line))
(org-table-goto-field name)
(org-table-put-field-property :org-untouchable t)))))
;; Evaluate the column formulas, but skip fields covered by
;; field formulas.
(goto-char beg)
(while (re-search-forward line-re end t)
(unless (string-match "\\` *[_^!$/] *\\'" (org-table-get-field 1))
;; Unprotected line, recalculate.
(cl-incf cnt)
(when all
(setq log-last-time
(org-table-message-once-per-second
log-last-time
"Re-applying formulas to full table...(line %d)" cnt)))
(if (markerp org-last-recalc-line)
(move-marker org-last-recalc-line (line-beginning-position))
(setq org-last-recalc-line
(copy-marker (line-beginning-position))))
(dolist (entry eqlcol)
(goto-char org-last-recalc-line)
(org-table-goto-column
(string-to-number (substring (car entry) 1)) nil 'force)
(unless (get-text-property (point) :org-untouchable)
(org-table-eval-formula
nil (cdr entry) 'noalign 'nocst 'nostore 'noanalysis)))))
;; Evaluate the field formulas.
(dolist (eq eqlfield)
(let ((reference (car eq))
(formula (cdr eq)))
(setq log-last-time
(org-table-message-once-per-second
(and all log-last-time)
"Re-applying formula to field: %s" (car eq)))
(org-table-goto-field
reference
;; Possibly create a new column, as long as
;; `org-table-formula-create-columns' allows it.
(let ((column-count (progn (end-of-line)
(1- (org-table-current-column)))))
(lambda (column)
(when (> column 1000)
(user-error "Formula column target too large"))
(and (> column column-count)
(or (eq org-table-formula-create-columns t)
(and (eq org-table-formula-create-columns 'warn)
(progn
(org-display-warning
"Out-of-bounds formula added columns")
t))
(and (eq org-table-formula-create-columns 'prompt)
(yes-or-no-p
"Out-of-bounds formula. Add columns? "))
(user-error
"Missing columns in the table. Aborting"))))))
(org-table-eval-formula nil formula t t t t)))
org-table: Prevent formula evaluation from widening all tables * lisp/org-table.el (org-table-recalculate): When a formula is evaluated, do not expand shrunk columns across the whole buffer.
2019-06-28 11:49:25 -04:00
;; Clean up marker.
org-table: Prevent expanding columns upon applying formulas * lisp/org-table.el (org-table-recalculate): Prevent expanding columns upon applying formulas. * testing/lisp/test-org-table.el (test-org-table/shrunk-columns): Add test. Reported-by: Nick Dokos <ndokos@gmail.com> <http://lists.gnu.org/r/emacs-orgmode/2019-04/msg00079.html>
2019-04-13 03:30:55 -04:00
(set-marker end nil)))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(unless noalign
(when org-table-may-need-update (org-table-align))
(when all
(org-table-message-once-per-second
log-first-time "Re-applying formulas to %d lines... done" cnt)))
org-table.el: org-table-recalculate is quieter * lisp/org-table.el (org-table-recalculate): Removed message for start of processing. When ALL is t, messages are printed at most once per second. TINYCHANGE
2014-11-12 06:45:03 -05:00
(org-table-message-once-per-second
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(and all log-first-time) "Re-applying formulas... done")))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-iterate (&optional arg)
Use @> and $> for referring to last row and column
2011-03-03 11:44:13 -05:00
"Recalculate the table until it does not change anymore.
Fix spelling mistakes. Thanks to Paul Eggert for spotting these.
2012-04-02 01:51:52 -04:00
The maximum number of iterations is 10, but you can choose a different value
Use @> and $> for referring to last row and column
2011-03-03 11:44:13 -05:00
with the prefix ARG."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(interactive "P")
(let ((imax (if arg (prefix-numeric-value arg) 10))
(i 0)
(lasttbl (buffer-substring (org-table-begin) (org-table-end)))
thistbl)
(catch 'exit
(while (< i imax)
(setq i (1+ i))
(org-table-recalculate 'all)
(setq thistbl (buffer-substring (org-table-begin) (org-table-end)))
(if (not (string= lasttbl thistbl))
(setq lasttbl thistbl)
(if (> i 1)
(message "Convergence after %d iterations" i)
(message "Table was already stable"))
(throw 'exit t)))
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(user-error "No convergence after %d iterations" i))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table.el: Add two autoload cookies. * org-table.el (org-table-recalculate-buffer-tables) (org-table-iterate-buffer-tables): Add autoload cookie. Thanks to Sébastien Vauban who suggested adding an autoload cookie for `org-table-iterate-buffer-tables'.
2012-04-09 11:32:18 -04:00
;;;###autoload
Add commands to recalculate and iterate all tables in a buffer This was a request by Johna Ekh.
2010-05-07 03:45:34 -04:00
(defun org-table-recalculate-buffer-tables ()
"Recalculate all tables in the current buffer."
(interactive)
Use org-with-wide-buffer where appropriate * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-agenda-refile, org-agenda-open-link): (org-agenda-change-all-lines, org-agenda-clock-out): * lisp/org-capture.el (org-capture-refile): (org-capture-bookmark-last-stored-position): * lisp/org-clock.el (org-with-clock-position): (org-clock-in): * lisp/org-table.el (org-table-recalculate-buffer-tables): (org-table-iterate-buffer-tables): * lisp/org.el (org-table-map-tables): (org-outline-overlay-data, org-refresh-properties): (org-refresh-stats-properties, org-offer-links-in-entry): (org-refile, org-refile-check-position): (org-refile-new-child, org-map-entries): (org-find-exact-headline-in-buffer): (org-reftex-citation, org-imenu-get-tree): Use `org-with-wide-buffer'.
2016-09-02 20:44:58 -04:00
(org-with-wide-buffer
Fix table align when recalculating buffer tables * lisp/org-table.el (org-table-recalculate-buffer-tables): Align all tables in a buffer. (org-table-iterate-buffer-tables): Align a table only once, align all tables in a buffer.
2016-10-21 11:35:13 -04:00
(org-table-map-tables
(lambda ()
;; Reason for separate `org-table-align': When repeating
;; (org-table-recalculate t) `org-table-may-need-update' gets in
;; the way.
(org-table-recalculate t t)
(org-table-align))
t)))
Add commands to recalculate and iterate all tables in a buffer This was a request by Johna Ekh.
2010-05-07 03:45:34 -04:00
org-table.el: Add two autoload cookies. * org-table.el (org-table-recalculate-buffer-tables) (org-table-iterate-buffer-tables): Add autoload cookie. Thanks to Sébastien Vauban who suggested adding an autoload cookie for `org-table-iterate-buffer-tables'.
2012-04-09 11:32:18 -04:00
;;;###autoload
Add commands to recalculate and iterate all tables in a buffer This was a request by Johna Ekh.
2010-05-07 03:45:34 -04:00
(defun org-table-iterate-buffer-tables ()
"Iterate all tables in the buffer, to converge inter-table dependencies."
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(interactive)
(let* ((imax 10)
Remove some autoloads and clean up code. * org.el (turn-on-orgtbl): Moved here from org-table.el. (org-clock-persistence-insinuate): Moved here from org-clock.el. (org-update-all-dblocks, org-map-entries) (org-require-autoloaded-modules, org-forward-element) (org-backward-element, org-up-element) (org-element-greater-elements, org-drag-element-backward) (org-drag-element-forward, org-mark-element) (org-narrow-to-element, org-transpose-element) (org-unindent-buffer): Don't autoload. * org-clock.el (org-clock-get-clocktable): Rename from `org-get-clocktable'. (org-clock-persistence-insinuate): Move to org.el. * org-capture.el: Do no set `generated-autoload-file' locally. Minor code clean up. * org-agenda.el (org-agenda-list): Use `org-clock-get-clocktable'. Do no set `generated-autoload-file' locally. * org-table.el (org-table-iterate-buffer-tables): Minor reformatting. (turn-on-orgtbl): Move to org.el. * org-html.el (org-export-htmlize-generate-css): Don't autoload. * org-timer.el (org-timer-pause-or-continue, org-timer-stop): Ditto. * ob-tangle.el (org-babel-tangle-lang-exts): Ditto. * ob-lob.el (org-babel-lob-ingest): Ditto. * org-id.el (org-id-copy) (org-id-get-with-outline-path-completion) (org-id-get-with-outline-drilling): Ditto. * org-lparse.el (org-lparse-and-open, org-lparse-batch) (org-lparse-to-buffer, org-replace-region-by) (org-lparse-region): Ditto. * org-mobile.el (org-mobile-create-sumo-agenda): Ditto.
2012-10-02 04:03:15 -04:00
(i imax)
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(checksum (md5 (buffer-string)))
Remove some autoloads and clean up code. * org.el (turn-on-orgtbl): Moved here from org-table.el. (org-clock-persistence-insinuate): Moved here from org-clock.el. (org-update-all-dblocks, org-map-entries) (org-require-autoloaded-modules, org-forward-element) (org-backward-element, org-up-element) (org-element-greater-elements, org-drag-element-backward) (org-drag-element-forward, org-mark-element) (org-narrow-to-element, org-transpose-element) (org-unindent-buffer): Don't autoload. * org-clock.el (org-clock-get-clocktable): Rename from `org-get-clocktable'. (org-clock-persistence-insinuate): Move to org.el. * org-capture.el: Do no set `generated-autoload-file' locally. Minor code clean up. * org-agenda.el (org-agenda-list): Use `org-clock-get-clocktable'. Do no set `generated-autoload-file' locally. * org-table.el (org-table-iterate-buffer-tables): Minor reformatting. (turn-on-orgtbl): Move to org.el. * org-html.el (org-export-htmlize-generate-css): Don't autoload. * org-timer.el (org-timer-pause-or-continue, org-timer-stop): Ditto. * ob-tangle.el (org-babel-tangle-lang-exts): Ditto. * ob-lob.el (org-babel-lob-ingest): Ditto. * org-id.el (org-id-copy) (org-id-get-with-outline-path-completion) (org-id-get-with-outline-drilling): Ditto. * org-lparse.el (org-lparse-and-open, org-lparse-batch) (org-lparse-to-buffer, org-replace-region-by) (org-lparse-region): Ditto. * org-mobile.el (org-mobile-create-sumo-agenda): Ditto.
2012-10-02 04:03:15 -04:00
c1)
Use org-with-wide-buffer where appropriate * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-agenda-refile, org-agenda-open-link): (org-agenda-change-all-lines, org-agenda-clock-out): * lisp/org-capture.el (org-capture-refile): (org-capture-bookmark-last-stored-position): * lisp/org-clock.el (org-with-clock-position): (org-clock-in): * lisp/org-table.el (org-table-recalculate-buffer-tables): (org-table-iterate-buffer-tables): * lisp/org.el (org-table-map-tables): (org-outline-overlay-data, org-refresh-properties): (org-refresh-stats-properties, org-offer-links-in-entry): (org-refile, org-refile-check-position): (org-refile-new-child, org-map-entries): (org-find-exact-headline-in-buffer): (org-reftex-citation, org-imenu-get-tree): Use `org-with-wide-buffer'.
2016-09-02 20:44:58 -04:00
(org-with-wide-buffer
(catch 'exit
(while (> i 0)
(setq i (1- i))
Fix table align when recalculating buffer tables * lisp/org-table.el (org-table-recalculate-buffer-tables): Align all tables in a buffer. (org-table-iterate-buffer-tables): Align a table only once, align all tables in a buffer.
2016-10-21 11:35:13 -04:00
(org-table-map-tables (lambda () (org-table-recalculate t t)) t)
Use org-with-wide-buffer where appropriate * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-agenda-refile, org-agenda-open-link): (org-agenda-change-all-lines, org-agenda-clock-out): * lisp/org-capture.el (org-capture-refile): (org-capture-bookmark-last-stored-position): * lisp/org-clock.el (org-with-clock-position): (org-clock-in): * lisp/org-table.el (org-table-recalculate-buffer-tables): (org-table-iterate-buffer-tables): * lisp/org.el (org-table-map-tables): (org-outline-overlay-data, org-refresh-properties): (org-refresh-stats-properties, org-offer-links-in-entry): (org-refile, org-refile-check-position): (org-refile-new-child, org-map-entries): (org-find-exact-headline-in-buffer): (org-reftex-citation, org-imenu-get-tree): Use `org-with-wide-buffer'.
2016-09-02 20:44:58 -04:00
(if (equal checksum (setq c1 (md5 (buffer-string))))
(progn
Fix table align when recalculating buffer tables * lisp/org-table.el (org-table-recalculate-buffer-tables): Align all tables in a buffer. (org-table-iterate-buffer-tables): Align a table only once, align all tables in a buffer.
2016-10-21 11:35:13 -04:00
(org-table-map-tables #'org-table-align t)
Use org-with-wide-buffer where appropriate * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-agenda-refile, org-agenda-open-link): (org-agenda-change-all-lines, org-agenda-clock-out): * lisp/org-capture.el (org-capture-refile): (org-capture-bookmark-last-stored-position): * lisp/org-clock.el (org-with-clock-position): (org-clock-in): * lisp/org-table.el (org-table-recalculate-buffer-tables): (org-table-iterate-buffer-tables): * lisp/org.el (org-table-map-tables): (org-outline-overlay-data, org-refresh-properties): (org-refresh-stats-properties, org-offer-links-in-entry): (org-refile, org-refile-check-position): (org-refile-new-child, org-map-entries): (org-find-exact-headline-in-buffer): (org-reftex-citation, org-imenu-get-tree): Use `org-with-wide-buffer'.
2016-09-02 20:44:58 -04:00
(message "Convergence after %d iterations" (- imax i))
(throw 'exit t))
(setq checksum c1)))
Fix table align when recalculating buffer tables * lisp/org-table.el (org-table-recalculate-buffer-tables): Align all tables in a buffer. (org-table-iterate-buffer-tables): Align a table only once, align all tables in a buffer.
2016-10-21 11:35:13 -04:00
(org-table-map-tables #'org-table-align t)
Use org-with-wide-buffer where appropriate * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-agenda-refile, org-agenda-open-link): (org-agenda-change-all-lines, org-agenda-clock-out): * lisp/org-capture.el (org-capture-refile): (org-capture-bookmark-last-stored-position): * lisp/org-clock.el (org-with-clock-position): (org-clock-in): * lisp/org-table.el (org-table-recalculate-buffer-tables): (org-table-iterate-buffer-tables): * lisp/org.el (org-table-map-tables): (org-outline-overlay-data, org-refresh-properties): (org-refresh-stats-properties, org-offer-links-in-entry): (org-refile, org-refile-check-position): (org-refile-new-child, org-map-entries): (org-find-exact-headline-in-buffer): (org-reftex-citation, org-imenu-get-tree): Use `org-with-wide-buffer'.
2016-09-02 20:44:58 -04:00
(user-error "No convergence after %d iterations" imax)))))
Add commands to recalculate and iterate all tables in a buffer This was a request by Johna Ekh.
2010-05-07 03:45:34 -04:00
org-table.el: Rename a variable and a function * org-table.el (org-table-TBLFM-begin-regexp): Rename from `org-TBLFM-begin-regexp'. (org-table-calc-current-TBLFM): Rename from `org-calc-current-TBLFM'. * org.el (org-ctrl-c-ctrl-c): Require org-table if needed.
2013-05-15 10:18:37 -04:00
(defun org-table-calc-current-TBLFM (&optional arg)
"Apply the #+TBLFM in the line at point to the table."
org-table.el (org-calc-current-TBLFM): Add function * org-table.el (org-calc-current-TBLFM): New function to re-calculate the table by applying the #+TBLFM in the line where the point is. * org.el (org-ctrl-c-ctrl-c): Call `org-calc-current-TBLFM' when point is in the #+TBLFM line. * testing/lisp/test-org-table.el: Add test.
2013-04-02 05:11:26 -04:00
(interactive "P")
(unless (org-at-TBLFM-p) (user-error "Not at a #+TBLFM line"))
(let ((formula (buffer-substring
Fix TBLFM line handling * lisp/org-table.el (org-table-TBLFM-begin-regexp): Take into consideration that table lines are not required to end with "|". (org-table-calc-current-TBLFM): Properly clean markers at the end of the process. (org-table-TBLFM-begin): Small refactoring. * lisp/org.el (org-at-TBLFM-p): Prevent false positives. Suggested-by: Oleg Sivokon <olegsivokon@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/97461>
2015-05-08 04:46:07 -04:00
(line-beginning-position)
(line-end-position))))
org-table.el (org-calc-current-TBLFM): Add function * org-table.el (org-calc-current-TBLFM): New function to re-calculate the table by applying the #+TBLFM in the line where the point is. * org.el (org-ctrl-c-ctrl-c): Call `org-calc-current-TBLFM' when point is in the #+TBLFM line. * testing/lisp/test-org-table.el: Add test.
2013-04-02 05:11:26 -04:00
(save-excursion
;; Insert a temporary formula at right after the table
org-table.el: Rename a variable and a function * org-table.el (org-table-TBLFM-begin-regexp): Rename from `org-TBLFM-begin-regexp'. (org-table-calc-current-TBLFM): Rename from `org-calc-current-TBLFM'. * org.el (org-ctrl-c-ctrl-c): Require org-table if needed.
2013-05-15 10:18:37 -04:00
(goto-char (org-table-TBLFM-begin))
Fix TBLFM line handling * lisp/org-table.el (org-table-TBLFM-begin-regexp): Take into consideration that table lines are not required to end with "|". (org-table-calc-current-TBLFM): Properly clean markers at the end of the process. (org-table-TBLFM-begin): Small refactoring. * lisp/org.el (org-at-TBLFM-p): Prevent false positives. Suggested-by: Oleg Sivokon <olegsivokon@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/97461>
2015-05-08 04:46:07 -04:00
(let ((s (point-marker)))
(insert formula "\n")
(let ((e (point-marker)))
;; Recalculate the table.
(beginning-of-line 0) ; move to the inserted line
(skip-chars-backward " \r\n\t")
org-table.el: Fix a bug of leaving the inserted TBLFM line * org-table.el (org-calc-current-TBLFM): Ensure to remove the currently inserted TBLFM line, when calling `org-table-recalculate' returns an error and the processing stops. * testing/lisp/test-org-table.el: Add test. When you hit =C-c C-c= at the line of "#+TBLFM: $2=$1*2::$2=$1**2" in | 1 | | | 2 | | #+TBLFM: $2=$1*1 #+TBLFM: $2=$1*2::$2=$1**2 you got: | 1 | | | 2 | | #+TBLFM: $2=$1*2::$2=$1**2 #+TBLFM: $2=$1*1 #+TBLFM: $2=$1*2::$2=$1**2 with the error message of: user-error: Double definition `$2=' in TBLFM line, please fix by hand In this case, you expected: | 1 | | | 2 | | #+TBLFM: $2=$1*1 #+TBLFM: $2=$1*2::$2=$1**2
2013-04-05 03:07:00 -04:00
(unwind-protect
Fix TBLFM line handling * lisp/org-table.el (org-table-TBLFM-begin-regexp): Take into consideration that table lines are not required to end with "|". (org-table-calc-current-TBLFM): Properly clean markers at the end of the process. (org-table-TBLFM-begin): Small refactoring. * lisp/org.el (org-at-TBLFM-p): Prevent false positives. Suggested-by: Oleg Sivokon <olegsivokon@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/97461>
2015-05-08 04:46:07 -04:00
(org-call-with-arg #'org-table-recalculate (or arg t))
;; Delete the formula inserted temporarily.
(delete-region s e)
(set-marker s nil)
(set-marker e nil)))))))
org-table.el (org-calc-current-TBLFM): Add function * org-table.el (org-calc-current-TBLFM): New function to re-calculate the table by applying the #+TBLFM in the line where the point is. * org.el (org-ctrl-c-ctrl-c): Call `org-calc-current-TBLFM' when point is in the #+TBLFM line. * testing/lisp/test-org-table.el: Add test.
2013-04-02 05:11:26 -04:00
org-table.el: Rename a variable and a function * org-table.el (org-table-TBLFM-begin-regexp): Rename from `org-TBLFM-begin-regexp'. (org-table-calc-current-TBLFM): Rename from `org-calc-current-TBLFM'. * org.el (org-ctrl-c-ctrl-c): Require org-table if needed.
2013-05-15 10:18:37 -04:00
(defun org-table-TBLFM-begin ()
org-table.el (org-TBLFM-begin): Add function * org-table.el (org-TBLFM-begin): New defun. (org-TBLFM-begin-regexp): New variable. * testing/lisp/test-org-table.el: Add test.
2013-04-02 05:09:26 -04:00
"Find the beginning of the TBLFM lines and return its position.
Return nil when the beginning of TBLFM line was not found."
(save-excursion
(when (progn (forward-line 1)
Fix TBLFM line handling * lisp/org-table.el (org-table-TBLFM-begin-regexp): Take into consideration that table lines are not required to end with "|". (org-table-calc-current-TBLFM): Properly clean markers at the end of the process. (org-table-TBLFM-begin): Small refactoring. * lisp/org.el (org-at-TBLFM-p): Prevent false positives. Suggested-by: Oleg Sivokon <olegsivokon@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/97461>
2015-05-08 04:46:07 -04:00
(re-search-backward org-table-TBLFM-begin-regexp nil t))
(line-beginning-position 2))))
org-table.el (org-TBLFM-begin): Add function * org-table.el (org-TBLFM-begin): New defun. (org-TBLFM-begin-regexp): New variable. * testing/lisp/test-org-table.el: Add test.
2013-04-02 05:09:26 -04:00
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
(defun org-table-expand-lhs-ranges (equations)
"Expand list of formulas.
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
If some of the RHS in the formulas are ranges or a row reference,
expand them to individual field equations for each field. This
function assumes the table is already analyzed (i.e., using
`org-table-analyze')."
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(let (res)
(dolist (e equations (nreverse res))
(let ((lhs (car e))
(rhs (cdr e)))
(cond
Backport commit 770f76f05 from Emacs Make regexps smaller and faster by removing terms that are superfluous by virtue of standing next to another term that matches more. See https://lists.gnu.org/archive/html/emacs-devel/2020-01/msg00949.html for details. * lisp/ob-core.el (org-babel-remove-result): * lisp/ob-fortran.el (org-babel-fortran-ensure-main-wrap): * lisp/org-capture.el (org-capture-set-target-location): * lisp/org-compat.el (org-maybe-keyword-time-regexp): * lisp/org-table.el (org-table-expand-lhs-ranges): Remove subsumed repetitions. Remove subsumed repetitions in regexps 770f76f050376bbd77a3cc8cf44db57cf855a27c Mattias Engdegård Thu Feb 20 16:05:18 2020 +0100
2020-02-20 09:45:44 -05:00
((string-match-p "\\`@[-+0-9]+\\$-?[0-9]+\\'" lhs)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
;; This just refers to one fixed field.
(push e res))
Use `string-match-p' instead of `org-string-match-p' * contrib/lisp/org-contacts.el (org-contacts-filter): (org-contacts-complete-group): (org-contacts-complete-tags-props): * contrib/lisp/org-wl.el (org-wl-open): * contrib/lisp/ox-bibtex.el (org-bibtex-merge-contiguous-citations): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-processing.el (org-babel-processing-view-sketch): * lisp/ob-stan.el (org-babel-execute:stan): * lisp/org-agenda.el (org-agenda-get-category-icon): * lisp/org-clock.el (org-clock-into-drawer): * lisp/org-element.el (org-element-link-parser): * lisp/org-lint.el (org-lint-orphaned-affiliated-keywords): (org-lint-invalid-babel-call-block): (org-lint-colon-in-name): * lisp/org-list.el (org-list-item-body-column): * lisp/org-macro.el (org-macro-replace-all): * lisp/org-plot.el (org-plot/gnuplot-script): * lisp/org-table.el (org-table-export): (org-table-align): (org-table-get-range): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-substitute-names): (org-table-show-reference): (orgtbl-to-texinfo): (org-table-remote-reference-indirection): * lisp/org.el (org-make-link-string): (org--open-elisp-link): (org-open-at-point): (org-store-log-note): (org-cached-entry-get): (org--valid-property-p): (org-entry-properties): (org-buffer-property-keys): (org-insert-drawer): (org-display-inline-images): (org-in-commented-heading-p): * lisp/ox-ascii.el (org-ascii-keyword): * lisp/ox-beamer.el (org-beamer--format-frame): * lisp/ox-html.el (org-html-keyword): * lisp/ox-latex.el (org-latex--label): (org-latex-headline): (org-latex-item): (org-latex-keyword): (org-latex--inline-image): (org-latex-src-block): * lisp/ox-odt.el (org-odt-styles-dir): (org-odt-keyword): (org-odt--translate-latex-fragments): * lisp/ox-texinfo.el (org-texinfo-template): (org-texinfo-keyword): (org-texinfo-src-block): * lisp/ox.el (org-export-inline-image-p): (org-export-file-uri): * testing/lisp/test-org-table.el (test-org-table/to-generic): (test-org-table/to-latex): (test-org-table/to-html): (test-org-table/named-field): (test-org-table/named-column): (test-org-table/tab-indent): (test-org-table/first-rc): (test-org-table/last-rc): Use `string-match-p' instead of `org-string-match-p'.
2016-07-25 09:21:12 -04:00
((string-match-p "\\`[a-zA-Z][_a-zA-Z0-9]*\\'" lhs)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
;; This just refers to one fixed named field.
(push e res))
Use `string-match-p' instead of `org-string-match-p' * contrib/lisp/org-contacts.el (org-contacts-filter): (org-contacts-complete-group): (org-contacts-complete-tags-props): * contrib/lisp/org-wl.el (org-wl-open): * contrib/lisp/ox-bibtex.el (org-bibtex-merge-contiguous-citations): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-processing.el (org-babel-processing-view-sketch): * lisp/ob-stan.el (org-babel-execute:stan): * lisp/org-agenda.el (org-agenda-get-category-icon): * lisp/org-clock.el (org-clock-into-drawer): * lisp/org-element.el (org-element-link-parser): * lisp/org-lint.el (org-lint-orphaned-affiliated-keywords): (org-lint-invalid-babel-call-block): (org-lint-colon-in-name): * lisp/org-list.el (org-list-item-body-column): * lisp/org-macro.el (org-macro-replace-all): * lisp/org-plot.el (org-plot/gnuplot-script): * lisp/org-table.el (org-table-export): (org-table-align): (org-table-get-range): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-substitute-names): (org-table-show-reference): (orgtbl-to-texinfo): (org-table-remote-reference-indirection): * lisp/org.el (org-make-link-string): (org--open-elisp-link): (org-open-at-point): (org-store-log-note): (org-cached-entry-get): (org--valid-property-p): (org-entry-properties): (org-buffer-property-keys): (org-insert-drawer): (org-display-inline-images): (org-in-commented-heading-p): * lisp/ox-ascii.el (org-ascii-keyword): * lisp/ox-beamer.el (org-beamer--format-frame): * lisp/ox-html.el (org-html-keyword): * lisp/ox-latex.el (org-latex--label): (org-latex-headline): (org-latex-item): (org-latex-keyword): (org-latex--inline-image): (org-latex-src-block): * lisp/ox-odt.el (org-odt-styles-dir): (org-odt-keyword): (org-odt--translate-latex-fragments): * lisp/ox-texinfo.el (org-texinfo-template): (org-texinfo-keyword): (org-texinfo-src-block): * lisp/ox.el (org-export-inline-image-p): (org-export-file-uri): * testing/lisp/test-org-table.el (test-org-table/to-generic): (test-org-table/to-latex): (test-org-table/to-html): (test-org-table/named-field): (test-org-table/named-column): (test-org-table/tab-indent): (test-org-table/first-rc): (test-org-table/last-rc): Use `string-match-p' instead of `org-string-match-p'.
2016-07-25 09:21:12 -04:00
((string-match-p "\\`\\$[0-9]+\\'" lhs)
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
;; Column formulas are treated specially and are not
;; expanded.
(push e res))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
((string-match "\\`@[0-9]+\\'" lhs)
(dotimes (ic org-table-current-ncol)
(push (cons (propertize (format "%s$%d" lhs (1+ ic)) :orig-eqn e)
rhs)
res)))
(t
(let* ((range (org-table-get-range
lhs org-table-current-begin-pos 1 nil 'corners))
(r1 (org-table-line-to-dline (nth 0 range)))
(c1 (nth 1 range))
(r2 (org-table-line-to-dline (nth 2 range) 'above))
(c2 (nth 3 range)))
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(cl-loop for ir from r1 to r2 do
(cl-loop for ic from c1 to c2 do
(push (cons (propertize
(format "@%d$%d" ir ic) :orig-eqn e)
rhs)
res))))))))))
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
Tables: Make @< and $< point to row/column 1 in a stable way
2011-03-08 08:49:53 -05:00
(defun org-table-formula-handle-first/last-rc (s)
"Replace @<, @>, $<, $> with first/last row/column of the table.
So @< and $< will always be replaced with @1 and $1, respectively.
The advantage of these special markers are that structure editing of
the table will not change them, while @1 and $1 will be modified
Fix tiny typos. Those have been fixed by Paul Eggert in Emacs first.
2011-12-31 02:59:49 -05:00
when a line/row is swapped out of that privileged position. So for
Tables: Make @< and $< point to row/column 1 in a stable way
2011-03-08 08:49:53 -05:00
formulas that use a range of rows or columns, it may often be better
to anchor the formula with \"I\" row markers, or to offset from the
borders of the table using the @< @> $< $> makers."
Fix remote references that contain pointers to first/last rows/columns * lisp/org-table.el (org-table-formula-handle-first/last-rc): Do not expand pointers to first/last row/column that are inside a call to `remote'. (org-table-get-remote-range): Expand pointers to first/last row/column. Wu Feng writes: > Hello, > > First, please check below simple example, I defined two tables (T1 and > T2). In table-2, I remotely refer to the @>$1 (last row, column 1) and > $LR2 (last row, column 2) of T1. > > #+TBLNAME: T1 > | 11 | 12 | > | 21 | 22 | > | 31 | 32 | > > #+TBLNAME: T2 > | xxx | xxx | xxx | xxx | > | # | 21 | 32 | | > #+TBLFM: @>$3=remote(T1,$LR2)::@>$2=remote(T1,@>$1) > > Obviously, the expected results are: > > - remote(T1,@>$1) is replaced by 31 > - remote(T1,$LR2) is replaced by 32 > > But I got 21 for remote(T1,@>$1). The $LR version works perfectly > (though the manual says $LR is out-dated) > > Below are debug info when evaluating remote(T1,@>$1). Looks like @> in > the remote reference is mapped to the last row of the current table, not > of the remote table. > > Substitution history of formula > Orig: remote(T1,@2$1) > $xyz-> remote(T1,@2$1) > @r$c-> (21) > $1-> (21) > Result: 21 > Format: NONE > Final: 21 > > Emacs : GNU Emacs 23.3.1 (i686-pc-linux-gnu, GTK+ Version 2.24.6) > of 2011-09-13 on shirley > Package: Org-mode version 7.7
2011-10-27 11:30:47 -04:00
(let (n nmax len char (start 0))
Backport commit 284c470 from Emacs master branch Backslash cleanup in Elisp source files 284c470ef752967fcd8bae6a450dc138462b1e49 Paul Eggert Thu Sep 17 16:09:39 2015 -0700
2015-09-17 19:08:20 -04:00
(while (string-match "\\([@$]\\)\\(<+\\|>+\\)\\|\\(remote([^)]+)\\)"
Fix remote references that contain pointers to first/last rows/columns * lisp/org-table.el (org-table-formula-handle-first/last-rc): Do not expand pointers to first/last row/column that are inside a call to `remote'. (org-table-get-remote-range): Expand pointers to first/last row/column. Wu Feng writes: > Hello, > > First, please check below simple example, I defined two tables (T1 and > T2). In table-2, I remotely refer to the @>$1 (last row, column 1) and > $LR2 (last row, column 2) of T1. > > #+TBLNAME: T1 > | 11 | 12 | > | 21 | 22 | > | 31 | 32 | > > #+TBLNAME: T2 > | xxx | xxx | xxx | xxx | > | # | 21 | 32 | | > #+TBLFM: @>$3=remote(T1,$LR2)::@>$2=remote(T1,@>$1) > > Obviously, the expected results are: > > - remote(T1,@>$1) is replaced by 31 > - remote(T1,$LR2) is replaced by 32 > > But I got 21 for remote(T1,@>$1). The $LR version works perfectly > (though the manual says $LR is out-dated) > > Below are debug info when evaluating remote(T1,@>$1). Looks like @> in > the remote reference is mapped to the last row of the current table, not > of the remote table. > > Substitution history of formula > Orig: remote(T1,@2$1) > $xyz-> remote(T1,@2$1) > @r$c-> (21) > $1-> (21) > Result: 21 > Format: NONE > Final: 21 > > Emacs : GNU Emacs 23.3.1 (i686-pc-linux-gnu, GTK+ Version 2.24.6) > of 2011-09-13 on shirley > Package: Org-mode version 7.7
2011-10-27 11:30:47 -04:00
s start)
(if (match-end 3)
(setq start (match-end 3))
(setq nmax (if (equal (match-string 1 s) "@")
(1- (length org-table-dlines))
org-table-current-ncol)
len (- (match-end 2) (match-beginning 2))
char (string-to-char (match-string 2 s))
n (if (= char ?<)
len
(- nmax len -1)))
(if (or (< n 1) (> n nmax))
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(user-error "Reference \"%s\" in expression \"%s\" points outside table"
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(match-string 0 s) s))
Fix remote references that contain pointers to first/last rows/columns * lisp/org-table.el (org-table-formula-handle-first/last-rc): Do not expand pointers to first/last row/column that are inside a call to `remote'. (org-table-get-remote-range): Expand pointers to first/last row/column. Wu Feng writes: > Hello, > > First, please check below simple example, I defined two tables (T1 and > T2). In table-2, I remotely refer to the @>$1 (last row, column 1) and > $LR2 (last row, column 2) of T1. > > #+TBLNAME: T1 > | 11 | 12 | > | 21 | 22 | > | 31 | 32 | > > #+TBLNAME: T2 > | xxx | xxx | xxx | xxx | > | # | 21 | 32 | | > #+TBLFM: @>$3=remote(T1,$LR2)::@>$2=remote(T1,@>$1) > > Obviously, the expected results are: > > - remote(T1,@>$1) is replaced by 31 > - remote(T1,$LR2) is replaced by 32 > > But I got 21 for remote(T1,@>$1). The $LR version works perfectly > (though the manual says $LR is out-dated) > > Below are debug info when evaluating remote(T1,@>$1). Looks like @> in > the remote reference is mapped to the last row of the current table, not > of the remote table. > > Substitution history of formula > Orig: remote(T1,@2$1) > $xyz-> remote(T1,@2$1) > @r$c-> (21) > $1-> (21) > Result: 21 > Format: NONE > Final: 21 > > Emacs : GNU Emacs 23.3.1 (i686-pc-linux-gnu, GTK+ Version 2.24.6) > of 2011-09-13 on shirley > Package: Org-mode version 7.7
2011-10-27 11:30:47 -04:00
(setq start (match-beginning 0))
(setq s (replace-match (format "%s%d" (match-string 1 s) n) t t s)))))
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
s)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-formula-substitute-names (f)
"Replace $const with values in string F."
org-table: Fix durations extracted from node properties * lisp/org-table.el (org-table-formula-substitute-names): Convert durations when needed. Refactor code. * testing/lisp/test-org-table.el (test-org-table/duration): New test. Reported-by: Daniele Pizzolli <dan@toel.it> <http://permalink.gmane.org/gmane.emacs.orgmode/97252>
2015-05-10 19:20:37 -04:00
(let ((start 0)
(pp (/= (string-to-char f) ?'))
Use `string-match-p' instead of `org-string-match-p' * contrib/lisp/org-contacts.el (org-contacts-filter): (org-contacts-complete-group): (org-contacts-complete-tags-props): * contrib/lisp/org-wl.el (org-wl-open): * contrib/lisp/ox-bibtex.el (org-bibtex-merge-contiguous-citations): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-processing.el (org-babel-processing-view-sketch): * lisp/ob-stan.el (org-babel-execute:stan): * lisp/org-agenda.el (org-agenda-get-category-icon): * lisp/org-clock.el (org-clock-into-drawer): * lisp/org-element.el (org-element-link-parser): * lisp/org-lint.el (org-lint-orphaned-affiliated-keywords): (org-lint-invalid-babel-call-block): (org-lint-colon-in-name): * lisp/org-list.el (org-list-item-body-column): * lisp/org-macro.el (org-macro-replace-all): * lisp/org-plot.el (org-plot/gnuplot-script): * lisp/org-table.el (org-table-export): (org-table-align): (org-table-get-range): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-substitute-names): (org-table-show-reference): (orgtbl-to-texinfo): (org-table-remote-reference-indirection): * lisp/org.el (org-make-link-string): (org--open-elisp-link): (org-open-at-point): (org-store-log-note): (org-cached-entry-get): (org--valid-property-p): (org-entry-properties): (org-buffer-property-keys): (org-insert-drawer): (org-display-inline-images): (org-in-commented-heading-p): * lisp/ox-ascii.el (org-ascii-keyword): * lisp/ox-beamer.el (org-beamer--format-frame): * lisp/ox-html.el (org-html-keyword): * lisp/ox-latex.el (org-latex--label): (org-latex-headline): (org-latex-item): (org-latex-keyword): (org-latex--inline-image): (org-latex-src-block): * lisp/ox-odt.el (org-odt-styles-dir): (org-odt-keyword): (org-odt--translate-latex-fragments): * lisp/ox-texinfo.el (org-texinfo-template): (org-texinfo-keyword): (org-texinfo-src-block): * lisp/ox.el (org-export-inline-image-p): (org-export-file-uri): * testing/lisp/test-org-table.el (test-org-table/to-generic): (test-org-table/to-latex): (test-org-table/to-html): (test-org-table/named-field): (test-org-table/named-column): (test-org-table/tab-indent): (test-org-table/first-rc): (test-org-table/last-rc): Use `string-match-p' instead of `org-string-match-p'.
2016-07-25 09:21:12 -04:00
(duration (string-match-p ";.*[Tt].*\\'" f))
org-table: Fix durations extracted from node properties * lisp/org-table.el (org-table-formula-substitute-names): Convert durations when needed. Refactor code. * testing/lisp/test-org-table.el (test-org-table/duration): New test. Reported-by: Daniele Pizzolli <dan@toel.it> <http://permalink.gmane.org/gmane.emacs.orgmode/97252>
2015-05-10 19:20:37 -04:00
(new (replace-regexp-in-string ; Check for column names.
org-table-column-name-regexp
(lambda (m)
(concat "$" (cdr (assoc (match-string 1 m)
org-table-column-names))))
f t t)))
;; Parameters and constants.
(while (setq start
(string-match
"\\$\\([a-zA-Z][_a-zA-Z0-9]*\\)\\|\\(\\<remote([^)]*)\\)"
new start))
(if (match-end 2) (setq start (match-end 2))
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(cl-incf start)
org-table: Fix durations extracted from node properties * lisp/org-table.el (org-table-formula-substitute-names): Convert durations when needed. Refactor code. * testing/lisp/test-org-table.el (test-org-table/duration): New test. Reported-by: Daniele Pizzolli <dan@toel.it> <http://permalink.gmane.org/gmane.emacs.orgmode/97252>
2015-05-10 19:20:37 -04:00
;; When a duration is expected, convert value on the fly.
(let ((value
(save-match-data
(let ((v (org-table-get-constant (match-string 1 new))))
(if (and (org-string-nw-p v) duration)
(org-table-time-string-to-seconds v)
v)))))
(when value
(setq new (replace-match
(concat (and pp "(") value (and pp ")")) t t new))))))
Remove final parts of XEmacs compatibility code * lisp/org-compat.el: Declare `org-add-hook', `org-decompose-region', `org-detach-overlay', `org-file-equal-p', `org-float-time', `org-indent-line-to', `org-indent-to-column', `org-looking-at-p', `org-looking-back', `org-propertize', `org-re' and `org-select-frame-set-input-focus' as obsolete. (org-overlay-display, org-overlay-before-string, org-find-overlays): Move to "org.el" (org-xemacs-key-equivalents, org-xemacs-p): Remove variables. (org-region-active-p): Drop XEmacs support. (org-xemacs-without-invisibility): Remove macro. (org-get-x-clipboard-compat): Remove function. * lisp/org-macs.el (org-match-string-no-properties): Remove function. * lisp/ob-core.el: * lisp/org-agenda.el: * lisp/org-archive.el: * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-crypt.el: * lisp/org-element.el: * lisp/org-faces.el: * lisp/org-feed.el: * lisp/org-footnote.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-indent.el: * lisp/org-inlinetask.el: * lisp/org-lint.el: * lisp/org-list.el: * lisp/org-mouse.el: * lisp/org-pcomplete.el: * lisp/org-src.el: * lisp/org-table.el: * lisp/org-timer.el: * lisp/org.el: * lisp/ox-ascii.el: * lisp/ox-odt.el: * lisp/ox.el: * contrib/lisp/org-notify.el: * contrib/lisp/ox-taskjuggler.el: * contrib/lisp/org-wikinodes.el: * testing/lisp/test-org-src.el: * testing/lisp/test-org.el: Silence byte-compiler.
2016-05-26 06:18:00 -04:00
(if org-table-formula-debug (propertize new :orig-formula f) new)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-get-constant (const)
"Find the value for a parameter or constant in a formula.
Parameters get priority."
(or (cdr (assoc const org-table-local-parameters))
(cdr (assoc const org-table-formula-constants-local))
(cdr (assoc const org-table-formula-constants))
(and (fboundp 'constants-get) (constants-get const))
(and (string= (substring const 0 (min 5 (length const))) "PROP_")
(org-entry-get nil (substring const 5) 'inherit))
"#UNDEFINED_NAME"))
(defvar org-table-fedit-map
(let ((map (make-sparse-keymap)))
(org-defkey map "\C-x\C-s" 'org-table-fedit-finish)
(org-defkey map "\C-c\C-s" 'org-table-fedit-finish)
(org-defkey map "\C-c\C-c" 'org-table-fedit-finish)
Better recognizing of source code snippets * lisp/org.el (org-edit-special): Make sure source code editing goes before table formula editing. * lisp/org-table.el (org-table-fedit-map): "C-c '" will now also exit the formula editor.
2010-06-06 06:50:44 -04:00
(org-defkey map "\C-c'" 'org-table-fedit-finish)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey map "\C-c\C-q" 'org-table-fedit-abort)
Whitespace
2008-12-16 11:48:54 -05:00
(org-defkey map "\C-c?" 'org-table-show-reference)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey map [(meta shift up)] 'org-table-fedit-line-up)
(org-defkey map [(meta shift down)] 'org-table-fedit-line-down)
(org-defkey map [(shift up)] 'org-table-fedit-ref-up)
(org-defkey map [(shift down)] 'org-table-fedit-ref-down)
(org-defkey map [(shift left)] 'org-table-fedit-ref-left)
(org-defkey map [(shift right)] 'org-table-fedit-ref-right)
(org-defkey map [(meta up)] 'org-table-fedit-scroll-down)
(org-defkey map [(meta down)] 'org-table-fedit-scroll)
(org-defkey map [(meta tab)] 'lisp-complete-symbol)
(org-defkey map "\M-\C-i" 'lisp-complete-symbol)
Whitespace
2008-12-16 11:48:54 -05:00
(org-defkey map [(tab)] 'org-table-fedit-lisp-indent)
(org-defkey map "\C-i" 'org-table-fedit-lisp-indent)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey map "\C-c\C-r" 'org-table-fedit-toggle-ref-type)
(org-defkey map "\C-c}" 'org-table-fedit-toggle-coordinates)
map))
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
(easy-menu-define org-table-fedit-menu org-table-fedit-map "Org Edit Formulas Menu."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
'("Edit-Formulas"
["Finish and Install" org-table-fedit-finish t]
["Finish, Install, and Apply" (org-table-fedit-finish t) :keys "C-u C-c C-c"]
["Abort" org-table-fedit-abort t]
"--"
["Pretty-Print Lisp Formula" org-table-fedit-lisp-indent t]
["Complete Lisp Symbol" lisp-complete-symbol t]
"--"
"Shift Reference at Point"
["Up" org-table-fedit-ref-up t]
["Down" org-table-fedit-ref-down t]
["Left" org-table-fedit-ref-left t]
["Right" org-table-fedit-ref-right t]
"-"
"Change Test Row for Column Formulas"
["Up" org-table-fedit-line-up t]
["Down" org-table-fedit-line-down t]
"--"
["Scroll Table Window" org-table-fedit-scroll t]
["Scroll Table Window down" org-table-fedit-scroll-down t]
["Show Table Grid" org-table-fedit-toggle-coordinates
:style toggle :selected (with-current-buffer (marker-buffer org-pos)
org-table-overlay-coordinates)]
"--"
["Standard Refs (B3 instead of @3$2)" org-table-fedit-toggle-ref-type
:style toggle :selected org-table-buffer-is-an]))
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(defvar org-table--fedit-source nil
"Position of the TBLFM line being edited.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-edit-formulas ()
"Edit the formulas of the current table in a separate buffer."
(interactive)
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(let ((at-tblfm (org-at-TBLFM-p)))
(unless (or at-tblfm (org-at-table-p))
(user-error "Not at a table"))
(save-excursion
;; Move point within the table before analyzing it.
(when at-tblfm (re-search-backward "^[ \t]*|"))
(org-table-analyze))
(let ((key (org-table-current-field-formula 'key 'noerror))
(eql (sort (org-table-get-stored-formulas t (and at-tblfm (point)))
#'org-table-formula-less-p))
(pos (point-marker))
(source (copy-marker (line-beginning-position)))
(startline 1)
(wc (current-window-configuration))
(sel-win (selected-window))
(titles '((column . "# Column Formulas\n")
(field . "# Field and Range Formulas\n")
(named . "# Named Field Formulas\n"))))
(org-switch-to-buffer-other-window "*Edit Formulas*")
(erase-buffer)
;; Keep global-font-lock-mode from turning on font-lock-mode
(let ((font-lock-global-modes '(not fundamental-mode)))
(fundamental-mode))
Merge branch 'maint'
2016-01-14 15:32:41 -05:00
(setq-local font-lock-global-modes (list 'not major-mode))
(setq-local org-pos pos)
(setq-local org-table--fedit-source source)
(setq-local org-window-configuration wc)
(setq-local org-selected-window sel-win)
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(use-local-map org-table-fedit-map)
Remove final parts of XEmacs compatibility code * lisp/org-compat.el: Declare `org-add-hook', `org-decompose-region', `org-detach-overlay', `org-file-equal-p', `org-float-time', `org-indent-line-to', `org-indent-to-column', `org-looking-at-p', `org-looking-back', `org-propertize', `org-re' and `org-select-frame-set-input-focus' as obsolete. (org-overlay-display, org-overlay-before-string, org-find-overlays): Move to "org.el" (org-xemacs-key-equivalents, org-xemacs-p): Remove variables. (org-region-active-p): Drop XEmacs support. (org-xemacs-without-invisibility): Remove macro. (org-get-x-clipboard-compat): Remove function. * lisp/org-macs.el (org-match-string-no-properties): Remove function. * lisp/ob-core.el: * lisp/org-agenda.el: * lisp/org-archive.el: * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-crypt.el: * lisp/org-element.el: * lisp/org-faces.el: * lisp/org-feed.el: * lisp/org-footnote.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-indent.el: * lisp/org-inlinetask.el: * lisp/org-lint.el: * lisp/org-list.el: * lisp/org-mouse.el: * lisp/org-pcomplete.el: * lisp/org-src.el: * lisp/org-table.el: * lisp/org-timer.el: * lisp/org.el: * lisp/ox-ascii.el: * lisp/ox-odt.el: * lisp/ox.el: * contrib/lisp/org-notify.el: * contrib/lisp/ox-taskjuggler.el: * contrib/lisp/org-wikinodes.el: * testing/lisp/test-org-src.el: * testing/lisp/test-org.el: Silence byte-compiler.
2016-05-26 06:18:00 -04:00
(add-hook 'post-command-hook #'org-table-fedit-post-command t t)
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
(setq startline (org-current-line))
(dolist (entry eql)
(let* ((type (cond
Backport commit 3c94c7bc0 and db9c924d3 from Emacs * lisp/ob-core.el (org-babel-string-read): * lisp/org-agenda.el: (org-agenda-add-entry-to-org-agenda-diary-file): * lisp/org-element.el (org-element-keyword-parser): * lisp/org-list.el (org-list-indent-item-generic): * lisp/org-mhe.el (org-mhe-get-message-folder-from-index): * lisp/org-mobile.el (org-mobile-apply): * lisp/org-mouse.el (org-mouse-context-menu): * lisp/org-plot.el (org-plot/gnuplot): * lisp/org-protocol.el (org-protocol-flatten-greedy): * lisp/org-table.el (org-table-copy-down) (org-table-formula-make-cmp-string) (org-table-get-stored-formulas, org-table-recalculate) (org-table-edit-formulas): * lisp/org.el (org-translate-link-from-planner) (org-fill-line-break-nobreak-p): * lisp/ox-ascii.el (org-ascii-item): * lisp/ox-latex.el (org-latex-clean-invalid-line-breaks): * lisp/ox.el (org-export-expand-include-keyword): Fix regular-expression infelicities and typos. Fix regular-expression glitches and typos 3c94c7bc02fcacb4a101188dddb0c44d53444178 Paul Eggert Mon Mar 4 18:00:58 2019 -0800 More regexp corrections and tweaks db9c924d3d53f46846ad8fd74a5d08f4586a520e Paul Eggert Fri Mar 8 09:09:40 2019 -0800 Note(km): These two commits are ported together because, with respect to Org files, db9c924d3 is a fix of an error from 3c94c7bc0.
2019-03-04 21:00:00 -05:00
((string-match "\\`\\$\\([0-9]+\\|[<>]+\\)\\'"
(car entry))
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
'column)
((equal (string-to-char (car entry)) ?@) 'field)
(t 'named)))
(title (assq type titles)))
(when title
(unless (bobp) (insert "\n"))
(insert
(org-add-props (cdr title) nil 'face font-lock-comment-face))
(setq titles (remove title titles)))
(when (equal key (car entry)) (setq startline (org-current-line)))
(let ((s (concat
(if (memq (string-to-char (car entry)) '(?@ ?$)) "" "$")
(car entry) " = " (cdr entry) "\n")))
(remove-text-properties 0 (length s) '(face nil) s)
(insert s))))
(when (eq org-table-use-standard-references t)
(org-table-fedit-toggle-ref-type))
(org-goto-line startline)
Display quotes in key-bindings as straight quotes * lisp/org-agenda.el (org-agenda-show-the-flagging-note): * lisp/org-footnote.el (org-footnote-goto-definition): * lisp/org-table.el (org-table-edit-formulas): Fix straight quotes rendered as curvy quotes in echoes messages (in emacs 25.1). * lisp/org-table.el (org-table-align): Fix straight quotes rendered as curvy quotes in help echo (in emacs 25.1). * lisp/org-protocol.el (org-protocol-create-for-org): * lisp/org-table.el (org-table-sum): Minor reformatting. The below thread discusses why these changes were needed especially when using emacs 25.1 or newer emacsen (that added support for rendering back-quotes and straight quotes as left/right curvy quotes by default): http://thread.gmane.org/gmane.emacs.orgmode/105594 Fix the quote style displayed when key-bindings are shown in the echo via (message .. (substitute-command-keys ..)). So below will render that single quote as curly. (message "C-c '") The fix (Reference: https://lists.gnu.org/archive/html/bug-gnu-emacs/2015-10/msg00234.html) is to print that quote verbatim using the "%s" modifier: (message "%s" "C-c '") Also an help-echo text property value was fixed in `org-table-align'. `substitute-command-keys' should not be used in that. Instead \\[COMMAND] should be used directly in the string.
2016-03-11 12:30:20 -05:00
(message "%s" (substitute-command-keys "\\<org-mode-map>\
Use substitute-command-keys more * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-log-mode-items): (org-agenda-auto-exclude-function): (org-search-view): (org-todo-list): (org-tags-view): (org-agenda-log-mode): (org-agenda-show-the-flagging-note): * lisp/org-clock.el (org-clock-out-when-done): * lisp/org-id.el (org-id-link-to-org-use-id): * lisp/org-table.el (org-table-allow-automatic-line-recalculation): (org-table-edit-formulas): * lisp/org.el (org-support-shift-select): (org-remove-highlights-with-change): (org-refile-use-cache): (org-use-fast-todo-selection): (org-time-stamp-rounding-minutes): (org-agenda-text-search-extra-files): (org-cycle): (org-ctrl-c-ctrl-c): Use substitute-command-keys.
2015-09-21 00:23:15 -04:00
Edit formulas, finish with `\\[org-ctrl-c-ctrl-c]' or `\\[org-edit-special]'. \
org-table: Fix editing multiple TBLFM lines * lisp/org-table.el (org-table-store-formulas): (org-table-get-stored-formulas): Add an optional argument to handle subsequent TBLFM lines. (org-table--fedit-source): New variable. (org-table-edit-formulas): (org-table-fedit-finish): Handle additional TBLFM lines. Reported-by: Nick Dokos <ndokos@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104158>
2016-01-14 15:11:12 -05:00
See menu for more commands.")))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-table-fedit-post-command ()
(when (not (memq this-command '(lisp-complete-symbol)))
(let ((win (selected-window)))
(save-excursion
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(ignore-errors (org-table-show-reference))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(select-window win)))))
(defun org-table-formula-to-user (s)
"Convert a formula from internal to user representation."
(if (eq org-table-use-standard-references t)
(org-table-convert-refs-to-an s)
s))
(defun org-table-formula-from-user (s)
"Convert a formula from user to internal representation."
(if org-table-use-standard-references
(org-table-convert-refs-to-rc s)
s))
(defun org-table-convert-refs-to-rc (s)
Fix small typo in docstring.
2011-03-03 03:34:34 -05:00
"Convert spreadsheet references from A7 to @7$28.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Works for single references, but also for entire formulas and even the
full TBLFM line."
(let ((start 0))
org-table.el: Fix bug when converting remote table references. * org-table.el (org-table-convert-refs-to-rc): Fix bug when converting remote table references. Thanks to Jose E. Marchesi who provided a preliminary patch for this.
2012-08-10 05:00:15 -04:00
(while (string-match "\\<\\([a-zA-Z]+\\)\\([0-9]+\\>\\|&\\)\\|\\(;[^\r\n:]+\\|\\<remote([^,)]*)\\)" s start)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(cond
((match-end 3)
;; format match, just advance
(setq start (match-end 0)))
((and (> (match-beginning 0) 0)
(equal ?. (aref s (max (1- (match-beginning 0)) 0)))
(not (equal ?. (aref s (max (- (match-beginning 0) 2) 0)))))
;; 3.e5 or something like this.
(setq start (match-end 0)))
Implement a better way to catch function names that look like a reference
2010-03-08 02:40:06 -05:00
((or (> (- (match-end 1) (match-beginning 1)) 2)
;; (member (match-string 1 s)
;; '("arctan" "exp" "expm" "lnp" "log" "stir"))
)
Fix table formula editing bug William Henney writes: > Anyone have a clue what is going on here? > > Cheers > > Will > > * Arctan2 bug > Activate the formula editor for the following table with =C-c '=, then > exit without changing anything. Note what happens to the arctan2 > formula. For me, "arctan2" changes to "@2$20173232". > | x | y | arctan | arctan2 | > |---+---+--------+---------| > | 1 | 1 | 45 | 45. | > #+TBLFM: $3=arctan($1/$2)::$4=arctan2($1,$2) > > ** Versions > Org 6.34trans, Aquamacs 2.0preview4, Emacs 23.1.92.1
2010-03-07 10:20:04 -05:00
;; function name, just advance
(setq start (match-end 0)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(t
(setq start (match-beginning 0)
s (replace-match
(if (equal (match-string 2 s) "&")
(format "$%d" (org-letters-to-number (match-string 1 s)))
(format "@%d$%d"
(string-to-number (match-string 2 s))
(org-letters-to-number (match-string 1 s))))
t t s)))))
s))
(defun org-table-convert-refs-to-an (s)
"Convert spreadsheet references from to @7$28 to AB7.
Works for single references, but also for entire formulas and even the
org-table-convert-refs-to-rc: Fix failing test * lisp/org-table.el (org-table-convert-refs-to-an): Leave $0 references (current row) unchanged during conversion. * testing/lisp/test-org-table.el (test-org-table/org-table-convert-refs-to-an/2): Re-enable the failing test.
2022-11-25 01:45:09 -05:00
full TBLFM line.
Leave the relative references unchanged."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(while (string-match "@\\([0-9]+\\)\\$\\([0-9]+\\)" s)
(setq s (replace-match
(format "%s%d"
(org-number-to-letters
(string-to-number (match-string 2 s)))
(string-to-number (match-string 1 s)))
t t s)))
org-table-convert-refs-to-rc: Fix failing test * lisp/org-table.el (org-table-convert-refs-to-an): Leave $0 references (current row) unchanged during conversion. * testing/lisp/test-org-table.el (test-org-table/org-table-convert-refs-to-an/2): Re-enable the failing test.
2022-11-25 01:45:09 -05:00
(while (string-match "\\(^\\|[^0-9a-zA-Z]\\)\\$\\([1-9][0-9]*\\)" s)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq s (replace-match (concat "\\1"
(org-number-to-letters
(string-to-number (match-string 2 s))) "&")
t nil s)))
s)
(defun org-letters-to-number (s)
"Convert a base 26 number represented by letters into an integer.
For example: AB -> 28."
(let ((n 0))
(setq s (upcase s))
(while (> (length s) 0)
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(setq n (+ (* n 26) (string-to-char s) (- ?A) 1)
s (substring s 1)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
n))
(defun org-number-to-letters (n)
"Convert an integer into a base 26 number represented by letters.
For example: 28 -> AB."
(let ((s ""))
(while (> n 0)
(setq s (concat (char-to-string (+ (mod (1- n) 26) ?A)) s)
n (/ (1- n) 26)))
s))
org-table.el: Implement computation of durations with "T" flag * install/git/org-mode/lisp/org-table.el (org-table-time-string-to-seconds) (org-table-time-seconds-to-string): New functions. (org-table-eval-formula): Implement the "T" (time) flag for computing durations.
2011-07-02 07:08:54 -04:00
(defun org-table-time-string-to-seconds (s)
org-table: match either HH:MM:SS or HH:MM (instead of MM:SS). * org-table.el (org-table-time-string-to-seconds): match either HH:MM:SS or HH:MM (instead of MM:SS). Thanks to Gustav Wikström for suggesting this change.
2011-07-24 12:19:17 -04:00
"Convert a time string into numerical duration in seconds.
org-table: fix another bug in duration computation. * org-table.el (org-table-eval-formula): Fix bug when a formula "range" is just one cell. (org-table-time-string-to-seconds): don't check whether we manipulate a string.
2011-07-24 18:55:04 -04:00
S can be a string matching either -?HH:MM:SS or -?HH:MM.
If S is a string representing a number, keep this number."
org-table.el: handle =02:34;t durations formula correctly. * org-table.el (org-table-time-string-to-seconds): Return the empty string if provided. (org-table-eval-formula): When assigning a duration string, handle it correctly -- i.e. don't make any computation on it, except the one to insert it using the correct duration format. Thanks to Sébastien Vauban for spotting this.
2012-05-05 10:14:33 -04:00
(if (equal s "")
s
(let (hour minus min sec res)
(cond
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
((and (string-match "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" s))
(setq minus (< 0 (length (match-string 1 s)))
hour (string-to-number (match-string 2 s))
min (string-to-number (match-string 3 s))
sec (string-to-number (match-string 4 s)))
(if minus
(setq res (- (+ (* hour 3600) (* min 60) sec)))
(setq res (+ (* hour 3600) (* min 60) sec))))
((and (not (string-match org-ts-regexp-both s))
(string-match "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\)" s))
(setq minus (< 0 (length (match-string 1 s)))
hour (string-to-number (match-string 2 s))
min (string-to-number (match-string 3 s)))
(if minus
(setq res (- (+ (* hour 3600) (* min 60))))
(setq res (+ (* hour 3600) (* min 60)))))
(t (setq res (string-to-number s))))
org-table.el: handle =02:34;t durations formula correctly. * org-table.el (org-table-time-string-to-seconds): Return the empty string if provided. (org-table-eval-formula): When assigning a duration string, handle it correctly -- i.e. don't make any computation on it, except the one to insert it using the correct duration format. Thanks to Sébastien Vauban for spotting this.
2012-05-05 10:14:33 -04:00
(number-to-string res))))
org-table.el: Implement computation of durations with "T" flag * install/git/org-mode/lisp/org-table.el (org-table-time-string-to-seconds) (org-table-time-seconds-to-string): New functions. (org-table-eval-formula): Implement the "T" (time) flag for computing durations.
2011-07-02 07:08:54 -04:00
org-table: new defcustom `org-table-duration-custom-format'. This allows to display the output of duration computations as a fraction of days, hours, minutes or seconds. Thanks to Daniel E. Doherty for bringing up this need. * org-table.el (org-table-duration-custom-format): New defcustom to select output format of durations computations. (org-table-time-seconds-to-string): Use the new variable. (org-table-eval-formula): Allow `t' as a flag, on top of `T'. `t' will use the custom output format defined in `org-table-duration-custom-format.
2011-07-27 07:14:37 -04:00
(defun org-table-time-seconds-to-string (secs &optional output-format)
"Convert a number of seconds to a time string.
If OUTPUT-FORMAT is non-nil, return a number of days, hours,
minutes or seconds."
org-table.el: Fix bug about handling a negative duration value. * org-table.el (org-table-time-seconds-to-string): Fix bug about handling a negative duration value.
2012-05-01 13:19:06 -04:00
(let* ((secs0 (abs secs))
(res
(cond ((eq output-format 'days)
(format "%.3f" (/ (float secs0) 86400)))
((eq output-format 'hours)
(format "%.2f" (/ (float secs0) 3600)))
((eq output-format 'minutes)
(format "%.1f" (/ (float secs0) 60)))
((eq output-format 'seconds)
(format "%d" secs0))
Implement new `U' mode switch for table formulas to omit seconds in durations * lisp/org-table.el (org-table-duration-custom-format): Add new HH:MM format. (org-table-duration-hour-zero-padding): New option. (org-table-eval-formula): Select second-less format if requested. (org-table-time-seconds-to-string): Implement formats without seconds and without zero-padding for hours. * testing/lisp/test-org-table.el (test-org-table/duration): New test for second-less durations. * doc/org.texi (Formula syntax for Calc) (Durations and time values): Document the U mode switch.
2017-06-11 17:44:51 -04:00
((eq output-format 'hh:mm)
;; Ignore seconds
(substring (format-seconds
(if org-table-duration-hour-zero-padding
"%.2h:%.2m:%.2s" "%h:%.2m:%.2s")
secs0)
0 -3))
(t (format-seconds
(if org-table-duration-hour-zero-padding
"%.2h:%.2m:%.2s" "%h:%.2m:%.2s")
secs0)))))
org-table.el: Fix bug about handling a negative duration value. * org-table.el (org-table-time-seconds-to-string): Fix bug about handling a negative duration value.
2012-05-01 13:19:06 -04:00
(if (< secs 0) (concat "-" res) res)))
org-table.el: Implement computation of durations with "T" flag * install/git/org-mode/lisp/org-table.el (org-table-time-string-to-seconds) (org-table-time-seconds-to-string): New functions. (org-table-eval-formula): Implement the "T" (time) flag for computing durations.
2011-07-02 07:08:54 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-convert-buffer (function)
"Convert all references in this buffer, using FUNCTION."
(let ((origin (copy-marker (line-beginning-position))))
(goto-char (point-min))
(while (not (eobp))
(insert (funcall function (buffer-substring (point) (line-end-position))))
(delete-region (point) (line-end-position))
(forward-line))
(goto-char origin)
(set-marker origin nil)))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-toggle-ref-type ()
"Convert all references in the buffer from B3 to @3$2 and back."
(interactive)
(setq-local org-table-buffer-is-an (not org-table-buffer-is-an))
(org-table-fedit-convert-buffer
(if org-table-buffer-is-an
'org-table-convert-refs-to-an 'org-table-convert-refs-to-rc))
(message "Reference type switched to %s"
(if org-table-buffer-is-an "A1 etc" "@row$column")))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-ref-up ()
"Shift the reference at point one row/hline up."
(interactive)
(org-table-fedit-shift-reference 'up))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-ref-down ()
"Shift the reference at point one row/hline down."
(interactive)
(org-table-fedit-shift-reference 'down))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-ref-left ()
"Shift the reference at point one field to the left."
(interactive)
(org-table-fedit-shift-reference 'left))
org-table: Improve shrinking on right-aligned and centered columns * lisp/org-table.el (org-table--make-shrinking-overlay): New function. (org-table--shrink-field): Use new function. (org-table--shrink-columns): Update function. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): Update test.
2018-04-02 14:21:24 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-ref-right ()
"Shift the reference at point one field to the right."
(interactive)
(org-table-fedit-shift-reference 'right))
org-table: Improve shrinking on right-aligned and centered columns * lisp/org-table.el (org-table--make-shrinking-overlay): New function. (org-table--shrink-field): Use new function. (org-table--shrink-columns): Update function. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): Update test.
2018-04-02 14:21:24 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table--rematch-and-replace (n &optional decr hline)
"Re-match the group N, and replace it with the shifted reference."
(or (match-end n) (user-error "Cannot shift reference in this direction"))
(goto-char (match-beginning n))
(and (looking-at (regexp-quote (match-string n)))
(replace-match (org-table-shift-refpart (match-string 0) decr hline)
t t)))
org-table: Shrunk columns obey to alignment cookies * lisp/org-table.el (org-table--make-shrinking-overlay): Take care of concatenating `org-table-separator-space' and `org-table-shrunk-column-indicator'. (org-table--shrink-field): Change signature to include column's alignment. Improve algorithm. (org-table--shrink-columns): Apply signature change.
2019-02-17 12:42:23 -05:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-shift-reference (dir)
(cond
((org-in-regexp "\\(\\<[a-zA-Z]\\)&")
(if (memq dir '(left right))
(org-table--rematch-and-replace 1 (eq dir 'left))
(user-error "Cannot shift reference in this direction")))
((org-in-regexp "\\(\\<[a-zA-Z]\\{1,2\\}\\)\\([0-9]+\\)")
;; A B3-like reference
(if (memq dir '(up down))
(org-table--rematch-and-replace 2 (eq dir 'up))
(org-table--rematch-and-replace 1 (eq dir 'left))))
((org-in-regexp
"\\(@\\|\\.\\.\\)\\([-+]?\\(I+\\>\\|[0-9]+\\)\\)\\(\\$\\([-+]?[0-9]+\\)\\)?")
;; An internal reference
(if (memq dir '(up down))
(org-table--rematch-and-replace 2 (eq dir 'up) (match-end 3))
(org-table--rematch-and-replace 5 (eq dir 'left))))))
org-table: Improve shrinking on right-aligned and centered columns * lisp/org-table.el (org-table--make-shrinking-overlay): New function. (org-table--shrink-field): Use new function. (org-table--shrink-columns): Update function. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): Update test.
2018-04-02 14:21:24 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-shift-refpart (ref &optional decr hline)
"Shift a reference part REF.
If DECR is set, decrease the references row/column, else increase.
If HLINE is set, this may be a hline reference, it certainly is not
a translation reference."
(save-match-data
(let* ((sign (string-match "^[-+]" ref)) n)
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(if sign (setq sign (substring ref 0 1) ref (substring ref 1)))
(cond
((and hline (string-match "^I+" ref))
(setq n (string-to-number (concat sign (number-to-string (length ref)))))
(setq n (+ n (if decr -1 1)))
(if (= n 0) (setq n (+ n (if decr -1 1))))
(if sign
(setq sign (if (< n 0) "-" "+") n (abs n))
(setq n (max 1 n)))
(concat sign (make-string n ?I)))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
((string-match "^[0-9]+" ref)
(setq n (string-to-number (concat sign ref)))
(setq n (+ n (if decr -1 1)))
(if sign
(concat (if (< n 0) "-" "+") (number-to-string (abs n)))
(number-to-string (max 1 n))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
((string-match "^[a-zA-Z]+" ref)
(org-number-to-letters
(max 1 (+ (org-letters-to-number ref) (if decr -1 1)))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(t (user-error "Cannot shift reference"))))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-toggle-coordinates ()
"Toggle the display of coordinates in the referenced table."
(interactive)
(let ((pos (marker-position org-pos)))
(with-current-buffer (marker-buffer org-pos)
(save-excursion
(goto-char pos)
(org-table-toggle-coordinate-overlays)))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-finish (&optional arg)
"Parse the buffer for formula definitions and install them.
With prefix ARG, apply the new formulas to the table."
(interactive "P")
(org-table-remove-rectangle-highlight)
(when org-table-use-standard-references
(org-table-fedit-convert-buffer 'org-table-convert-refs-to-rc)
(setq org-table-buffer-is-an nil))
(let ((pos org-pos)
(sel-win org-selected-window)
(source org-table--fedit-source)
eql)
(goto-char (point-min))
(while (re-search-forward
"^\\(@[-+I<>0-9.$@]+\\|@?[0-9]+\\|\\$\\([a-zA-Z0-9]+\\|[<>]+\\)\\) *= *\\(.*\\(\n[ \t]+.*$\\)*\\)"
nil t)
(let ((var (match-string 1))
(form (org-trim (match-string 3))))
(unless (equal form "")
(while (string-match "[ \t]*\n[ \t]*" form)
(setq form (replace-match " " t t form)))
(when (assoc var eql)
(user-error "Double formulas for %s" var))
(push (cons var form) eql))))
(set-window-configuration org-window-configuration)
(select-window sel-win)
(goto-char source)
(org-table-store-formulas eql)
(set-marker pos nil)
(set-marker source nil)
(kill-buffer "*Edit Formulas*")
(if arg
(org-table-recalculate 'all)
(message "New formulas installed - press C-u C-c C-c to apply."))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-abort ()
"Abort editing formulas, without installing the changes."
(interactive)
(org-table-remove-rectangle-highlight)
(let ((pos org-pos) (sel-win org-selected-window))
(set-window-configuration org-window-configuration)
(select-window sel-win)
(goto-char pos)
(move-marker pos nil)
(message "Formula editing aborted without installing changes")))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-lisp-indent ()
"Pretty-print and re-indent Lisp expressions in the Formula Editor."
(interactive)
(let ((pos (point)) beg end ind)
(beginning-of-line 1)
(cond
((looking-at "[ \t]")
(goto-char pos)
(call-interactively 'lisp-indent-line))
((looking-at "[$&@0-9a-zA-Z]+ *= *[^ \t\n']") (goto-char pos))
((looking-at "[$&@0-9a-zA-Z]+ *= *'(")
(goto-char (- (match-end 0) 2))
(setq beg (point))
(setq ind (make-string (current-column) ?\ ))
(condition-case nil (forward-sexp 1)
(error
(user-error "Cannot pretty-print Lisp expression: Unbalanced parenthesis")))
(setq end (point))
(save-restriction
(narrow-to-region beg end)
(if (eq last-command this-command)
(progn
(goto-char (point-min))
(setq this-command nil)
(while (re-search-forward "[ \t]*\n[ \t]*" nil t)
(replace-match " ")))
(pp-buffer)
(untabify (point-min) (point-max))
(goto-char (1+ (point-min)))
(while (re-search-forward "^." nil t)
(beginning-of-line 1)
(insert ind))
(goto-char (point-max))
(org-delete-backward-char 1)))
(goto-char beg))
(t nil))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-line-up ()
"Move cursor one line up in the window showing the table."
(interactive)
(org-table-fedit-move 'previous-line))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-line-down ()
"Move cursor one line down in the window showing the table."
(interactive)
(org-table-fedit-move 'next-line))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-move (command)
"Move the cursor in the window showing the table.
Use COMMAND to do the motion, repeat if necessary to end up in a data line."
(let ((org-table-allow-automatic-line-recalculation nil)
(pos org-pos) (win (selected-window)) p)
(select-window (get-buffer-window (marker-buffer org-pos)))
(setq p (point))
(call-interactively command)
(while (and (org-at-table-p)
(org-at-table-hline-p))
(call-interactively command))
(or (org-at-table-p) (goto-char p))
(move-marker pos (point))
(select-window win)))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-scroll (N)
(interactive "p")
(let ((other-window-scroll-buffer (marker-buffer org-pos)))
(scroll-other-window N)))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-fedit-scroll-down (N)
(interactive "p")
(org-table-fedit-scroll (- N)))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-add-rectangle-overlay (beg end &optional face)
"Add a new overlay."
(let ((ov (make-overlay beg end)))
(overlay-put ov 'face (or face 'secondary-selection))
(push ov org-table-rectangle-overlays)))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-highlight-rectangle (&optional beg end face)
"Highlight rectangular region in a table.
When buffer positions BEG and END are provided, use them to
delimit the region to highlight. Otherwise, refer to point. Use
FACE, when non-nil, for the highlight."
(let* ((beg (or beg (point)))
(end (or end (point)))
(b (min beg end))
(e (max beg end))
(start-coordinates
(save-excursion
(goto-char b)
(cons (line-beginning-position) (org-table-current-column))))
(end-coordinates
(save-excursion
(goto-char e)
(cons (line-beginning-position) (org-table-current-column)))))
(when (boundp 'org-show-positions)
(setq org-show-positions (cons b (cons e org-show-positions))))
(goto-char (car start-coordinates))
(let ((column-start (min (cdr start-coordinates) (cdr end-coordinates)))
(column-end (max (cdr start-coordinates) (cdr end-coordinates)))
(last-row (car end-coordinates)))
(while (<= (point) last-row)
(when (looking-at org-table-dataline-regexp)
(org-table-goto-column column-start)
(skip-chars-backward "^|\n")
(let ((p (point)))
(org-table-goto-column column-end)
(skip-chars-forward "^|\n")
(org-table-add-rectangle-overlay p (point) face)))
(forward-line)))
(goto-char (car start-coordinates)))
(add-hook 'before-change-functions #'org-table-remove-rectangle-highlight))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-remove-rectangle-highlight (&rest _ignore)
"Remove the rectangle overlays."
(unless org-inhibit-highlight-removal
(remove-hook 'before-change-functions 'org-table-remove-rectangle-highlight)
(mapc 'delete-overlay org-table-rectangle-overlays)
(setq org-table-rectangle-overlays nil)))
org-table: Change behavior of `org-table-toggle-column-width' * lisp/org-table.el (org-table-toggle-column-width): Change behavior of `org-table-toggle-column-width'. (org-table-shrink): Allow optional arguments. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): Update tests.
2017-08-19 08:09:50 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defvar-local org-table-coordinate-overlays nil
"Collects the coordinate grid overlays, so that they can be removed.")
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-overlay-coordinates ()
"Add overlays to the table at point, to show row/column coordinates."
(interactive)
(mapc 'delete-overlay org-table-coordinate-overlays)
(setq org-table-coordinate-overlays nil)
(save-excursion
(let ((id 0) (ih 0) hline eol str ov)
(goto-char (org-table-begin))
(while (org-at-table-p)
Backport commit b7e867b84 from Emacs Make point-at-eol and point-at-bol obsolete b7e867b841f47dcff3aeaef9b5608a237386ce70 Stefan Kangas Tue Aug 23 04:54:57 2022 +0200 [ km: This was independently covered on the main branch with e73c5b7d0. I'm applying it here too for bookkeeping/traceability purposes. ]
2022-08-22 22:54:57 -04:00
(setq eol (line-end-position))
(setq ov (make-overlay (line-beginning-position)
(1+ (line-beginning-position))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(push ov org-table-coordinate-overlays)
(setq hline (looking-at org-table-hline-regexp))
(setq str (if hline (format "I*%-2d" (setq ih (1+ ih)))
(format "%4d" (setq id (1+ id)))))
(org-overlay-before-string ov str 'org-special-keyword 'evaporate)
(when hline
(let ((ic 0))
(while (re-search-forward "[+|]\\(-+\\)" eol t)
(cl-incf ic)
(let* ((beg (1+ (match-beginning 0)))
(s1 (format "$%d" ic))
(s2 (org-number-to-letters ic))
(str (if (eq t org-table-use-standard-references) s2 s1))
(ov (make-overlay beg (+ beg (length str)))))
(push ov org-table-coordinate-overlays)
(org-overlay-display ov str 'org-special-keyword 'evaporate)))))
(forward-line)))))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
org-table: Allow to shrink tables upon opening a document * lisp/org-table.el (org-table-shrink): New function. * lisp/org.el (org-startup-align-all-tables): Update docstring. (org-startup-shrink-all-tables): New variable. (org-mode): Use new function and new variable.
2017-07-26 19:44:23 -04:00
;;;###autoload
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-toggle-coordinate-overlays ()
"Toggle the display of Row/Column numbers in tables."
org-table: Allow to shrink tables upon opening a document * lisp/org-table.el (org-table-shrink): New function. * lisp/org.el (org-startup-align-all-tables): Update docstring. (org-startup-shrink-all-tables): New variable. (org-mode): Use new function and new variable.
2017-07-26 19:44:23 -04:00
(interactive)
org-table.el: Fix message * lisp/org-table.el (org-table-toggle-coordinate-overlays): Fix the message sent when coordinates are not displayed.
2020-02-02 08:03:20 -05:00
(if (not (org-at-table-p))
(user-error "Not on a table")
(setq org-table-overlay-coordinates (not org-table-overlay-coordinates))
(when (and (org-at-table-p) org-table-overlay-coordinates)
(org-table-align))
(unless org-table-overlay-coordinates
(mapc 'delete-overlay org-table-coordinate-overlays)
(setq org-table-coordinate-overlays nil))
(message "Tables Row/Column numbers display turned %s"
(if org-table-overlay-coordinates "on" "off"))))
org-table: Allow to shrink tables upon opening a document * lisp/org-table.el (org-table-shrink): New function. * lisp/org.el (org-startup-align-all-tables): Update docstring. (org-startup-shrink-all-tables): New variable. (org-mode): Use new function and new variable.
2017-07-26 19:44:23 -04:00
org-table: Implement org-table-expand * lisp/org-table.el (org-table-expand): New function. (org-table--expand-all-columns): Remove function. (org-table-with-shrunk-columns): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-toggle-column-width): Use new function.
2017-08-19 09:39:04 -04:00
;;;###autoload
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-toggle-formula-debugger ()
"Toggle the formula debugger in tables."
org-table: Implement org-table-expand * lisp/org-table.el (org-table-expand): New function. (org-table--expand-all-columns): Remove function. (org-table-with-shrunk-columns): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-toggle-column-width): Use new function.
2017-08-19 09:39:04 -04:00
(interactive)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(setq org-table-formula-debug (not org-table-formula-debug))
(message "Formula debugging has been turned %s"
(if org-table-formula-debug "on" "off")))
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;; Columns Shrinking
org-table: Implement shrunk columns * lisp/org-table.el (org-table-shrunk-column-indicator): New variable. (org-table-with-shrunk-columns): New macro. (org-table--shrunk-field): (org-table--list-shrunk-columns): (org-table--shrink-field): (org-table--read-column-selection): (org-table--expand-all-columns): (org-table-toggle-column-width): New functions. (org-table-align): (org-table-get-field): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-move-row): (org-table-insert-row): (org-table-insert-hline): (org-table-kill-row): (org-table-sort-lines): Use new functions. (org-table-overlay-coordinates): (org-table-toggle-coordinate-overlays): Tiny refactoring. * testing/lisp/test-org-table.el (test-org-table/toggle-column-width): (test-org-table/shrunk-columns): New tests.
2017-06-27 17:06:02 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table--shrunk-field ()
"Non-nil if current field is narrowed.
When non-nil, return the overlay narrowing the field."
(cl-some (lambda (o)
(and (eq 'table-column-hide (overlay-get o 'org-overlay-type))
o))
(overlays-at (save-excursion
(skip-chars-forward (if (org-at-table-hline-p) "^+|"
"^|")
(line-end-position))
(1- (point))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table--list-shrunk-columns ()
"List currently shrunk columns in table at point."
(save-excursion
;; We really check shrunk columns in current row only. It could
;; be wrong if all rows do not contain the same number of columns
;; (i.e. the table is not properly aligned). As a consequence,
;; some columns may not be shrunk again upon aligning the table.
;;
;; For example, in the following table, cursor is on first row and
;; "<>" indicates a shrunk column.
;;
;; | |
;; | | <> |
;;
;; Aligning table from the first row will not shrink again the
;; second row, which was not visible initially.
;;
;; However, fixing it requires to check every row, which may be
;; slow on large tables. Moreover, the hindrance of this
;; pathological case is very limited.
(beginning-of-line)
(search-forward "|")
(let ((separator (if (org-at-table-hline-p) "+" "|"))
(column 1)
(shrunk (and (org-table--shrunk-field) (list 1)))
(end (line-end-position)))
(while (search-forward separator end t)
(cl-incf column)
(when (org-table--shrunk-field) (push column shrunk)))
(nreverse shrunk))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table--make-shrinking-overlay (start end display field &optional pre)
"Create an overlay to shrink text between START and END.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
Use string DISPLAY instead of the real text between the two
buffer positions. FIELD is the real contents of the field, as
a string, or nil. It is meant to be displayed upon moving the
mouse onto the overlay.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
When optional argument PRE is non-nil, assume the overlay is
located at the beginning of the field, and prepend
org-table: Prevent Emacs from merging displayed separator spaces * lisp/org-table.el (org-table-separator-space): Remove. (org-table--separator-space-pre): (org-table--separator-space-post): Use non-`eq' spaces as table cell boundaries. This way, Emacs display engine will not merge the two spaces with `eq' 'display properties in empty table cells. (org-table--make-shrinking-overlay): (org-table--align-field): Use the new constants for table alignment. Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45915
2022-09-22 07:54:21 -04:00
`org-table--separator-space-pre' to it. Otherwise, concatenate
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
`org-table-shrunk-column-indicator' at its end.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
Return the overlay."
(let ((show-before-edit
(lambda (o &rest _)
;; Removing one overlay removes all other overlays in the
;; same column.
(mapc #'delete-overlay
(cdr (overlay-get o 'org-table-column-overlays)))))
(o (make-overlay start end)))
(overlay-put o 'insert-behind-hooks (list show-before-edit))
(overlay-put o 'insert-in-front-hooks (list show-before-edit))
(overlay-put o 'modification-hooks (list show-before-edit))
(overlay-put o 'org-overlay-type 'table-column-hide)
(when (stringp field) (overlay-put o 'help-echo field))
;; Make sure overlays stays on top of table coordinates overlays.
;; See `org-table-overlay-coordinates'.
(overlay-put o 'priority 1)
org-table: Prevent Emacs from merging displayed separator spaces * lisp/org-table.el (org-table-separator-space): Remove. (org-table--separator-space-pre): (org-table--separator-space-post): Use non-`eq' spaces as table cell boundaries. This way, Emacs display engine will not merge the two spaces with `eq' 'display properties in empty table cells. (org-table--make-shrinking-overlay): (org-table--align-field): Use the new constants for table alignment. Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45915
2022-09-22 07:54:21 -04:00
(let ((d (if pre (concat org-table--separator-space-pre display)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(concat display org-table-shrunk-column-indicator))))
(org-overlay-display o d 'org-table t))
o))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table--shrink-field (width align start end contents)
"Shrink a table field to a specified width.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
WIDTH is an integer representing the number of characters to
display, in addition to `org-table-shrunk-column-indicator'.
ALIGN is the alignment of the current column, as either \"l\",
\"c\" or \"r\". START and END are, respectively, the beginning
and ending positions of the field. CONTENTS is its trimmed
contents, as a string, or `hline' for table rules.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
Real field is hidden under one or two overlays. They have the
following properties:
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
`org-overlay-type'
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
Set to `table-column-hide'. Used to identify overlays
responsible for shrinking columns in a table.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
`org-table-column-overlays'
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
It is a list with the pattern (siblings . COLUMN-OVERLAYS)
where COLUMN-OVERLAYS is the list of all overlays hiding the
same column.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
Whenever the text behind or next to the overlay is modified, all
the overlays in the column are deleted, effectively displaying
the column again.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
Return a list of overlays hiding the field, or nil if field is
already hidden."
(cond
((= start end) nil) ;no field to narrow
((org-table--shrunk-field) nil) ;already shrunk
((= 0 width) ;shrink to one character
(list (org-table--make-shrinking-overlay
start end "" (if (eq 'hline contents) "" contents))))
((eq contents 'hline)
(list (org-table--make-shrinking-overlay
start end (make-string (1+ width) ?-) "")))
((equal contents "") ;no contents to hide
(list
(let ((w (org-string-width (buffer-substring start end)))
;; We really want WIDTH + 2 whitespace, to include blanks
;; around fields.
(full (+ 2 width)))
(if (<= w full)
(org-table--make-shrinking-overlay
(1- end) end (make-string (- full w) ?\s) "")
(org-table--make-shrinking-overlay (- end (- w full) 1) end "" "")))))
(t
;; If the field is not empty, display exactly WIDTH characters.
;; It can mean to partly hide the field, or extend it with virtual
;; blanks. To that effect, we use one or two overlays. The
;; first, optional, one may add or hide white spaces before the
;; contents of the field. The other, mandatory, one cuts the
;; field or displays white spaces at the end of the field. It
;; also always displays `org-table-shrunk-column-indicator'.
(let* ((lead (org-with-point-at start (skip-chars-forward " ")))
(trail (org-with-point-at end (abs (skip-chars-backward " "))))
(contents-width (org-string-width
(buffer-substring (+ start lead) (- end trail)))))
(cond
;; Contents are too large to fit in WIDTH character. Limit, if
;; possible, blanks at the beginning of the field to a single
;; white space, and cut the field at an appropriate location.
((<= width contents-width)
(let ((pre
(and (> lead 0)
(org-table--make-shrinking-overlay
start (+ start lead) "" contents t)))
(post
(org-table--make-shrinking-overlay
;; Find cut location so that WIDTH characters are
;; visible using dichotomy.
(let* ((begin (+ start lead))
(lower begin)
(upper (1- end))
;; Compensate the absence of leading space,
;; thus preserving alignment.
(width (if (= lead 0) (1+ width) width)))
(catch :exit
(while (> (- upper lower) 1)
(let ((mean (+ (ash lower -1)
(ash upper -1)
(logand lower upper 1))))
(pcase (org-string-width (buffer-substring begin mean))
((pred (= width)) (throw :exit mean))
((pred (< width)) (setq upper mean))
(_ (setq lower mean)))))
upper))
end "" contents)))
(if pre (list pre post) (list post))))
;; Contents fit it WIDTH characters. First compute number of
;; white spaces needed on each side of contents, then expand or
;; compact blanks on each side of the field in order to
;; preserve width and obey to alignment constraints.
(t
(let* ((required (- width contents-width))
(before
(pcase align
;; Compensate the absence of leading space, thus
;; preserving alignment.
((guard (= lead 0)) -1)
("l" 0)
("r" required)
("c" (/ required 2))))
(after (- required before))
(pre
(pcase (1- lead)
((or (guard (= lead 0)) (pred (= before))) nil)
((pred (< before))
(org-table--make-shrinking-overlay
start (+ start (- lead before)) "" contents t))
(_
(org-table--make-shrinking-overlay
start (1+ start)
(make-string (- before (1- lead)) ?\s)
contents t))))
(post
(pcase (1- trail)
((pred (= after))
(org-table--make-shrinking-overlay (1- end) end "" contents))
((pred (< after))
(org-table--make-shrinking-overlay
(+ after (- end trail)) end "" contents))
(_
(org-table--make-shrinking-overlay
(1- end) end
(make-string (- after (1- trail)) ?\s)
contents)))))
(if pre (list pre post) (list post)))))))))
(defun org-table--read-column-selection (select max)
"Read column selection select as a list of numbers.
SELECT is a string containing column ranges, separated by white
space characters, see `org-table-hide-column' for details. MAX
is the maximum column number.
Return value is a sorted list of numbers. Ignore any number
outside of the [1;MAX] range."
(catch :all
(sort
(delete-dups
(cl-mapcan
(lambda (s)
(cond
((member s '("-" "1-")) (throw :all (number-sequence 1 max)))
((string-match-p "\\`[0-9]+\\'" s)
(let ((n (string-to-number s)))
(and (> n 0) (<= n max) (list n))))
((string-match "\\`\\([0-9]+\\)?-\\([0-9]+\\)?\\'" s)
(let ((n (match-string 1 s))
(m (match-string 2 s)))
(number-sequence (if n (max 1 (string-to-number n))
1)
(if m (min max (string-to-number m))
max))))
(t nil))) ;invalid specification
(split-string select)))
#'<)))
(defun org-table--shrink-columns (columns beg end)
"Shrink COLUMNS in a table.
COLUMNS is a sorted list of column numbers. BEG and END are,
respectively, the beginning position and the end position of the
table."
(org-with-wide-buffer
Delete some Emacs 24 compat code Org mode supports Emacs 26 or newer: https://orgmode.org/worg/org-maintenance.html#emacs-compatibility * lisp/org-compat.el (org-set-transient-map) (org-font-lock-ensure): Delete compat aliases. Update callers. (org-define-error): Redefine as obsolete function alias for `define-error'. Update callers. (string-suffix-p): Delete compatibility definition. * lisp/org-fold-core.el (org-fold-core--seq-partition): Delete private function and update callers to use `seq-partition'. * lisp/org-macs.el (org-without-partial-completion): Move from here... * lisp/org-compat.el (org-without-partial-completion): ...to here. Redefine as obsolete function alias for `progn'.
2022-06-30 07:06:21 -04:00
(font-lock-ensure beg end)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(dolist (c columns)
(goto-char beg)
(let ((align nil)
(width nil)
(fields nil))
(while (< (point) end)
(catch :continue
(let* ((hline? (org-at-table-hline-p))
(separator (if hline? "+" "|")))
;; Move to COLUMN.
(search-forward "|")
(or (= c 1) ;already there
(search-forward separator (line-end-position) t (1- c))
(throw :continue nil)) ;skip invalid columns
;; Extract boundaries and contents from current field.
;; Also set the column's width if we encounter a width
;; cookie for the first time.
(let* ((start (point))
(end (progn
(skip-chars-forward (concat "^|" separator)
(line-end-position))
(point)))
(contents (if hline? 'hline
(org-trim (buffer-substring start end)))))
(push (list start end contents) fields)
(when (and (not hline?)
(string-match "\\`<\\([lrc]\\)?\\([0-9]+\\)>\\'"
contents))
(unless align (setq align (match-string 1 contents)))
(unless width
(setq width (string-to-number (match-string 2 contents))))))))
(forward-line))
;; Link overlays for current field to the other overlays in the
;; same column.
(let ((chain (list 'siblings)))
(dolist (field fields)
(dolist (new (apply #'org-table--shrink-field
(or width 0) (or align "l") field))
(push new (cdr chain))
(overlay-put new 'org-table-column-overlays chain))))))))
;;;###autoload
(defun org-table-toggle-column-width (&optional arg)
"Shrink or expand current column in an Org table.
If a width cookie specifies a width W for the column, the first
W visible characters are displayed. Otherwise, the column is
shrunk to a single character.
When point is before the first column or after the last one, ask
for the columns to shrink or expand, as a list of ranges.
A column range can be one of the following patterns:
N column N only
N-M every column between N and M (both inclusive)
N- every column between N (inclusive) and the last column
-M every column between the first one and M (inclusive)
- every column
When optional argument ARG is a string, use it as white space
separated list of column ranges.
When called with `\\[universal-argument]' prefix, call \
`org-table-shrink', i.e.,
shrink columns with a width cookie and expand the others.
When called with `\\[universal-argument] \\[universal-argument]' \
prefix, expand all columns."
(interactive "P")
(unless (org-at-table-p) (user-error "Not in a table"))
(let* ((begin (org-table-begin))
(end (org-table-end))
;; Compute an upper bound for the number of columns.
;; Nonexistent columns are ignored anyway.
(max-columns (/ (- (line-end-position) (line-beginning-position)) 2))
(shrunk (org-table--list-shrunk-columns))
(columns
(pcase arg
(`nil
(if (save-excursion
(skip-chars-backward "^|" (line-beginning-position))
(or (bolp) (looking-at-p "[ \t]*$")))
;; Point is either before first column or past last
;; one. Ask for columns to operate on.
(org-table--read-column-selection
(read-string "Column ranges (e.g. 2-4 6-): ")
max-columns)
(list (org-table-current-column))))
((pred stringp) (org-table--read-column-selection arg max-columns))
((or `(4) `(16)) nil)
(_ (user-error "Invalid argument: %S" arg)))))
(pcase arg
(`(4) (org-table-shrink begin end))
(`(16) (org-table-expand begin end))
(_
(org-table-expand begin end)
(org-table--shrink-columns
(cl-set-exclusive-or columns shrunk) begin end)))))
;;;###autoload
(defun org-table-shrink (&optional begin end)
"Shrink all columns with a width cookie in the table at point.
Columns without a width cookie are expanded.
Optional arguments BEGIN and END, when non-nil, specify the
beginning and end position of the current table."
(interactive)
(unless (or begin (org-at-table-p)) (user-error "Not at a table"))
(org-with-wide-buffer
(let ((begin (or begin (org-table-begin)))
(end (or end (org-table-end)))
(regexp "|[ \t]*<[lrc]?[0-9]+>[ \t]*\\(|\\|$\\)")
(columns))
(goto-char begin)
(while (re-search-forward regexp end t)
(goto-char (match-beginning 1))
(cl-pushnew (org-table-current-column) columns))
(org-table-expand begin end)
;; Make sure invisible characters in the table are at the right
;; place since column widths take them into account.
Delete some Emacs 24 compat code Org mode supports Emacs 26 or newer: https://orgmode.org/worg/org-maintenance.html#emacs-compatibility * lisp/org-compat.el (org-set-transient-map) (org-font-lock-ensure): Delete compat aliases. Update callers. (org-define-error): Redefine as obsolete function alias for `define-error'. Update callers. (string-suffix-p): Delete compatibility definition. * lisp/org-fold-core.el (org-fold-core--seq-partition): Delete private function and update callers to use `seq-partition'. * lisp/org-macs.el (org-without-partial-completion): Move from here... * lisp/org-compat.el (org-without-partial-completion): ...to here. Redefine as obsolete function alias for `progn'.
2022-06-30 07:06:21 -04:00
(font-lock-ensure begin end)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(org-table--shrink-columns (sort columns #'<) begin end))))
;;;###autoload
(defun org-table-expand (&optional begin end)
"Expand all columns in the table at point.
Optional arguments BEGIN and END, when non-nil, specify the
beginning and end position of the current table."
(interactive)
(unless (or begin (org-at-table-p)) (user-error "Not at a table"))
(org-with-wide-buffer
(let ((begin (or begin (org-table-begin)))
(end (or end (org-table-end))))
(remove-overlays begin end 'org-overlay-type 'table-column-hide))))
;;; Generic Tools
;;;###autoload
(defun org-table-map-tables (f &optional quietly)
"Apply function F to the start of all tables in the buffer."
(org-with-point-at 1
(while (re-search-forward org-table-line-regexp nil t)
(let ((table (org-element-lineage (org-element-at-point) '(table) t)))
(when table
(unless quietly
(message "Mapping tables: %d%%"
(floor (* 100.0 (point)) (buffer-size))))
org-table: Fix `org-table-map-tables' * lisp/org-table.el (org-table-map-tables): Apply function at the beginning of the table, not at the first affiliated keyword, if any. Reported-by: Kaushal Modi <kaushal.modi@gmail.com> <http://lists.gnu.org/r/emacs-orgmode/2019-04/msg00167.html>
2019-04-23 04:35:31 -04:00
(goto-char (org-element-property :post-affiliated table))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(let ((end (copy-marker (org-element-property :end table))))
(unwind-protect
(progn (funcall f) (goto-char end))
(set-marker end nil)))))))
(unless quietly (message "Mapping tables: done")))
;;;###autoload
(defun org-table-export (&optional file format)
"Export table to a file, with configurable format.
Such a file can be imported into usual spreadsheet programs.
FILE can be the output file name. If not given, it will be taken
from a TABLE_EXPORT_FILE property in the current entry or higher
up in the hierarchy, or the user will be prompted for a file
name. FORMAT can be an export format, of the same kind as it
used when `-mode' sends a table in a different format.
The command suggests a format depending on TABLE_EXPORT_FORMAT,
whether it is set locally or up in the hierarchy, then on the
extension of the given file name, and finally on the variable
`org-table-export-default-format'."
(interactive)
(unless (org-at-table-p) (user-error "No table at point"))
(org-table-align) ; Make sure we have everything we need.
(let ((file (or file (org-entry-get (point) "TABLE_EXPORT_FILE" t))))
(unless file
(setq file (read-file-name "Export table to: "))
(unless (or (not (file-exists-p file))
(y-or-n-p (format "Overwrite file %s? " file)))
(user-error "File not written")))
(when (file-directory-p file)
(user-error "This is a directory path, not a file"))
(when (and (buffer-file-name (buffer-base-buffer))
(file-equal-p
(file-truename file)
(file-truename (buffer-file-name (buffer-base-buffer)))))
(user-error "Please specify a file name that is different from current"))
(let ((fileext (concat (file-name-extension file) "$"))
(format (or format (org-entry-get (point) "TABLE_EXPORT_FORMAT" t))))
(unless format
(let* ((formats '("orgtbl-to-tsv" "orgtbl-to-csv" "orgtbl-to-latex"
"orgtbl-to-html" "orgtbl-to-generic"
"orgtbl-to-texinfo" "orgtbl-to-orgtbl"
"orgtbl-to-unicode"))
(deffmt-readable
(replace-regexp-in-string
"\t" "\\t"
(replace-regexp-in-string
"\n" "\\n"
(or (car (delq nil
(mapcar
(lambda (f)
(and (string-match-p fileext f) f))
formats)))
org-table-export-default-format)
Tiny formatting fixes * lisp/ox.el (org-export-table-dimensions): * lisp/ox-texinfo.el (org-texinfo-template): * lisp/ox-md.el (org-md-link): * lisp/ox-icalendar.el (org-icalendar-use-UTC-date-time-p): * lisp/ox-ascii.el (org-ascii-fixed-width): * lisp/org.el (org-context): * lisp/org-table.el (org-table-eval-formula) (org-table-export): * lisp/org-refile.el: * lisp/org-plot.el (org-plot/gnuplot-to-grid-data): * lisp/org-num.el (org-num): * lisp/org-mouse.el (org-mouse-popup-global-menu) (org-mouse-context-menu): * lisp/org-macro.el (org-macro): * lisp/org-lint.el (org-lint): * lisp/org-keys.el (org-keys): * lisp/org-duration.el: * lisp/org-clock.el (org-clock-get-last-clock-out-time) (org-clock-update-mode-line, org-find-open-clocks): * lisp/org-agenda.el (org-diary) (org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item) (org-agenda-highlight-todo, org-cmp-alpha) (org-agenda-filter-by-category): * lisp/ol.el (org-link-expand-abbrev, ol): * lisp/ol-docview.el (ol-docview): * lisp/ol-bibtex.el (org-execute-file-search-in-bibtex) (org-bibtex, org-bibtex-read): * lisp/ol-bbdb.el (org-bbdb-anniversary-description): * lisp/ob-tangle.el (org-babel-tangle-jump-to-org): * lisp/ob-table.el (org-babel-table-truncate-at-newline): * lisp/ob-stan.el: * lisp/ob-sqlite.el (org-babel-sqlite-table-or-scalar): * lisp/ob-sql.el: * lisp/ob-shen.el: * lisp/ob-shell.el (org-babel-prep-session:shell) (org-babel-prep-session:shell): * lisp/ob-sed.el (org-babel-execute:sed) (org-babel-execute:sed): * lisp/ob-screen.el: * lisp/ob-sass.el: * lisp/ob-ruby.el (org-babel-prep-session:ruby) (org-babel-prep-session:ruby): * lisp/ob-ref.el (org-babel-ref-resolve, ob-ref): * lisp/ob-python.el (org-babel-prep-session:python) (org-babel-prep-session:python): * lisp/ob-plantuml.el: * lisp/ob-picolisp.el: * lisp/ob-perl.el: * lisp/ob-org.el: * lisp/ob-octave.el (org-babel-prep-session:octave) (org-babel-prep-session:octave) (org-babel-octave-evaluate-session): * lisp/ob-ocaml.el: * lisp/ob-mscgen.el (org-babel-execute:mscgen) (org-babel-execute:mscgen): * lisp/ob-maxima.el: (ob-maxima): * lisp/ob-matlab.el: * lisp/ob-makefile.el: * lisp/ob-lua.el (org-babel-prep-session:lua) (org-babel-prep-session:lua): * lisp/ob-lisp.el: * lisp/ob-ledger.el: * lisp/ob-latex.el (org-babel-expand-body:latex) (org-babel-expand-body:latex, ob-latex): * lisp/ob-js.el: * lisp/ob-java.el: * lisp/ob-io.el (org-babel-prep-session:io) (org-babel-prep-session:io): * lisp/ob-hledger.el: * lisp/ob-haskell.el: * lisp/ob-groovy.el (org-babel-groovy-wrapper-method) (org-babel-groovy-evaluate): * lisp/ob-gnuplot.el: * lisp/ob-fortran.el (org-babel-expand-body:fortran) (org-babel-expand-body:fortran): * lisp/ob-forth.el (org-babel-forth-session-execute): * lisp/ob-exp.el (ob-exp): * lisp/ob-eval.el: * lisp/ob-emacs-lisp.el: * lisp/ob-ebnf.el: * lisp/ob-dot.el: * lisp/ob-ditaa.el: * lisp/ob-css.el: * lisp/ob-core.el (org-babel-put-rownames): * lisp/ob-coq.el: * lisp/ob-comint.el: * lisp/ob-calc.el: * lisp/ob-awk.el: * lisp/ob-asymptote.el: * lisp/ob-abc.el: * lisp/ob-R.el (org-babel-prep-session:R): Formatting fixes.
2020-02-18 16:57:37 -05:00
t t)
t t)))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(setq format
(org-completing-read
"Format: " formats nil nil deffmt-readable))))
(if (string-match "\\([^ \t\r\n]+\\)\\( +.*\\)?" format)
(let ((transform (intern (match-string 1 format)))
(params (and (match-end 2)
(read (concat "(" (match-string 2 format) ")"))))
table: Tiny clean-up * lisp/org-table.el (org-table-export): Remove unnecessary calls to `buffer-substring-no-properties'.
2020-05-02 05:32:17 -04:00
(table (org-table-to-lisp)))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(unless (fboundp transform)
(user-error "No such transformation function %s" transform))
(let (buf)
(with-current-buffer (find-file-noselect file)
(setq buf (current-buffer))
(erase-buffer)
(fundamental-mode)
(insert (funcall transform table params) "\n")
(save-buffer))
(kill-buffer buf))
(message "Export done."))
(user-error "TABLE_EXPORT_FORMAT invalid")))))
;;;###autoload
(defun org-table--align-field (field width align)
Fix typos
2019-11-12 08:44:05 -05:00
"Format FIELD according to column WIDTH and alignment ALIGN.
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
FIELD is a string. WIDTH is a number. ALIGN is either \"c\",
\"l\" or\"r\"."
(let* ((spaces (- width (org-string-width field)))
(prefix (pcase align
("l" "")
("r" (make-string spaces ?\s))
("c" (make-string (/ spaces 2) ?\s))))
(suffix (make-string (- spaces (length prefix)) ?\s)))
org-table: Prevent Emacs from merging displayed separator spaces * lisp/org-table.el (org-table-separator-space): Remove. (org-table--separator-space-pre): (org-table--separator-space-post): Use non-`eq' spaces as table cell boundaries. This way, Emacs display engine will not merge the two spaces with `eq' 'display properties in empty table cells. (org-table--make-shrinking-overlay): (org-table--align-field): Use the new constants for table alignment. Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45915
2022-09-22 07:54:21 -04:00
(concat org-table--separator-space-pre
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
prefix
field
suffix
org-table: Prevent Emacs from merging displayed separator spaces * lisp/org-table.el (org-table-separator-space): Remove. (org-table--separator-space-pre): (org-table--separator-space-post): Use non-`eq' spaces as table cell boundaries. This way, Emacs display engine will not merge the two spaces with `eq' 'display properties in empty table cells. (org-table--make-shrinking-overlay): (org-table--align-field): Use the new constants for table alignment. Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45915
2022-09-22 07:54:21 -04:00
org-table--separator-space-post)))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-align ()
"Align the table at point by aligning all vertical bars."
(interactive)
(let ((beg (org-table-begin))
(end (copy-marker (org-table-end))))
(org-table-save-field
;; Make sure invisible characters in the table are at the right
;; place since column widths take them into account.
Delete some Emacs 24 compat code Org mode supports Emacs 26 or newer: https://orgmode.org/worg/org-maintenance.html#emacs-compatibility * lisp/org-compat.el (org-set-transient-map) (org-font-lock-ensure): Delete compat aliases. Update callers. (org-define-error): Redefine as obsolete function alias for `define-error'. Update callers. (string-suffix-p): Delete compatibility definition. * lisp/org-fold-core.el (org-fold-core--seq-partition): Delete private function and update callers to use `seq-partition'. * lisp/org-macs.el (org-without-partial-completion): Move from here... * lisp/org-compat.el (org-without-partial-completion): ...to here. Redefine as obsolete function alias for `progn'.
2022-06-30 07:06:21 -04:00
(font-lock-ensure beg end)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(move-marker org-table-aligned-begin-marker beg)
(move-marker org-table-aligned-end-marker end)
(goto-char beg)
(org-table-with-shrunk-columns
table: Avoid unnecessary consing * lisp/org-table.el (org-table-align): Avoid unnecessary consing.
2020-05-09 04:44:43 -04:00
(let* ((table (org-table-to-lisp))
table: Small refactoring of `org-table-align' * lisp/org-table.el (org-table-align): Remove dead code. Slightly simplify code.
2020-05-08 17:39:21 -04:00
(rows (remq 'hline table))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(widths nil)
table: Gracefully align hrule-only tables * lisp/org-table.el (org-table-align): Try to align the table even when it only consists of horizontal rules. * testing/lisp/test-org-table.el (test-org-table/align): Add test.
2020-06-15 15:31:06 -04:00
(alignments nil)
(columns-number 1))
(if (null rows)
;; Table contains only horizontal rules. Compute the
;; number of columns anyway, and choose an arbitrary width
;; and alignment.
(let ((end (line-end-position)))
(save-excursion
(while (search-forward "+" end t)
(cl-incf columns-number)))
(setq widths (make-list columns-number 1))
(setq alignments (make-list columns-number "l")))
;; Compute alignment and width for each column.
(setq columns-number (apply #'max (mapcar #'length rows)))
(dotimes (i columns-number)
(let ((max-width 1)
(fixed-align? nil)
(numbers 0)
(non-empty 0))
(dolist (row rows)
(let ((cell (or (nth i row) "")))
(setq max-width (max max-width (org-string-width cell)))
(cond (fixed-align? nil)
((equal cell "") nil)
((string-match "\\`<\\([lrc]\\)[0-9]*>\\'" cell)
(setq fixed-align? (match-string 1 cell)))
(t
(cl-incf non-empty)
(when (string-match-p org-table-number-regexp cell)
(cl-incf numbers))))))
(push max-width widths)
(push (cond
(fixed-align?)
((>= numbers (* org-table-number-fraction non-empty)) "r")
(t "l"))
alignments)))
(setq widths (nreverse widths))
(setq alignments (nreverse alignments)))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;; Store alignment of this table, for later editing of single
;; fields.
(setq org-table-last-alignment alignments)
(setq org-table-last-column-widths widths)
;; Build new table rows. Only replace rows that actually
;; changed.
table: Avoid unnecessary consing * lisp/org-table.el (org-table-align): Avoid unnecessary consing.
2020-05-09 04:44:43 -04:00
(let ((rule (and (memq 'hline table)
(mapconcat (lambda (w) (make-string (+ 2 w) ?-))
widths
"+")))
(indent (progn (looking-at "[ \t]*|") (match-string 0))))
(dolist (row table)
(let ((previous (buffer-substring (point) (line-end-position)))
(new
(concat indent
(if (eq row 'hline) rule
(let* ((offset (- columns-number (length row)))
(fields (if (= 0 offset) row
;; Add missing fields.
(append row
(make-list offset "")))))
(mapconcat #'identity
(cl-mapcar #'org-table--align-field
fields
widths
alignments)
"|")))
"|")))
(if (equal new previous)
(forward-line)
(insert new "\n")
(delete-region (point) (line-beginning-position 2))))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(set-marker end nil)
(when org-table-overlay-coordinates (org-table-overlay-coordinates))
(setq org-table-may-need-update nil))))))
;;;###autoload
(defun org-table-justify-field-maybe (&optional new)
"Justify the current field, text to left, number to right.
Optional argument NEW may specify text to replace the current field content."
org-table-justify-field-maybe: Do not allow newlines inside cells * lisp/org-table.el (org-table-justify-field-maybe): Remove newlines from cell values, when present. Newlines will alter the table cell structure. Reported-by: Julien Palard <julien@palard.fr> Link: https://orgmode.org/list/638faf1b.050a0220.2bd96.904b@mx.google.com
2022-12-07 08:59:21 -05:00
;; FIXME: Prevent newlines inside field. They are currently not
;; supported.
(when (and (stringp new) (string-match-p "\n" new))
(message "Removing newlines from formula result: %S" new)
(setq new (replace-regexp-in-string
"\n" " "
(replace-regexp-in-string "\\(^\n+\\)\\|\\(\n+$\\)" "" new))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(cond
((and (not new) org-table-may-need-update)) ; Realignment will happen anyway
((org-at-table-hline-p))
((and (not new)
(or (not (eq (marker-buffer org-table-aligned-begin-marker)
(current-buffer)))
(< (point) org-table-aligned-begin-marker)
(>= (point) org-table-aligned-end-marker)))
;; This is not the same table, force a full re-align.
(setq org-table-may-need-update t))
(t
;; Realign the current field, based on previous full realign.
(let ((pos (point))
(col (org-table-current-column)))
(when (> col 0)
(skip-chars-backward "^|")
org-table.el: Do not create new field when at EOL after table line * lisp/org-table.el (org-table-justify-field-maybe): Do not treat "|$" as unclosed table field. Fixes https://orgmode.org/list/trinity-2561db57-1561-470b-982f-0d91ddf4f145-1629900012884@3c-app-mailcom-lxa06
2021-10-02 02:44:30 -04:00
(if (not (looking-at " *\\(?:\\([^|\n]*?\\) *\\(|\\)\\|\\([^|\n]+?\\) *\\($\\)\\)"))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(setq org-table-may-need-update t)
(let* ((align (nth (1- col) org-table-last-alignment))
(width (nth (1- col) org-table-last-column-widths))
(cell (match-string 0))
(field (match-string 1))
(properly-closed? (/= (match-beginning 2) (match-end 2)))
(new-cell
(save-match-data
(cond (org-table-may-need-update
(format " %s |" (or new field)))
((not properly-closed?)
(setq org-table-may-need-update t)
(format " %s |" (or new field)))
((not new)
(concat (org-table--align-field field width align)
"|"))
org-table.el: Prevent an error from occurring * lisp/org-table.el (org-table-justify-field-maybe): Fix bug. Reported-by: Lester Longley <lester@ieee.org> https://orgmode.org/list/CAA3095_oH2sH_a=nNeYEa=agZp7L2K8Vp2s-c7fN4M4Sro=stQ@mail.gmail.com
2020-09-05 09:18:51 -04:00
((and width (<= (org-string-width new) width))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(concat (org-table--align-field new width align)
"|"))
(t
(setq org-table-may-need-update t)
(format " %s |" new))))))
(unless (equal new-cell cell)
(let (org-table-may-need-update)
(replace-match new-cell t t)))
(goto-char pos))))))))
;;;###autoload
(defun org-table-sort-lines
(&optional with-case sorting-type getkey-func compare-func interactive?)
"Sort table lines according to the column at point.
The position of point indicates the column to be used for
sorting, and the range of lines is the range between the nearest
horizontal separator lines, or the entire table of no such lines
exist. If point is before the first column, you will be prompted
for the sorting column. If there is an active region, the mark
specifies the first line and the sorting column, while point
should be in the last line to be included into the sorting.
The command then prompts for the sorting type which can be
alphabetically, numerically, or by time (as given in a time stamp
in the field, or as a HH:MM value). Sorting in reverse order is
also possible.
With prefix argument WITH-CASE, alphabetic sorting will be case-sensitive
if the locale allows for it.
If SORTING-TYPE is specified when this function is called from a Lisp
program, no prompting will take place. SORTING-TYPE must be a character,
any of (?a ?A ?n ?N ?t ?T ?f ?F) where the capital letters indicate that
sorting should be done in reverse order.
If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies
a function to be called to extract the key. It must return a value
that is compatible with COMPARE-FUNC, the function used to compare
entries.
A non-nil value for INTERACTIVE? is used to signal that this
function is being called interactively."
(interactive (list current-prefix-arg nil nil nil t))
(when (org-region-active-p) (goto-char (region-beginning)))
;; Point must be either within a field or before a data line.
(save-excursion
(skip-chars-backward " \t")
(when (bolp) (search-forward "|" (line-end-position) t))
(org-table-check-inside-data-field))
;; Set appropriate case sensitivity and column used for sorting.
(let ((column (let ((c (org-table-current-column)))
(cond ((> c 0) c)
(interactive?
(read-number "Use column N for sorting: "))
(t 1))))
(sorting-type
(or sorting-type
(read-char-exclusive "Sort Table: [a]lphabetic, [n]umeric, \
\[t]ime, [f]unc. A/N/T/F means reversed: ")))
(start (org-table-begin))
(end (org-table-end)))
(save-restriction
;; Narrow buffer to appropriate sorting area.
(if (org-region-active-p)
(progn (goto-char (region-beginning))
(narrow-to-region
(point)
(save-excursion (goto-char (region-end))
(line-beginning-position 2))))
(narrow-to-region
(save-excursion
(if (re-search-backward org-table-hline-regexp start t)
(line-beginning-position 2)
start))
(if (save-excursion (re-search-forward org-table-hline-regexp end t))
(match-beginning 0)
end)))
;; Determine arguments for `sort-subr'. Also record original
;; position. `org-table-save-field' cannot help here since
;; sorting is too much destructive.
(let* ((coordinates
(cons (count-lines (point-min) (line-beginning-position))
(current-column)))
(extract-key-from-field
;; Function to be called on the contents of the field
;; used for sorting in the current row.
(cl-case sorting-type
((?n ?N) #'string-to-number)
((?a ?A) #'org-sort-remove-invisible)
((?t ?T)
(lambda (f)
(cond ((string-match org-ts-regexp-both f)
(float-time
(org-time-string-to-time (match-string 0 f))))
((org-duration-p f) (org-duration-to-minutes f))
((string-match "\\<[0-9]+:[0-9]\\{2\\}\\>" f)
(org-duration-to-minutes (match-string 0 f)))
(t 0))))
((?f ?F)
(or getkey-func
(and interactive?
(org-read-function "Function for extracting keys: "))
(error "Missing key extractor to sort rows")))
(t (user-error "Invalid sorting type `%c'" sorting-type))))
(predicate
(cl-case sorting-type
((?n ?N ?t ?T) #'<)
Prune Emacs 25.1 compatibility kludges * lisp/oc-basic.el (org-cite-basic--field-less-p): * lisp/ol-eww.el (org-eww-store-link): * lisp/org-agenda.el (org-agenda-check-clock-gap): * lisp/org-clock.el (org-clock-get-clocked-time) (org-clock-resolve-clock, org-clock-resolve) (org-resolve-clocks, (org-resolve-clocks-if-idle) (org-clock-in, org-clock-sum): Drop now unnecessary use of compatibility functions. * lisp/org-compat.el (org-string-collate-lessp, org-decode-time) (org-format-time-string, org-link-escape-browser, org-time-add) (org-time-subtract, org-time-since, org-time-less-p): Mark as obsolete. The 9.5 release declared Emacs 25.1 as the minimum version.
2021-10-04 23:43:14 -04:00
((?a ?A) (if with-case #'string-collate-lessp
(lambda (s1 s2) (string-collate-lessp s1 s2 nil t))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
((?f ?F)
(or compare-func
(and interactive?
(org-read-function
"Function for comparing keys (empty for default \
`sort-subr' predicate): "
'allow-empty))))))
(shrunk-columns (remq column (org-table--list-shrunk-columns))))
(goto-char (point-min))
(sort-subr (memq sorting-type '(?A ?N ?T ?F))
(lambda ()
(forward-line)
(while (and (not (eobp))
(not (looking-at org-table-dataline-regexp)))
(forward-line)))
#'end-of-line
(lambda ()
(funcall extract-key-from-field
(org-trim (org-table-get-field column))))
nil
predicate)
;; Hide all columns but the one being sorted.
(org-table--shrink-columns shrunk-columns start end)
;; Move back to initial field.
(forward-line (car coordinates))
(move-to-column (cdr coordinates))))))
(defun org-table-transpose-table-at-point ()
"Transpose Org table at point and eliminate hlines.
So a table like
| 1 | 2 | 4 | 5 |
|---+---+---+---|
| a | b | c | d |
| e | f | g | h |
will be transposed as
| 1 | a | e |
| 2 | b | f |
| 4 | c | g |
| 5 | d | h |
Note that horizontal lines disappear."
(interactive)
(let* ((table (delete 'hline (org-table-to-lisp)))
(dline_old (org-table-current-line))
(col_old (org-table-current-column))
(contents (mapcar (lambda (_)
(let ((tp table))
(mapcar
(lambda (_)
(prog1
(pop (car tp))
(setq tp (cdr tp))))
table)))
(car table))))
(goto-char (org-table-begin))
(re-search-forward "|")
(backward-char)
(delete-region (point) (org-table-end))
(insert (mapconcat
(lambda(x)
(concat "| " (mapconcat 'identity x " | " ) " |\n" ))
contents ""))
(org-table-goto-line col_old)
(org-table-goto-column dline_old))
(org-table-align))
;;;###autoload
(defun org-table-wrap-region (arg)
"Wrap several fields in a column like a paragraph.
This is useful if you'd like to spread the contents of a field over several
lines, in order to keep the table compact.
If there is an active region, and both point and mark are in the same column,
the text in the column is wrapped to minimum width for the given number of
lines. Generally, this makes the table more compact. A prefix ARG may be
used to change the number of desired lines. For example, \
`C-2 \\[org-table-wrap-region]'
formats the selected text to two lines. If the region was longer than two
lines, the remaining lines remain empty. A negative prefix argument reduces
the current number of lines by that amount. The wrapped text is pasted back
into the table. If you formatted it to more lines than it was before, fields
further down in the table get overwritten - so you might need to make space in
the table first.
If there is no region, the current field is split at the cursor position and
the text fragment to the right of the cursor is prepended to the field one
line down.
If there is no region, but you specify a prefix ARG, the current field gets
blank, and the content is appended to the field above."
(interactive "P")
(org-table-check-inside-data-field)
(if (org-region-active-p)
;; There is a region: fill as a paragraph.
(let ((start (region-beginning)))
lisp/org-table.el: Fix bug with `org-table-wrap-region' * lisp/org-table.el (org-table-copy-region): Only display a message when called interactively. (org-table-wrap-region): Prevent `org-table-cut-region' from losing track of the region beginning. Reported-by: Marko Schuetz-Schmuck <marko.schutz@upr.edu> Link: https://orgmode.org/list/875z84fnwv.fsf@tpad-m.i-did-not-set--mail-host-address--so-tickle-me/
2021-05-01 23:44:46 -04:00
(save-restriction
(narrow-to-region
(save-excursion (goto-char start) (move-beginning-of-line 1))
(save-excursion (org-forward-paragraph) (point)))
(org-table-cut-region (region-beginning) (region-end))
*el: Fix indentation
2021-09-29 03:22:47 -04:00
(when (> (length (car org-table-clip)) 1)
(user-error "Region must be limited to single column"))
(let ((nlines (cond ((not arg) (length org-table-clip))
((< arg 1) (+ (length org-table-clip) arg))
(t arg))))
(setq org-table-clip
(mapcar #'list
(org-wrap (mapconcat #'car org-table-clip " ")
nil
nlines))))
(goto-char start)
(org-table-paste-rectangle))
lisp/org-table.el: Fix bug with `org-table-wrap-region' * lisp/org-table.el (org-table-copy-region): Only display a message when called interactively. (org-table-wrap-region): Prevent `org-table-cut-region' from losing track of the region beginning. Reported-by: Marko Schuetz-Schmuck <marko.schutz@upr.edu> Link: https://orgmode.org/list/875z84fnwv.fsf@tpad-m.i-did-not-set--mail-host-address--so-tickle-me/
2021-05-01 23:44:46 -04:00
(org-table-align))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;; No region, split the current field at point.
(unless (org-get-alist-option org-M-RET-may-split-line 'table)
(skip-chars-forward "^\r\n|"))
(cond
(arg ; Combine with field above.
(let ((s (org-table-blank-field))
(col (org-table-current-column)))
(forward-line -1)
(while (org-at-table-hline-p) (forward-line -1))
(org-table-goto-column col)
(skip-chars-forward "^|")
(skip-chars-backward " ")
(insert " " (org-trim s))
(org-table-align)))
Backport commit ab612302b from Emacs * lisp/org-table.el (org-table-wrap-region): Avoid repetition-of-repetition in regexp. Fix regex repetition of repetitions ab612302b4917fec5846922f3d8ffafa673c0d36 Paul Eggert Wed Dec 4 16:54:24 2019 -0800
2019-12-04 19:53:39 -05:00
((looking-at "\\([^|]+\\)|") ; Split field.
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(let ((s (match-string 1)))
(replace-match " |")
(goto-char (match-beginning 0))
(org-table-next-row)
(insert (org-trim s) " ")
(org-table-align)))
(t (org-table-next-row)))))
(defun org-table--number-for-summing (s)
(let (n)
(if (string-match "^ *|? *" s)
(setq s (replace-match "" nil nil s)))
(if (string-match " *|? *$" s)
(setq s (replace-match "" nil nil s)))
(setq n (string-to-number s))
(cond
((and (string-match "0" s)
(string-match "\\`[-+ \t0.edED]+\\'" s)) 0)
((string-match "\\`[ \t]+\\'" s) nil)
((string-match "\\`\\([0-9]+\\):\\([0-9]+\\)\\(:\\([0-9]+\\)\\)?\\'" s)
(let ((h (string-to-number (or (match-string 1 s) "0")))
(m (string-to-number (or (match-string 2 s) "0")))
(s (string-to-number (or (match-string 4 s) "0"))))
(if (boundp 'org-timecnt) (setq org-timecnt (1+ org-timecnt)))
(* 1.0 (+ h (/ m 60.0) (/ s 3600.0)))))
((equal n 0) nil)
(t n))))
;;;###autoload
(defun org-table-sum (&optional beg end nlast)
"Sum numbers in region of current table column.
The result will be displayed in the echo area, and will be available
as kill to be inserted with \\[yank].
If there is an active region, it is interpreted as a rectangle and all
numbers in that rectangle will be summed. If there is no active
region and point is located in a table column, sum all numbers in that
column.
If at least one number looks like a time HH:MM or HH:MM:SS, all other
numbers are assumed to be times as well (in decimal hours) and the
numbers are added as such.
If NLAST is a number, only the NLAST fields will actually be summed."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(interactive)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(save-excursion
(let (col (org-timecnt 0) diff h m s org-table-clip)
(cond
((and beg end)) ; beg and end given explicitly
((org-region-active-p)
(setq beg (region-beginning) end (region-end)))
(t
(setq col (org-table-current-column))
(goto-char (org-table-begin))
(unless (re-search-forward "^[ \t]*|[^-]" nil t)
(user-error "No table data"))
(org-table-goto-column col)
(setq beg (point))
(goto-char (org-table-end))
(unless (re-search-backward "^[ \t]*|[^-]" nil t)
(user-error "No table data"))
(org-table-goto-column col)
(setq end (point))))
(let* ((items (apply 'append (org-table-copy-region beg end)))
(items1 (cond ((not nlast) items)
((>= nlast (length items)) items)
(t (setq items (reverse items))
(setcdr (nthcdr (1- nlast) items) nil)
(nreverse items))))
(numbers (delq nil (mapcar #'org-table--number-for-summing
items1)))
(res (apply '+ numbers))
(sres (if (= org-timecnt 0)
(number-to-string res)
(setq diff (* 3600 res)
h (floor diff 3600) diff (mod diff 3600)
m (floor diff 60) diff (mod diff 60)
s diff)
(format "%.0f:%02.0f:%02.0f" h m s))))
(kill-new sres)
(when (called-interactively-p 'interactive)
(message (substitute-command-keys
(format "Sum of %d items: %-20s \
\(\\[yank] will insert result into buffer)"
(length numbers)
sres))))
sres))))
;;;###autoload
(defun org-table-analyze ()
"Analyze table at point and store results.
This function sets up the following dynamically scoped variables:
`org-table-column-name-regexp',
`org-table-column-names',
`org-table-current-begin-pos',
`org-table-current-line-types',
`org-table-current-ncol',
`org-table-dlines',
`org-table-hlines',
`org-table-local-parameters',
`org-table-named-field-locations'."
(let ((beg (org-table-begin))
(end (org-table-end)))
(save-excursion
(goto-char beg)
;; Extract column names.
(setq org-table-column-names nil)
(when (save-excursion
(re-search-forward "^[ \t]*| *! *\\(|.*\\)" end t))
(let ((c 1))
(dolist (name (org-split-string (match-string 1) " *| *"))
(cl-incf c)
(when (string-match "\\`[a-zA-Z][_a-zA-Z0-9]*\\'" name)
Use `number-to-string' instead of `int-to-string' * lisp/org.el (org-end-of-subtree): Use `number-to-string' instead of `int-to-string'. * lisp/org-table.el (org-table-edit-field) (org-table-fix-formulas, org-table-analyze, orgtbl-make-binding) (org-table-field-info): Ditto. * lisp/org-macs.el (org-shorten-string): Ditto. * lisp/org-agenda.el (org-get-time-of-day): Ditto.
2020-01-28 14:19:24 -05:00
(push (cons name (number-to-string c)) org-table-column-names)))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(setq org-table-column-names (nreverse org-table-column-names))
(setq org-table-column-name-regexp
(format "\\$\\(%s\\)\\>"
(regexp-opt (mapcar #'car org-table-column-names) t)))
;; Extract local parameters.
(setq org-table-local-parameters nil)
(save-excursion
(while (re-search-forward "^[ \t]*| *\\$ *\\(|.*\\)" end t)
(dolist (field (org-split-string (match-string 1) " *| *"))
(when (string-match
"\\`\\([a-zA-Z][_a-zA-Z0-9]*\\|%\\) *= *\\(.*\\)" field)
(push (cons (match-string 1 field) (match-string 2 field))
org-table-local-parameters)))))
;; Update named fields locations. We minimize `count-lines'
;; processing by storing last known number of lines in LAST.
(setq org-table-named-field-locations nil)
(save-excursion
(let ((last (cons (point) 0)))
(while (re-search-forward "^[ \t]*| *\\([_^]\\) *\\(|.*\\)" end t)
(let ((c (match-string 1))
(fields (org-split-string (match-string 2) " *| *")))
(save-excursion
(forward-line (if (equal c "_") 1 -1))
(let ((fields1
(and (looking-at "^[ \t]*|[^|]*\\(|.*\\)")
(org-split-string (match-string 1) " *| *")))
(line (cl-incf (cdr last) (count-lines (car last) (point))))
(col 1))
(setcar last (point)) ; Update last known position.
(while (and fields fields1)
(let ((field (pop fields))
(v (pop fields1)))
(cl-incf col)
(when (and (stringp field)
(stringp v)
(string-match "\\`[a-zA-Z][_a-zA-Z0-9]*\\'"
field))
(push (cons field v) org-table-local-parameters)
(push (list field line col)
org-table-named-field-locations))))))))))
;; Re-use existing markers when possible.
(if (markerp org-table-current-begin-pos)
(move-marker org-table-current-begin-pos (point))
(setq org-table-current-begin-pos (point-marker)))
;; Analyze the line types.
(let ((l 0) hlines dlines types)
(while (looking-at "[ \t]*|\\(-\\)?")
(push (if (match-end 1) 'hline 'dline) types)
(if (match-end 1) (push l hlines) (push l dlines))
(forward-line)
(cl-incf l))
(push 'hline types) ; Add an imaginary extra hline to the end.
(setq org-table-current-line-types (apply #'vector (nreverse types)))
(setq org-table-dlines (apply #'vector (cons nil (nreverse dlines))))
(setq org-table-hlines (apply #'vector (cons nil (nreverse hlines)))))
;; Get the number of columns from the first data line in table.
(goto-char beg)
(forward-line (aref org-table-dlines 1))
table: Remove the last row (LR) feature The feature was undocumented and broken according to Carsten. * lisp/org-table.el (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-get-formula): (org-table-fix-formulas): (org-table-analyze): Remove the parts refering to LR.
2020-05-01 18:04:30 -04:00
(setq org-table-current-ncol
(length (org-split-string
(buffer-substring (line-beginning-position) (line-end-position))
"[ \t]*|[ \t]*"))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table--force-dataline ()
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
"Move point to the closest data line in a table.
Raise an error if the table contains no data line. Preserve
column when moving point."
(unless (org-match-line org-table-dataline-regexp)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let* ((re org-table-dataline-regexp)
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
(column (current-column))
(p1 (save-excursion (re-search-forward re (org-table-end) t)))
(p2 (save-excursion (re-search-backward re (org-table-begin) t))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(cond ((and p1 p2)
(goto-char (if (< (abs (- p1 (point))) (abs (- p2 (point))))
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
p1
p2)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
((or p1 p2) (goto-char (or p1 p2)))
org-table: Small optimization * lisp/org-table.el (org-table-check-inside-data-field): Add optional argument. (org-table-find-dataline): Do not call `org-at-table-p' needlessly. (org-table-delete-column): (org-table-move-column): (org-table-copy-region): (org-table-eval-formula): Use new argument. (org-table-force-dataline): Small refactoring. This patch limits the number of calls to `org-at-table-p'.
2017-12-29 18:57:28 -05:00
(t (user-error "No table data line around here")))
(org-move-to-column column))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(defun org-table-show-reference (&optional local)
"Show the location/value of the $ expression at point.
When LOCAL is non-nil, show references for the table at point."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(interactive)
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(org-table-remove-rectangle-highlight)
(when local (org-table-analyze))
(catch 'exit
(let ((pos (if local (point) org-pos))
(face2 'highlight)
(org-inhibit-highlight-removal t)
(win (selected-window))
(org-show-positions nil)
var name e what match dest)
(setq what (cond
((org-in-regexp "^@[0-9]+[ \t=]")
(setq match (concat (substring (match-string 0) 0 -1)
"$1.."
(substring (match-string 0) 0 -1)
"$100"))
'range)
((or (org-in-regexp org-table-range-regexp2)
(org-in-regexp org-table-translate-regexp)
(org-in-regexp org-table-range-regexp))
(setq match
(save-match-data
(org-table-convert-refs-to-rc (match-string 0))))
'range)
((org-in-regexp "\\$[a-zA-Z][a-zA-Z0-9]*") 'name)
((org-in-regexp "\\$[0-9]+") 'column)
((not local) nil)
(t (user-error "No reference at point")))
match (and what (or match (match-string 0))))
Fix Emacs 29 compiler warnings * lisp/oc-basic.el (org-cite-basic--parse-bibliography): Do not use obsolete `buffer-file-name' generalized variable. Prefer `set-visited-file-name'. * lisp/ol-bibtex.el (org-indent-region): Declare function. (org-bibtex-import-from-file): Remove unused variable. * lisp/ol.el (org-link--decode-compound): Use `ash' instead of obsolete `lsh'. * lisp/org-macs.el: Do no use obsolete generalized variable `buffer-string'. * lisp/org-plot.el (org-plot/redisplay-img-in-buffer): * lisp/org.el (image-flush): (org-display-inline-images): Use `image-flush' instead of obsolete `image-refresh'. * lisp/ox.el (org-export-to-file): Quote ' in the docstring. All other changes are changing obsolete `point-at-bol' and `point-at-eol' to `line-beginning-position' and `line-end-position'.
2022-09-06 08:50:59 -04:00
(when (and match (not (equal (match-beginning 0) (line-beginning-position))))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
(org-table-add-rectangle-overlay (match-beginning 0) (match-end 0)
'secondary-selection))
(add-hook 'before-change-functions
#'org-table-remove-rectangle-highlight)
(when (eq what 'name) (setq var (substring match 1)))
(when (eq what 'range)
(unless (eq (string-to-char match) ?@) (setq match (concat "@" match)))
(setq match (org-table-formula-substitute-names match)))
(unless local
(save-excursion
(end-of-line)
(re-search-backward "^\\S-" nil t)
(beginning-of-line)
(when (looking-at "\\(\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\|[a-zA-Z]+\
\\([0-9]+\\|&\\)\\) *=")
(setq dest
(save-match-data
(org-table-convert-refs-to-rc (match-string 1))))
(org-table-add-rectangle-overlay
(match-beginning 1) (match-end 1) face2))))
(if (and (markerp pos) (marker-buffer pos))
(if (get-buffer-window (marker-buffer pos))
(select-window (get-buffer-window (marker-buffer pos)))
(org-switch-to-buffer-other-window (get-buffer-window
(marker-buffer pos)))))
(goto-char pos)
(org-table--force-dataline)
(let ((table-start
(if local org-table-current-begin-pos (org-table-begin))))
(when dest
(setq name (substring dest 1))
(cond
((string-match-p "\\`\\$[a-zA-Z][a-zA-Z0-9]*" dest)
(org-table-goto-field dest))
((string-match-p "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'"
dest)
(org-table-goto-field dest))
(t (org-table-goto-column (string-to-number name))))
(move-marker pos (point))
(org-table-highlight-rectangle nil nil face2))
(cond
((equal dest match))
((not match))
((eq what 'range)
(ignore-errors (org-table-get-range match table-start nil 'highlight)))
((setq e (assoc var org-table-named-field-locations))
(org-table-goto-field var)
(org-table-highlight-rectangle)
(message "Named field, column %d of line %d" (nth 2 e) (nth 1 e)))
((setq e (assoc var org-table-column-names))
(org-table-goto-column (string-to-number (cdr e)))
(org-table-highlight-rectangle)
(goto-char table-start)
(if (re-search-forward (concat "^[ \t]*| *! *.*?| *\\(" var "\\) *|")
(org-table-end) t)
(progn
(goto-char (match-beginning 1))
(org-table-highlight-rectangle)
(message "Named column (column %s)" (cdr e)))
(user-error "Column name not found")))
((eq what 'column)
;; Column number.
(org-table-goto-column (string-to-number (substring match 1)))
(org-table-highlight-rectangle)
(message "Column %s" (substring match 1)))
((setq e (assoc var org-table-local-parameters))
(goto-char table-start)
(if (re-search-forward (concat "^[ \t]*| *\\$ *.*?| *\\(" var "=\\)") nil t)
(progn
(goto-char (match-beginning 1))
(org-table-highlight-rectangle)
(message "Local parameter."))
(user-error "Parameter not found")))
((not var) (user-error "No reference at point"))
((setq e (assoc var org-table-formula-constants-local))
(message "Local Constant: $%s=%s in #+CONSTANTS line."
var (cdr e)))
((setq e (assoc var org-table-formula-constants))
(message "Constant: $%s=%s in `org-table-formula-constants'."
var (cdr e)))
((setq e (and (fboundp 'constants-get) (constants-get var)))
(message "Constant: $%s=%s, from `constants.el'%s."
var e (format " (%s units)" constants-unit-system)))
(t (user-error "Undefined name $%s" var)))
(goto-char pos)
(when (and org-show-positions
(not (memq this-command '(org-table-fedit-scroll
org-table-fedit-scroll-down))))
(push pos org-show-positions)
(push table-start org-show-positions)
(let ((min (apply 'min org-show-positions))
(max (apply 'max org-show-positions)))
(set-window-start (selected-window) min)
(goto-char max)
(or (pos-visible-in-window-p max)
(set-window-start (selected-window) max)))))
(select-window win))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;; The Orgtbl minor mode
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; Define a minor mode which can be used in other modes in order to
Turn org-mode into Org or Org mode Use Org or Org mode instead of org-mode or Org-mode according to "Documentation standards".
2016-08-23 16:13:56 -04:00
;; integrate the Org table editor.
;; This is really a hack, because the Org table editor uses several
;; keys which normally belong to the major mode, for example the TAB
;; and RET keys. Here is how it works: The minor mode defines all the
;; keys necessary to operate the table editor, but wraps the commands
;; into a function which tests if the cursor is currently inside
;; a table. If that is the case, the table editor command is
;; executed. However, when any of those keys is used outside a table,
;; the function uses `key-binding' to look up if the key has an
;; associated command in another currently active keymap (minor modes,
;; major mode, global), and executes that command. There might be
;; problems if any of the keys used by the table editor is otherwise
;; used as a prefix key.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; Another challenge is that the key binding for TAB can be tab or \C-i,
;; likewise the binding for RET can be return or \C-m. Orgtbl-mode
;; addresses this by checking explicitly for both bindings.
;; The optimized version (see variable `orgtbl-optimized') takes over
;; all keys which are bound to `self-insert-command' in the *global map*.
;; Some modes bind other commands to simple characters, for example
;; AUCTeX binds the double quote to `Tex-insert-quote'. With orgtbl-mode
;; active, this binding is ignored inside tables and replaced with a
;; modified self-insert.
(defvar orgtbl-mode-map (make-keymap)
"Keymap for `orgtbl-mode'.")
(defvar org-old-auto-fill-inhibit-regexp nil
Correct some doc strings [part 5] This is the fifth patch in a series that makes some straightforward corrections to a number of docstrings. Each change is normally to: - correct a typo, or - fix up hyperlinks to function or variable names, or - ensure slightly better conformance with the documentation guidelines and tips given in the Elisp manual No attempt is made to provide missing docstrings or document arguments. Cheers, Phil
2010-07-17 14:53:36 -04:00
"Local variable used by `orgtbl-mode'.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Fix bugs with TBLNAME Francesco Pizzolante writes: > I'm using orgmode 6.30c and I still have this problem: if > the #+TBLNAME: tag is not located in column 0, the remote > reference does not work. > > Here's my little test: > > #+TBLNAME: A > | | T | > |---+-------| > | | 2.00 | > | | 5.00 | > |---+-------| > | # | 9.00 | > | ^ | total | > #+TBLFM: $2=vsum(@-I..@-II);%.2f > > #+TBLNAME: price > | T | PU | Total | > |------+-------+-------| > | 9.00 | 10.25 | 92.25 | > |------+-------+-------| > #+TBLFM: @2$1=remote(A,$total);%.2f::@2$3=$1*$2;%.2f > > > Just add a few spaces at the first line and when you recompute > the second table you get a "Can't find remote table A" message. > > Moreover, in a LaTeX environment, using the orgtbl minor mode, > the highlighting (font locking) does not work on the #+TBLNAME: > line, even if located in column 0.
2009-09-15 09:11:21 -04:00
(defconst orgtbl-line-start-regexp
Match #+name/#+tblname/#+tblfm along with uppercase twins. * org.el: Use (case-fold-search t). (org-edit-special, org-ctrl-c-ctrl-c): Ditto. * org-table.el: (org-table-store-formulas, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-edit-formulas) (org-old-auto-fill-inhibit-regexp, orgtbl-ctrl-c-ctrl-c) (orgtbl-toggle-comment, org-table-get-remote-range): Ditto. * org-footnote.el: (org-footnote-goto-local-insertion-point): Ditto. * org-exp.el: Ditto. * org-colview.el: (org-dblock-write:columnview, org-dblock-write:columnview): Ditto. * org-colview-xemacs.el: (org-dblock-write:columnview): Ditto. * org-clock.el (org-clocktable-write-default): Ditto. * org-capture.el (org-capture-place-table-line): Ditto. * ob.el (org-babel-data-names, org-babel-goto-named-src-block) (org-babel-src-block-names) (org-babel-where-is-src-block-result, org-babel-result-end) (org-babel-where-is-src-block-head) (org-babel-find-named-result, org-babel-result-names): Ditto.
2012-04-21 09:36:04 -04:00
"[ \t]*\\(|\\|#\\+\\(tblfm\\|orgtbl\\|tblname\\):\\)"
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
"Matches a line belonging to an orgtbl.")
(defconst orgtbl-extra-font-lock-keywords
(list (list (concat "^" orgtbl-line-start-regexp ".*")
0 (quote 'org-table) 'prepend))
Correct some doc strings [part 5] This is the fifth patch in a series that makes some straightforward corrections to a number of docstrings. Each change is normally to: - correct a typo, or - fix up hyperlinks to function or variable names, or - ensure slightly better conformance with the documentation guidelines and tips given in the Elisp manual No attempt is made to provide missing docstrings or document arguments. Cheers, Phil
2010-07-17 14:53:36 -04:00
"Extra `font-lock-keywords' to be added when `orgtbl-mode' is active.")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
;;;###autoload
(defun turn-on-orgtbl ()
"Unconditionally turn on `orgtbl-mode'."
(require 'org-table)
(orgtbl-mode 1))
Add Stefans redefinition of orgstruct-mode
2010-05-16 10:18:23 -04:00
;; Install it as a minor mode.
(put 'orgtbl-mode :included t)
(put 'orgtbl-mode :menu-tag "Org Table Mode")
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
(easy-menu-define orgtbl-mode-menu orgtbl-mode-map "OrgTbl menu."
org-table.el: Restore window configuration when debugging formula * lisp/org-table.el (org-table-eval-formula): Restore window configuration when debugging table formula is done. Thanks to Eric Fraga for reporting this.
2020-02-03 14:47:23 -05:00
'("OrgTbl"
["Create or convert" org-table-create-or-convert-from-region
:active (not (org-at-table-p)) :keys "C-c |" ]
"--"
["Align" org-ctrl-c-ctrl-c :active (org-at-table-p) :keys "C-c C-c"]
["Next Field" org-cycle :active (org-at-table-p) :keys "TAB"]
["Previous Field" org-shifttab :active (org-at-table-p) :keys "S-TAB"]
["Next Row" org-return :active (org-at-table-p) :keys "RET"]
"--"
["Blank Field" org-table-blank-field :active (org-at-table-p) :keys "C-c SPC"]
["Edit Field" org-table-edit-field :active (org-at-table-p) :keys "C-c ` "]
["Copy Field from Above"
org-table-copy-down :active (org-at-table-p) :keys "S-RET"]
"--"
("Column"
["Move Column Left" org-metaleft :active (org-at-table-p) :keys "M-<left>"]
["Move Column Right" org-metaright :active (org-at-table-p) :keys "M-<right>"]
["Delete Column" org-shiftmetaleft :active (org-at-table-p) :keys "M-S-<left>"]
["Insert Column" org-shiftmetaright :active (org-at-table-p) :keys "M-S-<right>"])
("Row"
["Move Row Up" org-metaup :active (org-at-table-p) :keys "M-<up>"]
["Move Row Down" org-metadown :active (org-at-table-p) :keys "M-<down>"]
["Delete Row" org-shiftmetaup :active (org-at-table-p) :keys "M-S-<up>"]
["Insert Row" org-shiftmetadown :active (org-at-table-p) :keys "M-S-<down>"]
["Sort lines in region" org-table-sort-lines :active (org-at-table-p) :keys "C-c ^"]
"--"
["Insert Hline" org-table-insert-hline :active (org-at-table-p) :keys "C-c -"])
("Rectangle"
["Copy Rectangle" org-copy-special :active (org-at-table-p)]
["Cut Rectangle" org-cut-special :active (org-at-table-p)]
["Paste Rectangle" org-paste-special :active (org-at-table-p)]
["Fill Rectangle" org-table-wrap-region :active (org-at-table-p)])
"--"
("Radio tables"
["Insert table template" orgtbl-insert-radio-table
(cl-assoc-if #'derived-mode-p orgtbl-radio-table-templates)]
["Comment/uncomment table" orgtbl-toggle-comment t])
"--"
["Set Column Formula" org-table-eval-formula :active (org-at-table-p) :keys "C-c ="]
["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
["Edit Formulas" org-table-edit-formulas :active (org-at-table-p) :keys "C-c '"]
["Recalculate line" org-table-recalculate :active (org-at-table-p) :keys "C-c *"]
["Recalculate all" (org-table-recalculate '(4)) :active (org-at-table-p) :keys "C-u C-c *"]
["Iterate all" (org-table-recalculate '(16)) :active (org-at-table-p) :keys "C-u C-u C-c *"]
["Toggle Recalculate Mark" org-table-rotate-recalc-marks :active (org-at-table-p) :keys "C-c #"]
["Sum Column/Rectangle" org-table-sum
:active (or (org-at-table-p) (org-region-active-p)) :keys "C-c +"]
["Which Column?" org-table-current-column :active (org-at-table-p) :keys "C-c ?"]
["Debug Formulas"
org-table-toggle-formula-debugger :active (org-at-table-p)
:keys "C-c {"
:style toggle :selected org-table-formula-debug]
["Show Col/Row Numbers"
org-table-toggle-coordinate-overlays :active (org-at-table-p)
:keys "C-c }"
:style toggle :selected org-table-overlay-coordinates]
"--"
("Plot"
["Ascii plot" orgtbl-ascii-plot :active (org-at-table-p) :keys "C-c \" a"]
["Gnuplot" org-plot/gnuplot :active (org-at-table-p) :keys "C-c \" g"])))
Move table-related variables and functions into "org-table" Slightly re-organize file.
2019-03-13 19:07:48 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;;;###autoload
Add Stefans redefinition of orgstruct-mode
2010-05-16 10:18:23 -04:00
(define-minor-mode orgtbl-mode
Change Org-mode into Org mode * lisp/ob-core.el (org-babel-result-to-file): * lisp/ob-picolisp.el: * lisp/org-agenda.el (org-check-for-org-mode): (org-search-view): (org-tags-view): (org-agenda-cleanup-fancy-diary): (org-agenda-get-day-entries): * lisp/org-table.el (orgtbl-mode): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): * lisp/org.el (org-modules): (org-startup-options): (org-fontify-meta-lines-and-blocks): * mk/default.mk: * mk/manfull.pl: * mk/org-fixup.el (org-make-org-version): (org-make-org-loaddefs): * mk/orgcard2txt.pl (rep_esc): * mk/targets.mk ($(info): * testing/README: (Example): * testing/examples/no-heading.org: * testing/examples/normal.org: Change Org-mode into Org mode
2017-12-31 09:48:09 -05:00
"The Org mode table editor as a minor mode for use in other modes."
Backport commit c45bfd3c4 from Emacs * lisp/ox-beamer.el (org-beamer-mode-map): Move initialization into declaration. (org-beamer-mode): * lisp/org.el (org-cdlatex-mode): * lisp/org-table.el (org-table-header-line-mode) (org-table-follow-field-mode, orgtbl-mode): * lisp/org-src.el (org-src-mode): * lisp/org-list.el (org-list-checkbox-radio-mode): * lisp/org-indent.el (org-indent-mode): * lisp/org-capture.el (org-capture-mode): Avoid old-style positional args to `define-minor-mode`. * lisp/**/*.el: Avoid positional args to `define-minor-mode` c45bfd3c4abbfa585c9199f4866b6b8046945117 Stefan Monnier Sun Apr 11 23:47:14 2021 -0400
2021-04-11 23:47:14 -04:00
:lighter " OrgTbl"
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-load-modules-maybe)
Add Stefans redefinition of orgstruct-mode
2010-05-16 10:18:23 -04:00
(cond
Use (derived-mode-p 'org-mode) instead of (eq major-mode 'org-mode). * org.el (org-show-hierarchy-above, org-cycle) (org-global-cycle, org-files-list, org-store-link) (org-link-search, org-open-file, org-display-outline-path) (org-refile-get-location, org-update-all-dblocks) (org-change-tag-in-region, org-entry-properties) (org-save-all-org-buffers, org-revert-all-org-buffers) (org-buffer-list, org-cdlatex-mode) (org-install-agenda-files-menu, org-end-of-subtree) (org-speedbar-set-agenda-restriction): Use (derived-mode-p 'org-mode) instead of (eq major-mode 'org-mode). * org-timer.el (org-timer-set-timer): Ditto. * org-table.el (orgtbl-mode, org-table-align, orgtbl-mode): Ditto. * org-src.el (org-edit-src-exit, org-edit-src-code) (org-edit-fixed-width-region, org-edit-src-exit): Ditto. * org-remember.el (org-remember-handler): Ditto. * org-mouse.el (dnd-open-file, org-mouse-insert-item): Ditto. * org-macs.el (org-get-limited-outline-regexp): Ditto. * org-lparse.el (org-replace-region-by): Ditto. * org-latex.el (org-latex-to-pdf-process) (org-replace-region-by-latex): Ditto. * org-indent.el (org-indent-indent-buffer): Ditto. * org-id.el (org-id-store-link, org-id-update-id-locations) (org-id-store-link): Ditto. * org-html.el (org-export-html-preprocess) (org-replace-region-by-html): Ditto. * org-footnote.el (org-footnote-normalize) (org-footnote-goto-definition) (org-footnote-create-definition, org-footnote-normalize): Ditto. * org-docbook.el (org-replace-region-by-docbook): Ditto. * org-ctags.el (find-tag): Ditto. * org-colview.el (org-columns-redo) (org-columns-display-here, org-columns-edit-value) (org-columns-redo): Ditto. * org-colview-xemacs.el (org-columns-redo) (org-columns-display-here, org-columns-edit-value) (org-columns-redo): Ditto. * org-capture.el (org-capture-insert-template-here) (org-capture, org-capture-finalize) (org-capture-set-target-location) (org-capture-insert-template-here): Ditto. * org-ascii.el (org-replace-region-by-ascii): Ditto. * org-archive.el (org-archive-subtree): Ditto. * org-agenda.el (org-agenda) (org-agenda-get-restriction-and-command) (org-agenda-get-some-entry-text, org-search-view) (org-tags-view, org-agenda-get-day-entries) (org-agenda-format-item, org-agenda-goto, org-agenda-kill) (org-agenda-archive-with, org-agenda-switch-to): Ditto.
2012-04-20 14:03:45 -04:00
((derived-mode-p 'org-mode)
Change Org-mode into Org mode * lisp/ob-core.el (org-babel-result-to-file): * lisp/ob-picolisp.el: * lisp/org-agenda.el (org-check-for-org-mode): (org-search-view): (org-tags-view): (org-agenda-cleanup-fancy-diary): (org-agenda-get-day-entries): * lisp/org-table.el (orgtbl-mode): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): * lisp/org.el (org-modules): (org-startup-options): (org-fontify-meta-lines-and-blocks): * mk/default.mk: * mk/manfull.pl: * mk/org-fixup.el (org-make-org-version): (org-make-org-loaddefs): * mk/orgcard2txt.pl (rep_esc): * mk/targets.mk ($(info): * testing/README: (Example): * testing/examples/no-heading.org: * testing/examples/normal.org: Change Org-mode into Org mode
2017-12-31 09:48:09 -05:00
;; Exit without error, in case some hook functions calls this by
;; accident in Org mode.
(message "Orgtbl mode is not useful in Org mode, command ignored"))
Add Stefans redefinition of orgstruct-mode
2010-05-16 10:18:23 -04:00
(orgtbl-mode
(and (orgtbl-setup) (defun orgtbl-setup () nil)) ;; FIXME: Yuck!?!
;; Make sure we are first in minor-mode-map-alist
(let ((c (assq 'orgtbl-mode minor-mode-map-alist)))
;; FIXME: maybe it should use emulation-mode-map-alists?
(and c (setq minor-mode-map-alist
(cons c (delq c minor-mode-map-alist)))))
Use setq-local and defvar-local. * lisp/org-macs.el (org-set-local): Remove. All callers changed. * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-macro.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/org.el: Use defvar-local. * lisp/org-agenda.el: * lisp/org-capture.el: * lisp/org-crypt.el: * lisp/org-ctags.el: * lisp/org-plot.el: * lisp/org.el: * lisp/ox-odt.el: * lisp/ox.el: Use setq-local instead of set + make-local-variable. Changes in contrib: * contrib/lisp/org-colview-xemacs.el (org-colview-xemacs-set-local): New macro. Adjust old callers of `org-set-local'.
2015-11-05 11:47:38 -05:00
(setq-local org-table-may-need-update t)
Remove final parts of XEmacs compatibility code * lisp/org-compat.el: Declare `org-add-hook', `org-decompose-region', `org-detach-overlay', `org-file-equal-p', `org-float-time', `org-indent-line-to', `org-indent-to-column', `org-looking-at-p', `org-looking-back', `org-propertize', `org-re' and `org-select-frame-set-input-focus' as obsolete. (org-overlay-display, org-overlay-before-string, org-find-overlays): Move to "org.el" (org-xemacs-key-equivalents, org-xemacs-p): Remove variables. (org-region-active-p): Drop XEmacs support. (org-xemacs-without-invisibility): Remove macro. (org-get-x-clipboard-compat): Remove function. * lisp/org-macs.el (org-match-string-no-properties): Remove function. * lisp/ob-core.el: * lisp/org-agenda.el: * lisp/org-archive.el: * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-crypt.el: * lisp/org-element.el: * lisp/org-faces.el: * lisp/org-feed.el: * lisp/org-footnote.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-indent.el: * lisp/org-inlinetask.el: * lisp/org-lint.el: * lisp/org-list.el: * lisp/org-mouse.el: * lisp/org-pcomplete.el: * lisp/org-src.el: * lisp/org-table.el: * lisp/org-timer.el: * lisp/org.el: * lisp/ox-ascii.el: * lisp/ox-odt.el: * lisp/ox.el: * contrib/lisp/org-notify.el: * contrib/lisp/ox-taskjuggler.el: * contrib/lisp/org-wikinodes.el: * testing/lisp/test-org-src.el: * testing/lisp/test-org.el: Silence byte-compiler.
2016-05-26 06:18:00 -04:00
(add-hook 'before-change-functions 'org-before-change-function
nil 'local)
Use setq-local and defvar-local. * lisp/org-macs.el (org-set-local): Remove. All callers changed. * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-macro.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/org.el: Use defvar-local. * lisp/org-agenda.el: * lisp/org-capture.el: * lisp/org-crypt.el: * lisp/org-ctags.el: * lisp/org-plot.el: * lisp/org.el: * lisp/ox-odt.el: * lisp/ox.el: Use setq-local instead of set + make-local-variable. Changes in contrib: * contrib/lisp/org-colview-xemacs.el (org-colview-xemacs-set-local): New macro. Adjust old callers of `org-set-local'.
2015-11-05 11:47:38 -05:00
(setq-local org-old-auto-fill-inhibit-regexp
Remove final parts of XEmacs compatibility code * lisp/org-compat.el: Declare `org-add-hook', `org-decompose-region', `org-detach-overlay', `org-file-equal-p', `org-float-time', `org-indent-line-to', `org-indent-to-column', `org-looking-at-p', `org-looking-back', `org-propertize', `org-re' and `org-select-frame-set-input-focus' as obsolete. (org-overlay-display, org-overlay-before-string, org-find-overlays): Move to "org.el" (org-xemacs-key-equivalents, org-xemacs-p): Remove variables. (org-region-active-p): Drop XEmacs support. (org-xemacs-without-invisibility): Remove macro. (org-get-x-clipboard-compat): Remove function. * lisp/org-macs.el (org-match-string-no-properties): Remove function. * lisp/ob-core.el: * lisp/org-agenda.el: * lisp/org-archive.el: * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-crypt.el: * lisp/org-element.el: * lisp/org-faces.el: * lisp/org-feed.el: * lisp/org-footnote.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-indent.el: * lisp/org-inlinetask.el: * lisp/org-lint.el: * lisp/org-list.el: * lisp/org-mouse.el: * lisp/org-pcomplete.el: * lisp/org-src.el: * lisp/org-table.el: * lisp/org-timer.el: * lisp/org.el: * lisp/ox-ascii.el: * lisp/ox-odt.el: * lisp/ox.el: * contrib/lisp/org-notify.el: * contrib/lisp/ox-taskjuggler.el: * contrib/lisp/org-wikinodes.el: * testing/lisp/test-org-src.el: * testing/lisp/test-org.el: Silence byte-compiler.
2016-05-26 06:18:00 -04:00
auto-fill-inhibit-regexp)
Use setq-local and defvar-local. * lisp/org-macs.el (org-set-local): Remove. All callers changed. * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-macro.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/org.el: Use defvar-local. * lisp/org-agenda.el: * lisp/org-capture.el: * lisp/org-crypt.el: * lisp/org-ctags.el: * lisp/org-plot.el: * lisp/org.el: * lisp/ox-odt.el: * lisp/ox.el: Use setq-local instead of set + make-local-variable. Changes in contrib: * contrib/lisp/org-colview-xemacs.el (org-colview-xemacs-set-local): New macro. Adjust old callers of `org-set-local'.
2015-11-05 11:47:38 -05:00
(setq-local auto-fill-inhibit-regexp
Remove final parts of XEmacs compatibility code * lisp/org-compat.el: Declare `org-add-hook', `org-decompose-region', `org-detach-overlay', `org-file-equal-p', `org-float-time', `org-indent-line-to', `org-indent-to-column', `org-looking-at-p', `org-looking-back', `org-propertize', `org-re' and `org-select-frame-set-input-focus' as obsolete. (org-overlay-display, org-overlay-before-string, org-find-overlays): Move to "org.el" (org-xemacs-key-equivalents, org-xemacs-p): Remove variables. (org-region-active-p): Drop XEmacs support. (org-xemacs-without-invisibility): Remove macro. (org-get-x-clipboard-compat): Remove function. * lisp/org-macs.el (org-match-string-no-properties): Remove function. * lisp/ob-core.el: * lisp/org-agenda.el: * lisp/org-archive.el: * lisp/org-clock.el: * lisp/org-colview.el: * lisp/org-crypt.el: * lisp/org-element.el: * lisp/org-faces.el: * lisp/org-feed.el: * lisp/org-footnote.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-indent.el: * lisp/org-inlinetask.el: * lisp/org-lint.el: * lisp/org-list.el: * lisp/org-mouse.el: * lisp/org-pcomplete.el: * lisp/org-src.el: * lisp/org-table.el: * lisp/org-timer.el: * lisp/org.el: * lisp/ox-ascii.el: * lisp/ox-odt.el: * lisp/ox.el: * contrib/lisp/org-notify.el: * contrib/lisp/ox-taskjuggler.el: * contrib/lisp/org-wikinodes.el: * testing/lisp/test-org-src.el: * testing/lisp/test-org.el: Silence byte-compiler.
2016-05-26 06:18:00 -04:00
(if auto-fill-inhibit-regexp
(concat orgtbl-line-start-regexp "\\|"
auto-fill-inhibit-regexp)
orgtbl-line-start-regexp))
Remove XEmacs and ancient Emacs compat code * lisp/org-colview.el (org-columns-remove-overlays): * lisp/org-ctags.el (org-ctags-find-tag-interactive): * lisp/org-macs.el (org-fit-window-to-buffer): * lisp/org-mouse.el (org-mouse-show-context-menu): * lisp/org-table.el (org-table-fedit-lisp-indent): * lisp/org.el (org-version, org-reload): * lisp/ox-html.el (org-html-template, org-html--build-meta-info): Remove Emacs 21 and 22 compat code. * lisp/ol-eww.el (org-eww-copy-for-org-mode): * lisp/ol-w3m.el (org-w3m-copy-for-org-mode): * lisp/org-clock.el (org-clock-select-task): * lisp/org-macs.el (org-fit-window-to-buffer): * lisp/org-refile.el (org-refile): * lisp/org.el (org-change-tag-in-region): Remove XEmacs compat code. * lisp/org-goto.el (org-goto--set-map): * lisp/org-macs.el (org-fit-window-to-buffer): * lisp/org-table.el (orgtbl-mode): * lisp/org.el (org-setup-filling): Remove XEmacs or Emacs 19 or 20 compat code. (It is one of these; not clear which.)
2021-09-26 15:29:25 -04:00
(font-lock-add-keywords nil orgtbl-extra-font-lock-keywords)
(org-restart-font-lock))
Add Stefans redefinition of orgstruct-mode
2010-05-16 10:18:23 -04:00
(t
(setq auto-fill-inhibit-regexp org-old-auto-fill-inhibit-regexp)
(remove-hook 'before-change-functions 'org-before-change-function t)
Remove XEmacs and ancient Emacs compat code * lisp/org-colview.el (org-columns-remove-overlays): * lisp/org-ctags.el (org-ctags-find-tag-interactive): * lisp/org-macs.el (org-fit-window-to-buffer): * lisp/org-mouse.el (org-mouse-show-context-menu): * lisp/org-table.el (org-table-fedit-lisp-indent): * lisp/org.el (org-version, org-reload): * lisp/ox-html.el (org-html-template, org-html--build-meta-info): Remove Emacs 21 and 22 compat code. * lisp/ol-eww.el (org-eww-copy-for-org-mode): * lisp/ol-w3m.el (org-w3m-copy-for-org-mode): * lisp/org-clock.el (org-clock-select-task): * lisp/org-macs.el (org-fit-window-to-buffer): * lisp/org-refile.el (org-refile): * lisp/org.el (org-change-tag-in-region): Remove XEmacs compat code. * lisp/org-goto.el (org-goto--set-map): * lisp/org-macs.el (org-fit-window-to-buffer): * lisp/org-table.el (orgtbl-mode): * lisp/org.el (org-setup-filling): Remove XEmacs or Emacs 19 or 20 compat code. (It is one of these; not clear which.)
2021-09-26 15:29:25 -04:00
(font-lock-remove-keywords nil orgtbl-extra-font-lock-keywords)
(org-restart-font-lock)
Add Stefans redefinition of orgstruct-mode
2010-05-16 10:18:23 -04:00
(force-mode-line-update 'all))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun orgtbl-make-binding (fun n &rest keys)
"Create a function for binding in the table minor mode.
FUN is the command to call inside a table. N is used to create a unique
command name. KEYS are keys that should be checked in for a command
to execute outside of tables."
(eval
(list 'defun
Use `number-to-string' instead of `int-to-string' * lisp/org.el (org-end-of-subtree): Use `number-to-string' instead of `int-to-string'. * lisp/org-table.el (org-table-edit-field) (org-table-fix-formulas, org-table-analyze, orgtbl-make-binding) (org-table-field-info): Ditto. * lisp/org-macs.el (org-shorten-string): Ditto. * lisp/org-agenda.el (org-get-time-of-day): Ditto.
2020-01-28 14:19:24 -05:00
(intern (concat "orgtbl-hijacker-command-" (number-to-string n)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
'(arg)
(concat "In tables, run `" (symbol-name fun) "'.\n"
"Outside of tables, run the binding of `"
Use key-description on the keys mentionned by the functions defined by `orgtbl-mode'.
2013-11-12 03:02:23 -05:00
(mapconcat #'key-description keys "' or `")
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
"'.")
'(interactive "p")
(list 'if
'(org-at-table-p)
(list 'call-interactively (list 'quote fun))
(list 'let '(orgtbl-mode)
(list 'call-interactively
(append '(or)
(mapcar (lambda (k)
(list 'key-binding k))
keys)
'('orgtbl-error))))))))
(defun orgtbl-error ()
"Error when there is no default binding for a table key."
(interactive)
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(user-error "This key has no function outside tables"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun orgtbl-setup ()
"Setup orgtbl keymaps."
(let ((nfunc 0)
(bindings
Add Stefans redefinition of orgstruct-mode
2010-05-16 10:18:23 -04:00
'(([(meta shift left)] org-table-delete-column)
([(meta left)] org-table-move-column-left)
([(meta right)] org-table-move-column-right)
([(meta shift right)] org-table-insert-column)
([(meta shift up)] org-table-kill-row)
([(meta shift down)] org-table-insert-row)
([(meta up)] org-table-move-row-up)
([(meta down)] org-table-move-row-down)
("\C-c\C-w" org-table-cut-region)
("\C-c\M-w" org-table-copy-region)
("\C-c\C-y" org-table-paste-rectangle)
Add the binding for org-table-wrap-region to orgtbl-mode
2011-12-09 17:22:56 -05:00
("\C-c\C-w" org-table-wrap-region)
Add Stefans redefinition of orgstruct-mode
2010-05-16 10:18:23 -04:00
("\C-c-" org-table-insert-hline)
("\C-c}" org-table-toggle-coordinate-overlays)
("\C-c{" org-table-toggle-formula-debugger)
("\C-m" org-table-next-row)
([(shift return)] org-table-copy-down)
("\C-c?" org-table-field-info)
("\C-c " org-table-blank-field)
("\C-c+" org-table-sum)
("\C-c=" org-table-eval-formula)
("\C-c'" org-table-edit-formulas)
("\C-c`" org-table-edit-field)
("\C-c*" org-table-recalculate)
("\C-c^" org-table-sort-lines)
("\M-a" org-table-beginning-of-field)
("\M-e" org-table-end-of-field)
([(control ?#)] org-table-rotate-recalc-marks)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
elt key fun cmd)
(while (setq elt (pop bindings))
(setq nfunc (1+ nfunc))
(setq key (org-key (car elt))
fun (nth 1 elt)
cmd (orgtbl-make-binding fun nfunc key))
(org-defkey orgtbl-mode-map key cmd))
org-table: Fix DEL using orgtbl minor mode in prog derived mode * lisp/org-table.el (orgtbl-setup): Hijack DEL key. We also hijack `delete-backward-char' but major modes derived from `prog-mode' usually bypass it. Reported-by: Alex G <agrambot@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/107232>
2016-05-21 08:39:26 -04:00
;; Special treatment needed for TAB, RET and DEL
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey orgtbl-mode-map [(return)]
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(orgtbl-make-binding 'orgtbl-ret 100 [(return)] "\C-m"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey orgtbl-mode-map "\C-m"
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(orgtbl-make-binding 'orgtbl-ret 101 "\C-m" [(return)]))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey orgtbl-mode-map [(tab)]
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(orgtbl-make-binding 'orgtbl-tab 102 [(tab)] "\C-i"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey orgtbl-mode-map "\C-i"
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(orgtbl-make-binding 'orgtbl-tab 103 "\C-i" [(tab)]))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey orgtbl-mode-map [(shift tab)]
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(orgtbl-make-binding 'org-table-previous-field 104
[(shift tab)] [(tab)] "\C-i"))
org-table: Fix DEL using orgtbl minor mode in prog derived mode * lisp/org-table.el (orgtbl-setup): Hijack DEL key. We also hijack `delete-backward-char' but major modes derived from `prog-mode' usually bypass it. Reported-by: Alex G <agrambot@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/107232>
2016-05-21 08:39:26 -04:00
(org-defkey orgtbl-mode-map [backspace]
(orgtbl-make-binding 'org-delete-backward-char 109
org-table: Fix 4914f89 * lisp/org-table.el (orgtbl-setup): Fix improper key binding specification. Reported-by: Alex <agrambot@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/107287>
2016-05-22 19:19:29 -04:00
[backspace] (kbd "DEL")))
Don't bind S-iso-lefttab in XEmacs
2009-11-12 05:23:23 -05:00
Remove some XEmacs compatibility layer * lisp/ob-calc.el (calc-trail): * lisp/ob-python.el (org-babel-python-mode): * lisp/org-agenda.el (org-agenda-tags-column): (org-agenda-show-new-time): * lisp/org-clock.el (org-clock-update-mode-line): (org-clock-put-overlay): (org-clock-resolve): * lisp/org-faces.el (org-faces): * lisp/org-indent.el (org-indent-mode): * lisp/org-macs.el (org-load-noerror-mustsuffix): * lisp/org-table.el (orgtbl-setup): * lisp/org.el (org-key): (org-self-insert-cluster-for-undo): (org-tags-column): (org-emphasis-alist): (org-mode): (org-set-font-lock-defaults): (org-cycle-internal-local): (org-tree-to-indirect-buffer): (org-set-frame-title): (org-priority): (org-set-tags): (org-set-current-tags-overlay): (org-toggle-time-stamp-overlays): (org-display-custom-time): (org-diary-to-ical-string): (org--format-latex-make-overlay): (org-dvipng-color): (org-latex-color): (org-mode-map): (org-speed-commands-default): (org-reload): (org-display-warning): (org-end-of-line): * lisp/ox-man.el (org-man-inline-src-block): * contrib/lisp/org-vm.el (org-vm-follow-link): * contrib/lisp/ox-groff.el (org-groff-inline-src-block): (org-groff-src-block): Remove some XEmacs compatibility layer.
2016-05-26 05:30:11 -04:00
(org-defkey orgtbl-mode-map [S-iso-lefttab]
(orgtbl-make-binding 'org-table-previous-field 107
[S-iso-lefttab] [backtab] [(shift tab)]
[(tab)] "\C-i"))
Add bindings for S-iso-lefttab and backtab to orgtbl-mode Requested by Derek Upham.
2009-06-19 11:46:27 -04:00
(org-defkey orgtbl-mode-map [backtab]
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(orgtbl-make-binding 'org-table-previous-field 108
[backtab] [S-iso-lefttab] [(shift tab)]
[(tab)] "\C-i"))
Add bindings for S-iso-lefttab and backtab to orgtbl-mode Requested by Derek Upham.
2009-06-19 11:46:27 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey orgtbl-mode-map "\M-\C-m"
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(orgtbl-make-binding 'org-table-wrap-region 105
"\M-\C-m" [(meta return)]))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey orgtbl-mode-map [(meta return)]
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(orgtbl-make-binding 'org-table-wrap-region 106
[(meta return)] "\M-\C-m"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-defkey orgtbl-mode-map "\C-c\C-c" 'orgtbl-ctrl-c-ctrl-c)
Make `C-c |' work in orgtbl-mode. This key needs special treatment, because it needs to work *outside* tables. The patch introduces a special command to call the creation/conversion function if there is no conflicting binding to `C-c |' outside of orgtbl-mode.
2008-11-26 03:14:09 -05:00
(org-defkey orgtbl-mode-map "\C-c|" 'orgtbl-create-or-convert-from-region)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(when orgtbl-optimized
;; If the user wants maximum table support, we need to hijack
;; some standard editing functions
(org-remap orgtbl-mode-map
'self-insert-command 'orgtbl-self-insert-command
'delete-char 'org-delete-char
org-table.el: Fix orgtbl-mode not remapping delete key * lisp/org-table.el (orgtbl-setup): Remap `delete-forward-char' in addition to `delete-char'. The former is called in Emacs >26. Partially fixes https://orgmode.org/list/1AD1B9B7-5A15-4F86-9274-B04B83694C85@misasa.okayama-u.ac.jp
2021-12-19 07:49:54 -05:00
'delete-forward-char 'org-delete-char
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
'delete-backward-char 'org-delete-backward-char)
(org-defkey orgtbl-mode-map "|" 'org-force-self-insert))
t))
(defun orgtbl-ctrl-c-ctrl-c (arg)
"If the cursor is inside a table, realign the table.
Fix typos
2009-06-26 01:04:22 -04:00
If it is a table to be sent away to a receiver, do it.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
With prefix arg, also recompute table."
(interactive "P")
org-table.el: Fix setting of constants. * org.el (org-set-regexps-and-options): Use `org-table-set-constants'. * org-table.el (org-table-set-constants): New function. (orgtbl-ctrl-c-ctrl-c): Use it. Thanks to Oliver Večerník for reporting problems here.
2013-03-19 10:25:14 -04:00
(let ((case-fold-search t) (pos (point)) action)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(save-excursion
(beginning-of-line 1)
Support #+CONSTANTS in non - Org-mode files * lisp/org-table.el (orgtbl-ctrl-c-ctrl-c): Parse buffer for constants. Patch by Seweryn
2010-12-12 07:22:11 -05:00
(setq action (cond
((looking-at "[ \t]*#\\+ORGTBL:.*\n[ \t]*|") (match-end 0))
((looking-at "[ \t]*|") pos)
Match #+name/#+tblname/#+tblfm along with uppercase twins. * org.el: Use (case-fold-search t). (org-edit-special, org-ctrl-c-ctrl-c): Ditto. * org-table.el: (org-table-store-formulas, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-edit-formulas) (org-old-auto-fill-inhibit-regexp, orgtbl-ctrl-c-ctrl-c) (orgtbl-toggle-comment, org-table-get-remote-range): Ditto. * org-footnote.el: (org-footnote-goto-local-insertion-point): Ditto. * org-exp.el: Ditto. * org-colview.el: (org-dblock-write:columnview, org-dblock-write:columnview): Ditto. * org-colview-xemacs.el: (org-dblock-write:columnview): Ditto. * org-clock.el (org-clocktable-write-default): Ditto. * org-capture.el (org-capture-place-table-line): Ditto. * ob.el (org-babel-data-names, org-babel-goto-named-src-block) (org-babel-src-block-names) (org-babel-where-is-src-block-result, org-babel-result-end) (org-babel-where-is-src-block-head) (org-babel-find-named-result, org-babel-result-names): Ditto.
2012-04-21 09:36:04 -04:00
((looking-at "[ \t]*#\\+tblfm:") 'recalc))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(cond
((integerp action)
(goto-char action)
(org-table-maybe-eval-formula)
(if arg
(call-interactively 'org-table-recalculate)
(org-table-maybe-recalculate-line))
(call-interactively 'org-table-align)
New hook to run after orgtbl-mode has sent a table * lisp/org-table.el (orgtbl-after-send-table-hook): New hook. (orgtbl-ctrl-c-ctrl-c): Run `orgtbl-after-send-table-hook' when a table was sent. (orgtbl-send-table): Return the number of sent tables, or nil if no sending has happened. Patch by Seweryn Kokot. TINYCHANGE
2010-11-17 07:58:52 -05:00
(when (orgtbl-send-table 'maybe)
(run-hooks 'orgtbl-after-send-table-hook)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
((eq action 'recalc)
(save-excursion
(beginning-of-line 1)
(skip-chars-backward " \r\n\t")
(if (org-at-table-p)
(org-call-with-arg 'org-table-recalculate t))))
(t (let (orgtbl-mode)
(call-interactively (key-binding "\C-c\C-c")))))))
Activate lexical binding in some libraries * lisp/ob-C.el (org-babel-prep-session:C): (org-babel-load-session:C): * lisp/ob-J.el: (org-babel-expand-body:J): (org-babel-execute:J): * lisp/ob-R.el: (org-babel-expand-body:R): * lisp/ob-abc.el: (org-babel-execute:abc): (org-babel-prep-session:abc): * lisp/ob-asymptote.el: (org-babel-execute:asymptote): (org-babel-prep-session:asymptote): * lisp/ob-awk.el: (org-babel-expand-body:awk): * lisp/ob-calc.el: (org-babel-expand-body:calc): * lisp/ob-clojure.el: * lisp/ob-comint.el: (org-babel-comint-in-buffer): (org-babel-comint-with-output): (org-babel-comint-eval-invisibly-and-wait-for-file): * lisp/ob-coq.el: * lisp/ob-css.el: (org-babel-execute:css): (org-babel-prep-session:css): * lisp/ob-ditaa.el: (org-babel-execute:ditaa): (org-babel-prep-session:ditaa): * lisp/ob-dot.el: (org-babel-execute:dot): (org-babel-prep-session:dot): * lisp/ob-ebnf.el: * lisp/ob-emacs-lisp.el: * lisp/ob-eval.el: * lisp/ob-forth.el: * lisp/ob-fortran.el: (org-babel-execute:fortran): (org-babel-prep-session:fortran): (org-babel-load-session:fortran): * lisp/ob-gnuplot.el: (org-babel-expand-body:gnuplot): (org-babel-prep-session:gnuplot): (org-babel-gnuplot-initiate-session): * lisp/ob-groovy.el: (org-babel-prep-session:groovy): (org-babel-groovy-initiate-session): * lisp/ob-haskell.el: (org-babel-haskell-initiate-session): * lisp/ob-io.el: (org-babel-prep-session:io): (org-babel-io-initiate-session): * lisp/ob-java.el: (org-babel-execute:java): * lisp/ob-js.el: * lisp/ob-keys.el: * lisp/ob-latex.el: (org-babel-prep-session:latex): * lisp/ob-ledger.el: (org-babel-execute:ledger): (org-babel-prep-session:ledger): * lisp/ob-lilypond.el: (org-babel-lilypond-commands): (org-babel-lilypond-process-basic): (org-babel-prep-session:lilypond): (org-babel-lilypond-parse-line-num): * lisp/ob-lisp.el: * lisp/ob-makefile.el: (org-babel-execute:makefile): (org-babel-prep-session:makefile): * lisp/ob-matlab.el: * lisp/ob-maxima.el: (org-babel-prep-session:maxima): * lisp/ob-mscgen.el: (org-babel-prep-session:mscgen): * lisp/ob-ocaml.el: (org-babel-execute:ocaml): (org-babel-prep-session:ocaml): * lisp/ob-octave.el: (org-babel-execute:octave): (org-babel-octave-initiate-session): * lisp/ob-org.el: (org-babel-prep-session:org): * lisp/ob-perl.el: (org-babel-prep-session:perl): (org-babel-perl--var-to-perl): (org-babel-perl-initiate-session): * lisp/ob-picolisp.el: (org-babel-expand-body:picolisp): (org-babel-execute:picolisp): * lisp/ob-plantuml.el: (org-babel-execute:plantuml): (org-babel-prep-session:plantuml): * lisp/ob-processing.el: (org-babel-prep-session:processing): * lisp/ob-python.el: (org-babel-python-initiate-session): * lisp/ob-ref.el: (org-babel-ref-resolve): * lisp/ob-ruby.el: (org-babel-ruby-initiate-session): * lisp/ob-sass.el: (org-babel-execute:sass): (org-babel-prep-session:sass): * lisp/ob-scala.el: (org-babel-execute:scala): (org-babel-prep-session:scala): (org-babel-scala-initiate-session): * lisp/ob-scheme.el: * lisp/ob-screen.el: (org-babel-prep-session:screen): (org-babel-screen-session-write-temp-file): (org-babel-screen-test): * lisp/ob.el: * lisp/org-colview.el: (org-columns-todo): (org-columns-set-tags-or-toggle): (org-columns-new): (org-columns-uncompile-format): (org-agenda-colview-summarize): * lisp/org-footnote.el: (electric-indent-mode): * lisp/org-indent.el: (org-indent-refresh-maybe): * lisp/org-list.el: * lisp/org-macro.el: (org-macro--collect-macros): * lisp/org-src.el: * lisp/org-table.el: (sort-fold-case): (org-table-create): (org-table-field-info): (org-table-transpose-table-at-point): (org-table-remove-rectangle-highlight): (orgtbl-create-or-convert-from-region): (org-define-lookup-function): * lisp/ox-ascii.el: (org-ascii-format-drawer-function): (org-ascii--has-caption-p): (org-ascii-bold): (org-ascii-center-block): (org-ascii-clock): (org-ascii-code): (org-ascii-dynamic-block): (org-ascii-entity): (org-ascii-example-block): (org-ascii-export-snippet): (org-ascii-export-block): (org-ascii-fixed-width): (org-ascii-footnote-reference): (org-ascii-horizontal-rule): (org-ascii-inline-src-block): (org-ascii-format-inlinetask-default): (org-ascii-italic): (org-ascii-keyword): (org-ascii-latex-environment): (org-ascii-latex-fragment): (org-ascii-line-break): (org-ascii-node-property): (org-ascii-planning): (org-ascii-quote-block): (org-ascii-radio-target): (org-ascii-special-block): (org-ascii-src-block): (org-ascii-statistics-cookie): (org-ascii-subscript): (org-ascii-superscript): (org-ascii-strike-through): (org-ascii-timestamp): (org-ascii-underline): (org-ascii-verbatim): (org-ascii-verse-block): (org-ascii-filter-headline-blank-lines): (org-ascii-filter-paragraph-spacing): (org-ascii-filter-comment-spacing): Use lexical binding.
2015-10-25 20:56:00 -04:00
(defun orgtbl-create-or-convert-from-region (_arg)
Make `C-c |' work in orgtbl-mode. This key needs special treatment, because it needs to work *outside* tables. The patch introduces a special command to call the creation/conversion function if there is no conflicting binding to `C-c |' outside of orgtbl-mode.
2008-11-26 03:14:09 -05:00
"Create table or convert region to table, if no conflicting binding.
This installs the table binding `C-c |', but only if there is no
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
conflicting binding to this key outside `orgtbl-mode'."
Make `C-c |' work in orgtbl-mode. This key needs special treatment, because it needs to work *outside* tables. The patch introduces a special command to call the creation/conversion function if there is no conflicting binding to `C-c |' outside of orgtbl-mode.
2008-11-26 03:14:09 -05:00
(interactive "P")
(let* (orgtbl-mode (cmd (key-binding "\C-c|")))
(if cmd
(call-interactively cmd)
(call-interactively 'org-table-create-or-convert-from-region))))
Remove unnecessary whitespace.
2008-12-04 09:33:43 -05:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun orgtbl-tab (arg)
"Justification and field motion for `orgtbl-mode'."
(interactive "P")
(if arg (org-table-edit-field t)
(org-table-justify-field-maybe)
(org-table-next-field)))
(defun orgtbl-ret ()
"Justification and field motion for `orgtbl-mode'."
(interactive)
Fix RET in orgtbl-mode, when cursor is at the beginning of the buffer. RET did fail in orgtbl-mode, if the cursor was at the beginning of the buffer. Now it opens a new line whenever the cursor is at the beginning of a line, and that includes the beginning of the buffer.....
2008-11-24 16:45:56 -05:00
(if (bobp)
(newline)
(org-table-justify-field-maybe)
(org-table-next-row)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun orgtbl-self-insert-command (N)
"Like `self-insert-command', use overwrite-mode for whitespace in tables.
If the cursor is in a table looking at whitespace, the whitespace is
overwritten, and the table is not marked as requiring realignment."
(interactive "p")
(if (and (org-at-table-p)
(or
(and org-table-auto-blank-field
(member last-command
'(orgtbl-hijacker-command-100
orgtbl-hijacker-command-101
orgtbl-hijacker-command-102
orgtbl-hijacker-command-103
orgtbl-hijacker-command-104
Tables: Fix auto-blanking of fields is yasnippet is active. When yasnippet is active, it is the official binding of TAB. That means, the org-mode self-insert command must know that it may blank table fields if the last command was yas/expand.
2009-06-21 16:19:15 -04:00
orgtbl-hijacker-command-105
yas/expand))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(org-table-blank-field))
t)
(eq N 1)
org-table: Fix orgtbl-self-insert-command on white spaces * lisp/org-table.el (orgtbl-self-insert-command): Properly overwrite white spaces when there is room for it. This is on par with what `org-self-insert-command' does in Org tables. Reported-by: Alex <agrambot@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/107112>
2016-05-20 17:03:18 -04:00
(looking-at "[^|\n]* \\( \\)|"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(let (org-table-may-need-update)
org-table: Fix orgtbl-self-insert-command on white spaces * lisp/org-table.el (orgtbl-self-insert-command): Properly overwrite white spaces when there is room for it. This is on par with what `org-self-insert-command' does in Org tables. Reported-by: Alex <agrambot@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/107112>
2016-05-20 17:03:18 -04:00
(delete-region (match-beginning 1) (match-end 1))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(self-insert-command N))
(setq org-table-may-need-update t)
Undo: Cluster self-insert characters for undo Undo will now remove up to 20 characters typed consecutively, just like Emacs normally does. We need a special implementation for this because Org has its own self-insert command. The code for doing this is a patch by Martin Pohlack.
2009-02-25 06:43:24 -05:00
(let* (orgtbl-mode
(cmd (or (key-binding
(or (and (listp function-key-map)
org-table: Fix incorrect input when used with evil-escape * org-table.el (org-self-insert-command): Use `last-command-event' instead of `last-input-event'. Using `last-input-event' causes problems in the presence of `evil-escape'. Consider a buffer that has `orgtbl-mode' enabled while evil-escape is in use. Assume the evil-escape sequence is "fd". Typing "f RET" will instead insert "RET RET" into the buffer, since `last-input-event' is "RET", but `last-command-event' is "f". TINYCHANGE
2023-04-03 13:53:57 -04:00
(cdr (assoc last-command-event function-key-map)))
(vector last-command-event)))
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
'self-insert-command)))
Undo: Cluster self-insert characters for undo Undo will now remove up to 20 characters typed consecutively, just like Emacs normally does. We need a special implementation for this because Org has its own self-insert command. The code for doing this is a patch by Martin Pohlack.
2009-02-25 06:43:24 -05:00
(call-interactively cmd)
(if (and org-self-insert-cluster-for-undo
(eq cmd 'self-insert-command))
(if (not (eq last-command 'orgtbl-self-insert-command))
(setq org-self-insert-command-undo-counter 1)
(if (>= org-self-insert-command-undo-counter 20)
(setq org-self-insert-command-undo-counter 1)
(and (> org-self-insert-command-undo-counter 0)
buffer-undo-list
(not (cadr buffer-undo-list)) ; remove nil entry
(setcdr buffer-undo-list (cddr buffer-undo-list)))
(setq org-self-insert-command-undo-counter
(1+ org-self-insert-command-undo-counter))))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Autoload orgtbl-exp-regexp * org-table.el (orgtbl-exp-regexp): Add autoload cookie. Reported-by: Robert Klein <roklein@roklein.de> <http://permalink.gmane.org/gmane.emacs.orgmode/98887>
2015-07-07 08:40:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$"
"Regular expression matching exponentials as produced by calc.")
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
(defun orgtbl-gather-send-defs ()
Correct some doc strings [part 5] This is the fifth patch in a series that makes some straightforward corrections to a number of docstrings. Each change is normally to: - correct a typo, or - fix up hyperlinks to function or variable names, or - ensure slightly better conformance with the documentation guidelines and tips given in the Elisp manual No attempt is made to provide missing docstrings or document arguments. Cheers, Phil
2010-07-17 14:53:36 -04:00
"Gather a plist of :name, :transform, :params for each destination before
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
a radio table."
(save-excursion
(goto-char (org-table-begin))
(let (rtn)
(beginning-of-line 0)
Allow dashes and more in the ORGTBL SEND name
2010-04-18 02:11:07 -04:00
(while (looking-at "[ \t]*#\\+ORGTBL[: \t][ \t]*SEND[ \t]+\\([^ \t\r\n]+\\)[ \t]+\\([^ \t\r\n]+\\)\\([ \t]+.*\\)?")
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
(let ((name (org-no-properties (match-string 1)))
(transform (intern (match-string 2)))
(params (if (match-end 3)
(read (concat "(" (match-string 3) ")")))))
(push (list :name name :transform transform :params params)
rtn)
(beginning-of-line 0)))
rtn)))
org-table: Allow multiple receiver locations for radio tables * lisp/org-table.el (orgtbl-send-replace-tbl): Allow multiple receiver locations. * testing/lisp/test-org-table.el (test-org-table/send-region): Add test.
2016-06-17 04:05:40 -04:00
(defun orgtbl-send-replace-tbl (name text)
"Find and replace table NAME with TEXT."
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
(save-excursion
(goto-char (point-min))
org-table: Allow multiple receiver locations for radio tables * lisp/org-table.el (orgtbl-send-replace-tbl): Allow multiple receiver locations. * testing/lisp/test-org-table.el (test-org-table/send-region): Add test.
2016-06-17 04:05:40 -04:00
(let* ((location-flag nil)
(name (regexp-quote name))
(begin-re (format "BEGIN +RECEIVE +ORGTBL +%s\\([ \t]\\|$\\)" name))
(end-re (format "END +RECEIVE +ORGTBL +%s\\([ \t]\\|$\\)" name)))
(while (re-search-forward begin-re nil t)
(unless location-flag (setq location-flag t))
(let ((beg (line-beginning-position 2)))
(unless (re-search-forward end-re nil t)
(user-error "Cannot find end of receiver location at %d" beg))
(beginning-of-line)
(delete-region beg (point))
(insert text "\n")))
(unless location-flag
(user-error "No valid receiver location found in the buffer")))))
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
Minor fixes.
2008-09-03 03:10:17 -04:00
;;;###autoload
New function to convert a table to a lisp structure.
2008-07-17 13:08:53 -04:00
(defun org-table-to-lisp (&optional txt)
"Convert the table at point to a Lisp structure.
table: `org-table-to-lisp' does not check if point is at a table * lisp/org-table.el (org-table-to-lisp): Do not check if point is at a table. Leave it to the caller. See <http://lists.gnu.org/r/emacs-orgmode/2020-05/msg00000.html>.
2020-05-01 09:00:47 -04:00
New function to convert a table to a lisp structure.
2008-07-17 13:08:53 -04:00
The structure will be a list. Each item is either the symbol `hline'
for a horizontal separator line, or a list of field values as strings.
The table is taken from the parameter TXT, or from the buffer at point."
table: Rewrite `org-table-to-lisp' * lisp/org-table.el (org-table-to-lisp): Rewrite function. The new implementation can be more than 100 times faster. This enhances responsiveness of Babel or Gnuplot blocks handling very large tables.
2020-04-30 18:24:47 -04:00
(if txt
(with-temp-buffer
(insert txt)
(goto-char (point-min))
(org-table-to-lisp))
(save-excursion
(goto-char (org-table-begin))
(let ((table nil))
table: Small fix * lisp/org-table.el (org-table-to-lisp): Make sure to stop at the end of the table.
2020-05-01 06:29:11 -04:00
(while (re-search-forward "\\=[ \t]*|" nil t)
table: Rewrite `org-table-to-lisp' * lisp/org-table.el (org-table-to-lisp): Rewrite function. The new implementation can be more than 100 times faster. This enhances responsiveness of Babel or Gnuplot blocks handling very large tables.
2020-04-30 18:24:47 -04:00
(let ((row nil))
(if (looking-at "-")
(push 'hline table)
(while (not (progn (skip-chars-forward " \t") (eolp)))
table: `org-table-to-lisp' preserves text properties. * lisp/org-table.el (org-table-to-lisp): Preserve text properties. Otherwise, it breaks `org-table-align', which needs to know about invisible characters.
2020-05-08 10:14:50 -04:00
(push (buffer-substring
table: Small fix * lisp/org-table.el (org-table-to-lisp): Make sure to stop at the end of the table.
2020-05-01 06:29:11 -04:00
(point)
(progn (re-search-forward "[ \t]*\\(|\\|$\\)")
(match-beginning 0)))
row))
table: Rewrite `org-table-to-lisp' * lisp/org-table.el (org-table-to-lisp): Rewrite function. The new implementation can be more than 100 times faster. This enhances responsiveness of Babel or Gnuplot blocks handling very large tables.
2020-04-30 18:24:47 -04:00
(push (nreverse row) table)))
(forward-line))
(nreverse table)))))
New function to convert a table to a lisp structure.
2008-07-17 13:08:53 -04:00
table: Allow collapsing header into single line * lisp/org-table.el (org-table-collapse-header): New function. * lisp/org-plot.el (org-plot/gnuplot): Use org-table-collapse-header and trust there will be no more leading `hline' symbols in lisp table. * testing/lisp/test-org-table.el (test-org-table/to-lisp): Adding tests to already existing to-lisp function. (test-org-table/collapse-header): Adding tests to new collapse-header function. * testing/lisp/test-ox.el (test-org-export/has-header-p): Testing exporting table with multi-line header.
2020-06-12 12:42:34 -04:00
(defun org-table-collapse-header (table &optional separator max-header-lines)
Backport commit bbf389ea6 from Emacs * lisp/ox-publish.el (org-publish-find-property): * lisp/ox-html.el (org-html--unlabel-latex-environment): * lisp/org-table.el (org-table-collapse-header): * lisp/org-plot.el (org--plot/prime-factors): * lisp/org-agenda.el (org-agenda--mark-blocked-entry): (org-agenda-set-restriction-lock): * lisp/ob-lua.el (org-babel-lua-read-string): * lisp/ob-julia.el (org-babel-julia-evaluate-external-process): (org-babel-julia-evaluate-session): * lisp/ob-core.el (org-babel-default-header-args): Fix quoting in doc strings. In code examples, the ' character is quoted with \\=, and regularize 'foo to `foo', and quote strings like "foo" instead of 'foo'. Audit quoting the quote character in doc strings bbf389ea6deab229ba18dc519fe712ec982609d1 Lars Ingebrigtsen Fri Apr 22 16:17:22 2022 +0200 [km] Org's bugfix branch is currently receiving commits from emacs-28, but this commit comes from Emacs's master branch. I'm porting it because it has conflicts with bugfix's 01b0fb14b (Backport from main: Escape single left quotes in docstrings, 2022-07-24) and only touches docstrings.
2022-04-22 10:17:22 -04:00
"Collapse the lines before `hline' into a single header.
table: Allow collapsing header into single line * lisp/org-table.el (org-table-collapse-header): New function. * lisp/org-plot.el (org-plot/gnuplot): Use org-table-collapse-header and trust there will be no more leading `hline' symbols in lisp table. * testing/lisp/test-org-table.el (test-org-table/to-lisp): Adding tests to already existing to-lisp function. (test-org-table/collapse-header): Adding tests to new collapse-header function. * testing/lisp/test-ox.el (test-org-export/has-header-p): Testing exporting table with multi-line header.
2020-06-12 12:42:34 -04:00
The given TABLE is a list of lists as returned by `org-table-to-lisp'.
The leading lines before the first `hline' symbol are considered
forming the table header. This function collapses all leading header
lines into a single header line, followed by the `hline' symbol, and
the rest of the TABLE. Header cells are glued together with a space,
or the given SEPARATOR."
(while (eq (car table) 'hline) (pop table))
(let* ((separator (or separator " "))
(max-header-lines (or max-header-lines 4))
(trailer table)
(header-lines (cl-loop for line in table
until (eq 'hline line)
collect (pop trailer))))
(if (and trailer (<= (length header-lines) max-header-lines))
(cons (apply #'cl-mapcar
(lambda (&rest x)
(org-trim
(mapconcat #'identity x separator)))
header-lines)
trailer)
table)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun orgtbl-send-table (&optional maybe)
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
"Send a transformed version of table at point to the receiver position.
With argument MAYBE, fail quietly if no transformation is defined
for this table."
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(interactive)
(catch 'exit
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(unless (org-at-table-p) (user-error "Not at a table"))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;; when non-interactive, we assume align has just happened.
Deprecate `org-called-interactively-p' in favor of `called-interactively-p' * lisp/org-compat.el (org-called-interactively-p): Make it an obsolete alias for `called-interactively-p'. * lisp/org-macs.el (org-called-interactively-p): Remove function. * contrib/lisp/org-expiry.el (org-expiry-insinuate): (org-expiry-deinsinuate): (org-expiry-process-entry): (org-expiry-process-entries): (org-expiry-archive-subtree): (org-expiry-add-keyword): * lisp/ob-core.el (org-babel-expand-src-block): (org-babel-sha1-hash): * lisp/org-agenda.el (org-toggle-sticky-agenda): (org-agenda-write): (org-agenda-dim-blocked-tasks): (org-agenda-redo): (org-agenda-show-1): (org-agenda-set-tags): * lisp/org-lint.el (org-lint): * lisp/org-table.el (org-table-blank-field): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-sum): (org-table-rotate-recalc-marks): (org-table-eval-formula): (orgtbl-send-table): * lisp/org.el (org-mode): (org-copy-subtree): (org-paste-subtree): (org-store-link): (org-todo): (org-occur): (org-create-math-formula): (org-toggle-inline-images): (org-mark-subtree): (org-mark-element): Apply removal.
2016-06-23 08:34:40 -04:00
(when (called-interactively-p 'any) (org-table-align))
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
(let ((dests (orgtbl-gather-send-defs))
table: Tiny clean-up * lisp/org-table.el (org-table-export): Remove unnecessary calls to `buffer-substring-no-properties'.
2020-05-02 05:32:17 -04:00
(table (org-table-to-lisp))
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
(ntbl 0))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(unless dests
(if maybe (throw 'exit nil)
(user-error "Don't know how to transform this table")))
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
(dolist (dest dests)
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(let ((name (plist-get dest :name))
(transform (plist-get dest :transform))
(params (plist-get dest :params)))
(unless (fboundp transform)
(user-error "No such transformation function %s" transform))
(orgtbl-send-replace-tbl name (funcall transform table params)))
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(cl-incf ntbl))
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
(message "Table converted and installed at %d receiver location%s"
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
ntbl (if (> ntbl 1) "s" ""))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(and (> ntbl 0) ntbl))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun org-remove-by-index (list indices &optional i0)
"Remove the elements in LIST with indices in INDICES.
First element has index 0, or I0 if given."
(if (not indices)
list
(if (integerp indices) (setq indices (list indices)))
(setq i0 (1- (or i0 0)))
(delq :rm (mapcar (lambda (x)
(setq i0 (1+ i0))
(if (memq i0 indices) :rm x))
list))))
(defun orgtbl-toggle-comment ()
"Comment or uncomment the orgtbl at point."
(interactive)
Match #+name/#+tblname/#+tblfm along with uppercase twins. * org.el: Use (case-fold-search t). (org-edit-special, org-ctrl-c-ctrl-c): Ditto. * org-table.el: (org-table-store-formulas, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-edit-formulas) (org-old-auto-fill-inhibit-regexp, orgtbl-ctrl-c-ctrl-c) (orgtbl-toggle-comment, org-table-get-remote-range): Ditto. * org-footnote.el: (org-footnote-goto-local-insertion-point): Ditto. * org-exp.el: Ditto. * org-colview.el: (org-dblock-write:columnview, org-dblock-write:columnview): Ditto. * org-colview-xemacs.el: (org-dblock-write:columnview): Ditto. * org-clock.el (org-clocktable-write-default): Ditto. * org-capture.el (org-capture-place-table-line): Ditto. * ob.el (org-babel-data-names, org-babel-goto-named-src-block) (org-babel-src-block-names) (org-babel-where-is-src-block-result, org-babel-result-end) (org-babel-where-is-src-block-head) (org-babel-find-named-result, org-babel-result-names): Ditto.
2012-04-21 09:36:04 -04:00
(let* ((case-fold-search t)
(re1 (concat "^" (regexp-quote comment-start) orgtbl-line-start-regexp))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(re2 (concat "^" orgtbl-line-start-regexp))
(commented (save-excursion (beginning-of-line 1)
Massive code clean-up. Delete trailing whitespaces. Indent all sexps correctly. Sentences end with double spaces.
2012-08-11 13:10:44 -04:00
(cond ((looking-at re1) t)
((looking-at re2) nil)
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(t (user-error "Not at an org table")))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(re (if commented re1 re2))
beg end)
(save-excursion
(beginning-of-line 1)
orgtbl-toggle-comment: Fix when table is at `point-min' or `point-max' * lisp/org-table.el (orgtbl-toggle-comment): Avoid infinite loop when begin/end line of the table is at `point-min' or `point-max'. Fixes https://orgmode.org/list/874k20v7sj.fsf@gmail.com
2022-05-09 09:29:16 -04:00
(while (and (not (eq (point) (point-min)))
(looking-at re))
(beginning-of-line 0))
(unless (eq (point) (point-min)) (beginning-of-line 2))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq beg (point))
orgtbl-toggle-comment: Fix when table is at `point-min' or `point-max' * lisp/org-table.el (orgtbl-toggle-comment): Avoid infinite loop when begin/end line of the table is at `point-min' or `point-max'. Fixes https://orgmode.org/list/874k20v7sj.fsf@gmail.com
2022-05-09 09:29:16 -04:00
(while (and (not (eq (point) (point-max)))
(looking-at re))
(beginning-of-line 2))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq end (point)))
(comment-region beg end (if commented '(4) nil))))
(defun orgtbl-insert-radio-table ()
"Insert a radio table template appropriate for this major mode."
(interactive)
Backport commit c92bae9a0 from Emacs * lisp/org-list.el (org-list-insert-radio-list): * lisp/org-table.el (orgtbl-setup, orgtbl-insert-radio-table): Use derived-mode-p. change org to use derived-mode-p c92bae9a08cc7c2eb61bad32d9a9d6553b6d2c19 Tom Tromey Wed Apr 5 15:53:38 2017 -0600
2017-03-18 18:03:15 -04:00
(let* ((e (cl-assoc-if #'derived-mode-p orgtbl-radio-table-templates))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(txt (nth 1 e))
name pos)
org-table.el: Use `user-error' instead of `error' for user errors * org-table.el (org-table-convert-region, org-table-export) (org-table-align, org-table-beginning-of-field) (org-table-copy-down, org-table-check-inside-data-field) (org-table-insert-column, org-table-find-dataline) (org-table-delete-column, org-table-move-column) (org-table-insert-row, org-table-insert-hline) (org-table-kill-row, org-table-paste-rectangle) (org-table-wrap-region, org-table-sum, org-table-get-formula) (org-table-get-formula, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-maybe-eval-formula) (org-table-rotate-recalc-marks, org-table-eval-formula) (org-table-get-range, org-table-get-descriptor-line) (org-table-find-row-type, org-table-recalculate) (org-table-iterate, org-table-iterate-buffer-tables) (org-table-formula-handle-first/last-rc) (org-table-edit-formulas, org-table-fedit-shift-reference) (org-rematch-and-replace, org-table-shift-refpart) (org-table-fedit-finish, org-table-fedit-lisp-indent) (org-table-show-reference, org-table-show-reference) (org-table-show-reference, org-table-show-reference) (org-table-force-dataline, orgtbl-error, orgtbl-export) (orgtbl-send-replace-tbl, org-table-to-lisp) (orgtbl-send-table, orgtbl-send-table, orgtbl-send-table) (orgtbl-toggle-comment, orgtbl-insert-radio-table) (orgtbl-to-unicode, org-table-get-remote-range) (org-table-get-remote-range, org-table-copy-dow) (org-table-check-inside-data-field, org-table-insert-colum) (org-table-find-dataline, org-table-delete-colum) (org-table-move-column, org-table-insert-ro) (org-table-insert-hline, org-table-kill-ro) (org-table-paste-rectangle, org-table-wrap-regio) (org-table-sum, org-table-get-formul) (org-table-get-stored-formulas, org-table-fix-formula) (org-table-maybe-eval-formul, org-table-rotate-recalc-marks) (org-table-eval-formul, org-table-get-range) (org-table-get-descriptor-lin, org-table-find-row-type) (org-table-recalculat, org-table-iterate) (org-table-iterate-buffer-table) (org-table-formula-handle-first/last-r) (org-table-edit-formulas, org-table-fedit-shift-referenc) (org-rematch-and-replace, org-table-shift-refpar) (org-table-fedit-finish, org-table-fedit-lisp-inden) (org-table-show-reference, org-table-force-datalin) (orgtbl-error, orgtbl-export, orgtbl-send-replace-tb) (org-table-to-lisp, orgtbl-send-tabl, orgtbl-toggle-comment) (orgtbl-insert-radio-tabl, orgtbl-to-unicode) (org-table-get-remote-range): Use `user-error' instead of `error' for user errors.
2013-03-02 09:40:09 -05:00
(unless e (user-error "No radio table setup defined for %s" major-mode))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(setq name (read-string "Table name: "))
(while (string-match "%n" txt)
(setq txt (replace-match name t t txt)))
(or (bolp) (insert "\n"))
(setq pos (point))
(insert txt)
(goto-char pos)))
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(defun orgtbl-to-generic (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE to some other format.
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
This generic routine can be used for many standard cases.
org-table.el (orgtbl-to-latex, orgtbl-to-texinfo): Export cells to LaTeX and Texinfo before sending the table * org-table.el (orgtbl-to-generic): New parameter `backend' to export cells content using a specific backend. (orgtbl-to-latex, orgtbl-to-texinfo): Export cells to LaTeX and Texinfo before sending the table. Thanks to Luca Sabbatini for reporting a problem that led to this change.
2013-03-19 12:32:35 -04:00
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that
line. PARAMS is a property list of parameters that can
influence the conversion.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table.el (orgtbl-to-generic): Fix docstring. * org-table.el (orgtbl-to-generic): Fix docstring.
2012-08-09 10:17:05 -04:00
Valid parameters are:
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
:backend, :raw
Export back-end used as a basis to transcode elements of the
table, when no specific parameter applies to it. It is also
used to translate cells contents. You can prevent this by
setting :raw property to a non-nil value.
:splice
When non-nil, only convert rows, not the table itself. This is
equivalent to setting to the empty string both :tstart
and :tend, which see.
:skip
When set to an integer N, skip the first N lines of the table.
Horizontal separation lines do count for this parameter!
:skipcols
List of columns that should be skipped. If the table has
a column with calculation marks, that column is automatically
discarded beforehand.
:hline
String to be inserted on horizontal separation lines. May be
nil to ignore these lines altogether.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
:sep
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
Separator between two fields, as a string.
Applied patch series from Jason Riedy. You can slice a single table full of calculations in different ways into separate destinations. Or you can format the table differently. There are many fun and exciting possible uses. A fancier implementation would scan the document *once* for the set of destinations. That could help implement another function to update all destinations from all sources. Refactor orgtbl-to-generic; explicitly separate heading from body. Support last-line specializers. Allow functions for some orgtbl parameters. Add a :remove-nil-lines parameter to orgtbl-to-generic.
2008-04-21 01:50:27 -04:00
Documentation fixes for table exporter.
2008-05-12 01:31:21 -04:00
Each in the following group may be either a string or a function
of no arguments returning a string:
org-table.el (orgtbl-to-generic): Fix docstring. * org-table.el (orgtbl-to-generic): Fix docstring.
2012-08-09 10:17:05 -04:00
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
:tstart, :tend
Strings to start and end the table. Ignored when :splice is t.
:lstart, :lend
Strings to start and end a new table line.
:llstart, :llend
Strings to start and end the last table line. Default,
respectively, to :lstart and :lend.
Each in the following group may be a string or a function of one
argument (either the cells in the current row, as a list of
strings, or the current cell) returning a string:
:lfmt
Format string for an entire row, with enough %s to capture all
fields. When non-nil, :lstart, :lend, and :sep are ignored.
:llfmt
Format for the entire last line, defaults to :lfmt.
:fmt
A format to be used to wrap the field, should contain %s for
the original field value. For example, to wrap everything in
dollars, you could use :fmt \"$%s$\". This may also be
a property list with column numbers and format strings, or
functions, e.g.,
Fix docstrings * lisp/org-clock.el (org-clock-get-table-data): * lisp/org-element.el (org-element--cache-objects): (org-element--cache-generate-key): * lisp/org-footnote.el (org-footnote--collect-references): * lisp/org-list.el (org-list-to-lisp): * lisp/org-table.el (orgtbl-to-generic): * lisp/org.el (org-file-apps): (org-execute-file-search-functions): (org-after-todo-statistics-hook): (org-find-olp): * lisp/ox-html.el (org-html-table-row-open-tag): Do not escape parenthesis in docstring when not at column 0.
2016-10-31 05:01:33 -04:00
(:fmt (2 \"$%s$\" 4 (lambda (c) (format \"$%s$\" c))))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
orgtbl-to-generic: Mention that :fmt is ignored for empty cells * lisp/org-table.el (orgtbl-to-generic): Amend docstring mentioning that :fmt is ignored for empty table cells.
2021-09-30 23:40:54 -04:00
The format is ignored for empty fields. Use :raw t with non-nil
:backend option to force formatting empty fields.
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
:hlstart :hllstart :hlend :hllend :hsep :hlfmt :hllfmt :hfmt
Same as above, specific for the header lines in the table.
All lines before the first hline are treated as header. If
any of these is not present, the data line value is used.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Documentation fixes for table exporter.
2008-05-12 01:31:21 -04:00
This may be either a string or a function of two arguments:
org-table.el (orgtbl-to-generic): Fix docstring. * org-table.el (orgtbl-to-generic): Fix docstring.
2012-08-09 10:17:05 -04:00
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
:efmt
Use this format to print numbers with exponential. The format
should have %s twice for inserting mantissa and exponent, for
example \"%s\\\\times10^{%s}\". This may also be a property
list with column numbers and format strings or functions.
:fmt will still be applied after :efmt."
Fix "undefined symbol 'org-export-create-backend" * lisp/org-table.el (orgtbl-to-generic): Make sure "ox.el" is loaded before converting a radio table. Reported-by: Dave Marquardt <davemarq@linux.vnet.ibm.com> <http://permalink.gmane.org/gmane.emacs.orgmode/101642>
2015-10-01 15:55:13 -04:00
;; Make sure `org-export-create-backend' is available.
(require 'ox)
org-table: Fix radio tables containing macros * lisp/org-table.el (orgtbl-to-generic): Export macros as-is, even if they are undefined. * testing/lisp/test-org-table.el (test-org-table/to-generic): Add test. Radio tables are now using a minimal set-up for export. In particular, no macro is expanded, and no Babel code is executed. If any of these is needed, use `org-export-string-as' or `org-export-region-as' instead. Reported-by: Mark Edgington <edgimar@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/100621>
2015-09-19 07:25:12 -04:00
(let* ((backend (plist-get params :backend))
(custom-backend
;; Build a custom back-end according to PARAMS. Before
;; defining a translator, check if there is anything to do.
;; When there isn't, let BACKEND handle the element.
(org-export-create-backend
:parent (or backend 'org)
:transcoders
`((table . ,(org-table--to-generic-table params))
(table-row . ,(org-table--to-generic-row params))
(table-cell . ,(org-table--to-generic-cell params))
;; Macros are not going to be expanded. However, no
;; regular back-end has a transcoder for them. We
;; provide one so they are not ignored, but displayed
;; as-is instead.
(macro . (lambda (m c i) (org-element-macro-interpreter m nil))))))
data info)
;; Store TABLE as Org syntax in DATA. Tolerate non-string cells.
;; Initialize communication channel in INFO.
(with-temp-buffer
(let ((org-inhibit-startup t)) (org-mode))
orgtbl-to-generic: Improve performance * lisp/org-table.el (orgtbl-to-generic): Disable org-fold checks in temporary buffer. Folding state is irrelevant there. Reported-by: Majzoub, Eric <eric.majzoub@umsl.edu> Link: https://orgmode.org/list/tn0s4e$84u$1@ciao.gmane.io
2022-12-10 00:45:54 -05:00
(org-fold-core-ignore-modifications
(let ((standard-output (current-buffer))
(org-element-use-cache nil))
(dolist (e table)
(cond ((eq e 'hline) (princ "|--\n"))
((consp e)
(princ "| ") (dolist (c e) (princ c) (princ " |"))
(princ "\n")))))
(org-element-cache-reset)
;; Add back-end specific filters, but not user-defined ones. In
;; particular, make sure to call parse-tree filters on the
;; table.
(setq info
(let ((org-export-filters-alist nil))
(org-export-install-filters
(org-combine-plists
(org-export-get-environment backend nil params)
`(:back-end ,(org-export-get-backend backend))))))
(setq data
(org-export-filter-apply-functions
(plist-get info :filter-parse-tree)
(org-element-map (org-element-parse-buffer) 'table
#'identity nil t)
info))
(when (and backend (symbolp backend) (not (org-export-get-backend backend)))
(user-error "Unknown :backend value"))))
org-table: Fix radio tables containing macros * lisp/org-table.el (orgtbl-to-generic): Export macros as-is, even if they are undefined. * testing/lisp/test-org-table.el (test-org-table/to-generic): Add test. Radio tables are now using a minimal set-up for export. In particular, no macro is expanded, and no Babel code is executed. If any of these is needed, use `org-export-string-as' or `org-export-region-as' instead. Reported-by: Mark Edgington <edgimar@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/100621>
2015-09-19 07:25:12 -04:00
(when (or (not backend) (plist-get info :raw)) (require 'ox-org))
;; Handle :skip parameter.
(let ((skip (plist-get info :skip)))
(when skip
(unless (wholenump skip) (user-error "Wrong :skip value"))
(let ((n 0))
(org-element-map data 'table-row
(lambda (row)
(if (>= n skip) t
(org-element-extract-element row)
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(cl-incf n)
org-table: Fix radio tables containing macros * lisp/org-table.el (orgtbl-to-generic): Export macros as-is, even if they are undefined. * testing/lisp/test-org-table.el (test-org-table/to-generic): Add test. Radio tables are now using a minimal set-up for export. In particular, no macro is expanded, and no Babel code is executed. If any of these is needed, use `org-export-string-as' or `org-export-region-as' instead. Reported-by: Mark Edgington <edgimar@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/100621>
2015-09-19 07:25:12 -04:00
nil))
nil t))))
;; Handle :skipcols parameter.
(let ((skipcols (plist-get info :skipcols)))
(when skipcols
(unless (consp skipcols) (user-error "Wrong :skipcols value"))
(org-element-map data '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-element cell))
org-table: Do not require `cl' since `cl-lib' is used * lisp/org-table.el (org-table-align): (org-table-current-column): (org-table-current-dline): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-analyze): (org-table-get-range): (org-table--row-type): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-handle-first/last-rc): (org-table-formula-substitute-names): (orgtbl-send-table): (orgtbl-to-generic): Use "cl-" prefix.
2016-05-26 10:05:09 -04:00
(cl-incf c))))))))))
org-table: Fix radio tables containing macros * lisp/org-table.el (orgtbl-to-generic): Export macros as-is, even if they are undefined. * testing/lisp/test-org-table.el (test-org-table/to-generic): Add test. Radio tables are now using a minimal set-up for export. In particular, no macro is expanded, and no Babel code is executed. If any of these is needed, use `org-export-string-as' or `org-export-region-as' instead. Reported-by: Mark Edgington <edgimar@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/100621>
2015-09-19 07:25:12 -04:00
;; Since we are going to export using a low-level mechanism,
;; ignore special column and special rows manually.
(let ((special? (org-export-table-has-special-column-p data))
ignore)
(org-element-map data (if special? '(table-cell table-row) 'table-row)
(lambda (datum)
(when (if (eq (org-element-type datum) 'table-row)
(org-export-table-row-is-special-p datum nil)
(org-export-first-sibling-p datum nil))
(push datum ignore))))
(setq info (plist-put info :ignore-list ignore)))
;; We use a low-level mechanism to export DATA so as to skip all
org-table: Fix LaTeX snippets in radio tables * lisp/org-table.el (orgtbl-to-generic): Call back-end specific filters. * testing/lisp/test-org-table.el (test-org-table/to-latex): Add test. Reported-by: Uwe Brauer <oub@mat.ucm.es> <http://permalink.gmane.org/gmane.emacs.orgmode/105876>
2016-03-24 08:51:40 -04:00
;; usual pre-processing and post-processing, i.e., hooks, Babel
;; code evaluation, include keywords and macro expansion. Only
;; back-end specific filters are retained.
org-table: Fix radio tables containing macros * lisp/org-table.el (orgtbl-to-generic): Export macros as-is, even if they are undefined. * testing/lisp/test-org-table.el (test-org-table/to-generic): Add test. Radio tables are now using a minimal set-up for export. In particular, no macro is expanded, and no Babel code is executed. If any of these is needed, use `org-export-string-as' or `org-export-region-as' instead. Reported-by: Mark Edgington <edgimar@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/100621>
2015-09-19 07:25:12 -04:00
(let ((output (org-export-data-with-backend data custom-backend info)))
;; Remove final newline.
org-table: Fix radio tables * lisp/org-table.el (orgtbl-to-generic): Strip text properties from output. Reported-by: "Charles C. Berry" <ccberry@ucsd.edu> <http://permalink.gmane.org/gmane.emacs.orgmode/101425>
2015-09-23 16:58:25 -04:00
(if (org-string-nw-p output) (substring-no-properties output 0 -1) ""))))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(defun org-table--generic-apply (value name &optional with-cons &rest args)
(cond ((null value) nil)
((functionp value) `(funcall ',value ,@args))
((stringp value)
(cond ((consp (car args)) `(apply #'format ,value ,@args))
(args `(format ,value ,@args))
(t value)))
((and with-cons (consp value))
`(let ((val (cadr (memq column ',value))))
(cond ((null val) contents)
((stringp val) (format val ,@args))
((functionp val) (funcall val ,@args))
(t (user-error "Wrong %s value" ,name)))))
(t (user-error "Wrong %s value" name))))
(defun org-table--to-generic-table (params)
"Return custom table transcoder according to PARAMS.
PARAMS is a plist. See `orgtbl-to-generic' for more
information."
(let ((backend (plist-get params :backend))
(splice (plist-get params :splice))
(tstart (plist-get params :tstart))
(tend (plist-get params :tend)))
`(lambda (table contents info)
(concat
,(and tstart (not splice)
`(concat ,(org-table--generic-apply tstart ":tstart") "\n"))
,(if (or (not backend) tstart tend splice) 'contents
`(org-export-with-backend ',backend table contents info))
,(org-table--generic-apply (and (not splice) tend) ":tend")))))
(defun org-table--to-generic-row (params)
"Return custom table row transcoder according to PARAMS.
PARAMS is a plist. See `orgtbl-to-generic' for more
information."
(let* ((backend (plist-get params :backend))
(lstart (plist-get params :lstart))
(llstart (plist-get params :llstart))
(hlstart (plist-get params :hlstart))
(hllstart (plist-get params :hllstart))
(lend (plist-get params :lend))
(llend (plist-get params :llend))
(hlend (plist-get params :hlend))
(hllend (plist-get params :hllend))
(lfmt (plist-get params :lfmt))
(llfmt (plist-get params :llfmt))
(hlfmt (plist-get params :hlfmt))
(hllfmt (plist-get params :hllfmt)))
`(lambda (row contents info)
(if (eq (org-element-property :type row) 'rule)
,(cond
((plist-member params :hline)
(org-table--generic-apply (plist-get params :hline) ":hline"))
(backend `(org-export-with-backend ',backend row nil info)))
`orgtbl-to-generic' speed-up * lisp/org-element.el (org-element-class): Make it a defsubst. * lisp/org-table.el (orgtbl-to-generic): Do not use cache when building Org table. Factor out calls to Org Export functions when they are not necessary. (org-table--to-generic-row): Factor out calls to Org Export functions when they are not necessary. * lisp/ox.el (org-export-resolve-fuzzy-link): (org-export-table-has-header-p): (org-export-table-row-group): (org-export-table-cell-width): (org-export-table-cell-alignment): Small refactoring. (org-export-table-row-number): Add caching. * testing/lisp/test-org-element.el (test-org-element/class): Remove test.
2016-12-29 12:48:20 -05:00
(let ((headerp ,(and (or hlfmt hlstart hlend)
'(org-export-table-row-in-header-p row info)))
(last-header-p
,(and (or hllfmt hllstart hllend)
'(org-export-table-row-ends-header-p row info)))
(lastp (not (org-export-get-next-element row info))))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(when contents
;; Check if we can apply `:lfmt', `:llfmt', `:hlfmt', or
;; `:hllfmt' to CONTENTS. Otherwise, fallback on
;; `:lstart', `:lend' and their relatives.
,(let ((cells
'(org-element-map row 'table-cell
(lambda (cell)
;; Export all cells, without separators.
;;
;; Use `org-export-data-with-backend'
;; instead of `org-export-data' to eschew
;; cached values, which
;; ignore :orgtbl-ignore-sep parameter.
(org-export-data-with-backend
cell
(plist-get info :back-end)
(org-combine-plists info '(:orgtbl-ignore-sep t))))
info)))
`(cond
,(and hllfmt
`(last-header-p ,(org-table--generic-apply
hllfmt ":hllfmt" nil cells)))
,(and hlfmt
`(headerp ,(org-table--generic-apply
hlfmt ":hlfmt" nil cells)))
,(and llfmt
`(lastp ,(org-table--generic-apply
llfmt ":llfmt" nil cells)))
(t
,(if lfmt (org-table--generic-apply lfmt ":lfmt" nil cells)
`(concat
(cond
,(and
(or hllstart hllend)
`(last-header-p
(concat
,(org-table--generic-apply hllstart ":hllstart")
contents
,(org-table--generic-apply hllend ":hllend"))))
,(and
(or hlstart hlend)
`(headerp
(concat
,(org-table--generic-apply hlstart ":hlstart")
contents
,(org-table--generic-apply hlend ":hlend"))))
,(and
(or llstart llend)
`(lastp
(concat
,(org-table--generic-apply llstart ":llstart")
contents
,(org-table--generic-apply llend ":llend"))))
(t
,(cond
((or lstart lend)
`(concat
,(org-table--generic-apply lstart ":lstart")
contents
,(org-table--generic-apply lend ":lend")))
(backend
`(org-export-with-backend
',backend row contents info))
(t 'contents)))))))))))))))
(defun org-table--to-generic-cell (params)
"Return custom table cell transcoder according to PARAMS.
PARAMS is a plist. See `orgtbl-to-generic' for more
information."
(let* ((backend (plist-get params :backend))
(efmt (plist-get params :efmt))
(fmt (plist-get params :fmt))
(hfmt (plist-get params :hfmt))
(sep (plist-get params :sep))
(hsep (plist-get params :hsep)))
`(lambda (cell contents info)
`orgtbl-to-generic' speed-up * lisp/org-element.el (org-element-class): Make it a defsubst. * lisp/org-table.el (orgtbl-to-generic): Do not use cache when building Org table. Factor out calls to Org Export functions when they are not necessary. (org-table--to-generic-row): Factor out calls to Org Export functions when they are not necessary. * lisp/ox.el (org-export-resolve-fuzzy-link): (org-export-table-has-header-p): (org-export-table-row-group): (org-export-table-cell-width): (org-export-table-cell-alignment): Small refactoring. (org-export-table-row-number): Add caching. * testing/lisp/test-org-element.el (test-org-element/class): Remove test.
2016-12-29 12:48:20 -05:00
;; Make sure that contents are exported as Org data when :raw
;; parameter is non-nil.
,(when (and backend (plist-get params :raw))
`(setq contents
;; Since we don't know what are the pseudo object
;; types defined in backend, we cannot pass them to
;; `org-element-interpret-data'. As a consequence,
;; they will be treated as pseudo elements, and will
;; have newlines appended instead of spaces.
;; Therefore, we must make sure :post-blank value is
;; really turned into spaces.
(replace-regexp-in-string
"\n" " "
(org-trim
(org-element-interpret-data
(org-element-contents cell))))))
(let ((headerp ,(and (or hfmt hsep)
'(org-export-table-row-in-header-p
(org-export-get-parent-element cell) info)))
(column
org-table: Small optimization to `orgtbl-to-generic' * lisp/org-table.el (org-table--to-generic-cell): Avoid, as much as possible, calling `org-export-table-cell-address'.
2017-01-01 18:31:27 -05:00
;; Call costly `org-export-table-cell-address' only if
;; absolutely necessary, i.e., if one
Backport commit bbda601d1 from Emacs ; Spelling fixes bbda601d1d4e125c9d3c374b56eee3e2e9623f1d Paul Eggert Fri Sep 29 16:41:50 2017 -0700
2017-09-29 19:40:18 -04:00
;; of :fmt :efmt :hfmt has a "plist type" value.
org-table: Small optimization to `orgtbl-to-generic' * lisp/org-table.el (org-table--to-generic-cell): Avoid, as much as possible, calling `org-export-table-cell-address'.
2017-01-01 18:31:27 -05:00
,(and (cl-some (lambda (v) (integerp (car-safe v)))
(list efmt hfmt fmt))
`orgtbl-to-generic' speed-up * lisp/org-element.el (org-element-class): Make it a defsubst. * lisp/org-table.el (orgtbl-to-generic): Do not use cache when building Org table. Factor out calls to Org Export functions when they are not necessary. (org-table--to-generic-row): Factor out calls to Org Export functions when they are not necessary. * lisp/ox.el (org-export-resolve-fuzzy-link): (org-export-table-has-header-p): (org-export-table-row-group): (org-export-table-cell-width): (org-export-table-cell-alignment): Small refactoring. (org-export-table-row-number): Add caching. * testing/lisp/test-org-element.el (test-org-element/class): Remove test.
2016-12-29 12:48:20 -05:00
'(1+ (cdr (org-export-table-cell-address cell info))))))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(when contents
;; Check if we can apply `:efmt' on CONTENTS.
,(when efmt
`(when (string-match orgtbl-exp-regexp contents)
(let ((mantissa (match-string 1 contents))
(exponent (match-string 2 contents)))
(setq contents ,(org-table--generic-apply
efmt ":efmt" t 'mantissa 'exponent)))))
;; Check if we can apply FMT (or HFMT) on CONTENTS.
(cond
,(and hfmt `(headerp (setq contents ,(org-table--generic-apply
hfmt ":hfmt" t 'contents))))
,(and fmt `(t (setq contents ,(org-table--generic-apply
org-table: various small fixes * lisp/org-table.el (org-table-rewrite-old-row-references): Rename function. (org-table-eval-formula): Update caller. (org-table--to-generic-cell): Fix typo in string constant. (orgtbl-to-orgtbl): Properly respect params argument.
2014-12-09 01:12:39 -05:00
fmt ":fmt" t 'contents))))))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
;; If a separator is provided, use it instead of BACKEND's.
;; Separators are ignored when LFMT (or equivalent) is
;; provided.
,(cond
((or hsep sep)
`(if (or ,(and (not sep) '(not headerp))
(plist-get info :orgtbl-ignore-sep)
(not (org-export-get-next-element cell info)))
,(if (not backend) 'contents
`(org-export-with-backend ',backend cell contents info))
(concat contents
,(if (and sep hsep) `(if headerp ,hsep ,sep)
(or hsep sep)))))
(backend `(org-export-with-backend ',backend cell contents info))
(t 'contents))))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
New functions to export tables to csv and tsv. The new functionas are orgtbl-to-csv and orgtbl-to-tsv.
2008-05-10 07:40:25 -04:00
(defun orgtbl-to-tsv (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE to TAB separated material."
New functions to export tables to csv and tsv. The new functionas are orgtbl-to-csv and orgtbl-to-tsv.
2008-05-10 07:40:25 -04:00
(orgtbl-to-generic table (org-combine-plists '(:sep "\t") params)))
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
New functions to export tables to csv and tsv. The new functionas are orgtbl-to-csv and orgtbl-to-tsv.
2008-05-10 07:40:25 -04:00
(defun orgtbl-to-csv (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE to CSV material.
New functions to export tables to csv and tsv. The new functionas are orgtbl-to-csv and orgtbl-to-tsv.
2008-05-10 07:40:25 -04:00
This does take care of the proper quoting of fields with comma or quotes."
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(orgtbl-to-generic table
(org-combine-plists '(:sep "," :fmt org-quote-csv-field)
params)))
New functions to export tables to csv and tsv. The new functionas are orgtbl-to-csv and orgtbl-to-tsv.
2008-05-10 07:40:25 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun orgtbl-to-latex (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE to LaTeX.
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion. All parameters from `orgtbl-to-generic' are
supported. It is also possible to use the following ones:
:booktabs
When non-nil, use formal \"booktabs\" style.
:environment
Specify environment to use, as a string. If you use
\"longtable\", you may also want to specify :language property,
as a string, to get proper continuation strings."
(require 'ox-latex)
(orgtbl-to-generic
table
(org-combine-plists
;; Provide sane default values.
(list :backend 'latex
:latex-default-table-mode 'table
:latex-tables-centered nil
:latex-tables-booktabs (plist-get params :booktabs)
:latex-table-scientific-notation nil
:latex-default-table-environment
(or (plist-get params :environment) "tabular"))
params)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun orgtbl-to-html (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE to HTML.
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion. All parameters from `orgtbl-to-generic' are
supported. It is also possible to use the following one:
:attributes
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
Attributes and values, as a plist, which will be used in
<table> tag."
Install new exporter into Org innards * contrib/lisp/org-mime.el (org-mime-htmlize, org-mime-compose): Use new exporter. * lisp/ob-haskell.el (org-babel-haskell-export-to-lhs): Use new exporter. * lisp/ob-latex.el (org-babel-execute:latex): Use new exporter. * lisp/ob-org.el (org-babel-execute:org): Use new exporter. * lisp/org-agenda.el (org-agenda-menu, org-agenda-write): Use new iCalendar export back-end. * lisp/org-table.el (org-table-export, orgtbl-export): Remove dependency on `org-exp' library. (org-table-clean-before-export): New function. (org-table-colgroup-info): New variable. (orgtbl-to-html): Use to new HTML export back-end. * lisp/org.el (org-modules): Remove modules relative to obsolete export framework and add those relative to the new one. (org-create-formula-image-with-dvipng, org-format-latex org-create-formula-image-with-imagemagick): Use new exporter. (org-indent-line): INCLUDE keywords are indented like regular keywords. (org-mode-map): Bind C-c C-e to new export dispatcher. (org-menu): Install new exporter in menu.
2013-01-27 17:44:27 -05:00
(require 'ox-html)
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(orgtbl-to-generic
table
(org-combine-plists
;; Provide sane default values.
(list :backend 'html
:html-table-data-tags '("<td%s>" . "</td>")
:html-table-use-header-tags-for-first-column nil
:html-table-align-individual-fields t
:html-table-row-tags '("<tr>" . "</tr>")
:html-table-attributes
(if (plist-member params :attributes)
(plist-get params :attributes)
'(:border "2" :cellspacing "0" :cellpadding "6" :rules "groups"
:frame "hsides")))
params)))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(defun orgtbl-to-texinfo (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE to Texinfo.
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion. All parameters from `orgtbl-to-generic' are
supported. It is also possible to use the following one:
:columns
Column widths, as a string. When providing column fractions,
\"@columnfractions\" command can be omitted."
(require 'ox-texinfo)
(let ((output
(orgtbl-to-generic
table
(org-combine-plists
(list :backend 'texinfo
:texinfo-tables-verbatim nil
:texinfo-table-scientific-notation nil)
params)))
(columns (let ((w (plist-get params :columns)))
(cond ((not w) nil)
Use `string-match-p' instead of `org-string-match-p' * contrib/lisp/org-contacts.el (org-contacts-filter): (org-contacts-complete-group): (org-contacts-complete-tags-props): * contrib/lisp/org-wl.el (org-wl-open): * contrib/lisp/ox-bibtex.el (org-bibtex-merge-contiguous-citations): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-processing.el (org-babel-processing-view-sketch): * lisp/ob-stan.el (org-babel-execute:stan): * lisp/org-agenda.el (org-agenda-get-category-icon): * lisp/org-clock.el (org-clock-into-drawer): * lisp/org-element.el (org-element-link-parser): * lisp/org-lint.el (org-lint-orphaned-affiliated-keywords): (org-lint-invalid-babel-call-block): (org-lint-colon-in-name): * lisp/org-list.el (org-list-item-body-column): * lisp/org-macro.el (org-macro-replace-all): * lisp/org-plot.el (org-plot/gnuplot-script): * lisp/org-table.el (org-table-export): (org-table-align): (org-table-get-range): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-substitute-names): (org-table-show-reference): (orgtbl-to-texinfo): (org-table-remote-reference-indirection): * lisp/org.el (org-make-link-string): (org--open-elisp-link): (org-open-at-point): (org-store-log-note): (org-cached-entry-get): (org--valid-property-p): (org-entry-properties): (org-buffer-property-keys): (org-insert-drawer): (org-display-inline-images): (org-in-commented-heading-p): * lisp/ox-ascii.el (org-ascii-keyword): * lisp/ox-beamer.el (org-beamer--format-frame): * lisp/ox-html.el (org-html-keyword): * lisp/ox-latex.el (org-latex--label): (org-latex-headline): (org-latex-item): (org-latex-keyword): (org-latex--inline-image): (org-latex-src-block): * lisp/ox-odt.el (org-odt-styles-dir): (org-odt-keyword): (org-odt--translate-latex-fragments): * lisp/ox-texinfo.el (org-texinfo-template): (org-texinfo-keyword): (org-texinfo-src-block): * lisp/ox.el (org-export-inline-image-p): (org-export-file-uri): * testing/lisp/test-org-table.el (test-org-table/to-generic): (test-org-table/to-latex): (test-org-table/to-html): (test-org-table/named-field): (test-org-table/named-column): (test-org-table/tab-indent): (test-org-table/first-rc): (test-org-table/last-rc): Use `string-match-p' instead of `org-string-match-p'.
2016-07-25 09:21:12 -04:00
((string-match-p "{\\|@columnfractions " w) w)
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
(t (concat "@columnfractions " w))))))
(if (not columns) output
(replace-regexp-in-string
"@multitable \\(.*\\)" columns output t nil 1))))
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
Update autoloads. * org.el: Don't dynamically autoload already autoloaded functions. (org-clock-update-time-maybe): Move to org-clock.el. * org-exp.el (org-insert-export-options-template): Remove autoload cookie. * org-clock.el (org-resolve-clocks, org-clock-in) (org-clock-out, org-clock-cancel, org-clock-goto) (org-clock-sum, org-clock-display, org-clock-report) (org-dblock-write:clocktable): Add autoload cookie. (org-clock-update-time-maybe): Moved from org.el. * org-beamer.el (org-beamer-sectioning, org-beamer-mode): Ditto. * org-ascii.el (org-export-ascii-preprocess): Ditto. * org-archive.el (org-archive-subtree) (org-archive-to-archive-sibling, org-toggle-archive-tag): Add autoload cookie. * org-colview.el (org-columns, org-dblock-write:columnview) (org-insert-columns-dblock, org-agenda-columns): Ditto. * org-table.el (org-table-create-with-table.el) (org-table-create-or-convert-from-region, org-table-create) (org-table-convert-region, org-table-import) (org-table-export, org-table-align) (org-table-justify-field-maybe, org-table-next-field) (org-table-previous-field, org-table-next-row) (org-table-copy-down, org-table-field-info) (org-table-current-dline, org-table-goto-column) (org-table-insert-column, org-table-delete-column) (org-table-move-column-right, org-table-move-column-left) (org-table-move-column, org-table-move-row-down) (org-table-move-row-up, org-table-move-row) (org-table-insert-row, org-table-insert-hline) (org-table-hline-and-move, org-table-kill-row) (org-table-sort-lines, org-table-cut-region) (org-table-copy-region, org-table-paste-rectangle) (org-table-convert, org-table-wrap-region) (org-table-edit-field, org-table-sum) (org-table-get-stored-formulas) (org-table-maybe-eval-formula) (org-table-rotate-recalc-marks) (org-table-maybe-recalculate-line, org-table-eval-formula) (org-table-recalculate, org-table-iterate) (org-table-edit-formulas) (org-table-toggle-coordinate-overlays) (org-table-toggle-formula-debugger, orgtbl-to-generic) (orgtbl-to-tsv, orgtbl-to-csv, orgtbl-to-latex) (orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl): Ditto.
2012-10-02 04:52:17 -04:00
;;;###autoload
Add an orgtbl-to-orgtbl transformation. Useful for documenting orgtbl transformation and formatting functions. Signed-off-by: Jason Riedy <jason@acm.org> Conflicts: ChangeLog
2008-05-06 08:15:45 -04:00
(defun orgtbl-to-orgtbl (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE into another orgtbl-mode table.
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion. All parameters from `orgtbl-to-generic' are
supported.
Add an orgtbl-to-orgtbl transformation. Useful for documenting orgtbl transformation and formatting functions. Signed-off-by: Jason Riedy <jason@acm.org> Conflicts: ChangeLog
2008-05-06 08:15:45 -04:00
Useful when slicing one table into many. The :hline, :sep,
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
:lstart, and :lend provide orgtbl framing. :tstart and :tend can
be set to provide ORGTBL directives for the generated table."
(require 'ox-org)
org-table: various small fixes * lisp/org-table.el (org-table-rewrite-old-row-references): Rename function. (org-table-eval-formula): Update caller. (org-table--to-generic-cell): Fix typo in string constant. (orgtbl-to-orgtbl): Properly respect params argument.
2014-12-09 01:12:39 -05:00
(orgtbl-to-generic table (org-combine-plists params (list :backend 'org))))
Add `orgtbl-to-table.el' and `orgtbl-to-unicode'. * org-table.el (orgtbl-radio-table-templates): Add a template for org-mode. (orgtbl-to-orgtbl): Complete and align the table created with orgtbl-to-orgtbl, in case the user use the function for radio tables. (orgtbl-to-table.el): New function to export a table to another one using the table.el format. (orgtbl-to-unicode): New function to export a table using unicode characters.
2012-07-31 09:40:05 -04:00
(defun orgtbl-to-table.el (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE into a table.el table.
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion. All parameters from `orgtbl-to-generic' are
supported."
Add `orgtbl-to-table.el' and `orgtbl-to-unicode'. * org-table.el (orgtbl-radio-table-templates): Add a template for org-mode. (orgtbl-to-orgtbl): Complete and align the table created with orgtbl-to-orgtbl, in case the user use the function for radio tables. (orgtbl-to-table.el): New function to export a table to another one using the table.el format. (orgtbl-to-unicode): New function to export a table using unicode characters.
2012-07-31 09:40:05 -04:00
(with-temp-buffer
(insert (orgtbl-to-orgtbl table params))
(org-table-align)
(replace-regexp-in-string
"-|" "-+"
(replace-regexp-in-string "|-" "+-" (buffer-substring 1 (buffer-size))))))
(defun orgtbl-to-unicode (table params)
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
"Convert the `orgtbl-mode' TABLE into a table with unicode characters.
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
TABLE is a list, each entry either the symbol `hline' for
a horizontal separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the
conversion. All parameters from `orgtbl-to-generic' are
supported. It is also possible to use the following ones:
:ascii-art
When non-nil, use \"ascii-art-to-unicode\" package to translate
the table. You can download it here:
Prefer HTTPS to HTTP in most links
2021-03-21 14:55:14 -04:00
https://gnuvola.org/software/j/aa2u/ascii-art-to-unicode.el.
org-table: Use "ox.el" internally for radio tables * lisp/org-table.el (org-table-clean-before-export, orgtbl-get-fmt, orgtbl-apply-fmt, orgtbl-eval-str, orgtbl-format-line, orgtbl-format-section): Remove functions. (org-table-clean-did-remove-column, *orgtbl-table*, *orgtbl-rtn*, *orgtbl-hline*, *orgtbl-sep*, *orgtbl-default-fmt*, *orgtbl-fmt*, *orgtbl-efmt*, *orgtbl-lfmt*, *orgtbl-llfmt*, *orgtbl-lstart*, *orgtbl-llstart*, *orgtbl-lend*, *orgtbl-llend*): Remove variables. (org-table-export, orgtbl-send-table): Apply function removal. Do not set `org-table-last-alignment' and `org-table-last-column-widths' anymore. (org-table-to-lisp, orgtbl-send-replace-tbl): Small refactoring. (org-table--to-generic-table, org-table--to-generic-row, org-table--to-generic-cell): New functions. (orgtbl-to-generic): Rewrite function. Handle :skip and :skipcols parameters. (orgtbl-to-latex, orgtbl-to-html, orgtbl-to-texinfo, orgtbl-to-orgtbl, orgtbl-to-unicode): Use new `orgtbl-to-generic' features. * testing/lisp/test-org-table.el (test-org-table/to-generic, test-org-table/to-latex, test-org-table/to-texinfo, test-org-table/to-html, test-org-table/to-unicode, test-org-table/send-region): New tests. * doc/org.texi (Radio tables, A @LaTeX{} example, Translator functions): Update documentation. * etc/ORG-NEWS (argument): Document new features.
2014-08-23 19:31:56 -04:00
:narrow
When non-nil, narrow columns width than provided width cookie,
using \"=>\" as an ellipsis, just like in an Org mode buffer."
(require 'ox-ascii)
(orgtbl-to-generic
table
(org-combine-plists
(list :backend 'ascii
:ascii-charset 'utf-8
:ascii-table-widen-columns (not (plist-get params :narrow))
:ascii-table-use-ascii-art (plist-get params :ascii-art))
params)))
Add an orgtbl-to-orgtbl transformation. Useful for documenting orgtbl transformation and formatting functions. Signed-off-by: Jason Riedy <jason@acm.org> Conflicts: ChangeLog
2008-05-06 08:15:45 -04:00
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
;; Put the cursor in a column containing numerical values
Turn org-mode into Org or Org mode Use Org or Org mode instead of org-mode or Org-mode according to "Documentation standards".
2016-08-23 16:13:56 -04:00
;; of an Org table,
Ascii and Gnuplot key-bindings * org.el (org-mode-map): change key-binding from C-c p to C-c " a add C-c " g key-binding for Gnuplot (org-tbl-menu): add sub-menu for plotting featuring Gnuplot and ascii plot * org-table.el (orgtbl-setup): add sub-menu for plotting featuring Gnuplot and ascii plot
2014-10-11 09:59:17 -04:00
;; type C-c " a
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
;; A new column is added with a bar plot.
;; When the table is refreshed (C-u C-c *),
;; the plot is updated to reflect the new values.
(defun orgtbl-ascii-draw (value min max &optional width characters)
"Draw an ascii bar in a table.
org-table: Fix ranges in `orgtbl-ascii-draw' * lisp/org-table.el (orgtbl-ascii-draw): Fix float to integer conversion. * testing/lisp/test-org-table.el (test-org-table/orgtbl-ascii-draw): Adapt test.
2016-01-30 10:30:52 -05:00
VALUE is the value to plot, it determines the width of the bar to draw.
MIN is the value that will be displayed as empty (zero width bar).
MAX is the value that will draw a bar filling all the WIDTH.
WIDTH is the span in characters from MIN to MAX.
CHARACTERS is a string that will compose the bar, with shades of grey
from pure white to pure black. It defaults to a 10 characters string
of regular ascii characters."
(let* ((width (ceiling (or width 12)))
(characters (or characters " .:;c!lhVHW"))
(len (1- (length characters)))
(value (float (if (numberp value)
value (string-to-number value))))
(relative (/ (- value min) (- max min)))
(steps (round (* relative width len))))
(cond ((< steps 0) "too small")
((> steps (* width len)) "too large")
(t (let* ((int-division (/ steps len))
(remainder (- steps (* int-division len))))
(concat (make-string int-division (elt characters len))
(string (elt characters remainder))))))))
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
;;;###autoload
(defun orgtbl-ascii-plot (&optional ask)
Improve docstrings * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-custom-commands): (org-stuck-projects): (org-agenda): (org-timeline): (org-todo-list): (org-agenda-filter-by-tag): (org-agenda-log-mode): (org-agenda-refile): (org-agenda-show-and-scroll-up): (org-agenda-tree-to-indirect-buffer): (org-agenda-show-the-flagging-note): (org-agenda-to-appt): * lisp/org-capture.el (org-capture-mode): (org-capture-use-agenda-date): (org-capture): * lisp/org-clock.el (org-clock-in): (org-clock-display): * lisp/org-colview.el (org-columns--display-here): (org-columns): * lisp/org-footnote.el (org-footnote-section): * lisp/org-gnus.el (org-gnus-prefer-web-links): * lisp/org-lint.el (org-lint): * lisp/org-list.el (org-plain-list-ordered-item-terminator): (org-list-allow-alphabetical): (org-list-automatic-rules): (org-list-use-circular-motion): * lisp/org-protocol.el (org-protocol-store-link): (org-protocol-create-for-org): * lisp/org-src.el (org-src-preserve-indentation): (org-edit-src-content-indentation): (org-src-mode-hook): (org-src-mode): (org-edit-table.el): (org-edit-export-block): (org-edit-src-code): (org-edit-fixed-width-region): * lisp/org-table.el (org-table-automatic-realign): (org-table-copy-increment): (org-table-formula-evaluate-inline): (org-table-allow-automatic-line-recalculation): (org-table-edit-field): (orgtbl-ascii-plot): * lisp/org-timer.el (org-timer): * lisp/org.el (org-deadline-string): (org-comment-string): (org-ellipsis): (org-show-context-detail): (org-indirect-buffer-display): (org-cycle-global-at-bob): (org-insert-heading-respect-content): (org-enable-table-editor): (org-context-in-file-links): (org-display-internal-link-with-indirect-buffer): (org-file-apps): (org-refile-targets): (org-todo-keywords): (org-use-fast-todo-selection): (org-treat-insert-todo-heading-as-state-change): (org-time-clocksum-use-fractional): (org-time-clocksum-use-effort-durations): (org-agenda-files): (org-cycle-hide-archived-subtrees): (org-cycle): (org-global-cycle): (org-tree-to-indirect-buffer): (org-insert-heading): (org-store-link): (org-insert-link): (org-mark-ring-push): (org-refile): (org-todo): (org-show-todo-tree): (org-reveal): (org-check-deadlines): (org-switchb): (org-cdlatex-mode): (org-toggle-latex-fragment): (org-ctrl-c-ctrl-c): (org-toggle-heading): (org-indent-line): (org-yank): (org-speedbar-set-agenda-restriction): * lisp/ox-html.el (org-html-htmlize-output-type): * lisp/ox-icalendar.el (org-icalendar-combined-agenda-file): * lisp/ox-publish.el (org-publish-project-alist): * lisp/ox.el (org-export-in-background): (org-export-stack-mode): (org-export--stack-source-at-point): (org-export-dispatch): Improve quotes and formatting in docstrings.
2016-10-15 11:36:47 -04:00
"Draw an ASCII bar plot in a column.
With cursor in a column containing numerical values, this function
will draw a plot in a new column.
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
ASK, if given, is a numeric prefix to override the default 12
Improve docstrings * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-custom-commands): (org-stuck-projects): (org-agenda): (org-timeline): (org-todo-list): (org-agenda-filter-by-tag): (org-agenda-log-mode): (org-agenda-refile): (org-agenda-show-and-scroll-up): (org-agenda-tree-to-indirect-buffer): (org-agenda-show-the-flagging-note): (org-agenda-to-appt): * lisp/org-capture.el (org-capture-mode): (org-capture-use-agenda-date): (org-capture): * lisp/org-clock.el (org-clock-in): (org-clock-display): * lisp/org-colview.el (org-columns--display-here): (org-columns): * lisp/org-footnote.el (org-footnote-section): * lisp/org-gnus.el (org-gnus-prefer-web-links): * lisp/org-lint.el (org-lint): * lisp/org-list.el (org-plain-list-ordered-item-terminator): (org-list-allow-alphabetical): (org-list-automatic-rules): (org-list-use-circular-motion): * lisp/org-protocol.el (org-protocol-store-link): (org-protocol-create-for-org): * lisp/org-src.el (org-src-preserve-indentation): (org-edit-src-content-indentation): (org-src-mode-hook): (org-src-mode): (org-edit-table.el): (org-edit-export-block): (org-edit-src-code): (org-edit-fixed-width-region): * lisp/org-table.el (org-table-automatic-realign): (org-table-copy-increment): (org-table-formula-evaluate-inline): (org-table-allow-automatic-line-recalculation): (org-table-edit-field): (orgtbl-ascii-plot): * lisp/org-timer.el (org-timer): * lisp/org.el (org-deadline-string): (org-comment-string): (org-ellipsis): (org-show-context-detail): (org-indirect-buffer-display): (org-cycle-global-at-bob): (org-insert-heading-respect-content): (org-enable-table-editor): (org-context-in-file-links): (org-display-internal-link-with-indirect-buffer): (org-file-apps): (org-refile-targets): (org-todo-keywords): (org-use-fast-todo-selection): (org-treat-insert-todo-heading-as-state-change): (org-time-clocksum-use-fractional): (org-time-clocksum-use-effort-durations): (org-agenda-files): (org-cycle-hide-archived-subtrees): (org-cycle): (org-global-cycle): (org-tree-to-indirect-buffer): (org-insert-heading): (org-store-link): (org-insert-link): (org-mark-ring-push): (org-refile): (org-todo): (org-show-todo-tree): (org-reveal): (org-check-deadlines): (org-switchb): (org-cdlatex-mode): (org-toggle-latex-fragment): (org-ctrl-c-ctrl-c): (org-toggle-heading): (org-indent-line): (org-yank): (org-speedbar-set-agenda-restriction): * lisp/ox-html.el (org-html-htmlize-output-type): * lisp/ox-icalendar.el (org-icalendar-combined-agenda-file): * lisp/ox-publish.el (org-publish-project-alist): * lisp/ox.el (org-export-in-background): (org-export-stack-mode): (org-export--stack-source-at-point): (org-export-dispatch): Improve quotes and formatting in docstrings.
2016-10-15 11:36:47 -04:00
characters width of the plot. ASK may also be the `\\[universal-argument]' \
prefix,
which will prompt for the width."
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
(interactive "P")
(let ((col (org-table-current-column))
(min 1e999) ; 1e999 will be converted to infinity
(max -1e999) ; which is the desired result
(table (org-table-to-lisp))
(length
(cond ((consp ask)
(read-number "Length of column " 12))
((numberp ask) ask)
(t 12))))
;; Skip any hline a the top of table.
table: Allow collapsing header into single line * lisp/org-table.el (org-table-collapse-header): New function. * lisp/org-plot.el (org-plot/gnuplot): Use org-table-collapse-header and trust there will be no more leading `hline' symbols in lisp table. * testing/lisp/test-org-table.el (test-org-table/to-lisp): Adding tests to already existing to-lisp function. (test-org-table/collapse-header): Adding tests to new collapse-header function. * testing/lisp/test-ox.el (test-org-export/has-header-p): Testing exporting table with multi-line header.
2020-06-12 12:42:34 -04:00
(while (eq (car table) 'hline) (pop table))
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
;; Skip table header if any.
(dolist (x (or (cdr (memq 'hline table)) table))
(when (consp x)
(setq x (nth (1- col) x))
(when (string-match
"^[-+]?\\([0-9]*[.]\\)?[0-9]*\\([eE][+-]?[0-9]+\\)?$"
x)
(setq x (string-to-number x))
(when (> min x) (setq min x))
(when (< max x) (setq max x)))))
(org-table-insert-column)
(org-table-move-column-right)
(org-table-store-formulas
(cons
(cons
org-table: Fix missing dollar bug revealed by commit 16c7594 * org-table.el (orgtbl-ascii-plot): Add missing dollar in formula.
2015-12-14 16:22:03 -05:00
(concat "$" (number-to-string (1+ col)))
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
(format "'(%s $%s %s %s %s)"
"orgtbl-ascii-draw" col min max length))
(org-table-get-stored-formulas)))
(org-table-recalculate t)))
;; Example of extension: unicode characters
;; Here are two examples of different styles.
;; Unicode block characters are used to give a smooth effect.
Backport commit c6fa0ad31 from Emacs ; Prefer https to http in many URLs c6fa0ad315e38167cb81a4d8c143cc53ad783cc3 Stefan Kangas Thu Oct 1 15:28:15 2020 +0200
2020-10-01 09:24:21 -04:00
;; See https://en.wikipedia.org/wiki/Block_Elements
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
;; Use one of those drawing functions
;; - orgtbl-ascii-draw (the default ascii)
;; - orgtbl-uc-draw-grid (unicode with a grid effect)
;; - orgtbl-uc-draw-cont (smooth unicode)
;; This is best viewed with the "DejaVu Sans Mono" font
Backport commit 16faff6a4 from Emacs ; * lisp/org/org-table.el: Replace obsolete alias in comment. 16faff6a46f28b4db2e9b91e52b27404303f3197 Glenn Morris Fri Mar 9 12:43:21 2018 -0500
2018-03-09 12:43:21 -05:00
;; (use M-x set-frame-font).
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
(defun orgtbl-uc-draw-grid (value min max &optional width)
"Draw a bar in a table using block unicode characters.
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
It is a variant of `orgtbl-ascii-draw' with Unicode block
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
characters, for a smooth display. Bars appear as grids (to the
extent the font allows)."
Backport commit c6fa0ad31 from Emacs ; Prefer https to http in many URLs c6fa0ad315e38167cb81a4d8c143cc53ad783cc3 Stefan Kangas Thu Oct 1 15:28:15 2020 +0200
2020-10-01 09:24:21 -04:00
;; https://en.wikipedia.org/wiki/Block_Elements
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
;; best viewed with the "DejaVu Sans Mono" font.
(orgtbl-ascii-draw value min max width
" \u258F\u258E\u258D\u258C\u258B\u258A\u2589"))
(defun orgtbl-uc-draw-cont (value min max &optional width)
"Draw a bar in a table using block unicode characters.
Various minor docfixes found by checkdoc
2021-09-16 06:32:43 -04:00
It is a variant of `orgtbl-ascii-draw' with Unicode block
org-table: Add ascii plotting in tables * org-table.el (orgtbl-ascii-plot): Top-level function. (orgtbl-ascii-draw), (orgtbl-uc-draw-grid), (orgtbl-uc-draw-cont): Functions which go in table formulas for drawing bars. * org.el: key binding and menu binding Thanks to Michael Brand and Nicolas Goaziou for feedback and enhancements.
2014-08-28 16:28:27 -04:00
characters, for a smooth display. Bars are solid (to the extent
the font allows)."
(orgtbl-ascii-draw value min max width
" \u258F\u258E\u258D\u258C\u258B\u258A\u2589\u2588"))
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
(defun org-table-get-remote-range (name-or-id form)
"Get a field value or a list of values in a range from table at ID.
Use #+NAME instead of #+TBLNAME * org-table.el (org-table-get-remote-range): Fix docstring: use #+NAME instead of #+TBLNAME. * ob-ref.el: Use #+NAME instead of #+TBLNAME in comment.
2013-04-09 16:09:00 -04:00
NAME-OR-ID may be the name of a table in the current file as set
by a \"#+NAME:\" directive. The first table following this line
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
will then be used. Alternatively, it may be an ID referring to
Use #+NAME instead of #+TBLNAME * org-table.el (org-table-get-remote-range): Fix docstring: use #+NAME instead of #+TBLNAME. * ob-ref.el: Use #+NAME instead of #+TBLNAME in comment.
2013-04-09 16:09:00 -04:00
any entry, also in a different file. In this case, the first
table in that entry will be referenced.
Fix doubled-word typo. Thanks to Jim Meyering <jim@meyering.net> for this upstream fixes.
2011-06-20 09:38:24 -04:00
FORM is a field or range descriptor like \"@2$3\" or \"B3\" or
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
\"@I$2..@II$2\". All the references must be absolute, not relative.
The return value is either a single string for a single field, or a
org-table.el (org-table-get-remote-range): Fix typo * org-table.el (org-table-get-remote-range): Fix typo.
2013-04-18 09:42:31 -04:00
list of the fields in the rectangle."
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
(save-match-data
Match #+name/#+tblname/#+tblfm along with uppercase twins. * org.el: Use (case-fold-search t). (org-edit-special, org-ctrl-c-ctrl-c): Ditto. * org-table.el: (org-table-store-formulas, org-table-get-stored-formulas) (org-table-fix-formulas, org-table-edit-formulas) (org-old-auto-fill-inhibit-regexp, orgtbl-ctrl-c-ctrl-c) (orgtbl-toggle-comment, org-table-get-remote-range): Ditto. * org-footnote.el: (org-footnote-goto-local-insertion-point): Ditto. * org-exp.el: Ditto. * org-colview.el: (org-dblock-write:columnview, org-dblock-write:columnview): Ditto. * org-colview-xemacs.el: (org-dblock-write:columnview): Ditto. * org-clock.el (org-clocktable-write-default): Ditto. * org-capture.el (org-capture-place-table-line): Ditto. * ob.el (org-babel-data-names, org-babel-goto-named-src-block) (org-babel-src-block-names) (org-babel-where-is-src-block-result, org-babel-result-end) (org-babel-where-is-src-block-head) (org-babel-find-named-result, org-babel-result-names): Ditto.
2012-04-21 09:36:04 -04:00
(let ((case-fold-search t) (id-loc nil)
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
;; Protect a bunch of variables from being overwritten by
;; the context of the remote table.
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
org-table-column-names org-table-column-name-regexp
org-table-local-parameters org-table-named-field-locations
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
org-table-current-line-types
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
org-table-current-begin-pos org-table-dlines
Implement table formulas that apply to field ranges, fix minor issues * lisp/org-table.el (org-table-fedit-finish): Read more general LHS of formulas. (org-table-formula-handle-@L): New function to hanle @L references. (org-table-current-ncol): New variable. (org-table-line-to-dline): New function. (org-table-get-stored-formulas): Accept range formulas as matches. (org-table-get-specials): Compute and store the number of columns. (org-table-get-range): New optional argument CORNERS-ONLY, to retrieve only the region marked by the range, not the content. (org-table-recalculate): Call `org-table-expand-lhs-ranges' to expand range targets. Also check for duplicate access to fields. (org-table-expand-lhs-ranges): New funktion. (org-table-get-remote-range): Bind `org-table-current-ncol' to protect the caller's value. (org-table-edit-formulas): Support highlighting of range targets. (org-table-field-info): Handle renge formulas. * doc/org.texi (Field and range formulas): Renamed from "Field formulas". Document the use of range operators as targets. (References): Document the new @L reference.
2011-03-01 03:05:56 -05:00
org-table-current-ncol
org-table: Obey <c> cookie when aligning a table * lisp/org-table.el (org-table--align-field): New function. (org-table-align): Use new function. Refactor code. (org-table-justify-field-maybe): Use new function. (org-table-get-remote-range): Remove duplicate bindings. * doc/org.texi (Column width and alignment): Remove footnote. * testing/lisp/test-org-table.el (test-org-table/align): New test.
2017-08-19 12:45:41 -04:00
org-table-hlines
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
org-table-last-column-widths
org-table: Obey <c> cookie when aligning a table * lisp/org-table.el (org-table--align-field): New function. (org-table-align): Use new function. Refactor code. (org-table-justify-field-maybe): Use new function. (org-table-get-remote-range): Remove duplicate bindings. * doc/org.texi (Column width and alignment): Remove footnote. * testing/lisp/test-org-table.el (test-org-table/align): New test.
2017-08-19 12:45:41 -04:00
org-table-last-alignment
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
buffer loc)
Tables: Allow standard references in remote references. Rares Vernica writes: > I think the standard references do not work correctly in the > "remote" function. Moreover, the "edit all formulas" (C-c ') > window replaces the internal references with standard > references. Even if I toggle the references back to internal > ones, the references in the "remote" function do not get > updated. > > Here is an example: > > #+TBLNAME: TableA > | 101 | > #+TBLFM: @1$1=remote(TableC,@1$1) > > #+TBLNAME: TableB > | A1 | > #+TBLFM: @1$1=remote(TableC,A1) > > #+TBLNAME: TableC > | 101 | > > If I do C-c * in TableA, it works correctly. In TableB it > doesn't. If I do C-c ' in TableA and then (with or without > C-c C-r) C-c C-c and C-c *, then the contents of TableA will > be equivalent to the ones of TableB and the reference will > be broken. Standard references like A1 are now allowed in call to remote().
2009-04-15 09:14:19 -04:00
(setq form (org-table-convert-refs-to-rc form))
org-table: Improve tables' speed in large buffers * lisp/org-table.el (org-table-auto-recalculate-regexp): (org-table-recalculate-regexp): (org-table-calculate-mark-regexp): (org-table-column-names): (org-table-column-name-regexp): (org-table-local-parameters): (org-table-named-field-locations): (org-table-current-line-types): (org-table-current-begin-pos): (org-table-current-ncol): (org-table-dlines): (org-table-hlines): Improve docstrings. (org-table-current-begin-line): Remove variable. (org-table-save-field): New macro. (org-table-get-specials): Remove function. (org-table-analyze): New function, renamed from `org-table-get-specials'. (org-table-find-row-type): Remove function. (org-table--row-type): New function, renamed from `org-table-find-row-type'. (org-table-align): Use new macro. (org-table-field-info): (org-table-insert-column): (org-table-delete-column): (org-table-move-column): (org-table-sort-lines): (org-table-paste-rectangle): (org-table-wrap-region): (org-table-current-field-formula): (org-table-get-formula): (org-table-maybe-recalculate-line): (org-table-eval-formula): (org-table-get-range): (org-table--descriptor-line): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-edit-formulas): (org-table-show-reference): (org-table-get-remote-range): Apply changes above. Refactor code. (org-table-check-inside-data-field): (org-table-current-column): (org-table-current-dline): (org-table-line-to-dline): (org-table-copy-region): (org-table-rotate-recalc-marks): (org-table-fedit-post-command): (org-table-fedit-convert-buffer): (org-table-highlight-rectangle): Refactor code. (org-table-goto-field): New function. * lisp/org-capture.el (org-capture-place-table-line): Apply change made to table internals. The point of this commit is to remove dependency on `org-current-line' and `org-goto-line', which are both expensive in large buffers. Now, lines are relative to the beginning of the current table instead of global (i.e., relative to the beginning of the buffer).
2015-07-31 04:48:14 -04:00
(org-with-wide-buffer
(goto-char (point-min))
(if (re-search-forward
(concat "^[ \t]*#\\+\\(tbl\\)?name:[ \t]*"
(regexp-quote name-or-id) "[ \t]*$")
nil t)
(setq buffer (current-buffer) loc (match-beginning 0))
(setq id-loc (org-id-find name-or-id 'marker))
(unless (and id-loc (markerp id-loc))
(user-error "Can't find remote table \"%s\"" name-or-id))
(setq buffer (marker-buffer id-loc)
loc (marker-position id-loc))
(move-marker id-loc nil))
(with-current-buffer buffer
(org-with-wide-buffer
(goto-char loc)
(forward-char 1)
(unless (and (re-search-forward "^\\(\\*+ \\)\\|^[ \t]*|" nil t)
(not (match-beginning 1)))
(user-error "Cannot find a table at NAME or ID %s" name-or-id))
(org-table-analyze)
(setq form (org-table-formula-substitute-names
(org-table-formula-handle-first/last-rc form)))
(if (and (string-match org-table-range-regexp form)
(> (length (match-string 0 form)) 1))
(org-table-get-range
(match-string 0 form) org-table-current-begin-pos 1)
form)))))))
Tables: Support for references to remote tables Formulas can now refer to fields and regions in other tables, be it in the same file or even in different files. This also opens the door for more interesting R support, because arbitrary tables in a file can now be accessed with appropriate commands. Finally, this commit also introduces a convenience for creating references in tables. For the purpose of references, it will always be *assumed* that there is another hline at the end if each table. So for example in a table that has only a single hline, to separate header from data, you can now access all of column two with "@I$2..@II$2".
2009-01-24 04:51:21 -05:00
TBLFM remote ref: Add indirection of name or ID * doc/org.texi (References): Add description for indirection of NAME-OR-ID. * lisp/org-table.el (org-table-eval-formula): Make use of `org-table-remote-reference-indirection'. (org-table-remote-reference-indirection): New function. * testing/lisp/test-org-table.el (test-org-table/remote-reference-indirect): Change to use remote reference indirection.
2014-01-12 04:53:06 -05:00
(defun org-table-remote-reference-indirection (form)
"Return formula with table remote references substituted by indirection.
For example \"remote($1, @>$2)\" => \"remote(year_2013, @>$1)\".
This indirection works only with the format @ROW$COLUMN. The
format \"B3\" is not supported because it can not be
distinguished from a plain table name or ID."
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
(let ((regexp
;; Same as in `org-table-eval-formula'.
(concat "\\<remote([ \t]*\\("
;; Allow "$1", "@<", "$-1", "@<<$1" etc.
"[@$][^ \t,]+"
"\\)[ \t]*,[ \t]*\\([^\n)]+\\))")))
(replace-regexp-in-string
regexp
(lambda (m)
(save-match-data
(let ((eq (org-table-formula-handle-first/last-rc (match-string 1 m))))
(org-table-get-range
Use `string-match-p' instead of `org-string-match-p' * contrib/lisp/org-contacts.el (org-contacts-filter): (org-contacts-complete-group): (org-contacts-complete-tags-props): * contrib/lisp/org-wl.el (org-wl-open): * contrib/lisp/ox-bibtex.el (org-bibtex-merge-contiguous-citations): * lisp/ob-core.el (org-babel-demarcate-block): * lisp/ob-processing.el (org-babel-processing-view-sketch): * lisp/ob-stan.el (org-babel-execute:stan): * lisp/org-agenda.el (org-agenda-get-category-icon): * lisp/org-clock.el (org-clock-into-drawer): * lisp/org-element.el (org-element-link-parser): * lisp/org-lint.el (org-lint-orphaned-affiliated-keywords): (org-lint-invalid-babel-call-block): (org-lint-colon-in-name): * lisp/org-list.el (org-list-item-body-column): * lisp/org-macro.el (org-macro-replace-all): * lisp/org-plot.el (org-plot/gnuplot-script): * lisp/org-table.el (org-table-export): (org-table-align): (org-table-get-range): (org-table-recalculate): (org-table-expand-lhs-ranges): (org-table-formula-substitute-names): (org-table-show-reference): (orgtbl-to-texinfo): (org-table-remote-reference-indirection): * lisp/org.el (org-make-link-string): (org--open-elisp-link): (org-open-at-point): (org-store-log-note): (org-cached-entry-get): (org--valid-property-p): (org-entry-properties): (org-buffer-property-keys): (org-insert-drawer): (org-display-inline-images): (org-in-commented-heading-p): * lisp/ox-ascii.el (org-ascii-keyword): * lisp/ox-beamer.el (org-beamer--format-frame): * lisp/ox-html.el (org-html-keyword): * lisp/ox-latex.el (org-latex--label): (org-latex-headline): (org-latex-item): (org-latex-keyword): (org-latex--inline-image): (org-latex-src-block): * lisp/ox-odt.el (org-odt-styles-dir): (org-odt-keyword): (org-odt--translate-latex-fragments): * lisp/ox-texinfo.el (org-texinfo-template): (org-texinfo-keyword): (org-texinfo-src-block): * lisp/ox.el (org-export-inline-image-p): (org-export-file-uri): * testing/lisp/test-org-table.el (test-org-table/to-generic): (test-org-table/to-latex): (test-org-table/to-html): (test-org-table/named-field): (test-org-table/named-column): (test-org-table/tab-indent): (test-org-table/first-rc): (test-org-table/last-rc): Use `string-match-p' instead of `org-string-match-p'.
2016-07-25 09:21:12 -04:00
(if (string-match-p "\\`\\$[0-9]+\\'" eq)
org-table: Fix `org-table-get-range' with column formulas * lisp/org-table.el (org-table-get-stored-formulas): Store complete column formulas including the "$" sign. Remove interactive status. (org-table-get-range): Handle nicely "$n..$m" ranges. Apply changes to `org-table-get-stored-formulas'. Rename some bindings for clarity. (org-table-expand-lhs-ranges): Ignore column formalas. (org-table-remote-reference-indirection): Refactor function. Reported-by: Junpeng Qiu <qjpchmail@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/102861>
2015-11-12 17:12:18 -05:00
(concat "@0" eq)
eq)))))
form t t 1)))
TBLFM remote ref: Add indirection of name or ID * doc/org.texi (References): Add description for indirection of NAME-OR-ID. * lisp/org-table.el (org-table-eval-formula): Make use of `org-table-remote-reference-indirection'. (org-table-remote-reference-indirection): New function. * testing/lisp/test-org-table.el (test-org-table/remote-reference-indirect): Change to use remote reference indirection.
2014-01-12 04:53:06 -05:00
Table lookup functions * lisp/org-table.el: added macro org-define-lookup-function and the calls to this macro that generate the lookup functions org-lookup-first, org-lookup-last and org-lookup-all * doc/org.texi: documented lookup functions
2012-10-15 02:54:24 -04:00
(defmacro org-define-lookup-function (mode)
(let ((mode-str (symbol-name mode))
Use ‘eq’ instead of ‘equal’ for symbols * lisp/ob-C.el (org-babel-C-val-to-C-type): * lisp/ob-core.el (org-babel-get-colnames): (org-babel-disassemble-tables): * lisp/ob-lua.el (org-babel-lua-var-to-lua): (org-babel-lua-table-or-string): * lisp/ob-python.el (org-babel-python-var-to-python): (org-babel-python-table-or-string): * lisp/ob-ruby.el (org-babel-ruby-var-to-ruby): (org-babel-ruby-table-or-string): * lisp/ob-shell.el (org-babel-sh-var-to-string): * lisp/ob-sqlite.el (org-babel-sqlite-table-or-scalar): * lisp/org-agenda.el (org-agenda-prepare-window): (org-compile-prefix-format): * lisp/org-bibtex.el (org-bibtex-headline): * lisp/org-capture.el (org-capture): * lisp/org-colview.el (org-columns-next-allowed-value): * lisp/org-mhe.el (org-mhe-store-link): (org-mhe-get-message-real-folder): (org-mhe-get-message-folder): (org-mhe-get-message-num): (org-mhe-get-header): (org-mhe-follow-link): * lisp/org-table.el (org-define-lookup-function): * lisp/org.el (format-spec): * lisp/ox-odt.el (org-odt--translate-description-lists): * lisp/ox-publish.el (org-publish-compare-directory-files): Use `eq' instead of `equal' when comparing to symbols. * lisp/org-timer.el (org-timer-set-mode-line): * lisp/org-capture.el (org-capture-finalize): Use `cl-case' instead of `(cond ((eq x 'foo) ...) ...)'.
2016-09-25 11:29:06 -04:00
(first-p (eq mode 'first))
(all-p (eq mode 'all)))
Table lookup functions * lisp/org-table.el: added macro org-define-lookup-function and the calls to this macro that generate the lookup functions org-lookup-first, org-lookup-last and org-lookup-all * doc/org.texi: documented lookup functions
2012-10-15 02:54:24 -04:00
(let ((plural-str (if all-p "s" "")))
`(defun ,(intern (format "org-lookup-%s" mode-str)) (val s-list r-list &optional predicate)
,(format "Find %s occurrence%s of VAL in S-LIST; return corresponding element%s of R-LIST.
If R-LIST is nil, return matching element%s of S-LIST.
If PREDICATE is not nil, use it instead of `equal' to match VAL.
Matching is done by (PREDICATE VAL S), where S is an element of S-LIST.
This function is generated by a call to the macro `org-define-lookup-function'."
mode-str plural-str plural-str plural-str)
(let ,(let ((lvars '((p (or predicate 'equal))
(sl s-list)
(rl (or r-list s-list))
(ret nil))))
Activate lexical binding in some libraries * lisp/ob-C.el (org-babel-prep-session:C): (org-babel-load-session:C): * lisp/ob-J.el: (org-babel-expand-body:J): (org-babel-execute:J): * lisp/ob-R.el: (org-babel-expand-body:R): * lisp/ob-abc.el: (org-babel-execute:abc): (org-babel-prep-session:abc): * lisp/ob-asymptote.el: (org-babel-execute:asymptote): (org-babel-prep-session:asymptote): * lisp/ob-awk.el: (org-babel-expand-body:awk): * lisp/ob-calc.el: (org-babel-expand-body:calc): * lisp/ob-clojure.el: * lisp/ob-comint.el: (org-babel-comint-in-buffer): (org-babel-comint-with-output): (org-babel-comint-eval-invisibly-and-wait-for-file): * lisp/ob-coq.el: * lisp/ob-css.el: (org-babel-execute:css): (org-babel-prep-session:css): * lisp/ob-ditaa.el: (org-babel-execute:ditaa): (org-babel-prep-session:ditaa): * lisp/ob-dot.el: (org-babel-execute:dot): (org-babel-prep-session:dot): * lisp/ob-ebnf.el: * lisp/ob-emacs-lisp.el: * lisp/ob-eval.el: * lisp/ob-forth.el: * lisp/ob-fortran.el: (org-babel-execute:fortran): (org-babel-prep-session:fortran): (org-babel-load-session:fortran): * lisp/ob-gnuplot.el: (org-babel-expand-body:gnuplot): (org-babel-prep-session:gnuplot): (org-babel-gnuplot-initiate-session): * lisp/ob-groovy.el: (org-babel-prep-session:groovy): (org-babel-groovy-initiate-session): * lisp/ob-haskell.el: (org-babel-haskell-initiate-session): * lisp/ob-io.el: (org-babel-prep-session:io): (org-babel-io-initiate-session): * lisp/ob-java.el: (org-babel-execute:java): * lisp/ob-js.el: * lisp/ob-keys.el: * lisp/ob-latex.el: (org-babel-prep-session:latex): * lisp/ob-ledger.el: (org-babel-execute:ledger): (org-babel-prep-session:ledger): * lisp/ob-lilypond.el: (org-babel-lilypond-commands): (org-babel-lilypond-process-basic): (org-babel-prep-session:lilypond): (org-babel-lilypond-parse-line-num): * lisp/ob-lisp.el: * lisp/ob-makefile.el: (org-babel-execute:makefile): (org-babel-prep-session:makefile): * lisp/ob-matlab.el: * lisp/ob-maxima.el: (org-babel-prep-session:maxima): * lisp/ob-mscgen.el: (org-babel-prep-session:mscgen): * lisp/ob-ocaml.el: (org-babel-execute:ocaml): (org-babel-prep-session:ocaml): * lisp/ob-octave.el: (org-babel-execute:octave): (org-babel-octave-initiate-session): * lisp/ob-org.el: (org-babel-prep-session:org): * lisp/ob-perl.el: (org-babel-prep-session:perl): (org-babel-perl--var-to-perl): (org-babel-perl-initiate-session): * lisp/ob-picolisp.el: (org-babel-expand-body:picolisp): (org-babel-execute:picolisp): * lisp/ob-plantuml.el: (org-babel-execute:plantuml): (org-babel-prep-session:plantuml): * lisp/ob-processing.el: (org-babel-prep-session:processing): * lisp/ob-python.el: (org-babel-python-initiate-session): * lisp/ob-ref.el: (org-babel-ref-resolve): * lisp/ob-ruby.el: (org-babel-ruby-initiate-session): * lisp/ob-sass.el: (org-babel-execute:sass): (org-babel-prep-session:sass): * lisp/ob-scala.el: (org-babel-execute:scala): (org-babel-prep-session:scala): (org-babel-scala-initiate-session): * lisp/ob-scheme.el: * lisp/ob-screen.el: (org-babel-prep-session:screen): (org-babel-screen-session-write-temp-file): (org-babel-screen-test): * lisp/ob.el: * lisp/org-colview.el: (org-columns-todo): (org-columns-set-tags-or-toggle): (org-columns-new): (org-columns-uncompile-format): (org-agenda-colview-summarize): * lisp/org-footnote.el: (electric-indent-mode): * lisp/org-indent.el: (org-indent-refresh-maybe): * lisp/org-list.el: * lisp/org-macro.el: (org-macro--collect-macros): * lisp/org-src.el: * lisp/org-table.el: (sort-fold-case): (org-table-create): (org-table-field-info): (org-table-transpose-table-at-point): (org-table-remove-rectangle-highlight): (orgtbl-create-or-convert-from-region): (org-define-lookup-function): * lisp/ox-ascii.el: (org-ascii-format-drawer-function): (org-ascii--has-caption-p): (org-ascii-bold): (org-ascii-center-block): (org-ascii-clock): (org-ascii-code): (org-ascii-dynamic-block): (org-ascii-entity): (org-ascii-example-block): (org-ascii-export-snippet): (org-ascii-export-block): (org-ascii-fixed-width): (org-ascii-footnote-reference): (org-ascii-horizontal-rule): (org-ascii-inline-src-block): (org-ascii-format-inlinetask-default): (org-ascii-italic): (org-ascii-keyword): (org-ascii-latex-environment): (org-ascii-latex-fragment): (org-ascii-line-break): (org-ascii-node-property): (org-ascii-planning): (org-ascii-quote-block): (org-ascii-radio-target): (org-ascii-special-block): (org-ascii-src-block): (org-ascii-statistics-cookie): (org-ascii-subscript): (org-ascii-superscript): (org-ascii-strike-through): (org-ascii-timestamp): (org-ascii-underline): (org-ascii-verbatim): (org-ascii-verse-block): (org-ascii-filter-headline-blank-lines): (org-ascii-filter-paragraph-spacing): (org-ascii-filter-comment-spacing): Use lexical binding.
2015-10-25 20:56:00 -04:00
(if first-p (cons '(match-p nil) lvars) lvars))
Table lookup functions * lisp/org-table.el: added macro org-define-lookup-function and the calls to this macro that generate the lookup functions org-lookup-first, org-lookup-last and org-lookup-all * doc/org.texi: documented lookup functions
2012-10-15 02:54:24 -04:00
(while ,(if first-p '(and (not match-p) sl) 'sl)
Activate lexical binding in some libraries * lisp/ob-C.el (org-babel-prep-session:C): (org-babel-load-session:C): * lisp/ob-J.el: (org-babel-expand-body:J): (org-babel-execute:J): * lisp/ob-R.el: (org-babel-expand-body:R): * lisp/ob-abc.el: (org-babel-execute:abc): (org-babel-prep-session:abc): * lisp/ob-asymptote.el: (org-babel-execute:asymptote): (org-babel-prep-session:asymptote): * lisp/ob-awk.el: (org-babel-expand-body:awk): * lisp/ob-calc.el: (org-babel-expand-body:calc): * lisp/ob-clojure.el: * lisp/ob-comint.el: (org-babel-comint-in-buffer): (org-babel-comint-with-output): (org-babel-comint-eval-invisibly-and-wait-for-file): * lisp/ob-coq.el: * lisp/ob-css.el: (org-babel-execute:css): (org-babel-prep-session:css): * lisp/ob-ditaa.el: (org-babel-execute:ditaa): (org-babel-prep-session:ditaa): * lisp/ob-dot.el: (org-babel-execute:dot): (org-babel-prep-session:dot): * lisp/ob-ebnf.el: * lisp/ob-emacs-lisp.el: * lisp/ob-eval.el: * lisp/ob-forth.el: * lisp/ob-fortran.el: (org-babel-execute:fortran): (org-babel-prep-session:fortran): (org-babel-load-session:fortran): * lisp/ob-gnuplot.el: (org-babel-expand-body:gnuplot): (org-babel-prep-session:gnuplot): (org-babel-gnuplot-initiate-session): * lisp/ob-groovy.el: (org-babel-prep-session:groovy): (org-babel-groovy-initiate-session): * lisp/ob-haskell.el: (org-babel-haskell-initiate-session): * lisp/ob-io.el: (org-babel-prep-session:io): (org-babel-io-initiate-session): * lisp/ob-java.el: (org-babel-execute:java): * lisp/ob-js.el: * lisp/ob-keys.el: * lisp/ob-latex.el: (org-babel-prep-session:latex): * lisp/ob-ledger.el: (org-babel-execute:ledger): (org-babel-prep-session:ledger): * lisp/ob-lilypond.el: (org-babel-lilypond-commands): (org-babel-lilypond-process-basic): (org-babel-prep-session:lilypond): (org-babel-lilypond-parse-line-num): * lisp/ob-lisp.el: * lisp/ob-makefile.el: (org-babel-execute:makefile): (org-babel-prep-session:makefile): * lisp/ob-matlab.el: * lisp/ob-maxima.el: (org-babel-prep-session:maxima): * lisp/ob-mscgen.el: (org-babel-prep-session:mscgen): * lisp/ob-ocaml.el: (org-babel-execute:ocaml): (org-babel-prep-session:ocaml): * lisp/ob-octave.el: (org-babel-execute:octave): (org-babel-octave-initiate-session): * lisp/ob-org.el: (org-babel-prep-session:org): * lisp/ob-perl.el: (org-babel-prep-session:perl): (org-babel-perl--var-to-perl): (org-babel-perl-initiate-session): * lisp/ob-picolisp.el: (org-babel-expand-body:picolisp): (org-babel-execute:picolisp): * lisp/ob-plantuml.el: (org-babel-execute:plantuml): (org-babel-prep-session:plantuml): * lisp/ob-processing.el: (org-babel-prep-session:processing): * lisp/ob-python.el: (org-babel-python-initiate-session): * lisp/ob-ref.el: (org-babel-ref-resolve): * lisp/ob-ruby.el: (org-babel-ruby-initiate-session): * lisp/ob-sass.el: (org-babel-execute:sass): (org-babel-prep-session:sass): * lisp/ob-scala.el: (org-babel-execute:scala): (org-babel-prep-session:scala): (org-babel-scala-initiate-session): * lisp/ob-scheme.el: * lisp/ob-screen.el: (org-babel-prep-session:screen): (org-babel-screen-session-write-temp-file): (org-babel-screen-test): * lisp/ob.el: * lisp/org-colview.el: (org-columns-todo): (org-columns-set-tags-or-toggle): (org-columns-new): (org-columns-uncompile-format): (org-agenda-colview-summarize): * lisp/org-footnote.el: (electric-indent-mode): * lisp/org-indent.el: (org-indent-refresh-maybe): * lisp/org-list.el: * lisp/org-macro.el: (org-macro--collect-macros): * lisp/org-src.el: * lisp/org-table.el: (sort-fold-case): (org-table-create): (org-table-field-info): (org-table-transpose-table-at-point): (org-table-remove-rectangle-highlight): (orgtbl-create-or-convert-from-region): (org-define-lookup-function): * lisp/ox-ascii.el: (org-ascii-format-drawer-function): (org-ascii--has-caption-p): (org-ascii-bold): (org-ascii-center-block): (org-ascii-clock): (org-ascii-code): (org-ascii-dynamic-block): (org-ascii-entity): (org-ascii-example-block): (org-ascii-export-snippet): (org-ascii-export-block): (org-ascii-fixed-width): (org-ascii-footnote-reference): (org-ascii-horizontal-rule): (org-ascii-inline-src-block): (org-ascii-format-inlinetask-default): (org-ascii-italic): (org-ascii-keyword): (org-ascii-latex-environment): (org-ascii-latex-fragment): (org-ascii-line-break): (org-ascii-node-property): (org-ascii-planning): (org-ascii-quote-block): (org-ascii-radio-target): (org-ascii-special-block): (org-ascii-src-block): (org-ascii-statistics-cookie): (org-ascii-subscript): (org-ascii-superscript): (org-ascii-strike-through): (org-ascii-timestamp): (org-ascii-underline): (org-ascii-verbatim): (org-ascii-verse-block): (org-ascii-filter-headline-blank-lines): (org-ascii-filter-paragraph-spacing): (org-ascii-filter-comment-spacing): Use lexical binding.
2015-10-25 20:56:00 -04:00
(when (funcall p val (car sl))
,(when first-p '(setq match-p t))
(let ((rval (car rl)))
(setq ret ,(if all-p '(append ret (list rval)) 'rval))))
(setq sl (cdr sl) rl (cdr rl)))
Table lookup functions * lisp/org-table.el: added macro org-define-lookup-function and the calls to this macro that generate the lookup functions org-lookup-first, org-lookup-last and org-lookup-all * doc/org.texi: documented lookup functions
2012-10-15 02:54:24 -04:00
ret)))))
(org-define-lookup-function first)
(org-define-lookup-function last)
(org-define-lookup-function all)
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
(provide 'org-table)
Use generated-autoload-file: "org-loaddefs.el" as a local variable.
2012-10-02 02:50:46 -04:00
;; Local variables:
;; generated-autoload-file: "org-loaddefs.el"
;; End:
Split out a number of files from org.el, and reorganize the structure of the git repository, using new subdirectories for Lisp and Documentation files.
2008-03-22 11:52:18 -04:00
;;; org-table.el ends here