View file File name : org-table.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\315\316\317\320\321DD\322\313\306\323\324&\210\315\325\317\320\326DD\327\313\306\323\330&\210\305\331\307\332\311\333\313\306&\210\315\334\317\320\335DD\336\313\331\323\337&\210\315\340\317\320\341DD\342\313\331\323\343&\210\315\344\317\320\345DD\346\313\331\323\347&\210\315\350\317\320\351DD\352\313\331\353\354\323\337& \210\305\355\307\356\311\357\313\306&\210\315\360\317\320\361DD\362\313\355\323\324&\210\315\363\317\320\364DD\365\313\355\323\324&\210\315\366\317\320\367DD\370\313\306\353\354\323\324& \210\315\371\317\320\372DD\373\313\355\353\354\323\374& \210\315\375\317\320\376DD\377\313\355\323\324&\210\315\201@ \317\320\201A DD\201B \313\355\323\337\201C \201D \201E \201F & \210\305\201G \307\310\311\201H \313\306&\210\315\201I \317\320\201J DD\201K \313\201G \323\201L &\210\315\201M \317\320\201N DD\201O \313\201G \353\201P \201C \201Q \323\201R & \210\315\201S \317\320\201T DD\201U \313\201G \323\201V &\210\315\201W \317\320\201X DD\201Y \313\201G \353\354\323\201Z & \210\315\201[ \317\320\201\\ DD\201] \313\201G \353\201P \201C \201^ \323\324\201E \201_ & \210\315\201` \317\320\201a DD\201b \313\201G \323\324&\210\315\201c \317\320\201d DD\201e \313\201G \323\324&\210\315\201f \317\320\201g DD\201h \313\201G \323\201i &\210\315\201j \317\320\201k DD\201l \313\201G \323\324&\210\315\201m \317\320\201n DD\201o \313\201G \323\201p &\210\315\201q \317\320\201r DD\201s \313\201G \201C \201t \323\201u & \210\305\201v \307\201w \311\201x \313\306&\210\315\201y \317\320\201z DD\201{ \313\201v \323\337&\210\315\201| \317\320\201} DD\201~ \313\201v \323\201 \201C \201\200 & \207" [require cl-lib org-macs org-compat org-keys custom-declare-group org-table nil "Options concerning tables in Org mode." :tag "Org Table" :group org custom-declare-variable orgtbl-optimized funcall function #[0 "\300\207" [t] 1] "Non-nil means use the optimized table editor version for `orgtbl-mode'.\n\nIn the optimized version, the table editor takes over all simple keys that\nnormally just insert a character. In tables, the characters are inserted\nin a way to minimize disturbing the table structure (i.e. in overwrite mode\nfor empty fields). Outside tables, the correct binding of the keys is\nrestored.\n\nChanging this variable requires a restart of Emacs to become\neffective." :type boolean orgtbl-radio-table-templates #[0 "\300\207" [((latex-mode "% BEGIN RECEIVE ORGTBL %n\n% END RECEIVE ORGTBL %n\n\\begin{comment}\n#+ORGTBL: SEND %n orgtbl-to-latex :splice nil :skip 0\n| | |\n\\end{comment}\n") (texinfo-mode "@c BEGIN RECEIVE ORGTBL %n\n@c END RECEIVE ORGTBL %n\n@ignore\n#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0\n| | |\n@end ignore\n") (html-mode "<!-- BEGIN RECEIVE ORGTBL %n -->\n<!-- END RECEIVE ORGTBL %n -->\n<!--\n#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0\n| | |\n-->\n") (org-mode "#+ BEGIN RECEIVE ORGTBL %n\n#+ END RECEIVE ORGTBL %n\n\n#+ORGTBL: SEND %n orgtbl-to-orgtbl :splice nil :skip 0\n| | |\n"))] 1] "Templates for radio tables in different major modes.\nEach template must define lines that will be treated as a comment and that\nmust contain the \"BEGIN RECEIVE ORGTBL %n\" and \"END RECEIVE ORGTBL\"\nlines where \"%n\" will be replaced with the name of the table during\ninsertion of the template. The transformed table will later be inserted\nbetween these lines.\n\nThe template should also contain a minimal table in a multiline comment.\nIf multiline comments are not possible in the buffer language,\nyou can pack it into a string that will not be used when the code\nis compiled or executed. Above the table will you need a line with\nthe fixed string \"#+ORGTBL: SEND\", followed by instruction on how to\nconvert the table into a data structure useful in the\nlanguage of the buffer. Check the manual for the section on\n\"Translator functions\", and more generally check out\nthe Info node `(org)Tables in arbitrary syntax'.\n\nAll occurrences of %n in a template will be replaced with the name of the\ntable, obtained by prompting the user." (repeat (list (symbol :tag "Major mode") (string :tag "Format"))) org-table-settings "Settings for tables in Org mode." "Org Table Settings" org-table-default-size #[0 "\300\207" [#1="5x2"] 1 #1#] "The default size for newly created tables, Columns x Rows." string org-table-number-regexp #[0 "\300\207" [#2="^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%:]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$"] 1 #2#] "Regular expression for recognizing numbers in table columns.\nIf a table column contains mostly numbers, it will be aligned to the\nright. If not, it will be aligned to the left.\n\nThe default value of this option is a regular expression which allows\nanything which looks remotely like a number as used in scientific\ncontext. For example, all of the following will be considered a\nnumber:\n 12 12.2 2.4e-08 2x10^12 4.034+-0.02 2.7(10) >3.5\n\nOther options offered by the customize interface are more restrictive." (choice (const :tag "Positive Integers" "^[0-9]+$") (const :tag "Integers" "^[-+]?[0-9]+$") (const :tag "Floating Point Numbers" "^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.[0-9]*\\)$") (const :tag "Floating Point Number or Integer" "^[-+]?\\([0-9]*\\.[0-9]+\\|[0-9]+\\.?[0-9]*\\)$") (const :tag "Exponential, Floating point, Integer" "^[-+]?[0-9.]+\\([eEdD][-+0-9]+\\)?$") (const :tag "Very General Number-Like, including hex and Calc radix" "^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$") (const :tag "Very General Number-Like, including hex and Calc radix, allows comma as decimal mark" "^\\([<>]?[-+^.,0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$") (string :tag "Regexp:")) org-table-number-fraction #[0 "\300\207" [0.5] 1] "Fraction of numbers in a column required to make the column align right.\nIn a column all non-white fields are considered. If at least\nthis fraction of fields is matched by `org-table-number-regexp',\nalignment to the right border applies." number org-table-formula-field-format #[0 "\300\207" [#3="%s"] 1 #3#] "Format for fields which contain the result of a formula.\nFor example, using \"~%s~\" will display the result within tilde\ncharacters. Beware that modifying the display can prevent the\nfield from being used in another formula." :version "24.1" org-table-editing "Behavior of tables during editing in Org mode." "Org Table Editing" org-table-automatic-realign #[0 "\300\207" [t] 1] "Non-nil means automatically re-align table when pressing TAB or RETURN.\nWhen nil, aligning is only done with `\\[org-table-align]', or after column\nremoval/insertion." org-table-auto-blank-field #[0 "\300\207" [t] 1] "Non-nil means automatically blank table field when starting to type into it.\nThis only happens when typing immediately after a field motion\ncommand (TAB, S-TAB or RET)." org-table-exit-follow-field-mode-when-leaving-table #[0 "\300\207" [t] 1] "Non-nil means automatically exit the follow mode.\nWhen nil, the follow mode will stay on and be active in any table\nthe cursor enters. Since the table follow filed mode messes with the\nwindow configuration, it is not recommended to set this variable to nil,\nexcept maybe locally in a special file that has mostly tables with long\nfields." org-table-fix-formulas-confirm #[0 "\300\207" [nil] 1] "Whether the user should confirm when Org fixes formulas." (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)) org-table-tab-jumps-over-hlines #[0 "\300\207" [t] 1] "Non-nil means tab in the last column of a table with jump over a hline.\nIf a horizontal separator line is following the current line,\n`org-table-next-field' can either create a new row before that line, or jump\nover the line. When this option is nil, a new line will be created before\nthis line." org-table-shrunk-column-indicator #[0 "\300\207" [#4="…"] 1 #4#] "String to be displayed in a shrunk column." :package-version (Org . "9.2") :safe #[257 "\211;\205 \211\300\232?\207" [""] 3 "\n\n(fn V)"] org-table-calculation "Org Table Calculation" org-table-use-standard-references #[0 "\300\207" [from] 1] "Non-nil means using table references like B3 instead of @3$2.\nPossible values are:\nnil never use them\nfrom accept as input, do not present for editing\nt accept as input and present for editing" (choice (const :tag "Never, don't even check user input for them" nil) (const :tag "Always, both as user input, and when editing" t) (const :tag "Convert user input, don't offer during editing" from)) org-table-copy-increment #[0 "\300\207" [t] 1] "Non-nil means increment when copying current field with `\\[org-table-copy-down]'." "26.1" (Org . "8.3") (choice (const :tag "Use the difference between the current and the above fields" t) (integer :tag "Use a number" 1) (const :tag "Don't increment the value when copying a field" nil)) org-calc-default-modes #[0 "\300\207" [(calc-internal-prec 12 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)) calc-display-working-message t)] 1] "List with Calc mode settings for use in `calc-eval' for table formulas.\nThe list must contain alternating symbols (Calc modes variables and values).\nDon't remove any of the default settings, just change the values. Org mode\nrelies on the variables to be present in the list." plist org-table-duration-custom-format #[0 "\300\207" [hours] 1] "Format for the output of calc computations like $1+$2;t.\nThe default value is `hours', and will output the results as a\nnumber of hours. Other allowed values are `seconds', `minutes' and\n`days', and the output will be a fraction of seconds, minutes or\ndays. `hh:mm' selects to use hours and minutes, ignoring seconds.\nThe `U' flag in a table formula will select this specific format for\na single formula." (choice (symbol :tag "Seconds" 'seconds) (symbol :tag "Minutes" 'minutes) (symbol :tag "Hours " 'hours) (symbol :tag "Days " 'days) (symbol :tag "HH:MM " 'hh:mm)) org-table-duration-hour-zero-padding #[0 "\300\207" [t] 1] "Non-nil means hours in table duration computations should be zero-padded.\nSo this is about 08:32:34 versus 8:33:34." (Org . "9.1") booleanp org-table-formula-evaluate-inline #[0 "\300\207" [t] 1] "Non-nil means TAB and RET evaluate a formula in current table field.\nIf the current field starts with an equal sign, it is assumed to be a formula\nwhich should be evaluated as described in the manual and in the documentation\nstring of the command `org-table-eval-formula'. This feature requires the\nEmacs calc package.\nWhen this variable is nil, formula calculation is only available through\nthe command `\\[org-table-eval-formula]'." org-table-formula-use-constants #[0 "\300\207" [t] 1] "Non-nil means interpret constants in formulas in tables.\nA constant looks like `$c' or `$Grav' and will be replaced before evaluation\nby the value given in `org-table-formula-constants', or by a value obtained\nfrom the `constants.el' package." org-table-formula-constants #[0 "\300\207" [nil] 1] "Alist with constant names and values, for use in table formulas.\nThe car of each element is a name of a constant, without the `$' before it.\nThe cdr is the value as a string. For example, if you'd like to use the\nspeed of light in a formula, you would configure\n\n (setq org-table-formula-constants \\='((\"c\" . \"299792458.\")))\n\nand then use it in an equation like `$1*$c'.\n\nConstants can also be defined on a per-file basis using a line like\n\n#+CONSTANTS: c=299792458. pi=3.14 eps=2.4e-6" (repeat (cons (string :tag "name") (string :tag "value"))) org-table-allow-automatic-line-recalculation #[0 "\300\207" [t] 1] "Non-nil means lines marked with |#| or |*| will be recomputed automatically.\n\\<org-mode-map>Automatically means when `TAB' or `RET' or `\\[org-ctrl-c-ctrl-c]' are pressed in the line." org-table-relative-ref-may-cross-hline #[0 "\300\207" [t] 1] "Non-nil means relative formula references may cross hlines.\nHere are the allowed values:\n\nnil Relative references may not cross hlines. They will reference the\n field next to the hline instead. Coming from below, the reference\n will be to the field below the hline. Coming from above, it will be\n to the field above.\nt Relative references may cross hlines.\nerror An attempt to cross a hline will throw an error.\n\nIt is probably good to never set this variable to nil, for the sake of\nportability of tables." (choice (const :tag "Allow to cross" t) (const :tag "Stick to hline" nil) (const :tag "Error on attempt to cross" error)) org-table-formula-create-columns #[0 "\300\207" [nil] 1] "Non-nil means evaluation of formula can add new columns.\nWhen non-nil, evaluating an out-of-bounds field can insert as\nmany columns as needed. When set to `warn', issue a warning when\ndoing so. When set to `prompt', ask user before creating a new\ncolumn. Otherwise, throw an error." (Org . "8.3") (choice (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-import-export "Options concerning table import and export in Org mode." "Org Table Import Export" org-table-export-default-format #[0 "\300\207" [#5="orgtbl-to-tsv"] 1 #5#] "Default export parameters for `org-table-export'.\nThese can be overridden for a specific table by setting the\nTABLE_EXPORT_FORMAT property. See the manual section on orgtbl\nradio tables for the different export transformations and\navailable parameters." org-table-convert-region-max-lines #[0 "\300\207" [999] 1] "Max lines that `org-table-convert-region' will attempt to process.\n\nThe function can be slow on larger regions; this safety feature\nprevents it from hanging Emacs." integer (Org . "8.3")] 14) #@41 Detect an org-type or table-type table. (defconst org-table-any-line-regexp "^[ ]*\\(|\\|\\+-[-+]\\)" (#$ . 14732)) #@32 Detect an org-type table line. (defconst org-table-line-regexp "^[ ]*|" (#$ . 14855)) #@32 Detect an org-type table line. (defconst org-table-dataline-regexp "^[ ]*|[^-]" (#$ . 14948)) #@33 Detect an org-type table hline. (defconst org-table-hline-regexp "^[ ]*|-" (#$ . 15049)) #@34 Detect a table-type table hline. (defconst org-table1-hline-regexp "^[ ]*\\+-[-+]" (#$ . 15145)) #@103 Detect the first line outside a table when searching from within it. This works for both table types. (defconst org-table-any-border-regexp "^[ ]*[^|+ ]" (#$ . 15250)) #@24 Detect a #+TBLFM line. (defconst org-TBLFM-regexp "^[ ]*#\\+TBLFM: " (#$ . 15426)) (defvar org-table-TBLFM-begin-regexp "^[ ]*|.*\n[ ]*#\\+TBLFM: ") #@60 Regexp matching a line marked for automatic recalculation. (defconst org-table-auto-recalculate-regexp "^[ ]*| *# *\\(|\\|$\\)" (#$ . 15584)) #@50 Regexp matching a line marked for recalculation. (defconst org-table-recalculate-regexp "^[ ]*| *[#*] *\\(|\\|$\\)" (#$ . 15733)) #@48 Regexp matching a line marked for calculation. (defconst org-table-calculate-mark-regexp "^[ ]*| *[!$^_#*] *\\(|\\|$\\)" (#$ . 15870)) #@48 Regexp matching any line outside an Org table. (defconst org-table-border-regexp "^[ ]*[^| ]" (#$ . 16012)) #@53 Regular expression for matching ranges in formulas. (defconst org-table-range-regexp "@\\([-+]?I*[-+]?[0-9]*\\)\\(\\$[-+]?[0-9]+\\)?\\(\\.\\.@?\\([-+]?I*[-+]?[0-9]*\\)\\(\\$[-+]?[0-9]+\\)?\\)?" (#$ . 16128)) #@38 Match a range for reference display. (defconst org-table-range-regexp2 "\\(@[-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]+\\)" (#$ . 16342)) #@66 Match a reference that needs translation, for reference display. (defconst org-table-translate-regexp "\\(@[-0-9I$]+\\|[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)\\)" (#$ . 16585)) #@142 Space used around fields when aligning the table. This space serves as a segment separator for the purposes of the bidirectional reordering. (defconst org-table-separator-space (propertize " " 'display '(space :relative-width 1)) (#$ . 16763)) (defvar org-table-last-highlighted-reference nil) (defvar org-table-formula-history nil) (defvar org-field-marker nil) (defvar org-table-buffer-is-an nil) #@49 Local version of `org-table-formula-constants'. (defvar org-table-formula-constants-local nil (#$ . 17168)) (make-variable-buffer-local 'org-table-formula-constants-local) #@139 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 org-table-may-need-update t (#$ . 17347)) #@225 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. (defvar orgtbl-after-send-table-hook nil (#$ . 17542)) #@108 Alist with column names, derived from the `!' line. This variable is initialized with `org-table-analyze'. (defvar org-table-column-names nil (#$ . 17828)) #@110 Regular expression matching the current column names. This variable is initialized with `org-table-analyze'. (defvar org-table-column-name-regexp nil (#$ . 17991)) #@111 Alist with parameter names, derived from the `$' line. This variable is initialized with `org-table-analyze'. (defvar org-table-local-parameters nil (#$ . 18162)) #@311 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'. (defvar org-table-named-field-locations nil (#$ . 18332)) #@90 Table row types in current table. This variable is initialized with `org-table-analyze'. (defvar org-table-current-line-types nil (#$ . 18706)) #@99 Current table begin position, as a marker. This variable is initialized with `org-table-analyze'. (defvar org-table-current-begin-pos nil (#$ . 18856)) #@92 Number of columns in current table. This variable is initialized with `org-table-analyze'. (defvar org-table-current-ncol nil (#$ . 19014)) #@170 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'. (defvar org-table-dlines nil (#$ . 19161)) #@166 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'. (defvar org-table-hlines nil (#$ . 19380)) #@125 Marker at the beginning of the table last aligned. Used to check if cursor still is in that table, to minimize realignment. (defvar org-table-aligned-begin-marker (make-marker) (#$ . 19595)) #@119 Marker at the end of the table last aligned. Used to check if cursor still is in that table, to minimize realignment. (defvar org-table-aligned-end-marker (make-marker) (#$ . 19793)) #@140 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. (defvar org-table-last-alignment nil (#$ . 19983)) #@116 List of max width of fields in each column. This is being used to correctly align a single field after TAB or RET. (defvar org-table-last-column-widths nil (#$ . 20180)) #@90 Non-nil means debug table formulas. When nil, simply write "#ERROR" in corrupted fields. (defvar org-table-formula-debug nil (#$ . 20356)) (make-variable-buffer-local 'org-table-formula-debug) #@50 Overlay coordinates after each align of a table. (defvar org-table-overlay-coordinates nil (#$ . 20555)) (make-variable-buffer-local 'org-table-overlay-coordinates) (defvar org-last-recalc-line nil) (defvar org-show-positions nil) (defvar org-table-rectangle-overlays nil) #@30 Clipboard for table regions. (defvar org-table-clip nil (#$ . 20834)) (defvar org-timecnt nil) #@99 List of commands triggering the recalculation of a line. Will be filled automatically during use. (defvar org-recalc-commands nil (#$ . 20935)) (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-tbl-calc-modes nil) (defvar org-pos nil) #@84 Expand all columns before executing BODY, then shrink them again. (fn &rest BODY) (defalias 'org-table-with-shrunk-columns '(macro . #[128 "\300\301!\300\302!\300\303!\304\305B\306B\307BE\310\311EE\312\313B\314F\315\316BB\315\317BB\257F\207" [make-symbol "--shrunk-columns" "--begin" "--end" let ((copy-marker (org-table-begin))) ((copy-marker (org-table-end) t)) ((org-table--list-shrunk-columns)) org-with-point-at org-table-expand unwind-protect progn org-table--shrink-columns set-marker (nil) (nil)] 14 (#$ . 21645)])) (put 'org-table-with-shrunk-columns 'edebug-form-spec '(body)) #@75 Save field shrunk state, execute BODY and restore state. (fn &rest BODY) (defalias 'org-table-with-shrunk-field '(macro . #[128 "\300\301!\300\302!\300\303!\304\305B\306\307\310D\311BBED\306\312 \313\nDEEDE\314\315DE\316\317B\314\320 \312\f E\fFEEF\207" [make-symbol "--end" "--shrunk" "--size" let* ((save-match-data (org-table--shrunk-field))) and copy-marker overlay-end (t) - overlay-start when delete-overlay unwind-protect progn move-overlay] 16 (#$ . 22260)])) (put 'org-table-with-shrunk-field 'edebug-form-spec '(body)) #@116 Save current field; execute BODY; restore field. Field is restored even in case of abnormal exit. (fn &rest BODY) (defalias 'org-table-save-field '(macro . #[128 "\300\301!\300\302!\303\304B\305BD\306\307B\310D\311D\312\313BB\257E\207" [make-symbol "--line" "--column" let ((copy-marker (line-beginning-position))) ((org-table-current-column)) unwind-protect progn goto-char org-table-goto-column set-marker (nil)] 12 (#$ . 22818)])) (put 'org-table-save-field 'edebug-form-spec '(body)) #@28 (fn VAR &optional VALUE) (defalias 'org-table--set-calc-mode #[513 ";\203 \301\302\"\262\3038\262A@\262>\203% >A\240\210\202' \210\207" [org-tbl-calc-modes assoc (("D" calc-angle-mode deg) ("R" calc-angle-mode rad) ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t)) 2] 5 (#$ . 23324)]) (put 'org-table--set-calc-mode 'byte-optimizer 'byte-compile-inline-expand) #@69 Non-nil when point (or POS) is in #+TBLFM line. (fn &optional POS) (defalias 'org-at-TBLFM-p #[256 "\212\211\206 `b\210\302 \210\303\304 !)\205 \305\306 !\307=)\207" [case-fold-search org-TBLFM-regexp beginning-of-line t looking-at org-element-type org-element-at-point table] 3 (#$ . 23711)]) #@137 Non-nil if the cursor is inside an Org table. If TABLE-TYPE is non-nil, also check for table.el-type tables. (fn &optional TABLE-TYPE) (defalias 'org-at-table-p #[256 "\300\203 \301\202\n \302!\205+ \303\304!?\206+ \305\306 \307\310#\211\205) \206) \311\312\"\313=\262\207" [org-match-line "[ ]*[|+]" "[ ]*|" derived-mode-p org-mode org-element-lineage org-element-at-point (table) t org-element-property :type org] 5 (#$ . 24016)]) #@44 Non-nil when point is at a table.el table. (defalias 'org-at-table\.el-p #[0 "\300\301!\205 \302 \303!\304=\205 \305\306\"\307=\262\207" [org-match-line "[ ]*[|+]" org-element-at-point org-element-type table org-element-property :type table\.el] 4 (#$ . 24463)]) #@86 Non-nil when point is inside a hline in a table. Assume point is already in a table. (defalias 'org-at-table-hline-p #[0 "\301!\207" [org-table-hline-regexp org-match-line] 2 (#$ . 24738)]) #@284 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. (fn &optional NOERROR ASSUME-TABLE) (defalias 'org-table-check-inside-data-field #[512 "\211\204 \301 \203% \212\302\303x\210n)\204% \304 \204% \305\306\307!)\262?\206. \203+ \303\207\310\311!\207" [inhibit-changing-match-data org-at-table-p " " nil org-at-table-hline-p "[ ]*$" t looking-at user-error "Not in table data field"] 5 (#$ . 24936)]) #@135 Use the table.el package to insert a new table. If there is already a table at point, convert between Org tables and table.el tables. (defalias 'org-table-create-with-table\.el #[0 "\300\301!\210\302 \203 \303\304!\203 \305 \207\306 \203# \303\307!\203# \310 \210\305 \207\311\312!\207" [require table org-at-table\.el-p y-or-n-p "Convert table to Org table? " org-table-convert org-at-table-p "Convert table to table.el table? " org-table-align call-interactively table-insert] 2 (#$ . 25544) nil]) #@359 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'. (fn ARG) (defalias 'org-table-create-or-convert-from-region #[257 "\300 \203 \301\302 \303 #\207\304!\207" [org-region-active-p org-table-convert-region region-beginning region-end org-table-create] 5 (#$ . 26053) "P"]) #@124 Query for a size and insert a table skeleton. SIZE is a string Columns x Rows like for example "3x2". (fn &optional SIZE) (defalias 'org-table-create #[256 "\211\204 \301\302\303Q\304\305$\262`\306i\307\"\310\311\"\312A@!\312@!\313\314\315\316\317\"$\320P\321\322\323\324 `\"\"\203> \325\326!\210\202A \327 \210\330\211W\203U \211c\266\211T\262\202C \266b\210\326V\203i \326\210\331c\210b\210\332 \207" [org-table-default-size read-string "Table size Columns x Rows [e.g. " "]: " "" nil make-string 32 org-split-string " *x *" string-to-number apply concat "|" make-list " |" "\n" string-match "^[ ]*$" buffer-substring-no-properties point-at-bol beginning-of-line 1 newline 0 "\n|-" org-table-align] 13 (#$ . 26632) "P"]) #@889 Convert region to a table. The region goes from BEG0 to END0, but these borders will be moved slightly, to make sure a beginning of line in the first line is included. SEPARATOR specifies the field separator in the lines. It can have the following values: (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 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 - when each line contains a comma, assume CSV material - else, assume one or more SPACE characters as separator. (fn BEG0 END0 &optional SEPARATOR) (defalias 'org-table-convert-region #[770 "^]\301\302\"V\203 \303\304\"\202\305\232\203\" \306\307!\262b\210\310\311!\210\312 \262b\210n\203: \313u\210\202= \311\210\312 \262\204c b\210\314\315\316#\204T \317\202a \314\320\316#\204` \321\202a \311\262b\210\322\232\203\311 `W\203\323\324!\203~ \325c\210\202l \323\326!\203\217 \327\330!\210\310\331!\210\202l \323\332!\203\245 \327\333!\210\323\334!\203l \334c\210\202l \323\335!\203\262 \336\225b\210\202l \323\337!\203\277 \327\340!\210\202l \310\331!\210\202l \202\341\267\202\327 \342\202\376 \343\202\376 \250\203\357 \311W\203\350 \303\344!\202\376 \345\346\"\202\376 ;\203\373 \345\347\"\202\376 \350\351!\262\314\316#\203\327\325\316\211#\210\202 b\210\352 \207" [org-table-convert-region-max-lines nil count-lines user-error "Region is longer than `org-table-convert-region-max-lines' (%s) lines; not converting" (64) read-regexp "Regexp for field separator" beginning-of-line 1 point-marker -1 re-search-forward "^[^\n ]+$" t (16) "^[^\n,]+$" (4) (4) looking-at "^" "| " "[ ]*$" replace-match " |" 2 "[ ]*\"\\([^\"\n]*\\)\"" "\\1" "\"" "[^,\n]+" 0 "[ ]*," " | " #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 207 (16) 211)) "^\\|\"?[ ]*,[ ]*\"?" "^\\| " "Number of spaces in separator must be >= 1" format "^ *\\| * *\\| \\{%d,\\}" "^ *\\|%s" error "This should not happen" org-table-align] 10 (#$ . 27384) "r\nP"]) #@695 Import FILE as a table. 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 - when each line contains a comma, assume CSV material - else, assume one or more SPACE characters as separator. When non-nil, SEPARATOR specifies the field separator in the lines. It can have the following values: (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. (fn FILE SEPARATOR) (defalias 'org-table-import #[514 "n\204 \300c\210`d\301!\210\302`dZ\\#\207" ["\n" insert-file-contents org-table-convert-region] 9 (#$ . 29750) "f\nP"]) #@538 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. (defalias 'org-table-convert #[0 "\300\301!\210\302 \203- \303\304\305!!\303\306\305!!\307\"\210b\210\310\311\305#\203* \312\313!\210\202 b\207\314 \205\226 \303\304 !\303\306 !b\210\310\315\305#\203L \312\313!\210\202= b\210\316\317!\210\320\321!\210\320\322!\210`W\203g \316 \210\202W b\210\211\306 \323\223\262\310\324\305#\203\200 \312\325!\210\202q b\210\310\326\305#\203\222 \312\327!\210\202\203 b\266\202\207" [require table org-at-table\.el-p copy-marker org-table-begin t org-table-end table-unrecognize-region re-search-forward "^\\([ ]*\\)\\+-.*\n" replace-match "" org-at-table-p "^\\([ ]*\\)|-.*\n" org-table-insert-hline above beginning-of-line -1 3 nil "^\\([ ]*\\)|-" "\\1+-" "-|[ ]*$" "-+"] 6 (#$ . 30610) nil]) #@221 Find the beginning of the table and return its position. 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. (fn &optional TABLE-TYPE) (defalias 'org-table-begin #[256 "\211\203\n \301\302\303 \"\207\212\304\305\306#\205 \307\310!)\206 e\207" [org-table-border-regexp org-element-property :post-affiliated org-element-at-point re-search-backward nil t line-beginning-position 2] 5 (#$ . 31904)]) #@209 Find the end of the table and return its position. 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. (fn &optional TABLE-TYPE) (defalias 'org-table-end #[256 "\212\211\203 \301\302\303 \"b\210\304\305x\210\306\307!\2024 \310\305\311#\203# \312\224\2024 db\210\313\305x\210n\2032 `\2024 \314 )\207" [org-table-border-regexp org-element-property :end org-element-at-point " \n" nil line-beginning-position 2 re-search-forward t 0 " " line-end-position] 5 (#$ . 32395)]) #@124 Go to the next field in the current table, creating new lines as needed. Before doing so, re-align the table if necessary. (defalias 'org-table-next-field #[0 "\303 \210\304 \210\203 \203 \305 \210\306 \307 \203 \310\210\3111a \312\313\"\210\314\315!\203/ \312\313\"\210\314\316!\203E \n\203E \312\317\320#\203E \310\224b\210\314\316!\203U \321\322!\210\323\324!\202] \314\325!\205] \310u0\202e \210\323\324!\207" [org-table-automatic-realign org-table-may-need-update org-table-tab-jumps-over-hlines org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-align org-table-end org-at-table-hline-p 1 (error) re-search-forward "|" looking-at "[ ]*$" "-" "^[ ]*|\\([^-]\\)" t beginning-of-line 0 org-table-insert-row below " "] 5 (#$ . 32955) nil]) #@90 Go to the previous field in the table. Before doing so, re-align the table if necessary. (defalias 'org-table-previous-field #[0 "\303 \210\304 \210\203 \203 \305 \210\306 \203 \307\210\310 `\3111? \312\313\307\314$\210\315\316\317!)\262\205; \312\313\"\210\202' 0\202F \210\211b\210\320\321!\266\317\322!\205Q \323\225b\207" [org-table-automatic-realign org-table-may-need-update inhibit-changing-match-data org-table-justify-field-maybe org-table-maybe-recalculate-line org-table-align org-at-table-hline-p nil org-table-begin (error) search-backward "|" 2 "|\\(?:-\\|[ ]*$\\)" t looking-at user-error "Cannot move to previous table field" "| ?" 0] 7 (#$ . 33735) nil]) #@210 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. (fn &optional N) (defalias 'org-table-beginning-of-field #[256 "`\300V\203 S\262\301 \210\202 \302\303\304\305!\306#\204\" \307\310!\210\202/ \305\225b\210\311\312!\203/ \300u\210`Y\2058 \313\314!\207" [1 org-table-previous-field re-search-backward "|" point-at-bol 0 t user-error "No more table fields before the current" looking-at " " org-table-beginning-of-field 2] 6 (#$ . 34427) "p"]) #@192 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. (fn &optional N) (defalias 'org-table-end-of-field #[256 "`\300V\203 S\262\301 \210\202 \302\303\304\300!\305#\2038 \306u\210\307\310x\210`\206' `Sf\311\232\2038 `f\312\232\2038 \300u\210`X\205A \313\314!\207" [1 org-table-next-field re-search-forward "|" point-at-eol t -1 " " nil 124 32 org-table-end-of-field 2] 6 (#$ . 35023) "p"]) #@106 Go to the next row (same column) in the current table. Before doing so, re-align the table if necessary. (defalias 'org-table-next-row #[0 "\302 \210\303 \210\203 \203 \304 \210\305 \306\307!\210n\204 \310c\210\311 \203( \312 \2030 \306\313!\210\314\315!\210\316!\210\317\320x\210\321\322!\205@ \320u\207" [org-table-automatic-realign org-table-may-need-update org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-align org-table-current-column beginning-of-line 2 "\n" org-at-table-p org-at-table-hline-p 0 org-table-insert-row below org-table-goto-column "^|\n " nil looking-at " "] 3 (#$ . 35546) nil]) #@309 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. (fn LINE COLUMN) (defalias 'org-table-get #[514 "\211\206 \300 \262\212\203 \301!\205+ \302!\303\304\203 \305\202! \306\307\304\310\307##\266\202)\207" [org-table-current-column org-table-goto-line org-table-get-field nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 11 (#$ . 36184)]) #@125 Put VALUE into line LINE, column COLUMN. When ALIGN is set, also realign the table. (fn LINE COLUMN VALUE &optional ALIGN) (defalias 'org-table-put #[1027 "\206 \300 \262\212\203 \301!\205 \302\303\304#\210\305\")\203% \306 \210\207" [org-table-current-column org-table-goto-line org-table-goto-column nil force org-table-get-field org-table-align] 8 (#$ . 36809)]) #@44 Return the index of the current data line. (defalias 'org-table-current-line #[0 "`\301 \302\212\303 b\210\304\305#\203 \211T\211\262\203 \306 W\204 )\207" [org-table-dataline-regexp org-table-end 0 org-table-begin re-search-forward t point-at-eol] 7 (#$ . 37193)]) #@31 Return current column number. (defalias 'org-table-current-column #[0 "\212`\300 \210\301\302\303#\204 \304\202. \305\306 \203 \307\202 \302\310\303#\203+ T\262\202 \266\202\262)\207" [beginning-of-line search-forward "|" t 0 1 org-at-table-hline-p "[+|]" re-search-forward] 7 (#$ . 37472) nil]) #@74 Find out what table data line we are in. Only data lines count for this. (defalias 'org-table-current-dline #[0 "\212\301\302 \303 b\210`X\203 \304!\203 T\262\305y\210\202 \266\202)\207" [org-table-dataline-regexp 0 line-beginning-position org-table-begin looking-at nil] 4 (#$ . 37785)]) #@112 Go to the Nth data line in the current table. Return t when the line exists, nil if it does not exist. (fn N) (defalias 'org-table-goto-line #[257 "\301 b\210\302 \303\304\305#\203 \211T\211\262W\204 \211U\207" [org-table-dataline-regexp org-table-begin org-table-end 0 re-search-forward t] 7 (#$ . 38089)]) #@49 Blank the current table field or active region. (defalias 'org-table-blank-field #[0 "\301 \210\302\303!\203 \304 \203 \305\306\307 \310 \")\207\311\305x\210\312u\210\313\314!\205B \315\224\316\315!\317!\320\321\322S\323\"P!\210\324\\b\210\325\326\"\266\203\207" [org-table-clip org-table-check-inside-data-field called-interactively-p any org-region-active-p nil org-table-cut-region region-beginning region-end "^|" -1 looking-at "|[^|\n]+" 0 match-string org-string-width replace-match "|" make-string 32 2 substring 1] 8 (#$ . 38411) nil]) #@214 Return the value of the field in column N of current row. N defaults to current column. If REPLACE is a string, replace field with this value. The return value is always the old value. (fn &optional N REPLACE) (defalias 'org-table-get-field #[512 "\203 \301!\210\302\303x\210n\204 \304\305\306!)\262\203 \307\207\306\310!\210\311\224\211\311\225{\203\200 \312 \313\311\314\315\316!\317\"\320$\216\321 )\262\211\205I \322\323!\305\"\205R \211\324!Z\203Z \325!\210\313\311\326\315\316#\327\"\330$\216\331\307\232\203w \332\202y \305\211#\210)\266\333 T^b\210\207" [inhibit-changing-match-data org-table-goto-column "^|\n" nil "[ ]*$" t looking-at "" "[^| \n]*" 0 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table--shrunk-field copy-marker overlay-end overlay-start delete-overlay "\300\205 \303\300\301\302Z\301#\207" [move-overlay] 4 replace-match " " line-end-position] 15 (#$ . 38969)]) #@84 Show info about the current field, and highlight any reference at point. (fn ARG) (defalias 'org-table-field-info #[257 "\303 \204 \304\305!\210\306 \210\212`\307 \310\311!\"@\310\312 \313 \"D\n\"@\314\315\316\317 \"!\320 \321\322#\323!\324\"\206? \324\"\324\321\325\n\"\"\206M \211\211\205W \326\327\330@#\211\203^ \211\262\210\nb\210\3311n \332\333!0\202r \210\202s \210\334\335\f\f\203\205 \336 P\202\206 \337\n\n\203\230 \336P\202\231 \337 \203\304 \340\341\342\343 @\"\204\262 \342\344 @\"\203\266 \337\202\267 \343\f@\345AR!P\202\305 \337& \266\213)\207" [org-table-column-names org-table-current-begin-pos org-table-named-field-locations org-at-table-p user-error "Not at a table" org-table-analyze org-table-current-column rassoc int-to-string count-lines line-beginning-position org-table-expand-lhs-ranges mapcar #[257 "\300@!AB\207" [org-table-formula-handle-first/last-rc] 3 "\n\n(fn E)"] org-table-get-stored-formulas org-table-current-dline format "@%d$%d" org-table-convert-refs-to-an assoc "$%d" get-text-property 0 :orig-eqn (error) org-table-show-reference local message "line @%d, col $%s%s, ref @%d$%d or %s%s%s" " or $" "" ", formula: " org-table-formula-to-user string-prefix-p "$" "@" "="] 27 (#$ . 39947) "P"]) #@445 Move point to a specific field in the current table. 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'). (fn REF &optional CREATE-COLUMN-P) (defalias 'org-table-goto-field #[513 "\303\"A\2062 \304\305\"\203. \3061 \307\310\311\"!H0\202$ \210\312\313\"\307\310\314\"!D\2022 \312\315\"\211@A@\316!\203C !\202D \205S \nb\210y\210\317\320#\207" [org-table-named-field-locations org-table-dlines org-table-current-begin-pos assoc string-match "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" (error) string-to-number match-string 1 user-error "Invalid row number in %s" 2 "Unknown field: %s" functionp org-table-goto-column nil] 10 (#$ . 41230)]) #@319 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. (fn N &optional ON-DELIM FORCE) (defalias 'org-table-goto-column #[769 "\300\301!\210\302V\205O S\211\262\303V\203. \304\305\306 \307#\204\n \211\203. \301\210\310\311x\210\312c\210\202\n \211\203@ \313\314!\204@ \212\301\210\312c\210)\203G \303u\207\313\315!\205O \301u\207" [beginning-of-line 1 0 -1 search-forward "|" point-at-eol t "^|" nil " | " looking-at ".*|" " "] 7 (#$ . 42199) "p"]) #@37 Insert a new column into the table. (defalias 'org-table-insert-column #[0 "\301 \204 \302\303!\210\304 \210\305\306 ]\307 \310\311 !\312 \313\"\210\212b\210`W\203J \314 \204D \315\316\"\210\317\320\321 \316\322$\204A \323\210\320c\210\324c\210\323y\210\202! )\315T!\210\325 \210\326\327\330\331\332\333\334\n!\335\"\336\337%\"#\210\323\211\223\210\203w \340!\205\210 \341\342\323S\305$\210\341\343\323S\305$\207" [org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" org-table-find-dataline 1 org-table-current-column org-table-begin copy-marker org-table-end org-table--list-shrunk-columns org-table-expand org-at-table-hline-p org-table-goto-column t search-forward "|" line-end-position 2 nil " |" org-table-align org-table--shrink-columns mapcar make-byte-code 257 "\211\300X\203 \207\211T\207" vconcat vector [] 3 "\n\n(fn C)" "Fix formulas? " org-table-fix-formulas "$" "$LR"] 12 (#$ . 42891) nil]) #@169 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. (defalias 'org-table-find-dataline #[0 "\300 ?\206. i\301 \302y\210`W\203 \300 \203 \302y\210\202\f `Y\203' \303\304!\210\305!\210\306\266\202\207" [org-at-table-hline-p org-table-end nil user-error "Cannot find data row for column operation" org-move-to-column t] 4 (#$ . 43846)]) #@284 Turn a buffer line number into a data line number. If there is no data line in this line, return nil. 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. (fn LINE &optional ABOVE) (defalias 'org-table-line-to-dline #[513 "\301GSHV\204 HW\203 \302\202~ HU\203$ \211\202~ \3032~ \211Z\301V\203\\ \211\\\304\245H\211U\203G \305\303\"\210\202W \211V\203T \262\202W \262\266\202( HU\203h \211\202} HU\203t \202} \203| \202} \2110\207" [org-table-dlines 1 nil exit 2 throw] 9 (#$ . 44308)]) #@204 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. (fn ROW1 COL1 ROW2 COL2) (defalias 'org-table--swap-cells #[1028 "\300\"\300\"\301#\210\301#\207" [org-table-get org-table-put] 10 (#$ . 44938)]) #@251 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. (fn DIRECTION) (defalias 'org-table--move-cell #[257 "\211\302\267\202 \303\202 \304\202 \305\306\267\202 \303\202 \304\202 \305\305U\203/ \211\305U\203/ \307\310\"\210\311 \210\312 \313 \\\\GS\304W\204W \304W\204W V\204W V\203[ \314\315!\210\316$\210\317!\210\320!\266\205\207" [org-table-dlines org-table-current-ncol #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up 6 down 10)) -1 1 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 21 right 25)) error "Invalid direction: %S" org-table-analyze org-table-current-line org-table-current-column user-error "Cannot move cell further" org-table--swap-cells org-table-goto-line org-table-goto-column] 13 (#$ . 45281)]) #@70 Move a single cell up in a table. Swap with anything in target cell. (defalias 'org-table-move-cell-up #[0 "\300 \204 \301\302!\210\303\304!\210\305 \207" [org-table-check-inside-data-field error "No table at point" org-table--move-cell up org-table-align] 2 (#$ . 46298) nil]) #@72 Move a single cell down in a table. Swap with anything in target cell. (defalias 'org-table-move-cell-down #[0 "\300 \204 \301\302!\210\303\304!\210\305 \207" [org-table-check-inside-data-field error "No table at point" org-table--move-cell down org-table-align] 2 (#$ . 46583) nil]) #@72 Move a single cell left in a table. Swap with anything in target cell. (defalias 'org-table-move-cell-left #[0 "\300 \204 \301\302!\210\303\304!\210\305 \207" [org-table-check-inside-data-field error "No table at point" org-table--move-cell left org-table-align] 2 (#$ . 46874) nil]) #@73 Move a single cell right in a table. Swap with anything in target cell. (defalias 'org-table-move-cell-right #[0 "\300 \204 \301\302!\210\303\304!\210\305 \207" [org-table-check-inside-data-field error "No table at point" org-table--move-cell right org-table-align] 2 (#$ . 47165) nil]) #@33 Delete a column from the table. (defalias 'org-table-delete-column #[0 "\301 \204 \302\303!\210\304 \210\305\306\307\"\210\310 \311 \312\313 !\314\315 \"\316\"\210\312\317 !\310 \320\321\322\323\324\"\325\"\326$\216b\210`W\203\\ \327 \204V \330\307\"\210\331\332!\203V \333\334!\210\306y\210\202; )\266\330\335S]!\210\336 \210\337\340\320\341\342\323\324\n!\343\"\326\344%\"#\210\306\211\223\210\203\215 \345!\205\254 \346\347\350!\351BC\352%\210\346\353\350!\351BC\352%\207" [org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" org-table-find-dataline org-table-check-inside-data-field nil t org-table-current-column org-table-begin copy-marker org-table-end remq org-table--list-shrunk-columns org-table-expand line-beginning-position make-byte-code 0 "\300b\210\302\301!\210\300\303\211\223\207" vconcat vector [org-table-goto-column nil] 3 org-at-table-hline-p org-table-goto-column looking-at "|[^|\n]+|" replace-match "|" 1 org-table-align org-table--shrink-columns mapcar 257 "\211\300W\203 \207\211S\207" [] "\n\n(fn C)" "Fix formulas? " org-table-fix-formulas "$" number-to-string "INVALID" -1 "$LR"] 13 (#$ . 47459) nil]) #@27 Move column to the right. (defalias 'org-table-move-column-right #[0 "\300\301!\207" [org-table-move-column nil] 2 (#$ . 48653) nil]) #@26 Move column to the left. (defalias 'org-table-move-column-left #[0 "\300\301!\207" [org-table-move-column left] 2 (#$ . 48793) nil]) #@94 Move the current column to the right. With arg LEFT, move to the left. (fn &optional LEFT) (defalias 'org-table-move-column #[256 "\301 \204 \302\303!\210\304 \210\305\306\307\"\210\310 \203 \211S\202 \211\203& S\202( T\311 \312\313 !\203< \314U\203< \302\315!\210\204J \316\317!\203J \302\320!\210\321 \322\"\210\312\323 !\310 \324\325\326\327\330\"\331\"\332$\216b\210`W\203\221 \333 \204\213 \334\307\"\210\316\335!\203\213 \336\314\224\314\225\337\224\337\225$\210\306y\210\202i )\266\334!\210\340 \210\341\342\324\343\344\327\330 \"\345\"\332\346%\"#\210\306\211\223\210\203\301 \347!\205\356 \350\351\352!\352!B\352!\352\n!BD\"\210\350\353\352!\352!B\352!\352\n!BD\"\262\207" [org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" org-table-find-dataline org-table-check-inside-data-field nil t org-table-current-column org-table-begin copy-marker org-table-end 1 "Cannot move column further left" looking-at "[^|\n]*|[^|\n]*$" "Cannot move column further right" org-table--list-shrunk-columns org-table-expand line-beginning-position make-byte-code 0 "\300b\210\302\301!\210\300\303\211\223\207" vconcat vector [org-table-goto-column nil] 3 org-at-table-hline-p org-table-goto-column "|\\([^|\n]+\\)|\\([^|\n]+\\)|" transpose-regions 2 org-table-align org-table--shrink-columns mapcar 257 "\301U\203 \300\203 \211S\207\301U\203 \211T\207\301TU\203$ \300\203$ \211T\207\301SU\2034 \300\2044 \211S\2065 \211\207" [] "\n\n(fn C)" "Fix formulas? " org-table-fix-formulas "$" number-to-string "$LR"] 16 (#$ . 48932) "P"]) #@22 Move table row down. (defalias 'org-table-move-row-down #[0 "\300\301!\207" [org-table-move-row nil] 2 (#$ . 50537) nil]) #@20 Move table row up. (defalias 'org-table-move-row-up #[0 "\300\301!\207" [org-table-move-row up] 2 (#$ . 50665) nil]) #@80 Move the current table line down. With arg UP, move it up. (fn &optional UP) (defalias 'org-table-move-row #[256 "i`\212\302\303!\210\304!)\305 \211\203 \306\202 \303\\\203 \307\202! \310\311\2032 e\312 U\2032 \313\314!\210\302!\210\204? m\204D \315 \204K b\210\313\314!\210\316\317 !\316\320 \321\"\322 \212\323!\203c \324!q\210\212\214~\210\211\206l `b\210\325\"\210+\210\326\307\327\330\331#\332\"\333$\216\304!\262b\210\334\312 \312\310!\"\302!\210n\204\242 \335c\210\211c\210n\204\254 \335c\210\302\307!\210\336 !\210\206\307 \206\307 ?\206\306 \337!??\205\341 \340\341\342\n!\342\n!B\342\n!\342\f!BD\"\262)\266\203\207" [org-table-hline-regexp org-table-fix-formulas-confirm beginning-of-line 1 looking-at org-table-current-dline -1 0 2 nil line-beginning-position user-error "Cannot move row further" org-at-table-p copy-marker org-table-begin org-table-end t org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 delete-and-extract-region "\n" org-move-to-column "Fix formulas? " org-table-fix-formulas "@" number-to-string] 19 (#$ . 50788) "P"]) #@125 Insert a new row above the current line into the table. With prefix ARG, insert below the current line. (fn &optional ARG) (defalias 'org-table-insert-row #[256 "\303 \204 \304\305!\210\306\307 !\306\310 \311\"\312 \212\313!\203! \314!q\210\212\214~\210\211\206* `b\210\315\"\210+\210\316\317\320\321\322#\323\"\324$\216\325 \326 {\327!\330\331\"\203^ \332\333\317\"\311\211$\262\334\203h \335\202i \336!\210n\204r \337c\210\340\341\337\"\210)\334\317!\210\342\343\326 \311#\210\204\215 \203\220 \344 \210\n\203\232 \n\345!\205\242 \346\347\340\350 S\336$\266\202)\207" [org-table-may-need-update org-table-overlay-coordinates org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" copy-marker org-table-begin org-table-end t org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code 0 "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 line-beginning-position line-end-position org-table-clean-line string-match "^[ ]*| *[#*$] *|" replace-match match-string beginning-of-line 2 1 "\n" nil insert-before-markers re-search-forward "| ?" org-table-align "Fix formulas? " org-table-fix-formulas "@" org-table-current-dline] 12 (#$ . 52036) "P"]) #@137 Insert a horizontal-line below the current line into the table. With prefix ABOVE, insert above the current line. (fn &optional ABOVE) (defalias 'org-table-insert-hline #[256 "\302 \204 \303\304!\210m\203 \212\305c\210)\306\307\310 \203 `\202 \311 {\262\307\312\313#)\266\203\2044 \314 \210\315\316 !\315\317 \312\"\320 \212\321!\203L \322!q\210\212\214~\210\211\206U `b\210\323\"\210+\210\324\325\326\327\330#\331\"\332$\216\333\334 \335 {!i\313\336\"\203\223 \337\340\341\342\225\342\224Z\343\"\344Q\312\211$\262\202w \313\345\"\203\242 \337\344\312\211$\262\346\203\254 \342\202\255 \347!\210\305\261\210\346\203\276 \342\202\277 \350!\210\351!\210 \205\313 \314 \266\202)\207" [inhibit-changing-match-data org-table-overlay-coordinates org-at-table-p user-error "Not at a table" "\n" "|[ ]*$" nil line-beginning-position line-end-position t string-match org-table-align copy-marker org-table-begin org-table-end org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code 0 "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 org-table-clean-line point-at-bol point-at-eol "|\\( +\\)|" replace-match "+" make-string 1 45 "|" "\\+" beginning-of-line 2 -1 org-move-to-column] 12 (#$ . 53319) "P"]) #@81 Insert a hline and move to the row below that line. (fn &optional SAME-COLUMN) (defalias 'org-table-hline-and-move #[256 "\300 \301 \210\302 \210\303 \210\304\210\305\306!\203 \307c\210\310 \210\202 \311 \210\205' \312!\207" [org-table-current-column org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-insert-hline 2 looking-at "\n[ ]*|-" "\n|" org-table-align org-table-next-field org-table-goto-column] 4 (#$ . 54647) "P"]) #@134 Convert a table line S into a string with only "|" and space. In particular, this does handle wide and invisible characters. (fn S) (defalias 'org-table-clean-line #[257 "\300\301\"\203 \302\303\304#\211\262\207\300\305\"\203. \306\307\310\311\312\313\"!\314\"\307Q\315\211$\262\202 \207" [string-match "^[ ]*|-" mapconcat #[257 "\211\300\235\203 \301\207\302\207" [(124 43) "|" " "] 3 "\n\n(fn X)"] "" "|\\([ ]*?[^ \n|][^ \n|]*\\)|" replace-match "|" make-string org-string-width match-string 1 32 t] 8 (#$ . 55108)]) #@59 Delete the current row or horizontal line from the table. (defalias 'org-table-kill-row #[0 "\302 \204 \303\304!\210i\305!?\205 \306 \307\310 !\307\311 \312\"\313 \212\314!\203+ \315!q\210\212\214~\210\211\2064 `b\210\316\"\210+\210\317\320\321\322\323#\324\"\325$\216\326\327 \330 Td^\"\210\302 \204a \331\320!\210\332!\210\205\202 \203s \333!\205\202 \334\335\336!\337BC\340%)\266\203\207" [org-table-hline-regexp org-table-fix-formulas-confirm org-at-table-p user-error "Not at a table" org-match-line org-table-current-dline copy-marker org-table-begin org-table-end t org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code 0 "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 kill-region point-at-bol point-at-eol beginning-of-line org-move-to-column "Fix formulas? " org-table-fix-formulas "@" number-to-string "INVALID" -1] 13 (#$ . 55649) nil]) #@143 Copy region in table to the clipboard and blank all relevant fields. If there is no active region, use just the field at point. (fn BEG END) (defalias 'org-table-cut-region #[514 "\300\301#\207" [org-table-copy-region cut] 6 (#$ . 56625) (byte-code "\300 \203\n \301 \202 `\300 \203 \302 \202 `D\207" [org-region-active-p region-beginning region-end] 2)]) #@633 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. (fn FIELD PREVIOUS) (defalias 'org-table--increment-field #[514 "\247\203 \202\n \301\302\303\304\305\306\307\310\311\312 !\313\"\314\315%\316\f$\f$B\317\320:\203\375@\211:\203\366\211@\211\321\267\202\357A\211:\203\334 \211@A\211:\203\325 \211A\211\204\316 A\211:\203\302 \211@\211\322=\203\266 A\211:\203\252 \211@A\211:\203\235 \211A\211\204\220 \"\266\202\202\230 !\262\262\202\245 !\262\266\202\202\261 !\262\262\202\275 !\262\262\202\311 \f!\262\262\202\320 \262\202\327 \266\202\202\336 \262\202\361A\211:\203\216\211@A\211:\203\207\211@A\211\204\200 A\211:\203s\211@\211\323=\203fA\211:\203X\211@A\211:\203J\211@A\211\204<\n \232\2054\"P\266\204\202E\n #\266\202\202S\f #\266\202\202a\n #\262\202n #\262\202{ #\262\202\202\266\202\202\211\266\202\202\220\262\202\361A\211:\203@\211@A\211:\2039\211@A\211\2042 A\211:\203%\211@\211\324=\203A\211:\203\n\211@A\211:\203\374\211@A\211\204\356\n \232\205\347\"P\266\204\202\367\n #\266\202\202 #\266\202\202 #\262\202 \n#\262\202- #\262\2024\266\202\202;\266\202\202B\262\202\361A\211:\203\350\211@A\211:\203\341\211A\211\204\332A\211:\203\314\211@\211\325=\203\276A\211:\203\260\211@A\211:\203\241\211A\211\204\222 #\266\202\202\234\"\262\262\202\253\"\262\266\202\202\271 \"\262\262\202\307\f\"\262\262\202\325 \"\262\262\202\334\262\202\343\266\202\202\352\262\202\361 \262\202\370\f\262\202\377 \266\203\207" [org-table-copy-increment 1 "\\`[+-]?\\(?:[[:digit:]]+\\.?\\|[[:digit:]]*\\.[[:digit:]]+\\)\\(?:[Ee]\\(?:[+-]?[[:digit:]]+\\)?\\)?\\'" "\\`[[:digit:]]+" "[[:digit:]]+\\'" #[1028 "\302!\204 \303\207\303\304\305#)\266\203\203 \306\307!\303E\207\305\"\2034 \310\307\311\312\"!\313\312\225\"E\207\305\"\203J \314\307\311\312\"!\313\312\211\224#E\207 \303\304\305#)\266\203\203_ \315\303E\207\303\207" [inhibit-changing-match-data org-ts-regexp3 org-string-nw-p nil t string-match number string-to-number prefix match-string 0 substring suffix timestamp] 11 "\n\n(fn NUMBER-REGEXP NUMBER-PREFIX-REGEXP NUMBER-SUFFIX-REGEXP FIELD)"] make-byte-code 513 "\301\203 \211Z\\\202 \300\\!\207" vconcat vector [number-to-string] 6 "\n\n(fn N1 &optional N2)" #[770 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210\311\204 \202& \312!\312!Z!\210\313 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-timestamp-up-day org-time-string-to-absolute buffer-string] 10 "\n\n(fn DEFAULT-STEP T1 &optional T2)"] #[771 "!P\207" #1=[] 6 "\n\n(fn NEXT-NUMBER-STRING P N)"] #[771 "!P\207" #1# 5 "\n\n(fn NEXT-NUMBER-STRING P N)"] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (number 71 prefix 227 suffix 405 timestamp 583)) number prefix suffix timestamp] 35 (#$ . 56994)]) #@871 Copy the value of the current field one row below. 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. 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. If the variable `org-table-copy-increment' is non-nil and the 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. (fn N) (defalias 'org-table-copy-down #[257 "\303 \210\304 \305 \212\306\307 !\211\205& \211\310\311\203 \312\202 \313\314\311\315\314##\266\202\262)\310\211\211\212\2037 \262\202\213 \316 \210\3172\211 \320\321#\203\205 \306\307!!\322V\203` \211\203` S\262\202~ \211\203~ \323\317\310\311\203q \312\202r \313\314\311\315\314##\266\202\"\210\316 \266\202> \324\325!0\262 \203\322 \326U\204\322 \247\204\314 \327 U?\205\254 \330y\210\331 \210\307!\306!\205\310 \211\310\311\203\275 \312\202\276 \313\314\311\315\314##\266\202\262\262\332\"\262)\203\340 \310\333 \210)\334 \210\211\206\345 c\210\335 \210\336 \207" [org-table-dataline-regexp org-table-copy-increment org-table-may-need-update org-table-check-inside-data-field org-table-begin org-table-current-column org-string-nw-p org-table-get-field nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" beginning-of-line :exit re-search-backward t 1 throw user-error "No non-empty field found" 0 line-beginning-position -1 org-at-table-hline-p org-table--increment-field org-table-next-row org-table-blank-field org-table-maybe-recalculate-line org-table-align] 19 (#$ . 60723) "p"]) #@222 Copy rectangular region in table to clipboard. 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. (fn BEG END &optional CUT) (defalias 'org-table-copy-region #[770 "^b\210\301 \210\302 \303 \304]b\210\301\304\305\"\210\306\307 !\303 ^]\211ZT\205- \310b\210`W\203k \311 \204e \304\312\211W\203[ \211\313 \\\"B\262\210\211T\262\202@ \266\211\237B\262\210\304y\210\2021 \304\211\223\266\203x \314 \210\315\316\317!!\210\211\237\211\207" [org-table-clip org-table-check-inside-data-field line-beginning-position org-table-current-column nil t copy-marker line-end-position " " org-at-table-hline-p 0 org-table-get-field org-table-align message substitute-command-keys "Cells in the region copied, use \\[org-table-paste-rectangle] to paste them in a table."] 19 (#$ . 62798) (byte-code "\301 \203\n \302 \202 `\301 \203 \303 \202 `E\207" [current-prefix-arg org-region-active-p region-beginning region-end] 3)]) #@274 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. (defalias 'org-table-paste-rectangle #[0 ":\204 \302\303!\210\304 \210\305 \306\307\310 !\305 \311\312\313\314\315\"\316\"\317$\216\211\203q \211@\320 \2037 \306y\210\202, n\203G \321\322!\204G \312\210\323 \210\211\203e \211@\324\306\325#\210\326\306\"\210T\262A\266\202\202I \266\306y\210A\266\202\202& \210)\266\327 )\207" [org-table-clip org-table-automatic-realign user-error "First cut/copy a region to paste!" org-table-check-inside-data-field org-table-current-column nil copy-marker line-beginning-position make-byte-code 0 "\300b\210\302\301!\210\300\303\211\223\207" vconcat vector [org-table-goto-column nil] 3 org-at-table-hline-p looking-at "[ ]*|" org-table-next-field org-table-goto-column force org-table-get-field org-table-align] 12 (#$ . 63846) nil]) #@123 Non-nil if Org-Table-Follow-Field mode is enabled. Use the command `org-table-follow-field-mode' to change this variable. (defvar org-table-follow-field-mode nil (#$ . 64917)) (make-variable-buffer-local 'org-table-follow-field-mode) #@558 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'). If called interactively, enable Org-Table-Follow-Field mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. (fn &optional ARG) (defalias 'org-table-follow-field-mode #[256 "\302 \303=\203 ?\202 \304!\305V\211\203! \306\307\310\311\312$\210\202M \313\307\310\312#\210\314\315!\211\2051 \316!\211\2039 \317!\210\203K rq\210 \320\211\223\210)\321!\210\266\322\323\203W \324\202X \325\"\210\326\327!\203| \302 \203l \211\302 \232\203| \330\331\332\203w \333\202x \334#\266\210\335 \210\207" [org-table-follow-field-mode org-field-marker current-message toggle prefix-numeric-value 0 add-hook post-command-hook org-table-follow-fields-with-editor append local remove-hook get-buffer "*Org Table Edit Field*" get-buffer-window delete-window nil kill-buffer run-hooks org-table-follow-field-mode-hook org-table-follow-field-mode-on-hook org-table-follow-field-mode-off-hook called-interactively-p any " in current buffer" message "Org-Table-Follow-Field mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 65158) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) (defvar org-table-follow-field-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [org-table-follow-field-mode-map org-table-follow-field-mode-hook variable-documentation put "Hook run after entering or leaving `org-table-follow-field-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode org-table-follow-field-mode " TblFollow" boundp nil] 6) #@343 Edit table field in a different window. This is mainly useful for fields that contain hidden parts. When called with a `\[universal-argument]' prefix, just make the full field visible so that it can be edited in place. When called with a `\[universal-argument] \[universal-argument]' prefix, toggle `org-table-follow-field-mode'. (fn ARG) (defalias 'org-table-edit-field #[257 "\306 \204 \307\310!\210\211\311\232\203 \300\203 \312\202 \313!\207\211\203@ \212\314\315x\210`)\212\316\315w\210`)\317\320#\210\321\301!\205? \205? \322 \207\323 \n\324=\203T \325\326 !\327\330 !P\202_ \331\327\330 !\332\327\326 !R\333 \334 \315b\210\335\336!\210\337\303!\203| \340 !\203| \315\211\223\210\341 \210\342\343\261\210\324 \344 \210)\345\312!\210\315\3242d\211\262b\210\315\346\203\245 \347\202\246 \350\351\346\352\351##\266\202c\210\317d\353#\210\211b\210\354\355!\210\356-\354\357!\210/\354\303!\210\360\361!\207" [org-table-follow-field-mode font-lock-mode org-table-use-standard-references org-field-marker org-inhibit-startup truncate-lines org-at-table-p user-error "Not at a table" (16) -1 1 "^|" nil "^| \n" remove-text-properties (invisible t intangible t) boundp font-lock-fontify-block point-marker t org-number-to-letters org-table-current-column int-to-string org-table-current-dline "@" "$" org-table-get-field current-window-configuration org-switch-to-buffer-other-window "*Org Table Edit Field*" local-variable-p markerp erase-buffer "#\n# Edit field " " and finish with C-c C-c\n#\n" org-mode auto-fill-mode replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" (invisible t intangible t) make-local-variable org-finish-function org-table-finish-edit-field org-window-configuration message "Edit and finish with C-c C-c" word-wrap] 15 (#$ . 67185) "P"]) (defalias 'org-table-follow-fields-with-editor #[0 "\203 \301 \204 \302\303!\207\304\305!\205! \306 \307\310!\210\311 \210\312!\262\207" [org-table-exit-follow-field-mode-when-leaving-table org-at-table-p org-table-follow-field-mode -1 org-table-check-inside-data-field noerror selected-window org-table-edit-field nil org-fit-window-to-buffer select-window] 3]) #@148 Finish editing a table data field. Remove all newline characters, insert the result into the table, realign the table and kill the editing buffer. (defalias 'org-table-finish-edit-field #[0 " p\302eb\210\303\304\302\305#\203 \306\307!\210\202 \303\310\302\305#\203% \306\311!\210\202 \312 \302\313\2031 \314\2022 \315\307\313\316\307##\266\202\262\317!\210\320!\210\321\322\323!!!\210b\210\302\211\223\210\324 \210\325\302\"\210\326 \210\327\330!\207" [org-field-marker org-window-configuration nil re-search-forward "^#.*\n?" t replace-match "" "\\([ ]*\n[ ]*\\)+" " " buffer-string replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'" set-window-configuration kill-buffer select-window get-buffer-window marker-buffer org-table-check-inside-data-field org-table-get-field org-table-align message "New field value inserted"] 13 (#$ . 69375)]) #@226 Return the formula active for the current field. Assumes that table is already analyzed. If KEY is given, return the key to this formula. Otherwise return the formula preceded with "=" or ":=". (fn &optional KEY NOERROR) (defalias 'org-table-current-field-formula #[512 "\303\304 \"\305!\211\203a \306 \307D \"@\310\311\"\310\312\313 #\314!\315\"\2065 \315\"\2065 \315\" \203? \211@\202\\ \211\205\\ \316@\317\320\321#)\266\203\203X \322\202Y \323AP\266\206\202l \203i \317\202l \324\325!\207" [org-table-current-begin-pos org-table-named-field-locations inhibit-changing-match-data count-lines line-beginning-position org-table-line-to-dline org-table-current-column rassoc format "$%d" "@%d$%d" org-table-current-dline org-table-get-stored-formulas assoc "^[0-9]+$" nil t string-match "=" ":=" error "No formula active for the current field"] 17 (#$ . 70263)]) #@151 Read a formula from the minibuffer, offer stored formula as default. When NAMED is non-nil, look for a named equation. (fn &optional EQUATION NAMED) (defalias 'org-table-get-formula #[512 "\304 \305\306\307 \"\310 D \"@\311\312\313 \310 #\204! \311\314\310 \"\2021 \2030 \315\316\"\2040 \2021 \211\2066 \317\320\"A\211\203\\ \203\\ \321\317\322\315#)\266\203\203\\ \211\202\210 ;\203g \202\210 \323\324\325\311\326 \203u \327\202v \330#!\203\204 \325!\202\205 \331\332#!\317\333!\204\244 \334\320\n\" \"\262\335!\210\336\337!\210\315\340\"\203\263 \341\331\322\211$\262\315\342\"\203\302 \341\331\322\211$\262\203\331 \204\331 \334\320\n\" \"\262\322\262\203\350 \320 \"\241\210\202\360 BB\262\211\204\372 \232\204\377 \335!\210)\207" [org-table-current-begin-pos org-table-named-field-locations org-table-may-need-update inhibit-changing-match-data org-table-get-stored-formulas rassoc count-lines line-beginning-position org-table-current-column format "@%d$%d" org-table-current-dline "$%d" string-match "\\`LR[0-9]+\\'" nil assoc "^ *=? *$" t org-table-formula-from-user read-string org-table-formula-to-user "%s formula %s=" "Field" "Column" "" org-table-formula-history org-string-nw-p delq org-table-store-formulas user-error "Formula removed" "^ *=?" replace-match " *$"] 15 (#$ . 71159)]) #@167 Store the list of formulas below the current table. If optional argument LOCATION is a buffer position, insert it at LOCATION instead. (fn ALIST &optional LOCATION) (defalias 'org-table-store-formulas #[513 "\212\211\203 \211b\210\301 \210\202 \302 b\210\303\304\305!\203' \306\224b\210\306\224\307\225|\210\2023 \310 \210\311\312!\2061 \313c\210\314\315\316\317\320\"\321#\322\261*\207" [case-fold-search beginning-of-line org-table-end t looking-at "\\([ ]*\n\\)*[ ]*\\(#\\+TBLFM:\\)\\(.*\n?\\)" 3 0 org-indent-line match-string 2 "#+TBLFM:" " " mapconcat #[257 "\211@\300AQ\207" ["="] 4 "\n\n(fn X)"] sort org-table-formula-less-p "::" "\n"] 8 (#$ . 72529)]) #@10 (fn A) (defalias 'org-table-formula-make-cmp-string #[257 "\300\301\"\203, \302\303\304\"!\305!\262\306\307\310\311\312U\203 \313\202! \314\315\303\304\"!#\"\266\202\300\316\"\205d \317\225\203D \306\320\315\321\317\"!\"\202E \322\323\225\203W \306\324\315\321\323\"!\"\202X \322\325\225\205c \326\321\325\"PQ\207" [string-match "\\`\\$[<>]" string-to-char substring 1 org-table-formula-handle-first/last-rc format "$%d" + 10000 60 -1000 0 string-to-number "^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?" 2 "@%05d" match-string "" 4 "$%05d" 5 "@@"] 11 (#$ . 73206)]) (put 'org-table-formula-make-cmp-string 'byte-optimizer 'byte-compile-inline-expand) #@45 Compare two formulas for sorting. (fn A B) (defalias 'org-table-formula-less-p #[514 "@\300\301\"\203. \302\303\304\"!\305!\262\306\307\310\311\312U\203\" \313\202# \314\315\303\304\"!#\"\266\202\300\316\"\205f \317\225\203F \306\320\315\321\317\"!\"\202G \322\323\225\203Y \306\324\315\321\323\"!\"\202Z \322\325\225\205e \326\321\325\"PQ\262@\300\301\"\203\226 \302\303\304\"!\305!\262\306\307\310\311\312U\203\212 \313\202\213 \314\315\303\304\"!#\"\266\202\300\316\"\205\316 \317\225\203\256 \306\320\315\321\317\"!\"\202\257 \322\323\225\203\301 \306\324\315\321\323\"!\"\202\302 \322\325\225\205\315 \326\321\325\"PQ\262\205\333 \211\205\333 \231\207" [string-match "\\`\\$[<>]" string-to-char substring 1 org-table-formula-handle-first/last-rc format "$%d" + 10000 60 -1000 0 string-to-number "^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?" 2 "@%05d" match-string "" 4 "$%05d" 5 "@@"] 14 (#$ . 73901)]) #@295 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. (fn &optional NOERROR LOCATION) (defalias 'org-table-get-stored-formulas #[512 "\212\211\203 \211b\210\302 \210\202 \303 b\210\304\305\306!\205\231 \307\310\311!\312\"\313\211\211\203\223 \211@\314\315\"\203\214 \316\317\"\311\225\204= \211\202U \320\313\304\314#)\266\203\203Q \211\202U \316\311\"\262\316\321\"BB\262\235\204q B\262\202\212 \203\205 \322\323\"\210\324 \210\325\311!\210\202\212 \326\323\"\210\266A\266\202\202# \237\262\266\203*\207" [case-fold-search inhibit-changing-match-data beginning-of-line org-table-end t looking-at "\\([ ]*\n\\)*[ ]*#\\+TBLFM: *\\(.*\\)" org-split-string match-string-no-properties 2 " *:: *" nil string-match "\\`\\(@[-+I<>0-9.$@]+\\|\\$\\([_a-zA-Z0-9]+\\|[<>]+\\)\\) *= *\\(.*[^ ]\\)" match-string 1 "\\`\\$\\([0-9]+\\|[<>]+\\)\\'" 3 message "Double definition `%s=' in TBLFM line, please fix by hand" ding sit-for user-error] 15 (#$ . 74872)]) #@231 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. (fn KEY REPLACE &optional LIMIT DELTA REMOVE) (defalias 'org-table-fix-formulas #[1282 "\212\301 b\210\302\303\304!)\205\352 \305\306P\2053 \307\232\204$ \310\232\203/ \311\312\313 !#\2023 \311\314\"\315\211\211\203y \316\317 \302#\203y \320 \321\322\323\324\325!\326\"\327$\216\330\331!)\262\204; \322\224\206a `Sf\332\232\203r \333\334\335\322!\"\210\202; \336\337!\210\202; \316\317 \302#\203\342 \320 \321\322\323\324\325!\340\"\327$\216\330\331!)\262\204y \335\341!\262\342!\262\343 \"\211\262\203\300 \336 AP\302\211#\210\344!\210\202y \203y V\203y \336 \345 \\!P\302\211#\210\344!\210\202y \266\315y\210\202 )\207" [case-fold-search org-table-end t looking-at "[ ]*#\\+tblfm:" "The formulas in #+TBLFM have been updated" "\\([0-9]+\\)" "$" "$LR" format "\\(@[0-9]+\\)?%s%d=.*?\\(::\\|$\\)" regexp-quote "@%d\\$[0-9]+=.*?\\(::\\|$\\)" nil re-search-forward point-at-eol match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-in-regexp "remote([^)]+?)" 46 user-error "Change makes TBLFM term %s invalid, use undo to recover" match-string replace-match "" [set-match-data evaporate] 1 string-to-number assoc message int-to-string] 18 (#$ . 76068)]) #@93 Check if the current field starts with "=" or ":=". If yes, store the formula and apply it. (defalias 'org-table-maybe-eval-formula #[0 "\205A \301 \206\n \302\303\304\203 \305\202 \306\302\304\307\302##\266\202\303\211\310\311\"\205? \312!\313\232\262\314\315\"\262\316\205; \317\320!\"\266\203\207" [org-table-formula-evaluate-inline org-table-get-field "" nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'" string-match "^:?=\\(.*[^=]\\)$" string-to-char 58 match-string 1 org-table-eval-formula (4) org-table-formula-from-user] 9 (#$ . 77494)]) #@373 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. (fn &optional NEWCHAR) (defalias 'org-table-rotate-recalc-marks #[256 "\302 \204 \303\304!\210\305 \211\205 \212\306 b\210\307\310 !)\205' \212\311 b\210\307\310 !)\307\310 !\312 \2039 \313\314\315!!\202: \212\316 b\210\317\320\321 \322#)\203V \323\"\204V \303\324\"\210\203] b\210\212\325 \210\326 !\204k \303\327!\210)\211\203w \330\331!\210\332 \210\333 \212\325 \210\326\334!\204\207 \335\202\230 \206\230 \336\331!\337\340\341\"\342\"\235A@)\343\331\344\345\"\"\210\203\306 \212\346y\210`X\203\305 \326 !\203\277 \343\331\344\345\"\"\210\346y\210\202\252 )\333 U\204\320 \347 \210\266b\210\330\203\337 T\202\340 !\210\203\353 \346\211\223\210\203\364 \346\211\223\210\346\211\223\210\350\351!\205\352\353\323\"A\"\207" [org-recalc-marks org-table-dataline-regexp org-at-table-p user-error "Not at a table" org-region-active-p region-beginning copy-marker line-beginning-position region-end org-table-current-column char-to-string read-char-exclusive "Change region to what mark? Type # * ! $ or SPC: " org-table-begin re-search-forward "^[ ]*|[^-|][^|]*[^#!$*_^| ][^|]*|" org-table-end t assoc "Invalid character `%s' in `org-table-rotate-recalc-marks'" beginning-of-line looking-at "Not at a table data line" org-table-goto-column 1 org-table-insert-column line-end-position "^[ ]*| *\\([#!$*^_ ]\\) *|" "#" match-string append mapcar car (" ") org-table-get-field format " %s " nil org-table-align called-interactively-p interactive message "%s"] 15 (#$ . 78089) nil]) #@78 Recompute the current line if marked for it, and if we haven't just done it. (defalias 'org-table-maybe-recalculate-line #[0 "\205$ \n>\205 \305 =?\205$ \212\306\307!\210\310\f!)\205$ \311 \205$ \312\207" [org-table-allow-automatic-line-recalculation last-command org-recalc-commands org-last-recalc-line org-table-auto-recalculate-regexp line-beginning-position beginning-of-line 1 looking-at org-table-recalculate t] 2 (#$ . 79958) nil]) #@1868 Replace the table field value at the cursor by the result of a calculation. 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 with a `\[universal-argument]' prefix the formula is installed as a field formula. 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. 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. For details, see the Org mode manual. This function can also be called from Lisp programs and offers additional arguments: EQUATION can be the formula to apply. If this argument is given, the user will not be prompted. SUPPRESS-ALIGN is used to speed-up recursive calls by by-passing unnecessary aligns. SUPPRESS-CONST suppresses the interpretation of constants in the 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. (fn &optional ARG EQUATION SUPPRESS-ALIGN SUPPRESS-CONST SUPPRESS-STORE SUPPRESS-ANALYSIS) (defalias 'org-table-eval-formula #[1536 "\211\204\f \306\307\310\"\210\311 \210\312\232\203 \313 \314\307\"\210\315 \210\310\211\207\307\250\203, \202- \316\307\211\211\316V\203B \203B \202J \317\n\320\232\"\321 \322 ! \307\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\323\324\"\203\317\325\324\"\211@\262\326\327 \"AA@P\262\n\323\330 \"\203\331\332\316\f\"!\262\333\332\334\f\"!\262\335U\203\316 \336;\203\265 \326\337\"\262\3348\262A@\262\f>\203\305 \f>A\240\210\202\307 \f\210\f\266\202\202\340\326\341\"AD;\203\355 \326\337\"\262\3348\262A@\262\f>\203\375 \f>A\240\210\202\377 \f\210\f\266\202\342\343\310\211 $\262\n\202} \323\344 \"\203B\332\345 \"\310\262\310\262\211\346\267\2025\307\2026@\2026\347\2026\307\262\342\343\310\211$\262 \210\323\350 \"\203V\310\262\342\343\310\211 $\262\n\323\351 \"\203j\310\262\342\343\310\211 $\262\n\323\352 \"\203~\310\262\342\343\310\211 $\262\n\323\353 \"\203\303\332\345 \"\307;\203\241\326\337\"\262\3348\262A@\262\f>\203\261\f>A\240\210\202\263\f\210\f\266\202\342\343\310\211 $\262\n\202~\323\354 \"\204\316\307\262\n\210\204\337A\203\337\355!\262\356\316\357#\206\351\360\262\361!\262\345V\203!\325\362\363 \364 \"\307\365\203 \366\202\n\367\343\365\370\343##\266\202\371\"\262\203#\372\373\"\262\310=\2031\372\374\"\262S\262\322!\262 G\334V\205L\375\345\334#\376\232\262\203Y\203Y\377\262\323\201P \"\203\255\342\201Q \201R \201S \201T \345\201U \201V \201W !\201X \"\201Y $\216\375\345\224\345\224T#\201Z \232\203\235\201[ \202\237\321 )\262\"\310\211$\262\202Y\201\\ !\210\201] !\262\323\201^ \"\203%\342\201S \201T \345\201U \201V \201W !\201_ \"\201Y $\216\201` \201a \332\316\"\332\334\"\"\203\211<\203\372\201b \"\202\201c !\202\211\262 $)\262\310\211$\262\202\274\323B\"\203\367\332\345\"G\316V\203\367\201S \201T \345\201U \201V \201W !\201d \"\201Y $\216\201e \332\345\"C#)\262\262 \201S \201T \345\201U \201V \201W !\201f \"\201Y $\216\201` \203\243\f<\203\232\372\201g \"\202\245\201c !\202\245\f$)\262\262\f\201S \201T \345\201U \201V \201W !\201h \"\201Y $\216\323\201i !\")\262\204\352\342\f\310\211$\262\202%\201j \201k \"\210\202%\323\201l \"\203k\342\201S \201T \345\201U \201V \201W !\201m \"\201Y $\216\201` \201n \201o \334\225\2033\2024\345\333\332\316\"!\201p #\201q \225\203K\202L\345\333\332\201Y \"!\\# $)\262\310\211$\262\202\367 \262 \323\201r \"\203 \333\332\316\"!\334\225\203\212\202\213\345\\\262\345U\203\232\202\236\316]S8\262\201S \201T \345\201U \201V \201W !\201s \"\201Y $\216\201` $)\262\262\f\203\201S \201T \345\201U \201V \201W !\201t \"\201Y $\216\323\201i !\")\262\203\201j \201u \332\345\"\"\210\342\f\310\211$\262\202o\203f\201v 16\201w \211\201x !!!0\202:\210\201y \262\247\203K\201z !\202M\262\203_\201{ \333!\"\202a\262\202\322\365D\201| #\262\365E\201} \310\211%\262\203\221\323\201~ \"\203\221 \202\247\201 \fB?\205\246\205\246\201\200 \"\262\203\316\201{ \323\201~ \"\203\305\333\201c !!\202\311\333!\"\202\320\262F\203\273Gr\201\201 \201\202 !q\210p\201\203 \210G\307\211HI\310\211J\310 K L\201\204 \210\201\205 \201\206 !\210+\211 M\201\207 \201Q \201\210 \n%!\210:\203C\201\207 \201Q \201\211 \201\212 \f@\201\213 \"\fA@#!\210\202m\201\207 \201Q \201\214 \206V\201\215 \203h\201Q \333!\"\202j $!\210\201\216 !\210)\266\201\217 \201\202 !\262\n\201\220 \n!\210\201\221 \201\222 !\203\225\203\273\307 N\201\223 \201\224 !)\204\256\315 \210\201j \201\225 !\210\201\226 \n!\210\201\227 \343!\210:\203\311\307\262 \201y \262\201\230 \201Q O ;\204\334 \202\367 \203\356\201Q \f\333\f!\"\202\367\365E\201\231 \f#\"!\210\203\345V\203\201\232 \201\233 !\203\201\234 \201\235 !\210\202\361\345\262\202\361\203+\201\236 \210\2066\2056\315 +\207" [org-table-may-need-update org-table-automatic-realign case-fold-search org-calc-default-modes org-tbl-calc-modes org-table-local-parameters org-table-check-inside-data-field nil t org-table-analyze (16) org-table-current-field-formula org-table-get-field org-table-align 1 org-table-get-formula (4) org-table-current-column copy-sequence string-match ";" org-split-string assoc "%" "\\([pnfse]\\)\\(-?[0-9]+\\)" string-to-char match-string string-to-number 2 112 calc-internal-prec (("D" calc-angle-mode deg) ("R" calc-angle-mode rad) ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t)) calc-float-format ((110 . float) (102 . fix) (115 . sci) (101 . eng)) replace-match "" "[tTU]" 0 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("T" 296 "t" 300 "U" 305)) hh:mm "N" "L" "E" "[DRFS]" "\\S-" org-table-formula-substitute-names get-text-property :orig-formula "?" org-table-formula-handle-first/last-rc buffer-substring-no-properties line-beginning-position line-end-position replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'" " *| *" mapcar #[257 "\300!\207" [org-table-time-string-to-seconds] 3 "\n\n(fn X)"] #[257 "\300\301\"\203 \302\303!!\207\207" [string-match "\\S-" number-to-string string-to-number] 4 "\n\n(fn X)"] substring "'(" literal org-table-duration-custom-format org-table-formula-use-constants org-table-range-regexp org-table-current-begin-pos org-ts-regexp-inactive org-ts-regexp org-table-formula-debug default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output inhibit-redisplay org-table-formula-field-format "[@$]#" format "%d" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "@" org-table-current-dline org-table--error-on-old-row-references org-table-remote-reference-indirection "\\<remote([ ]*\\([^,)]+\\)[ ]*,[ ]*\\([^\n)]+\\))" [set-match-data evaporate] org-table-make-reference org-table-get-remote-range #[257 "\300!\207" [org-table-time-string-to-seconds] 3 "\n\n(fn X)"] org-table-time-string-to-seconds [set-match-data evaporate] org-table-get-range [set-match-data evaporate] #[257 "\300!\207" [org-table-time-string-to-seconds] 3 "\n\n(fn X)"] [set-match-data evaporate] regexp-quote user-error "Spreadsheet error: invalid reference \"%s\"" "\\$\\(\\([-+]\\)?[0-9]+\\)\\.\\.\\$\\(\\([-+]\\)?[0-9]+\\)" [set-match-data evaporate] cl-subseq + -1 4 "\\$\\(\\([-+]\\)?[0-9]+\\)" [set-match-data evaporate] [set-match-data evaporate] "Invalid field specifier \"%s\"" (error) eval read "#ERROR" number-to-string org-table-time-seconds-to-string "<\\1>" #[257 "\302\303\304\305\306\307\310#)\266\203!\311\312\313 \314\315\316\317\320!\321\"\322$\216\323!)\262\"\")\207" [system-time-locale inhibit-changing-match-data "C" format-time-string org-time-stamp-format "[0-9]\\{1,2\\}:[0-9]\\{2\\}" nil t string-match apply encode-time match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-parse-time-string] 12 "\n\n(fn TS)"] "^[0-9]+:[0-9]+\\(?::[0-9]+\\)?$" calc-eval num get-buffer-create "*Substitution History*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "Substitution history of formula\nOrig: %s\n$xyz-> %s\n@r$c-> %s\n$1-> %s\n" " %s^\nError: %s" make-string 45 "Result: %s\nFormat: %s\nFinal: %s" "NONE" internal-temp-output-buffer-show get-buffer-window org-fit-window-to-buffer called-interactively-p any y-or-n-p "Debugging Formula. Continue to next? " "Abort" delete-window message org-table-justify-field-maybe "[\\1]" looking-at ".*\n[ ]*|[^-]" call-interactively org-return org-table-maybe-recalculate-line] 40 (#$ . 80410) "P"]) #@19 (fn PROP VALUE) (defalias 'org-table-put-field-property #[514 "\212\300\301\302x\210`\301\302w\210`$)\207" [put-text-property "^|" nil] 7 (#$ . 90203)]) #@517 Get a calc vector from a column, according to descriptor DESC. Optional arguments TBEG and COL can give the beginning of the table and the current column, to avoid unnecessary parsing. HIGHLIGHT means just highlight the range. When CORNERS-ONLY is set, only return the corners of the range as 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. (fn DESC &optional TBEG COL HIGHLIGHT CORNERS-ONLY) (defalias 'org-table-get-range #[1281 "\303\304\305\306#)\266\203\203 \307\310\311#\202 \206 \312 \206& \313 \314\315 \"\306 \"\2047 \316\317\"\210\320\225\321\225\205C \322\321\"\323 \324\325\326\327\330!\331\"\320$\216\332!\205[ \333\")\262\206b \262\334\225\205n \322\334\"\323 \324\325\326\327\330!\335\"\320$\216\332!\205\207 \333\")\262\206\216 \262\336\225\205\235 \337\322\336 \"\321\"\211\203\251 \340!\325U\203\256 \202\300 \340!\341!\342>\203\276 \202\277 \325\\\262\343\225\205\317 \337\322\343\n\"\321\"\211\203\333 \340!\325U\203\340 \202\362 \340!\341!\344>\203\360 \202\361 \325\\\262\212 \204?\203\nU\203?U\203?Zy\210\345\n!\204 \304y\210\202\346!\304\307\203)\347\202*\350\351\307\352\351##\266\202 \203\251\353 \210\202\251^]^] \203XF\202\247\nZy\210\345\n!\204n\304y\210T\262\202^\354!\210`Zy\210\345\n!\204\204\355y\210\202x\354!\210`\203\227\353\356\304w\210`\"\210\357\360\361\362\363\"\"\"\262\262\266\204)\266\205\207" [inhibit-changing-match-data org-table-range-regexp org-table-dataline-regexp "\\`\\$[0-9]+\\.\\.\\$[0-9]+\\'" nil t string-match replace-regexp-in-string "\\$" "@0$" org-table-current-column org-table-begin count-lines line-beginning-position user-error "Invalid table range specifier `%s'" 3 1 match-string match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] org-string-nw-p org-table--descriptor-line 4 [set-match-data evaporate] 2 substring string-to-number string-to-char (45 43) 5 (45 43) looking-at org-table-get-field "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-table-highlight-rectangle org-table-goto-column -1 "^|\n" mapcar org-trim apply append org-table-copy-region] 27 (#$ . 90367)]) #@135 Return relative line number corresponding to descriptor DESC. The cursor is currently in relative line number CLINE. (fn DESC CLINE) (defalias 'org-table--descriptor-line #[514 "\302\303\"\203 \304!H\207\302\305\"\203- \306\225\204 \307\225\203- \306\225\2032 \307\225\2032 \310\225\2042 \311\312\"\210\306\225\205< \306\225\306\224Z\313\314\"\313\310\"\307\225\205P \304\313\307\"!\307\225\205b \315\225\203` \306\225?\206b \310\225\203| \204| \316\262\317\262 \316H\320=\203| S\262\204\214 \203\214 \204\214 \311\321!\210\203\241 \322\320\323\232\324\f&\262\203\265 \322\325\323\232\f&\262\207" [org-table-dlines org-table-current-line-types string-match "\\`[0-9]+\\'" string-to-number "^\\(\\([-+]\\)?\\(I+\\)\\)?\\(\\([-+]\\)?\\([0-9]+\\)\\)?" 3 6 5 user-error "Invalid row descriptor `%s'" match-string 2 1 0 "+" hline "Should never happen" org-table--row-type "-" nil dline] 14 (#$ . 92697)]) #@292 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. (fn TYPE N I BACKWARDS RELATIVE DESC) (defalias 'org-table--row-type #[1542 "G\3022| \303\211W\205y \211\203 \304\202 \305\\\211\262 \203q \303Y\203q W\203q H\n=\204q \203 H\306=\203 \307=\204 \310=\203[ \311\312\"\202n \203f \304\202g \305Z\262\313\302\314\"\204 \210\211T\262\202 \266\2020\210\303W\204\211 Y\203\220 \311\315\"\202\235 SU\203\234 S\202\235 \207" [org-table-current-line-types org-table-relative-ref-may-cross-hline :exit 0 -1 1 hline t error user-error "Row descriptor %s crosses hline" throw nil "Row descriptor %s leads outside table"] 13 (#$ . 93646)]) #@10 (fn S) (defalias 'org-table--error-on-old-row-references #[257 "\300\301\"\205\n \302\303!\207" [string-match "&[-+0-9I]" user-error "Formula contains old &row reference, please rewrite using @-syntax"] 4 (#$ . 94525)]) #@356 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. LISPP non-nil means to return something appropriate for a Lisp list, `literal' is for the format specifier L. (fn ELEMENTS KEEP-EMPTY NUMBERS LISPP) (defalias 'org-table-make-reference #[1028 ";\203N \211\203+ \211\300=\203 \207\301=\203 \204 \301\207\302\203( \303!\202) !\207\304\305\"\203B \203= \306\303!!\262\307\310Q\207\203J \203L \311\207\312\207\204\\ \313\314\315\316\"\"\262\262\211\203w \317\320\321\322\323\324\"\325\"\326\327%\330#\207\331\317\320\321\332\323\324 \"\333\"\326\327%\334#\335Q\207" [literal "" prin1-to-string string-to-number string-match "\\S-" number-to-string "(" ")" "(0)" "nan" delq nil mapcar #[257 "\300\301\"\205 \211\207" [string-match "\\S-"] 4 "\n\n(fn X)"] mapconcat make-byte-code 257 "\301\302=\203 \207\303\300\203 \304!\202 !\207" vconcat vector [literal prin1-to-string string-to-number] 4 "\n\n(fn X)" " " "[" "\302\303\"\203 \301\203 \304\305!!\207\207\300\203 \301\203 \306\207\307\207" [string-match "\\S-" number-to-string string-to-number "0" "nan"] "," "]"] 13 (#$ . 94755)]) #@244 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. (fn T1 &rest ARGS) (defalias 'org-table-message-once-per-second #[385 "\300 \203 \301\302\303\"\"\203 \304\305\"\210\211\202 \207" [current-time org-time-less-p 1 org-time-subtract apply message] 8 (#$ . 96044)]) #@515 Recalculate the current table line by applying all stored formulas. With prefix arg ALL, do this for all lines in the table. When called with a `\[universal-argument] \[universal-argument]' prefix, or if ALL is the symbol `iterate', recompute the table until it no longer changes. 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. (fn &optional ALL NOALIGN) (defalias 'org-table-recalculate #[512 " >\204\n B\306 \204 \307\310!\210\311=\204 \312\232\203\" \313 \207\314 \210\315\316 \317\"\n?\f\320 \211\321\322\211\211\211\205\352\323\324 !\323\325 \326\"\327 \212\330!\203S \331!q\210\212\214~\210\211\206\\ `b\210\332\"\210+\210\333\321\334\335\336#\337\"\340$\216\323\341 !\342 \333\321\343\335\336\"\344\"\345$\216 \211\203\365 \211@\346\347A!!@\347\350\351\"\203\251 \307\352!\202\310 \350\353\"\203\307 \347!\354\"\203\301 \307\355#\210\211\262\202\310 !\356\322\326 \350#)\266\203\203\344 \211B\fB\262\f\202\354 \211B B\262 \266A\266\202\202\215 \210\237\262\357\237!\262\203H\323\325 !\262@\211\262\nb\210\360A \326#\203%B\262 \202S\360\f \326#\203S\360C \326#\203S\360\f \326#\203S\321\224\262 \202S\341 \262 \323\341\361!!\262b\210\362 \363#\210\364@\341 \"\322\211\203\314\211@\211@\354D\"\211A@\206\213\350\365\"\205\213E\366\367\370\"!H\203\233\371\372\373!\3618#\202\234\211\235\203\250\307\374\"\210\211B\262\204\272=\203\303\375!\210\376\377\326\"\210\266A\266\202\202h\266b\210\360 \326#\203^\350\201H \201I \370!\"\204\322 T\262\n\203 \201J \201K \f#\262 \330F!\203F\341 \322\223\210\202\323\341 !F\211\203Z\211@Fb\210\201L \366\201M @\370\"!\322\201N #\210\201O `\377\"\204S\201P \322A\201Q \201R \201S \201T &\210A\266\202\202\210\202\322\211\203\257\211@\211@A\201J \205s\201U @#\262\375\322\210\342 S\333\201V \201W \335\336!\201X \"\345\201Y %\262\"\210\201P \322\326\211\211\211&\266A\266\202\202_\210\322\211\223\210)\266)\266 \204\334G\203\313\201Z \210\n\203\334\201J \201[ #\210\201J \205\346\201\\ \")\207" [this-command org-recalc-commands debug-on-error inhibit-redisplay org-table-dataline-regexp inhibit-changing-match-data org-at-table-p user-error "Not at a table" iterate (16) org-table-iterate org-table-analyze sort org-table-get-stored-formulas #[514 "@@\231\207" [] 4 "\n\n(fn A B)"] current-time 0 nil copy-marker org-table-begin org-table-end t org-table--list-shrunk-columns markerp marker-buffer org-table-expand make-byte-code "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" vconcat vector [org-table--shrink-columns nil] 4 line-beginning-position org-table-current-column "\300b\210\302\301!\210\300\303\211\223\207" [org-table-goto-column nil] 3 org-table-formula-substitute-names org-table-formula-handle-first/last-rc string-match "\\`@-?I+" "Can't assign to hline relative reference" "\\`\\$[<>]" assoc "\"%s=\" formula tries to overwrite existing formula for column %s" "\\`\\$[0-9]+\\'" org-table-expand-lhs-ranges re-search-forward 2 remove-text-properties (:org-untouchable t) count-lines "\\`@\\([0-9]+\\)" string-to-number match-string 1 format "@%d$%d" org-table-line-to-dline "Several field/range formulas try to set %s" org-table-goto-field org-table-put-field-property :org-untouchable org-table-current-begin-pos org-table-calculate-mark-regexp org-table-recalculate-regexp org-table-hline-regexp org-table-named-field-locations org-table-dlines org-last-recalc-line org-table-may-need-update "\\` *[_^!$/] *\\'" org-table-get-field org-table-message-once-per-second "Re-applying formulas to full table...(line %d)" org-table-goto-column substring force get-text-property org-table-eval-formula noalign nocst nostore noanalysis "Re-applying formula to field: %s" 257 "\211\302V\203\n \303\304!\210\211\300V\2051 \305=\2061 \306=\203\" \307\310!\210\305\207 \311=\203. \312\313!\2061 \303\314!\207" [org-table-formula-create-columns 1000 user-error "Formula column target too large" t warn org-display-warning "Out-of-bounds formula added columns" prompt yes-or-no-p "Out-of-bounds formula. Add columns? " "Missing columns in the table. Aborting"] "\n\n(fn COLUMN)" org-table-align "Re-applying formulas to %d lines... done" "Re-applying formulas... done"] 29 (#$ . 96497) "P"]) #@175 Recalculate the table until it does not change anymore. The maximum number of iterations is 10, but you can choose a different value with the prefix ARG. (fn &optional ARG) (defalias 'org-table-iterate #[256 "\211\203\n \300!\202 \301\302\303 \304 {\305\3062V W\203Q T\262\307\310!\210\303 \304 {\262\230\2047 \211\262\202 \311V\203E \312\313\"\210\202I \312\314!\210\315\306\316\"\210\202 \317\320\"0\207" [prefix-numeric-value 10 0 org-table-begin org-table-end nil exit org-table-recalculate all 1 message "Convergence after %d iterations" "Table was already stable" throw t user-error "No convergence after %d iterations"] 8 (#$ . 101010) "P"]) #@47 Recalculate all tables in the current buffer. (defalias 'org-table-recalculate-buffer-tables #[0 "\212\214~\210\300\301\302\"*\207" [org-table-map-tables #[0 "\300\301\211\"\210\302 \207" [org-table-recalculate t org-table-align] 3] t] 3 (#$ . 101681) nil]) #@73 Iterate all tables in the buffer, to converge inter-table dependencies. (defalias 'org-table-iterate-buffer-tables #[0 "\300\211\301\302 !\303\212\214~\210\3042N \305V\203D S\262\306\307\310\"\210\301\302 !\211\262\232\203> \306\311\310\"\210\312\313Z\"\210\314\304\310\"\210\202 \211\262\202 \306\311\310\"\210\315\316\"0*\207" [10 md5 buffer-string nil exit 0 org-table-map-tables #[0 "\300\301\211\"\207" [org-table-recalculate t] 3] t org-table-align message "Convergence after %d iterations" throw user-error "No convergence after %d iterations"] 8 (#$ . 101945) nil]) #@74 Apply the #+TBLFM in the line at point to the table. (fn &optional ARG) (defalias 'org-table-calc-current-TBLFM #[256 "\301 \204 \302\303!\210\304 \305 {\212\306 b\210\307 \310\261\210\307 \311\312!\210\313\314x\210\315\312\316\317\320\"\321\"\322$\216\323\2069 \324\211\325!)\266\202)\262\262)\207" [current-prefix-arg org-at-TBLFM-p user-error "Not at a #+TBLFM line" line-beginning-position line-end-position org-table-TBLFM-begin point-marker "\n" beginning-of-line 0 " \n " nil make-byte-code "\300\301|\210\300\302\211\223\210\301\302\211\223\207" vconcat vector [nil] 3 org-table-recalculate t call-interactively] 11 (#$ . 102536) "P"]) #@123 Find the beginning of the TBLFM lines and return its position. Return nil when the beginning of TBLFM line was not found. (defalias 'org-table-TBLFM-begin #[0 "\212\301y\210\302\303\304#\205 \305\306!)\207" [org-table-TBLFM-begin-regexp 1 re-search-backward nil t line-beginning-position 2] 4 (#$ . 103201)]) #@254 Expand list of formulas. 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'). (fn EQUATIONS) (defalias 'org-table-expand-lhs-ranges #[257 "\303\211\203\331 \211@\211@A\304\303\305\306#)\266\203\203$ B\262\202\320 \307\303\305\306#)\266\203\203< B\262\202\320 \310\303\305\306#)\266\203\203T B\262\202\320 \306\311\"\203\204 \312\211W\203 \211\313\314\315T#\316#BB\262\210\211T\262\202] \266\202\320 \317\n\320\303\321%\322@!A@\322\3238\324\"\3258X\203\316 X\203\305 \313\314\326#\316#\nBB\262T\262\202\245 \266T\262\202\235 \266\266A\266\202\202 \237\262\207" [inhibit-changing-match-data org-table-current-ncol org-table-current-begin-pos nil "\\`@-?[-+0-9]+\\$-?[0-9]+\\'" t string-match "\\`[a-zA-Z][_a-zA-Z0-9]*\\'" "\\`\\$[0-9]+\\'" "\\`@[0-9]+\\'" 0 propertize format "%s$%d" :orig-eqn org-table-get-range 1 corners org-table-line-to-dline 2 above 3 "@%d$%d"] 20 (#$ . 103519)]) #@528 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 when a line/row is swapped out of that privileged position. So for 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. (fn S) (defalias 'org-table-formula-handle-first/last-rc #[257 "\302\211\211\211\303\304\305#\203~ \306\225\203 \306\225\262\202 \307\310\"\311\232\203* GS\202+ \262\312\225\312\224Z\262\313\307\312\"!\262\314U\203G \202L \315\316#\262\310W\204Z V\203e \317\320\307\303 \"#\210\303\224\262\321\322\323\307\310\n\"#\324\211 $\262\202 \266\207" [org-table-dlines org-table-current-ncol nil 0 string-match "\\([@$]\\)\\(<+\\|>+\\)\\|\\(remote([^)]+)\\)" 3 match-string 1 "@" 2 string-to-char 60 - -1 user-error "Reference \"%s\" in expression \"%s\" points outside table" replace-match format "%s%d" t] 12 (#$ . 104645)]) #@49 Replace $const with values in string F. (fn F) (defalias 'org-table-formula-substitute-names #[257 "\303\304!\305U?\306\307\310\311#)\266\203\312 \313\310\211%\311\314#\211\262\203~ \315\225\2034 \315\225\262\202 T\262\316 \317\303\320\321\322!\323\"\324$\216\325\326\327\"!\330!\203\\ \203\\ \331!\202] \211\262)\262\211\203z \332\205l \333\205s \334Q\310\211$\262\210\202 \n\203\213 \335\336#\202\214 \211\207" [inhibit-changing-match-data org-table-column-name-regexp org-table-formula-debug 0 string-to-char 39 ";.*[Tt].*\\'" nil t string-match replace-regexp-in-string #[257 "\301\302\303\304\"\"AP\207" [org-table-column-names "$" assoc match-string 1] 6 "\n\n(fn M)"] "\\$\\([a-zA-Z][_a-zA-Z0-9]*\\)\\|\\(\\<remote([^)]*)\\)" 2 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table-get-constant match-string 1 org-string-nw-p org-table-time-string-to-seconds replace-match "(" ")" propertize :orig-formula] 12 (#$ . 105824)]) #@95 Find the value for a parameter or constant in a formula. Parameters get priority. (fn CONST) (defalias 'org-table-get-constant #[257 "\303\"A\206= \303 \"A\206= \303\n\"A\206= \304\305!\203$ \305!\206= \306\307\310G^#\311\230\203< \312\313\306\310\"\314#\206= \315\207" [org-table-local-parameters org-table-formula-constants-local org-table-formula-constants assoc fboundp constants-get substring 0 5 "PROP_" org-entry-get nil inherit "#UNDEFINED_NAME"] 6 (#$ . 106846)]) (defvar org-table-fedit-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\303#\210\301\306\303#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\334#\210\301\336\337#\210\301\340\337#\210\301\341\342#\210\301\343\344#\210\211\207" [make-sparse-keymap org-defkey "" org-table-fedit-finish "" "" "'" "" org-table-fedit-abort "?" org-table-show-reference [(meta shift up)] org-table-fedit-line-up [(meta shift down)] org-table-fedit-line-down [(shift up)] org-table-fedit-ref-up [(shift down)] org-table-fedit-ref-down [(shift left)] org-table-fedit-ref-left [(shift right)] org-table-fedit-ref-right [(meta up)] org-table-fedit-scroll-down [(meta down)] org-table-fedit-scroll [(meta tab)] lisp-complete-symbol "\211" [(tab)] org-table-fedit-lisp-indent " " "" org-table-fedit-toggle-ref-type "}" org-table-fedit-toggle-coordinates] 5)) #@24 Org Edit Formulas Menu (defvar org-table-fedit-menu nil (#$ . 108366)) (easy-menu-do-define 'org-table-fedit-menu org-table-fedit-map "Org Edit Formulas Menu" '("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])) #@42 Position of the TBLFM line being edited. (defvar org-table--fedit-source nil (#$ . 109501)) #@62 Edit the formulas of the current table in a separate buffer. (defalias 'org-table-edit-formulas #[0 "\306 \211\204 \307 \204 \310\311!\210\212\211\203 \312\313!\210\314 \210)\315\316\317\"\320\321\322\205( `\"\323\"\324 \325\326 !\327\330 \331 \332\333\334!\210\335 \210\336\337 \210)\340\300!\210\341 D\340\302!\210\340\303!\210\340\304!\210\340\305!\210\342@!\210\343\344\345\322\211$\210\346A!\210\347\212\211\203~ \211b\210n\203\206 \327\202\207 \350\351\327`\"\\)\262\262\211\203 \211@\352\353@\"\203\245 \354\202\263 \355@!\356\232\203\262 \357\202\263 \360\211\236\211\203\322 o\204\301 \361c\210\362A\347\363B$c\210\364\"\262 @\232\203\366 \347\212\211\203\343 \211b\210n\203\353 \327\202\354 \350\351\327`\"\\)\262\262\355@!\365>\203\366\202\367@\370A\361\260\371\350G\372$\210\211c\266A\266\202\202\223 \210C\322=\203*\373 \210\214~\210eb\210\211Sy)\266\374\375\376\377!\"\266\210\207" [font-lock-global-modes major-mode org-pos org-table--fedit-source org-window-configuration org-selected-window org-at-TBLFM-p org-at-table-p user-error "Not at a table" re-search-backward "^[ ]*|" org-table-analyze org-table-current-field-formula key noerror sort org-table-get-stored-formulas t org-table-formula-less-p point-marker copy-marker line-beginning-position 1 current-window-configuration selected-window ((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 (not fundamental-mode) fundamental-mode make-local-variable not use-local-map add-hook post-command-hook org-table-fedit-post-command easy-menu-add nil 0 count-lines string-match "\\`\\$\\([0-9]+\\|[<>]+\\)\\'" column string-to-char 64 field named "\n" org-add-props face remove (64 36) "" "$" " = " remove-text-properties (face nil) org-table-fedit-toggle-ref-type message "%s" substitute-command-keys "\\<org-mode-map>Edit formulas, finish with `\\[org-ctrl-c-ctrl-c]' or `\\[org-edit-special]'. See menu for more commands." org-table-fedit-map org-table-fedit-menu font-lock-comment-face org-table-use-standard-references] 19 (#$ . 109599) nil]) (defalias 'org-table-fedit-post-command #[0 "\301=\205 \302?\205# \303 \212\3041 \305 0\202 \210\202 \210\306!)\262\207" [this-command lisp-complete-symbol (lisp-complete-symbol) selected-window (error) org-table-show-reference select-window] 3]) #@65 Convert a formula from internal to user representation. (fn S) (defalias 'org-table-formula-to-user #[257 "\301=\203\n \302!\207\207" [org-table-use-standard-references t org-table-convert-refs-to-an] 3 (#$ . 112052)]) #@65 Convert a formula from user to internal representation. (fn S) (defalias 'org-table-formula-from-user #[257 "\203 \301!\207\207" [org-table-use-standard-references org-table-convert-refs-to-rc] 3 (#$ . 112280)]) #@146 Convert spreadsheet references from A7 to @7$28. Works for single references, but also for entire formulas and even the full TBLFM line. (fn S) (defalias 'org-table-convert-refs-to-rc #[257 "\300\301\302#\203\202 \303\225\203 \300\225\262\202 \300\224\300V\203< \300\224S\300]H\304\232\203< \300\224\305Z\300]H\304\232\204< \300\225\262\202 \306\225\306\224Z\305V\203M \300\225\262\202 \300\224\262\307\310\305\"\311\232\203h \312\313\314\310\306\"!\"\202y \312\315\316\310\305\"!\314\310\306\"!#\317\211$\262\202 \207" [0 string-match "\\<\\([a-zA-Z]+\\)\\([0-9]+\\>\\|&\\)\\|\\(;[^ \n:]+\\|\\<remote([^,)]*)\\)" 3 46 2 1 replace-match match-string "&" format "$%d" org-letters-to-number "@%d$%d" string-to-number t] 10 (#$ . 112503)]) #@150 Convert spreadsheet references from to @7$28 to AB7. Works for single references, but also for entire formulas and even the full TBLFM line. (fn S) (defalias 'org-table-convert-refs-to-an #[257 "\300\301\"\203$ \302\303\304\305\306\307\310\"!!\306\307\311\"!#\312\211$\262\202 \300\313\"\203A \302\314\305\306\307\310\"!!\315Q\312\316$\262\202$ \207" [string-match "@\\([0-9]+\\)\\$\\([0-9]+\\)" replace-match format "%s%d" org-number-to-letters string-to-number match-string 2 1 t "\\(^\\|[^0-9a-zA-Z]\\)\\$\\([0-9]+\\)" "\\1" "&" nil] 9 (#$ . 113271)]) #@98 Convert a base 26 number represented by letters into an integer. For example: AB -> 28. (fn S) (defalias 'org-letters-to-number #[257 "\300\226\262G\300V\203! \301\302_\303!\304\305$\262\306\305\"\262\202 \211\207" [0 + 26 string-to-char -65 1 substring] 7 (#$ . 113846)]) #@98 Convert an integer into a base 26 number represented by letters. For example: 28 -> AB. (fn N) (defalias 'org-number-to-letters #[257 "\300\301V\203 \302\303S\304\"\305\\!P\262S\304\245\262\202 \211\207" ["" 0 char-to-string mod 26 65] 6 (#$ . 114136)]) #@182 Convert a time string into numerical duration in seconds. S can be a string matching either -?HH:MM:SS or -?HH:MM. If S is a string representing a number, keep this number. (fn S) (defalias 'org-table-time-string-to-seconds #[257 "\211\301\232\203 \207\302\211\211\211\211\303\304\"\203Z \305\306\307\"GW\262\310\306\311\"!\262\310\306\312\"!\262\310\306\313\"!\262\203L \314\315_\316_#[\262\202\251 \314\315_\316_#\262\202\251 \303\"\204\243 \303\317\"\203\243 \305\306\307\"GW\262\310\306\311\"!\262\310\306\312\"!\262\203\227 \315_\316_\\[\262\202\251 \315_\316_\\\262\202\251 \310!\262\320!\207" [org-ts-regexp-both "" nil string-match "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" 0 match-string 1 string-to-number 2 3 4 + 3600 60 "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\)" number-to-string] 10 (#$ . 114407)]) #@163 Convert a number of seconds to a time string. If OUTPUT-FORMAT is non-nil, return a number of days, hours, minutes or seconds. (fn SECS &optional OUTPUT-FORMAT) (defalias 'org-table-time-seconds-to-string #[513 "\301!\302\267\202D \303\304\305!\306\245\"\202P \303\307\305!\310\245\"\202P \303\311\305!\312\245\"\202P \303\313\"\202P \314\315\203; \316\202< \317\"\320\321#\202P \315\203M \316\202N \317\"\320W\203\\ \322P\202] \211\207" [org-table-duration-hour-zero-padding abs #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (days 9 hours 20 minutes 31 seconds 42 hh:mm 49)) format "%.3f" float 86400 "%.2f" 3600 "%.1f" 60 "%d" substring format-seconds "%.2h:%.2m:%.2s" "%h:%.2m:%.2s" 0 -3 "-"] 7 (#$ . 115276)]) #@71 Convert all references in this buffer, using FUNCTION. (fn FUNCTION) (defalias 'org-table-fedit-convert-buffer #[257 "\300\301 !eb\210m\204 `\302 {!c\210`\302 |\210\303y\210\202 \211b\210\211\303\211\223\207" [copy-marker line-beginning-position line-end-position nil] 5 (#$ . 116048)]) #@64 Convert all references in the buffer from B3 to @3$2 and back. (defalias 'org-table-fedit-toggle-ref-type #[0 "\301\300!\210?\302\203 \303\202 \304!\210\305\306\203 \307\202 \310\"\207" [org-table-buffer-is-an make-local-variable org-table-fedit-convert-buffer org-table-convert-refs-to-an org-table-convert-refs-to-rc message "Reference type switched to %s" "A1 etc" "@row$column"] 3 (#$ . 116345) nil]) #@48 Shift the reference at point one row/hline up. (defalias 'org-table-fedit-ref-up #[0 "\300\301!\207" [org-table-fedit-shift-reference up] 2 (#$ . 116764) nil]) #@50 Shift the reference at point one row/hline down. (defalias 'org-table-fedit-ref-down #[0 "\300\301!\207" [org-table-fedit-shift-reference down] 2 (#$ . 116930) nil]) #@53 Shift the reference at point one field to the left. (defalias 'org-table-fedit-ref-left #[0 "\300\301!\207" [org-table-fedit-shift-reference left] 2 (#$ . 117102) nil]) #@54 Shift the reference at point one field to the right. (defalias 'org-table-fedit-ref-right #[0 "\300\301!\207" [org-table-fedit-shift-reference right] 2 (#$ . 117277) nil]) #@95 Re-match the group N, and replace it with the shifted reference. (fn N &optional DECR HLINE) (defalias 'org-table--rematch-and-replace #[769 "\225\204 \300\301!\210\224b\210\302\303\304!!!\205\" \305\306\304\307!#\310\211#\207" [user-error "Cannot shift reference in this direction" looking-at regexp-quote match-string replace-match org-table-shift-refpart 0 t] 8 (#$ . 117455)]) #@12 (fn DIR) (defalias 'org-table-fedit-shift-reference #[257 "\300\301!\203 \211\302>\203 \303\304\305=\"\207\306\307!\207\300\310!\2031 \211\311>\203* \303\312\313=\"\207\303\304\305=\"\207\300\314!\205L \211\315>\203F \303\312\313=\316\225#\207\303\317\305=\"\207" [org-in-regexp "\\(\\<[a-zA-Z]\\)&" (left right) org-table--rematch-and-replace 1 left user-error "Cannot shift reference in this direction" "\\(\\<[a-zA-Z]\\{1,2\\}\\)\\([0-9]+\\)" (up down) 2 up "\\(@\\|\\.\\.\\)\\([-+]?\\(I+\\>\\|[0-9]+\\)\\)\\(\\$\\([-+]?[0-9]+\\)\\)?" (up down) 3 5] 5 (#$ . 117849)]) #@220 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. (fn REF &optional DECR HLINE) (defalias 'org-table-shift-refpart #[769 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\"\312\203& \313\302\314#\262\313\314\"\262\203\204 \310\315\"\203\204 \316\317G!P!\262\211\203F \320\202G \314\\\262\211\302U\203] \211\203Y \320\202Z \314\\\262\203v \211\302W\203k \321\202l \322\262\323!\262\202{ \314]\262\324\325\"P\202\342 \310\326\"\203\301 \316P!\262\211\203\235 \320\202\236 \314\\\262\203\271 \211\302W\203\257 \321\202\260 \322\317\323!!P\202\342 \317\314]!\202\342 \310\327\"\203\337 \330\314\331!\203\330 \320\202\331 \314\\]!\202\342 \332\333!\266\202)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "^[-+]" nil substring 1 "^I+" string-to-number number-to-string -1 "-" "+" abs make-string 73 "^[0-9]+" "^[a-zA-Z]+" org-number-to-letters org-letters-to-number user-error "Cannot shift reference"] 10 (#$ . 118436)]) #@60 Toggle the display of coordinates in the referenced table. (defalias 'org-table-fedit-toggle-coordinates #[0 "\301!r\302!q\210\212\211b\210\303 *\207" [org-pos marker-position marker-buffer org-table-toggle-coordinate-overlays] 3 (#$ . 119609) nil]) #@134 Parse the buffer for formula definitions and install them. With prefix ARG, apply the new formulas to the table. (fn &optional ARG) (defalias 'org-table-fedit-finish #[256 "\306 \210\203 \307\310!\210\311\n \f\311eb\210\312\313\311\314#\203g \315\316!\315\317!\311\320\203, \321\202- \322\323\320\324\323##\266\202\211\323\232\204b \325\326\"\203O \327\330\314\211$\262\202= \331\"\203[ \332\333\"\210BB\262\266\202 \334 !\210\335!\210b\210\336!\210\311\211\223\210\311\211\223\210\337\340!\210\203\216 \341\342!\202\221 \343\344!\207" [org-table-use-standard-references org-table-buffer-is-an org-pos org-selected-window org-table--fedit-source org-window-configuration org-table-remove-rectangle-highlight org-table-fedit-convert-buffer org-table-convert-refs-to-rc nil re-search-forward "^\\(@[-+I<>0-9.$@]+\\|@?[0-9]+\\|\\$\\([a-zA-Z0-9]+\\|[<>]+\\)\\) *= *\\(.*\\(\n[ ]+.*$\\)*\\)" t match-string 1 3 replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" string-match "[ ]*\n[ ]*" replace-match " " assoc user-error "Double formulas for %s" set-window-configuration select-window org-table-store-formulas kill-buffer "*Edit Formulas*" org-table-recalculate all message "New formulas installed - press C-u C-c C-c to apply."] 15 (#$ . 119868) "P"]) #@57 Abort editing formulas, without installing the changes. (defalias 'org-table-fedit-abort #[0 "\303 \210 \304\n!\210\305!\210b\210\306\211\223\210\307\310!\207" [org-pos org-selected-window org-window-configuration org-table-remove-rectangle-highlight set-window-configuration select-window nil message "Formula editing aborted without installing changes"] 5 (#$ . 121177) nil]) #@68 Pretty-print and re-indent Lisp expressions in the Formula Editor. (defalias 'org-table-fedit-lisp-indent #[0 "`\302\211\211\303\304!\210\305\306!\203 b\210\307\310!\202\241 \305\311!\203\" b\202\241 \312\313!\204. \314\315!\202\241 \305\316!\203\240 \317\225\320Zb\210`\262\321i\322\"\262\3231N \324\304!0\202R \210\314\325!\210`\262\214}\210 =\203u eb\210\302\326\327\302\330#\203\232 \331\332!\210\202f \313 \210\333ed\"\210eTb\210\326\334\302\330#\203\223 \303\304!\210\211c\210\202\201 db\210\335\304!\210)b\202\241 \302\207" [last-command this-command nil beginning-of-line 1 looking-at "[ ]" call-interactively lisp-indent-line "[$&@0-9a-zA-Z]+ *= *[^ \n']" fboundp pp-buffer user-error "Cannot pretty-print. Command `pp-buffer' is not available" "[$&@0-9a-zA-Z]+ *= *'(" 0 2 make-string 32 (error) forward-sexp "Cannot pretty-print Lisp expression: Unbalanced parenthesis" re-search-forward "[ ]*\n[ ]*" t replace-match " " untabify "^." org-delete-backward-char] 8 (#$ . 121565) nil]) #@58 Move cursor one line up in the window showing the table. (defalias 'org-table-fedit-line-up #[0 "\300\301!\207" [org-table-fedit-move previous-line] 2 (#$ . 122581) nil]) #@60 Move cursor one line down in the window showing the table. (defalias 'org-table-fedit-line-down #[0 "\300\301!\207" [org-table-fedit-move next-line] 2 (#$ . 122758) nil]) #@140 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. (fn COMMAND) (defalias 'org-table-fedit-move #[257 "\302\303 \302\304\305\306!!!\210`\262\307!\210\310 \203' \311 \203' \307!\210\202 \310 \204/ \211b\210`\302\223\210\304!)\207" [org-pos org-table-allow-automatic-line-recalculation nil selected-window select-window get-buffer-window marker-buffer call-interactively org-at-table-p org-at-table-hline-p] 9 (#$ . 122936)]) #@10 (fn N) (defalias 'org-table-fedit-scroll #[257 "\302!\303!)\207" [org-pos other-window-scroll-buffer marker-buffer scroll-other-window] 3 (#$ . 123451) "p"]) #@10 (fn N) (defalias 'org-table-fedit-scroll-down #[257 "\300[!\207" [org-table-fedit-scroll] 3 (#$ . 123620) "p"]) #@49 Add a new overlay. (fn BEG END &optional FACE) (defalias 'org-table-add-rectangle-overlay #[770 "\301\"\302\303\206\f \304#\210\211B\211\207" [org-table-rectangle-overlays make-overlay overlay-put face secondary-selection] 8 (#$ . 123741)]) #@236 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. (fn &optional BEG END FACE) (defalias 'org-table-highlight-rectangle #[768 "\206 `\206\n `^]\212b\210\302 \303 )B\212b\210\302 \303 )B\304\300!\2030 BB@b\210AA^AA]@`X\203k \305 !\203e \306!\210\307\310x\210`\306!\210\307\310w\210\311` #\266\310y\210\202@ \266@b\266\312\313\314\"\207" [org-show-positions org-table-dataline-regexp line-beginning-position org-table-current-column boundp looking-at org-table-goto-column "^|\n" nil org-table-add-rectangle-overlay add-hook before-change-functions org-table-remove-rectangle-highlight] 17 (#$ . 123996)]) #@51 Remove the rectangle overlays. (fn &rest IGNORE) (defalias 'org-table-remove-rectangle-highlight #[128 "?\205 \302\303\304\"\210\305\306 \"\210\307\211\207" [org-inhibit-highlight-removal org-table-rectangle-overlays remove-hook before-change-functions org-table-remove-rectangle-highlight mapc delete-overlay nil] 4 (#$ . 124790)]) #@69 Collects the coordinate grid overlays, so that they can be removed. (defvar org-table-coordinate-overlays nil (#$ . 125133)) (make-variable-buffer-local 'org-table-coordinate-overlays) #@69 Add overlays to the table at point, to show row/column coordinates. (defalias 'org-table-overlay-coordinates #[0 "\303\304\"\210\305\212\306\211\305\211\211\211\307 b\210\310 \205\222 \311 \262\312\313 \313 T\"\262\211B\314 !\262\203= \315\316T\211\262\"\202F \315\317T\211\262 \"\262\320\321\322$\210\203\214 \306\323\324\325#\203\213 \211T\262\306\224T\315\326\"\327!\n\325=\203t \211\202u \312\211G\\\"\211B\330\321\322$\266\202T \210\305y\210\202 \266\206)\207" [org-table-coordinate-overlays org-table-hline-regexp org-table-use-standard-references mapc delete-overlay nil 0 org-table-begin org-at-table-p point-at-eol make-overlay point-at-bol looking-at format "I*%-2d" "%4d" org-overlay-before-string org-special-keyword evaporate re-search-forward "[+|]\\(-+\\)" t "$%d" org-number-to-letters org-overlay-display] 17 (#$ . 125324) nil]) #@53 Toggle the display of Row/Column numbers in tables. (defalias 'org-table-toggle-coordinate-overlays #[0 "?\302\303\203 \304\202 \305\"\210\306 \203 \203 \307 \210?\205) \310\311 \"\210\312\211\207" [org-table-overlay-coordinates org-table-coordinate-overlays message "Tables Row/Column numbers display turned %s" "on" "off" org-at-table-p org-table-align mapc delete-overlay nil] 3 (#$ . 126206) nil]) #@40 Toggle the formula debugger in tables. (defalias 'org-table-toggle-formula-debugger #[0 "?\301\302\203 \303\202 \304\"\207" [org-table-formula-debug message "Formula debugging has been turned %s" "on" "off"] 3 (#$ . 126624) nil]) #@93 Non-nil if current field is narrowed. When non-nil, return the overlay narrowing the field. (defalias 'org-table--shrunk-field #[0 "\300\301\302\212\303 \203 \304\202 \305\306 w\210`S)!\"\207" [cl-some #[257 "\300\301\"\302=\205\n \211\207" [overlay-get org-overlay-type table-column-hide] 4 "\n\n(fn O)"] overlays-at org-at-table-hline-p "^+|" "^|" line-end-position] 5 (#$ . 126865)]) #@50 List currently shrunk columns in table at point. (defalias 'org-table--list-shrunk-columns #[0 "\212\300 \210\301\302!\210\303 \203 \304\202 \302\305\306 \205 \305C\307 \301\310#\2035 T\262\306 \203 B\262\202 \237\266\204)\207" [beginning-of-line search-forward "|" org-at-table-hline-p "+" 1 org-table--shrunk-field line-end-position t] 8 (#$ . 127261)]) #@553 Create an overlay to shrink text between START and END. 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. When optional argument PRE is non-nil, assume the overlay is located at the beginning of the field, and prepend `org-table-separator-space' to it. Otherwise, concatenate `org-table-shrunk-column-indicator' at its end. Return the overlay. (fn START END DISPLAY FIELD &optional PRE) (defalias 'org-table--make-shrinking-overlay #[1284 "\302\303\"\304\305C#\210\304\306C#\210\304\307C#\210\304\310\311#\210;\203. \304\312#\210\304\313\314#\210\203> P\202A P\315\316\317$\266\207" [org-table-separator-space org-table-shrunk-column-indicator #[385 "\300\301\302\303\"A\"\207" [mapc delete-overlay overlay-get org-table-column-overlays] 7 "\n\n(fn O &rest _)"] make-overlay overlay-put insert-behind-hooks insert-in-front-hooks modification-hooks org-overlay-type table-column-hide help-echo priority 1 org-overlay-display org-table t] 13 (#$ . 127637)]) #@1058 Shrink a table field to a specified width. 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. Real field is hidden under one or two overlays. They have the following properties: `org-overlay-type' Set to `table-column-hide'. Used to identify overlays responsible for shrinking columns in a table. `org-table-column-overlays' It is a list with the pattern (siblings . COLUMN-OVERLAYS) where COLUMN-OVERLAYS is the list of all overlays hiding the same column. Whenever the text behind or next to the overlay is modified, all the overlays in the column are deleted, effectively displaying the column again. Return a list of overlays hiding the field, or nil if field is already hidden. (fn WIDTH ALIGN START END CONTENTS) (defalias 'org-table--shrink-field #[1285 "U\203 \300\207\301 \203 \300\207\302U\203' \303\304\305=\203# \304\202$ $C\207\211\306\267\202i \303\307T\310\"\304$C\207\311{!\312\\X\203Y \303S\307Z\313\"\304$\202e \303\314Z\315#\304\211$\266\202C\207\212\316!\203v \317!q\210\212\214~\210\211\206 `b\210\320\300w+\262\212\316!\203\224 \317!q\210\212\214~\210\211\206\235 `b\210\321\320\300x!+\262\311\\Z{!X\203?\302V\205\310 \303\211\\\304\322%\303\\\211S\302U\203\336 \fT\202\340 \f\3232&Z\315V\203$\324\325\326\"\325\326\"\327\315##\311{!U\203\330\323\"\210\202 W\203 \262\202 \262\266\202\344 0\266\204\304$\2038D\202:\211C\266\202\202\367Z\302U\203M\326\202c\331\267\202b\302\202c\211\202c\211\312\245\202c\300ZS\302U\203s\300\202\247U\203}\300\202\247W\203\225\303\n\211 Z\\\304 \322%\202\247\303\n\211T\307 SZ\313\" \322%\262SU\203\276\303\nS \304\f$\202\347W\203\325\303 Z\\ \304\f$\202\347\303\nS \307 SZ\313\"\f$\262\203\363D\202\365\211C\266\205\207" [nil org-table--shrunk-field 0 org-table--make-shrinking-overlay #1="" hline #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hline 45 #1# 58)) make-string 45 org-string-width 2 32 - 1 markerp marker-buffer " " abs t :exit + ash -1 logand throw #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("l" 340 "r" 344 "c" 348))] 21 (#$ . 128791)]) #@320 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. (fn SELECT MAX) (defalias 'org-table--read-column-selection #[514 "\3002 \301\302\303\304\305\306\307\310!\311\"\312\313%\314!\"!\315\"0\207" [:all sort delete-dups cl-mapcan make-byte-code 257 "\211\302\235\203 \303\304\305\306\300\"\"\207\307\310\311\312#)\266\203\2030 \313!\211\314V\205/ \211\300X\205/ \211C\207\312\315\"\203\\ \316\306\"\316\317\"\305\203L \306\313!]\202M \306\203Y \300\313!^\202Z \300\"\207\310\207" vconcat vector [inhibit-changing-match-data ("-" "1-") throw :all number-sequence 1 "\\`[0-9]+\\'" nil t string-match string-to-number 0 "\\`\\([0-9]+\\)?-\\([0-9]+\\)?\\'" match-string 2] 8 "\n\n(fn S)" split-string <] 11 (#$ . 131398)]) #@184 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. (fn COLUMNS BEG END) (defalias 'org-table--shrink-columns #[771 "\212\214~\210\300\"\210\211\205\362 \211@b\210\301\211\211`W\203\253 \3022\244 \303 \211\203+ \304\202, \305\306\305!\210\307U\204G \306\310 \311 S$\204G \312\302\301\"\210`\313P\310 w\210`\203X \314\202p {\301\315\203e \316\202f \317\320\315\321\320##\266\202EB\262?\205\237 \322\323\"\205\237 \204\220 \324\307\"\262?\205\237 \325\324\326\"!\211\262\266\203\266\2020\210\301y\210\202 \327C\211\203\351 \211@\330\331\206\274 \332\206\302 \333$\211\203\341 \211@\211AB\241\266\334\335#\210A\266\202\202\304 \210A\266\202\202\256 \266A\266\202\202\n \262*\207" [org-font-lock-ensure nil :continue org-at-table-hline-p "+" "|" search-forward 1 line-end-position t throw "^|" hline replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" string-match "\\`<\\([lrc]\\)?\\([0-9]+\\)>\\'" match-string string-to-number 2 siblings apply org-table--shrink-field 0 "l" overlay-put org-table-column-overlays] 21 (#$ . 132391)]) #@948 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. (fn &optional ARG) (defalias 'org-table-toggle-column-width #[256 "\301 \204 \302\303!\210\304 \305 \306 \307 Z\310\245\311 \204@ \212\312\307 x\210n\206- \313\314\315!)\262)\203: \316\317\320!\"\202\210 \321 C\202\210 ;\203L \316\"\202\210 :\203\203 @\211\322\267\202y A\211\205d \302\323\"\262\202~ A\211\205t \302\323\"\262\202~ \302\323\"\262\202\210 \302\323\"\324:\203\355 @\211\325\267\202\336 A\211\204\250 \326\"\202\272 \327\"\210\330\331\" #\262\202\350 A\211\204\317 \327\"\202\331 $\262\202\350 $\262\202\365 \211$\262\207" [inhibit-changing-match-data org-at-table-p user-error "Not in a table" org-table-begin org-table-end line-end-position line-beginning-position 2 org-table--list-shrunk-columns "^|" "[ ]*$" t looking-at org-table--read-column-selection read-string "Column ranges (e.g. 2-4 6-): " org-table-current-column #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 89 16 105)) "Invalid argument: %S" #[1028 "\300\"\210\301\302\"#\207" [org-table-expand org-table--shrink-columns cl-set-exclusive-or] 8 "\n\n(fn BEGIN END SHRUNK COLUMNS)"] #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 152 16 191)) org-table-shrink org-table-expand org-table--shrink-columns cl-set-exclusive-or] 14 (#$ . 133614) "P"]) #@245 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. (fn &optional BEGIN END) (defalias 'org-table-shrink #[512 "\204 \300 \204 \301\302!\210\212\214~\210\206 \303 \206 \304 \305\306b\210\307\310#\203@ \311\224b\210\312 \313\"\204< \211B\262\210\202\" \314\"\210\315\"\210\316\317\320\"#\266\204*\207" [org-at-table-p user-error "Not at a table" org-table-begin org-table-end "|[ ]*<[lrc]?[0-9]+>[ ]*\\(|\\|$\\)" nil re-search-forward t 1 org-table-current-column memql org-table-expand org-font-lock-ensure org-table--shrink-columns sort <] 10 (#$ . 135945) nil]) #@178 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. (fn &optional BEGIN END) (defalias 'org-table-expand #[512 "\204 \300 \204 \301\302!\210\212\214~\210\206 \303 \206 \304 \305\306\307$\266\202*\207" [org-at-table-p user-error "Not at a table" org-table-begin org-table-end remove-overlays org-overlay-type table-column-hide] 9 (#$ . 136706) nil]) #@86 Apply function F to the start of all tables in the buffer. (fn F &optional QUIETLY) (defalias 'org-table-map-tables #[513 "\301\212\302!\203 \303!q\210\212\214~\210\211\206 `b\210\304\305\306#\203] \307\310 \311\306#\211\203Y \2049 \312\313\314\315`_\316 \"\"\210\317\320\"b\210\321\317\322\"!\323\324\325\326\327!\330\"\331$\216 \210\211b\210)\210\210\202 +\210\211?\205g \312\332!\207" [org-table-line-regexp 1 markerp marker-buffer re-search-forward nil t org-element-lineage org-element-at-point (table) message "Mapping tables: %d%%" floor 100.0 buffer-size org-element-property :post-affiliated copy-marker :end make-byte-code 0 "\300\301\211\223\207" vconcat vector [nil] 3 "Mapping tables: done"] 11 (#$ . 137170)]) #@674 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'. (fn &optional FILE FORMAT) (defalias 'org-table-export #[512 "\301 \204 \302\303!\210\304 \210\206 \305`\306\307#\211\2041 \310\311!\262\312!\2031 \313\314\315\"!\2041 \302\316!\210\317!\203; \302\320!\210\321\322 !\203T \323\324!\324\321\322 !!\"\203T \302\325!\210\326!\327P\206b \305`\330\307#\211\204\225 \331\332\333\334\332\335\336\337\340\341\342\343\344\345\346!\347\"\350\351%\n\"\"@\206\206 \307\211%\307\211%\352\353\340\211%\266\203\354\355\"\203\361 \356\357\360\"!\361\225\205\260 \362\363\357\361\"\364Q!\365\366\367 \370 \"!\371!\204\303 \302\372\"\210\340r\373!q\210p\262\374 \210\375 \210\"\335\261\210\376 \210)\377!\266\201@ \201A !\266\203\202\366 \302\201B !\266\202\207" [org-table-export-default-format org-at-table-p user-error "No table at point" org-table-align org-entry-get "TABLE_EXPORT_FILE" t read-file-name "Export table to: " file-exists-p y-or-n-p format "Overwrite file %s? " "File not written" file-directory-p "This is a directory path, not a file" buffer-file-name buffer-base-buffer file-equal-p file-truename "Please specify a file name that is different from current" file-name-extension "$" "TABLE_EXPORT_FORMAT" ("orgtbl-to-tsv" "orgtbl-to-csv" "orgtbl-to-latex" "orgtbl-to-html" "orgtbl-to-generic" "orgtbl-to-texinfo" "orgtbl-to-orgtbl" "orgtbl-to-unicode") replace-regexp-in-string " " "\\t" "\n" "\\n" delq nil mapcar make-byte-code 257 "\300\302\303\304#)\266\203\205 \211\207" vconcat vector [inhibit-changing-match-data nil t string-match] 8 "\n\n(fn F)" org-completing-read "Format: " string-match "\\([^ \n]+\\)\\( +.*\\)?" intern match-string 1 2 read "(" ")" org-table-to-lisp buffer-substring-no-properties org-table-begin org-table-end fboundp "No such transformation function %s" find-file-noselect erase-buffer fundamental-mode save-buffer kill-buffer message "Export done." "TABLE_EXPORT_FORMAT invalid"] 21 (#$ . 137913) nil]) #@157 Format FIELD according to column WIDTH and alignment ALIGN. FIELD is a string. WIDTH is a number. ALIGN is either "c", "l" or"r". (fn FIELD WIDTH ALIGN) (defalias 'org-table--align-field #[771 "\301!Z\302\267\202 \303\202 \304\305\"\202 \304\306\245\305\"\202 \307\304GZ\305\"\260\207" [org-table-separator-space org-string-width #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("l" 11 "r" 15 "c" 22)) "" make-string 32 2 nil] 11 (#$ . 140492)]) #@57 Align the table at point by aligning all vertical bars. (defalias 'org-table-align #[0 "\306 \307\310 !\307\311 !\312 \313\314\315\316\317\"\320\"\321$\216\322\"\210\323\223\210 \323\223\210b\210\307\306 !\307\310 \324\"\325 \212\326!\203E \327!q\210\212\214~\210\211\206N `b\210\330\"\210+\210\313\314\331\316\317#\332\"\333$\216\334\335!\210\336\314!\337\340\341\n\n{\342\324#\"\211\203\211 \343\344\337\345\"\"\202\227 \346 \"\210\347\n!\210\350\351!\323\211\314\211W\203 \211\352\323\314\211\n\211\203\370 \211@8\206\266 \353\354!]\262\204\360 \211\353\232\204\360 \355\356\"\203\330 \336\352\"\262\202\360 T\262 \323\324 \355#)\266\203\203\360 T\262\210A\266\202\202\250 \210 B\262 \206 _Y\203\357\202\360B\262\266\211T\262\202\233 \266\237\262\211\237\262\211?@\211\203\205\211@`\361 {\362\363 \204J\364\365 \366#\202d\367\370 GZ\353\"\"\364\371\372\373 $\374#\262#\211\232\203q\323y\210\202|\211\342\261\210`\311\375!|\210\266A\266\202\202/\210\n\323\211\223\210>\203\224\376 \210\323\211A\266\205)\266\203)\266\202\207" [org-table-aligned-begin-marker org-table-aligned-end-marker org-table-default-size org-table-number-regexp inhibit-changing-match-data org-table-number-fraction org-table-begin copy-marker org-table-end line-beginning-position org-table-current-column make-byte-code 0 "\300b\210\302\301!\210\300\303\211\223\207" vconcat vector [org-table-goto-column nil] 3 org-font-lock-ensure nil t org-table--list-shrunk-columns markerp marker-buffer org-table-expand "\303\302\300\301#\210\300\304\211\223\210\301\304\211\223\207" [org-table--shrink-columns nil] 4 looking-at "[ ]*" match-string mapcar #[257 "\302\303\304#)\266\203?\205 \305\306\"\207" [org-table-hline-regexp inhibit-changing-match-data nil t string-match org-split-string "[ ]*|[ ]*"] 8 "\n\n(fn L)"] split-string "\n" apply max length kill-region org-table-create user-error "Empty table - created default table" 1 "" org-string-width string-match "\\`<\\([lrc]\\)[0-9]*>\\'" "r" "l" line-end-position format "%s|%s|" mapconcat #[257 "\300\301\\\302\"\207" [make-string 2 45] 4 "\n\n(fn W)"] "+" append make-list identity cl-mapcar org-table--align-field "|" 2 org-table-overlay-coordinates org-table-last-alignment org-table-last-column-widths org-table-may-need-update] 29 (#$ . 141005) nil]) #@156 Justify the current field, text to left, number to right. Optional argument NEW may specify text to replace the current field content. (fn &optional NEW) (defalias 'org-table-justify-field-maybe #[256 "\211\204 \206\315 \305 \206\315 \211\204) \306 !p=\203% ` W\204% `\nY\203) \307\211\207`\310 \211\311V\205\313 \312\313x\210\314\315!\204B \307\211\202\313 \211S 8S\f8\316\311!\316\317!\320\224\320\225U?\321 \322\311\323\324\325!\326\"\327$\216\203t \330\331\n\206p \"\202\264 \204\206 \307\330\331\n\206\202 \"\202\264 \204\227 \332#\333P\202\264 \334 !X\203\255 \332 #\333P\202\264 \307\330\331\n\")\262\211\232\204\306 \313\335\307\211#\210)b\266\206\266\202\207" [org-table-may-need-update org-table-aligned-begin-marker org-table-aligned-end-marker org-table-last-alignment org-table-last-column-widths org-at-table-hline-p marker-buffer t org-table-current-column 0 "^|" nil looking-at " *\\([^|\n]*?\\) *\\(|\\|$\\)" match-string 1 2 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 format " %s |" org-table--align-field "|" org-string-width replace-match] 15 (#$ . 143409)]) #@1448 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. (fn &optional WITH-CASE SORTING-TYPE GETKEY-FUNC COMPARE-FUNC INTERACTIVE\=\?) (defalias 'org-table-sort-lines #[1280 "\301 \203 \302 b\210\212\303\304x\210n\203 \305\306\307 \310#\210\311 \210)\312 \211\313V\203) \211\2024 \2033 \314\315!\2024 \316\262\206= \317\320!\321 \322 \214\301 \203Z \302 b\210`\212\323 b\210\324\325!)}\210\202} \212\326\310#\203i \324\325!\202j )\212\327\310#)\203z \313\224\202{ }\210\330e\324 \"iB\331\267\202\253 \332\202\257 \333\202\257 \334\202\257 \206\257 \203\245 \335\336!\206\257 \337\340!\202\257 \341\342\"\343\267\202\327 \344\202\330 \n\203\302 \345\202\330 \346\202\330 \206\330 \205\330 \335\347\350\"\202\330 \304\351\352 \"eb\210\353\354>\355\356\357\313\360\361\362\f\"\363\"\364$\304&\210\365#\210@y\210\366A!\266\204)\207" [org-table-hline-regexp org-region-active-p region-beginning " " nil search-forward "|" line-end-position t org-table-check-inside-data-field org-table-current-column 0 read-number "Use column N for sorting: " 1 read-char-exclusive "Sort Table: [a]lphabetic, [n]umeric, [t]ime, [f]unc. A/N/T/F means reversed: " org-table-begin org-table-end region-end line-beginning-position 2 re-search-backward re-search-forward count-lines #s(hash-table size 8 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 138 78 138 97 142 65 142 116 146 84 146 102 150 70 150)) string-to-number org-sort-remove-invisible #[257 "\301\"\203 \302\303\304\305\"!!\207\306!\203 \307!\207\301\310\"\203( \307\304\305\"!\207\305\207" [org-ts-regexp-both string-match float-time org-time-string-to-time match-string 0 org-duration-p org-duration-to-minutes "\\<[0-9]+:[0-9]\\{2\\}\\>"] 6 "\n\n(fn F)"] org-read-function "Function for extracting keys: " error "Missing key extractor to sort rows" user-error "Invalid sorting type `%c'" #s(hash-table size 8 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 181 78 181 116 181 84 181 97 185 65 185 102 198 70 198)) < org-string-collate-lessp #[514 "\300\301\302$\207" [org-string-collate-lessp nil t] 7 "\n\n(fn S1 S2)"] "Function for comparing keys (empty for default `sort-subr' predicate): " allow-empty remq org-table--list-shrunk-columns sort-subr (65 78 84 70) #[0 "\301y\210m?\205 \302!?\205 \301y\210\202 \207" [org-table-dataline-regexp nil looking-at] 2] end-of-line make-byte-code "\301\302\300!\303\304\203 \305\202 \306\307\304\310\307##\266\202!\207" vconcat vector [org-table-get-field nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 10 org-table--shrink-columns move-to-column] 24 (#$ . 144580) (byte-code "\301\211\211\302\257\207" [current-prefix-arg nil t] 5)]) #@260 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. (defalias 'org-table-transpose-table-at-point #[0 "\300\301\302 \"\303 \304 \305\306\307\310\311\312!\313\"\314\315%@\"\316 b\210\317\320!\210\321u\210`\322 |\210\323\324\325#c\210\326!\210\327!\266\330 \207" [delete hline org-table-to-lisp org-table-current-line org-table-current-column mapcar make-byte-code 257 "\300C\301\302\303\304\305\306!\307\"\310\311%\300\"\207" vconcat vector [mapcar make-byte-code 257 "\300\242\211@\211A\240\210\266\202\242\300\211\242A\240\210\207" vconcat vector [] 6 "\n\n(fn _)"] 9 "\n\n(fn _)" org-table-begin re-search-forward "|" -1 org-table-end mapconcat #[257 "\300\301\302\303#\304Q\207" ["| " mapconcat identity " | " " |\n"] 6 "\n\n(fn X)"] "" org-table-goto-line org-table-goto-column org-table-align] 10 (#$ . 148663) nil]) #@1197 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. (fn ARG) (defalias 'org-table-wrap-region #[257 "\302 \210\303 \203H \304 \305\304 \306 \"\210@G\307V\203 \310\311!\210\204& G\2024 \307W\2033 G\\\2024 \312\313\314\315\316\317#\320#\"\210\211b\210\321 \207 \322\211\323=\203V \323\266\202\202\206 \323=\203b \323\266\202\202\206 \324\"\203s \324\"A\266\202\202\206 \325\236A\211<\203\203 \326\320\"\202\204 \211\266\203\204\215 \327\320w\210\211\203\314 \330 \331 \332y\210\333 \203\243 \332y\210\202\230 \334!\210\335\320w\210\317\320x\210\317\320\336\203\273 \337\202\274 \340\341\336\342\341##\266\202\261\210\343 \207\344\345!\203\375 \346\307!\347\350!\210\351\224b\210\352 \210\211\320\336\203\353 \337\202\354 \340\341\336\342\341##\266\202\317\261\210\343 \207\352 \207" [org-table-clip org-M-RET-may-split-line org-table-check-inside-data-field org-region-active-p region-beginning org-table-cut-region region-end 1 user-error "Region must be limited to single column" mapcar list org-wrap mapconcat car " " nil org-table-paste-rectangle table t assoc default delq "^ \n|" org-table-blank-field org-table-current-column -1 org-at-table-hline-p org-table-goto-column "^|" replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-table-align looking-at "\\([^|]+\\)|" match-string replace-match " |" 0 org-table-next-row] 13 (#$ . 149713) "P"]) #@10 (fn S) (defalias 'org-table--number-for-summing #[257 "\301\302\303\"\203 \304\305\301\211$\262\302\306\"\203 \304\305\301\211$\262\307!\262\302\310\"\2036 \302\311\"\2036 \312\202\213 \302\313\"\203A \301\202\213 \302\314\"\203\200 \307\315\316\"\206Q \310!\307\315\317\"\206[ \310!\307\315\320\"\206f \310!\321\300!\203p T\322\323\324\245\325\245#_\266\203\202\213 \211\312\232\203\212 \301\202\213 \211\207" [org-timecnt nil string-match "^ *|? *" replace-match "" " *|? *$" string-to-number "0" "\\`[-+ 0.edED]+\\'" 0 "\\`[ ]+\\'" "\\`\\([0-9]+\\):\\([0-9]+\\)\\(:\\([0-9]+\\)\\)?\\'" match-string 1 2 4 boundp 1.0 + 60.0 3600.0] 11 (#$ . 152259)]) #@635 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. (fn &optional BEG END NLAST) (defalias 'org-table-sum #[768 "\212\302\303\302\211\211\211\211\203 \204Y \304 \203% \305 \262 \306 \262\202Y \307 \262\310 b\210\311\312\302\313#\2049 \314\315!\210\316!\210`\262 \317 b\210\320\312\302\313#\204Q \314\315!\210\316!\210`\262\321\322\323 \"\"\204k \211\202\206 GY\203w \211\202\206 \324!\262S\233\302\241\210\211\237\325\302\326\327\"\"\321\330\" \303U\203\235 \331!\202\313 \332_\262\333\332\"\262\334\332\"\262\333\335\"\262\334\335\"\262\262\336\337$\340!\210\341\342!\203\341 \343\344\336\345G#!!\210\266\204*\266\206)\207" [org-table-clip org-timecnt nil 0 org-region-active-p region-beginning region-end org-table-current-column org-table-begin re-search-forward "^[ ]*|[^-]" t user-error "No table data" org-table-goto-column org-table-end re-search-backward apply append org-table-copy-region reverse delq mapcar org-table--number-for-summing + number-to-string 3600 floor mod 60 format "%.0f:%02.0f:%02.0f" kill-new called-interactively-p interactive message substitute-command-keys "Sum of %d items: %-20s (\\[yank] will insert result into buffer)"] 20 (#$ . 152946) nil]) #@372 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'. (defalias 'org-table-analyze #[0 "\306 \307 \212b\210\310\212\311\312\313#)\203= \314\315\316\314!\317\"\211\203; \211@T\262\320\321\"\2034 \211\322!BBA\266\202\202 \266\237\323\324\325\326\327\"\313\"\"\310\212\311\330\313#\203\200 \315\316\314!\317\"\211\203| \211@\320\331\"\203u \316\314\"\316\332\"B\nBA\266\202\202\\ \210\202N )\310\212`\333B\311\334\313#\203\316\314!\315\316\332!\317\"\212\335\232\203\243 \314\202\244 \336y\210\337\340!\205\262 \315\316\314!\317\"\211A\341@`\"\\\241\262\314`\240\210\203 \203 \211A\262\242\211A\262\242T\262;\203\373 \211;\203\373 \320\321\"\203\373 B\nBE B\266\202\305 \266)\266\202\207 \210)\342\f!\203\f`\310\223\210\202\343 \333\310\211\211\337\344!\203O\314\225\203.\345\202/\346B\262\314\225\203@B\262\202EB\262\310y\210T\262\202 \345B\262\347\350\237\"\347\350\310\237B\".\347\350\310\237B\"/\266b\210.\314Hy\210\315\351 \352 {\353\"\211G\310\2110.\211GSH\333\211W\203\272\211\211T\323\354\"EB\262\323\354\"\n8BB\262\266\211T\262\202\216\266\355 \"\355\n\"\211\266\204)\207" [org-table-column-names org-table-column-name-regexp org-table-local-parameters org-table-named-field-locations org-table-current-begin-pos org-table-current-line-types org-table-begin org-table-end nil re-search-forward "^[ ]*| *! *\\(|.*\\)" t 1 org-split-string match-string " *| *" string-match "\\`[a-zA-Z][_a-zA-Z0-9]*\\'" int-to-string format "\\$\\(%s\\)\\>" regexp-opt mapcar car "^[ ]*| *\\$ *\\(|.*\\)" "\\`\\([a-zA-Z][_a-zA-Z0-9]*\\|%\\) *= *\\(.*\\)" 2 0 "^[ ]*| *\\([_^]\\) *\\(|.*\\)" "_" -1 looking-at "^[ ]*|[^|]*\\(|.*\\)" count-lines markerp point-marker "[ ]*|\\(-\\)?" hline dline apply vector line-beginning-position line-end-position "[ ]*|[ ]*" "LR%d" append org-table-dlines org-table-hlines org-table-current-ncol] 14 (#$ . 154749)]) #@136 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. (defalias 'org-table--force-dataline #[0 "\301!?\205T i\212\302\303 \304#)\212\305\306 \304#)\2039 \211\2039 \307`Z!\307`Z!W\2033 \2024 \211b\210\202O \204A \211\203K \206F \211b\210\202O \310\311!\210\312!\266\204\207" [org-table-dataline-regexp org-match-line re-search-forward org-table-end t re-search-backward org-table-begin abs user-error "No table data line around here" org-move-to-column] 8 (#$ . 157033)]) #@140 Show the location/value of the $ expression at point. When LOCAL is non-nil, show references for the table at point. (fn &optional LOCAL) (defalias 'org-table-show-reference #[256 "\306 \210\211\203\n \307 \210\3102\211\211\203 `\202 \311\312\313 \314\211\211\211\211\211\211\315\316!\203E \317\320\321!\321\322#\323\317\320\321!\321\322#\324R\262\325\202\223 \315 !\204W \315\f!\204W \315 !\203s \326 \327\321\330\331\332!\333\"\334$\216\335\320\321!!)\262\262\325\202\223 \315\336!\203} \337\202\223 \315\340!\203\207 \341\202\223 \204\220 \314\202\223 \342\343!\262\205\240 \206\240 \320\321!\262\203\266 \321\224\344 \232\204\266 \345\321\224\321\225\346#\210\347\350\306\"\210\337=\203\307 \317\351\"\262\325=\203\337 \352!\353=\204\332 \354P\262\355!\262 \204\212\314\210\356\357\314\312#\210\360 \210\361\362!\203\326 \327\321\330\331\332!\363\"\334$\216\335\320\351!!)\262\262\345\351\224\351\225\f#\210)\364 !\203E\365 !\203E\366\365\f!!\203<\367\366\365 !!!\210\202E\370\366\365 !!!\210\nb\210\371 \210 \203V@\202X\372 \203\252\317\351\"\262\373\314\312 A\374#)\266\203\203z\375!\210\202\233\376\314\312 A\374#)\266\203\203\222\375!\210\202\233\377\201I !!\210 `\314\223\210\201J \314\211 #\210\232\2049\2039\325=\203\324\201K 1\314\201L \314\311$0\202\320\210\2029\210\2029\201M B\"\211\262\203\375!\210\201J \210\201N \201O \201P 8A@#\210\2029\201M C\"\211\262\203V\377\201I A!!\210\201J \210\211b\210\201Q \201R \201S Q\201T \312#\203M\351\224b\210\201J \210\201N \201U A\"\210\2029\342\201V !\210\2029\341=\203{\377\201I \317\351\"!!\210\201J \210\201N \201W \317\351\"\"\210\2029\201M D\"\211\262\203\273\211b\210\201Q \201X \201Y Q\314\312#\203\262\351\224b\210\201J \210\201N \201Z !\210\2029\342\201[ !\210\2029\204\307\342\343!\210\2029\201M E\"\211\262\203\345\201N \201\\ A#\210\2029\201M F\"\211\262\203\201N \201] A#\210\2029\201^ \201_ !\205\201_ !\211\262\2031\201N \201` \201a \201b G\"$\210\2029\342\201c \"\210 b\210 \203\200H\201d >\204\200 B\211 B\201e \201f \"\201e \201g \"\201h \313 \"\210\211b\210\201i !\204~\201h \313 \"\210\266\210\367!*\266\2130\207" [org-pos org-show-positions org-inhibit-highlight-removal org-table-range-regexp2 org-table-translate-regexp org-table-range-regexp org-table-remove-rectangle-highlight org-table-analyze exit highlight t selected-window nil org-in-regexp "^@[0-9]+[ =]" substring match-string 0 -1 "$1.." "$100" range match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table-convert-refs-to-rc "\\$[a-zA-Z][a-zA-Z0-9]*" name "\\$[0-9]+" column user-error "No reference at point" point-at-bol org-table-add-rectangle-overlay secondary-selection add-hook before-change-functions 1 string-to-char 64 "@" org-table-formula-substitute-names re-search-backward "^\\S-" beginning-of-line looking-at "\\(\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\|[a-zA-Z]+\\([0-9]+\\|&\\)\\) *=" [set-match-data evaporate] markerp marker-buffer get-buffer-window select-window org-switch-to-buffer-other-window org-table--force-dataline org-table-begin "\\`\\$[a-zA-Z][a-zA-Z0-9]*" string-match org-table-goto-field "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" org-table-goto-column org-table-current-begin-pos inhibit-changing-match-data org-table-named-field-locations org-table-column-names org-table-local-parameters org-table-formula-constants-local org-table-formula-constants constants-unit-system this-command string-to-number org-table-highlight-rectangle (error) org-table-get-range assoc message "Named field, column %d of line %d" 2 re-search-forward "^[ ]*| *! *.*?| *\\(" "\\) *|" org-table-end "Named column (column %s)" "Column name not found" "Column %s" "^[ ]*| *\\$ *.*?| *\\(" "=\\)" "Local parameter." "Parameter not found" "Local Constant: $%s=%s in #+CONSTANTS line." "Constant: $%s=%s in `org-table-formula-constants'." fboundp constants-get "Constant: $%s=%s, from `constants.el'%s." format " (%s units)" "Undefined name $%s" (org-table-fedit-scroll org-table-fedit-scroll-down) apply min max set-window-start pos-visible-in-window-p] 20 (#$ . 157603) nil]) #@27 Keymap for `orgtbl-mode'. (defvar orgtbl-mode-map (make-keymap) (#$ . 161877)) #@39 Local variable used by `orgtbl-mode'. (defvar org-old-auto-fill-inhibit-regexp nil (#$ . 161962)) #@40 Matches a line belonging to an orgtbl. (defconst orgtbl-line-start-regexp "[ ]*\\(|\\|#\\+\\(tblfm\\|orgtbl\\|tblname\\):\\)" (#$ . 162066)) #@70 Extra `font-lock-keywords' to be added when `orgtbl-mode' is active. (defconst orgtbl-extra-font-lock-keywords (byte-code "\301\302Q\303\304\305FC\207" [orgtbl-line-start-regexp "^" ".*" 0 'org-table prepend] 4) (#$ . 162214)) #@40 Unconditionally turn on `orgtbl-mode'. (defalias 'turn-on-orgtbl #[0 "\300\301!\210\302\303!\207" [require org-table orgtbl-mode 1] 2 (#$ . 162448)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put orgtbl-mode :included t :menu-tag "Org Table Mode"] 4) #@13 OrgTbl menu (defvar orgtbl-mode-menu nil (#$ . 162720)) (easy-menu-do-define 'orgtbl-mode-menu orgtbl-mode-map "OrgTbl menu" '("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"]))) #@91 Non-nil if Orgtbl mode is enabled. Use the command `orgtbl-mode' to change this variable. (defvar orgtbl-mode nil (#$ . 166005)) (make-variable-buffer-local 'orgtbl-mode) #@326 The Org mode table editor as a minor mode for use in other modes. If called interactively, enable Orgtbl mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. (fn &optional ARG) (defalias 'orgtbl-mode #[256 "\306 \307=\203 ?\202 \310!\311V\312 \210\313\314!\203# \315\316!\210\202\233 \203{ \317 \2031 \320\317\321\"\210\300 \236\211\203? \211\322 \"B\210\323\302!\210\324\325\326\327\330\331$\210\323\304!\210 \323\303!\210 \203b \332 Q\202c \333\334!\203s \334\330.\"\210\335 \210\336/!\210\202\233 \f\337\326\327\324#\210\333\340!\203\222 \340\330.\"\210\335 \210\341/!\210\342\343!\210\344\345\203\245 \346\202\246 \347\"\210\350\351!\203\312 \306 \203\272 \211\306 \232\203\312 \352\315\353\203\305 \354\202\306 \355#\266\210\342 \210\207" [orgtbl-mode minor-mode-map-alist org-table-may-need-update auto-fill-inhibit-regexp org-old-auto-fill-inhibit-regexp orgtbl-line-start-regexp current-message toggle prefix-numeric-value 0 org-load-modules-maybe derived-mode-p org-mode message "Orgtbl mode is not useful in Org mode, command ignored" orgtbl-setup defalias #[0 "\300\207" [nil] 1] delq make-local-variable t add-hook before-change-functions org-before-change-function nil local "\\|" fboundp font-lock-add-keywords org-restart-font-lock easy-menu-add remove-hook font-lock-remove-keywords easy-menu-remove force-mode-line-update all run-hooks orgtbl-mode-hook orgtbl-mode-on-hook orgtbl-mode-off-hook called-interactively-p any " in current buffer" "Orgtbl mode %sabled%s" "en" "dis" orgtbl-extra-font-lock-keywords orgtbl-mode-menu] 7 (#$ . 166183) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) (defvar orgtbl-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [orgtbl-mode-map orgtbl-mode-hook variable-documentation put "Hook run after entering or leaving `orgtbl-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode orgtbl-mode " OrgTbl" nil] 6) #@251 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. (fn FUN N &rest KEYS) (defalias 'orgtbl-make-binding #[642 "\300\301\302\303\304!P!\305\306\307!\310\311\312 \313#\314\260\315\316\317\320\321\fDD\322\323\320\324\325\326\327\"\330#DEF\257!\207" [eval defun intern "orgtbl-hijacker-command-" int-to-string (arg) "In tables, run `" symbol-name "'.\nOutside of tables, run the binding of `" mapconcat key-description "' or `" "'." (interactive "p") if (org-at-table-p) call-interactively quote let (orgtbl-mode) append (or) mapcar #[257 "\300D\207" [key-binding] 3 "\n\n(fn K)"] ('orgtbl-error)] 20 (#$ . 168377)]) #@57 Error when there is no default binding for a table key. (defalias 'orgtbl-error #[0 "\300\301!\207" [user-error "This key has no function outside tables"] 2 (#$ . 169184) nil]) #@23 Setup orgtbl keymaps. (defalias 'orgtbl-setup #[0 "\302\303\304\211\211\211\211A\262\242\211\262\2032 T\262\305@!\262A@\262\306#\262\307#\210\202 \307\310\306\311\312\313\314$#\210\307\314\306\311\315\314\316$#\210\307\317\306\320\321\322\323$#\210\307\323\306\320\324\323\325$#\210\307\326\306\327\330\331\332\323%#\210\307\333\306\334\335\336\337$#\210\307\340\306\327\341\342\343\344\345\323&#\210\307\346\306\327\347\350\351\352\353\323&#\210\307\354\306\355\356\354\357$#\210\307\360\306\355\361\362\354$#\210\307\363\364#\210\307\365\366#\210 \203\312 \367\370\371\372\373\374\334&\210\307\375\376#\210\377\207" [orgtbl-mode-map orgtbl-optimized 0 (([(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) ("" org-table-cut-region) ("\367" org-table-copy-region) ("" org-table-paste-rectangle) ("" org-table-wrap-region) ("-" org-table-insert-hline) ("}" org-table-toggle-coordinate-overlays) ("{" org-table-toggle-formula-debugger) (" " org-table-next-row) ([(shift return)] org-table-copy-down) ("?" org-table-field-info) (" " org-table-blank-field) ("+" org-table-sum) ("=" org-table-eval-formula) ("'" org-table-edit-formulas) ("`" org-table-edit-field) ("*" org-table-recalculate) ("^" org-table-sort-lines) ("\341" org-table-beginning-of-field) ("\345" org-table-end-of-field) ([(control 35)] org-table-rotate-recalc-marks)) nil org-key orgtbl-make-binding org-defkey [(return)] orgtbl-ret 100 [(return)] " " 101 [(return)] [(tab)] orgtbl-tab 102 [(tab)] " " 103 [(tab)] [(shift tab)] org-table-previous-field 104 [(shift tab)] [(tab)] [backspace] org-delete-backward-char 109 [backspace] "" [S-iso-lefttab] 107 [S-iso-lefttab] [backtab] [(shift tab)] [(tab)] [backtab] 108 [backtab] [S-iso-lefttab] [(shift tab)] [(tab)] "\215" org-table-wrap-region 105 [(meta return)] [(meta return)] 106 [(meta return)] "" orgtbl-ctrl-c-ctrl-c "|" orgtbl-create-or-convert-from-region org-remap self-insert-command orgtbl-self-insert-command delete-char org-delete-char delete-backward-char "|" org-force-self-insert t] 17 (#$ . 169367)]) #@157 If the cursor is inside a table, realign the table. If it is a table to be sent away to a receiver, do it. With prefix arg, also recompute table. (fn ARG) (defalias 'orgtbl-ctrl-c-ctrl-c #[257 "\303`\304\212\305\306!\210\307\310!\203 \311\225\202& \307\312!\203 \202& \307\313!\205& \314\262)\211\250\203R \211b\210\315 \210\203? \316\317!\210\202B \320 \210\316\321!\210\322\323!\205| \324\325!\202| \211\314=\203t \212\305\306!\210\326\304x\210\327 \205p \317\303\211\316!)\266\202)\202| \304\316\330\331!!))\207" [case-fold-search current-prefix-arg orgtbl-mode t nil beginning-of-line 1 looking-at "[ ]*#\\+ORGTBL:.*\n[ ]*|" 0 "[ ]*|" "[ ]*#\\+tblfm:" recalc org-table-maybe-eval-formula call-interactively org-table-recalculate org-table-maybe-recalculate-line org-table-align orgtbl-send-table maybe run-hooks orgtbl-after-send-table-hook " \n " org-at-table-p key-binding ""] 8 (#$ . 171751) "P"]) #@197 Create table or convert region to table, if no conflicting binding. This installs the table binding `C-c |', but only if there is no conflicting binding to this key outside orgtbl-mode. (fn ARG) (defalias 'orgtbl-create-or-convert-from-region #[257 "\301\302\303!\211\203 \304!\202 \304\305!)\207" [orgtbl-mode nil key-binding "|" call-interactively org-table-create-or-convert-from-region] 4 (#$ . 172681) "P"]) #@61 Justification and field motion for `orgtbl-mode'. (fn ARG) (defalias 'orgtbl-tab #[257 "\211\203 \300\301!\207\302 \210\303 \207" [org-table-edit-field t org-table-justify-field-maybe org-table-next-field] 3 (#$ . 173106) "P"]) #@51 Justification and field motion for `orgtbl-mode'. (defalias 'orgtbl-ret #[0 "o\203 \300 \207\301 \210\302 \207" [newline org-table-justify-field-maybe org-table-next-row] 1 (#$ . 173342) nil]) #@218 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. (fn N) (defalias 'orgtbl-self-insert-command #[257 "\306 \203+ \203 \307>\203 \310 \210\211\311=\203+ \312\313!\203+ \314\311\224\311\225|\210\315!)\207\316\314\211\317\f<\203E \320 \f\"\211\262\203E A\206H \321 !!\206M \315\322!\210\205\227 \211\315=\205\227 \323=\204i \311\211\202\227 \324Y\203w \311\211\202\227 \325V\203\221 \203\221 A@\204\221 \211AA\241\210T\211)\207" [org-table-auto-blank-field last-command org-table-may-need-update orgtbl-mode function-key-map last-input-event org-at-table-p (orgtbl-hijacker-command-100 orgtbl-hijacker-command-101 orgtbl-hijacker-command-102 orgtbl-hijacker-command-103 orgtbl-hijacker-command-104 orgtbl-hijacker-command-105 yas/expand) org-table-blank-field 1 looking-at "[^|\n]* \\( \\)|" nil self-insert-command t key-binding assoc vector call-interactively orgtbl-self-insert-command 20 0 org-self-insert-cluster-for-undo org-self-insert-command-undo-counter buffer-undo-list] 7 (#$ . 173543) "p"]) #@63 Regular expression matching exponentials as produced by calc. (defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$" (#$ . 174742)) #@89 Gather a plist of :name, :transform, :params for each destination before a radio table. (defalias 'orgtbl-gather-send-defs #[0 "\212\301 b\210\302\303\304!\210\305\306!\203T \307\310!\302\211\203# \311\304G$\210\202+ \312\304G\302$\210\266\202\313\307\314!!\315\225\205@ \316\317\307\315!\320Q!\321\322\323\257B\262\303\304!\266\202\n \211\262)\207" [org-rm-props org-table-begin nil beginning-of-line 0 looking-at "[ ]*#\\+ORGTBL[: ][ ]*SEND[ ]+\\([^ \n]+\\)[ ]+\\([^ \n]+\\)\\([ ]+.*\\)?" match-string 1 remove-text-properties set-text-properties intern 2 3 read "(" ")" :name :transform :params] 10 (#$ . 174900)]) #@56 Find and replace table NAME with TEXT. (fn NAME TEXT) (defalias 'orgtbl-send-replace-tbl #[514 "\212eb\210\300\301!\302\303\"\302\304\"\305\300\306#\203? \204 \306\262\307\310!\305\300\306#\204/ \311\312\"\210\313 \210\211`|\210\314\261\266\202 ?\205G \311\315!\266\204)\207" [nil regexp-quote format "BEGIN +RECEIVE +ORGTBL +%s\\([ ]\\|$\\)" "END +RECEIVE +ORGTBL +%s\\([ ]\\|$\\)" re-search-forward t line-beginning-position 2 user-error "Cannot find end of receiver location at %d" beginning-of-line "\n" "No valid receiver location found in the buffer"] 11 (#$ . 175548)]) #@282 Convert the table at point to a Lisp structure. 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. (fn &optional TXT) (defalias 'org-table-to-lisp #[256 "\211\204 \300 \204 \301\302!\210\211\206 \303\304 \305 \"\306\307\310\311\"\"\207" [org-at-table-p user-error "No table at point" buffer-substring-no-properties org-table-begin org-table-end mapcar #[257 "\301\"\203 \302\207\303\304\305\203 \306\202 \307\310\305\311\310##\266\202\312\"\207" [org-table-hline-regexp string-match hline org-split-string nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" "\\s-*|\\s-*"] 11 "\n\n(fn X)"] org-split-string "[ ]*\n[ ]*"] 7 (#$ . 176149)]) #@176 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. (fn &optional MAYBE) (defalias 'orgtbl-send-table #[256 "\3002\203 \301 \204 \302\303!\210\304\305!\203 \306 \210\307 \310\311\312 \313 \"!\314\2045 \2031 \315\300\316\"\210\2025 \302\317!\210\211\203h \211@\320\321\"\320\322\"\320\323\"\324!\204S \302\325\"\210\326 \"\"\266T\262A\266\202\2026 \210\327\330\211\331V\203v \332\202w \333#\210\211\314V\205\200 \211\266\2030\207" [exit org-at-table-p user-error "Not at a table" called-interactively-p any org-table-align orgtbl-gather-send-defs org-table-to-lisp buffer-substring-no-properties org-table-begin org-table-end 0 throw nil "Don't know how to transform this table" plist-get :name :transform :params fboundp "No such transformation function %s" orgtbl-send-replace-tbl message "Table converted and installed at %d receiver location%s" 1 "s" ""] 14 (#$ . 177001) nil]) #@129 Remove the elements in LIST with indices in INDICES. First element has index 0, or I0 if given. (fn LIST INDICES &optional I0) (defalias 'org-remove-by-index #[770 "\211CC\211\242\204 \2029 \211\242\250\203 \211\242C\240\210\211\242\206 \300S\240\210\301\302\303\304\305\306\307\310\n\"\311\"\312\313%\"\"\207" [0 delq :rm mapcar make-byte-code 257 "\301\211\242T\240\210\301\242\300\242>\203 \302\207\207" vconcat vector [:rm] 3 "\n\n(fn X)"] 15 (#$ . 178010)]) #@43 Comment or uncomment the orgtbl at point. (defalias 'orgtbl-toggle-comment #[0 "\303\304\305 !\nQ\304\nP\212\306\307!\210\310!\203 \303\202' \310!\203$ \311\202' \312\313!)\211\2030 \2021 \311\211\212\306\307!\210\310!\203E \306\314!\210\2028 \306\315!\210`\262\310!\203Y \306\315!\210\202L `\262)\316\205f \317#)\207" [case-fold-search comment-start orgtbl-line-start-regexp t "^" regexp-quote beginning-of-line 1 looking-at nil user-error "Not at an org table" 0 2 comment-region (4)] 10 (#$ . 178493) nil]) #@64 Insert a radio table template appropriate for this major mode. (defalias 'orgtbl-insert-radio-table #[0 "\302\303\"\211A@\304\211\204 \305\306 \"\210\307\310!\262\311\312\"\203* \313\314\211$\262\202 n\2041 \315c\210`\262c\210\211b\207" [orgtbl-radio-table-templates major-mode cl-assoc-if derived-mode-p nil user-error "No radio table setup defined for %s" read-string "Table name: " string-match "%n" replace-match t "\n"] 9 (#$ . 179023) nil]) #@2880 Convert the orgtbl-mode TABLE to some other format. This generic routine can be used for many standard cases. 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. Valid parameters are: :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. :sep Separator between two fields, as a string. Each in the following group may be either a string or a function of no arguments returning a string: :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., (:fmt (2 "$%s$" 4 (lambda (c) (format "$%s$" c)))) :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. This may be either a string or a function of two arguments: :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. (fn TABLE PARAMS) (defalias 'orgtbl-to-generic #[514 "\304\305!\210\306\307\"\310\311\206 \312\313\314\315!B\316\317!B\320\321 !B\322BBB$\323\211\324\325!r\211q\210\326\327\330\331\332!\333\"\334$\216\335\336 \210)p\323\211\203\206 \211@\211\337=\203[ \340\341!\210\202 \211:\203 \340\342!\210\211\211\203z \211@\340!\210\340\343!\210A\266\202\202e \210\340\344!\210A\266\202\202H \210*\323\345\346\347\323\n#\350\351 !D\"!)\262\352\306\353\"\354\355 \314\356\323\335%#\262*\210\203\304 9\203\304 \351!\204\304 \357\360!\210\203\317 \306\361\"\203\323 \304\362!\210\306\363\"\211\203\376 \364!\204\345 \357\365!\210\327C\354\316\326\366\367\331\332 \"\370\"\371\372%\323\335%\266\210\306\373\"\211\203$\211:\204\357\374!\210\354\314\326\366\375\331\332!\376\"\377\201@ %#\210\210\201A !\323C\354\2038\201B \2029\316\326\366\201C \331\332!\201D \"\201E \201F %#\210\201G \201H \242#\266\203\201I #\201J !\203w\201K \327\201L #\202z\201M \262\207" [org-inhibit-startup org-element-use-cache standard-output org-export-filters-alist require ox plist-get :backend org-export-create-backend :parent org :transcoders table org-table--to-generic-table table-row org-table--to-generic-row table-cell org-table--to-generic-cell ((macro lambda (m c i) (org-element-macro-interpreter m nil))) nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 t org-mode hline princ "|--\n" "| " " |" "\n" org-export-install-filters org-combine-plists org-export-get-environment :back-end org-export-get-backend org-export-filter-apply-functions :filter-parse-tree org-element-map org-element-parse-buffer identity user-error "Unknown :backend value" :raw ox-org :skip wholenump "Wrong :skip value" 257 "\301\242\300Y\203 \302\207\303!\210\301\211\242T\240\210\304\207" [t org-element-extract-element nil] 3 "\n\n(fn ROW)" :skipcols "Wrong :skipcols value" "\301!\302!\211\205G \211@\303\304\"\305=\203@ \306\203 \306\202 \307\302!\233\211\203> \211@\300>\2033 \310!\210T\262A\266\202\202# \266A\266\202\202 \262\207" [org-export-table-has-special-column-p org-element-contents org-element-property :type standard 1 0 org-element-extract-element] 9 "\n\n(fn TABLE)" org-export-table-has-special-column-p (table-cell table-row) "\301!\302=\203 \303\304\"\202 \305\304\"\205 \300\300\242B\240\207" [org-element-type table-row org-export-table-row-is-special-p nil org-export-first-sibling-p] 4 "\n\n(fn DATUM)" plist-put :ignore-list org-export-data-with-backend org-string-nw-p substring-no-properties -1 ""] 18 (#$ . 179490)]) #@50 (fn VALUE NAME &optional WITH-CONS &rest ARGS) (defalias 'org-table--generic-apply #[898 "\204 \300\207\301!\203 \302\303DBB\207;\2033 \211@:\203' \304\305BBB\207\211\2031 \306BB\207\207\203f :\203f \307\310\311\312\313\303 DEDDC\314\315\316\306\310BBD\317\302\310BBD\320\321\322 ED\257E\207\321\322\"\207" [nil functionp funcall quote apply #'format format let val cadr memq column cond ((null val) contents) (stringp val) (functionp val) t user-error "Wrong %s value"] 14 (#$ . 185020)]) #@132 Return custom table transcoder according to PARAMS. PARAMS is a plist. See `orgtbl-to-generic' for more information. (fn PARAMS) (defalias 'org-table--to-generic-table #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\305\306\307\205% ?\205% \307\310\311\"\312BB\2037 \2047 \2047 \203; \313\202C \314\315 D\316BB\310?\205L \317\"FE\207" [plist-get :backend :splice :tstart :tend lambda (table contents info) concat org-table--generic-apply ":tstart" ("\n") contents org-export-with-backend quote (table contents info) ":tend"] 13 (#$ . 185541)]) #@136 Return custom table row transcoder according to PARAMS. PARAMS is a plist. See `orgtbl-to-generic' for more information. (fn PARAMS) (defalias 'org-table--to-generic-row #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307\"\300\310\"\300 \311\"\300\n\312\"\300 \313\"\300\f\314\"\300 \315\"\316\317\320\321\322\323\"\203S \324\300\323\"\325\"\202` \205` \326\327D\330BB\331\332\204q \204q \f\205r \333D\334\204\203 \204\203 \f\205\204 \335D\336BB\337\340\341\342 \205\233 \334\324 \343\344$D \205\252 \332\324\345\344$D\205\271 \346\324\347\344$D\350\203\312 \324\351\344 $\202G\352\342\204\326 \205\345 \334\352\324 \353\"\340\324\354\"FD\204\357 \205\376 \332\352\324 \355\"\340\324 \356\"FD \204\205\346\352\324 \357\"\340\324 \360\"FD\350 \204\" \2032\352\324\"\361\"\340\324 \362\"F\202C!\203B\326\327#D\363BB\202C\340D\257DD\257\262EEFE\207" [plist-get :backend :lstart :llstart :hlstart :hllstart :lend :llend :hlend :hllend :lfmt :llfmt :hlfmt :hllfmt lambda (row contents info) if (eq (org-element-property :type row) 'rule) plist-member :hline org-table--generic-apply ":hline" org-export-with-backend quote (row nil info) let headerp (org-export-table-row-in-header-p row info) last-header-p (org-export-table-row-ends-header-p row info) ((lastp (not (org-export-get-next-element row info)))) when contents (org-element-map row 'table-cell (lambda (cell) (org-export-data-with-backend cell (plist-get info :back-end) (org-combine-plists info '(:orgtbl-ignore-sep t)))) info) cond ":hllfmt" nil ":hlfmt" lastp ":llfmt" t ":lfmt" concat ":hllstart" ":hllend" ":hlstart" ":hlend" ":llstart" ":llend" ":lstart" ":lend" (row contents info)] 41 (#$ . 186113)]) #@137 Return custom table cell transcoder according to PARAMS. PARAMS is a plist. See `orgtbl-to-generic' for more information. (fn PARAMS) (defalias 'org-table--to-generic-cell #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\307\310\205) \300 \311\"\205) \312\313\314\2044 \2055 \315D\316\317\320\f E\"\205E \321DD\322\323 \205_ \322\324\313\325\326\323\327\330\331\332\333%EEE\334 \205q \314\326\323\327\335\331\323$ED \205\202 \331\326\323\327\336\331\323$EDEF\204\216 \203\315 \337\340 ?\205\227 \341\342BB \204\243 \323\202\253 \343\344D\345BB\346\323\f\203\301 \203\301 \337\314 F\202\310 \206\310 \fEF\202\336 \203\335 \343\344 D\347BB\202\336 \323FF\207" [plist-get :backend :efmt :fmt :hfmt :sep :hsep lambda (cell contents info) :raw (setq contents (replace-regexp-in-string "\n" " " (org-trim (org-element-interpret-data (org-element-contents cell))))) let headerp (org-export-table-row-in-header-p (org-export-get-parent-element cell) info) column cl-some #[257 "\211\242\250\207" [] 2 "\n\n(fn V)"] (1+ (cdr (org-export-table-cell-address cell info))) when contents (string-match orgtbl-exp-regexp contents) ((mantissa (match-string 1 contents)) (exponent (match-string 2 contents))) setq org-table--generic-apply ":efmt" t mantissa exponent cond ":hfmt" ":fmt" if or (not headerp) ((plist-get info :orgtbl-ignore-sep) (not (org-export-get-next-element cell info))) org-export-with-backend quote (cell contents info) concat (cell contents info)] 26 (#$ . 187903)]) #@77 Convert the orgtbl-mode table to TAB separated material. (fn TABLE PARAMS) (defalias 'orgtbl-to-tsv #[514 "\300\301\302\"\"\207" [orgtbl-to-generic org-combine-plists (:sep " ")] 7 (#$ . 189449)]) #@141 Convert the orgtbl-mode table to CSV material. This does take care of the proper quoting of fields with comma or quotes. (fn TABLE PARAMS) (defalias 'orgtbl-to-csv #[514 "\300\301\302\"\"\207" [orgtbl-to-generic org-combine-plists (:sep "," :fmt org-quote-csv-field)] 7 (#$ . 189656)]) #@604 Convert the orgtbl-mode TABLE to LaTeX. 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. (fn TABLE PARAMS) (defalias 'orgtbl-to-latex #[514 "\300\301!\210\302\303\304\305\306\307\310\311\312\313 \314\"\315\311\316\313\317\"\206 \320\257\f\"\"\207" [require ox-latex orgtbl-to-generic org-combine-plists :backend latex :latex-default-table-mode table :latex-tables-centered nil :latex-tables-booktabs plist-get :booktabs :latex-table-scientific-notation :latex-default-table-environment :environment "tabular"] 19 (#$ . 189952)]) #@448 Convert the orgtbl-mode TABLE to HTML. 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 Attributes and values, as a plist, which will be used in <table> tag. (fn TABLE PARAMS) (defalias 'orgtbl-to-html #[514 "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\"\203\" \321\320\"\202# \322\257\f\"\"\207" [require ox-html orgtbl-to-generic org-combine-plists :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 plist-member :attributes plist-get (:border "2" :cellspacing "0" :cellpadding "6" :rules "groups" :frame "hsides")] 19 (#$ . 190990)]) #@483 Convert the orgtbl-mode TABLE to Texinfo. 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. (fn TABLE PARAMS) (defalias 'orgtbl-to-texinfo #[514 "\301\302!\210\303\304\305\306\307\310\311\310\257\"\"\312\313\"\211\204 \310\2025 \314\310\315\316#)\266\203\2032 \211\2025 \317P\262\211\204? \202H \320\321\315\310\322&\207" [inhibit-changing-match-data require ox-texinfo orgtbl-to-generic org-combine-plists :backend texinfo :texinfo-tables-verbatim nil :texinfo-table-scientific-notation plist-get :columns "{\\|@columnfractions " t string-match "@columnfractions " replace-regexp-in-string "@multitable \\(.*\\)" 1] 11 (#$ . 191997)]) #@524 Convert the orgtbl-mode TABLE into another orgtbl-mode table. 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. Useful when slicing one table into many. The :hline, :sep, :lstart, and :lend provide orgtbl framing. :tstart and :tend can be set to provide ORGTBL directives for the generated table. (fn TABLE PARAMS) (defalias 'orgtbl-to-orgtbl #[514 "\300\301!\210\302\303\304\305D\"\"\207" [require ox-org orgtbl-to-generic org-combine-plists :backend org] 8 (#$ . 193028)]) #@326 Convert the orgtbl-mode TABLE into a table.el table. 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. (fn TABLE PARAMS) (defalias 'orgtbl-to-table\.el #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\"c\210\312 \210\313\314\315\313\316\317\320\321 {##*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 orgtbl-to-orgtbl org-table-align replace-regexp-in-string "-|" "-+" "|-" "+-" 1 buffer-size] 11 (#$ . 193720)]) #@706 Convert the orgtbl-mode TABLE into a table with unicode characters. 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: http://gnuvola.org/software/j/aa2u/ascii-art-to-unicode.el. :narrow When non-nil, narrow columns width than provided width cookie, using "=>" as an ellipsis, just like in an Org mode buffer. (fn TABLE PARAMS) (defalias 'orgtbl-to-unicode #[514 "\300\301!\210\302\303\304\305\306\307\310\311 \312\"?\313\311 \314\"\257\"\"\207" [require ox-ascii orgtbl-to-generic org-combine-plists :backend ascii :ascii-charset utf-8 :ascii-table-widen-columns plist-get :narrow :ascii-table-use-ascii-art :ascii-art] 15 (#$ . 194445)]) #@496 Draw an ascii bar in a table. 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. (fn VALUE MIN MAX &optional WIDTH CHARACTERS) (defalias 'orgtbl-ascii-draw #[1283 "\300\206 \301!\206\f \302\211GS\303\247\203 \202 \304 !!\211Z Z\245\305\306#!\211\307W\203= \310\202d \211_V\203J \311\202d \211\245_Z\312\234\"\313\234!P\266\202\207" [ceiling 12 " .:;c!lhVHW" float string-to-number round * 0 "too small" "too large" make-string string] 17 (#$ . 195474)]) #@338 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. ASK, if given, is a numeric prefix to override the default 12 characters width of the plot. ASK may also be the `\[universal-argument]' prefix, which will prompt for the width. (fn &optional ASK) (defalias 'orgtbl-ascii-plot #[256 "\300 \301\302\303 :\203 \304\305\306\"\202 \247\203 \202 \306@\307=\203* A\262\202 \307>A\2062 \211\203i \211@\211:\203b S8\262\310\311\"\203b \312!\262V\203Y \211\262W\203b \211\262A\266\202\2022 \210\313 \210\314 \210\315\316\317T!P\320\321\322 &B\323 B!\210\324\325!\207" [org-table-current-column 1.0e+INF -1.0e+INF org-table-to-lisp read-number "Length of column " 12 hline string-match "^[-+]?\\([0-9]*[.]\\)?[0-9]*\\([eE][+-]?[0-9]+\\)?$" string-to-number org-table-insert-column org-table-move-column-right org-table-store-formulas "$" number-to-string format "'(%s $%s %s %s %s)" "orgtbl-ascii-draw" org-table-get-stored-formulas org-table-recalculate t] 15 (#$ . 196339) "P"]) #@236 Draw a bar in a table using block unicode characters. It is a variant of orgtbl-ascii-draw with Unicode block characters, for a smooth display. Bars appear as grids (to the extent the font allows). (fn VALUE MIN MAX &optional WIDTH) (defalias 'orgtbl-uc-draw-grid #[1027 "\300\301%\207" [orgtbl-ascii-draw " ▏▎▍▌▋▊▉"] 10 (#$ . 197443)]) #@230 Draw a bar in a table using block unicode characters. It is a variant of orgtbl-ascii-draw with Unicode block characters, for a smooth display. Bars are solid (to the extent the font allows). (fn VALUE MIN MAX &optional WIDTH) (defalias 'orgtbl-uc-draw-cont #[1027 "\300\301%\207" [orgtbl-ascii-draw " ▏▎▍▌▋▊▉█"] 10 (#$ . 197807)]) #@617 Get a field value or a list of values in a range from table at ID. 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 will then be used. Alternatively, it may be an ID referring to any entry, also in a different file. In this case, the first table in that entry will be referenced. FORM is a field or range descriptor like "@2$3" or "B3" or "@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 list of the fields in the rectangle. (fn NAME-OR-ID FORM) (defalias 'org-table-get-remote-range #[514 "\306 \307\310\311\312\313!\314\"\315$\216\316\317\211\211\211\211\211\211\211\211\211\211\211\211\211 % &\n ' (\f ) *\320!\262\212\214~\210eb\210\321\322\323!\324Q\317\316#\203h p\262\310\224\262\202\223 \325\326\"\262 \203{ \327!\204\201 \330\331\"\210\332!\262\333!\262 \317\211\223\210rq\210\212\214~\210\211b\210\334u\210\321\335\317\316#\203\256 \334\224\203\264 \330\336\"\210\337 \210\340\341!!\262\342+\"\203\337 \343\310\"G\334V\203\337 \344\343\310\" \334#\202\341 .\266\217)\207" [org-table-last-alignment org-table-last-column-widths org-table-hlines org-table-current-ncol org-table-dlines org-table-current-begin-pos match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 t nil org-table-convert-refs-to-rc re-search-forward "^[ ]*#\\+\\(tbl\\)?name:[ ]*" regexp-quote "[ ]*$" org-id-find marker markerp user-error "Can't find remote table \"%s\"" marker-buffer marker-position 1 "^\\(\\*+ \\)\\|^[ ]*|" "Cannot find a table at NAME or ID %s" org-table-analyze org-table-formula-substitute-names org-table-formula-handle-first/last-rc string-match match-string org-table-get-range org-table-current-line-types org-table-named-field-locations org-table-local-parameters org-table-column-name-regexp org-table-column-names case-fold-search org-table-range-regexp] 22 (#$ . 198168)]) #@303 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. (fn FORM) (defalias 'org-table-remote-reference-indirection #[257 "\300\301\302\303\211\304&\207" ["\\<remote([ ]*\\([@$][^ ,]+\\)[ ]*,[ ]*\\([^\n)]+\\))" replace-regexp-in-string #[257 "\301 \302\303\304\305\306!\307\"\310$\216\311\312\313\"!\314\315\316\317\320#)\266\203\203+ \321P\202, !\262)\207" [inhibit-changing-match-data match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table-formula-handle-first/last-rc match-string 1 org-table-get-range "\\`\\$[0-9]+\\'" nil t string-match "@0"] 11 "\n\n(fn M)"] t 1] 9 (#$ . 200236)]) #@13 (fn MODE) (defalias 'org-define-lookup-function '(macro . #[257 "\300!\301=\302=\211\203 \303\202 \304\305\306\307\310\"!\311\307\312\211\211%\313\314\2031 \315B\2022 \211\262\316 \203> \317\202? \320\321\322\f\205G \323\313\324\325\326\203T \327\202U \330EEF\331BBB\332BBB\257\262\207" [symbol-name first all "s" "" defun intern format "org-lookup-%s" (val s-list r-list &optional predicate) "Find %s occurrence%s of VAL in S-LIST; return corresponding element%s of R-LIST.\nIf R-LIST is nil, return matching element%s of S-LIST.\nIf PREDICATE is not nil, use it instead of `equal' to match VAL.\nMatching is done by (PREDICATE VAL S), where S is an element of S-LIST.\nThis function is generated by a call to the macro `org-define-lookup-function'." let ((p (or predicate 'equal)) (sl s-list) (rl (or r-list s-list)) (ret nil)) (match-p nil) while (and (not match-p) sl) sl when (funcall p val (car sl)) (setq match-p t) ((rval (car rl))) setq ret (append ret (list rval)) rval ((setq sl (cdr sl) rl (cdr rl))) (ret)] 21 (#$ . 201132)])) #@395 Find first occurrence of VAL in S-LIST; return corresponding element of R-LIST. If R-LIST is nil, return matching element 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'. (fn VAL S-LIST R-LIST &optional PREDICATE) (defalias 'org-lookup-first #[1027 "\300\206 \301\206\f \300\2040 \2030 @\"\203% \302\262@\262A\262A\262\202 \207" [nil equal t] 12 (#$ . 202202)]) #@394 Find last occurrence of VAL in S-LIST; return corresponding element of R-LIST. If R-LIST is nil, return matching element 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'. (fn VAL S-LIST R-LIST &optional PREDICATE) (defalias 'org-lookup-last #[1027 "\211\206 \300\206 \301\203( @\"\203 @\262A\262A\262\202\f \207" [equal nil] 11 (#$ . 202770)]) #@396 Find all occurrences of VAL in S-LIST; return corresponding elements of R-LIST. If R-LIST is nil, return matching elements 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'. (fn VAL S-LIST R-LIST &optional PREDICATE) (defalias 'org-lookup-all #[1027 "\211\206 \300\206 \301\203- @\"\203\" @\302C\"\266\202A\262A\262\202\f \207" [equal nil append] 12 (#$ . 203317)]) (provide 'org-table)