;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:17 2007 ;;; from file /home/cyd/emacs/lisp/textmodes/org.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`org.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require outline noutline time-date easymenu] 2) #@40 The version number of the file org.el. (defvar org-version "4.67c" (#$ . 678)) (defalias 'org-version #[nil "\301\302\"\207" [org-version message "Org-mode version %s"] 3 nil nil]) (byte-code "\301B\302\303!\207" [current-load-list org-xemacs-p (lambda (#1=#:defconst-tmp-var) (defconst org-xemacs-p #1#)) nil] 2) #@40 Does format transport text properties? (defconst org-format-transports-properties-p (byte-code "\301\302\303\304\305$\210\306\303\307\310\311\"#)\207" [x "a" add-text-properties 0 1 (test t) get-text-property test format "%s"] 6) (#$ . 1001)) (byte-code "\300\301\302\303\304\305\306\307\306\310\306\311&\210\300\312\302\313\304\314\306\301&\207" [custom-declare-group org nil "Outline-based notes management and organizer." :tag "Org" :group outlines hypermedia calendar org-startup "Options concerning startup of Org-mode." "Org Startup"] 12) #@231 Non-nil means, entering Org-mode will switch to OVERVIEW. This can also be configured on a per-file basis by adding one of the following lines anywhere in the buffer: #+STARTUP: fold #+STARTUP: nofold #+STARTUP: content (custom-declare-variable 'org-startup-folded 't '(#$ . 1558) :group 'org-startup :type '(choice (const :tag "nofold: show all" nil) (const :tag "fold: overview" t) (const :tag "content: all headlines" content))) #@187 Non-nil means, entering Org-mode will set `truncate-lines'. This is useful since some lines containing links can be very long and uninteresting. Also tables look terrible when wrapped. (custom-declare-variable 'org-startup-truncated 't '(#$ . 2007) :group 'org-startup :type 'boolean) #@359 Non-nil means, align all tables when visiting a file. This is useful when the column width in tables is forced with cookies in table fields. Such tables will look correct only after the first re-align. This can also be configured on a per-file basis by adding one of the following lines anywhere in the buffer: #+STARTUP: align #+STARTUP: noalign (custom-declare-variable 'org-startup-align-all-tables 'nil '(#$ . 2300) :group 'org-startup :type 'boolean) #@376 Non-nil means insert the first line setting Org-mode in empty files. When the function `org-mode' is called interactively in an empty file, this normally means that the file name does not automatically trigger Org-mode. To ensure that the file will always be in Org-mode in the future, a line enforcing Org-mode will be inserted into the buffer, if this option has been set. (custom-declare-variable 'org-insert-mode-line-in-empty-file 'nil '(#$ . 2774) :group 'org-startup :type 'boolean) #@755 Non-nil means use alternative key bindings for S-. Org-mode used S- for changing timestamps and priorities. S- is also used for example by `CUA-mode' to select text. If you want to use Org-mode together with `CUA-mode', Org-mode needs to use alternative bindings. Setting this variable to t will replace the following keys both in Org-mode and in the Org-agenda buffer. S-RET -> C-S-RET S-up -> M-p S-down -> M-n S-left -> M-- S-right -> M-+ If you do not like the alternative keys, take a look at the variable `org-disputed-keys'. This option is only relevant at load-time of Org-mode, and must be set *before* org.el is loaded. Changing it requires a restart of Emacs to become effective. (custom-declare-variable 'org-CUA-compatible 'nil '(#$ . 3271) :group 'org-startup :type 'boolean) #@189 Keys for which Org-mode and other modes compete. This is an alist, cars are symbols for lookup, 1st element is the default key, second element will be used when `org-CUA-compatible' is t. (defvar org-disputed-keys '((S-up [(shift up)] [(meta 112)]) (S-down [(shift down)] [(meta 110)]) (S-left [(shift left)] [(meta 45)]) (S-right [(shift right)] [(meta 43)]) (S-return [(shift return)] [(control shift return)])) (#$ . 4131)) #@49 Select a key according to `org-CUA-compatible'. (defalias 'org-key #[(key) "\203\303\202 \304 \n\236\206\305\306 \"8\207" [org-CUA-compatible key org-disputed-keys 2 1 error "Invalid Key %s in `org-key'"] 4 (#$ . 4564)]) #@271 The ellipsis to use in the Org-mode outline. When nil, just use the standard three dots. When a string, use that instead, and just in Org-mode (which will then use its own display table). Changing this requires executing `M-x org-mode' in a buffer to become effective. (custom-declare-variable 'org-ellipsis 'nil '(#$ . 4798) :group 'org-startup :type '(choice (const :tag "Default" nil) (string :tag "String" :value "...#"))) #@68 The display table for org-mode, in case `org-ellipsis' is non-nil. (defvar org-display-table nil (#$ . 5232)) (custom-declare-group 'org-keywords nil "Keywords in Org-mode." :tag "Org Keywords" :group 'org) #@256 String to mark deadline entries. A deadline is this string, followed by a time stamp. Should be a word, terminated by a colon. You can insert a schedule keyword and a timestamp with \[org-deadline]. Changes become only effective after restarting Emacs. (custom-declare-variable 'org-deadline-string '"DEADLINE:" '(#$ . 5446) :group 'org-keywords :type 'string) #@262 String to mark scheduled TODO entries. A schedule is this string, followed by a time stamp. Should be a word, terminated by a colon. You can insert a schedule keyword and a timestamp with \[org-schedule]. Changes become only effective after restarting Emacs. (custom-declare-variable 'org-scheduled-string '"SCHEDULED:" '(#$ . 5816) :group 'org-keywords :type 'string) #@72 String used as the prefix for timestamps logging closing a TODO entry. (custom-declare-variable 'org-closed-string '"CLOSED:" '(#$ . 6193) :group 'org-keywords :type 'string) #@70 String used as prefix for timestamps clocking work hours on an item. (custom-declare-variable 'org-clock-string '"CLOCK:" '(#$ . 6374) :group 'org-keywords :type 'string) #@193 Entries starting with this keyword will never be exported. An entry can be toggled between COMMENT and normal with \[org-toggle-comment]. Changes become only effective after restarting Emacs. (custom-declare-variable 'org-comment-string '"COMMENT" '(#$ . 6552) :group 'org-keywords :type 'string) #@308 Entries starting with this keyword will be exported in fixed-width font. Quoting applies only to the text in the entry following the headline, and does not extend beyond the next headline, even if that is lower level. An entry can be toggled between QUOTE and normal with \[org-toggle-fixed-width-section]. (custom-declare-variable 'org-quote-string '"QUOTE" '(#$ . 6856) :group 'org-keywords :type 'string) #@107 Regular expression for specifying repeated events. After a match, group 1 contains the repeat expression. (defvar org-repeat-re "\\\n\n\n")) '(#$ . 23960) :group 'org-table :type '(repeat (list (symbol :tag "Major mode") (string :tag "Format")))) (custom-declare-group 'org-table-settings nil "Settings for tables in Org-mode." :tag "Org Table Settings" :group 'org-table) #@60 The default size for newly created tables, Columns x Rows. (custom-declare-variable 'org-table-default-size '"5x2" '(#$ . 24895) :group 'org-table-settings :type 'string) #@530 Regular expression for recognizing numbers in table columns. If a table column contains mostly numbers, it will be aligned to the right. If not, it will be aligned to the left. The default value of this option is a regular expression which allows anything which looks remotely like a number as used in scientific context. For example, all of the following will be considered a number: 12 12.2 2.4e-08 2x10^12 4.034+-0.02 2.7(10) >3.5 Other options offered by the customize interface are more restrictive. (custom-declare-variable 'org-table-number-regexp '"^\$[<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%:]*\\|\\(0[xX]\$[0-9a-fA-F]+\\)$" '(#$ . 25073) :group 'org-table-settings :type '(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" "^\$[<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%]*\\|\\(0[xX]\$[0-9a-fA-F]+\\)$") (string :tag "Regexp:"))) #@242 Fraction of numbers in a column required to make the column align right. In a column all non-white fields are considered. If at least this fraction of fields is matched by `org-table-number-fraction', alignment to the right border applies. (custom-declare-variable 'org-table-number-fraction '0.5 '(#$ . 26307) :group 'org-table-settings :type 'number) (custom-declare-group 'org-table-editing nil "Bahavior of tables during editing in Org-mode." :tag "Org Table Editing" :group 'org-table) #@166 Non-nil means, automatically re-align table when pressing TAB or RETURN. When nil, aligning is only done with \[org-table-align], or after column removal/insertion. (custom-declare-variable 'org-table-automatic-realign 't '(#$ . 26806) :group 'org-table-editing :type 'boolean) #@241 Non-nil means, automatically blank table field when starting to type into it. This only happens when typing immediately after a field motion command (TAB, S-TAB or RET). Only relevant when `org-enable-table-editor' is equal to `optimized'. (custom-declare-variable 'org-table-auto-blank-field 't '(#$ . 27091) :group 'org-table-editing :type 'boolean) #@299 Non-nil means, tab in the last column of a table with jump over a hline. If a horizontal separator line is following the current line, `org-table-next-field' can either create a new row before that line, or jump over the line. When this option is nil, a new line will be created before this line. (custom-declare-variable 'org-table-tab-jumps-over-hlines 't '(#$ . 27450) :group 'org-table-editing :type 'boolean) #@166 Non-nil means, TAB will automatically notice a table.el table. When it sees such a table, it moves point into it and - if necessary - calls `table-recognize-table'. (custom-declare-variable 'org-table-tab-recognizes-table\.el 't '(#$ . 27872) :group 'org-table-editing :type 'boolean) (custom-declare-group 'org-table-calculation nil "Options concerning tables in Org-mode." :tag "Org Table Calculation" :group 'org-table) #@82 Non-nil means, increment when copying current field with \[org-table-copy-down]. (custom-declare-variable 'org-table-copy-increment 't '(#$ . 28301) :group 'org-table-calculation :type 'boolean) #@275 List with Calc mode settings for use in calc-eval for table formulas. The list must contain alternating symbols (Calc modes variables and values). Don't remove any of the default settings, just change the values. Org-mode relies on the variables to be present in the list. (custom-declare-variable 'org-calc-default-modes ''(calc-internal-prec 12 calc-float-format (float 5) 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) '(#$ . 28503) :group 'org-table-calculation :type 'plist) #@434 Non-nil means, TAB and RET evaluate a formula in current table field. If the current field starts with an equal sign, it is assumed to be a formula which should be evaluated as described in the manual and in the documentation string of the command `org-table-eval-formula'. This feature requires the Emacs calc package. When this variable is nil, formula calculation is only available through the command \[org-table-eval-formula]. (custom-declare-variable 'org-table-formula-evaluate-inline 't '(#$ . 29102) :group 'org-table-calculation :type 'boolean) #@245 Non-nil means, interpret constants in formulas in tables. A constant looks like `$c' or `$Grav' and will be replaced before evaluation by the value given in `org-table-formula-constants', or by a value obtained from the `constants.el' package. (custom-declare-variable 'org-table-formula-use-constants 't '(#$ . 29665) :group 'org-table-calculation :type 'boolean) #@372 Alist with constant names and values, for use in table formulas. The car of each element is a name of a constant, without the `$' before it. The cdr is the value as a string. For example, if you'd like to use the speed of light in a formula, you would configure (setq org-table-formula-constants '(("c" . "299792458."))) and then use it in an equation like `$1*$c'. (custom-declare-variable 'org-table-formula-constants 'nil '(#$ . 30037) :group 'org-table-calculation :type '(repeat (cons (string :tag "name") (string :tag "value")))) #@152 Non-nil means, lines marked with |#| or |*| will be recomputed automatically. Automatically means, when TAB or RET or C-c C-c are pressed in the line. (custom-declare-variable 'org-table-allow-automatic-line-recalculation 't '(#$ . 30585) :group 'org-table-calculation :type 'boolean) (custom-declare-group 'org-link nil "Options concerning links in Org-mode." :tag "Org Link" :group 'org) #@111 buffer-local version of `org-link-abbrev-alist', which see. The value of this is taken from the #+LINK lines. (defvar org-link-abbrev-alist-local nil (#$ . 30982)) (make-variable-buffer-local 'org-link-abbrev-alist-local) #@567 Alist of link abbreviations. The car of each element is a string, to be replaced at the start of a link. The cdrs are replacement values, like ("linkkey" . REPLACE). Abbreviated links in Org-mode buffers can have an optional tag after a double colon, e.g. [[linkkey:tag][description]] If REPLACE is a string, the tag will simply be appended to create the link. If the string contains "%s", the tag will be inserted there. REPLACE may also be a function that will be called with the tag as the only argument to create the link. See the manual for examples. (custom-declare-variable 'org-link-abbrev-alist 'nil '(#$ . 31211) :group 'org-link :type 'alist) #@269 Non-nil means, hide link part and only show description of bracket links. Bracket links are like [[link][descritpion]]. This variable sets the initial state in new org-mode buffers. The setting can then be toggled on a per-buffer basis from the Org->Hyperlinks menu. (custom-declare-variable 'org-descriptive-links 't '(#$ . 31882) :group 'org-link :type 'boolean) #@460 How the path name in file links should be stored. Valid values are: relative relative to the current directory, i.e. the directory of the file into which the link is being inserted. absolute absolute path, if possible with ~ for home directory. noabbrev absolute path, no abbreviation of home directory. adaptive Use relative path for files in the current directory and sub- directories of it. For other files, use an absolute path. (custom-declare-variable 'org-link-file-path-type ''adaptive '(#$ . 32255) :group 'org-link :type '(choice (const relative) (const absolute) (const noabbrev) (const adaptive))) #@788 Types of links that should be activated in Org-mode files. This is a list of symbols, each leading to the activation of a certain link type. In principle, it does not hurt to turn on most link types - there may be a small gain when turning off unused link types. The types are: bracket The recommended [[link][description]] or [[link]] links with hiding. angular Links in angular brackes that may contain whitespace like . plain Plain links in normal text, no whitespace, like http://google.com. radio Text that is matched by a radio target, see manual for details. tag Tag settings in a headline (link to tag search). date Time stamps (link to calendar). Changing this variable requires a restart of Emacs to become effective. (custom-declare-variable 'org-activate-links ''(bracket angle plain radio tag date) '(#$ . 32898) :group 'org-link :type '(set (const :tag "Double bracket links (new style)" bracket) (const :tag "Angular bracket links (old style)" angular) (const :tag "plain text links" plain) (const :tag "Radio target matches" radio) (const :tag "Tags" tag) (const :tag "Timestamps" date))) (custom-declare-group 'org-link-store nil "Options concerning storing links in Org-mode" :tag "Org Store Link" :group 'org-link) #@666 Format of the description part of a link to an email or usenet message. The following %-excapes will be replaced by corresponding information: %F full "From" field %f name, taken from "From" field, address if no name %T full "To" field %t first name in "To" field, address if no name %c correspondent. Unually "from NAME", but if you sent it yourself, it will be "to NAME". See also the variable `org-from-is-user-regexp'. %s subject %m message-id. You may use normal field width specification between the % and the letter. This is for example useful to limit the length of the subject. Examples: "%f on: %.30s", "Email from %f", "Email %c" (custom-declare-variable 'org-email-link-description-format '"Email %c: %.30s" '(#$ . 34198) :group 'org-link-store :type 'string) #@134 Regexp mached against the "From:" header of an email or usenet message. It should match if the message is from the user him/herself. (custom-declare-variable 'org-from-is-user-regexp '(let (r1 r2) (when (and user-mail-address (not (string= user-mail-address ""))) (setq r1 (concat "\\<" (regexp-quote user-mail-address) "\\>"))) (when (and user-full-name (not (string= user-full-name ""))) (setq r2 (concat "\\<" (regexp-quote user-full-name) "\\>"))) (if (and r1 r2) (concat r1 "\\|" r2) (or r1 r2))) '(#$ . 35001) :group 'org-link-store :type 'regexp) #@351 Non-nil means, file links from `org-store-link' contain context. A search string will be added to the file name with :: as separator and used to find the context when the link is activated by the command `org-open-at-point'. Using a prefix arg to the command \[org-store-link] (`org-store-link') negates this setting for the duration of the command. (custom-declare-variable 'org-context-in-file-links 't '(#$ . 35562) :group 'org-link-store :type 'boolean) #@491 Non-nil means, keep link in list for entire session. The command `org-store-link' adds a link pointing to the current location to an internal list. These links accumulate during a session. The command `org-insert-link' can be used to insert links into any Org-mode file (offering completion for all stored links). When this option is nil, every link which has been inserted once using \[org-insert-link] will be removed from the list, to make completing the unused links more efficient. (custom-declare-variable 'org-keep-stored-link-after-insertion 'nil '(#$ . 36027) :group 'org-link-store :type 'boolean) #@242 Non-nil means, `org-store-link' will create web links to Google groups. When nil, Gnus will be used for such links. Using a prefix arg to the command \[org-store-link] (`org-store-link') negates this setting for the duration of the command. (custom-declare-variable 'org-usenet-links-prefer-google 'nil '(#$ . 36645) :group 'org-link-store :type 'boolean) (custom-declare-group 'org-link-follow nil "Options concerning following links in Org-mode" :tag "Org Follow Link" :group 'org-link) #@92 Non-nil means, on links TAB will follow the link. Needs to be set before org.el is loaded. (custom-declare-variable 'org-tab-follows-link 'nil '(#$ . 37140) :group 'org-link-follow :type 'boolean) #@92 Non-nil means, on links RET will follow the link. Needs to be set before org.el is loaded. (custom-declare-variable 'org-return-follows-link 'nil '(#$ . 37343) :group 'org-link-follow :type 'boolean) #@167 Non-nil means, mouse-1 on a link will follow the link. A longer mouse click will still set point. Does not wortk on XEmacs. Needs to be set before org.el is loaded. (custom-declare-variable 'org-mouse-1-follows-link 't '(#$ . 37550) :group 'org-link-follow :type 'boolean) #@119 Number of different positions to be recorded in the ring Changing this requires a restart of Emacs to work correctly. (custom-declare-variable 'org-mark-ring-length '4 '(#$ . 37831) :group 'org-link-follow :type 'interger) #@593 Setup the frame configuration for following links. When following a link with Emacs, it may often be useful to display this link in another window or frame. This variable can be used to set this up for the different types of links. For VM, use any of `vm-visit-folder' `vm-visit-folder-other-frame' For Gnus, use any of `gnus' `gnus-other-frame' For FILE, use any of `find-file' `find-file-other-window' `find-file-other-frame' For the calendar, use the variable `calendar-setup'. For BBDB, it is currently only possible to display the matches in another window. (custom-declare-variable 'org-link-frame-setup ''((vm . vm-visit-folder-other-frame) (gnus . gnus-other-frame) (file . find-file-other-window)) '(#$ . 38061) :group 'org-link-follow :type '(list (cons (const vm) (choice (const vm-visit-folder) (const vm-visit-folder-other-window) (const vm-visit-folder-other-frame))) (cons (const gnus) (choice (const gnus) (const gnus-other-frame))) (cons (const file) (choice (const find-file) (const find-file-other-window) (const find-file-other-frame))))) #@461 Non-nil means, use indirect buffer to display infile links. Activating internal links (from one location in a file to another location in the same file) normally just jumps to the location. When the link is activated with a C-u prefix (or with mouse-3), the link is displayed in another window. When this option is set, the other window actually displays an indirect buffer clone of the current buffer, to avoid any visibility changes to the current buffer. (custom-declare-variable 'org-display-internal-link-with-indirect-buffer 'nil '(#$ . 39156) :group 'org-link-follow :type 'boolean) #@100 Non-nil means, `org-open-file' will open non-existing files. When nil, an error will be generated. (custom-declare-variable 'org-open-non-existing-files 'nil '(#$ . 39755) :group 'org-link-follow :type 'boolean) #@345 Function and arguments to call for following mailto links. This is a list with the first element being a lisp function, and the remaining elements being arguments to the function. In string arguments, %a will be replaced by the address, and %s will be replaced by the subject if one was given like in . (custom-declare-variable 'org-link-mailto-program ''(browse-url "mailto:%a?subject=%s") '(#$ . 39974) :group 'org-link-follow :type '(choice (const :tag "browse-url" (browse-url-mail "mailto:%a?subject=%s")) (const :tag "compose-mail" (compose-mail "%a" "%s")) (const :tag "message-mail" (message-mail "%a" "%s")) (cons :tag "other" (function) (repeat :tag "argument" sexp)))) #@468 Non-nil means, ask for confirmation before executing shell links. Shell links can be dangerous, just thing about a link [[shell:rm -rf ~/*][Google Search]] This link would show up in your Org-mode document as "Google Search" but really it would remove your entire home directory. Therefore I *definitely* advise against setting this variable to nil. Just change it to `y-or-n-p' of you want to confirm with a single key press rather than having to type "yes". (custom-declare-variable 'org-confirm-shell-link-function ''yes-or-no-p '(#$ . 40702) :group 'org-link-follow :type '(choice (const :tag "with yes-or-no (safer)" yes-or-no-p) (const :tag "with y-or-n (faster)" y-or-n-p) (const :tag "no confirmation (dangerous)" nil))) #@486 Non-nil means, ask for confirmation before executing elisp links. Elisp links can be dangerous, just think about a link [[elisp:(shell-command "rm -rf ~/*")][Google Search]] This link would show up in your Org-mode document as "Google Search" but really it would remove your entire home directory. Therefore I *definitely* advise against setting this variable to nil. Just change it to `y-or-n-p' of you want to confirm with a single key press rather than having to type "yes". (custom-declare-variable 'org-confirm-elisp-link-function ''yes-or-no-p '(#$ . 41445) :group 'org-link-follow :type '(choice (const :tag "with yes-or-no (safer)" yes-or-no-p) (const :tag "with y-or-n (faster)" y-or-n-p) (const :tag "no confirmation (dangerous)" nil))) #@79 Default file applications on a UNIX or GNU/Linux system. See `org-file-apps'. (defconst org-file-apps-defaults-gnu '((remote . emacs) (t . mailcap)) (#$ . 42205)) #@200 Default file applications on a MacOS X system. The system "open" is known as a default, but we use X11 applications for some files for which the OS does not have a good default. See `org-file-apps'. (defconst org-file-apps-defaults-macosx '((remote . emacs) (t . "open %s") ("ps" . "gv %s") ("ps.gz" . "gv %s") ("eps" . "gv %s") ("eps.gz" . "gv %s") ("dvi" . "xdvi %s") ("fig" . "xfig %s")) (#$ . 42375)) #@114 Default file applications on a Windows NT system. The system "open" is used for most files. See `org-file-apps'. (defconst org-file-apps-defaults-windowsnt (byte-code "\300\301\302\303\304EBD\207" [(remote . emacs) t w32-shell-execute "open" file] 5) (#$ . 42787)) #@1254 External applications for opening `file:path' items in a document. Org-mode uses system defaults for different file types, but you can use this variable to set the application for a given file extension. The entries in this list are cons cells where the car identifies files and the cdr the corresponding command. Possible values for the file identifier are "ext" A string identifying an extension `directory' Matches a directory `remote' Matches a remote file, accessible through tramp or efs. Remote files most likely should be visited through Emacs because external applications cannot handle such paths. t Default for all remaining files Possible values for the command are: `emacs' The file will be visited by the current Emacs process. `default' Use the default application for this file type. string A command to be executed by a shell; %s will be replaced by the path to the file. sexp A Lisp form which will be evaluated. The file path will be available in the Lisp variable `file'. For more examples, see the system specific constants `org-file-apps-defaults-macosx' `org-file-apps-defaults-windowsnt' `org-file-apps-defaults-gnu'. (custom-declare-variable 'org-file-apps ''(("txt" . emacs) ("tex" . emacs) ("ltx" . emacs) ("org" . emacs) ("el" . emacs) ("bib" . emacs)) '(#$ . 43060) :group 'org-link-follow :type '(repeat (cons (choice :value "" (string :tag "Extension") (const :tag "Default for unrecognized files" t) (const :tag "Remote file" remote) (const :tag "Links to a directory" directory)) (choice :value "" (const :tag "Visit with Emacs" emacs) (const :tag "Use system default" default) (string :tag "Command") (sexp :tag "Lisp form"))))) #@265 Non-nil means, that the search for the mh-message will be extended to all folders if the message cannot be found in the folder given in the link. Searching all folders is very efficient with one of the search engines supported by MH-E, but will be slow with pick. (custom-declare-variable 'org-mhe-search-all-folders 'nil '(#$ . 44841) :group 'org-link-follow :type 'boolean) (custom-declare-group 'org-remember nil "Options concerning interaction with remember.el." :tag "Org Remember" :group 'org) #@126 Directory with org files. This directory will be used as default to prompt for org files. Used by the hooks for remember.el. (custom-declare-variable 'org-directory '"~/org" '(#$ . 45348) :group 'org-remember :type 'directory) #@228 Default target for storing notes. Used by the hooks for remember.el. This can be a string, or nil to mean the value of `remember-data-file'. You can set this on a per-template basis with the variable `org-remember-templates'. (custom-declare-variable 'org-default-notes-file '"~/.notes" '(#$ . 45582) :group 'org-remember :type '(choice (const :tag "Default from remember-data-file" nil) file)) #@222 The headline that should be the default location in the notes file. When filing remember notes, the cursor will start at that position. You can set this on a per-template basis with the variable `org-remember-templates'. (custom-declare-variable 'org-remember-default-headline '"" '(#$ . 45985) :group 'org-remember :type 'string) #@2497 Templates for the creation of remember buffers. When nil, just let remember make the buffer. When not nil, this is a list of 4-element lists. In each entry, the first element is a character, a unique key to select this template. The second element is the template. The third element is optional and can specify a destination file for remember items created with this template. The default file is given by `org-default-notes-file'. An optional third element can specify the headline in that file that should be offered first when the user is asked to file the entry. The default headline is given in the variable `org-remember-default-headline'. The template specifies the structure of the remember buffer. It should have a first line starting with a star, to act as the org-mode headline. Furthermore, the following %-escapes will be replaced with content: %^{prompt} prompt the user for a string and replace this sequence with it. %t time stamp, date only %T time stamp with date and time %u, %U like the above, but inactive time stamps %^t like %t, but prompt for date. Similarly %^T, %^u, %^U You may define a prompt like %^{Please specify birthday}t %n user name (taken from `user-full-name') %a annotation, normally the link created with org-store-link %i initial content, the region when remember is called with C-u. If %i is indented, the entire inserted text will be indented as well. %? After completing the template, position cursor here. Apart from these general escapes, you can access information specific to the link type that is created. For example, calling `remember' in emails or gnus will record the author and the subject of the message, which you can access with %:author and %:subject, respectively. Here is a complete list of what is recorded for each link type. Link type | Available information -------------------+------------------------------------------------------ bbdb | %:type %:name %:company vm, wl, mh, rmail | %:type %:subject %:message-id | %:from %:fromname %:fromaddress | %:to %:toname %:toaddress | %:fromto (either "to NAME" or "from NAME") gnus | %:group, for messages also all email fields w3, w3m | %:type %:url info | %:type %:file %:node calendar | %:type %:date (custom-declare-variable 'org-remember-templates 'nil '(#$ . 46324) :group 'org-remember :get #[(var) "\301\302\303!\"\207" [var mapcar #[(x) "G\301U\203\f\302\303\"\207G\304U\203\302\305\"\207\207" [x 3 append ("") 2 ("" "")] 3] default-value] 4] :type '(repeat :tag "enabled" (list :value (97 "\n" nil nil) (character :tag "Selection Key") (string :tag "Template") (file :tag "Destination file (optional)") (string :tag "Destination headline (optional)")))) #@134 Non-nil means, store new notes at the beginning of a file or entry. When nil, new notes will be filed to the end of a file or entry. (custom-declare-variable 'org-reverse-note-order 'nil '(#$ . 49296) :group 'org-remember :type '(choice (const :tag "Reverse always" t) (const :tag "Reverse never" nil) (repeat :tag "By file name regexp" (cons regexp boolean)))) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\313&\207" [custom-declare-group org-todo nil "Options concerning TODO items in Org-mode." :tag "Org TODO" :group org org-progress "Options concerning Progress logging in Org-mode." "Org Progress" org-time] 8) #@514 List of TODO entry keywords. \By default, this is '("TODO" "DONE"). The last entry in the list is considered to mean that the entry is "done". All the other mean that action is required, and will make the entry show up in todo lists, diaries etc. The command \[org-todo] cycles an entry through these states, and an additional state where no keyword is present. For details about this cycling, see also the variable `org-todo-interpretation' Changes become only effective after restarting Emacs. (custom-declare-variable 'org-todo-keywords ''("TODO" "DONE") '(#$ . 49954) :group 'org-todo :group 'org-keywords :type '(repeat (string :tag "Keyword"))) #@490 Controls how TODO keywords are interpreted. This variable is only relevant if `org-todo-keywords' contains more than two states. \Possible values are `sequence' and `type'. When `sequence', \[org-todo] will always switch to the next state in the `org-todo-keywords' list. When `type', \[org-todo] only cycles from state to state when executed several times in direct succession. Otherwise, it switches directly to DONE from any state. See the manual for more information. (custom-declare-variable 'org-todo-interpretation ''sequence '(#$ . 50629) :group 'org-todo :group 'org-keywords :type '(choice (const sequence) (const type))) #@159 Hook which is run after the state of a TODO item was changed. The new state (a string with a TODO keyword, or nil) is available in the Lisp variable `state'. (custom-declare-variable 'org-after-todo-state-change-hook 'nil '(#$ . 51285) :group 'org-todo :type 'hook) #@1217 When set, insert a (non-active) time stamp when TODO entry is marked DONE. When the state of an entry is changed from nothing to TODO, remove a previous closing date. This can also be a list of symbols indicating under which conditions the time stamp recording the action should be annotated with a short note. Valid members of this list are done Offer to record a note when marking entries done state Offer to record a note whenever changing the TODO state of an item. This is only relevant if TODO keywords are interpreted as sequence, see variable `org-todo-interpretation'. When `state' is set, this includes tracking `done'. clock-out Offer to record a note when clocking out of an item. A separate window will then pop up and allow you to type a note. After finishing with C-c C-c, the note will be added directly after the timestamp, as a plain list item. See also the variable `org-log-note-headings'. Logging can also be configured on a per-file basis by adding one of the following lines anywhere in the buffer: #+STARTUP: logdone #+STARTUP: nologging #+STARTUP: lognotedone #+STARTUP: lognotestate #+STARTUP: lognoteclock-out (custom-declare-variable 'org-log-done 'nil '(#$ . 51559) :group 'org-todo :group 'org-progress :type '(choice (const :tag "off" nil) (const :tag "on" t) (set :tag "on, with notes, detailed control" :greedy t :value (done) (const :tag "when item is marked DONE" done) (const :tag "when TODO state changes" state) (const :tag "when clocking out" clock-out)))) #@423 Headings for notes added when clocking out or closing TODO items. The value is an alist, with the car being a sympol indicating the note context, and the cdr is the heading to be used. The heading may also be the empty string. %t in the heading will be replaced by a time stamp. %s will be replaced by the new TODO state, in double quotes. %u will be replaced by the user name. %U will be replaced by the full user name. (custom-declare-variable 'org-log-note-headings ''((done . "CLOSING NOTE %t") (state . "State %-12s %t") (clock-out . "")) '(#$ . 53141) :group 'org-todo :group 'org-progress :type '(list :greedy t (cons (const :tag "Heading when closing an item" done) string) (cons (const :tag "Heading when changing todo state (todo sequence only)" state) string) (cons (const :tag "Heading when clocking out" clock-out) string))) #@230 Non-nil means, find REPEAT cookies in entries and apply them. A repeat cookie looks like REPEAT(+1m) and causes deadlines and schedules to repeat themselves shifted by a certain amount of time, each time an entry is marked DONE. (custom-declare-variable 'org-allow-auto-repeat 't '(#$ . 53987) :group 'org-todo :group 'org-progress :type 'boolean) (custom-declare-group 'org-priorities nil "Priorities in Org-mode." :tag "Org Priorities" :group 'org-todo) #@104 The default priority of TODO items. This is the priority an item get if no explicit priority is given. (custom-declare-variable 'org-default-priority '66 '(#$ . 54450) :group 'org-priorities :type 'character) #@66 The lowest priority of TODO items. A character like ?A, ?B etc. (custom-declare-variable 'org-lowest-priority '67 '(#$ . 54665) :group 'org-priorities :type 'character) (custom-declare-group 'org-time nil "Options concerning time stamps and deadlines in Org-mode." :tag "Org Time" :group 'org) #@282 Non-nil means, SCHEDULED and DEADLINE timestamps are inserted at point. When nil, these labeled time stamps are forces into the second line of an entry, just after the headline. When scheduling from the global TODO list, the time stamp will always be forced into the second line. (custom-declare-variable 'org-insert-labeled-timestamps-at-point 'nil '(#$ . 54967) :group 'org-time :type 'boolean) #@113 Formats for `format-time-string' which are used for time stamps. It is not recommended to change this constant. (defconst org-time-stamp-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>") (#$ . 55372)) #@320 Number of minutes to round time stamps to upon insertion. When zero, insert the time unmodified. Useful rounding numbers should be factors of 60, so for example 5, 10, 15. When this is not zero, you can still force an exact time-stamp by using a double prefix argument to a time-stamp command like `C-c .' or `C-c !'. (custom-declare-variable 'org-time-stamp-rounding-minutes '0 '(#$ . 55581) :group 'org-time :type 'integer) #@230 Non-nil means, overlay custom formats over all time stamps. The formats are defined through the variable `org-time-stamp-custom-formats'. To turn this on on a per-file basis, insert anywhere in the file: #+STARTUP: customtime (custom-declare-variable 'org-display-custom-times 'nil '(#$ . 56015) :group 'org-time :set 'set-default :type 'sexp) (make-variable-buffer-local 'org-display-custom-times) #@174 Custom formats for time stamps. See `format-time-string' for the syntax. These are overlayed over the default ISO format if the variable `org-display-custom-times' is set. (custom-declare-variable 'org-time-stamp-custom-formats ''("<%m/%d/%y %a>" . "<%m/%d/%y %a %H:%M>") '(#$ . 56424) :group 'org-time :type 'sexp) #@41 Get the right format for a time string. (defalias 'org-time-stamp-format #[(&optional long inactive) "\203 A\202 @\203\304\n\305\306O\307Q\202\n)\207" [long org-time-stamp-formats f inactive "[" 1 -1 "]"] 4 (#$ . 56747)]) #@140 No. of days before expiration during which a deadline becomes active. This variable governs the display in sparse trees and in the agenda. (custom-declare-variable 'org-deadline-warning-days '30 '(#$ . 56987) :group 'org-time :type 'number) #@255 Non-nil means, pop up a calendar when prompting for a date. In the calendar, the date can be selected with mouse-1. However, the minibuffer will also be active, and you can simply enter the date as well. When nil, only the minibuffer will be available. (custom-declare-variable 'org-popup-calendar-for-date-prompt 't '(#$ . 57235) :group 'org-time :type 'boolean) #@166 Non-nil means, make the calendar window follow timestamp changes. When a timestamp is modified and the calendar window is visible, it will be moved to the new date. (custom-declare-variable 'org-calendar-follow-timestamp-change 't '(#$ . 57607) :group 'org-time :type 'boolean) (custom-declare-group 'org-tags nil "Options concerning tags in Org-mode." :tag "Org Tags" :group 'org) #@313 List of tags allowed in Org-mode files. When this list is nil, Org-mode will base TAG input on what is already in the buffer. The value of this variable is an alist, the car may be (and should) be a character that is used to select that tag through the fast-tag-selection interface. See the manual for details. (custom-declare-variable 'org-tag-alist 'nil '(#$ . 57996) :group 'org-tags :type '(repeat (choice (cons (string :tag "Tag name") (character :tag "Access char")) (const :tag "Start radio group" (:startgroup)) (const :tag "End radio group" (:endgroup))))) #@457 Non-nil means, use fast tag selection scheme. This is a special interface to select and deselect tags with single keys. When nil, fast selection is never used. When the symbol `auto', fast selection is used if and only if selection characters for tags have been configured, either through the variable `org-tag-alist' or through a #+TAGS line in the buffer. When t, fast selection is always used and selection keys are assigned automatically if necessary. (custom-declare-variable 'org-use-fast-tag-selection ''auto '(#$ . 58570) :group 'org-tags :type '(choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When selection characters are configured" 'auto))) #@314 Non-nil means, fast tag selection exits after first change. When nil, you have to press RET to exit it. During fast tag selection, you can toggle this flag with `C-c'. This variable can also have the value `expert'. In this case, the window displaying the tags menu is not even shown, until you press C-c again. (custom-declare-variable 'org-fast-tag-selection-single-key 'nil '(#$ . 59252) :group 'org-tags :type '(choice (const :tag "No" nil) (const :tag "Yes" t) (const :tag "Expert" expert))) #@256 The column to which tags should be indented in a headline. If this number is positive, it specifies the column. If it is negative, it means that the tags should be flushright to that column. For example, -79 works well for a normal 80 character screen. (custom-declare-variable 'org-tags-column '48 '(#$ . 59757) :group 'org-tags :type 'integer) #@261 Non-nil means, realign tags after pro/demotion of TODO state change. These operations change the length of a headline and therefore shift the tags around. With this options turned on, after each such operation the tags are again aligned to `org-tags-column'. (custom-declare-variable 'org-auto-align-tags 't '(#$ . 60112) :group 'org-tags :type 'boolean) #@243 Non-nil means, tags in levels apply also for sublevels. When nil, only the tags directly given in a specific line apply there. If you turn off this option, you very likely want to turn on the companion option `org-tags-match-list-sublevels'. (custom-declare-variable 'org-use-tag-inheritance 't '(#$ . 60475) :group 'org-tags :type 'boolean) #@686 Non-nil means list also sublevels of headlines matching tag search. Because of tag inheritance (see variable `org-use-tag-inheritance'), the sublevels of a headline matching a tag search often also match the same search. Listing all of them can create very long lists. Setting this variable to nil causes subtrees of a match to be skipped. This option is off by default, because inheritance in on. If you turn inheritance off, you very likely want to turn this option on. As a special case, if the tag search is restricted to TODO items, the value of this variable is ignored and sublevels are always checked, to make sure all corresponding TODO items find their way into the list. (custom-declare-variable 'org-tags-match-list-sublevels 'nil '(#$ . 60824) :group 'org-tags :type 'boolean) #@39 History of minibuffer reads for tags. (defvar org-tags-history nil (#$ . 61623)) #@42 The last used completion table for tags. (defvar org-last-tags-completion-table nil (#$ . 61710)) (custom-declare-group 'org-agenda nil "Options concerning agenda views in Org-mode." :tag "Org Agenda" :group 'org) #@295 Variable used by org files to set a category for agenda display. Such files should use a file variable to set it, for example -*- mode: org; org-category: "ELisp" or contain a special line #+CATEGORY: ELisp If the file does not specify a category, then file's base name is used instead. (defvar org-category nil (#$ . 61931)) (make-variable-buffer-local 'org-category) #@364 The files to be used for agenda display. Entries may be added to this list with \[org-agenda-file-to-front] and removed with \[org-remove-file]. You can also use customize to edit the list. If the value of the variable is not a list but a single file name, then the list of agenda files is actually stored and maintained in that file, one agenda file per line. (custom-declare-variable 'org-agenda-files 'nil '(#$ . 62314) :group 'org-agenda :type '(choice (repeat :tag "List of files" file) (file :tag "Store list in a file\n" :value "~/.agenda_files"))) #@221 When set, remote killing from the agenda buffer needs confirmation. When t, a confirmation is always needed. When a number N, confirmation is only needed when the text to be killed contains more than N non-white lines. (custom-declare-variable 'org-agenda-confirm-kill '1 '(#$ . 62879) :group 'org-agenda :type '(choice (const :tag "Never" nil) (const :tag "Always" t) (number :tag "When more than N lines"))) #@260 The key to be installed in `calendar-mode-map' for switching to the agenda. The command `org-calendar-goto-agenda' will be bound to this key. The default is the character `c' because then `c' can be used to switch back and forth between agenda and calendar. (custom-declare-variable 'org-calendar-to-agenda-key '[99] '(#$ . 63297) :group 'org-agenda :type 'sexp) (custom-declare-group 'org-agenda-custom-commands nil "Options concerning agenda views in Org-mode." :tag "Org Agenda Custom Commands" :group 'org-agenda) #@1810 Custom commands for the agenda. These commands will be offered on the splash screen displayed by the agenda dispatcher \[org-agenda]. Each entry is a list like this: (key type match options) key The key (a single char as a string) to be associated with the command. type The command type, any of the following symbols: todo Entries with a specific TODO keyword, in all agenda files. tags Tags match in all agenda files. tags-todo Tags match in all agenda files, TODO entries only. todo-tree Sparse tree of specific TODO keyword in *current* file. tags-tree Sparse tree with all tags matches in *current* file. occur-tree Occur sparse tree for *current* file. match What to search for: - a single keyword for TODO keyword searches - a tags match expression for tags searches - a regular expression for occur searches options A list of option setttings, similar to that in a let form, so like this: ((opt1 val1) (opt2 val2) ...) You can also define a set of commands, to create a composite agenda buffer. In this case, an entry looks like this: (key desc (cmd1 cmd2 ...) general-options) where desc A description string to be displayed in the dispatcher menu. cmd An agenda command, similar to the above. However, tree commands are no allowed, but instead you can get agenda and global todo list. So valid commands for a set are: (agenda) (alltodo) (stuck) (todo "match" options) (tags "match" options ) (tags-todo "match" options) Each command can carry a list of options, and another set of options can be given for the whole set of commands. Individual command options take precedence over the general options. (custom-declare-variable 'org-agenda-custom-commands ''(("w" todo "WAITING")) '(#$ . 63824) :group 'org-agenda-custom-commands :type '(repeat (choice (list :tag "Single command" (string :tag "Key") (choice (const :tag "Tags search (all agenda files)" tags) (const :tag "Tags search of TODO entries (all agenda files)" tags-todo) (const :tag "TODO keyword search (all agenda files)" todo) (const :tag "Tags sparse tree (current buffer)" tags-tree) (const :tag "TODO keyword tree (current buffer)" todo-tree) (const :tag "Occur tree (current buffer)" occur-tree) (symbol :tag "Other, user-defined function")) (string :tag "Match") (repeat :tag "Local options" (list (variable :tag "Option") (sexp :tag "Value")))) (list :tag "Command series, all agenda files" (string :tag "Key") (string :tag "Description") (repeat (choice (const :tag "Agenda" (agenda)) (const :tag "TODO list" (alltodo)) (const :tag "Stuck projects" (stuck)) (list :tag "Tags search" (const :format "" tags) (string :tag "Match") (repeat :tag "Local options" (list (variable :tag "Option") (sexp :tag "Value")))) (list :tag "Tags search, TODO entries only" (const :format "" tags-todo) (string :tag "Match") (repeat :tag "Local options" (list (variable :tag "Option") (sexp :tag "Value")))) (list :tag "TODO keyword search" (const :format "" todo) (string :tag "Match") (repeat :tag "Local options" (list (variable :tag "Option") (sexp :tag "Value")))) (list :tag "Other, user-defined function" (symbol :tag "function") (string :tag "Match") (repeat :tag "Local options" (list (variable :tag "Option") (sexp :tag "Value")))))) (repeat :tag "General options" (list (variable :tag "Option") (sexp :tag "Value"))))))) #@672 How to identify stuck projects. This is a list of three items: 1. A tags/todo matcher string that is used to identify a project. The entire tree below a headline matched by this is considered a project. 2. A list of TODO keywords itentifying non-stuck projects. If the project subtree contains any headline with one of these todo keywords, the project is consitered to be not stuck. 3. A list of tags identifying non-stuck projects. If the project subtree contains any headline with one of these tags, the project is consitered to be not stuck. After defining this variable, you may use \[org-agenda-list-stuck-projects] or `C-c a #' to produce the list. (custom-declare-variable 'org-stuck-projects ''("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") nil) '(#$ . 67322) :group 'org-agenda-custom-commands :type '(list (string :tag "Tags/TODO match to identify a project") (repeat :tag "Projects are *not* stuck if they have an entry with TODO keyword any of" (string)) (repeat :tag "Projects are *not* stuck if they have an entry with TAG being any of" (string)))) (custom-declare-group 'org-agenda-skip nil "Options concerning skipping parts of agenda files." :tag "Org Agenda Skip" :group 'org-agenda) #@182 Non-nil means, check also the sublevels of a TODO entry for TODO entries. When nil, the sublevels of a TODO entry are not checked, resulting in potentially much shorter TODO lists. (custom-declare-variable 'org-agenda-todo-list-sublevels 't '(#$ . 68547) :group 'org-agenda-skip :group 'org-todo :type 'boolean) #@159 Non-nil means, don't show scheduled entries in the global todo list. The idea behind this is that by scheduling it, you have already taken care of this item. (custom-declare-variable 'org-agenda-todo-ignore-scheduled 'nil '(#$ . 68866) :group 'org-agenda-skip :group 'org-todo :type 'boolean) #@205 Non-nil means, don't show near deadline entries in the global todo list. Near means closer than `org-deadline-warning-days' days. The idea behind this is that such items will appear in the agenda anyway. (custom-declare-variable 'org-agenda-todo-ignore-deadlines 'nil '(#$ . 69166) :group 'org-agenda-skip :group 'org-todo :type 'boolean) #@141 Non-nil means don't show scheduled items in agenda when they are done. This is relevant for the daily/weekly agenda, not for the TODO list. (custom-declare-variable 'org-agenda-skip-scheduled-if-done 'nil '(#$ . 69512) :group 'org-agenda-skip :type 'boolean) #@335 Non-nil means, `org-timeline' also shows dates without an entry. When nil, only the days which actually have entries are shown. When t, all days between the first and the last date are shown. When an integer, show also empty dates, but if there is a gap of more than N days, just insert a special line indicating the size of the gap. (custom-declare-variable 'org-timeline-show-empty-dates '3 '(#$ . 69778) :group 'org-agenda-skip :type '(choice (const :tag "None" nil) (const :tag "All" t) (number :tag "at most"))) (custom-declare-group 'org-agenda-startup nil "Options concerning initial settings in the Agenda in Org Mode." :tag "Org Agenda Startup" :group 'org-agenda) #@51 Hook run just before displaying an agenda buffer. (custom-declare-variable 'org-finalize-agenda-hook 'nil '(#$ . 70458) :group 'org-agenda-startup :type 'hook) #@181 Non-nil means, mouse-1 on a link will follow the link in the agenda. A longer mouse click will still set point. Does not wortk on XEmacs. Needs to be set before org.el is loaded. (custom-declare-variable 'org-agenda-mouse-1-follows-link 'nil '(#$ . 70625) :group 'org-agenda-startup :type 'boolean) #@68 The initial value of follwo-mode in a newly created agenda window. (custom-declare-variable 'org-agenda-start-with-follow-mode 'nil '(#$ . 70931) :group 'org-agenda-startup :type 'boolean) (custom-declare-group 'org-agenda-windows nil "Options concerning the windows used by the Agenda in Org Mode." :tag "Org Agenda Windows" :group 'org-agenda) #@485 How the agenda buffer should be displayed. Possible values for this option are: current-window Show agenda in the current window, keeping all other windows. other-frame Use `switch-to-buffer-other-frame' to display agenda. other-window Use `switch-to-buffer-other-window' to display agenda. reorganize-frame Show only two windows on the current frame, the current window and the agenda. See also the variable `org-agenda-restore-windows-after-quit'. (custom-declare-variable 'org-agenda-window-setup ''reorganize-frame '(#$ . 71284) :group 'org-agenda-windows :type '(choice (const current-window) (const other-frame) (const other-window) (const reorganize-frame))) #@353 Non-nil means, restore window configuration open exiting agenda. Before the window configuration is changed for displaying the agenda, the current status is recorded. When the agenda is exited with `q' or `x' and this option is set, the old state is restored. If `org-agenda-window-setup' is `other-frame', the value of this option will be ignored.. (custom-declare-variable 'org-agenda-restore-windows-after-quit 'nil '(#$ . 71991) :group 'org-agenda-windows :type 'boolean) #@404 How should indirect tree buffers be displayed? This applies to indirect buffers created with the commands \[org-tree-to-indirect-buffer] and \[org-agenda-tree-to-indirect-buffer]. Valid values are: current-window Display in the current window other-window Just display in another window. dedicated-frame Create one new frame, and re-use it each time. new-frame Make a new frame each time. (custom-declare-variable 'org-indirect-buffer-display ''other-window '(#$ . 72476) :group 'org-structure :group 'org-agenda-windows :type '(choice (const :tag "In current window" current-window) (const :tag "In current frame, other window" other-window) (const :tag "Each time a new frame" new-frame) (const :tag "One dedicated frame" dedicated-frame))) (custom-declare-group 'org-agenda-daily/weekly nil "Options concerning the daily/weekly agenda." :tag "Org Agenda Daily/Weekly" :group 'org-agenda) #@66 Number of days to include in overview display. Should be 1 or 7. (custom-declare-variable 'org-agenda-ndays '7 '(#$ . 73387) :group 'org-agenda-daily/weekly :type 'number) #@151 Non-nil means, start the overview always on the specified weekday. 0 denotes Sunday, 1 denotes Monday etc. When nil, always start on the current day. (custom-declare-variable 'org-agenda-start-on-weekday '1 '(#$ . 73566) :group 'org-agenda-daily/weekly :type '(choice (const :tag "Today" nil) (number :tag "Weekday No."))) #@131 Non-nil means, `org-agenda' shows every day in the selected range. When nil, only the days which actually have entries are shown. (custom-declare-variable 'org-agenda-show-all-dates 't '(#$ . 73896) :group 'org-agenda-daily/weekly :type 'boolean) #@228 Format string for displaying dates in the agenda. Used by the daily/weekly agenda and by the timeline. This should be a format string understood by `format-time-string'. FIXME: Not used currently, because of timezone problem. (custom-declare-variable 'org-agenda-date-format '"%A %d %B %Y" '(#$ . 74150) :group 'org-agenda-daily/weekly :type 'string) #@76 If non-nil, include in the agenda entries from the Emacs Calendar's diary. (custom-declare-variable 'org-agenda-include-diary 'nil '(#$ . 74508) :group 'org-agenda-daily/weekly :type 'boolean) #@166 Set means weekly/daily agenda will always contain all TODO entries. The TODO entries will be listed at the top of the agenda, before the entries for specific days. (custom-declare-variable 'org-agenda-include-all-todo 'nil '(#$ . 74708) :group 'org-agenda-daily/weekly :type 'boolean) (custom-declare-group 'org-agenda-time-grid nil "Options concerning the time grid in the Org-mode Agenda." :tag "Org Agenda Time Grid" :group 'org-agenda) #@353 Non-nil means, show a time grid in the agenda schedule. A time grid is a set of lines for specific times (like every two hours between 8:00 and 20:00). The items scheduled for a day at specific times are sorted in between these lines. For details about when the grid will be shown, and what it will look like, see the variable `org-agenda-time-grid'. (custom-declare-variable 'org-agenda-use-time-grid 't '(#$ . 75156) :group 'org-agenda-time-grid :type 'boolean) #@605 The settings for time grid for agenda display. This is a list of three items. The first item is again a list. It contains symbols specifying conditions when the grid should be displayed: daily if the agenda shows a single day weekly if the agenda shows an entire week today show grid on current date, independent of daily/weekly display require-timed show grid only if at least one item has a time specification The second item is a string which will be places behing the grid time. The third item is a list of integers, indicating the times that should have a grid line. (custom-declare-variable 'org-agenda-time-grid ''((daily today require-timed) "----------------" (800 1000 1200 1400 1600 1800 2000)) '(#$ . 75628) :group 'org-agenda-time-grid :type '(list (set :greedy t :tag "Grid Display Options" (const :tag "Show grid in single day agenda display" daily) (const :tag "Show grid in weekly agenda display" weekly) (const :tag "Always show grid for today" today) (const :tag "Show grid only if any timed entries are present" require-timed) (const :tag "Skip grid times already present in an entry" remove-match)) (string :tag "Grid String") (repeat :tag "Grid Times" (integer :tag "Time")))) (byte-code "\301\302\303\304\305\306\307\310&\210\311\312\313\314\315\307\302\316\317\320\305\321F\322\305\323\324\325\320DE\324\326\320DE\324\327\320DE\257E&\210)\303\207" [sorting-choice custom-declare-group org-agenda-sorting nil "Options concerning sorting in the Org-mode Agenda." :tag "Org Agenda Sorting" :group org-agenda (choice (const time-up) (const time-down) (const category-keep) (const category-up) (const category-down) (const tag-down) (const tag-up) (const priority-up) (const priority-down)) custom-declare-variable org-agenda-sorting-strategy '((agenda time-up category-keep priority-down) (todo category-keep priority-down) (tags category-keep)) "Sorting structure for the agenda items of a single day.\nThis is a list of symbols which will be used in sequence to determine\nif an entry should be listed before another entry. The following\nsymbols are recognized:\n\ntime-up Put entries with time-of-day indications first, early first\ntime-down Put entries with time-of-day indications first, late first\ncategory-keep Keep the default order of categories, corresponding to the\n sequence in `org-agenda-files'.\ncategory-up Sort alphabetically by category, A-Z.\ncategory-down Sort alphabetically by category, Z-A.\ntag-up Sort alphabetically by last tag, A-Z.\ntag-down Sort alphabetically by last tag, Z-A.\npriority-up Sort numerically by priority, high priority last.\npriority-down Sort numerically by priority, high priority first.\n\nThe different possibilities will be tried in sequence, and testing stops\nif one comparison returns a \"not-equal\". For example, the default\n '(time-up category-keep priority-down)\nmeans: Pull out all entries having a specified time of day and sort them,\nin order to make a time schedule for the current day the first thing in the\nagenda listing for the day. Of the entries without a time indication, keep\nthe grouped in categories, don't sort the categories, but keep them in\nthe sequence given in `org-agenda-files'. Within each category sort by\npriority.\n\nLeaving out `category-keep' would mean that items will be sorted across\ncategories by priority." :type choice repeat "General" list "Individually" cons (const :tag "Strategy for Weekly/Daily agenda" agenda) (const :tag "Strategy for TODO lists" todo) (const :tag "Strategy for Tags matches" tags)] 18) #@380 Non-nil means, items without time are considered late. This is only relevant for sorting. When t, items which have no explicit time like 15:30 will be considered as 99:01, i.e. later than any items which do have a time. When nil, the default time is before 0:00. You can use this option to decide if the schedule for today should come before or after timeless agenda entries. (custom-declare-variable 'org-sort-agenda-notime-is-late 't '(#$ . 79263) :group 'org-agenda-sorting :type 'boolean) (custom-declare-group 'org-agenda-prefix nil "Options concerning the entry prefix in the Org-mode agenda display." :tag "Org Agenda Prefix" :group 'org-agenda) #@2373 Format specifications for the prefix of items in the agenda views. An alist with four entries, for the different agenda types. The keys to the sublists are `agenda', `timeline', `todo', and `tags'. The values are format strings. This format works similar to a printf format, with the following meaning: %c the category of the item, "Diary" for entries from the diary, or as given by the CATEGORY keyword or derived from the file name. %T the *last* tag of the item. Last because inherited tags come first in the list. %t the time-of-day specification if one applies to the entry, in the format HH:MM %s Scheduling/Deadline information, a short string All specifiers work basically like the standard `%s' of printf, but may contain two additional characters: A question mark just after the `%' and a whitespace/punctuation character just before the final letter. If the first character after `%' is a question mark, the entire field will only be included if the corresponding value applies to the current entry. This is useful for fields which should have fixed width when present, but zero width when absent. For example, "%?-12t" will result in a 12 character time field if a time of the day is specified, but will completely disappear in entries which do not contain a time. If there is punctuation or whitespace character just before the final format letter, this character will be appended to the field value if the value is not empty. For example, the format "%-12:c" leads to "Diary: " if the category is "Diary". If the category were be empty, no additional colon would be interted. The default value of this option is " %-12:c%?-12t% s", meaning: - Indent the line with two space characters - Give the category in a 12 chars wide field, padded with whitespace on the right (because of `-'). Append a colon if there is a category (because of `:'). - If there is a time-of-day, put it into a 12 chars wide field. If no time, don't put in an empty field, just skip it (because of '?'). - Finally, put the scheduling information and append a whitespace. As another example, if you don't want the time-of-day of entries in the prefix, you could use: (setq org-agenda-prefix-format " %-11:c% s") See also the variables `org-agenda-remove-times-when-in-prefix' and `org-agenda-remove-tags-when-in-prefix'. (custom-declare-variable 'org-agenda-prefix-format ''((agenda . " %-12:c%?-12t% s") (timeline . " % s") (todo . " %-12:c") (tags . " %-12:c")) '(#$ . 79927) :type '(choice (string :tag "General format") (list :greedy t :tag "View dependent" (cons (const agenda) (string :tag "Format")) (cons (const timeline) (string :tag "Format")) (cons (const todo) (string :tag "Format")) (cons (const tags) (string :tag "Format")))) :group 'org-agenda-prefix) #@108 The compiled version of the most recently used prefix format. See the variable `org-agenda-prefix-format'. (defvar org-prefix-format-compiled nil (#$ . 82758)) #@625 Non-nil means, remove duplicate time specifications in agenda items. When the format `org-agenda-prefix-format' contains a `%t' specifier, a time-of-day specification in a headline or diary entry is extracted and placed into the prefix. If this option is non-nil, the original specification (a timestamp or -range, or just a plain time(range) specification like 11:30-4pm) will be removed for agenda display. This makes the agenda less cluttered. The option can be t or nil. It may also be the symbol `beg', indicating that the time should only be removed what it is located at the beginning of the headline/diary entry. (custom-declare-variable 'org-agenda-remove-times-when-in-prefix 't '(#$ . 82925) :group 'org-agenda-prefix :type '(choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When at beginning of entry" beg))) #@180 Non-nil means, remove the tags from the headline copy in the agenda. When this is the symbol `prefix', only remove tags when `org-agenda-prefix-format' contains a `%T' specifier. (custom-declare-variable 'org-agenda-remove-tags-when-in-prefix 'nil '(#$ . 83776) :group 'org-agenda-prefix :type '(choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When prefix format contains %T" prefix))) #@44 Shift tags in agenda items to this column. (custom-declare-variable 'org-agenda-align-tags-to-column '65 '(#$ . 84189) :group 'org-agenda-prefix :type 'integer) (custom-declare-group 'org-latex nil "Options for embedding LaTeX code into Org-mode" :tag "Org LaTeX" :group 'org) #@708 Options for creating images from LaTeX fragments. This is a property list with the following properties: :foreground the foreground color, for example "Black". :background the background color, or "Transparent". :scale a scaling factor for the size of the images :matchers a list indicating which matchers should be used to find LaTeX fragments. Valid members of this list are: "begin" find environments "$" find math expressions surrounded by $...$ "$$" find math expressions surrounded by $$....$$ "$" find math expressions surrounded by \(...$ "\ [" find math expressions surrounded by \ [...\] (custom-declare-variable 'org-format-latex-options ''(:foreground "Black" :background "Transparent" :scale 1.0 :matchers ("begin" "$" "$$" "\\(" "\\[")) '(#$ . 84473) :group 'org-latex :type 'plist) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\301&\207" [custom-declare-group org-export nil "Options for exporting org-listings." :tag "Org Export" :group org org-export-general "General options for exporting Org-mode files." "Org Export General"] 8) #@453 Path to the location where exported files should be located. This path may be relative to the directory where the Org-mode file lives. The default is to put them into the same directory as the Org-mode file. The variable may also be an alist with export types `:html', `:ascii', `:ical', or `:xoxo' and the corresponding directories. If a direcoty path is relative, it is interpreted relative to the directory where the exported Org-mode files lives. (custom-declare-variable 'org-export-publishing-directory '"." '(#$ . 85672) :group 'org-export-general :type '(choice (directory) (repeat (cons (choice :tag "Type" (const :html) (const :ascii) (const :ical) (const :xoxo)) (directory))))) #@180 Terms used in export text, translated to different languages. Use the variable `org-export-default-language' to set the language, or use the +OPTION lines for a per-file setting. (custom-declare-variable 'org-export-language-setup ''(("en" "Author" "Date" "Table of Contents") ("cs" "Autor" "Datum" "Obsah") ("da" "Ophavsmand" "Dato" "Indhold") ("de" "Autor" "Datum" "Inhaltsverzeichnis") ("es" "Autor" "Fecha" "\xccndice") ("fr" "Auteur" "Date" "Table des Mati\xe8res") ("it" "Autore" "Data" "Indice") ("nl" "Auteur" "Datum" "Inhoudsopgave") ("nn" "Forfattar" "Dato" "Innhold") ("sv" "F\xf6rfattarens" "Datum" "Inneh\xe5ll")) '(#$ . 86370) :group 'org-export-general :type '(repeat (list (string :tag "HTML language tag") (string :tag "Author") (string :tag "Date") (string :tag "Table of Contents")))) #@115 The default language of HTML export, as a string. This should have an association in `org-export-language-setup'. (custom-declare-variable 'org-export-default-language '"en" '(#$ . 87181) :group 'org-export-general :type 'string) #@262 The last level which is still exported as a headline. Inferior levels will produce itemize lists when exported. Note that a numeric prefix argument to an exporter function overrides this setting. This option can also be set with the +OPTIONS line, e.g. "H:2". (custom-declare-variable 'org-export-headline-levels '3 '(#$ . 87418) :group 'org-export-general :type 'number) #@132 Non-nil means, add section numbers to headlines when exporting. This option can also be set with the +OPTIONS line, e.g. "num:t". (custom-declare-variable 'org-export-with-section-numbers 't '(#$ . 87798) :group 'org-export-general :type 'boolean) #@660 Non-nil means, create a table of contents in exported files. The TOC contains headlines with levels up to`org-export-headline-levels'. When an integer, include levels up to N in the toc, this may then be different from `org-export-headline-levels', but it will not be allowed to be larger than the number of headline levels. When nil, no table of contents is made. Headlines which contain any TODO items will be marked with "(*)" in ASCII export, and with red color in HTML output, if the option `org-export-mark-todo-in-toc' is set. In HTML output, the TOC will be clickable. This option can also be set with the +OPTIONS line, e.g. "toc:nil" or "toc:3". (custom-declare-variable 'org-export-with-toc 't '(#$ . 88054) :group 'org-export-general :type '(choice (const :tag "No Table of Contents" nil) (const :tag "Full Table of Contents" t) (integer :tag "TOC to level"))) #@65 Non-nil means, mark TOC lines that contain any open TODO items. (custom-declare-variable 'org-export-mark-todo-in-toc 'nil '(#$ . 88936) :group 'org-export-general :type 'boolean) #@265 Non-nil means, preserve all line breaks when exporting. Normally, in HTML output paragraphs will be reformatted. In ASCII export, line breaks will always be preserved, regardless of this variable. This option can also be set with the +OPTIONS line, e.g. "\n:t". (custom-declare-variable 'org-export-preserve-breaks 'nil '(#$ . 89123) :group 'org-export-general :type 'boolean) #@254 Whether subtrees with the ARCHIVE tag should be exported. This can have three different values nil Do not export, pretend this tree is not present t Do export the entire tree headline Only export the headline, but skip the tree below it. (custom-declare-variable 'org-export-with-archived-trees ''headline '(#$ . 89509) :group 'org-export-general :group 'org-archive :type '(choice (const :tag "not at all" nil) (const :tag "headline only" 'headline) (const :tag "entirely" t))) #@60 If nil, do not export time stamps and associated keywords. (custom-declare-variable 'org-export-with-timestamps 't '(#$ . 90009) :group 'org-export-general :type 'boolean) #@63 If nil, remove timestamps from the table of contents entries. (custom-declare-variable 'org-export-remove-timestamps-from-toc 't '(#$ . 90187) :group 'org-export-general :type 'boolean) #@204 If nil, do not export tags, just remove them from headlines. If this is the symbol `not-in-toc', tags will be removed from table of contents entries, but still be shown in the headlines of the document. (custom-declare-variable 'org-export-with-tags ''not-in-toc '(#$ . 90380) :group 'org-export-general :type '(choice (const :tag "Off" nil) (const :tag "Not in TOC" not-in-toc) (const :tag "On" t))) (custom-declare-group 'org-export-translation nil "Options for translating special ascii sequences for the export backends." :tag "Org Export Translation" :group 'org-export) #@370 Non-nil means, interpret *word*, /word/, and _word_ as emphasized text. If the export target supports emphasizing text, the word will be typeset in bold, italic, or underlined, respectively. Works only for single words, but you can say: I *really* *mean* *this*. Not all export backends support this. This option can also be set with the +OPTIONS line, e.g. "*:nil". (custom-declare-variable 'org-export-with-emphasize 't '(#$ . 90963) :group 'org-export-translation :type 'boolean) #@857 Non-nil means, interpret "_" and "^" for export. When this option is turned on, you can use TeX-like syntax for sub- and superscripts. Several characters after "_" or "^" will be considered as a single item - so grouping with {} is normally not needed. For example, the following things will be parsed as single sub- or superscripts. 10^24 or 10^tau several digits will be considered 1 item. 10^-12 or 10^-tau a leading sign with digits or a word x^2-y^3 will be read as x^2 - y^3, because items are terminated by almost any nonword/nondigit char. x_{i^2} or x^(2-i) braces or parenthesis do grouping. Still, ambiguity is possible - so when in doubt use {} to enclose the sub/superscript. Not all export backends support this, but HTML does. This option can also be set with the +OPTIONS line, e.g. "^:nil". (custom-declare-variable 'org-export-with-sub-superscripts 't '(#$ . 91455) :group 'org-export-translation :type 'boolean) #@445 Non-nil means, interpret simple TeX-like macros when exporting. For example, HTML export converts \alpha to α and \AA to Å. No only real TeX macros will work here, but the standard HTML entities for math can be used as macro names as well. For a list of supported names in HTML export, see the constant `org-html-entities'. Not all export backends support this. This option can also be set with the +OPTIONS line, e.g. "TeX:nil". (custom-declare-variable 'org-export-with-TeX-macros 't '(#$ . 92441) :group 'org-export-translation :group 'org-latex :type 'boolean) #@376 Non-nil means, convert LaTeX fragments to images when exporting to HTML. When set, the exporter will find LaTeX environments if the \begin line is the first non-white thing on a line. It will also find the math delimiters like $a=b$ and $ a=b $ for inline math, $$a=b$$ and \[ a=b \] for display math. This option can also be set with the +OPTIONS line, e.g. "LaTeX:t". (custom-declare-variable 'org-export-with-LaTeX-fragments 'nil '(#$ . 93027) :group 'org-export-translation :group 'org-latex :type 'boolean) #@392 Non-nil means, lines starting with ":" will be in fixed width font. This can be used to have pre-formatted text, fragments of code etc. For example: : ;; Some Lisp examples : (while (defc cnt) : (ding)) will be looking just like this in also HTML. See also the QUOTE keyword. Not all export backends support this. This option can also be set with the +OPTIONS line, e.g. "::nil". (custom-declare-variable 'org-export-with-fixed-width 't '(#$ . 93551) :group 'org-export-translation :type 'boolean) #@114 Number of stacked braces for sub/superscript matching. This has to be set before loading org.el to be effective. (custom-declare-variable 'org-match-sexp-depth '3 '(#$ . 94067) :group 'org-export-translation :type 'integer) (custom-declare-group 'org-export-tables nil "Options for exporting tables in Org-mode." :tag "Org Export Tables" :group 'org-export) #@296 If non-nil, lines starting with "|" define a table. For example: | Name | Address | Birthday | |-------------+----------+-----------| | Arthur Dent | England | 29.2.2100 | Not all export backends support this. This option can also be set with the +OPTIONS line, e.g. "|:nil". (custom-declare-variable 'org-export-with-tables 't '(#$ . 94432) :group 'org-export-tables :type 'boolean) #@279 Non-nil means, highlight the first table line. In HTML export, this means use instead of . In tables created with table.el, this applies to the first table line. In Org-mode tables, all lines before the first horizontal separator line will be formatted with tags. (custom-declare-variable 'org-export-highlight-first-table-line 't '(#$ . 94842) :group 'org-export-tables :type 'boolean) #@325 Remove special lines and marking characters in calculating tables. This removes the special marking character column from tables that are set up for spreadsheet calculations. It also removes the entire lines marked with `!', `_', or `^'. The lines with `$' are kept, because the values of constants may be useful to have. (custom-declare-variable 'org-export-table-remove-special-lines 't '(#$ . 95250) :group 'org-export-tables :type 'boolean) #@409 Non-nil means, always export tables created with table.el natively. Natively means, use the HTML code generator in table.el. When nil, Org-mode's own HTML generator is used when possible (i.e. if the table does not use row- or column-spanning). This has the advantage, that the automatic HTML conversions for math symbols and sub/superscripts can be applied. Org-mode's HTML generator is also much faster. (custom-declare-variable 'org-export-prefer-native-exporter-for-tables 'nil '(#$ . 95704) :group 'org-export-tables :type 'boolean) (custom-declare-group 'org-export-ascii nil "Options specific for ASCII export of Org-mode files." :tag "Org Export ASCII" :group 'org-export) #@127 Characters for underlining headings in ASCII export. In the given sequence, these characters will be used for level 1, 2, ... (custom-declare-variable 'org-export-ascii-underline ''(36 35 94 126 61 45) '(#$ . 96394) :group 'org-export-ascii :type '(repeat character)) #@323 Bullet characters for headlines converted to lists in ASCII export. The first character is is used for the first lest level generated in this way, and so on. If there are more levels than characters given here, the list will be repeated. Note that plain lists will keep the same bullets as the have in the Org-mode file. (custom-declare-variable 'org-export-ascii-bullets ''(42 43 45) '(#$ . 96669) :group 'org-export-ascii :type '(repeat character)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\207" [custom-declare-group org-export-xml nil "Options specific for XML export of Org-mode files." :tag "Org Export XML" :group org-export org-export-html "Options specific for HTML export of Org-mode files." "Org Export HTML"] 8) #@837 The default style specification for exported HTML files. Since there are different ways of setting style information, this variable needs to contain the full HTML structure to provide a style, including the surrounding HTML tags. The style specifications should include definitions for new classes todo, done, title, and deadline. For example, legal values would be: or, if you want to keep the style in a file, As the value of this option simply gets inserted into the HTML header, you can "misuse" it to add arbitrary text to the header. (custom-declare-variable 'org-export-html-style '"" '(#$ . 97444) :group 'org-export-html :type 'string) #@59 Format for typesetting the document title in HTML export. (custom-declare-variable 'org-export-html-title-format '"

%s

\n" '(#$ . 98986) :group 'org-export-html :type 'string) #@52 The level for level 1 headings in HTML export. (custom-declare-variable 'org-export-html-toplevel-hlevel '2 '(#$ . 99191) :group 'org-export-html :type 'string) #@444 Non-nil means, make file links to `file.org' point to `file.html'. When org-mode is exporting an org-mode file to HTML, links to non-html files are directly put into a href tag in HTML. However, links to other Org-mode files (recognized by the extension `.org.) should become links to the corresponding html file, assuming that the linked org-mode file will also be converted to HTML. When nil, the links still point to the plain `.org' file. (custom-declare-variable 'org-export-html-link-org-files-as-html 't '(#$ . 99363) :group 'org-export-html :type 'boolean) #@295 Non-nil means, inline images into exported HTML pages. This is done using an tag. When nil, an anchor with href is used to link to the image. If this option is `maybe', then images in links with an empty description will be inlined, while images with a description will be linked only. (custom-declare-variable 'org-export-html-inline-images ''maybe '(#$ . 99935) :group 'org-export-html :type '(choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "When there is no description" maybe))) #@225 Non-nil means, for HTML export, treat @<...> as HTML tag. When nil, these tags will be exported as plain text and therefore not be interpreted by a browser. This option can also be set with the +OPTIONS line, e.g. "@:nil". (custom-declare-variable 'org-export-html-expand 't '(#$ . 100454) :group 'org-export-html :type 'boolean) #@122 The HTML tag used to start a table. This must be a tag, but you may change the options like borders and spacing. (custom-declare-variable 'org-export-html-table-tag '"

" '(#$ . 100792) :group 'org-export-html :type 'string) #@141 If non-nil, write `org-export-html-html-helper-timestamp' into the exported HTML text. Otherwise, the buffer will just be saved to a file. (custom-declare-variable 'org-export-html-with-timestamp 'nil '(#$ . 101120) :group 'org-export-html :type 'boolean) #@64 The HTML tag used as timestamp delimiter for HTML-helper-mode. (custom-declare-variable 'org-export-html-html-helper-timestamp '"

\n" '(#$ . 101383) :group 'org-export-html :type 'string) (custom-declare-group 'org-export-icalendar nil "Options specific for iCalendar export of Org-mode files." :tag "Org Export iCalendar" :group 'org-export) #@179 The file name for the iCalendar file covering all agenda files. This file is created with the command \[org-export-icalendar-all-agenda-files]. The file name should be absolute. (custom-declare-variable 'org-combined-agenda-icalendar-file '"~/org.ics" '(#$ . 101792) :group 'org-export-icalendar :type 'file) #@72 Non-nil means, export to iCalendar files should also cover TODO items. (custom-declare-variable 'org-icalendar-include-todo 'nil '(#$ . 102107) :group 'org-export-icalendar :type '(choice (const :tag "None" nil) (const :tag "Unfinished" t) (const :tag "All" all))) #@73 Calendar name for the combined iCalendar representing all agenda files. (custom-declare-variable 'org-icalendar-combined-name '"OrgMode" '(#$ . 102378) :group 'org-export-icalendar :type 'string) (custom-declare-group 'org-font-lock nil "Font-lock settings for highlighting in Org-mode." :tag "Org Font Lock" :group 'org) #@204 Non-nil means fontify only the stars in each headline. When nil, the entire headline is fontified. Changing it requires restart of `font-lock-mode' to become effective also in regions already fontified. (custom-declare-variable 'org-level-color-stars-only 'nil '(#$ . 102707) :group 'org-font-lock :type 'boolean) #@503 Non-nil means, hide the first N-1 stars in a headline. This works by using the face `org-hide' for these stars. This face is white for a light background, and black for a dark background. You may have to customize the face `org-hide' to make this work. Changing it requires restart of `font-lock-mode' to become effective also in regions already fontified. You may also set this on a per-file basis by adding one of the following lines to the buffer: #+STARTUP: hidestars #+STARTUP: showstars (custom-declare-variable 'org-hide-leading-stars 'nil '(#$ . 103028) :group 'org-font-lock :type 'boolean) #@256 Non-nil means, change the face of a headline if it is marked DONE. Normally, only the TODO/DONE keyword indicates the state of a headline. When this is non-nil, the headline after the keyword is set to the `org-headline-done' as an additional indication. (custom-declare-variable 'org-fontify-done-headline 'nil '(#$ . 103644) :group 'org-font-lock :type 'boolean) #@130 Non-nil means fontify *bold*, /italic/ and _underlined_ text. Changing this variable requires a restart of Emacs to take effect. (custom-declare-variable 'org-fontify-emphasized-text 't '(#$ . 104016) :group 'org-font-lock :type 'boolean) #@43 Regular expression for matching emphasis. (defvar org-emph-re nil (#$ . 104261)) #@59 Set variable and compute the emphasis regular expression. (defalias 'org-set-emph-re #[(var val) " L\210\306\302!\205\261\306\303!\205\261\n\205\261\205\261\211@\fA@#\307\f8$\310\f8%\311\f8&\312\f8'%\313P(\314\315\n\316#)\317\320)\"\203V\321\316\322\211)$\323P)\317\324)\"\203i\321\316\322\211)$\324P)&\325V\203(\326%\327\330&!\331\260(\332 '\205\210)\333\334\332)\335\334\336$)\337(\336$)\337\340\341\332#'\205\251)\342\260\211*. \207" [var val org-emphasis-alist org-emphasis-regexp-components e pre boundp 2 3 4 5 "*?" mapconcat car "" string-match "\\^" replace-match t "^" "-" 0 "\$?:\n" "*?\$\\{0," int-to-string "\\}" "\$[" "]\\|^\$" "\$" "]\$" "[^" "]" "\\)" "\\3\\)" "]\\|$\\)" post border body nl stacked body1 markers org-emph-re] 25 (#$ . 104348)]) #@1227 Components used to build the reqular expression for emphasis. This is a list with 6 entries. Terminology: In an emphasis string like " *strong word* ", we call the initial space PREMATCH, the final space POSTMATCH, the stars MARKERS, "s" and "d" are BORDER characters and "trong wor" is the body. The different components in this variable specify what is allowed/forbidden in each part: pre Chars allowed as prematch. Beginning of line will be allowed too. post Chars allowed as postmatch. End of line will be allowed too. border The chars *forbidden* as border characters. In addition to the characters given here, all marker characters are forbidden too. body-regexp A regexp like "." to match a body character. Don't use non-shy groups here, and don't allow newline here. newline The maximum number of newlines allowed in an emphasis exp. stacked Non-nil means, allow stacked styles. This works only in HTML export. When this is set, all marker characters (as given in `org-emphasis-alist') will be allowed as pre/post, aiding inside-out matching. Use customize to modify this, or restart Emacs after changing it. (custom-declare-variable 'org-emphasis-regexp-components ''(" ('\"" " .,?;'\")" " \n," "." 1 nil) '(#$ . 105171) :group 'org-font-lock :set 'org-set-emph-re :type '(list (sexp :tag "Allowed chars in pre ") (sexp :tag "Allowed chars in post ") (sexp :tag "Forbidden chars in border ") (sexp :tag "Regexp for body ") (integer :tag "number of newlines allowed") (boolean :tag "Stacking allowed "))) #@380 Special syntax for emphasized text. Text starting and ending with a special character will be emphasized, for example *bold*, _underlined_ and /italic/. This variable sets the marker characters, the face to bbe used by font-lock for highlighting in Org-mode Emacs buffers, and the HTML tags to be used for this. Use customize to modify this, or restart Emacs after changing it. (custom-declare-variable 'org-emphasis-alist ''(("*" bold "" "") ("/" italic "" "") ("_" underline "" "") ("=" shadow "" "") ("+" (:strike-through t) "~~" "~~")) '(#$ . 106832) :group 'org-font-lock :set 'org-set-emph-re :type '(repeat (list (string :tag "Marker character") (choice (face :tag "Font-lock-face") (plist :tag "Face property list")) (string :tag "HTML start tag") (string :tag "HTML end tag")))) (custom-declare-group 'org-faces nil "Faces in Org-mode." :tag "Org Faces" :group 'org-font-lock) #@324 Make a compatible face specification. XEmacs and Emacs 21 do not know about the `min-colors' attribute. For them we convert a (min-colors 8) entry to a `tty' entry and move it to the top of the list. The `min-colors' attribute will be removed from any other entries, and any resulting duplicates will be removed entirely. (defalias 'org-compatible-face #[(specs) "\305W\203s\306\211\211\f\211A@\211\203o\n@\307>\203$\nB\202\f\310\n@\235\211\203?\311\312 @\n@\"B\nABC\244\210\202\f\313\n@\236\211\203`\312 \n@\"\nAB\314\n@\"\204\f\nB\202\f\314\n@\"\204\f\nB\202\f\237+\207\f\207" [emacs-major-version a e r specs 22 nil (t default) (min-colors 8) (type tty) delq min-colors assoc] 5 (#$ . 107767)]) (byte-code "\302\303\304\305\306\307%\210\302\310\311\312!\313\306\307%\210\302\314\311\315!\316\306\307%\210\302\317\311\320!\321\306\307%\210\302\322\311\323!\324\306\307%\210\302\325\311\326!\327\306\307%\210\302\330\311\331!\332\306\307%\210\302\333\311\334!\335\306\307%\210\302\336\311\337!\340\306\307%\210\302\341\311\342!\343\306\307%\210\302\344\311\345!\346\306\307%\210\302\347\311\350!\351\306\307%\210\302\352\311\353!\354\306\307%\210\302\355\356\357\306\307%\210\302\360\361\357\306\307%\210\302\362\363\364\306\307%\210\302\365\311\366!\367\306\307%\210\302\370\311\371!\372\306\307%\210\302\373\311\374!\375\306\307%\210\302\376\311\377!\201@\306\307%\210\302\201A\311\201B!\201C\306\307%\210\302\201D\311\201E!\201F\306\307%\210\302\201G\311\201H!\201F\306\307%\210\302\201I\311\201J!\201K\306\307%\210\301B\201L\201M!\210\201NB\201O G!\207" [current-load-list org-level-faces custom-declare-face org-hide ((((background light)) (:foreground "white")) (((background dark)) (:foreground "black"))) "Face used to hide leading stars in headlines.\nThe forground color of this face should be equal to the background\ncolor of the frame." :group org-faces org-level-1 org-compatible-face ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8)) (:foreground "blue" :bold t)) (t (:bold t))) "Face used for level 1 headlines." org-level-2 ((((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod")) (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 8) (background light)) (:foreground "yellow")) (((class color) (min-colors 8) (background dark)) (:foreground "yellow" :bold t)) (t (:bold t))) "Face used for level 2 headlines." org-level-3 ((((class color) (min-colors 88) (background light)) (:foreground "Purple")) (((class color) (min-colors 88) (background dark)) (:foreground "Cyan1")) (((class color) (min-colors 16) (background light)) (:foreground "Purple")) (((class color) (min-colors 16) (background dark)) (:foreground "Cyan")) (((class color) (min-colors 8) (background light)) (:foreground "purple" :bold t)) (((class color) (min-colors 8) (background dark)) (:foreground "cyan" :bold t)) (t (:bold t))) "Face used for level 3 headlines." org-level-4 ((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 16) (background light)) (:foreground "red")) (((class color) (min-colors 16) (background dark)) (:foreground "red1")) (((class color) (min-colors 8) (background light)) (:foreground "red" :bold t)) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:bold t))) "Face used for level 4 headlines." org-level-5 ((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen")) (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 8)) (:foreground "green"))) "Face used for level 5 headlines." org-level-6 ((((class color) (min-colors 16) (background light)) (:foreground "CadetBlue")) (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 8)) (:foreground "magenta"))) "Face used for level 6 headlines." org-level-7 ((((class color) (min-colors 16) (background light)) (:foreground "Orchid")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSteelBlue")) (((class color) (min-colors 8)) (:foreground "blue"))) "Face used for level 7 headlines." org-level-8 ((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 8)) (:foreground "green"))) "Face used for level 8 headlines." org-special-keyword ((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) (t (:italic t))) "Face used for special keywords." org-warning ((((class color) (min-colors 16) (background light)) (:foreground "Red1" :bold t)) (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :bold t)) (((class color) (min-colors 8) (background light)) (:foreground "red" :bold t)) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:bold t))) "Face for deadlines and TODO keywords." org-headline-done ((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 8) (background light)) (:bold nil))) "Face used to indicate that a headline is DONE.\nThis face is only used if `org-fontify-done-headline' is set." org-archived ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) (((class color) (min-colors 8) (background light)) (:foreground "green")) (((class color) (min-colors 8) (background dark)) (:foreground "yellow"))) "Face for headline with the ARCHIVE tag." org-link ((((class color) (background light)) (:foreground "Purple" :underline t)) (((class color) (background dark)) (:foreground "Cyan" :underline t)) (t (:underline t))) "Face for links." org-date ((((class color) (background light)) (:foreground "Purple" :underline t)) (((class color) (background dark)) (:foreground "Cyan" :underline t)) (t (:underline t))) org-tag ((t (:bold t))) "Face for tags." org-todo ((((class color) (min-colors 16) (background light)) (:foreground "Red1" :bold t)) (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :bold t)) (((class color) (min-colors 8) (background light)) (:foreground "red" :bold t)) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:inverse-video t :bold t))) "Face for TODO keywords." org-done ((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen" :bold t)) (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen" :bold t)) (((class color) (min-colors 8)) (:foreground "green")) (t (:bold t))) "Face used for DONE." org-table ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8) (background light)) (:foreground "blue")) (((class color) (min-colors 8) (background dark)))) "Face used for tables." org-formula ((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) (:foreground "red")) (t (:bold t :italic t))) "Face for formulas." org-scheduled-today ((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen")) (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 8)) (:foreground "green")) (t (:bold t :italic t))) "Face for items scheduled for a certain day." org-scheduled-previously ((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:bold t))) "Face for items scheduled previously, and not yet done." org-upcoming-deadline ((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:bold t))) org-time-grid ((((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod")) (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 8)) (:foreground "yellow" :weight light))) "Face used for time grids." (lambda (#1=#:defconst-tmp-var) (defconst org-level-faces #1#)) (org-level-1 org-level-2 org-level-3 org-level-4 org-level-5 org-level-6 org-level-7 org-level-8) org-n-levels (lambda (#2=#:defconst-tmp-var) (defconst org-n-levels #2#))] 6) #@69 The last string in `org-todo-keywords', indicating an item is DONE. (defvar org-done-string nil (#$ . 117471)) (make-variable-buffer-local 'org-done-string) #@41 Matches any of the TODO state keywords. (defvar org-todo-regexp nil (#$ . 117634)) (make-variable-buffer-local 'org-todo-regexp) #@61 Matches any of the TODO state keywords except the last one. (defvar org-not-done-regexp nil (#$ . 117769)) (make-variable-buffer-local 'org-not-done-regexp) #@65 Matches a headline and puts TODO state into group 2 if present. (defvar org-todo-line-regexp nil (#$ . 117932)) (make-variable-buffer-local 'org-todo-line-regexp) #@113 Matches a headline and puts TODO state into group 2 if present. Also put tags into group 4 if tags are present. (defvar org-todo-line-tags-regexp nil (#$ . 118102)) (make-variable-buffer-local 'org-todo-line-tags-regexp) #@63 Matches newline followed by a headline with the DONE keyword. (defvar org-nl-done-regexp nil (#$ . 118329)) (make-variable-buffer-local 'org-nl-done-regexp) #@35 Matches the DONE keyword a point. (defvar org-looking-at-done-regexp nil (#$ . 118492)) (make-variable-buffer-local 'org-looking-at-done-regexp) #@32 Do TODO items have priorities? (defvar org-todo-kwd-priority-p nil (#$ . 118643)) (make-variable-buffer-local 'org-todo-kwd-priority-p) #@33 Maximum priority of TODO items. (defvar org-todo-kwd-max-priority nil (#$ . 118785)) (make-variable-buffer-local 'org-todo-kwd-max-priority) #@56 Maximum length of the Deadline and SCHEDULED keywords. (defvar org-ds-keyword-length 12 (#$ . 118932)) (make-variable-buffer-local 'org-ds-keyword-length) #@31 Matches the DEADLINE keyword. (defvar org-deadline-regexp nil (#$ . 119093)) (make-variable-buffer-local 'org-deadline-regexp) #@58 Matches the DEADLINE keyword together with a time stamp. (defvar org-deadline-time-regexp nil (#$ . 119226)) (make-variable-buffer-local 'org-deadline-time-regexp) #@56 Matches the DEADLINE keyword and the rest of the line. (defvar org-deadline-line-regexp nil (#$ . 119396)) (make-variable-buffer-local 'org-deadline-line-regexp) #@32 Matches the SCHEDULED keyword. (defvar org-scheduled-regexp nil (#$ . 119564)) (make-variable-buffer-local 'org-scheduled-regexp) #@59 Matches the SCHEDULED keyword together with a time stamp. (defvar org-scheduled-time-regexp nil (#$ . 119700)) (make-variable-buffer-local 'org-scheduled-time-regexp) #@56 Matches the CLOSED keyword together with a time stamp. (defvar org-closed-time-regexp nil (#$ . 119873)) (make-variable-buffer-local 'org-closed-time-regexp) #@62 Matches any of the 4 keywords, together with the time stamp. (defvar org-keyword-time-regexp nil (#$ . 120037)) (make-variable-buffer-local 'org-keyword-time-regexp) #@62 Matches any of the 3 keywords, together with the time stamp. (defvar org-keyword-time-not-clock-regexp nil (#$ . 120209)) (make-variable-buffer-local 'org-keyword-time-not-clock-regexp) #@55 Matches a timestamp, possibly preceeded by a keyword. (defvar org-maybe-keyword-time-regexp nil (#$ . 120401)) (make-variable-buffer-local 'org-maybe-keyword-time-regexp) #@66 Properties to remove when a string without properties is wanted. (defconst org-rm-props '(invisible t face t keymap t intangible t mouse-face t rear-nonsticky t mouse-map t fontified t) (#$ . 120578)) (defalias 'org-match-string-no-properties #[(num &optional string) "\302 \"\207" [num string match-string-no-properties] 3]) (put 'org-match-string-no-properties 'byte-optimizer 'byte-compile-inline-expand) (defalias 'org-no-properties #[(s) "\302\303G $\210\207" [s org-rm-props remove-text-properties 0] 5]) (put 'org-no-properties 'byte-optimizer 'byte-compile-inline-expand) (defalias 'org-get-alist-option #[(option key) "\302=\203\302\207 \302=\203\302\207\303 \"\203\303 \"A\207\304 \236A\207" [key option t assoc default] 3]) (put 'org-get-alist-option 'byte-optimizer 'byte-compile-inline-expand) #@55 Make VAR local in current buffer and set it to VALUE. (defalias 'org-set-local #[(var value) "\302! L\207" [var value make-variable-buffer-local] 2 (#$ . 121404)]) (put 'org-set-local 'byte-optimizer 'byte-compile-inline-expand) #@45 Check if the current buffer is in Org-mode. (defalias 'org-mode-p #[nil "\301=\207" [major-mode org-mode] 2 (#$ . 121640)]) (put 'org-mode-p 'byte-optimizer 'byte-compile-inline-expand) #@34 Return the last element of LIST. (defalias 'org-last #[(list) "\301!@\207" [list last] 2 (#$ . 121833)]) (put 'org-last 'byte-optimizer 'byte-compile-inline-expand) (defalias 'org-let #[(list &rest body) "\302\303 BB!\207" [list body eval let] 4]) (put 'org-let 'lisp-indent-function 1) (defalias 'org-let2 #[(list1 list2 &rest body) "\303\304\304 \nBBCBB!\207" [list1 list2 body eval let] 6]) (put 'org-let2 'lisp-indent-function 2) #@327 Variable associated with STARTUP options for org-mode. Each element is a list of three items: The startup options as written in the #+STARTUP line, the corresponding variable, and the value to set this variable to if the option is found. An optional forth element PUSH means to push this value onto the list in the variable. (defconst org-startup-options '(("fold" org-startup-folded t) ("overview" org-startup-folded t) ("nofold" org-startup-folded nil) ("showall" org-startup-folded nil) ("content" org-startup-folded content) ("hidestars" org-hide-leading-stars t) ("showstars" org-hide-leading-stars nil) ("odd" org-odd-levels-only t) ("oddeven" org-odd-levels-only nil) ("align" org-startup-align-all-tables t) ("noalign" org-startup-align-all-tables nil) ("customtime" org-display-custom-times t) ("logging" org-log-done t) ("logdone" org-log-done t) ("nologging" org-log-done nil) ("lognotedone" org-log-done done push) ("lognotestate" org-log-done state push) ("lognoteclock-out" org-log-done clock-out push)) (#$ . 122277)) #@52 Precompute regular expressions for current buffer. (defalias 'org-set-regexps-and-options #[nil "\306=\2052\307\310!\311\312\211\211\211\211\211\211\211@ABCD\212\214~\210eb\210\313D\312\314#\203c\315\316!@\317\312EF\320FE\"*@\321\232\203`\322\323 \"\203Y\324\325\314\211 $\326 !\202(@\327\232\203x\330A\331B\332 C\"\"B\202(@\333\232\203\220\334A\331B\332 C\"\"B\202(@\335\232\203\250\336A\331B\332 C\"\"B\202(@\337\232\203\273\331\n\332 C\"\"\202(@\340\232\203\332\322\341 \"\203(\315\316 \"\342\315\317 \"!B B\202(@\343\232\203E\332 C\"\312\211\211GHIJ\344J\211AJ@K\"\211I\203AIA@H\317I8G\345I8\204 \346H!GL\210\202\361HJ<\204.\346H!\312L\210\346H!HJL\210\347HG\"\210\202\361,\202(@\350\232\203(\322\351 \"\210\324\325\314\211 $\352\353G\354$\210\202(*\f\203u\355\fH\356H! L\210*B\203\210\357BH\356H! L\210*\203\231\360H\356H! L\210*A\203\254\361AH\356H! L\210* \203\264 \237L\n\203G\312\211MN\n\211A@\211N\203N\362\232\203\331\363MBM\202\276N\364\232\203\351\365MBM\202\276\322\366N\"\203\315\316N\"\367\315\317N\"!BMBM\202\276NCMBM\202\276\370\312H\356H! L\210*M\211AM@\211N\203FN@;\203<\344N@8\"\204N8B8\202*.\n1\334\232O/GSPQGRG]\317\\S/GS/8T\371\372\373/\374#\375QU\371\372\373\376/!A\237\374#\375QV\377\372\373/\374#\201fQW\201gT\201hQX\377\372\373/\374#\201iQY\201jT\201hQZ\201kQP[\201kQ\201lQ\\\371Q\201mQ]\201kRP^\201kR\201lQ_\201k`\201nQa\371R\374Q\374`\374b\201o\201p\260\nc\371R\374Q\374`\201o\201p\260d\201qR\374Q\374`\374b\201r\201s\260\ne\201t \207" [major-mode links tags arch cat value org-mode org-make-options-regexp ("CATEGORY" "SEQ_TODO" "PRI_TODO" "TYP_TODO" "STARTUP" "ARCHIVE" "TAGS" "LINK") "[ ]+" nil re-search-forward t match-string 1 2 match-string-no-properties "CATEGORY" string-match "[ ]+$" replace-match "" intern "SEQ_TODO" sequence append org-split-string "PRI_TODO" priority "TYP_TODO" type "TAGS" "LINK" "^\$\\S-+\$[ ]+\$.+\$" org-trim "STARTUP" assoc 3 make-local-variable add-to-list "ARCHIVE" " *$" remove-text-properties 0 (face t fontified t) org-category make-variable-buffer-local org-todo-keywords org-archive-location org-todo-interpretation "{" (:startgroup) "}" (:endgroup) "^\$[0-9a-zA-Z_@]+\$(\$.\$)$" string-to-char org-tag-alist "\\<\$" mapconcat regexp-quote "\\|" "\$\\>" reverse "^\$\\*+\$[ ]*\$?:\\(" key int kwds splitre re string num val var l opts org-startup-options org-link-abbrev-alist-local tgs e org-todo-kwd-priority-p org-todo-kwd-max-priority org-deadline-string org-scheduled-string org-ds-keyword-length org-done-string org-todo-regexp org-not-done-regexp org-todo-line-regexp org-nl-done-regexp org-todo-line-tags-regexp org-looking-at-done-regexp org-deadline-regexp org-deadline-time-regexp org-deadline-line-regexp org-scheduled-regexp org-scheduled-time-regexp org-closed-string org-closed-time-regexp org-clock-string org-keyword-time-regexp org-keyword-time-not-clock-regexp org-maybe-keyword-time-regexp "\$\\>\\)? *\$.*\$" "[ \n]\\*+[ ]+" "\\>" "\\)\\>\\)? *\$.*?\\([ ]:[a-zA-Z0-9:_@]+:[ ]*\$?$\\)" "^" "\\<" " *<\$[^>]+\$>" "\\).*" " *\\[\$[^]]+\$\\]" "\\)" " *[[<]\$[^]>]+\$[]>]" "\$\\<\\(" "\$\\)?" " *\$[[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^] \n>]*?[]>]\$" org-set-font-lock-defaults] 10 (#$ . 123317)]) #@57 Used in various places to store a window configuration. (defvar org-window-configuration nil (#$ . 126788)) #@105 Function to be called when `C-c C-c' is used. This is for getting out of special buffers like remember. (defvar org-finish-function nil (#$ . 126903)) (defalias 'org-make-overlay #[(beg end &optional buffer) "\303 \n#\207" [beg end buffer make-overlay] 4]) (defalias 'org-delete-overlay #[(ovl) "\301!\207" [ovl delete-overlay] 2]) (defalias 'org-detach-overlay #[(ovl) "\301!\207" [ovl delete-overlay] 2]) (defalias 'org-move-overlay #[(ovl beg end &optional buffer) "\304 \n$\207" [ovl beg end buffer move-overlay] 5]) (defalias 'org-overlay-put #[(ovl prop value) "\303 \n#\207" [ovl prop value overlay-put] 4]) #@47 Make overlay OVL display TEXT with face FACE. (defalias 'org-overlay-display #[(ovl text &optional face evap) "\304\305 #\210\n\203\304\302\n#\210\205\304\306\307#\207" [ovl text face evap overlay-put display evaporate t] 4 (#$ . 127530)]) #@47 Make overlay OVL display TEXT with face FACE. (defalias 'org-overlay-before-string #[(ovl text &optional face evap) "\203\304 \305\300$\210\306\n\307 #\210\205\306\n\310\311#\207" [face text ovl evap org-add-props nil overlay-put before-string evaporate t] 5 (#$ . 127784)]) (defalias 'org-overlay-get #[(ovl prop) "\302 \"\207" [ovl prop overlay-get] 3]) (defalias 'org-overlays-at #[(pos) "\301!\207" [pos overlays-at] 2]) (defalias 'org-overlays-in #[(&optional start end) "\302 \"\207" [start end overlays-in] 3]) (defalias 'org-overlay-start #[(o) "\301!\207" [o overlay-start] 2]) (defalias 'org-overlay-end #[(o) "\301!\207" [o overlay-end] 2]) #@101 Find all overlays specifying PROP at POS or point. If DELETE is non-nil, delete all those overlays. (defalias 'org-find-overlays #[(prop &optional pos delete) "\306\206`!\307\211\211A@\211\203/\310\n\f\"\203\f \203(\311\n!\210\202\f\n B\202\f +\207" [pos found ov overlays prop delete org-overlays-at nil org-overlay-get org-delete-overlay] 3 (#$ . 128455)]) #@41 Add-hook, compatible with both Emacsen. (defalias 'org-add-hook #[(hook function &optional append local) "\210\304 \n$\207" [local hook function append add-hook] 5 (#$ . 128835)]) #@43 To temporarily disable the active region. (defvar org-ignore-region nil (#$ . 129024)) #@84 Is `transient-mark-mode' on and the region active? Works on both Emacs and XEmacs. (defalias 'org-region-active-p #[nil "?\205\n \205\n\n\207" [org-ignore-region transient-mark-mode mark-active] 1 (#$ . 129117)]) #@138 Add elements to `buffer-invisibility-spec'. See documentation for `buffer-invisibility-spec' for the kind of elements that can be added. (defalias 'org-add-to-invisibility-spec #[(arg) "\302\303!\203\n\303!\207 \203 \304=\203C\211\207 B\211\207" [arg buffer-invisibility-spec fboundp add-to-invisibility-spec t] 2 (#$ . 129340)]) #@50 Remove elements from `buffer-invisibility-spec'. (defalias 'org-remove-from-invisibility-spec #[(arg) "\302\303!\203\n\303!\207 :\205\304 \"\211\207" [arg buffer-invisibility-spec fboundp remove-from-invisibility-spec delete] 3 (#$ . 129686)]) #@48 Is ARG a member of `buffer-invisibility-spec'? (defalias 'org-in-invisibility-spec-p #[(arg) ":\205 \235\207" [buffer-invisibility-spec arg] 2 (#$ . 129942)]) (byte-code "\301!\204\302\303!\203\304\305!\210\301\207" [outline-mode-map keymapp featurep allout error "Conflict with outdated version of allout.el. Load org.el before allout.el, or ugrade to newer allout, for example by switching to Emacs 22."] 2) #@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 (#$ . 130369)) (byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\305\"\210\307B\303\307!\204-\304\307\305\"\210\302\310N\2049\311\302\310\312#\210\313\314!\204E\311\314\315\316#\210\314B\303\314!\204U\304\314\317 \"\210\313\320!\204a\311\320\315\316#\210\320B\303\320!\204q\304\320\321 \"\210\311\301\315\316#\210\301B\303\301!\204\213\304\301\322\301\305\"\210 \"\210\311\316\323\324#\207" [current-load-list org-mode-abbrev-table org-mode-hook default-boundp set-default nil org-inhibit-startup org-agenda-keep-modes variable-documentation put "Hook run when entering Org mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp org-mode-map definition-name org-mode make-sparse-keymap org-mode-syntax-table make-syntax-table define-abbrev-table derived-mode-parent outline-mode] 5) #@989 Outline-based notes management and organizer, alias "Carsten's outline-mode for keeping track of everything." Org-mode develops organizational tasks around a NOTES file which contains information about projects as plain text. Org-mode is implemented on top of outline-mode, which is ideal to keep the content of large files well structured. It supports ToDo items, deadlines and time stamps, which magically appear in the diary listing of the Emacs calendar. Tables are easily created with a built-in table editor. Plain text URL-like links connect to websites, emails (VM), Usenet messages (Gnus), BBDB entries, and any files related to the project. For printing and sharing of notes, an Org-mode file (or a part of it) can be exported as a structured ASCII or HTML file. The following commands are available: \{org-mode-map} In addition to any hooks its parent mode `outline-mode' might have run, this mode runs the hook `org-mode-hook', as the final step during initialization. (defalias 'org-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324!\210\325\f!\210@A\326\327\330#\210\326\331\330#\210\326\332\330#\210\333B!\210\333C!\210\334 \210D\203q\335\336!\210\335\337!\210\340E\341FG\203\256G;\203\256\342\343!\203\256\344\345!\203\256H\204\233\346 H\343H\347GI\350I!)#\210H%\351 \210\352\353JK\354K!JL\210*\355\356\357\"\210L\203\315\307M\360\361JK\354K!JL\210*\362\307JK\354K!JL\210*\363\364\365\366\367$\210\363\370\371\366\367$\210\372 \210\373 \210\374\375JK\354K!JL\210*\344\376!\204\"\363\377\201U\201V\367$\210\2023\376\201WJK\354K!JL\210*N\203Gt\203GedU\203G\201Xc\210O\204\233P\203g\201Y Q\201Z\201[!\210\201\\Q!\210)R\307=\203y\201]\201^!\210\202\233R\201_=\203\233\201]\211ST\201]\201`!\210\201]\201a!\210*)\342\201b!\203\254\201b\201c!\207\201d\201c!\207" [delay-mode-hooks major-mode mode-name org-mode-map org-mode-syntax-table parent make-local-variable t outline-mode org-mode "Org" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table define-key [menu-bar headings] undefined [menu-bar hide] [menu-bar show] easy-menu-add org-install-agenda-files-menu org-add-to-invisibility-spec (org-link) (org-cwidth) "\\*+" org-outline-level fboundp set-display-table-slot boundp buffer-display-table make-display-table 4 vconcat org-set-regexps-and-options calc-embedded-open-mode "# " make-variable-buffer-local modify-syntax-entry 35 "<" font-lock-unfontify-region-function org-unfontify-region org-table-may-need-update org-add-hook before-change-functions org-before-change-function nil local kill-buffer-hook org-check-running-clock org-set-autofill-regexps org-update-radio-target-regexp comment-padding " " outline-isearch-open-invisible-function isearch-mode-end-hook org-mode-abbrev-table local-abbrev-table org-org-menu org-tbl-menu org-descriptive-links outline-regexp outline-level org-ellipsis org-display-table string value var org-startup-truncated truncate-lines org-insert-mode-line-in-empty-file org-inhibit-startup org-startup-align-all-tables bmp org-startup-folded last-command this-command org-isearch-end append #[(&rest ignore) "\300\301!\207" [org-show-context isearch] 2] " -*- mode: org -*-\n\n" buffer-modified-p org-table-map-tables org-table-align set-buffer-modified-p org-cycle (4) content (4) (4) run-mode-hooks org-mode-hook run-hooks] 6 (#$ . 131467) nil]) #@61 Call COMMAND interactively, but pretend prefix are was ARG. (defalias 'org-call-with-arg #[(command arg) "\303\n!)\207" [arg current-prefix-arg command call-interactively] 2 (#$ . 135116)]) (put 'org-call-with-arg 'byte-optimizer 'byte-compile-inline-expand) (defalias 'org-current-line #[(&optional pos) "\212\203b\210n\203\301\202\302\303\301`\"\\)\207" [pos 1 0 count-lines] 4]) (put 'org-current-line 'byte-optimizer 'byte-compile-inline-expand) #@70 Current time, possibly rounded to `org-time-stamp-rounding-minutes'. (defalias 'org-current-time #[nil "\303V\203$\304 \305\306\307\303\n\310\311\312 A@!\n\245\\!_D AA\"\"*\207\313 \207" [org-time-stamp-rounding-minutes time r 0 decode-time apply encode-time append floor 0.5 float current-time] 9 (#$ . 135582)]) #@208 Add text properties to entire string, from beginning to end. PLIST may be a list of properties, PROPS are individual properties and values that will be added to PLIST. Returns the string that was modified. (defalias 'org-add-props #[(string plist &rest props) "\303\304G \203\305\n \"\202\n$\210\207" [string props plist add-text-properties 0 append] 6 (#$ . 135908)]) (byte-code "\305\306\307\310#\210\301B\311\301!\204\312\301\313 \"\210\314 \315\316#\210\314 \317\320#\210\n\203,\314 \321\322#\210\203<\314 \323\324#\210\314 \325\324#\210\f\203L\314 \326\324#\210\314 \327\324#\210\330\331!\210\332B\333\334!\210\335B\336\337!\207" [current-load-list org-mouse-map org-mouse-1-follows-link org-tab-follows-link org-return-follows-link put org-add-props lisp-indent-function 2 default-boundp set-default make-sparse-keymap define-key [mouse-2] org-open-at-mouse [mouse-3] org-find-file-at-mouse [follow-link] mouse-face [(tab)] org-open-at-point " " [(return)] " " require font-lock org-non-link-chars (lambda (#1=#:defconst-tmp-var) (defconst org-non-link-chars #1#)) "] \n <>" org-link-types (lambda (#2=#:defconst-tmp-var) (defconst org-link-types #2#)) ("https?" "ftp" "mailto" "file" "news" "bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp")] 4) #@66 Matches a link with spaces, optional angular brackets around it. (defconst org-link-re-with-space (byte-code "\302\303\304\305#\306\307 \310\311 \312\311 \313\260\f\207" [org-link-types org-non-link-chars "?"] 12) (#$ . 137198)) #@66 Matches a link with spaces, optional angular brackets around it. (defconst org-link-re-with-space2 (byte-code "\302\303\304\305#\306\307 \310\311\312 \313\260\n\207" [org-link-types org-non-link-chars "?"] 10) (#$ . 137503)) #@57 Matches link with angular brackets, spaces are allowed. (defconst org-angle-link-re (byte-code "\302\303\304\305#\306\307 \310\311 \312\313\260\n\207" [org-link-types org-non-link-chars "<\$" mapconcat identity "\\|" "\$:" "\$[^" " ]" "[^" "]*" "\$>"] 10) (#$ . 137811)) #@37 Matches plain link, without spaces. (defconst org-plain-link-re (byte-code "\301\302\303\304#\305\306R\207" [org-link-types "\$" mapconcat identity "\\|" "\$:" "\$[^] \n <>,;() ]+\$"] 5) (#$ . 138093)) #@36 Matches a link in double brackets. (defconst org-bracket-link-regexp "\\[\\[\$[^]]+\$\\]\$\\[\\([^]]+\$\\]\\)?\\]" (#$ . 138306)) (byte-code "\302B\303\304\305\306\307 \310#\311\312\313\314\312\315\313\260\n!\207" [current-load-list org-link-types org-bracket-link-analytic-regexp (lambda (#1=#:defconst-tmp-var) (defconst org-bracket-link-analytic-regexp #1#)) "\\[\\[" "\$\\(" mapconcat identity "\\|" "\$:\\)?" "\$[^]]+\$" "\\]" "\$\\[" "\\]\$?"] 11) #@39 Regular expression matching any link. (defconst org-any-link-re (concat "\$" org-bracket-link-regexp #1="\$\\|\$" org-angle-link-re #1# org-plain-link-re "\$") (#$ . 138778)) #@59 This holds the lengths of the two different time formats. (defconst org-ts-lengths (byte-code "\301@!G\301A!GB\207" [org-time-stamp-formats format-time-string] 3) (#$ . 138963)) #@50 Regular expression for fast time stamp matching. (defconst org-ts-regexp "<\$[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^ \n>]*?\$>" (#$ . 139149)) #@50 Regular expression for fast time stamp matching. (defconst org-ts-regexp-both "[[<]\$[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^ \n>]*?\$[]>]" (#$ . 139301)) #@56 Regular expression matching time strings for analysis. (defconst org-ts-regexp1 "\$\\([0-9]\\{4\\}\$-\$[0-9]\\{2\\}\$-\$[0-9]\\{2\\}\$\$[^]0-9> \n]*\$\$\\([0-9]\\{2\\}\$:\$[0-9]\\{2\\}\$\\)?\\)" (#$ . 139464)) #@55 Regular expression matching time stamps, with groups. (defconst org-ts-regexp2 (concat "<" org-ts-regexp1 ">") (#$ . 139692)) #@67 Regular expression matching time stamps (also [..]), with groups. (defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[]>]") (#$ . 139824)) #@49 Regular expression matching a time stamp range. (defconst org-tr-regexp (concat org-ts-regexp "--?-?" org-ts-regexp) (#$ . 139974)) #@49 Regular expression matching a time stamp range. (defconst org-tr-regexp-both (concat org-ts-regexp-both "--?-?" org-ts-regexp-both) (#$ . 140112)) #@63 Regular expression matching a time stamp or time stamp range. (defconst org-tsr-regexp (concat org-ts-regexp "\$--?-?" org-ts-regexp "\$?") (#$ . 140265)) #@113 Regular expression matching a time stamp or time stamp range. The time stamps may be either active or inactive. (defconst org-tsr-regexp-both (concat org-ts-regexp-both "\$--?-?" org-ts-regexp-both "\$?") (#$ . 140429)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-emph-face default-boundp set-default nil] 3) #@51 Run through the buffer and add overlays to links. (defalias 'org-do-emphasis-faces #[(limit) "\303 \304#\205$\305\306\224\306\225\307\310\311\312!\n\"A@$\210\313\306\224\306\225\314#\210\315u\210\304\207" [org-emph-re limit org-emphasis-alist re-search-forward t font-lock-prepend-text-property 2 face assoc match-string 3 add-text-properties (font-lock-multiline t) -1] 7 (#$ . 140787)]) #@51 Run through the buffer and add overlays to links. (defalias 'org-activate-plain-links #[(limit) "\303 \304#\205\305\306\224\306\225\307\310\311\304\312\n\257#\210\304\207" [org-plain-link-re limit org-mouse-map re-search-forward t add-text-properties 0 mouse-face highlight rear-nonsticky keymap] 9 (#$ . 141184)]) #@51 Run through the buffer and add overlays to links. (defalias 'org-activate-angle-links #[(limit) "\303 \304#\205\305\306\224\306\225\307\310\311\304\312\n\257#\210\304\207" [org-angle-link-re limit org-mouse-map re-search-forward t add-text-properties 0 mouse-face highlight rear-nonsticky keymap] 9 (#$ . 141509)]) #@481 Add '(intangigble t) to PROPS if Emacs version is earlier than Emacs 22. In emacs 21, invisible text is not avoided by the command loop, so the intangible property is needed to make sure point skips this text. In Emacs 22, this is not necessary. The intangible text property has led to problems with flyspell. These problems are fixed in flyspell.el, but we still avoid setting the property in Emacs 22 and later. We use a macro so that the test can happen at compilation time. (defalias 'org-maybe-intangible '(macro . #[(props) "\302W\203\303\304 E\207 \207" [emacs-major-version props 22 append '(intangible t)] 3 (#$ . 141835)])) #@61 Run through the buffer and add overlays to bracketed links. (defalias 'org-activate-bracket-links #[(limit) "\306 \307#\205v\310\311\312\313\n\"*P\314\315\316\307\317 \320\321\322\f\257\n\316\307\317 \320\321\322\f\257\323\324\224\324\225\325#\210\326\225\203Y\327\324\224\326\224#\210\327\326\224\326\225#\210\327\326\225\324\225#\210\202t\327\324\224\311\224#\210\327\311\224\311\225#\210\327\311\225\324\225#\210+\307\207" [org-bracket-link-regexp limit string num help org-mouse-map re-search-forward t "LINK: " 1 nil match-string-no-properties invisible org-link rear-nonsticky keymap mouse-face highlight help-echo remove-text-properties 0 (invisible nil) 3 add-text-properties ip vp] 10 (#$ . 142480)]) #@51 Run through the buffer and add overlays to dates. (defalias 'org-activate-dates #[(limit) "\304 \305#\205/\306\307\224\307\225\310\311\312\305\313\n\257#\210\203.\314\225\203'\315\314\224\314\225\"\210\315\316\224\316\225\"\210\305\207" [org-tsr-regexp-both limit org-mouse-map org-display-custom-times re-search-forward t add-text-properties 0 mouse-face highlight rear-nonsticky keymap 3 org-display-custom-time 1] 9 (#$ . 143221)]) #@58 Regular expression matching radio targets in plain text. (defvar org-target-link-regexp nil (#$ . 143668)) #@44 Regular expression matching a link target. (defvar org-target-regexp "<<\$[^<>\n ]+\$>>" (#$ . 143781)) #@44 Regular expression matching a link target. (defvar org-radio-target-regexp "<<<\$[^<>\n ]+\$>>>" (#$ . 143893)) #@60 Run through the buffer and add overlays to target matches. (defalias 'org-activate-target-links #[(limit) "\205#\304\305\n\304#\205\"\306\307\224\307\225\310\311\312\304\313\314\315\316\304\257\n#\210\304)\207" [org-target-link-regexp case-fold-search limit org-mouse-map t re-search-forward add-text-properties 0 mouse-face highlight rear-nonsticky keymap help-echo "Radio target link" org-linked-text] 13 (#$ . 144013)]) #@72 Find all radio targets in this file and update the regular expression. (defalias 'org-update-radio-target-regexp #[nil "\302>\205\303\304\302!!\305 \207" [org-activate-links org-target-link-regexp radio org-make-target-link-regexp org-all-targets org-restart-font-lock] 3 (#$ . 144448) nil]) (defalias 'org-hide-wide-columns #[(limit) "\303\211\304`\n\206d\305\306$\211\205\"\307 \305\"\310 \311#\210b\210\306*\207" [e s limit nil text-property-any org-cwidth t next-single-property-change add-text-properties (invisible org-cwidth)] 6]) #@51 Restart font-lock-mode, to force refontification. (defalias 'org-restart-font-lock #[nil "\301\300!\205\205\300\302!\210\300\303!\207" [font-lock-mode boundp -1 1] 2 (#$ . 145005)]) #@99 Return a list of all targets in this file. With optional argument RADIO, only find radio targets. (defalias 'org-all-targets #[(&optional radio) "\203 \202 \n\306\212eb\210\307\f\306\310#\203+\311\303\312\306\f\313\f \"*\227\"\210\202+\207" [radio org-radio-target-regexp org-target-regexp rtn re string nil re-search-forward t add-to-list 1 match-string-no-properties num] 5 (#$ . 145198)]) #@144 Make regular expression matching all strings in TARGETS. The regular expression finds the targets also if there is a line break between words. (defalias 'org-make-target-link-regexp #[(targets) "\205\f\301\302\303\304#\305Q\207" [targets "\\<\$" mapconcat #[(x) "\301\302\"\203\303\304\305\211$\202\207" [x string-match " +" replace-match "\\s-+" t] 5] "\\|" "\$\\>"] 5 (#$ . 145610)]) (defalias 'org-activate-tags #[(limit) "\302\303\304#\205\305\306\224\306\225\307\310\311\304\312 \257#\210\304\207" [limit org-mouse-map re-search-forward "[ ]\$:[A-Za-z_@0-9:]+:\$[ \n]" t add-text-properties 1 mouse-face highlight rear-nonsticky keymap] 9]) (defalias 'org-font-lock-level #[nil "\212\300\301!\210\302\225\302\224Z)\207" [org-back-to-heading t 0] 2]) (defalias 'org-outline-level #[nil "\212\301!\210\302\224\203\303\304\302!!\305\\\202\306\225\306\224Z)\207" [outline-regexp looking-at 1 org-get-string-indentation match-string 1000 0] 3]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-font-lock-keywords default-boundp set-default nil] 3) (defalias 'org-set-font-lock-defaults #[nil "\n\306\307\310>\205 \311\312>\205\313\314>\205\315\316>\205\"\317\320>\205)\321\322>\2050\323\324\325\fP\326D\327\330D \331D\3329P\333D\332:P\334D\332;P\335D\332\343?\344\260\345D\346@\203|\347A\350Q\351\352E\202\203\347A\344Q\353D\354\355\356B\205\214\357\360\257C\361\362C\"C\363CDE\364E!DL\210*\365\366DE\364E!DL\210*\367\370!\210+\362\207" [org-fontify-emphasized-text em org-activate-links lk org-not-done-regexp org-repeat-re ("^\$\\**\$\$\\*\$\$.*\$" (1 (org-get-level-face 1)) (2 (org-get-level-face 2)) (3 (org-get-level-face 3))) ("^[ ]*\$\\(|\\|\\+-[-+]\$.*\\S-\\)" (1 'org-table)) angle (org-activate-angle-links (0 'org-link t)) plain (org-activate-plain-links (0 'org-link t)) bracket (org-activate-bracket-links (0 'org-link t)) radio (org-activate-target-links (0 'org-link t)) date (org-activate-dates (0 'org-date t)) tag (org-activate-tags (1 'org-tag prepend)) (org-hide-wide-columns (0 nil append)) "^\\*+[ ]*" (1 'org-todo t) "\\[#[A-Z]\\]" (0 'org-special-keyword t) (0 'org-special-keyword t) "\\<" (0 'org-special-keyword t) (0 'org-special-keyword t) (0 'org-special-keyword t) (0 'org-special-keyword t) (org-do-emphasis-faces) ("^[ ]*\$[-+*]\\|[0-9]+[.)]\$ +\$\\[[ X]\\]\$" 2 'bold prepend) ("\\[\$[0-9]*%\$\\]\\|\\[\$[0-9]*\$/\$[0-9]*\$\\]" (0 (org-get-checkbox-statistics-face) t)) "^\\*+[ ]*\\<\$" "\\|" "\$\\>" (1 'org-special-keyword t) ("^#.*" (0 'font-lock-comment-face t)) "^[*]+ +\\<\$" "\$\$.*\$\\>" (1 'org-done t) (2 'org-headline-done t) (1 'org-done t) ("^[ ]*\$:.*\$" (1 'org-table t)) ("| *\$:?=[^|\n]*\$" (1 'org-formula t)) ("^[ ]*| *\$[#!$*_^]\$ *|" (1 'org-formula t)) ("| *\$<[0-9]+>\$ *" (1 'org-formula t)) ("^\\*+ \$.*:ARCHIVE:.*\$" (1 'org-archived prepend)) delq nil org-font-lock-keywords make-variable-buffer-local font-lock-defaults (org-font-lock-keywords t nil nil backward-paragraph) kill-local-variable font-lock-keywords org-deadline-string org-scheduled-string org-closed-string org-clock-string org-provide-checkbox-statistics org-comment-string org-quote-string org-fontify-done-headline org-done-string org-format-transports-properties-p org-font-lock-extra-keywords value var] 27]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list org-m default-boundp set-default nil org-l org-f] 3) #@68 Get the right face for match N in font-lock matching of healdines. (defalias 'org-get-level-face #[(n) "\306\225\307\224Z \203\306\245TS\n\2468 \307=\203% \203#\310\207\f\207 \306=\203-\f\207\n?\2054\f\207" [org-l org-odd-levels-only org-n-levels org-level-faces org-f n 2 1 org-hide org-hide-leading-stars org-level-color-stars-only] 2 (#$ . 149257)]) #@58 Remove fontification and activation overlays from links. (defalias 'org-unfontify-region #[(beg end &optional maybe_loudly) "\306 \"\210\307\211\307\211\310\211\f\310 \311 \312#.\207" [beg end buffer-undo-list inhibit-read-only inhibit-point-motion-hooks inhibit-modification-hooks font-lock-default-unfontify-region t nil remove-text-properties (mouse-face t keymap t org-linked-text t rear-nonsticky t invisible t intangible t) deactivate-mark buffer-file-name buffer-file-truename] 5 (#$ . 149630)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\210\306B\302\306!\204\"\303\306\304\"\210\305\306!\207" [current-load-list org-cycle-global-status default-boundp set-default nil make-variable-buffer-local org-cycle-subtree-status] 3) #@1207 Visibility cycling for Org-mode. - When this function is called with a prefix argument, rotate the entire buffer through 3 states (global cycling) 1. OVERVIEW: Show only top-level headlines. 2. CONTENTS: Show all headlines of all levels, but no body text. 3. SHOW ALL: Show everything. - When point is at the beginning of a headline, rotate the subtree started by this line through 3 different states (local cycling) 1. FOLDED: Only the main headline is shown. 2. CHILDREN: The main headline and the direct children are shown. From this state, you can move to one of the children and zoom in further. 3. SUBTREE: Show the entire subtree, including body text. - When there is a numeric prefix, go up to a heading with level ARG, do a `show-subtree' and return to the previous cursor position. If ARG is negative, go up that many levels. - When point is not at the beginning of a headline, execute `indent-relative', like TAB normally does. See the option `org-cycle-emulate-tab' for details. - Special case: if point is the the beginning of the buffer and there is no headline in line 1, this function will act as if called with prefix arg. (defalias 'org-cycle #[(&optional arg) "\306=\203 \203\307\202\n\205o\205\310\n!?\211\203*\311\312\313 !\"\202+ `@\f\204:A\314\232\203=\315A\316\317!\203\\\320 \206A\203S\321\315!\202\322 \210\323\324!\202A\315=\203\270BC=\203\207D\325=\203\207\326\327!\210\330 \210\326\331!\210\332D\333\305\332\"\202BC=\203\247D\332=\203\247\334 \210\326\335!\210\336D\333\305\336\"\202\337 \210\326\340!\210\325D\333\305\325\"\202A\250\203\336\212\341 \210\342A\343W\203\320A[\202\326E AZ!\210\344 )\202\212\345\346!\210\310\n!)\203\221\341 \210\343\347\211\211FGHI\212\341 \210\212\345\350!\210m\204\351`S\352\"\203\345\350!\210\202`G)\353 \210`H\354\315!\210\355\347w\210\345\346!\210`SF)FHU\203C\326\356!\210\347\211J\202\215GFY\203_\357 \210\360 \210\326\361!\210\362J\333\305\362\"\202\215BC=\203J\362=\203\344 \210\326\363!\210\364J\333\305\364\"\202\215\365 \210\326\366!\210\367J\333\305\367\",\202K\203\233\341 \202\370 \206L\371>\203\321\212\345\346!\210\310\372!)\203\321L\373=\203\302\343\225\374 U\204\330L\375=\203\321\343\225@Y\204\330L\315=\203\310\376!\203\377\201M\201N `{\"\203\345\346!\210\310\201O!\203\201P\201Q!\210\201R \202\212\341 \210\201S ),\207" [major-mode org-cycle-include-plain-lists outline-regexp org-cycle-global-at-bob bob-special org-cycle-hook org-mode "\$?:\\*+\\|\\([ ]*\$\$[-+*]\\|[0-9]+[.)]\$ \\)" looking-at delq org-optimize-window-after-visibility-change copy-sequence (4) t org-at-table-p any org-table-recognize-table\.el org-table-edit-field org-table-justify-field-maybe call-interactively org-table-next-field overview message "CONTENTS..." org-content "CONTENTS...done" contents run-hook-with-args show-all "SHOW ALL" all org-overview "OVERVIEW" org-back-to-heading outline-up-heading 0 org-show-subtree beginning-of-line 1 nil 2 get-char-property invisible outline-end-of-heading org-end-of-subtree " \n" "EMPTY ENTRY" org-show-entry show-children "CHILDREN" children "SUBTREE" subtree hide-subtree "FOLDED" folded org-try-cdlatex-tab (white whitestart) "[ ]*" white point-at-eol whitestart "[ \n ]" string-match pos arg last-command this-command org-cycle-global-status outline-level eos eol eoh goal-column org-cycle-subtree-status buffer-read-only org-cycle-emulate-tab "^[ ]*$" point-at-bol "[ ]+" replace-match "" indent-relative org-cycle] 5 (#$ . 150403) "P"]) #@60 Cycle the global visibility. For details see `org-cycle'. (defalias 'org-global-cycle #[(&optional arg) "\304=\205 \n\250\203\305 \210\306\n!\210\307\211\202\310\311!)\207" [major-mode org-cycle-include-plain-lists arg org-cycle-global-status org-mode show-all hide-sublevels contents org-cycle (4)] 2 (#$ . 154065) "P"]) #@289 Switch to overview mode, shoing only top-level headlines. Really, this shows all headlines with level equal or greater than the level of the first headline in the buffer. This is important, because if the first headline is not level one, then (hide-sublevels 1) gives confusing results. (defalias 'org-overview #[nil "\302\212eb\210\303\304P\305\306#\203\307\224b\210 \202\310)!\207" [outline-regexp outline-level hide-sublevels re-search-forward "^" nil t 0 1] 5 (#$ . 154404) nil]) #@116 Show all headlines in the buffer, like a table of contents. With numerical argument N, show content up to level N. (defalias 'org-content #[(&optional arg) "\212\250\203 \301 \210db\210\302\303\215)\207" [arg org-overview exit (byte-code "\302\303\304\217\210\305!\205' \250\203\306 S!\210\202\307 \210o\203\310\311\302\"\210\202\207" [outline-regexp arg nil (outline-previous-visible-heading 1) ((error (byte-code "eb\207" [] 1))) looking-at show-children show-branches throw exit] 3)] 2 (#$ . 154902) "P"]) #@122 Adjust the window after a change in outline visibility. This function is the default value of the hook `org-cycle-hook'. (defalias 'org-optimize-window-after-visibility-change #[(state) "\301p!\205E\302=\203\303\304!\207\305=\203\306\207\307=\203 \306\207\310=\203(\306\207\311=\2037\312 \206E\313\304!\207\314=\205E\312 \206E\313\304!\207" [state get-buffer-window overview org-first-headline-recenter 1 content nil all folded children org-subtree-end-visible-p recenter subtree] 2 (#$ . 155430)]) #@44 Is the end of the current subtree visible? (defalias 'org-subtree-end-visible-p #[nil "\300\212\301\302!\210`)!\207" [pos-visible-in-window-p org-end-of-subtree t] 3 (#$ . 155952)]) #@139 Move cursor to the first headline and recenter the headline. Optional argument N means, put the headline into the Nth line of the window. (defalias 'org-first-headline-recenter #[(&optional N) "eb\210\302\303\304Q\305\306#\205\307 \210\310\311 !!\207" [outline-regexp N re-search-forward "^\$" "\$" nil t beginning-of-line recenter prefix-numeric-value] 4 (#$ . 156141)]) (byte-code "\306B\307\306!\204\310\306\311\"\210\312B\307\312!\204\310\312\311\"\210\303B\307\303!\204.\310\303\313 \"\210\314\311\n\211A@\211\203F\315 \211\f$\210\2022*\316\317\320#\210\316\321\322#\210\316\323\324#\210\316\325\326#\210\316\327\326#\210\316\330\331#\210\316\332\331#\210\316\333\334#\210\316\335\336#\210\316\337\334#\210\316\340\336#\210\316\341\342#\210\316\343\344#\210\316\345\346#\210\316\347\334#\210\316\350\336#\210\316\351\342#\210\316\352\344#\210\316\353\346#\210\354 \203\316\316\355 \211A@!\356#\210\202\273)\357B\360\361!\207" [current-load-list cmd cmds org-goto-map global-map l org-goto-window-configuration default-boundp set-default nil org-goto-marker make-sparse-keymap (isearch-forward isearch-backward) substitute-key-definition define-key " " org-goto-ret [(left)] org-goto-left [(right)] org-goto-right [(113)] org-goto-quit [(control 103)] " " org-cycle [(tab)] [(down)] outline-next-visible-heading [(up)] outline-previous-visible-heading "n" "p" "f" outline-forward-same-level "b" outline-backward-same-level "u" outline-up-heading "" "" "" "" "" (1 2 3 4 5 6 7 8 9 0) int-to-string digit-argument org-goto-help (lambda (#1=#:defconst-tmp-var) (defconst org-goto-help #1#)) "Select a location to jump to, press RET\n[Up]/[Down]=next/prev headline TAB=cycle visibility RET=select [Q]uit"] 5) #@693 Go to a different location of the document, keeping current visibility. When you want to go to a different location in a document, the fastest way is often to fold the entire buffer and then dive into the tree. This method has the disadvantage, that the previous location will be folded, which may not be what you want. This command works around this by showing a copy of the current buffer in overview mode. You can dive into the tree in that copy, to find the location you want to reach. When pressing RET, the command returns to the original buffer in which the visibility is still unchanged. It then jumps to the new location, making it and the headline hierarchy above it visible. (defalias 'org-goto #[nil "`\303p \"\211\203\"\304!\210\nb\210\305 \204\306 \205%\307\310!\202%\311\312!*\207" [org-goto-start-pos org-goto-help selected-point org-get-location org-mark-ring-push org-invisible-p org-invisible-p2 org-show-context org-goto error "Quit"] 4 (#$ . 157922) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-selected-point default-boundp set-default nil] 3) #@139 Let the user select a location in the Org-mode buffer BUF. This function uses a recursive edit. It returns the selected position or nil. (defalias 'org-get-location #[(buf help) "\301\212\302\213\210)\303\304!\210)\207" [org-selected-point nil ((byte-code "\306 \210\307\310\311!!\210\312\220\313!\221\210\314\315\312!!\210\316\317 \210\320\n!\210\321\211\316\322 \210+\321\323\324!\203Q\325!\203Q\321\211\211 !b\210\326 \203M\327 \210+\202Teb\210\330 \210\331\332!\210\333 \"#$\334\216\335\"!\210\336 \210+\316\207" [help buffer-read-only buf org-startup-align-all-tables org-startup-folded org-startup-truncated delete-other-windows switch-to-buffer get-buffer-create "*org-goto*" "*Help*" princ shrink-window-if-larger-than-buffer get-buffer-window nil erase-buffer insert-buffer-substring t org-mode boundp org-goto-start-pos integer-or-marker-p org-invisible-p org-show-context org-beginning-of-line message "Select location and press RET" current-global-map ((use-global-map gm)) use-global-map recursive-edit org-show-following-heading org-show-siblings org-show-hierarchy-above org-goto-map overriding-local-map gm] 3)) kill-buffer "*org-goto*"] 2 (#$ . 159055)]) #@49 Finish `org-goto' by going to the new location. (defalias 'org-goto-ret #[(&optional arg) "` \303\304\305\"\207" [org-selected-point arg current-prefix-arg throw exit nil] 3 (#$ . 160258) "P"]) #@49 Finish `org-goto' by going to the new location. (defalias 'org-goto-left #[nil "\302 \203\303\304!\210`\305\225\305\224Z\306\307\310\"\207\311\312!\207" [org-selected-point current-prefix-arg org-on-heading-p beginning-of-line 1 0 throw exit nil error "Not on a heading"] 3 (#$ . 160460) nil]) #@49 Finish `org-goto' by going to the new location. (defalias 'org-goto-right #[nil "\302 \203\303 \210m\204\304u\210`\305\225\305\224Z\306\307\310\"\207\311\312!\207" [org-selected-point current-prefix-arg org-on-heading-p outline-end-of-subtree 1 0 throw exit nil error "Not on a heading"] 3 (#$ . 160764) nil]) #@42 Finish `org-goto' without cursor motion. (defalias 'org-goto-quit #[nil "\301\302\303\301\"\207" [org-selected-point nil throw exit] 3 (#$ . 161086) nil]) #@57 This is the frame being used for indirect tree display. (defvar org-indirect-dedicated-frame nil (#$ . 161248)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-last-indirect-buffer default-boundp set-default nil] 3) #@566 Create indirect buffer and narrow it to current subtree. With numerical prefix ARG, go up to this level and then take that tree. If ARG is negative, go up that many levels. Normally this command removes the indirect buffer previously made with this command. However, when called with a C-u prefix, the last buffer is kept so that you can work with several indirect buffers at the same time. If `org-indirect-buffer-display' is `dedicated-frame', the C-u prefix also requests that a new frame be made for the new buffer, so that the dedicated frame is not changed. (defalias 'org-tree-to-indirect-buffer #[(&optional arg) "p\306 `\307\211\211\211\211%&\212\310\311!\210'\247\203@\312 '\313W\203.\n'\\'\312 \211'V\203@\314\315\311\"\210\202.`\316 \317\311!\210`)'\204]\320(!\203]\321(!\210\322&!\211()\323=\204x'\203\213)\324=\203\213\325\326 !\210\327 \210\330!\210\331 !\210\202\335)\324=\203\275\332\325*\203\245\333*!\203\245*\206\252\326 \211*!!\210\327 \210\330!\210\331\334 P!\210\202\335)\335=\203\313\330!\210\202\335)\336=\203\331\337!\210\202\335\340\341!\210\f}\210\342 \210 b\210\343%!\205\362\344%!.\207" [ibuf heading level end beg pos selected-window nil org-back-to-heading t org-outline-level 0 outline-up-heading 1 org-get-heading org-end-of-subtree buffer-live-p kill-buffer org-get-indirect-buffer new-frame dedicated-frame select-frame make-frame delete-other-windows switch-to-buffer org-set-frame-title raise-frame frame-live-p "Indirect: " current-window other-window pop-to-buffer error "Invalid value." show-all window-live-p select-window cwin cbuf arg org-last-indirect-buffer org-indirect-buffer-display org-indirect-dedicated-frame] 9 (#$ . 161508) "P"]) (defalias 'org-get-indirect-buffer #[(&optional buffer) "\206p\304\305!\306\307\310\n\311\312!Q\211!!\203#T\202\306\313\314\217+\207" [buffer bname base n 1 buffer-name nil buffer-live-p get-buffer "-" number-to-string (byte-code "\302 \303#\207" [buffer bname make-indirect-buffer clone] 4) ((error (make-indirect-buffer buffer bname)))] 6]) #@57 Set the title of the current frame to the string TITLE. (defalias 'org-set-frame-title #[(title) "\301\302 \303BC\"\207" [title modify-frame-parameters selected-frame name] 4 (#$ . 163620)]) #@384 Insert a new heading or item with same depth at point. If point is in a plain list and FORCE-HEADING is nil, create a new list item. If point is at the beginning of a headline, insert a sibling before the current headline. If point is in the middle of a headline, split the headline at that position and make the rest of the headline part of the sibling below the current headline. (defalias 'org-insert-heading #[(&optional force-heading) "\305 \306U\203\n\307c\207\204\310 ?\205z\212\311\312\313\217)\314\n\236A\311\315 \203Dn\203D\212\316u\210\317 )\204D\320\203>\321\202?\322!\210\202^n\203R\212\316u\210\317 )\203^\323\203[\321\202\\\322!\210 c\210\324 \210`\322\210`\fU\204v\324 \210\325\322!\210\326\327!+\207" [force-heading head org-blank-before-new-entry blank pos buffer-size 0 "\n* " org-insert-item nil (byte-code "\300 \210\301\302!\207" [org-back-to-heading match-string 0] 2) ((error "*")) heading org-on-heading-p -1 org-invisible-p open-line 2 1 newline just-one-space backward-delete-char run-hooks org-insert-heading-hook] 3 (#$ . 163819) "P"]) #@217 Insert a new heading with the same level and TODO state as current heading. If the heading has no TODO state, or if the state is DONE, use the first state (TODO by default). Also with prefix arg, force first state. (defalias 'org-insert-todo-heading #[(arg) "\304\305!?\2053\306 \210\212\307 \210\310 \210\311!\210) \204'\312\224\203'\313\312!\n\232\203-@\314\261\207\313\312!\314\261\207" [org-todo-line-regexp arg org-done-string org-todo-keywords org-insert-item checkbox org-insert-heading org-back-to-heading outline-previous-heading looking-at 2 match-string " "] 2 (#$ . 164915) "P"]) #@53 Promote the entire subtree. See also `org-promote'. (defalias 'org-promote-subtree #[nil "\212\300\301!\210)\302 \207" [org-map-tree org-promote org-fix-position-after-promote] 2 (#$ . 165522) nil]) #@71 Demote the entire subtree. See `org-demote'. See also `org-promote'. (defalias 'org-demote-subtree #[nil "\212\300\301!\210)\302 \207" [org-map-tree org-demote org-fix-position-after-promote] 2 (#$ . 165727) nil]) #@135 Promote the current heading higher up the tree. If the region is active in `transient-mark-mode', promote all headings in the region. (defalias 'org-do-promote #[nil "\212\300 \203\301\302\303 \304 #\210\202\302 \210)\305 \207" [org-region-active-p org-map-region org-promote region-beginning region-end org-fix-position-after-promote] 4 (#$ . 165949) nil]) #@134 Demote the current heading lower down the tree. If the region is active in `transient-mark-mode', demote all headings in the region. (defalias 'org-do-demote #[nil "\212\300 \203\301\302\303 \304 #\210\202\302 \210)\305 \207" [org-region-active-p org-map-region org-demote region-beginning region-end org-fix-position-after-promote] 4 (#$ . 166318) nil]) #@61 Make sure that after pro/demotion cursor position is right. (defalias 'org-fix-position-after-promote #[nil "`\212\302\303!\210\304 !\210\303\225\232\206\305\225\232)\2055m\203#\306c\2025l\203,\306c\2025\307f\310\232\2055\303u)\207" [pos org-todo-line-regexp beginning-of-line 1 looking-at 2 " " nil 32] 2 (#$ . 166683)]) #@269 Rectify a level change under the influence of `org-odd-levels-only' LEVEL is a current level, CHANGE is by how much the level should be modified. Even if CHANGE is nil, LEVEL may be returned modified because even level numbers will become the next higher odd number. (defalias 'org-get-legal-level #[(level &optional change) "\203= \203 \303U\203\n\304\245\304_T\207 \303V\203(\n \211\\\303\\\\\304\245\304_T\207 \303W\205B\305\n \211\\\303\\\\\304\245\304_T]\207\305\n \\]\207" [org-odd-levels-only change level 0 2 1] 4 (#$ . 167023)]) #@135 Promote the current heading higher up the tree. If the region is active in `transient-mark-mode', promote all headings in the region. (defalias 'org-promote #[nil "\306\307!\210\310 \311\216 *\312\313\n\314\"\315\"\316\nGZ!\n\317U\203&\320\321!\210\322\323\307#\210 \2035\324\323\307\"\210\205>\325\f[!+\207" [save-match-data-internal outline-level level up-head diff org-auto-align-tags org-back-to-heading t match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) make-string org-get-legal-level -1 42 abs 1 error "Cannot promote to level 0. UNDO to recover if necessary" replace-match nil org-set-tags org-fixup-indentation org-adapt-indentation] 4 (#$ . 167577)]) #@134 Demote the current heading lower down the tree. If the region is active in `transient-mark-mode', demote all headings in the region. (defalias 'org-demote #[nil "\306\307!\210\310 \311\216 *\312\313\n\314\"\315\"\316\nGZ!\317\320\307#\210 \203+\321\320\307\"\210\2053\322\f!+\207" [save-match-data-internal outline-level level down-head diff org-auto-align-tags org-back-to-heading t match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) make-string org-get-legal-level 1 42 abs replace-match nil org-set-tags org-fixup-indentation org-adapt-indentation] 4 (#$ . 168305)]) #@56 Call FUN for every heading underneath the current one. (defalias 'org-map-tree #[(fun) "\303 \210 \212\n \210\304 \210 V\205m?\205\n \210\202\n*\207" [outline-level level fun org-back-to-heading outline-next-heading] 2 (#$ . 168938)]) #@49 Call FUN for every heading between BEG and END. (defalias 'org-map-region #[(fun beg end) "\305\212\306 !\nb\210\307\310P\311\305#\203` W\203\f \210\312 \210` W\2051m?\2051\f \210\202*\207" [org-ignore-region end beg outline-regexp fun t copy-marker re-search-forward "^" nil outline-next-heading] 4 (#$ . 169188)]) #@199 Change the indentation in the current entry by DIFF However, if any line in the current entry has no indentation, or if it would end up with no indentation after the change, nothing at all is done. (defalias 'org-fixup-indentation #[(diff) "\212\212\304 \210\305 )\306V\203\307\202\310\311[!\312Q\313\212\314\n\315#)\204G\314\316\315#\203G\306\225b\210i\306W\203?\317\320!\210 \\j\210\202'\313\211\223,\207" [diff col prohibit end outline-next-heading point-marker 0 "^\\S-" "^ \\{0," int-to-string "\\}\\S-" nil re-search-forward t "^[ ]+" replace-match ""] 4 (#$ . 169522)]) #@157 Convert an org-mode file with all levels allowed to one with odd levels. This will leave level 1 alone, convert level 2 to level 3, level 3 to level 5 etc. (defalias 'org-convert-to-odd-levels #[nil "\302\303!\2052\304\211\212eb\210\305\306\304\307#\2051\310\311!GSS\211\311Y\203+\312 \210\202\313\210\202+\207" [n org-odd-levels-only yes-or-no-p "Are you sure you want to globally change levels to odd? " nil re-search-forward "^\\*\\*+" t match-string 0 org-demote 1] 4 (#$ . 170126) nil]) #@278 Convert an org-mode file with only odd levels to one with odd and even levels. This promotes level 3 to level 2, level 5 to level 3 etc. If the file contains a section with an even level, conversion would destroy the structure of the file. An error is signaled in this case. (defalias 'org-convert-to-oddeven-levels #[nil "eb\210\302\303\304\305#\203\306\305!\210\307\310!\210\311\312!\205F\304\211\212eb\210\302\313\304\305#\205E\314\315!G\316\245S\211\315Y\203?\317 \210\2020\320\210\202!+\207" [n org-odd-levels-only re-search-forward "^\$\\*\\*\$+[^*]" nil t org-show-context error "Not all levels are odd in this file. Conversion not possible." yes-or-no-p "Are you sure you want to globally change levels to odd-even? " "^\\*\\*+" match-string 0 2 org-promote 1] 4 (#$ . 170638) nil]) #@25 Make N odd if required. (defalias 'org-tr-level #[(n) "\203 \302\245T\207 \207" [org-odd-levels-only n 2] 2 (#$ . 171453)]) #@67 Move the current subtree up past ARG headlines of the same level. (defalias 'org-move-subtree-up #[(&optional arg) "\301\302![!\207" [arg org-move-subtree-down prefix-numeric-value] 3 (#$ . 171586) "p"]) #@69 Move the current subtree down past ARG headlines of the same level. (defalias 'org-move-subtree-down #[(&optional arg) "\306!\211\307V\203\310\202\311\312 \313!\314\211\211\211\315 \210`\316 \317\216\212\320 \210\321 )\322 \210*\323 \210`\fb\210 \307V\203a \203S\324!\204Z\fb\210\325\326!\210 S\211\202A\307V\203}\322 \210\323 \210\324\327P!\204}n\204}\330 \210`\314\223\210\f{\f|\210\nc\210b\210 \203\231\331 \210\314\211\223.\207" [arg folded txt end beg cnt prefix-numeric-value 0 outline-get-next-sibling outline-get-last-sibling make-marker abs nil org-back-to-heading match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) outline-end-of-heading org-invisible-p outline-end-of-subtree outline-next-heading looking-at error "Cannot move past superior level or buffer limit" "^" newline hide-subtree ins-point movfunc save-match-data-internal outline-regexp] 8 (#$ . 171797) "p"]) #@189 Clipboard for cut and paste of subtrees. This is actually only a copy of the kill, because we use the normal kill ring. We need it to check if the kill was created by `org-copy-subtree'. (defvar org-subtree-clip "" (#$ . 172778)) #@87 Was the last copied subtree folded? This is used to fold the tree back after pasting. (defvar org-subtree-clip-folded nil (#$ . 173015)) #@111 Cut the current subtree into the clipboard. This is a short-hand for marking the subtree and then cutting it. (defalias 'org-cut-subtree #[nil "\300\301!\207" [org-copy-subtree cut] 2 (#$ . 173159) nil]) #@156 Cut the current subtree into the clipboard. This is a short-hand for marking the subtree and then copying it. If CUT is non-nil, actually cut the subtree. (defalias 'org-copy-subtree #[(&optional cut) "\306\211\211\307 \210`\310 \311\216\212\312 \210\313 )\314 \210*\306f\315\232\203&\316u\210`\nb\210 \nV\205X \203?\317\n \"\210\202D\320\n \"\210\321\322!\323\324 \203S\325\202T\326G#+\207" [folded end beg save-match-data-internal org-subtree-clip-folded cut nil org-back-to-heading match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) outline-end-of-heading org-invisible-p outline-end-of-subtree 10 1 kill-region copy-region-as-kill current-kill 0 message "%s: Subtree with %d characters" "Cut" "Copied" org-subtree-clip] 4 (#$ . 173370) nil]) #@879 Paste the clipboard as a subtree, with modification of headline level. The entire subtree is promoted or demoted in order to match a new headline level. By default, the new level is derived from the visible headings before and after the insertion point, and taken to be the inferior headline level of the two. So if the previous visible heading is level 3 and the next is level 4 (or vice versa), level 4 will be used for insertion. This makes sure that the subtree remains an independent subtree and does not swallow low level entries. You can also force a different level, either by using a numeric prefix argument, or by inserting the heading marker by hand. For example, if the cursor is after "*****", then the tree will be shifted to level 5. If you want to insert the tree as is, just use \[yank]. If optional TREE is given, use this text instead of the kill ring. (defalias 'org-paste-subtree #[(&optional level tree) "\306!\204\f\307\310\311!!\210\206 \205\312\313!\314\315Q\316\315Q\316\317Q(\320\f\n\"\2037\313\225\313\224Z\2028\321)*\203F\322*!\202Z\320(\323 `{\"\203Y\313\225\313\224Z\202Z\324+\212\324\325\326\217),\212\324\327\330\217)-+\206v,-].)\321U\204\216.\321U\204\216).U\203\222\313\202\227.)Z\211/0/\313V\203\247\321\202\250\3311/\313V\203\265\332\202\266\3332\324\21134\3245+\203\313\323 `|\210n\204\322\334c\210\335\336!\204\336\334c\210\321u\210`4\320\337\n\"\203\357\340\334\341\211\n$\nc\210`5\335\342!\203\377\340\334!\2104b\210/\313U\203\343\344.\"\210\202?\21445}\210/\313U\2043\3452ed#\2101/\\\211/\202eb\210\343\346.0#\210) \205S6\312\313!=\205S7\205S\347 .\207" [tree kill-ring txt outline-regexp ^re re org-kill-is-subtree-p error substitute-command-keys "The kill is not a (set of) tree(s) - please use \\[yank] to yank anyway" current-kill 0 "^\$" "\$" "\$" "\$[ ]*" string-match -1 prefix-numeric-value point-at-bol nil (byte-code "\301\302!\210\303!\203\304\225\304\224Z\207\302\207" [re outline-previous-visible-heading 1 looking-at 0] 2) ((error 1)) (byte-code "\301\302!\210\303!\203\304\225\304\224Z\207\302\207" [re outline-next-visible-heading 1 looking-at 0] 2) ((error 1)) 1 org-demote org-promote "\n" looking-at "[ ]*$" "[ \n]+\\'" replace-match t "[ \n]+" message "Pasted at level %d, without shift" org-map-region "Pasted at level %d, with shift by %d levels" hide-subtree ^re_ old-level level force-level previous-level next-level new-level shift shift1 delta func org-odd-levels-only beg end org-subtree-clip org-subtree-clip-folded] 6 (#$ . 174188) "P"]) #@379 Check if the current kill is an outline subtree, or a set of trees. Returns nil if kill does not start with a headline, or if the first headline level is not the largest headline level in the tree. So this will actually accept several entries of equal levels as well, which is OK for `org-paste-subtree'. If optional TXT is given, check this string instead of the current kill. (defalias 'org-kill-is-subtree-p #[(&optional txt) "\206 \203\306\307!\206\310\211\205\"\311\312P\n\"\205\"\307\225\307\224Z\313P\314\f\2051\315\316\215,\207" [txt kill-ring kill outline-regexp start-level re current-kill 0 "" string-match "\\`" "^" 1 exit (byte-code "\304 \nT#\211\203\305\225\305\224ZW\203\306\307\310\"\210\202\311\207" [re kill start start-level string-match 0 throw exit nil t] 4) start] 4 (#$ . 176815)]) #@39 Narrow buffer to the current subtree. (defalias 'org-narrow-to-subtree #[nil "\212\300 \210`\301\302!\210`})\207" [org-back-to-heading org-end-of-subtree t] 3 (#$ . 177653) nil]) #@74 Call `org-sort-entries' or `org-table-sort-lines', depending on context. (defalias 'org-sort #[(with-case) "\304 \203\305 \306\n!+\207\307 \306\n!+\207" [with-case arg command current-prefix-arg org-at-table-p org-table-sort-lines call-interactively org-sort-entries] 2 (#$ . 177838) "P"]) #@760 Sort entries on a certain level of an outline tree. If there is an active region, the entries in the region are sorted. Else, if the cursor is before the first entry, sort the top-level items. Else, the children of the entry at point are sorted. Sorting can be alphabetically, numerically, and by date/time as given by the first time stamp in the entry. The command prompts for the sorting type unless it has been given to the function through the SORTING-TYPE argument, which needs to a character, any of (?n ?N ?a ?A ?t ?T). Comparing entries ignores case by default. However, with an optional argument WITH-CASE, the sorting considers case as well. With two prefix arguments `C-u C-u', sorting is case-sensitive and duplicate entries will be removed. (defalias 'org-sort-entries #[(&optional with-case sorting-type) "\306\232\307\211\211\211\211\211\211\211\211\310\307\211\2113456789:;\311 \203D\312 8\313\314 b\210\315 \204>\316 \210`:\202\203\315 \204P\307\317\320\217\203i\321 \210`:\322 8\323:b\210\324 \210\316 \210\202\203eb\210\315 \204t\316 \210`:d8\325:b\210\326 \210`9`8Y\203\221\327\330!\210\331\332!\210\333\334!6\335\3366!\337Q5\335\3366\310\340O!\341Q498{\211\340\307O\342\232\204\302\n\342P6\343\232\204\325\3444\n\"\203\325\327\345!\210\346\347!\210\350\351\352\n5\"\"7\212:b\210\3537 <$7)9b\210\35498\"\2107G7\211A7@\2113\2032;\203&\3553A!\211\232\203&\fT\2026\3563A\261\210\202:b\210\346\357 ;\203E\360\361\f\"\202F\362#.\207" [with-case what txt last nremoved nentries (16) nil 0 org-region-active-p region-end "region" region-beginning org-on-heading-p outline-next-heading (byte-code "\300 \210\301\207" [org-back-to-heading t] 1) ((error)) org-back-to-heading org-end-of-subtree "children" show-subtree "top-level" show-all error "Nothing to sort" looking-at "\$\\*+\$" match-string 1 "^" regexp-quote " +" -1 "[^*]" "\n" "*" string-match "Region to sort contains a level above the first entry" message "Sorting entries..." mapcar #[(x) "\301\302\"\210\303\304\"B\207" [x string-match "^.*\$\n.*\$?" match-string 0] 3] org-split-string org-do-sort kill-region org-trim " " "Sorting entries...done (%d entries%s)" format ", %d duplicates removed" "" p re2 re stars entries end beg start unique sorting-type] 15 (#$ . 178145) "P"]) #@347 Sort TABLE of WHAT according to SORTING-TYPE. The user will be prompted for the SORTING-TYPE if the call to this function does not specify it. WHAT is only for the prompt, to indicate what is being sorted. The sorting key will be extracted from the car of the elements of the table. If WITH-CASE is non-nil, the sorting will be case-sensitive. (defalias 'org-do-sort #[(table what &optional with-case sorting-type) "\204\f\306\307 \"\210\310 \227\311\211\211\312U\203*\313\fU\203%\314\202&\315\202e\f\316U\203I \2038\317\2029\320\fU\203D\321\202E\322\202e\f\323U\203`\324\fU\203[\314\202\\\315\202e\325\326\"\210\327\330\331\"\332\"+\207" [sorting-type what comparefun extractfun dcst with-case message "Sort %s: [a]lphabetically [n]umerically [t]ime. A/N/T means reversed:" read-char-exclusive nil 110 string-to-number < > 97 identity downcase string< #[(a b) " \231?\205 \230?\207" [a b] 2] 116 #[(x) "\302 \"\203\303\304\305\306 \"!!\207\306\207" [org-ts-regexp x string-match time-to-seconds org-time-string-to-time match-string 0] 5] error "Invalid sorting type `%c'" sort mapcar #[(x) " @! AB\207" [extractfun x] 2] #[(a b) " @\n@\"\207" [comparefun a b] 3] table] 5 (#$ . 180505)]) #@52 Is point in a line starting a hand-formatted item? (defalias 'org-at-item-p #[nil "\212\302 b\210\303 \304=\203\305\202) \306U\203\307\202) \310U\203&\311\202)\312\313!!*\207" [org-plain-list-ordered-item-terminator llt point-at-bol looking-at t "\$[ ]*\\([-+]\\|\\([0-9]+[.)]\$\\)\\|[ ]+\\*\\)\$ \\|$\$" 46 "\$[ ]*\\([-+]\\|\\([0-9]+\\.\$\\)\\|[ ]+\\*\\)\$ \\|$\$" 41 "\$[ ]*\\([-+]\\|\\([0-9]+)\$\\)\\|[ ]+\\*\\)\$ \\|$\$" error "Invalid value of `org-plain-list-ordered-item-terminator'"] 3 (#$ . 181744)]) #@77 It the cursor inside a plain list item. Does not have to be the first line. (defalias 'org-in-item-p #[nil "\212\300\301\302\217)\207" [nil (byte-code "\300 \210\301 \210\302\207" [org-beginning-of-item org-at-item-p t] 1) ((error))] 3 (#$ . 182288)]) #@102 Insert a new item at the current level. Return t when things worked, nil when we are not in an item. (defalias 'org-insert-item #[(&optional checkbox) "\212\306\307\310\217)\205\206\311\312!\212\313\314!\210\315\316!\210\312\225)\317\n\236A\306\320 \203?` X\203?\313\314!\210\321\2039\322\202:\314!\210\202X` X\203L\313\314!\210\202X\323\203U\322\202V\314!\210 \203a\324\202b\325\261\210\326 \210`\314\210`\fU\204z\326 \210\327\314!\210,\330 \210 \203\205\331 \210\332\207" [bul eow org-blank-before-new-entry blank pos checkbox nil (byte-code "\300 \210\301 \210\302 \203\303\304!\210\305\207" [org-beginning-of-item org-at-item-p org-invisible-p error "Invisible item" t] 2) ((error)) match-string 0 beginning-of-line 1 looking-at "[ ]*" plain-list-item org-at-item-p open-line 2 newline "[ ]" "" just-one-space backward-delete-char org-maybe-renumber-ordered-list org-update-checkbox-count-maybe t] 3 (#$ . 182547)]) #@64 Is point at a line starting a plain-list item with a checklet? (defalias 'org-at-item-checkbox-p #[nil "\300 \205\212\301\225b\210\302\303w\210\304\305!)\207" [org-at-item-p 0 " " nil looking-at "\\[[ X]\\]"] 2 (#$ . 183500)]) #@42 Toggle the checkbox in the current line. (defalias 'org-toggle-checkbox #[(&optional arg) "\300\301\215\210\302 \207" [exit (byte-code "\305\211\211\306\307 \203\310 \311 \202L\312 \203'`\212\313 \210`)\202L\314 \203H\212\315\316\317!\320\232\203:\321\202;\320\322\211#\210)\323\324\322\"\210\202L\325\326!\210\212b\210`\nW\203\210\314 \203\201\316\317!\321\232\306=\203j ?\315\f\203t ?\202u\203|\321\202}\320\322\211#\210\327\330!\210\202P-\305\207" [firstnew status end beg arg nil unknown org-region-active-p region-beginning region-end org-on-heading-p outline-next-heading org-at-item-checkbox-p replace-match match-string 0 "[ ]" "[X]" t throw exit error "Not at a checkbox or heading, and no active region" beginning-of-line 2] 4) org-update-checkbox-count-maybe] 2 (#$ . 183736) "P"]) #@55 Update checkbox statistics unless turned off by user. (defalias 'org-update-checkbox-count-maybe #[nil "\205\301 \207" [org-provide-checkbox-statistics org-update-checkbox-count] 1 (#$ . 184565)]) #@223 Update the checkbox statistics in the current section. This will find all statistic cookies like [57%] and [6/12] and update them with the current numbers. With optional prefix argument ALL, do this for the whole buffer. (defalias 'org-update-checkbox-count #[(&optional all) "\212\306\307 \210`\310 \311 \210`\306\223\312\313\306\211\306\211 \306\211!\"\314#$\2038eb\210\311 \210`d b\210\315\n\316#\203\313#T#\314\224\314\225\317\224\320 \203_\311 \210`\202l\321 \203k\322 \210`\202l\306\"\314\211 !b\210\"\203;\315\f\"\316#\203\236\323\324!\325\232\203\226!T!\202} T \202} |\210 b\210\203\275\326\327 \330_\317 !\\]\245\"\202\306\326\331 \211!\\#c\210\202;t\205\336\332\333$\203\332\334\202\333\335##. \207" [buffer-invisibility-spec beg end re re-box b1 nil outline-back-to-heading make-marker outline-next-heading "\$\\[[0-9]*%\\]\$\\|\$\\[[0-9]*/[0-9]*\\]\$" "^[ ]*\$[-+*]\\|[0-9]+[.)]\$ +\$\\[[ X]\\]\$" 0 re-search-forward t 1 org-on-heading-p org-at-item-p org-end-of-item match-string 2 "[ ]" format "[%d%%]" 100 "[%d/%d]" message "Checkbox satistics updated %s (%d places)" "in entire file" "in current outline entry" e1 f1 c-on c-off lim cstat all] 7 (#$ . 184772) "P"]) #@141 Select the face for checkbox statistics. The face will be `org-done' when all relevant boxes are checked. Otherwise it will be `org-todo'. (defalias 'org-get-checkbox-statistics-face #[nil "\300\225\203\301\300!\302\232\203\303\207\304\207\305\225\305\224V\203%\301\305!\301\306!\232\203%\303\207\304\207" [1 match-string "100%" org-done org-todo 2 3] 3 (#$ . 186035)]) #@138 Get the indentation of the current line, interpreting tabs. When LINE is given, assume it represents a line and compute its indentation. (defalias 'org-get-indentation #[(&optional line) "\203\301\302\303!\"\205\304\225\207\212\305\306!\210\307\310w\210i)\207" [line string-match "^ *" org-remove-tabs 0 beginning-of-line 1 " " nil] 4 (#$ . 186419)]) #@93 Replace tabulators in S with spaces. Assumes that s is a single line, starting in column 0. (defalias 'org-remove-tabs #[(s &optional width) "\206 \303\304\n\"\203$\305\306\307\224\\\245_\307\224Z\310\"\311\211\n$\202\n\207" [width tab-width s string-match " " replace-match make-string 0 32 t] 5 (#$ . 186783)]) #@210 Fix indentation in LINE. IND is a cons cell with target and minimum indentation. If the current indenation in LINE is smaller than the minimum, leave it alone. If it is larger than ind, set it to the target. (defalias 'org-fix-indentation #[(line ind) "\306!\307 !@A\n Y\203 \310O\f\311V\203(\312\f\313\" P\202) ,\207" [line l i ind i1 i2 org-remove-tabs org-get-indentation nil 0 make-string 32] 3 (#$ . 187114)]) #@106 Go to the beginning of the current hand-formatted item. If the cursor is not in an item, throw an error. (defalias 'org-beginning-of-item #[nil "`\212\304 \210\305\306!\210`)\307\211\310 \203\305\311!\2023\305\311!\210\312\307w\210i\313\314\215?\2053b\210\315\316!,\207" [ind1 ind limit pos org-back-to-heading beginning-of-line 2 nil org-at-item-p 1 " " exit (byte-code "\303\304!\210`W\203\305\306\307\"\210\310\311!\204\312\307w\210i\211\nW\203\305\306\313 \"\210\202" [limit ind1 ind beginning-of-line 0 throw exit nil looking-at "[ ]*$" " " org-at-item-p] 4) error "Not in an item"] 4 (#$ . 187550) nil]) #@100 Go to the end of the current hand-formatted item. If the cursor is not in an item, throw an error. (defalias 'org-end-of-item #[nil "`\212\304 \210`)\212\305 \210\306\307w\210i)\307\310\311\215\203\"\312\313!\202(b\210\314\315!,\207" [ind1 ind limit pos outline-next-heading org-beginning-of-item " " nil exit (byte-code "\303\304!\210`Y\203\305\306\307\"\210\310\311!\204\312\313w\210i\211\nX\203\305\306\307\"\210\202" [limit ind1 ind beginning-of-line 2 throw exit t looking-at "[ ]*$" " " nil] 4) beginning-of-line 1 error "Not in an item"] 4 (#$ . 188190) nil]) #@138 Move to the beginning of the next item in the current plain list. Error if not at a plain list, or if this is the last item in the list. (defalias 'org-next-item #[nil "\303\211`\304 \210\305 \306 \210\305 \307 \205\n U?\205$b\210\310\311!+\207" [pos ind1 ind nil org-beginning-of-item org-get-indentation org-end-of-item org-at-item-p error "On last item"] 3 (#$ . 188784) nil]) #@142 Move to the beginning of the previous item in the current plain list. Error if not at a plain list, or if this is the last item in the list. (defalias 'org-previous-item #[nil "\303\211`\304 \210`\305 \nb\210\306\307\215\210\303\310\311\217+\207" [pos ind beg nil org-beginning-of-item org-get-indentation exit (byte-code "\301\302!\210\303\304!\204\305 X\203\306\307\310\"\210\202" [ind beginning-of-line 0 looking-at "[ ]*$" org-get-indentation throw exit t] 3) (org-beginning-of-item) ((error (byte-code "b\210\301\302!\207" [pos error "On first item"] 2)))] 3 (#$ . 189180) nil]) #@179 Move the plain list item at point down, i.e. swap with following item. Subitems (items with larger indentation) are considered part of the item, so this really moves item trees. (defalias 'org-move-item-down #[nil "\306\211\211\211`\306\307 \210`\310 \311 \210`\310 \312 \203A\nU\203A\311 \210 \f{\212 \f|\210)`c\210 b\210\313 \202G b\210\314\315!.\207" [txt pos ind1 ind end beg nil org-beginning-of-item org-get-indentation org-end-of-item org-at-item-p org-maybe-renumber-ordered-list error "Cannot move this item further down"] 6 (#$ . 189785) nil]) #@176 Move the plain list item at point up, i.e. swap with previous item. Subitems (items with larger indentation) are considered part of the item, so this really moves item trees. (defalias 'org-move-item-up #[(arg) "\306\211\211\211`\306\307 \210`\310 \311 \210` b\210\312\313\215\210\306\314\315\217\210\310 \316 \203J\nU\203J \f{\212 \f|\210)`c\210 b\210\317 \202P b\210\320\321!.\207" [txt pos ind1 ind end beg nil org-beginning-of-item org-get-indentation org-end-of-item exit (byte-code "\302\303!\210\304\305!\204\306 \211 X\203\307\310\311\"\210\202" [ind1 ind beginning-of-line 0 looking-at "[ ]*$" org-get-indentation throw exit t] 3) (org-beginning-of-item) ((error (byte-code "b\210\301\302!\207" [beg error "Cannot move this item further up"] 2))) org-at-item-p org-maybe-renumber-ordered-list error "Cannot move this item further up"] 6 (#$ . 190364) "p"]) #@147 Renumber the ordered list at point if setup allows it. This tests the user option `org-auto-renumber-ordered-lists' before doing the renumbering. (defalias 'org-maybe-renumber-ordered-list #[nil "\205\301 \205\302\224\205\303\304!\207" [org-auto-renumber-ordered-lists org-at-item-p 3 org-renumber-ordered-list 1] 2 (#$ . 191264)]) #@77 What indentation has S due to SPACE and TAB at the beginning of the string? (defalias 'org-get-string-indentation #[(s) "\305\306\307\310\311\215\210,\207" [tab-width c w i n -1 0 nil exit (byte-code "T\211 GW\2033 H\211\305U\203T\202\n\306U\203+\f\\\f\245\f_\202\307\310\311\"\210\202\305\207" [n s c i w 32 9 throw exit t] 4)] 4 (#$ . 191609)]) #@137 Renumber an ordered plain list. Cursor needs to be in the first line of an item, the line that starts with something like "1." or "2)". (defalias 'org-renumber-ordered-list #[(arg) "\306 \203\n\307\224\204\310\311!\210\312\212\203b\210n\203 \313\202!\314\315\313`\"\\*i\316\317 \307\224{!\312 S\320\321\215\210\320\322\215\210\323!\210\324 !-\207" [pos arg n ind1 ind col org-at-item-p 3 error "This is not an ordered list" nil 1 0 count-lines org-get-string-indentation point-at-bol exit (byte-code "\300\301\215\210\202" [next (byte-code "\302\303!\210\304\305!\203\306\307\310\"\210\311\312w\210i\211 W\204& U\203+\313 \204+\306\314\310\"\210\312\207" [ind1 ind beginning-of-line 0 looking-at "[ ]*$" throw next t " " nil org-at-item-p exit] 4)] 2) (byte-code "\300\301\215\210\202" [next (byte-code "\303\304!\210m\203 \305\306\307\"\210\310\311!\203\305\312\307\"\210\313\307w\210i\211 V\203)\305\312\314\"\210 W\2034\305\306\314\"\210\315 \204>\305\306\307\"\210\316\224\204G\317\320!\210\316\224\316\225S|\210\316\224b\210\321\322\nT\211\"c\207" [ind1 ind n beginning-of-line 2 throw exit nil looking-at "[ ]*$" next " " t org-at-item-p 3 error "unordered bullet in ordered list. Press \\[undo] to recover" format "%d"] 5)] 2) goto-line move-to-column line] 5 (#$ . 191987) "p"]) (byte-code "\301B\302\301!\204\303\301\304 \"\210\305B\302\305!\204 \303\305\304 \"\210\301\207" [current-load-list org-last-indent-begin-marker default-boundp set-default make-marker org-last-indent-end-marker] 3) #@28 Outdent a local list item. (defalias 'org-outdent-item #[(arg) "\301[!\207" [arg org-indent-item] 2 (#$ . 193546) "p"]) #@27 Indent a local list item. (defalias 'org-indent-item #[(arg) "\306 \204 \307\310!\210\212\311\211\211\211\f\312>\203 \2021\313 \210 `\311\223\314 \210`\311\223b\210\315\311w\210i \\\316W\203G\307\317!\210`\nW\205i\320\321!\210\315\311w\210i\322 `|\210\\j\210\320\323!\210\202G-\207" [ind1 ind end beg last-command org-last-indent-begin-marker org-at-item-p error "Not on an item" nil (org-shiftmetaright org-shiftmetaleft) org-beginning-of-item org-end-of-item " " 0 "Cannot outdent beyond margin" beginning-of-line 1 point-at-bol 2 org-last-indent-end-marker arg] 4 (#$ . 193673) "p"]) (defalias 'org-advertized-archive-subtree 'org-archive-subtree) #@565 Move the current subtree to the archive. The archive can be a certain top-level heading in the current file, or in a different file. The tree will be moved to that location, the subtree heading be marked DONE, and the current time will be added. When called with prefix argument FIND-DONE, find whole trees without any open TODO items and archive them (after getting confirmation from the user). If the cursor is not at a headline when this comand is called, try all level 1 trees. If the cursor is on a headline, only try the direct children of this heading. (defalias 'org-archive-subtree #[(&optional find-done) "\203\306 \207 \n\f p>\307\310\211\211\211\211?@ABCD>EFGHIJKG\212\311D\310\312#\204I\313D\310\312#\203N\314\315!>)\316\317>\"\203n\320\314\315>\"\321!\"C\314\322>\"B\202r\323\324!\210CG\325V\203\212\326C!??\327C!A\202\215pAA\204\230\323\330C\"\210BG\325V\203\257\316\331B\"\203\257\325\225@\202\265\310B\325@\212\310L\332 \210)Aq\210M\333=\204\320\312N\334\333!\210)?\203\341db\210\320\335\336E!\"c\210GKJIHG\337\340!\203\370 \202\372F eb\210B\203K\313\341\342B!\343Q\310\312#\203\325\225b\210\2023db\210n\204)\344c\210\344B\344\261\210\325\210\345 \210\346\312!\210\347\310x\210\350\351!\203Q\352\353!\210\202Qdb\210\344c\210\354\355@\315\"!\210O\203g\310P\356\nG!\210)Q\203\206\357\315!\210\350 !\210\322\225\206{\360\224b\210\361\362 \312\211\363\364%\210EA=\204\221\365 \210.\310L\366 \210)m\204\247\350\367!\203\247\370 \210\371\372EA=\203\270\373BP\202\276\374\375C!P\".\207" [find-done org-todo-line-regexp org-todo-keywords org-todo-interpretation org-done-string org-todo-regexp org-archive-all-done "^#\\+ARCHIVE:[ ]+\$\\S-.*\\S-\$[ ]*$" nil re-search-backward t re-search-forward match-string 1 string-match "\$.*\$::\$.*\$" format file-name-nondirectory 2 error "Invalid `org-archive-location'" 0 file-exists-p find-file-noselect "Cannot access file \"%s\"" "^\\*+" org-copy-subtree org-mode call-interactively "\nArchived entries from file %s\n\n" buffer-file-name local-variable-p org-odd-levels-only "\$^\\| \$" regexp-quote "[ ]*\$:[a-zA-Z0-9_@:]+:\$?[ ]*\$$\\| \$" "\n" show-subtree org-end-of-subtree " \n" looking-at "[ \n]*" replace-match "\n\n" org-paste-subtree org-get-legal-level org-todo beginning-of-line 3 org-insert-time-stamp org-current-time "(" ")" save-buffer org-cut-subtree "[ ]*$" kill-line message "Subtree archived %s" "under heading: " "in file: " abbreviate-file-name org-archive-location newfile-p level buffer heading file re this-buffer tr-org-odd-levels-only tr-org-todo-line-regexp tr-org-todo-regexp tr-org-done-string tr-org-todo-interpretation tr-org-todo-keywords this-command major-mode org-insert-mode-line-in-empty-file org-archive-mark-done org-log-done org-archive-stamp-time] 15 (#$ . 194359) "P"]) #@248 Archive sublevels of the current tree without open TODO items. If the cursor is not on a headline, try all level 1 trees. If it is on a headline, try all direct children. When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag. (defalias 'org-archive-all-done #[(&optional tag) "\306P\307\310 \311Q\312 \312 \n\203\313\202\314\307\211\315 !\"#$\316 \203M\317\320\321\315\225\315\224ZT\322\"!\323Q#!`\307\223\210 \324\325!\307\223\210\202\\\326#!e\307\223\210 d\307\223\210\212!b\210\327# \325#\203\270\315\224\212\324\325!\210`) b\210\327$\f\325#\203\210\fb\210\202a b\210\n\203\226\330\"!\204\262\331!\203\262\n\203\251\332 \333\"\210\202\254\334 \210T\202a\fb\210\202a)\335\336\". \207" [org-not-done-regexp org-archive-tag tag cntarch end beg "^\\*+ +" nil ".*:" ":" make-marker "Set ARCHIVE tag (no open TODO items)? " "Move subtree to archive (no open TODO items)? " 0 org-on-heading-p "^" regexp-quote make-string 42 " " org-end-of-subtree t "^* " re-search-forward looking-at y-or-n-p org-toggle-tag on org-archive-subtree message "%d trees archived" question endm begm rea re1 re] 9 (#$ . 197273)]) #@64 Re-hide all archived subtrees after a visibility state change. (defalias 'org-cycle-hide-archived-subtrees #[(state) "?\205> \306>?\205>\212 \307>\211\203e\202`\n\203#d\202&\310\311!\312\f\"\210b\210\313\314 \315Q!\205=\316\317\320!!,\207" [org-cycle-open-archived-trees state globalp beg end org-archive-tag (overview folded) (contents all) org-end-of-subtree t org-hide-archived-subtrees looking-at ".*:" ":" message substitute-command-keys "Subtree is archived and stays closed. Use \\[org-force-cycle-archived] to cycle it anyway."] 5 (#$ . 198450)]) #@39 Cycle subtree even if it is archived. (defalias 'org-force-cycle-archived #[nil "\302\303\304\302!)\207" [this-command org-cycle-open-archived-trees org-cycle t call-interactively] 2 (#$ . 199027) nil]) #@64 Re-hide all archived subtrees after a visibility state change. (defalias 'org-hide-archived-subtrees #[(beg end) "\212\304\304Q\nb\210\305 \306#\205 \307 \203\310 \210\311\306!\210\202 *\207" [org-archive-tag re beg end ":" re-search-forward t org-on-heading-p hide-subtree org-end-of-subtree] 4 (#$ . 199238)]) #@105 Toggle the tag TAG for the current line. If ONOFF is `on' or `off', don't toggle but set to this state. (defalias 'org-toggle-tag #[(tag &optional onoff) "\304 \204 \305\306!\210\307\211\212\310 \210\311\312\313 \314#\203%\315\316!\317\320!\210\202'\320\321\322\"\237\n\323=\203B\314\235\204jB\202j\n\324=\203V\235\203j\325\"\202j\235\203d\325\"\202j\314B\316\210\203|\326\327\330\237\322#\322\261\210\331\307\314\"\210) *\207" [current res onoff tag org-on-heading-p error "Not on headling" nil beginning-of-line re-search-forward "[ ]:\$[a-zA-Z0-9_@:]+\$:[ ]*$" point-at-eol t match-string 1 replace-match "" org-split-string ":" on off delete " :" mapconcat identity org-set-tags] 5 (#$ . 199564)]) #@178 Toggle the archive tag for the current headline. With prefix ARG, check all children of current headline and offer tagging the children that do not contain any open TODO items. (defalias 'org-toggle-archive-tag #[(&optional arg) "\203\303\304!\207\305\212\306\307!\210\310\n!\211\203\311 \210) \203#\312\313!\210\314\315 \203-\316\202.\317\")\207" [arg set org-archive-tag org-archive-all-done tag nil org-back-to-heading t org-toggle-tag hide-subtree beginning-of-line 1 message "Subtree %s" "archived" "unarchived"] 4 (#$ . 200319) "P"]) #@59 Every change indicates that a table might need an update. (defalias 'org-before-change-function #[(beg end) "\301\211\207" [org-table-may-need-update t] 2 (#$ . 200875)]) #@33 Detects an org-type table line. (defconst org-table-line-regexp "^[ ]*|" (#$ . 201053)) #@33 Detects an org-type table line. (defconst org-table-dataline-regexp "^[ ]*|[^-]" (#$ . 201148)) #@58 Detects a table line marked for automatic recalculation. (defconst org-table-auto-recalculate-regexp "^[ ]*| *# *\$|\\|$\$" (#$ . 201251)) #@58 Detects a table line marked for automatic recalculation. (defconst org-table-recalculate-regexp "^[ ]*| *[#*] *\$|\\|$\$" (#$ . 201399)) #@58 Detects a table line marked for automatic recalculation. (defconst org-table-calculate-mark-regexp "^[ ]*| *[!$^_#*] *\$|\\|$\$" (#$ . 201545)) #@34 Detects an org-type table hline. (defconst org-table-hline-regexp "^[ ]*|-" (#$ . 201698)) #@35 Detects a table-type table hline. (defconst org-table1-hline-regexp "^[ ]*\\+-[-+]" (#$ . 201796)) #@42 Detects an org-type or table-type table. (defconst org-table-any-line-regexp "^[ ]*\$|\\|\\+-[-+]\$" (#$ . 201902)) #@87 Searching from within a table (any type) this finds the first line outside the table. (defconst org-table-border-regexp "^[ ]*[^| ]" (#$ . 202027)) #@87 Searching from within a table (any type) this finds the first line outside the table. (defconst org-table-any-border-regexp "^[ ]*[^|+ ]" (#$ . 202183)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list org-table-last-highlighted-reference default-boundp set-default nil org-table-formula-history] 3) #@53 Alist with column names, derived from the `!' line. (defvar org-table-column-names nil (#$ . 202563)) #@55 Regular expression matching the current column names. (defvar org-table-column-name-regexp nil (#$ . 202671)) #@56 Alist with parameter names, derived from the `$' line. (defvar org-table-local-parameters nil (#$ . 202787)) #@39 Alist with locations of named fields. (defvar org-table-named-field-locations nil (#$ . 202902)) #@61 Table row types, non-nil only for the duration of a comand. (defvar org-table-current-line-types nil (#$ . 203005)) #@62 Table begin line, non-nil only for the duration of a comand. (defvar org-table-current-begin-line nil (#$ . 203127)) #@56 Vector of data line line numbers in the current table. (defvar org-table-dlines nil (#$ . 203250)) #@52 Vector of hline line numbers in the current table. (defvar org-table-hlines nil (#$ . 203355)) #@53 Regular expression for matching ranges in formulas. (defconst org-table-range-regexp "@\$[-+]?I*[-+]?[0-9]*\$?\$\\$[-+]?[0-9]+\$?\$\\.\\.@?\\([-+]?I*[-+]?[0-9]*\$?\$\\$[-+]?[0-9]+\$?\\)?" (#$ . 203456)) #@70 Regular expression to recognize ranges in formulas for highlighting. (defconst org-table-range-regexp2 "@\$[-+]?I*[-+]?[0-9]*\$?\$\\$[-+]?[a-zA-Z0-9]+\$?\$\\.\\.@?\\([-+]?I*[-+]?[0-9]*\$?\$\\$[-+]?[a-zA-Z0-9]+\$?\\)?\\|\\$[a-zA-Z0-9]+\\.\\.\\$[a-zA-Z0-9]+" (#$ . 203673)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-inhibit-highlight-removal default-boundp set-default nil] 3) #@140 Use the table.el package to insert a new table. If there is already a table at point, convert between Org-mode tables and table.el tables. (defalias 'org-table-create-with-table\.el #[nil "\300\301!\210\302 \203\303\304!\205#\305 \207\306 \203 \303\307!\205#\305 \207\310\311!\207" [require table org-at-table\.el-p y-or-n-p "Convert table to Org-mode table? " org-table-convert org-at-table-p "Convert table to table.el table? " call-interactively table-insert] 2 (#$ . 204106) nil]) #@157 Convert region to table, or create an empty table. If there is an active region, convert it to a table. If there is no such region, create an empty table. (defalias 'org-table-create-or-convert-from-region #[(arg) "\301 \203 \302\303 \304 #\207\305!\207" [arg org-region-active-p org-table-convert-region region-beginning region-end org-table-create] 4 (#$ . 204603) "P"]) #@103 Query for a size and insert a table skeleton. SIZE is a string Columns x Rows like for example "3x2". (defalias 'org-table-create #[(&optional size) "\204\306\307 \310Q\311\312 $`\313i\314\"\315\316\"\317\fA@!\317\f@! \320\321\322\323 \324\"$\325P!\326\327\330\331 `\"\"\203F\332\333!\210\202I\334 \210 \335\"#\"#W\203d!c\210\"T\211\"\202Q*\nb\210 \333V\203w\333\210\336c\210\nb\210\337 .\207" [size org-table-default-size pos indent split rows 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 columns line i #1=#:--cl-dotimes-temp--] 7 (#$ . 204987) "P"]) #@284 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. When NSPACE is non-nil, it indicates the minimum number of spaces that separate columns (default: just one space). (defalias 'org-table-convert-region #[(beg0 end0 &optional nspace) " ^ ]\306\307\nb\210\310\311!\210\312 `\307\223b\210n\203&\313u\210\202)\311\210\312 `\307\223\2039\307\202F\nb\210\314\315\306#\203F\307\203M\307\f\203V\316\202`\317\320\311\321!]\"\nb\210\314 \306#\203t\322\323\306\211#\210\202c\nb\210\324c\210\325 ,\207" [beg0 end0 beg end tabsep re t nil beginning-of-line 1 make-marker -1 re-search-forward "^[^\n ]+$" "^\\| " format "^ *\\| * *\\| \\{%d,\\}" prefix-numeric-value replace-match "| " " " org-table-align nspace] 5 (#$ . 205804) "rP"]) #@235 Import FILE as a table. The file is assumed to be tab-separated. Such files can be produced by most spreadsheet and database applications. If no tabs (at least one per line) are found, lines will be split on whitespace into fields. (defalias 'org-table-import #[(file arg) "n\204\304 \210`d\305\n!\210\306 `dZ\\#*\207" [pm beg file arg newline insert-file-contents org-table-convert-region] 5 (#$ . 206685) "f\nP"]) #@106 Export table as a tab-separated file. Such a file can be imported into a spreadsheet program like Excel. (defalias 'org-table-export #[nil "\305 \306 {\307\310!\311\312!\203#\313\314\315\"!\204#\316\317!\210r\320!q\210p\321 \210\322 \210\nc\210eb\210\323\324\311\325#\203K\326\327\325\211#\210\330\210\2027eb\210\323\331\311\325#\203e\326\327\325\211#\210`Td^b\210\202Neb\210\323\332\311\325#\203\201\326\327!\210\333\334!\203h\335\330!\210\202heb\210\323\336\311\325#\203\225\326\337\325\211#\210\202\204\340 \210)\341\f!-\207" [beg end table file buf org-table-begin org-table-end read-file-name "Export table to: " nil file-exists-p y-or-n-p format "Overwrite file %s? " error "Abort" find-file-noselect erase-buffer fundamental-mode re-search-forward "^[ ]*|[ ]*" t replace-match "" 1 "[ ]*|[ ]*$" "^-[-+]*$" looking-at "\n" delete-char "[ ]*|[ ]*" " " save-buffer kill-buffer] 4 (#$ . 207116) nil]) #@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) (#$ . 208056)) #@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) (#$ . 208255)) #@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 (#$ . 208446)) #@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 (#$ . 208644)) #@50 Overlay coordinates after each align of a table. (defvar org-table-overlay-coordinates nil (#$ . 208821)) (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\306\207" [current-load-list make-variable-buffer-local org-table-overlay-coordinates org-last-recalc-line default-boundp set-default nil] 3) #@53 Used as display property in narrowed table columns. (defconst org-narrow-column-arrow "=>" (#$ . 209140)) #@57 Align the table at point by aligning all vertical bars. (defalias 'org-table-align #[nil "\306 \307 \310\212\n\203\nb\210n\203\311\202\312\313\311`\"\\*\314 \315 \211dS^\212\n\2033\nb\210n\203;\311\202<\312\313\311`\"\\*@\310A\316B\310\211CD\310\211EF\310\211GH\310\211IJ\316K\310\211LM\310\211NO\317\211P@QPAR\320R\321\"\322\320Q\321\"\323RS\320R\324\"\325\320Q\324\"\326RT\310\211UV\310\211WX\310\211YZ\310\211[\\\310]\327 \"\210\330 \331#\210b\210\332^ \333#Vb\210_\205\332\332` \333#WV\203\352b\210\334 !\204\344W\203\370b\210\335 !\204\362b\210a\205\332\336 \333#X\337 {\340\"A\341\342A@\"\203\"\320\312\225\312\224Z\321\"K\343\344A\"A\343\345\346\310\347A!\"\"G\310\350\351\217\210\352H\316\"U\353IIT\211IHW\203v\343\354G\"JX\203J\\\310Y\\\203\216\\\211A\\@\211];\203c\341\355]\"\203c\356\357\311]\"!Y\310\211\\\204hY\203Jb\310cb:\203b@\211c;\203\f\360c!YV\203\f\361c\310\362\363\347c!d\330\312dGed$\210d)P$\210Y\341^c\"\206\336Y^\211Z\311V\204\360\364\365\357\312c\"\"\210\366ZcG\367\333Dc$\210\366Z\370ZZ\371fDc$\210bA\211b\202\234*\372\373\311\343\360J\"#CBC\312L\374MJg\310hg:\203hg@\211h\316\232\204_ML_\341ih\"\203T\311\202U\312\\LT\211L\245MgA\211g\2023*MjYEBE\202DC\237CE\237\211EkClV\203\312IHSmImX\203\377IC8[\312nGGSonoX\203\365InG\233@\233\211\\@;\203\354\341^\\@\"\203\354\360\\@![W\203\354\\\211@\320[\360\\@!Z\321\"P\240\210nT\211n\202\256*IT\211I\202\226*K\323PNK\323POC\211AC@\211D\203HE\211AE@\203'\316\202(\375FN\376SFD#PNO\376T\320D\324\"\"PO\202\fN\340PNO\312\353O\377PO\201v\201wA\316#B |\210 \310\211\223\210p`\310\223\210Bc\210q`\310\223\210r\203\227s\201x=\204\227pb\210\201yq!\204\216\201z@!\210\201{ \201z!\210\201|\201} \201~#\210\201\f!\210t\203\306\201t \210\310\211u.#\207" [beg end pos linepos colpos winstart org-table-begin org-table-end nil 1 0 count-lines org-table-current-column window-start "" (1 . 1) make-string 32 "%%%s%ds" "|" 45 "%s" "+" untabify remove-text-properties (org-cwidth t org-dwidth t display t) re-search-forward t org-activate-bracket-links org-activate-dates "<[0-9]+>" org-split-string "\n" string-match "^ *" mapcar #[(l) "\301\302\"?\205\301\303\"\203\304\211\224O\207\207" [l string-match "^ *|-" "[ ]+$" 0] 3] #[(l) "\301\302\"\207" [l org-split-string " *| *"] 3] delq copy-sequence (byte-code "\302\303\304\305\"\"\302\207" [fields maxfields apply max mapcar length] 5) ((error (byte-code "\303 \"\210\304\n!\210\305\306!\207" [beg end org-table-default-size kill-region org-table-create error "Empty table - created default table"] 3))) make-list -1 #[(x) " 8\206\302\207" [i x ""] 2] "^<\$[0-9]+\$>$" string-to-number match-string org-string-width org-add-props help-echo "Clipped table field, use C-c ` to edit. Full value is:\n" error "Cannot narrow field starting with wide link \"%s\"" add-text-properties org-cwidth 2 display apply max 0.0 "-" format "|\n" winstartline lines new lengths l typenums ty fields maxfields i column indent cnt frac rfmt hfmt spaces sp1 sp2 rfmt1 hfmt1 emptystrings links dates narrow fmax f1 len c e org-bracket-link-regexp org-display-custom-times org-ts-regexp-both org-format-transports-properties-p #1=#:--cl-var-- xx s org-rm-props org-narrow-column-arrow #2=#:--cl-var-- x org-table-number-regexp org-table-number-fraction org-table-last-alignment org-table-last-column-widths #3=#:--cl-var-- j #4=#:--cl-var-- org-table-aligned-begin-marker org-table-aligned-end-marker orgtbl-mode major-mode org-table-overlay-coordinates org-table-may-need-update mapconcat #[(l) "\203\305\306 \307\n\211A@\"#\207\f\207" [l rfmt fields emptystrings hfmt apply format append] 6] org-mode org-hide-wide-columns goto-line point-at-bol set-window-start selected-window noforce org-table-goto-column] 12 (#$ . 209252) nil]) #@238 Compute width of string, ignoring invisible characters. This ignores character with invisibility property `org-link', and also characters with property `org-cwidth', because these will become invisible upon the next fontification round. (defalias 'org-string-width #[(s) "\304\211\n\305=\204\306\n\236\2033\307\310G\311\306%\211\2033\310 O\312 \311#\206,G\304OP\202\307\310G\313\305%\211\203V\310 O\312 \313#\206OG\304OP\2023\314!\315\307 TG\316\305%\211\203u\317 \320#Z\202\\*\207" [l b buffer-invisibility-spec s nil t org-link text-property-any 0 invisible next-single-property-change org-cwidth string-width -1 org-dwidth get-text-property org-dwidth-n] 6 (#$ . 213286)]) #@130 Find the beginning of the table and return its position. With argument TABLE-TYPE, go to the beginning of a table.el-type table. (defalias 'org-table-begin #[(&optional table-type) "\212\303\203\n \202\n\304\305#\204eb\210`\202!\306\224b\210\307\310!\210`)\207" [table-type org-table-any-border-regexp org-table-border-regexp re-search-backward nil t 0 beginning-of-line 2] 4 (#$ . 214009)]) #@118 Find the end of the table and return its position. With argument TABLE-TYPE, go to the end of a table.el-type table. (defalias 'org-table-end #[(&optional table-type) "\212\303\203\n \202\n\304\305#\204db\210\202\306\224b\210\307 )\207" [table-type org-table-any-border-regexp org-table-border-regexp re-search-forward nil t 0 point-marker] 4 (#$ . 214415)]) #@136 Justify the current field, text to left, number to right. Optional argument NEW may specify text to replace the current field content. (defalias 'org-table-justify-field-maybe #[(&optional new) "\204 \206\324\306 \206\324\204)\307\n!p\232\203%`\nW\204%`Y\203)\310\211\207`\311\312 \211\313V\205=S8\311\211\311\211\311 \313V\205\322\314\311x\210\315\316!\203\316\317\320!\317\313!\320\313\225\313\224Z\321Z]\322\224\322\225U? \323\203\205\324\202\206\325 \203\221\326\202\224\310\327#\323 \"\203\273GX\203\264\323\"\202\273\326P\310\232\204\320\311\330!\210)\202\320\310\fb. \207" [new org-table-may-need-update org-table-aligned-begin-marker org-table-aligned-end-marker pos s org-at-table-hline-p marker-buffer t nil org-table-current-column 0 "^|\n" looking-at " *\$[^|\n]*?\$ *\$|\\|$\$" match-string 1 3 2 format " %%%ds %s" " %%-%ds %s" "|" "" replace-match col org-table-last-alignment num l f n o e] 5 (#$ . 214789)]) #@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 #[nil "\303 \210\304 \210\203 \203\305 \210\306 \307 \203\310\210\311\312\313\217)\207" [org-table-automatic-realign org-table-may-need-update end org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-align org-table-end org-at-table-hline-p 1 nil (byte-code "\302\303\"\210\304\305!\203\302\303\"\210\304\306!\203& \203&\302\307\310#\203&\311\224b\210\304\306!\2034\312\313!\210\314\315!\207\304\316!\205<\311u\207" [end org-table-tab-jumps-over-hlines re-search-forward "|" looking-at "[ ]*$" "-" "^[ ]*|\$[^-]\$" t 1 beginning-of-line 0 org-table-insert-row below " "] 4) ((error (byte-code "\300\301!\207" [org-table-insert-row below] 2)))] 3 (#$ . 215809) nil]) #@90 Go to the previous field in the table. Before doing so, re-align the table if necessary. (defalias 'org-table-previous-field #[nil "\302 \210\303 \210\203 \203\304 \210\305 \203\306\210\307\310\311 \"\210\307\310\311 \"\210\312\313!\2034\307\310\311 \"\210\202%\312\314!\205=\315\225b\207" [org-table-automatic-realign org-table-may-need-update org-table-justify-field-maybe org-table-maybe-recalculate-line org-table-align org-at-table-hline-p 1 re-search-backward "|" org-table-begin looking-at "|\$-\\|[ ]*$\$" "| ?" 0] 3 (#$ . 216678) nil]) #@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 #[nil "\303 \210\304 \210\305\306!\204\212\307\310x\210n)\203\311 \207\203$ \203$\312 \210\313 \314\315!\210\316 \2035\317 \203=\314\320!\210\321\322!\210\323\n!\210\324\310x\210\305\325!\205M\326u)\207" [org-table-automatic-realign org-table-may-need-update col org-table-maybe-eval-formula org-table-maybe-recalculate-line looking-at "[ ]*$" " " nil newline org-table-align org-table-current-column beginning-of-line 2 org-at-table-p org-at-table-hline-p 0 org-table-insert-row below org-table-goto-column "^|\n " " " 1] 2 (#$ . 217244) nil]) #@491 Copy a field down in the current column. If the field at the cursor is empty, copy into it 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 an integer, it will be incremented while copying. (defalias 'org-table-copy-down #[(n) "\306 \307 \310\311 \"\312 \313\314 \210\n\203$\315 !\316 \210\317 \210\202*\212\320\321\215)\f\203L \203A\310\322\f\"\203A\323\324\325\f!T\"\fc\210\326 \210\327 \202O\330\331!-\207" [colpos field non-empty beg txt org-table-copy-increment org-table-current-column org-table-get-field string-match "[^ ]" org-table-begin nil org-table-check-inside-data-field org-trim org-table-next-row org-table-blank-field exit (byte-code "\304\305!\210\306 \307#\205*\310\n\307\"\210\311\312!\203S\211\313U\203\314\315\316\305!\"\210\202\207" [org-table-dataline-regexp beg colpos n beginning-of-line 1 re-search-backward t org-table-goto-column looking-at "|[ ]*\$[^| ][^|]*?\$[ ]*|" 0 throw exit match-string] 4) "^[0-9]+$" format "%d" string-to-number org-table-maybe-recalculate-line org-table-align error "No non-empty field found"] 4 (#$ . 217944) "p"]) #@168 Is point inside a table data field? I.e. not on a hline or before the first or after the last column? This actually throws an error, so it aborts the current command. (defalias 'org-table-check-inside-data-field #[nil "\300 \203\301 \302U\204\303 \204\304\305!\205\306\307!\207" [org-at-table-p org-table-current-column 0 org-at-table-hline-p looking-at "[ ]*$" error "Not in table data field"] 2 (#$ . 219355)]) #@30 Clipboard for table regions. (defvar org-table-clip nil (#$ . 219783)) #@49 Blank the current table field or active region. (defalias 'org-table-blank-field #[nil "\304 \210t\203\305 \203\306\307\310 \311 \")\207\312\306x\210\313u\210\314\315!\205B\316\224\317\316!\320\n!\321\322\323S\324\"P!\210 \325\\b\210\n\326\306O+\207" [org-table-clip pos match len org-table-check-inside-data-field 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 1] 5 (#$ . 219860) nil]) #@186 Return the value of the field in column N of current row. N defaults to current field. If REPLACE is a string, replace field with this value. The return value is always the old value. (defalias 'org-table-get-field #[(&optional n replace) "\203\304!\210\305\306x\210\307u\210\310\311!\2035\312\224\211T\312\225{\203*\313\314P\315\211#\210\316 \317\\^b\210\n*\207\320u\210\321\207" [n pos val replace org-table-goto-column "^|\n" nil -1 looking-at "|[^| \n]*" 0 replace-match "|" t point-at-eol 2 1 ""] 5 (#$ . 220387)]) #@74 Show info about the current field, and highlight any reference at point. (defalias 'org-table-field-info #[(arg) "\306 \210\212`\307 \310\311 !\n\"@\310\312\212\203b\210n\203$\313\202%\314\315\313`\"\\* D\f\"@\316 \317 \320\321 #\322 \"\206O\322\" \322\311 !\"!b\210\312\323\324\217\210\325\326 \203q\327P\202r\330 \203\327 P\202\200\330 \204\212!\203\233\331 \203\224\332\202\225\333\334\330R\202\234\330&.\n\207" [pos col org-table-column-names cname org-table-named-field-locations name org-table-get-specials org-table-current-column rassoc int-to-string nil 1 0 count-lines org-table-get-stored-formulas org-table-current-dline format "@%d$%d" assoc (byte-code "\300\301!\207" [org-show-reference local] 2) ((error)) message "line @%d, col $%s%s, ref @%d$%d%s%s" " or $" "" ", " "field" "column" " formula applies" eql dline ref fequation cequation] 12 (#$ . 220925) "P"]) #@100 Find out which column we are in. When called interactively, column is also displayed in echo area. (defalias 'org-table-current-column #[nil "t\203\302 \210\212\303`\304\305!\210\306\307\310#\203 T\202t\203'\311\312 \"\210 +\207" [pos cnt org-table-check-inside-data-field 0 beginning-of-line 1 search-forward "|" t message "This is table column %d"] 4 (#$ . 221862) nil]) #@72 Find out what table data line we are in. Only datalins count for this. (defalias 'org-table-current-dline #[nil "t\203\303 \210\212\304`\305 b\210`X\203&\306\n!\203 T\307\310!\210\202t\203/\311\312 \"\210 +\207" [pos cnt org-table-dataline-regexp org-table-check-inside-data-field 0 org-table-begin looking-at beginning-of-line 2 message "This is table line %d"] 3 (#$ . 222252) nil]) #@286 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. (defalias 'org-table-goto-column #[(n &optional on-delim force) "\304 \305\306!\210 \307V\205Q S\211\310V\203.\311\312\313#\204 \n\203.\306\210\314\315x\210\316c\204 \n\203@\317\320!\204@\212\306\210\316c\210)\203I\310u\202Q\317\321!\205Q\306u)\207" [pos n force on-delim point-at-eol beginning-of-line 1 0 -1 search-forward "|" t "^|" nil " | " looking-at ".*|" " "] 4 (#$ . 222656) "p"]) #@116 Return t if the cursor is inside an org-type table. If TABLE-TYPE is non-nil, also check for table.el-type tables. (defalias 'org-at-table-p #[(&optional table-type) "\205\212\304\305!\210\306 \203\n\202!)\207" [org-enable-table-editor table-type org-table-any-line-regexp org-table-line-regexp beginning-of-line 1 looking-at] 2 (#$ . 223354)]) #@53 Return t if and only if we are at a table.el table. (defalias 'org-at-table\.el-p #[nil "\301\302!\205\212\303\302!b\210\304!)\207" [org-table1-hline-regexp org-at-table-p any org-table-begin looking-at] 2 (#$ . 223713)]) #@69 If there is a table.el table nearby, recognize it and move into it. (defalias 'org-table-recognize-table\.el #[nil "\205N\304 \205N\305\306!\210\307 !\204'\307\n!\203'\305\310!\210\307!\203'\305\311!\210\312\313\314\315!\315#\203I\316\317!\210\320`!\204M\321\322!\210\323 \210\321\324!\210\202M\325\326!\210\315\207" [org-table-tab-recognizes-table\.el org-table-dataline-regexp org-table1-hline-regexp org-table-any-border-regexp org-at-table\.el-p beginning-of-line 1 looking-at 2 -1 re-search-forward "|" org-table-end t require table table--at-cell-p message "recognizing table.el table..." table-recognize-table "recognizing table.el table...done" error "This should not happen..."] 4 (#$ . 223944)]) #@54 Return t if the cursor is inside a hline in a table. (defalias 'org-at-table-hline-p #[nil "\205 \212\302\303!\210\304 !)\207" [org-enable-table-editor org-table-hline-regexp beginning-of-line 1 looking-at] 2 (#$ . 224666)]) #@37 Insert a new column into the table. (defalias 'org-table-insert-column #[nil "\306 \204 \307\310!\210\311 \210\312\313 ]\314 \315 \316\212\203!b\210n\203)\312\202*\317\320\312`\"\\* b\210`\nW\203P\321 \204I\322\323\"\210\324c\210\325\326!\210\2026\n\316\211\223\210\327\f!\210\322 !\210\330 \210\331\332\316S\312$-\207" [col beg end pos linepos colpos org-at-table-p error "Not at a table" org-table-find-dataline 1 org-table-current-column org-table-begin org-table-end nil 0 count-lines org-at-table-hline-p org-table-goto-column t "| " beginning-of-line 2 goto-line org-table-align org-table-fix-formulas "$"] 5 (#$ . 224899) nil]) #@76 Find a dataline in the current table, which is needed for column commands. (defalias 'org-table-find-dataline #[nil "\302 \203\f\303 \204\f\304\207i\305 \306 !\210`W\2031i U\203&\303 \2031\307\310!\210\306 !\210\202\302 \203?\303 \204?\304\202B\311\312!*\207" [end col org-at-table-p org-at-table-hline-p t org-table-end move-to-column beginning-of-line 2 error "Please position cursor in a data line for column operations"] 2 (#$ . 225560)]) #@33 Delete a column from the table. (defalias 'org-table-delete-column #[nil "\306 \204 \307\310!\210\311 \210\312 \210\313 \314 \315 \316\212\203\"b\210n\203*\317\202+\320\321\317`\"\\* b\210`\nW\203X\322 \204Q\323\324\"\210\325\326!\203Q\327\330!\210\331\332!\210\2027\n\316\211\223\210\333\f!\210\323 !\210\334 \210\335\336\337!\340BC\341%-\207" [col beg end pos linepos colpos org-at-table-p error "Not at a table" org-table-find-dataline org-table-check-inside-data-field org-table-current-column org-table-begin org-table-end nil 1 0 count-lines org-at-table-hline-p org-table-goto-column t looking-at "|[^|\n]+|" replace-match "|" beginning-of-line 2 goto-line org-table-align org-table-fix-formulas "$" number-to-string "INVALID" -1] 6 (#$ . 226022) nil]) #@27 Move column to the right. (defalias 'org-table-move-column-right #[nil "\300\301!\207" [org-table-move-column nil] 2 (#$ . 226809) nil]) #@26 Move column to the left. (defalias 'org-table-move-column-left #[nil "\300\301!\207" [org-table-move-column left] 2 (#$ . 226952) nil]) #@73 Move the current column to the right. With arg LEFT, move to the left. (defalias 'org-table-move-column #[(&optional left) "\306 \204 \307\310!\210\311 \210\312 \210\313 \203S\202\314 \315 \316\212 \203- b\210n\2035\317\2026\320\321\317`\"\\*# \203GS\202IT$ \203Y\317U\203Y\307\322!\210 \204g\323\324!\203g\307\325!\210b\210`\fW\203\213\326 \204\204\327\n\330\"\210\323\331!\203\204\332\333!\210\334\335!\210\202j\f\316\211\223\210\336#!\210\327$!\210\337 \210\340\341\342!\342$!B\342$!\342!BD\".\207" [col left col1 beg end pos org-at-table-p error "Not at a table" org-table-find-dataline org-table-check-inside-data-field org-table-current-column org-table-begin org-table-end nil 1 0 count-lines "Cannot move column further left" looking-at "[^|\n]*|[^|\n]*$" "Cannot move column further right" org-at-table-hline-p org-table-goto-column t "|\$[^|\n]+\$|\$[^|\n]+\$|" replace-match "|\\2|\\1|" beginning-of-line 2 goto-line org-table-align org-table-fix-formulas "$" number-to-string linepos colpos] 6 (#$ . 227094) "P"]) #@22 Move table row down. (defalias 'org-table-move-row-down #[nil "\300\301!\207" [org-table-move-row nil] 2 (#$ . 228170) nil]) #@20 Move table row up. (defalias 'org-table-move-row-up #[nil "\300\301!\207" [org-table-move-row up] 2 (#$ . 228301) nil]) #@61 Move the current table line down. With arg UP, move it up. (defalias 'org-table-move-row #[(&optional up) "i`\212\306\307!\210\310\n!)\311 \211 \203\312\202\307\\ \203&\313\202'\314\315\211\306!\210\316 \204@ b\210\317\320!\210\310\n! b\210\306\307!\210``\321 T{`\321 T|\210\306!\210c\210\306\313!\210\322!\210\206r?\205\212\323\324\325\f!\325!B\325!\325\f!BD\".\207" [col pos org-table-hline-regexp hline1p dline1 up beginning-of-line 1 looking-at org-table-current-dline -1 0 2 nil org-at-table-p error "Cannot move row further" point-at-eol move-to-column org-table-fix-formulas "@" number-to-string dline2 tonew txt hline2p] 7 (#$ . 228427) "P"]) #@105 Insert a new row above the current line into the table. With prefix ARG, insert below the current line. (defalias 'org-table-insert-row #[(&optional arg) "\305 \204 \306\307!\210\310 \311 {\312!\313\314\"\203$\315\316\317\"\320\211 $\321\n\203-\322\202.\323!\210\324\325 \326\"\210)\321\317!\210\327\330\311 \320#\210\204K\f\203N\331 \210\332\333\324\334 S\323$*\207" [line new arg org-table-may-need-update org-table-overlay-coordinates org-at-table-p error "Not at a table" point-at-bol point-at-eol org-table-clean-line string-match "^[ ]*| *[#$] *|" replace-match match-string 0 t beginning-of-line 2 1 nil insert-before-markers "\n" re-search-forward "| ?" org-table-align org-table-fix-formulas "@" org-table-current-dline] 5 (#$ . 229127) "P"]) #@113 Insert a horizontal-line below the current line into the table. With prefix ARG, insert above the current line. (defalias 'org-table-insert-hline #[(&optional arg) "\304 \204 \305\306!\210\307\310 \311 {!i\312\313 \"\203.\314\315\316\317\225\317\224Z\320\"\321Q\322\211 $\202\312\323 \"\203<\314\321\322\211 $\324\n\203E\317\202F\325!\210 \326\261\210\324\n\203V\317\202W\327!\210\330!\210\205c\331 *\207" [col line arg org-table-overlay-coordinates org-at-table-p error "Not at a table" org-table-clean-line point-at-bol point-at-eol string-match "|\$ +\$|" replace-match "+" make-string 1 45 "|" t "\\+" beginning-of-line 2 "\n" -1 move-to-column org-table-align] 5 (#$ . 229901) "P"]) #@126 Convert a table line S into a string with only "|" and space. In particular, this does handle wide and invisible characters. (defalias 'org-table-clean-line #[(s) "\301\302\"\203\303\304\305#\211\207\301\306\"\203+\307\310\311\312\313\314\"!\315\"\310Q\316\211$\202\207" [s string-match "^[ ]*|-" mapconcat #[(x) "\301\235\203\302\207\303\207" [x (124 43) "|" " "] 2] "" "|\$[ ]*?[^ \n|][^ \n|]*\$|" replace-match "|" make-string org-string-width match-string 1 32 t] 7 (#$ . 230615)]) #@59 Delete the current row or horizontal line from the table. (defalias 'org-table-kill-row #[nil "\302 \204 \303\304!\210i\305 \306\307 \310 Td^\"\210\302 \204!\311\312!\210\313 !\210\314\315\316!\317BC\320%*\207" [dline col org-at-table-p error "Not at a table" org-table-current-dline kill-region point-at-bol point-at-eol beginning-of-line 0 move-to-column org-table-fix-formulas "@" number-to-string "INVALID" -1] 6 (#$ . 231129) nil]) #@1005 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). Sorting in reverse order is also possible. With prefix argument WITH-CASE, alphabetic sorting will be case-sensitive. 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) where the capital letter indicate that sorting should be done in reverse order. (defalias 'org-table-sort-lines #[(with-case &optional sorting-type) "\306\212\203\nb\210n\203\307\202\310\311\307`\"\\*\312 \306\211\306\211(\306\211)*\306\211+,\306\n\310\232\203Mt\203G\313\314\315!!\202I\307\316\n!\210\317 \210\320 \203o\321 \322 b\210\312 +\323 \fb\210\323\324!\202\261\312 +`\325 *\326 )\327-*\330#\203\216\323\324!\202\226*b\210\323\307!b\210\331-)\330#\203\252\323\310!\202\261)b\210\323 \332 \306\223\332 \f\306\223\333\f\"\210b\210\316+!\210\334\306x\210i\316+T!\210\334\306x\210iS(\316+!\210\335\336\337\f{\340\"\",\341,\342./$,\f|\210\306\211\223\210\f\306\211\223\210\343\344,\340#\340\261\210\345 !\210\316\n!\210\346\347,G+#.\207" [pos thisline thiscol beg end bcol nil 1 0 count-lines org-table-current-column string-to-number read-string "Use column N for sorting: " org-table-goto-column org-table-check-inside-data-field org-region-active-p region-beginning region-end point-at-bol 2 org-table-begin org-table-end re-search-backward t re-search-forward make-marker untabify "^|" mapcar #[(x) "\303 \nO!B\207" [x bcol ecol org-trim] 4] org-split-string "\n" org-do-sort "Table" mapconcat cdr goto-line message "%d lines sorted, based on column %d" ecol tend tbeg column lns org-table-hline-regexp with-case sorting-type] 6 (#$ . 231581) "P"]) #@70 Copy region in table to the clipboard and blank all relevant fields. (defalias 'org-table-cut-region #[(beg end) "\302 \303#\207" [beg end org-table-copy-region cut] 4 (#$ . 233944) "r"]) #@137 Copy rectangular region in table to clipboard. A special clipboard is used which can only be accessed with `org-table-paste-rectangle'. (defalias 'org-table-copy-region #[(beg end &optional cut) "\306\211\306\211\306\211\306\211\306\211\306\211\205$\307b\210\310 \210\306\212\203:b\210n\203B\311\202C\312\313\311`\"\\*\314 b\210\310 \210\306\212\203ab\210n\203i\311\202j\312\313\311`\"\\*\314 \n^\n] ^ ]\315\316\215\210\237\203\227\317 \210. \207" [l01 c01 l02 c02 l1 c1 nil " " org-table-check-inside-data-field 1 0 count-lines org-table-current-column exit (byte-code "\300\301\215\210\202" [nextline (byte-code " V\203\306\307\310\"\210\311!\210\312 \203\306\313T\211\"\210\314 \fTW\203:\315\f\"\nB\fT\211\202$\n\237BT\314\207" [l1 l2 cols c1 ic1 c2 throw exit t goto-line org-at-table-hline-p nextline nil org-table-get-field ic2 rpl region] 5)] 2) org-table-align l2 c2 ic1 ic2 region cols cut rpl beg pos end org-table-clip] 5 (#$ . 234140) "rP"]) #@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 #[nil "\203 <\204 \306\307!\210\310 \210\311\212\n\203\nb\210n\203$\312\202%\313\314\312`\"\\*\315 \316\311\211\311\211 \211A@\211\203\213\317 \203T\320\321!\210\202H\322 \204_\313\210\323 \210\f\211A@\211\203\204\324\311\325#\210\326\311\"\210T\202b\320\321!\210\202=\327!\210\324\f!\210\330 .\207" [org-table-clip clip pos line col org-enable-table-editor error "First cut/copy a region to paste!" org-table-check-inside-data-field nil 1 0 count-lines org-table-current-column t org-at-table-hline-p beginning-of-line 2 org-at-table-p org-table-next-field org-table-goto-column force org-table-get-field goto-line org-table-align org-table-automatic-realign c cols field] 5 (#$ . 235199) nil]) #@553 Convert from `org-mode' table to table.el and back. Obviously, this only works within limits. When an Org-mode 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-mode 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 #[nil "\302\303!\210\304 \2034\305 \306\307!\310\223\305 \311\307!\310\223\312 \"\210 b\210\313\314\307#\2030\315\316!\210\202! b*\207\317 \205\241\305 \306 \310\223\305 \311 \310\223\211b\210\313\320\307#\203Y\315\316!\210\202J b\210\321\322!\210\323\324!\210\323\325!\210`W\203t\321 \210\202d b\210\311 \310\223\313\326\307#\203\214\315\327!\210\202} b\210\313\330\307#\203\236\315\331!\210\202\217 b*\207" [end beg require table org-at-table\.el-p make-marker org-table-begin t nil 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 "^\$[ ]*\$|-" "\\1+-" "-|[ ]*$" "-+"] 5 (#$ . 236263) nil]) #@1180 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]' 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. (defalias 'org-table-wrap-region #[(arg) "\306 \210\307 \203{\310 \212b\210\311\212 \203 b\210n\203!\312\202\"\313\314\312`\"\\+\212b\210\315 )\311\316\310 \317 \"\210 @G\312V\203F\320\321!\210'\203_'\312W\203Z G'\\\202a'\202a G\322\323\324\325\326 \327#\311\f#\"\330\n!\210\331!\210\332 ,\207'\203\261\333 \315 ()\334\313!\210\335 \203\230\334\313!\210\202\214\331(!\210\336\311w\210\327\311x\210\327\337)!\261\210\340 *\207\341\342!\205\322\343\312!)\344\345!\210\313\224b\210\346 \210\337)!\327\261\210\340 )\207" [beg pos cline ccol nlines org-table-clip org-table-check-inside-data-field org-region-active-p region-beginning nil 1 0 count-lines org-table-current-column org-table-cut-region region-end error "Region must be limited to single column" mapcar list org-wrap mapconcat car " " goto-line org-table-goto-column org-table-paste-rectangle org-table-blank-field beginning-of-line org-at-table-hline-p "^|" org-trim org-table-align looking-at "\$[^|]+\$+|" match-string replace-match " |" org-table-next-row arg col s] 7 (#$ . 237610) "P"]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-field-marker default-boundp set-default nil] 3) #@218 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. (defalias 'org-table-edit-field #[(arg) "\203(\212\306\307x\210`)\212\310\307w\210`)\311\n \312#\210\313\303!\205&\205&\314 *\207\315 `\307\223\316 \317 \307\320\321!\210\322 \210\323c\210\324 \210d\211b\210\325!c\210\311\fd\326#\210\fb\210\327\330 !\331!! L\210*\332 !\331!! L\210*\333 !\331!! L\210*\334\335!,\207" [arg e b font-lock-mode p cw "^|" nil "^| \n" remove-text-properties (org-cwidth t invisible t display t intangible t) boundp font-lock-fontify-block make-marker org-table-get-field current-window-configuration switch-to-buffer-other-window "*Org tmp*" erase-buffer "#\n# Edit field and finish with C-c C-c\n#\n" org-mode org-trim (invisible t org-cwidth t display t intangible t) org-finish-function org-table-finish-edit-field make-variable-buffer-local org-window-configuration org-field-marker message "Edit and finish with C-c C-c" field pos value var] 4 (#$ . 240020) "P"]) #@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 #[nil " p\306eb\210\307\310\306\311#\203\312\313!\210\202\307\314\306\311#\203)\312\315!\210\202\316\317 !\320\f!\210\321!\210\322\323\324 !!!\210 b\210 \306\211\223\210\325 \210\326\306\n\"\210\327 \210\330\331!,\207" [org-field-marker org-window-configuration text cb cw pos nil re-search-forward "^#.*\n?" t replace-match "" "\$[ ]*\n[ ]*\$+" " " org-trim buffer-string 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"] 4 (#$ . 241172)]) #@51 Remove whitespace at beginning and end of string. (defalias 'org-trim #[(s) "\301\302\"\203\303\304\305\211$\301\306\"\203\303\304\305\211$\207" [s string-match "^[ ]+" replace-match "" t "[ ]+$"] 5 (#$ . 241962)]) #@435 Wrap string to either a number of lines, or a width in characters. If WIDTH is non-nil, the string is wrapped to that width, however many lines that costs. If there is a word longer than WIDTH, the text is actually wrapped to the length of that word. IF WIDTH is nil and LINES is non-nil, the string is forced into at most that many lines, whatever width that takes. The return value is a list of lines, without newlines at the end. (defalias 'org-wrap #[(string &optional width lines) "\306\307\"\310\311\312\313 \"\"\314\211 \203\315 \n ]\"\202S\203P\n\315 \n\"\211GX\2036\f\202S \211GV\203LT\315 \"\211\2029\f\202S\316\317!,\207" [string words maxword w ll width org-split-string "[ \n]+" apply max mapcar org-string-width nil org-do-wrap error "Cannot wrap this" lines] 6 (#$ . 242197)]) #@75 Create lines of maximum width WIDTH (in characters) from word list WORDS. (defalias 'org-do-wrap #[(words width) "\304\211\n\2032\n\211A@\n\203)G\n@G\\W\203)\305\n\211A@Q\202 B\211\202 \237*\207" [line lines words width nil " "] 4 (#$ . 243024)]) #@133 Splits STRING into substrings at SEPARATORS. No empty strings are returned if there are matches at the beginning and end of string. (defalias 'org-split-string #[(string &optional separators) "\206\306\307\310\211\311\f \n\203&\307\224U\203& GW\203&T\202'#\203Y\307\224 GW\203Y\312\307\224\307=\204S\307\224\307\225=\203K\307\224=\204S \307\224O B\307\225\202\f G=\204g \310O B \237,\207" [separators list notfirst start rexp string "[ \f \n ]+" 0 nil string-match t] 5 (#$ . 243297)]) #@58 Apply FUNCTION to the start of all tables in the buffer. (defalias 'org-table-map-tables #[(function) "\212\214~\210eb\210\304\305\306#\2031\307\310\311`_\312 \245\"\210\313\314!\210\315 !\203(\212\n \210)\304\305\314#\210\202*\307\316!\207" [org-table-any-line-regexp org-table-line-regexp function org-table-any-border-regexp re-search-forward nil t message "Mapping tables: %d%%" 100.0 buffer-size beginning-of-line 1 looking-at "Mapping tables: done"] 4 (#$ . 243820)]) #@605 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. (defalias 'org-table-sum #[(&optional beg end nlast) "\212\306\307\306\211\211\211\211)*\203+\204^\310 \203*\311 *\312 +\202^\313 )\314 b\210\315\316\306\317#\204>\320\321!\210\322)!\210`*\323 b\210\324\316\306\317#\204V\320\321!\210\322)!\210`+\325\326\327*+\"\",-\204s,\202\223-,GY\203\201,\202\223\330,!,-S,\233\306\241\210,\237.\331\306\332\333.\"\"/\325\334/\"0 \307U\203\264\335\3360\"\202\3270\337_\340\f\337\245!\341\f\337\"\340\f\342\245!\341\f\342\"\211\335\343\n $1\3441!\210t\203\360\345\346\347\335\350/G1#!\"\2101. \207" [org-table-clip s m h diff org-timecnt nil 0 org-region-active-p region-beginning region-end org-table-current-column org-table-begin re-search-forward "^[ ]*|[^-]" t 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-get-number-for-summing + format "%g" 3600 floor mod 60 "%d:%02d:%02d" kill-new message "%s" substitute-command-keys "Sum of %d items: %-20s (\\[yank] will insert result into buffer)" col beg end items nlast items1 numbers res sres] 8 (#$ . 244307) nil]) (defalias 'org-table-get-number-for-summing #[(s) "\305\306\307 \"\203\310\311\305\211 $\306\312 \"\203\310\311\305\211 $\313 !\306\314 \"\2034\306\315 \"\2034\316\202\212\306\317 \"\203?\305\202\212\306\320 \"\203\313\321\322 \"\206O\314!\313\321\323 \"\206Y\314!\313\321\324 \"\206c\314!\325\304!\203p\fT\326\n\327\245\\ \330\245\\_+\202\212\316\232\203\211\305\202\212)\207" [n s m h 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] 6]) #@86 Return the formula active for the current field. Assumes that specials are in place. (defalias 'org-table-current-field-formula #[nil "\306\307\212\203b\210n\203\310\202\311\312\310`\"\\*\313 D \"@\313 \314!\315\316\317 #\320 \321\n\"\206H\321 \"\206H\321\f\"\211\205`\322\323@\"\203[\324\202\\\325AP.\207" [pos org-table-named-field-locations name col scol ref rassoc nil 1 0 count-lines org-table-current-column int-to-string format "@%d$%d" org-table-current-dline org-table-get-stored-formulas assoc string-match "^[0-9]+$" "=" ":=" stored-list ass] 6 (#$ . 246724)]) #@120 Read a formula from the minibuffer, offer stored formula as default. When NAMED is non-nil, look for a named equation. (defalias 'org-table-get-formula #[(&optional equation named) "\306 \307\310\212 \203 b\210n\203\311\202\312\313\311`\"\\*\314 D\n\"@\315\316\317 \314 #\320\f\"&\203B\203>\202F\f\202F\321\314 !'\204P \205`&?\205`\322\323!?\205`\324\325!(\206g\f\310)\320'\"A\211*\203\211+\203\211\326\327+\"\203\211*\202\254+;\203\224+\202\254\330\315\331&\203\240\332\202\241\333'#*\206\252\334\335#,\310-\326\336,\"\204\312\337\320'\"\"\340!\210\324\341!\210\326\342,\"\203\333\343\334\344\211,$,\326\345,\"\203\354\343\334\344\211,$,\203&\204\337\320\"\"\344-*\203\320'\",\241\210\202',BB-\204&*,\232\204*\340!\210,.\207" [stored-list pos org-table-named-field-locations name ref refass org-table-get-stored-formulas rassoc nil 1 0 count-lines org-table-current-column format "@%d$%d" org-table-current-dline assoc int-to-string y-or-n-p "Replace field formula with column formula? " error "Abort" string-match "^ *=? *$" read-string "%s formula $%s=" "Field" "Column" "" org-table-formula-history "\\S-" delq org-table-store-formulas "Formula removed" "^ *=?" replace-match t " *$" named scol dummy org-table-may-need-update stored equation eq mustsave] 6 (#$ . 247338)]) #@53 Store the list of formulas below the current table. (defalias 'org-table-store-formulas #[(alist) "\301\302\"\212\303 b\210\304\305!\203\306\224b\210\306\224\307\225|\210\202 \310c\210\311\312\313\314#\315\261)\207" [alist sort #[(a b) "@ @\231\207" [a b] 2] org-table-end looking-at "\$[ ]*\n\$*#\\+TBLFM:\$.*\n?\$" 2 0 "#+TBLFM:" " " mapconcat #[(x) "\301@!\302\232\203 \303\202\304@\305AR\207" [x string-to-char 64 "" "$" "="] 4] "::" "\n"] 5 (#$ . 248721)]) #@72 Return an alist with the stored formulas directly after current table. (defalias 'org-table-get-stored-formulas #[nil "\306\211\211\211\211\211\212\307 b\210\310\311!\203`\312\313\314!\315\"\n\211A@\211\203`\316\317 \"\203\314\225\203;\313\314 \"\202?\313\320 \"\313\321 \" \fBB \235\203Y\322\323 \"\210\202 B\202)\237.\207" [seen string strings eq-alist eq scol nil org-table-end looking-at "\$[ ]*\n\$*#\\+TBLFM: *\$.*\$" org-split-string match-string 2 " *:: *" string-match "\$@[0-9]+\\$[0-9]+\\|\\$\\([a-zA-Z0-9]+\$\\) *= *\$.*[^ ]\$" 1 3 error "Double definition `$%s=' in TBLFM line, please fix by hand"] 6 (#$ . 249208) nil]) #@184 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. (defalias 'org-table-fix-formulas #[(key replace &optional limit delta remove) "\212\306 b\210\307\310!\205\205\311P \205#\312\232\203\313\314 \"\202#\313\315 \"\316\211\211 \203@\317 \320 \321#\203@\322\323!\210\2020\317\320 \321#\205\204\324\325!\326\f!\327\f\"\211\203h\322\nAP\321\211#\210\202@\203@V\203@\322\330\\!P\321\211#\210\202@-)\207" [key remove a n s re2 org-table-end looking-at "#\\+TBLFM:" "\$[0-9]+\$" "$" format "\$@[0-9]+\$?\\$%d=.*?\$::\\|$\$" "@%d\\$[0-9]+=.*?\$::\\|$\$" nil re-search-forward point-at-eol t replace-match "" match-string 1 string-to-number assoc int-to-string re replace limit delta] 5 (#$ . 249888)]) #@59 Get the column names and local parameters for this table. (defalias 'org-table-get-specials #[nil "\212\306 \307 \310\211\211\211\211\211\211\211\211\211\211\211\211\211'()*+,-./0\310\21112\310\21134\31050b\210\311\312/\313#\203}\314\315\316!\317\".\316).\211A.@\211-\203})T)\320\321-\"\203T-\322)!B1B1\202T1\2371\323\324\3251\326#\327Q60b\210\311\330/\313#\203\312\314\315\316!\317\",,\211A,@\211*\203\221\320\331*\"\203\242\315\316*\"\315\332*\"B2B2\202\2420b\210\311\333/\313#\203k\315\316!(\314\315\332!\317\",\212\334(\335\232\203\361\332\202\362\336!\210\3107\2127\2037b\210n\203 \316\202\n\336\337\316`\"\\*\316\340\341!\203!\314\315\316!\317\"+)+\203\316,\211A,@\211*\203\316+\211A+@'T*;\203\"';\203\"\320\321*\"\203\"*'B2B2*\fE3B3\202\"0b\210\3107\2127\203|7b\210n\203\204\316\202\205\336\337\316`\"\\*\2114\340\342!\203\274\316\225\203\236\343\202\237\344\nB\316\225\203\256 B\202\262 B\334\332!\210 T\202\217\345\346\n\237\"5\345\346\310 \237B\"8\345\346\310\237B\"\2119.\207" [hlines dlines types col line l org-table-begin org-table-end nil re-search-forward "^[ ]*| *! *\$|.*\$" t org-split-string match-string 1 " *| *" string-match "^[a-zA-Z][a-zA-Z0-9]*$" int-to-string "\\$\$" mapconcat car "\\|" "\$\\>" "^[ ]*| *\\$ *\$|.*\$" "^\$[a-zA-Z][a-zA-Z0-9]*\\|%\$ *= *\$.*\$" 2 "^[ ]*| *\$[_^]\$ *\$|.*\$" beginning-of-line "_" 0 count-lines looking-at "^[ ]*|[^|]*\$|.*\$" "[ ]*|\$-\$?" hline dline apply vector v c cnt field fields1 fields name names end beg org-table-column-names org-table-local-parameters org-table-named-field-locations org-table-current-begin-line org-table-current-line-types org-table-column-name-regexp pos org-table-dlines org-table-hlines] 17 (#$ . 250766)]) (defalias 'org-this-word #[nil "\212\302\303x\210`\302\303w\210`\304 \"+\207" [end beg "^ \n" nil buffer-substring-no-properties] 3]) #@93 Check if the current field starts with "=" or ":=". If yes, store the formula and apply it. (defalias 'org-table-maybe-eval-formula #[nil "\205D\304\305 \206\306!\307\211\310\311 \"\205C\312 !\313\232\314\315 \"\316\317!\2045\320\321G^O\322\232\203@\323\n\205;\324\"\202C\325\326!+\207" [org-table-formula-evaluate-inline field named eq org-trim org-table-get-field "" nil string-match "^:?=\$.*\$" string-to-char 58 match-string 1 fboundp calc-eval 0 2 "'(" org-table-eval-formula (4) error "Calc does not seem to be installed, and is needed to evaluate the formula"] 5 (#$ . 252763)]) #@99 List of commands triggering the recalculation of a line. Will be filled automatically during use. (defvar org-recalc-commands nil (#$ . 253375)) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list org-recalc-marks default-boundp set-default ((" " . "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."))] 3) #@349 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. (defalias 'org-table-rotate-recalc-marks #[(&optional newchar) "\306 \204 \307\310!\210\311\312\313\"\314\"\315 \316 \317\212\f\203!\fb\210n\203)\320\202*\321\322\320`\"\\*\323 \205P\324 \212\f\203A\fb\210n\203I\320\202J\321\322\320`\"\\*.\323 \205q\325 \212\f\203b\fb\210n\203j\320\202k\321\322\320`\"\\*/\212\nb\210\326\327\330#)?0\331 1\3322\"@3\317\21145.\203\251\333\334!\210\335\336 !2\3322\"@32\203\2713\204\271\307\3372\"\210.\203\303\340.!\210\212\341\320!\210\3426!\204\323\307\343!\210)0\204\346\344\320!\210\345 \210\3441T!\210\346 4\212\341\320!\210\347\320\342\350!\203\3513\206\352\320! \235\2117A@)\2115\351Q\202\353\"\210).\203^/\203^\340.!\210\341\354!\210\317\212\f\2031\fb\210n\2039\320\202:\321\322\320`\"\\*/U\204Y\3426!\203#\347\320\3515\351Q\"\210\202#\340.!\2104\346 U\204i\355 \210\340 !\210t\205y\333\3325\"A!.\207" [org-recalc-marks marks beg end pos l org-at-table-p error "Not at a table" append mapcar car (" ") org-table-begin org-table-end nil 1 0 count-lines org-region-active-p region-beginning region-end re-search-forward "^[ ]*|[^-|][^|]*[^#!$*_^| ][^|]*|" t org-table-current-column assoc message "Change region to what mark? Type # * ! $ or SPC: " char-to-string read-char-exclusive "Invalid NEWCHAR `%s' in `org-table-rotate-recalc-marks'" goto-line beginning-of-line looking-at "Not at a table data line" org-table-goto-column org-table-insert-column point-at-eol org-table-get-field "^[ ]*| *\$[#!$*^_ ]\$ *|" " " match-string " # " 2 org-table-align l1 l2 have-col col newchar forcenew epos new org-table-dataline-regexp x] 6 (#$ . 254134) nil]) #@78 Recompute the current line if marked for it, and if we haven't just done it. (defalias 'org-table-maybe-recalculate-line #[nil "\205; \n>\205%\306\212\f\203\fb\210n\203\307\202\310\311\307`\"\\*\232?\205;\212\312\307!\210\313 !)\205;\314 \205;\315\207" [org-table-allow-automatic-line-recalculation last-command org-recalc-commands org-last-recalc-line pos org-table-auto-recalculate-regexp nil 1 0 count-lines beginning-of-line looking-at org-table-recalculate t] 5 (#$ . 256165) nil]) #@91 Non-nil means, debug table formulas. When nil, simply write "#ERROR" in corrupted fields. (defvar org-table-formula-debug nil (#$ . 256672)) (make-variable-buffer-local 'org-table-formula-debug) (defalias 'org-set-calc-mode #[(var &optional value) ";\203\303\304\"\3058A@\n>\203\"\n>A \240\210\202(\210 \210\n\210\n\207" [var value modes assoc (("D" calc-angle-mode deg) ("R" calc-angle-mode rad) ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t)) 2] 3]) (put 'org-set-calc-mode 'byte-optimizer 'byte-compile-inline-expand) #@1865 Replace the table field value at the cursor by the result of a calculation. This function makes use of Dave Gillespie's Calc package, in my view the most exciting program ever written for GNU Emacs. So you need to have Calc installed in order to use this function. 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 `C-u' prefix, the current field must ba a named field, and the formula is installed as valid in only this specific field. When called with two `C-u' prefixes, 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-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. (defalias 'org-table-eval-formula #[(&optional arg equation suppress-align suppress-const suppress-store suppress-analysis) "\306 \210\204\n\307 \210 \310\232\203(\311 \211\204\312\313!\210\314\315\n\"\210\316 \210\317\211)\207\315 \250\2033 \2024\320\315\211@A \320VBC\203OD\203OC\202V\321C \322\232\"E\323 F\324G!H\315\211IJ\315\211KL\315\211MN\315\211OP\315\211QR\315\211ST\325\326E\"\203\364\327E\326\"\211U@E\330\331V\"AUA@PO\325\332O\"\203a\333\334\320O\"!S\335\334\336O\"!KS\337U\203\f\340KW\211X;\203\346\330X\341\"X\336X8WXA@XXH>\203\373XH>AW\240\210\202X\210W\210H\210H*H\202U\342\330S\343\"AKDW\211X;\2032\330X\341\"X\336X8WXA@XXH>\203GXH>AW\240\210\202PX\210W\210H\210H*H\344\345\317\211O$O\202\246\325\346O\"\203{\334\347O\"\350\232I\344\345\317\211O$O\325\351O\"\203\217\317J\344\345\317\211O$O\325\352O\"\203\350\334\347O\"\315W\211X;\203\271\330X\341\"X\336X8WXA@XXH>\203\316XH>AW\240\210\202\327X\210W\210H\210H*H\344\345\317\211O$O\202\217\325\353O\"\204\363\315O)Y\204Z\203\354E!E\355\320\356E#\206\357R \347V\203C\327\360 \361 {[\362\347[G\\[$\210[)\363\"I\2039\364\365\f\" S\324E!\211LG\336V\205PL\347\336O\366\232T\367L!L\325]L\"\203\205\344\370 ^\371\216\372\373\334\347L\"\315F#JIT$*\317\211L$L\202X\325\374L\"\203\270\344\370 ^\375\216\372\376\f\335\334\320L\"!\335\334\336L\"!#JIT$*\317\211L$L\202\205LM\325\377L\"\203 \320\224\203\323\335\334\320L\"!\202\325F\211KS\f8\211P\204\354\312\201b\334\347L\"\"\210\344\370 ^\201c\216\372P\315IT$*\317\211L$L\202\274T\203-\315\201d\201e\217\211Q\247\203&\201fQ!\202(QQ\202P\201g\201h!\204=\312\201i!\210\201hLHBI\205M\201j\"Q_\203\366\201k\220\201l\201m\201nREML%!\210Q<\203\217\201l\201m\201o\201pQ@\201q\"QA@#!\202\270\201l\201m\201rQO\206\242\201sO\203\264\201mO\335Q!\"\202\266Q$!\221\210\201t\201k!N\201uN!\210t\203\322 \203\366\315`\201v\201w!)\204\351\316 \210\312\201x!\210\201yN!\210\201z\345!\210Q<\203\315O\201{Q\201|O\203\201mO\335Q!\"\202Q!\210B\203= \347V\203=\201}\201~!\203=\201\201\200!\210\202\347\211\202B\203M\201\201 \210a\206X\205X\316 .\207" [suppress-analysis arg eq org-table-may-need-update fields ndown org-table-check-inside-data-field org-table-get-specials (16) org-table-current-field-formula error "No equation active for current field" org-table-get-field nil org-table-align t 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 "" "[NT]" 0 "N" "E" "[DRFS]" "\\S-" org-table-formula-substitute-names get-text-property :orig-formula "?" point-at-bol point-at-eol remove-text-properties " *| *" mapcar #[(x) "\301\302!!\207" [x number-to-string string-to-number] 3] "'(" org-rewrite-old-row-references match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-make-reference org-table-get-range "\\$\$[0-9]+\$\\.\\.\\$\$[0-9]+\$" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-sublist "\\$\$[0-9]+\$?" org-table-automatic-realign case-fold-search down equation suppress-store formula n0 org-calc-default-modes modes numbers keep-empty n form form0 bw fmt x ev orig c lispp tmp org-table-local-parameters value var suppress-const org-table-formula-use-constants s org-rm-props org-table-range-regexp save-match-data-internal org-table-formula-debug inhibit-redisplay suppress-align "Invalid field specifier \"%s\"" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) (byte-code "\301\211\302!!!\207" [form eval read] 4) ((error "#ERROR")) number-to-string fboundp calc-eval "Calc does not seem to be installed, and is needed to evaluate the formula" num "*Substitution History*" princ format "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" get-buffer-window shrink-window-if-larger-than-buffer y-or-n-p "Debugging Formula. Continue to next? " "Abort" delete-window message "#ERROR" org-table-justify-field-maybe looking-at ".*\n[ ]*|[^-]" call-interactively org-return org-table-maybe-recalculate-line] 11 (#$ . 257220) "P"]) #@229 Get a calc vector from a column, accorting 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. (defalias 'org-table-get-range #[(desc &optional tbeg col highlight) "\306!\307\232\204\f\310P\212 \204\311 \n\204\312 \313\212\203%b\210n\203-\314\202.\315\316\314`\"\\*\313\211\211\211\211\211\211\211&'()*+,\317-\"\204Y\320\321\"\210\322\225\314\225\205e\323\314\"'\324\225\205p\323\324\"&\325\225\205~\323\325\"\314\313O)\326\225\205\214\323\326\"\314\313O()\203\250\327)!\306)!\330>\203\244\n\202\245\315\\)(\203\302\327(!\306(!\331>\203\276\n\202\277\315\\('\332\232\203\314\313'&\332\232\203\326\313&'\203\341\333'!'&\203\354\333&!&'\204\365,'&\204\376,&)\204\n)(\204\n( \203\"'&U\203F)(U\203F\334'!\210\335.!\2045\336\325!\210\202'\337)!/\203\270\340``\"\210\202\270&'W\203X'&'\f&()W\203j)()\f(\334'!\210\335.!\204}\336\325!\210\202o\341)!\210`+\334&!\210\335.!\204\230\336\315!\210\202\212\341(!\210`*/\203\257\340+\342\313w\210`\"\210\343\344\345+*\"\".\n\207" [desc tbeg col pos tmp rangep string-to-char 64 "@" org-table-begin org-table-current-column nil 1 0 count-lines string-match error "Invalid table range specifier `%s'" 3 match-string 4 2 5 string-to-number (45 43) (45 43) "" org-table-get-descriptor-line goto-line looking-at beginning-of-line org-table-get-field org-table-highlight-rectangle org-table-goto-column "^|\n" apply append org-table-copy-region r2 r1 c2 c1 end beg thisline org-table-range-regexp org-table-dataline-regexp highlight] 9 (#$ . 263849)]) #@179 Analyze descriptor DESC and retrieve the corresponding line number. The cursor is currently in line CLINE, the table begins in line BLINE, and TABLE is a vector with line types. (defalias 'org-table-get-descriptor-line #[(desc &optional cline bline table) "\306\307\"\203 \310!H\207\n\206*\311\212\203b\210n\203#\312\202$\313\314\312`\"\\*\f\2060 \2068\306\315\"\203Z\316\225\204K\317\225\203Z\316\225\203_\317\225\203_\320\225\204_\321\322\"\210\323\225\205h\324\323\"\316\225\205t\316\225\316\224Z\320\225\205\324\320\"\317\225\205\214\310\324\317\"! \n\fZ!\317\225\205\245\312\225\203\243\316\225?\206\245\320\225\"\203\305\204\305\313!\325\313H\326=\203\305S\204\332 \203\332\204\332\321\327!\202\203\367\313V\203\367\330!\326\331\232\311&! \203\330!\332\331\232\" &!\f!\\.\207" [desc org-table-dlines cline pos bline org-table-current-begin-line string-match "^[0-9]+$" string-to-number nil 1 0 count-lines "^\$\\([-+]\$?\$I+\$\\)?\$\\([-+]\$?\$[0-9]+\$\\)?" 3 6 5 error "invalid row descriptor `%s'" 2 match-string "+" hline "should never happen" org-find-row-type "-" dline table org-table-current-line-types hdir hn odir on i rel] 7 (#$ . 265604)]) (defalias 'org-find-row-type #[(table i type backwards relative n) "G\n\306V\203O\f\203\307\202\310\\\211\203H\306Y\203H W\203HH =\204H\f\203 H\311=\203 \f\203C\307\202D\310Z\310\nS\211\202\306W\204[ Y\203a\312\313!\202b)\207" [table l n i backwards type 0 -1 1 hline error "Row descriptior leads outside table" relative] 3]) (defalias 'org-rewrite-old-row-references #[(s) "\301\302\"\203\303\304!\207\207" [s string-match "&[-+0-9I]" error "Formula contains old &row reference, please rewrite using @-syntax"] 3]) #@267 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 means to return something appropriate for a Lisp list. (defalias 'org-table-make-reference #[(elements keep-empty numbers lispp) ";\203+ \203\304\n\203\305!\202!\207\306\232\203\307\n\203)\310\305!!\207\207\2047\311\312\313\314\"\"\206<\315 \203R\316\304\n\203N\313\305\"\202O\317#\207\320\316\321\322#\323Q\207" [elements lispp numbers keep-empty prin1-to-string string-to-number "" "0" number-to-string delq nil mapcar #[(x) "\301\302\"\205\207" [x string-match "\\S-"] 3] ("0") mapconcat " " "[" #[(x) "\203\n\302\303 !!\207 \207" [numbers x number-to-string string-to-number] 3] "," "]"] 5 (#$ . 267437)]) #@126 Recalculate the current table line by applying all stored formulas. With prefix arg ALL, do this for all lines in the table. (defalias 'org-table-recalculate #[(&optional all noalign) " >\204\n B\306 \204\307\310!\210\n\311\232\203\312 \207\313 \210\314\315 \316\"\f?67\3178\2128\20398b\210n\203A\320\202B\321\322\320`\"\\*9\323 :\317\211;<\317\211=>\317\211?@\321A\317\211BC\317D\324\325\"\211A@\211B\203\232\326B@!\327X\203\220B>B>\202qB?B?\202q>\237>?\237?\n\203\356\330 \331 T\317\223<\332 \211;b\210\333E<\334#\203\311F7\202\373\3336<\334#\203\373\333G<\334#\203\373\3336<\334#\203\373\321\224;\202\373\335 ;\330 \336 T\317\223<;b\210\n\203\337\340!\210\3337<\334#\203u\341\342\343\320!\"\204\n\203(\337\344AT\211A\"\210\3178\2128\20358b\210n\203=\320\202>\321\322\320`\"\\*H>@@\211A@@\211=\203\345H!\210\346\347=@!\317\350#\210\351\317=A\352\353\354\355&\210\202J\3459!\210\346:!\210*\204\230I\203\216\356 \204\230\n\203\230\337\357A\"\210?\211A?@\211B\203\nB@D\360DJ\"\211C\204\324\341\361D\"\203\324DK\347\362\320D\"!H\347\362\363D\"!ECC\203\230\n\204\347CA@9\232\203\230\337\364D\"\210\345CA@!\210\346\363C8!\210\351\317BA\352\353\354\355&\210\202\230\337\365!\210\3459!\210\346:!\210*\206.I\203'\356 \206.\n\205.\337\365!.\207" [this-command org-recalc-commands all eqlist debug-on-error inhibit-redisplay org-at-table-p error "Not at a table" (16) org-table-iterate org-table-get-specials sort org-table-get-stored-formulas #[(a b) "@ @\231\207" [a b] 2] nil 1 0 count-lines org-table-current-column mapcar #[(x) "\301A!\241\210\207" [x org-table-formula-substitute-names] 3] string-to-char 57 make-marker org-table-end org-table-begin re-search-forward t point-at-bol point-at-eol message "Re-applying formulas to full table..." string-match "^ *[_^!$] *$" org-table-get-field "Re-applying formulas to full table...(line %d)" goto-line org-table-goto-column string-to-number force org-table-eval-formula noalign nocst nostore noanalysis org-table-align "Re-applying formulas to %d lines...done" assoc "@\$[0-9]+\$\\$\$[0-9]+\$" match-string 2 "Re-applying formula to field: %s" "Re-applying formulas...done" org-table-dataline-regexp line-re pos thisline thiscol beg end entry eqlnum eqlname eql cnt eq a name org-table-calculate-mark-regexp org-table-recalculate-regexp org-table-hline-regexp org-last-recalc-line org-table-may-need-update org-table-named-field-locations org-table-dlines] 8 (#$ . 268301) "P"]) #@57 Recalculate the table until it does not change anymore. (defalias 'org-table-iterate #[(&optional arg) "\203\n\305!\202\306\307\310 \311 {\312\313\314\215,\207" [arg thistbl lasttbl i imax prefix-numeric-value 10 0 org-table-begin org-table-end nil exit (byte-code " W\2038T\304\305!\210\306 \307 {\n\230\204\n\202\310V\203,\311\312\"\210\2020\311\313!\210\314\315\316\"\210\202\317\320\"\207" [i imax thistbl lasttbl org-table-recalculate all org-table-begin org-table-end 1 message "Convergence after %d iterations" "Table was already stable" throw exit t error "No convergence after %d iterations"] 3)] 4 (#$ . 270889) "P"]) #@41 Replace $const with values in string F. (defalias 'org-table-formula-substitute-names #[(f) "\306\307\310\f#\211\203(T\311\312\313\" \"\314\315\nAP\316\211$\202\306\310\317#\211\203VT\320 \321\216\322\312\313\"!*\211\203*\314\323\n\324Q\316\211$\202*\203d\325\306G\326 %\210+\207" [f f1 a start org-table-column-name-regexp org-table-column-names 0 nil string-match assoc match-string 1 replace-match "$" t "\\$\$[a-zA-Z][a-zA-Z0-9]*\$" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-get-constant "(" ")" put-text-property :orig-formula save-match-data-internal org-table-formula-debug] 6 (#$ . 271550)]) #@83 Find the value for a parameter or constant in a formula. Parameters get priority. (defalias 'org-table-get-constant #[(const) "\303 \"A\206\303\n\"A\206\304\305!\203\305!\206\306\207" [const org-table-local-parameters org-table-formula-constants assoc fboundp constants-get "#UNDEFINED_NAME"] 3 (#$ . 272260)]) (byte-code "\301B\302\301!\204\303\301\304 \"\210\305 \306\307#\210\305 \310\311#\210\305 \312\313#\210\305 \314\315#\210\305 \316\317#\210\305 \320\321#\210\305 \322\323#\210\305 \324\325#\210\305 \326\327#\210\305 \330\331#\210\305 \332\331#\210\305 \333\334#\210\305 \335\334#\207" [current-load-list org-edit-formulas-map default-boundp set-default make-sparse-keymap define-key "" org-finish-edit-formulas "" org-abort-edit-formulas "?" org-show-reference [(shift up)] org-table-edit-line-up [(shift down)] org-table-edit-line-down [(shift left)] org-table-edit-backward-field [(shift right)] org-table-edit-next-field [(meta up)] org-table-edit-scroll-down [(meta down)] org-table-edit-scroll [(meta tab)] lisp-complete-symbol "\211" [(tab)] org-edit-formula-lisp-indent " "] 4) #@62 Edit the formulas of the current table in a separate buffer. (defalias 'org-table-edit-formulas #[nil "\306 \204 \307\310!\210\311 \210\312 \313 `\314\223\315 \314\211\316\317!\210\320 \210\321\322 \210)\305\323+D,-\324-!,L\210*\325,-\324-!,L\210*\326\n,-\324-!,L\210*\327.!\210\330\331\332\333\211$\210\334\335\336G\337\340%\210c\210\f\211A@\211\203\242\341 @!\342\232\203\212\343\202\213\344 @\345 A\346\260\347\336G\350$\210c\210\202seb\210\351\352!-\207" [s entry wc pos eql font-lock-global-modes org-at-table-p error "Not at a table" org-table-get-specials org-table-get-stored-formulas make-marker nil current-window-configuration switch-to-buffer-other-window "*Edit Formulas*" erase-buffer (not fundamental-mode) fundamental-mode not make-variable-buffer-local org-pos org-window-configuration use-local-map org-add-hook post-command-hook org-table-edit-formulas-post-command t "# `C-c C-c' to finish, `C-u C-c C-c' to also apply, `C-c C-q' to abort.\n# `TAB' to pretty-print Lisp expressions, `M-TAB' to complete List symbols\n# `M-up/down' to scroll table, `S-up/down' to change line for column formulas\n\n" put-text-property 0 face font-lock-comment-face string-to-char 64 "" "$" " = " "\n" remove-text-properties (face nil) message "Edit formulas and finish with `C-c C-c'." major-mode value var org-edit-formulas-map] 6 (#$ . 273382) nil]) (defalias 'org-table-edit-formulas-post-command #[nil "\302>?\205\303 \212\304\305\306\217\210\307 !*\207" [this-command win (lisp-complete-symbol) selected-window nil (org-show-reference) ((error)) select-window] 3]) #@114 Parse the buffer for formula definitions and install them. With prefix ARG, apply the new formulas to the table. (defalias 'org-finish-edit-formulas #[(&optional arg) "\306 \210\307\211\211\307eb\210\310\311\307\312#\203I\313\225\203#\314\313!\202&\314\315!\314\316!\317 !\320\321 \"\203@\322\323\312\211 $\202/\n BB\202\324 !\210\325\326\327\f!!!\210\fb\210\330 \204a\331\332!\210\333!\210\f\307\211\223\210\334\335!\210\"\203y\336\337!\202|\340\341!,\207" [org-pos form var eql pos org-window-configuration org-table-remove-rectangle-highlight nil re-search-forward "^\$@[0-9]+\\$[0-9]+\\|\\$\\([a-zA-Z0-9]+\$\\) *= *\$.*\\(\n[ ]+.*$\$*\\)" t 2 match-string 1 3 org-trim string-match "[ ]*\n[ ]*" replace-match " " set-window-configuration select-window get-buffer-window marker-buffer org-at-table-p error "Lost table position - cannot install formulae" 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." arg] 5 (#$ . 275003) "P"]) #@57 Abort editing formulas, without installing the changes. (defalias 'org-abort-edit-formulas #[nil "\303 \210\304\n!\210\305\306\307 !!!\210 b\210 \310\211\223\210\311\312!)\207" [org-pos pos org-window-configuration org-table-remove-rectangle-highlight set-window-configuration select-window get-buffer-window marker-buffer nil message "Formula editing aborted without installing changes"] 4 (#$ . 276068) nil]) #@68 Pretty-print and re-indent Lisp expressions in the Formula Editor. (defalias 'org-edit-formula-lisp-indent #[nil "`\306\211\211\307\310!\210\311\312!\203b\210\313\314!\202\227\311\315!\203&b\202\227\316\317!\2042\320\321!\202\227\311\322!\203\226\323\225\324Zb\210`\325i\326\"\306\327\330\217\210`\214\n }\210\f =\203keb\210\306\331\332\306\333#\203\220\334\335!\210\202\\\317 \210\336ed\"\210eTb\210\331\337\306\333#\203\211\307\310!\210c\210\202wdb\210\340\310!\210)\nb\202\227\306,\207" [ind end beg pos last-command this-command nil beginning-of-line 1 looking-at "[ ]" call-interactively lisp-indent-line "[$@0-9a-zA-Z]+ *= *[^ \n']" fboundp pp-buffer error "Cannot pretty-print. Command `pp-buffer' is not available." "[$@0-9a-zA-Z]+ *= *'(" 0 2 make-string 32 (forward-sexp 1) ((error (error "Cannot pretty-print Lisp expression: Unbalanced parenthesis"))) re-search-forward "[ ]*\n[ ]*" t replace-match " " untabify "^." backward-delete-char] 4 (#$ . 276487) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-show-positions default-boundp set-default nil] 3) #@55 Show the location/value of the $ expression at point. (defalias 'org-show-reference #[(&optional local) "\300 \210\301\302\215\207" [org-table-remove-rectangle-highlight exit (byte-code "\203`\202 \306\307\310 \311\211\211\211\211\211\211@ABCDE\203-\312 \210\313F!\2038\314\202W\313\315!\203B\316\202W\313\317!\203L\320\202W\204T\311\202W\321\322!\211\205_\323\324!\211\203t\324\224\325 \232\204t\326\324\224\324\225\327#\210\330\331\332\"\210\f\316=\203\205\333\311O@\f\314=\203\233\334!\335\232\204\227\336P\337!\204\270\212\340\333!\210\341\342!\203\267\323\333!\326\333\224\333\225D#\210)\343E!\203\344\344E!\203\344\345\344E!!\203\333\346\345\344E!!!\210\202\344\347\345\344E!!!\210Eb\210\350 \210\n\203N\n\333\311O\351\352\n\"\203\353G\"\354 A@!\210\355\356 8!\210\202A\351\357\n\"\203:\360\323\333\n\"!\360\323\356\n\"!HI\354JIH!\210\355H!\210*\202A\355\360!!\210E`\311\223\210\361\311\211D#\210\n\232\204n\203n\f\314=\203f\311\362\363\217\210\202n\353@G\"\211\203\217\354 A@!\210\355\356 8!\210\361``\"\210\364\365\356 8 A@#\210\202n\353@K\"\211\203\316\355\360 A!!\210\361``\"\210\366 b\210\367\370@\371Q\372 \307#\203\307\333\224b\210\361 \210\364\373 A\"\210\202n\321\374!\210\202n\f\320=\203\355\355\360\333\311O!!\210\361``\"\210\364\375\333\311O\"\210\202n\353@L\"\211\203!\366 b\210\367\376@\377Q\311\307#\203\333\224b\210\361 \210\364\201P!\210\202n\321\201Q!\210\202n@\204-\321\322!\210\202n\353@M\"\211\203E\364\201R@ A#\210\202n\201S\201T!\205U\201T@!\211\203f\364\201U@ #\210\202n\321\201V@\"\210Eb\210A\203\270EABA\201W\201OA\"\201W\201NA\"NO\201XO!\203\246\201XN!\204\267Ob\210\201Y\310 \325 \"\210Eb\210*\346B!.\207" [local org-pos dest match what e highlight t selected-window nil org-table-get-specials org-at-regexp-p range "\\$[a-zA-Z][a-zA-Z0-9]*" name "\\$[0-9]+" column error "No reference at point" match-string 0 point-at-bol org-table-add-rectangle-overlay secondary-selection org-add-hook before-change-functions org-table-remove-rectangle-highlight 1 string-to-char 64 "@" org-table-formula-substitute-names beginning-of-line looking-at "\$\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\$=" markerp marker-buffer get-buffer-window select-window switch-to-buffer-other-window org-table-force-dataline string-match "^\\$[a-zA-Z][a-zA-Z0-9]*" assoc goto-line org-table-goto-column 2 "^@\$[0-9]+\$\\$\$[0-9]+\$" string-to-number org-table-highlight-rectangle (byte-code "\212\301\302\211\303$\210)\302\207" [match org-table-get-range nil highlight] 5) ((error)) message "Named field, column %d of line %d" org-table-begin re-search-forward "^[ ]*| *! *.*?| *\$" "\$ *|" org-table-end "Named column (column %s)" "Column name not found" "Column %s" "^[ ]*| *\\$ *.*?| *\$" "=\$" var org-show-positions win org-inhibit-highlight-removal face2 pos org-table-range-regexp2 org-table-named-field-locations c l org-table-dlines org-table-column-names org-table-local-parameters org-table-formula-constants max min "Local parameter." "Parameter not found" "Constant: $%s=%s in `org-table-formula-constants'." fboundp constants-get "Constant: $%s=%s, retrieved from `constants.el'." "Undefined name $%s" apply pos-visible-in-window-p set-window-start] 12)] 2 (#$ . 277631) nil]) #@51 Make sure the cursor is in a dataline in a table. (defalias 'org-table-force-dataline #[nil "\212\304\305!\210\306!)?\205S\212\307 \310\311#)\212\312 \310\311#)\n\203>\203>\313\n`Z!\313`Z!W\2039\n\202:b\202R\n\204F\203O\n\206Kb\202R\314\315!+\207" [org-table-dataline-regexp re p1 p2 beginning-of-line 1 looking-at re-search-forward nil move re-search-backward abs error "No table dataline around here"] 4 (#$ . 281000)]) #@58 Move cursor one line up in the window showing the table. (defalias 'org-table-edit-line-up #[nil "\300\301!\207" [org-table-edit-move previous-line] 2 (#$ . 281448) nil]) #@60 Move cursor one line down in the window showing the table. (defalias 'org-table-edit-line-down #[nil "\300\301!\207" [org-table-edit-move next-line] 2 (#$ . 281625) nil]) #@65 Move cursor one field backward in the window showing the table. (defalias 'org-table-edit-backward-field #[nil "\300\301!\207" [org-table-edit-move org-table-previous-field] 2 (#$ . 281802) nil]) #@64 Move cursor one field forward in the window showing the table. (defalias 'org-table-edit-next-field #[nil "\300\301!\207" [org-table-edit-move org-table-next-field] 2 (#$ . 282004) nil]) #@125 Move the cursor in the window shoinw the table. Use COMMAND to do the motion, repeat if necessary to end up in a data line. (defalias 'org-table-edit-move #[(command) "\306\307 \306\310\311\312!!!\210`\313 !\210\314 \203(\315 \203(\313 !\210\202\314 \2040 b\210`\306\223\210\310\n!,\207" [org-pos p win pos org-table-allow-automatic-line-recalculation command nil selected-window select-window get-buffer-window marker-buffer call-interactively org-at-table-p org-at-table-hline-p] 4 (#$ . 282198)]) (defalias 'org-table-edit-scroll #[(N) "\303!\304\n!)\207" [org-pos other-window-scroll-buffer N marker-buffer scroll-other-window] 2 nil "p"]) (defalias 'org-table-edit-scroll-down #[(N) "\301[!\207" [N org-table-edit-scroll] 2 nil "p"]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-table-rectangle-overlays default-boundp set-default nil] 3) #@20 Add a new overlay. (defalias 'org-table-add-rectangle-overlay #[(beg end &optional face) "\305 \"\306\n\303\206 \307#\210\n\fB\211)\207" [beg end ov face org-table-rectangle-overlays org-make-overlay org-overlay-put secondary-selection] 4 (#$ . 283104)]) #@42 Highlight rectangular region in a table. (defalias 'org-table-highlight-rectangle #[(&optional beg end face) "\206` \206` ^ ]\306\211\211\211\211\307\310!\2031BB ^b\210\306\212\203Cb\210n\203K\311\202L\312\313\311`\"\\*\314 ]b\210\306\212\203ib\210n\203q\311\202r\312\313\311`\"\\*\314 V\203\210 \n\315!\210\316\311!\210\fX\203\317\317!\203\302\320 !\210\321\306x\210`\320!\210\321\306w\210`\322 #\210\316\323!\210T\211\202\232*b\210.\324\325\326\"\207" [beg end tmp c2 l2 c1 nil boundp org-show-positions 1 0 count-lines org-table-current-column goto-line beginning-of-line looking-at org-table-goto-column "^|\n" org-table-add-rectangle-overlay 2 add-hook before-change-functions org-table-remove-rectangle-highlight l1 e b pos line #1=#:--cl-var-- org-table-dataline-regexp face] 7 (#$ . 283370)]) #@32 Remove the rectangle overlays. (defalias 'org-table-remove-rectangle-highlight #[(&rest ignore) "?\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 org-delete-overlay nil] 3 (#$ . 284268)]) #@70 Collects the cooordinate grid overlays, so that they can be removed. (defvar org-table-coordinate-overlays nil (#$ . 284607)) (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 #[nil "\306\307\"\210\310\212\311\211\310\211\211\211\211\211 \312 b\210\313 \205\223\314 \315\316 \316 T\"\211B\317!!\211\203I\320\321T\211\"\202R\320\322 T\211 \"\323\n\f\324\325$\210\203\214\311\326\327 \330#\203\214\311\224T\331\332T\211!P\315 \211\fG\\\"\211B\333\n\f\324\325$\210\202a\334\335!\210\202. \207" [org-table-coordinate-overlays beg ov ic str eol mapc org-delete-overlay nil 0 org-table-begin org-at-table-p point-at-eol org-make-overlay point-at-bol looking-at format "I*%-2d" "%4d" org-overlay-before-string org-formula evaporate re-search-forward "[+|]-+" t "$" int-to-string org-overlay-display beginning-of-line 2 hline ih id org-table-hline-regexp] 9 (#$ . 284799) nil]) #@53 Toggle the display of Row/Column numbers in tables. (defalias 'org-table-toggle-coordinate-overlays #[nil "?\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 "Row/Column number display turned %s" "on" "off" org-at-table-p org-table-align mapc org-delete-overlay nil] 3 (#$ . 285652) nil]) #@40 Toggle the formula debugger in tables. (defalias 'org-table-toggle-formula-debugger #[nil "?\301\302\203 \303\202\304\"\207" [org-table-formula-debug message "Formula debugging has been turned %s" "on" "off"] 3 (#$ . 286068) nil]) #@107 Variable controlling `orgtbl-mode', a minor mode enabling the `org-mode' table editor in arbitrary modes. (defvar orgtbl-mode nil (#$ . 286312)) (make-variable-buffer-local 'orgtbl-mode) #@27 Keymap for `orgtbl-mode'. (defvar orgtbl-mode-map (make-keymap) (#$ . 286505)) #@40 Unconditionally turn on `orgtbl-mode'. (defalias 'turn-on-orgtbl #[nil "\300\301!\207" [orgtbl-mode 1] 2 (#$ . 286590)]) #@38 Local variable used by `orgtbl-mode' (defvar org-old-auto-fill-inhibit-regexp nil (#$ . 286717)) #@40 Matches a line belonging to an orgtbl. (defconst orgtbl-line-start-regexp "[ ]*\$|\\|#\\+\\(TBLFM\\|ORGTBL\$:\\)" (#$ . 286820)) #@66 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) (#$ . 286958)) #@69 The `org-mode' table editor as a minor mode for use in other modes. (defalias 'orgtbl-mode #[(&optional arg) "\306=\203\n\307\310!\207 \203\311 !\312V\202\n?\211\203\221\313 \203'\314\313\315\"\210\302\236\211\2036\f\316\f\"B)\317\320*\321*! L\210*\322\323\324\325\326$\210\327*\321*! L\210*\330\203h+\331Q\202j+*\321*! L\210*\332\333!\210\334\335!\203\210\335\325,\"\210\336 \210\337-!\210\340\341!\207\342 \210\343\344!\210\345\323\324\320#\210\334\346!\203\261\346\325,\"\210\336 \210\347-!\210\350\351!\207" [major-mode arg orgtbl-mode minor-mode-map-alist c value org-mode message "Orgtbl-mode is not useful in org-mode, command ignored" prefix-numeric-value 0 orgtbl-setup defalias #[nil "\300\207" [nil] 1] delq org-table-may-need-update t make-variable-buffer-local org-add-hook before-change-functions org-before-change-function nil local org-old-auto-fill-inhibit-regexp auto-fill-inhibit-regexp "\\|" org-add-to-invisibility-spec (org-cwidth) fboundp font-lock-add-keywords org-restart-font-lock easy-menu-add run-hooks orgtbl-mode-hook org-cleanup-narrow-column-properties org-remove-from-invisibility-spec (org-cwidth) remove-hook font-lock-remove-keywords easy-menu-remove force-mode-line-update all var orgtbl-line-start-regexp orgtbl-extra-font-lock-keywords orgtbl-mode-menu] 6 (#$ . 287188) nil]) #@62 Remove all properties related to narrow-column invisibility. (defalias 'org-cleanup-narrow-column-properties #[nil "\302\303d\304 $\211\203\305\211T\306#\210\202\302\303d\307\302$\211\203.\305\211T\310#\210\202\302\303d\311\307$\211\205E\305\211T\312#\210\2020)\207" [s org-narrow-column-arrow 1 text-property-any display remove-text-properties (display t) org-cwidth (org-cwidth t) invisible (invisible t)] 5 (#$ . 288552)]) (byte-code "\301\302\303\304#\210\301\302\305\306#\210\307\302\310#\207" [orgtbl-mode-map put orgtbl-mode :included t :menu-tag "Org Table Mode" add-minor-mode " OrgTbl"] 4) #@228 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. (defalias 'orgtbl-make-binding #[(fun n &rest keys) "\303\304\305\306\307!P!\310\311\312 !\313\314\315\316\n\317#\320\260\321\322\323\324\325 DD\326\327\324\330\331\332\333\n\"\334#DEF\257!\207" [n fun keys eval defun intern "orgtbl-hijacker-command-" int-to-string (arg) "In tables, run `" symbol-name "'.\n" "Outside of tables, run the binding of `" mapconcat #[(x) "\301\302\"\207" [x format "%s"] 3] "' or `" "'." (interactive "p") if (org-at-table-p) call-interactively quote let (orgtbl-mode) append (or) mapcar #[(k) "\301D\207" [k key-binding] 2] ('orgtbl-error)] 17 (#$ . 289181)]) #@57 Error when there is no default binding for a table key. (defalias 'orgtbl-error #[nil "\300\301!\207" [error "This key is has no function outside tables"] 2 (#$ . 290010) nil]) #@23 Setup orgtbl keymaps. (defalias 'orgtbl-setup #[nil "\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327!\330D\331\332\333\334\335\336\337\340\341\342\343\257\344\211\211\211\f\211A@\211\203P T@A@\345 \n#\346@\n#\210\202,\346@\347\345\350\351\352\353$#\210\346@\353\345\350\354\353\355$#\210\346@\356\345\357\360\361\362$#\210\346@\362\345\357\363\362\364$#\210\346@\365\345\366\367\370\371\362%#\210\346@\372\345\373\374\372\375$#\210\346@\376\345\373\377\201B\372$#\210\346@\201C\201D#\210A\203\334\201E@\201F\201G\201H\201I\201J\201K&\210\346@\201L\201M#\210\201N\201O\201P\201Q#\210\201R\201O!\204\375\201S\201O\344\"\210\201T\201O@\201Q\201U$\210.\201V\207" [cmd fun key elt bindings nfunc 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-insert-hline) ("}" org-table-toggle-coordinate-overlays) ("{" org-table-toggle-formula-debugger) (" " org-table-next-row) org-key S-return org-table-copy-down ("" org-table-wrap-region) ("?" 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-create-or-convert-from-region) ("^" org-table-sort-lines) ([(control 35)] org-table-rotate-recalc-marks) nil orgtbl-make-binding define-key [(return)] orgtbl-ret 100 [(return)] " " 101 [(return)] [(tab)] orgtbl-tab 102 [(tab)] " " 103 [(tab)] [(shift tab)] org-table-previous-field 104 [(shift tab)] [(tab)] "\215" org-table-wrap-region 105 [(meta return)] [(meta return)] 106 orgtbl-mode-map orgtbl-optimized [(meta return)] "" orgtbl-ctrl-c-ctrl-c org-remap self-insert-command orgtbl-self-insert-command delete-char org-delete-char delete-backward-char org-delete-backward-char "|" org-force-self-insert put orgtbl-mode-menu variable-documentation "OrgTbl menu" default-boundp set-default easy-menu-do-define ("OrgTbl" ["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-"] ["Move Column Right" org-metaright :active (org-at-table-p) :keys "M-"] ["Delete Column" org-shiftmetaleft :active (org-at-table-p) :keys "M-S-"] ["Insert Column" org-shiftmetaright :active (org-at-table-p) :keys "M-S-"]) ("Row" ["Move Row Up" org-metaup :active (org-at-table-p) :keys "M-"] ["Move Row Down" org-metadown :active (org-at-table-p) :keys "M-"] ["Delete Row" org-shiftmetaup :active (org-at-table-p) :keys "M-S-"] ["Insert Row" org-shiftmetadown :active (org-at-table-p) :keys "M-S-"] ["Sort lines in region" org-table-sort-lines (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 (assq major-mode 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]) t] 28 (#$ . 290193)]) #@147 If the cursor is inside a table, realign the table. It it is a table to be sent away to a receiver, do it. With prefix arg, also recompute table. (defalias 'orgtbl-ctrl-c-ctrl-c #[(arg) "`\306\212\307\310!\210\311\312!\203\313\225\202%\311\314!\203 \202%\311\315!\205%\316)\250\203Jb\210\317 \210\n\203=\320\321!\210\202@\322 \210\320\323!\210\324\325!\202t\316=\203l\212\307\310!\210\326\306x\210\327 \205h\321\330\n\320!+)\202t\306\320\331\332!!)*\207" [action pos arg command current-prefix-arg orgtbl-mode 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 " \n " org-at-table-p t key-binding ""] 3 (#$ . 295425) "P"]) #@51 Justification and field motion for `orgtbl-mode'. (defalias 'orgtbl-tab #[(arg) "\203\301\302!\207\303 \210\304 \207" [arg org-table-edit-field t org-table-justify-field-maybe org-table-next-field] 2 (#$ . 296264) "P"]) #@51 Justification and field motion for `orgtbl-mode'. (defalias 'orgtbl-ret #[nil "\300 \210\301 \207" [org-table-justify-field-maybe org-table-next-row] 1 (#$ . 296493) nil]) #@210 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. (defalias 'orgtbl-self-insert-command #[(N) "\306 \2032\203 \307\235\203\310 \210\n\311=\2032\312\313!\2032\314\315\225Sb\210\316\311!\210\315\224b\210\317\n!)\207\320\314\321\322\323 !!!)\207" [org-table-auto-blank-field last-command N org-table-may-need-update orgtbl-mode 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) org-table-blank-field 1 looking-at "[^|\n]* +|" nil 0 delete-backward-char self-insert-command t call-interactively key-binding vector] 4 (#$ . 296672) "p"]) #@48 Needed to enforce self-insert under remapping. (defalias 'org-force-self-insert #[(N) "\301!\207" [N self-insert-command] 2 (#$ . 297534) "p"]) #@62 Regula expression matching exponentials as produced by calc. (defvar orgtbl-exp-regexp "^\$[-+]?[0-9][0-9.]*\$[eE]\$[-+]?[0-9]+\$$" (#$ . 297685)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-table-clean-did-remove-column-1 default-boundp set-default nil] 3) #@149 Send a tranformed version of this table to the receiver position. With argument MAYBE, fail quietly if no transformation is defined for this table. (defalias 'orgtbl-send-table #[(&optional maybe) "\300\301\215\207" [exit (byte-code "\306 \204 \307\310!\210t\203\311 \210\212\312 b\210\313\314!\210\315\316!\204/\203+\317\320\321\"\210\202/\307\322!\210)\323\324!\321\325\323\326!!\327\225\205I\330\331\323\327!\332Q!\333\f\334\"\333\f\335\"4\336\312 \337 \"5 \206b\314\3405\341\"\2336\3426!67\203y\326\202z\3248\343\3446\"98\326U\203\216\345\202\217\346:\347:;!48#;\347:\203\303\207\n\207" [i0 indices x :rm] 3]] 5 (#$ . 299928)]) #@43 Comment or uncomment the orgtbl at point. (defalias 'orgtbl-toggle-comment #[nil "\306\307! Q\306 P\212\310\311!\210\312\n!\203\313\202'\312!\203$\314\202'\315\316!)\211\2031\n\2022\314\211\212\310\311!\210\312 !\203K\310\317!\210\202>\310\320!\210`\312 !\203_\310\320!\210\202R`)\321\f\205m\322#.\207" [comment-start orgtbl-line-start-regexp re1 re2 commented re "^" regexp-quote beginning-of-line 1 looking-at t nil error "Not at an org table" 0 2 comment-region (4) beg end] 5 (#$ . 300273) nil]) #@64 Insert a radio table template appropriate for this major mode. (defalias 'orgtbl-insert-radio-table #[nil " \236\211A@\306\211\n\204\307\310\"\210\311\312!\313\314\"\203*\315\f\316\211$\202n\2041\317c\210`c\210 b,\207" [major-mode orgtbl-radio-table-templates e txt name pos nil error "No radio table setup defined for %s" read-string "Table name: " string-match "%n" replace-match t "\n"] 6 (#$ . 300811) nil]) #@298 Get parameter value for symbol SYM. If this is a header line, actually get the value for the symbol with an additional "h" inserted after the colon. If the value is a protperty list, get the element for the current column. Assumes variables VAL, PARAMS, HEAD and I to be scoped into the function. (defalias 'org-get-param #[(params header i sym &optional hsym) "\306 \"\203\f\203\306\"\206\n\n:\203\"\306\n \"\202#\n)\207" [params sym val hsym header i plist-get] 3 (#$ . 301248)]) #@2171 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. For the generic converter, some parameters are obligatory: You need to specify either :lfmt, or all of (:lstart :lend :sep). If you do not use :splice, you must have :tstart and :tend. Valid parameters are :tstart String to start the table. Ignored when :splice is t. :tend String to end the table. Ignored when :splice is t. :splice When set to t, return only table body lines, don't wrap them into :tstart and :tend. Default is nil. :hline String to be inserted on horizontal separation lines. May be nil to ignore hlines. :lstart String to start a new table line. :lend String to end a table line :sep Separator between two fields :lfmt Format for entire line, with enough %s to capture all fields. If this is present, :lstart, :lend, and :sep are ignored. :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 formats. for example :fmt (2 "$%s$" 4 "%s%%") :hlstart :hlend :hlsep :hlfmt :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. :efmt Use this format to print numbers with exponentials. 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 formats. :fmt will still be applied after :efmt. In addition to this, the parameters :skip and :skipcols are always handled directly by `orgtbl-send-table'. See manual. (defalias 'orgtbl-to-generic #[(table params) "\306 \307\"\306 \310\"\311\211\311\211 !\311\211\"#\311$\n\2044%@<\2034\303%>\2034\312$\n\204C\306 \313\"\206@\314\fB%\211A%@\211\203\254 \303=\203c\203]\fB\311$\202C\315 \316\317 \"\320 $ \321\322%\211#\203\206\323\324# #\fB\202C\320 $ \325\326%\327\330 \320 $ \331\332%#\320 $ \333\334%Q\fB\202C\n\204\273\306 \335\"\206\270\336\fB\327\330\f\237\337#.\n\207" [params p splicep hline rtn line plist-get :splice :hline nil t :tstart "ERROR: no :tstart" 0 mapcar #[(f) "T\306 \n\307\310%\306 \n\311$\211\203-\312 \"\203-\313\f\314\315\"\314\316\"#\2038\313\"\207" [i p h fm efm orgtbl-exp-regexp org-get-param :fmt :hfmt :efmt string-match format match-string 1 2 f] 7] org-get-param :lfmt :hlfmt apply format :lstart :hlstart mapconcat identity :sep :hsep :lend :hlend :tend "ERROR: no :tend" "\n" i fm efm lfmt h table] 11 (#$ . 301752) nil]) #@1141 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. Supports all parameters from `orgtbl-to-generic'. Most important for LaTeX are: :splice When set to t, return only table body lines, don't wrap them into a tabular environment. Default is nil. :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, use :fmt "$%s$". This may also be a property list with column numbers and formats. for example :fmt (2 "$%s$" 4 "%s%%") :efmt Format for transforming numbers with exponentials. The format should have %s twice for inserting mantissa and exponent, for example "%s\\times10^{%s}". LaTeX default is "%s\\,(%s)". This may also be a property list with column numbers and formats. The general parameters :skip and :skipcols have already been applied when this function is called. (defalias 'orgtbl-to-latex #[(table params) "\305\306\307#\310\311 \312Q\313\314\315\307\316\317\320\321\322\323\324\325\257\326\327\n\f\"\"*\207" [org-table-last-alignment alignment params2 table params mapconcat #[(x) "\203\301\207\302\207" [x "r" "l"] 1] "" :tstart "\\begin{tabular}{" "}" :tend "\\end{tabular}" :lstart :lend " \\\\" :sep " & " :efmt "%s\\,(%s)" :hline "\\hline" orgtbl-to-generic org-combine-plists] 14 (#$ . 304897)]) #@619 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. Currently this function recognizes the following parameters: :splice When set to t, return only table body lines, don't wrap them into a

environment. Default is nil. The general parameters :skip and :skipcols have already been applied when this function is called. The function does *not* use `orgtbl-to-generic', so you cannot specify parameters for it. (defalias 'orgtbl-to-html #[(table params) "\304\305\"\306\307\310\311\" \"\312\313\n\"\203\314\315\316\211\n$\n*\207" [params splicep html table plist-get :splice nil org-format-org-table-html mapcar #[(x) "\301=\203\302\207\303\304\305\306#\307Q\207" [x hline "|----+----|" "| " mapconcat identity " | " " |"] 5] string-match "\n+\\'" replace-match "" t] 5 (#$ . 306493)]) #@1126 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. Supports all parameters from `orgtbl-to-generic'. Most important for TeXInfo are: :splice nil/t When set to t, return only table body lines, don't wrap them into a multitable environment. Default is nil. :fmt fmt A format to be used to wrap the field, should contain %s for the original field value. For example, to wrap everything in @kbd{}, you could use :fmt "@kbd{%s}". This may also be a property list with column numbers and formats. for example :fmt (2 "@kbd{%s}" 4 "@code{%s}"). :cf "f1 f2.." The column fractions for the table. Bye default these are computed automatically from the width of the columns under org-mode. The general parameters :skip and :skipcols have already been applied when this function is called. (defalias 'orgtbl-to-texinfo #[(table params) "\306\307\310\"!\311\n\312\"\206\313\314\315#\316\317P\320\321\322\323\324\325\326\327\330\331\257\f\332 \333\f\n\"\"+\207" [org-table-last-column-widths total params colfrac params2 table float apply + plist-get :cf mapconcat #[(x) "\302\303\304! \245\"\207" [x total format "%.3f" float] 4] " " :tstart "@multitable @columnfractions " :tend "@end multitable" :lstart "@item " :lend "" :sep " @tab " :hlstart "@headitem " orgtbl-to-generic org-combine-plists] 12 (#$ . 307506)]) #@58 Apply replacements as defined in `org-link-abbrev-alist. (defalias 'org-link-expand-abbrev #[(link) "\306\307\"\203Y\310\311\"\312 \n\"\206\312 \"\313\225\205!\310\314\"\315\f\204-\202W\fA\2119\203= !\202W\306\316\"\203S\317 \206K\320\321\211$\202W P,\207\207" [link key org-link-abbrev-alist-local org-link-abbrev-alist as tag string-match "^\$[a-zA-Z]+\$\$::?\\(.*\$\\)?$" match-string 1 assoc 2 3 nil "%s" replace-match "" t rpl] 6 (#$ . 309172)]) #@63 Minibuffer history for links inserted with `org-insert-link'. (defvar org-insert-link-history nil (#$ . 309665)) #@50 Contains the links stored with `org-store-link'. (defvar org-stored-links nil (#$ . 309784)) #@77 Plist with info about the most recently link created with `org-store-link'. (defvar org-store-link-plist nil (#$ . 309883)) #@318 \Store an org-link to the current location. This link can later be inserted into an org-buffer with \[org-insert-link]. For some link types, a prefix arg is interpreted: For links to usenet articles, arg negates `org-usenet-links-prefer-google'. For file links, arg negates `org-context-in-file-links'. (defalias 'org-store-link #[(arg) "\306\211\306\211\211\211\211@A\307=\203A\310\311 !\312\311 !BC\313C\206*BP\314 !@\315\316\317\320C\321B&\210*\202\211A\322=\203l\314\323\324D!\325E$@\324D!\325EQ\315\316\326\327D\330E&\210\202\211A\331=\203\240\332 F\333G@\334\335\336\211\211FA@F@\337F8\306\211\211\257 \"\"@\315\316\340\341F$\210)\202\211A\342=\204\256A\343=\203(A\343=\203\270\344 \210\345 \210\212\346 \210H@IJK\347I!L\350I\351\"M\350I\352\"N\353I!?\315\316\354\355N\356M\357L\360?&\n\210\361?!?\362K!K\363\364\365O!PK\"\203\366\367\370\211K$K\371 \314\372K\373?$@.\202\211A\374=\203\252\375 P\376QP\377#?\201c\201d!\203Q\201dQP\"\202[\201eP\201f \"R\201g N\201hR\201M\"@M\306\211ST\201i *L\315\316\201j\355N\356M\357L\360?&\n\210\361?!?\371 \314\201kU\373?$@.\202\211A\201l\232\204\274A\201m\232\203\201n\201o!\201n\201p!\201n\201q!\201n\201r!L?MN\315\316\201s\355N\356M\357L\360?&\n\210\371 \314\201t\201u \373\361?!$@,\202\211A\201v=\203q\212\214\201w \210J\201x\201y!\201x\201z!\201x\201{!\201x\201|!LMN?K\315\316\201}\355N\356M\357L\360?&\n\210\361?!?\371 \314\201~K\373?$@.\202\211A\201=\203\332\201c\201\200!\203\213\201\200 \202\237\201c\201\201!\203\234\201\201 \202\237\201\202\211V\204\255\201\203\201\204!\210\315\316\201\205\201\206V$\210\201\207WX\"\203\312\201\210\202\315\201\211VP\314 !@)\202\211A\201\212>\203\320A\201\213=\203\361\201\214 \210YV\201\215`\201\216\"\211M\203\n\201\217M!\210)\201\215`\201\220\"\206\201\221 Z\201\222Z[\2368\211\\\337HN\\\201\223H?\\\201\222H]\201\222\201\215`\201\216\"\211M\203T\201\217M!\210)\201\215`\201\220\"\206d\201\221 [\2368\211^\205}\201\224^!\205}^\201\225H)L\315\316\201\205\355N\357L\360?\201\206V&\n\210\371 \201\207WX\"\203\273 \201\226\201\227\201\230\201\231?!\"Q@\202\313\314\201\211V\373\201\232Z!$@.\202\211A\201\233=\203\366\201\234\370!\314 !@\315\316\201\235\201\236\201\234\370!$\210\202\211A\201\237=\203_\206`\314`!@\315\316\201\240\201\236\201\234\370!$\210\202\211\201\241\201\242!\211\203C\201\243\362J!\201\244\nR@\206?@\202\211A\201\245=\203g\201\243\362J!P\314 !@\315\316\201\246\327J$\210\202\211A\201\247=\203\211\201\243\362\201\250\201\251\306\370\"!!P\314 !@\202\211J\203!A\201\252=\203!\201\243\362J!P\201\207aW\"\203 \201\253\201\254!\203\305 \201\244\201\255\201\225!Q\202 \201\256 \203\320\306\202\354\201\257 \203\343\201\260 \201\261 {\202\354\201\262 \201\263 {\211\203\372\363\201\264 \"\203 \201\244\201\265 !Q\201\266\363\201\267 \"\203 \336\201\270O\314 !@\202\211J\203w\201\243\362J!P\201\207aW\"\203o\201\257 \203M\201\260 \201\261 {\202V\201\262 \201\263 {\363\201\264 \"\203o \201\244\201\265 !Q\201\266\314 !@\202\211t\203\206\201\203\201\271!\210\202\211\306@@:\203\230@@@A@@\206\236 @\f\206\245 \211\201\266\232\203\260\306t\203\323@\203\323 @\fEbBb\201I\201\272 \206\317@\"\202\332\201\273@\f\".\207" [org-store-link-plist txt search description desc cpltxt nil bbdb-mode bbdb-record-name bbdb-current-record bbdb-record-company "bbdb:" org-make-link org-store-link-props :type "bbdb" :name :company Info-mode "info:" file-name-nondirectory ":" "info" :file :node calendar-mode calendar-cursor-to-date format-time-string apply encode-time 0 2 "calendar" :date vm-summary-mode vm-presentation-mode vm-summarize vm-follow-summary-cursor vm-select-folder-buffer vm-su-subject vm-get-header-contents "To" "From" vm-su-message-id "vm" :from :to :subject :message-id org-remove-angle-brackets abbreviate-file-name string-match "^" regexp-quote replace-match "" t org-email-link-description "vm:" "#" wl-summary-mode wl-summary-message-number elmo-message-field message-id link major-mode company name Info-current-file Info-current-node cd org-time-stamp-formats vm-message-pointer message buffer-file-name folder subject to from vm-folder-directory msgnum wl-summary-buffer-elmo-folder wl-message-entity wl-parent-message-entity wl-thr-indent-string wl-summary-buffer-folder-name group arg org-usenet-links-prefer-google gnus-newsgroup-name article gnus-newsgroup-data header date headers w3m-current-title w3m-current-url org-context-in-file-links org-stored-links fboundp elmo-message-entity elmo-msgdb-overview-get-entity wl-summary-buffer-msgdb wl-summary-line-from elmo-message-entity-field wl-summary-line-subject "wl" "wl:" mh-folder-mode mh-show-mode org-mhe-get-header "From:" "To:" "Message-Id:" "Subject:" "mh" "mhe:" org-mhe-get-message-real-folder rmail-mode rmail-narrow-to-non-pruned-header mail-fetch-field "message-id" "from" "to" "subject" "rmail" "rmail:" gnus-group-mode gnus-group-group-name gnus-group-name "???" error "Not on a group" "gnus" :group org-xor "http://groups.google.com/groups?group=" "gnus:" (gnus-summary-mode gnus-article-mode) gnus-article-mode gnus-article-show-summary get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 4 vectorp 1 "\n " format "http://groups.google.com/groups?as_umsgid=%s" org-fixup-message-id-for-http number-to-string w3-mode url-view-url "w3" :url w3m-mode "w3m" run-hook-with-args-until-success org-create-file-search-functions "file:" "::" image-mode "image" dired-mode expand-file-name dired-get-filename org-mode org-in-regexp "<<\$.*?\$>>" match-string org-on-heading-p org-region-active-p region-beginning region-end point-at-bol point-at-eol "\\S-" org-make-org-heading-search-string "NONE" "::\\'" -2 "Cannot link to a buffer which is not visiting a file" "Stored: %s" org-make-link-string] 14 (#$ . 310014) "P"]) #@53 Store link properties, extract names and addresses. (defalias 'org-store-link-props #[(&rest plist) "\306\211\307\n\310\"\211\203 \311 !\312\n\313@#\210\312\n\314A@#\210\307\n\315\"\211\203<\311 !\312\n\316@#\210\312\n\317A@#\210*\307\n\310\"\307\n\315\"\211\203d\203d \203d\312\n\320\321 \f\"\203a\322\202b\323#\210*\n\211\207" [adr x plist to from org-from-is-user-regexp nil plist-get :from mail-extract-address-components plist-put :fromname :fromaddress :to :toname :toaddress :fromto string-match "to %t" "from %f" org-store-link-plist] 7 (#$ . 316238)]) #@182 Return the description part of an email link. This takes information from `org-store-link-plist' and formats it according to FMT (default from `org-email-link-description-format'). (defalias 'org-email-link-description #[(&optional fmt) "\206 \n\306\307\"\306\310\"\311\306\312\"B\313\306\314\"B\315\306\316\"\206.\306\310\"\206.\317B\320\306\321\"B\322\306\323\"\206E\306\307\"\206E\317B\324\306\325\"B\326\306\327\"B\257 \330\311\"\203\212!\203\203 \203\203\f\203\203\331 \"\332\216\330! \"*\203\203\333\334\335\211$\202\212\333\336\335\211$\337 \",\207" [fmt org-email-link-description-format org-store-link-plist p to from plist-get :toaddress :fromaddress "%c" :fromto "%F" :from "%f" :fromname "?" "%T" :to "%t" :toname "%s" :subject "%m" :message-id string-match match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) replace-match "to %t" t "from %f" org-replace-escapes table org-from-is-user-regexp save-match-data-internal] 10 (#$ . 316828)]) #@52 Make search string for STRING or current headline. (defalias 'org-make-org-heading-search-string #[(&optional string heading) "\206\306 \203\n\203U\307 \"\203\310\311\312\211 $\307\313 \"\203+\310\311\312\211 $\314 !\307\315\f\316 \317\260 \"\203C\310\311\312\211 $\307 \"\203U\310\311\312\211 $\202C\307\320 \"\203f\310\321\312\211 $\202U\204n\322 P\323\324\325 \326\"\321#)\207" [string s heading org-todo-regexp org-quote-string org-comment-string org-get-heading string-match replace-match "" t ":[a-zA-Z_@0-9:]+:[ ]*$" org-trim "^\$" "\\|" "\$" "[^a-zA-Z_0-9 ]+" " " "*" mapconcat identity org-split-string "[ ]+" org-ts-regexp] 6 (#$ . 317870) nil]) #@70 Concatenate STRINGS, format resulting string with `org-link-format'. (defalias 'org-make-link #[(&rest strings) "\301\302\"\207" [strings apply concat] 3 (#$ . 318566)]) #@64 Make a link with brackets, consisting of LINK and DESCRIPTION. (defalias 'org-make-link-string #[(link &optional description) ";\203\302\303\"\203\304\305\306\211$\202\307 !\232\203 \310\204. \307 !\232\204. \311\307 !\312\203>\313\312Q\202?\305\312\260\207" [description link string-match "\\[\\|\\]" replace-match "" t org-link-escape nil "[[" "]" "["] 6 (#$ . 318743)]) #@71 Association list of escapes for some characters problematic in links. (defconst org-link-escape-chars '(("[" . "%5B") ("]" . "%5D") (" " . "%20")) (#$ . 319144)) #@58 Escape charaters in TEXT that are problematic for links. (defalias 'org-link-escape #[(text) "\205$\303\304 \305#\306\n\"\203\"\307\310\311\312\" \"A\313\211$\202\n)\207" [text org-link-escape-chars re mapconcat #[(x) "\301@!\207" [x regexp-quote] 2] "\\|" string-match replace-match assoc match-string 0 t] 5 (#$ . 319312)]) #@42 Reverse the action of `org-link-escape'. (defalias 'org-link-unescape #[(text) "\205$\303\304 \305#\306\n\"\203\"\307\310\311\312\" \"@\313\211$\202\n)\207" [text org-link-escape-chars re mapconcat #[(x) "\301A!\207" [x regexp-quote] 2] "\\|" string-match replace-match rassoc match-string 0 t] 5 (#$ . 319655)]) #@15 Exclusive or. (defalias 'org-xor #[(a b) "\203 ?\207 \207" [a b] 1 (#$ . 319985)]) #@44 Find a header field in the current buffer. (defalias 'org-get-header #[(header) "\212eb\210\303\304\n\305=\203<\306\307\304\303#\203\310\311!\312\313\"\203+\314\315\303\211$\202\312\316\"\203c\314\315\303\211$\202c\n\317=\203Q\306\320\304\303#\203c\310\311!\202c\n\321=\203c\306\322\304\303#\203c\310\311!\312\323\"\203q\314\315\303\211$\312\324\"\203\314\315\303\211$+\207" [s case-fold-search header t nil from re-search-forward "^From:\\s-+\$.*\$" match-string 1 string-match "\"" replace-match "" "[<(].*" message-id "^message-id:\\s-+\$.*\$" subject "^subject:\\s-+\$.*\$" "\\`[ ]+" "[ ]+\\'"] 5 (#$ . 320077)]) #@81 Replace special characters in a message id, so it can be used in an http query. (defalias 'org-fixup-message-id-for-http #[(s) "\301\302\"\203\303\304\305\211$\202\301\306\"\203\"\303\307\305\211$\202\301\310\"\2033\303\311\305\211$\202\"\207" [s string-match "<" replace-match "%3C" t ">" "%3E" "@" "%40"] 5 (#$ . 320742)]) #@1188 Insert a link. At the prompt, enter the link. Completion can be used to select a link previously stored with `org-store-link'. When the empty string is entered (i.e. if you just press RET at the prompt), the link defaults to the most recently stored link. As SPC triggers completion in the minibuffer, you need to use M-SPC or C-q SPC to force the insertion of a space character. You will also be prompted for a description, and if one is given, it will be displayed in the buffer instead of the link. If there is already a link at point, this command will allow you to edit link and description parts. With a \[universal-argument] prefix, prompts for a file to link to. The file name can be selected using completion. The path to the file will be relative to the current directory if the file is in the current directory or a subdirectory. Otherwise, the link will be the absolute path as completed in the minibuffer (i.e. normally ~/path/to/file). With two \[universal-argument] prefixes, enforce an absolute path even if the file is in the current directory or below. With three \[universal-argument] prefixes, negate the meaning of `org-keep-stored-link-after-insertion'. (defalias 'org-insert-link #[(&optional complete-file) "\306 \205\307 \310 {\307 \310 |\210\311\211\211\211\211\211;\312<\313\"\203U\314\224\314\225D\315\225\205>\315\311=>\316>=\"*\317\320\321\313\311=>\316>=\"*!\"\202@\312?!\204c\312@!\203u\314\224\314\225D\317\320\322\323\314!!\"\202@A\324\232\203\340\325\326!\327\330\331!!\327\332\330\331!!!BCA\333\232\203\243\334\335\332\330!!\"\202\334\336\337\340B!\341Q\"\203\273\334\335\323\313\"\"\202\334\336\337\340C!\341Q\330!\"\203\327\334\335\323\313\330!\"\"\202\334\334\335\"*\202@\342\343\344D\"E\"\345\320D\311\211\211\305D@@&\346\fD\"\211\204 \fEBEA\347\232\203\350\202\351F?!\203'\352\346\fD\"D\"D\n\2031\nA@\2022\f;\206?\206?\353\n8\336@\f\"\203N\334\322\f!!G\203\336\354\f\"\203\323\313\f\"H\311I\323\353\f\"J\355 K\356\216\357G!\357H!\232\203~J-\336\360\f\"\203\352\323\313\f\"H\311IL\361=\203\241\332\330H!!H\202\344L\362=\203\261\330H!H\202\344L\363=\203\301\364H!H\202\344\355 K\365\216\336\337\340\327\330\331!!!P\330H!\"\203\343\330H!\314\225\311OH*\335HP*\317\366\"\336\367\"\204\370\311 \203\370\371 \"\210\372\f\"c.\207" [file remove entry desc link tmphist org-region-active-p region-beginning region-end nil org-in-regexp 1 0 3 match-string-no-properties read-string "Link: " org-link-unescape org-remove-angle-brackets match-string (4) read-file-name "File: " file-name-as-directory expand-file-name "." abbreviate-file-name (16) org-make-link "file:" string-match "^" regexp-quote "\$.+\$" append mapcar car org-completing-read assoc (64) not identity delq 2 "\\]+\\)" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-truename "\\" format "Execute \"%s\" in shell? " org-add-props face org-warning message "Executing %s" shell-command "Abort" "elisp" "Execute \"%s\" as elisp? " "%s => %s" eval read browse-url-at-point] 8 (#$ . 326690) "P"]) #@1041 List of functions to construct the right search string for a file link. These functions are called in turn with point at the location to which the link should point. A function in the hook should first test if it would like to handle this file type, for example by checking the major-mode or the file extension. If it decides not to handle this file, it should just return nil to give other functions a chance. If it does handle the file, it must return the search string to be used when following the link. The search string will be part of the file link, given after a double colon, and `org-open-at-point' will automatically search for it. If special measures must be taken to make the search successful, another function should be added to the companion hook `org-execute-file-search-functions', which see. A function in this hook may also use `setq' to set the variable `description' to provide a suggestion for the descriptive text to be used for this link when it gets inserted into an Org-mode buffer with \[org-insert-link]. (defvar org-create-file-search-functions nil (#$ . 331196)) #@1006 List of functions to execute a file search triggered by a link. Functions added to this hook must accept a single argument, the search string that was part of the file link, the part after the double colon. The function must first check if it would like to handle this search, for example by checking the major-mode or the file extension. If it decides not to handle this search, it should just return nil to give other functions a chance. If it does handle the search, it must return a non-nil value to keep other functions from trying. Each function can access the current prefix argument through the variable `current-prefix-argument'. Note that a single prefix is used to force opening a link in Emacs, so it may be good to only use a numeric or double prefix to guide the search function. In case this is needed, a function in this hook can also restore the window configuration before `org-open-at-point' was called using: (set-window-configuration org-window-config-before-follow-link) (defvar org-execute-file-search-functions nil (#$ . 332304)) #@382 Search for a link search option. If S is surrounded by forward slashes, it is interpreted as a regular expression. In org-mode files, this will create an `org-occur' sparse tree. In ordinary files, `occur' will be used to list matches. If the current buffer is in `dired-mode', grep will be used to search in all files. If AVOID-POS is given, ignore matches near that position. (defalias 'org-link-search #[(s &optional type avoid-pos) "\306\307\310\311\312\"\313#`\314\211\315\211\211\211\211\211\211\211\211789:;<=>?\316\317\"\204l\212eb\210\320\321\322>!\323Q\315\306#\205J\324\224\211=)\203U=b\210\202l\325\326\"\203w@\327=\203m\330\331\332\"!\210\202l\333\331\332\"!\210\202l\334!\335\232\203\212\336<\337;\332\315O\340\324G\341$\210\311\342\":\343\322>!\344Q9\345\307\346:\347#\350Q7\345\307\346:\312#\350Q\351\307\346:\352#\353Q<7;Q8<\f;Q<\354\fQ<7P7<\nP<\fP\3559\3568\3567\356 \356\f\356\357\260 A\330=\203\330 !\210\202lA\360=\203\333 \227\361\"\210\202leb\210\362\3329\315\306$\204]\362\3328\315\306$\204]\362\3327\315\306$\204]\362\332\n\315\306$\204]\362\332 \315\306$\204]\362\332\f\315\306$\204]\362\332\315\306$\203d\332\224b\210\202l=b\210\363\364!\210@\327=\205v\365\366!.\207" [s reall re2a re5 re4 re3 t mapconcat identity org-split-string "[ \n]+" " " "" nil run-hook-with-args-until-success org-execute-file-search-functions re-search-forward "<<" regexp-quote ">>" 0 string-match "^/\$.*\$/$" org-mode org-occur match-string 1 org-do-occur string-to-char 42 "^\\*+[ ]*\$?:\\sw+\$?[ ]*" "[ ]*\$?:[ ]+:[a-zA-Z_@0-9:+]:[ ]*\$?$" remove-text-properties (face nil mouse-face nil keymap nil fontified nil) "[ \n ]+" "\$<<" ">>\$" "[ \n]\$" downcase "[ ]+" "\$[ \n]" "[^a-zA-Z_]\$" "[^a-zA-Z_ \n]+" "\$[^a-zA-Z_]" ".*" "\$" "\$\\|\$" "\$" occur cleanup org-search-not-self error "No match" org-show-context link-search re2 re1 re0 words post pre pos s0 case-fold-search major-mode type] 14 (#$ . 333377)]) #@114 Execute `re-search-forward', but only accept matches that do not enclose the position of `org-open-link-marker'. (defalias 'org-search-not-self #[(group &rest args) "\302\303\215)\207" [org-open-link-marker m exit (byte-code "\305\306\"\205O \225b\210\307\n!p=\203%\310\224\311\n!V\204%\310\225\311\n!W\203\312 \313\216\314\f\315\"?\206C\316\225?\206C\316\224`X\205C\316\225`Y*\203\317\320`\"\210\202\207" [args group m save-match-data-internal org-bracket-link-analytic-regexp apply re-search-forward marker-buffer 0 marker-position match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-in-regexp 1 4 throw exit] 3)] 2 (#$ . 335431)]) #@78 Return a buffer to be used for displaying the link target of internal links. (defalias 'org-get-buffer-for-internal-link #[(buffer) "\204 \207\305\306\307 !\"\203\310\311!\210 \207\307 !\211\312P\313!\206(\314 \315#r\fq\210\316 \210)\f+\207" [org-display-internal-link-with-indirect-buffer buffer bn ibn ib string-match "(Clone)$" buffer-name message "Buffer is already a clone, not making another one" "(Clone)" get-buffer make-indirect-buffer clone org-overview] 5 (#$ . 336136)]) #@186 Call the Emacs command `occur'. If CLEANUP is non-nil, remove the printout of the regular expression in the *Occur* buffer. This is useful if the regex is long and not useful to read. (defalias 'org-do-occur #[(regexp &optional cleanup) "\306!\210 \205N\307 \310\211\211\311\312!\211\203\313\f!\210eb\210\314\315\310\316#\2037\317\225\314\320\310\316#\2037\317\224S\203G\n\203G\310\n|\210)eb\210\313 !,\207" [regexp cleanup end beg win cwin occur selected-window nil get-buffer-window "*Occur*" select-window re-search-forward "match[a-z]+" t 0 "^[ ]*[0-9]+" buffer-read-only] 4 (#$ . 336637)]) #@51 Mark ring for positions before jumps in Org-mode. (defvar org-mark-ring nil (#$ . 337259)) #@49 Last position in the mark ring used to go back. (defvar org-mark-ring-last-goto nil (#$ . 337356)) (byte-code "\305\211\306\n\fX\203\307 B\nT\211\202 *S\233\241\207" [org-mark-ring org-mark-ring-last-goto i org-mark-ring-length #:--cl-var-- nil 1 make-marker] 4) #@67 Put the current position or POS into the mark ring and rotate it. (defalias 'org-mark-ring-push #[(&optional pos buffer) "\206` S\n\233\211@\206`\206p\223\210\304\305\306!!\207" [pos org-mark-ring-length org-mark-ring buffer message substitute-command-keys "Position saved to mark ring, go back with \\[org-mark-ring-goto]."] 4 (#$ . 337639) nil]) #@329 Jump to the previous position in the mark ring. With prefix arg N, jump back that many stored positions. When called several times in succession, walk through the entire ring. Org-mode commands jumping to a different position in the current file, or to another Org-mode file, automatically push the old position onto the ring. (defalias 'org-mark-ring-goto #[(&optional n) "\306\211\n=\203\f \206 \233\202 @\307\310!!\210b\210\311 \2041\312 \2054\313\314!*\207" [m p last-command this-command n org-mark-ring-last-goto nil switch-to-buffer marker-buffer org-invisible-p org-invisible-p2 org-show-context mark-goto org-mark-ring] 3 (#$ . 338005) "p"]) (defalias 'org-remove-angle-brackets #[(s) "\301\302O\303\232\203\302\304O\305\304O\306\232\203\301\305O\207" [s 0 1 "<" nil -1 ">"] 3]) (defalias 'org-add-angle-brackets #[(s) "\301\302O\303\232\204 \303P\304\305O\306\232\204\306P\207" [s 0 1 "<" -1 nil ">"] 3]) (defalias 'org-follow-timestamp-link #[nil "\303\304!\203&\305\306\307!\306\310!\311\312 !!\311\312!!\313\305 ZT#+\207\314\304!\203;\313\305\311\312\306\307!\315\316O!!\307#\207\317\320!\207" [t2 t1 org-agenda-start-on-weekday org-at-date-range-p t nil match-string 1 2 time-to-days org-time-string-to-time org-agenda-list org-at-timestamp-p 0 10 error "This should not happen"] 7]) #@29 Follow a BBDB link to NAME. (defalias 'org-follow-bbdb-link #[(name) "\303\304!\210?\305\306\307\215*\207" [debug-on-error bbdb-electric-p inhibit-redisplay require bbdb nil exit (byte-code "\301\302\303Q\304\"\210\305\306\307\310!!W\203\311\312\304\"\210\313\302\303Q\304\"\210\305\306\307\310!!W\203.\311\312\304\"\210\301\304\"\210\305\306\307\310!!W\203B\311\312\304\"\210\313\304\"\210\305\306\307\310!!W\203V\311\312\304\"\210\314\304\"\210\306\307\310!!\305U\205n\315\316\310!!\210\317\320!\207" [name bbdb-name "\\`" "\\'" nil 0 buffer-size get-buffer "*BBDB*" throw exit bbdb-company bbdb delete-window get-buffer-window error "No matching BBDB record"] 4)] 2 (#$ . 339362)]) #@43 Follow an info file & node link to NAME. (defalias 'org-follow-info-link #[(name) "\301\302\"\204\301\303\"\203,\304\305!\210\306\307\"\203$\310\306\311\"\306\307\"\"\207\310\306\311\"\312\"\207\313\314P!\207" [name string-match "\$.*\$::?\$.*\$" "\$.*\$" require info match-string 2 Info-find-node 1 "Top" message "Could not open: "] 5 (#$ . 340067)]) #@42 Follow a Gnus link to GROUP and ARTICLE. (defalias 'org-follow-gnus-link #[(&optional group article) "\304\305!\210\305\236A \210 \203\306 !\210\n\203(\203(\307\310\311\n#\210\312\313!\311\314#\207\n\205/\315\n!\207" [org-link-frame-setup gnus-other-frame-object group article require gnus select-frame gnus-group-read-group 0 nil gnus-summary-goto-article string-to-number t gnus-group-jump-to-group] 4 (#$ . 340444)]) #@41 Follow a VM link to FOLDER and ARTICLE. (defalias 'org-follow-vm-link #[(&optional folder article readonly) "\306\307!\210\310!\311\312 \"\203?\313\314 \"\206\315 \313\316 \"\313\317 \"\320\321!\2033\322\323\f\n$\202>\306\324!\210\322\323\f\n$+ \205z\307 \236A #\"\210\325\326!\210\205z\327 \210~\210\330$eb\210\331\332\333\334!Q!\204n\335\336!\210\337 \210\340 \210\341 \210\342 )\207" [article folder file host user org-link-frame-setup require vm org-add-angle-brackets string-match "^//\$[a-zA-Z]+@\$?\$[^:]+\$:\$.*\$" match-string 1 user-login-name 2 3 featurep tramp format "/%s@%s:%s" ange-ftp sit-for 0.1 vm-select-folder-buffer t re-search-forward "^" "message-id: *" regexp-quote error "Could not find the specified message in this folder" vm-isearch-update vm-isearch-narrow vm-beginning-of-message vm-summarize readonly case-fold-search] 5 (#$ . 340878)]) #@49 Follow a Wanderlust link to FOLDER and ARTICLE. (defalias 'org-follow-wl-link #[(folder article) "\302\230\203 \203\303\304 \"\203\305\306\307\310 \"#\307\311 \"\312\313!!\204,\314\315\"\210\316\317\320\321\320\321\211&\210 \205E\322\323 !!\205E\324 \207" [folder article "%" string-match "^\$[^#]+\$\$#\\(.*\$\\)?" format "%s#%s" match-string 1 3 elmo-folder-exists-p wl-folder-get-elmo-folder error "No such folder: %s" wl-summary-goto-folder-subr no-sync t nil wl-summary-jump-to-msg-by-message-id org-add-angle-brackets wl-summary-redisplay] 8 (#$ . 341779)]) #@45 Follow an RMAIL link to FOLDER and ARTICLE. (defalias 'org-follow-rmail-link #[(folder article) "\304!\305\212\306\213\210) \203%\307\n\310\230\203\202\n!\210\311 !\210 \202(\312\313!)\207" [article message-number folder rmail-file-name org-add-angle-brackets nil ((byte-code "\304\305\230\203 \202\f!\210\214~\210db\210\306\307\310\n\206\311!P\312\313#\205&\314 )\312\207" [folder rmail-file-name article message-number rmail "RMAIL" re-search-backward "^Message-ID:\\s-+" regexp-quote "" nil t rmail-what-message] 4)) rmail "RMAIL" rmail-show-message error "Message not found"] 3 (#$ . 342370)]) #@96 Return the name of the current message real folder, so if you use sequences, it will now work. (defalias 'org-mhe-get-message-real-folder #[nil "\212\306\232\203 \202\f\n\307\304!\205\fGG^\307\304!\2038\f\310 O\230\2038\311\232\2033\312\213\2029\313 \2029+\207" [major-mode mh-current-folder mh-show-folder-buffer folder mh-index-folder end-index mh-folder-mode boundp 0 mh-show-mode ((byte-code "\301\302!!\205\303!\210\304 \207" [folder buffer-live-p get-buffer pop-to-buffer org-mhe-get-message-folder-from-index] 3)) org-mhe-get-message-folder-from-index] 4 (#$ . 342993)]) #@66 Returns the name of the message folder in a index folder buffer. (defalias 'org-mhe-get-message-folder-from-index #[nil "\212\300 \210\301\302\303\304#\210\305\306\307!!)\207" [mh-index-previous-folder re-search-forward "^\$+.*\$$" nil t message match-string 1] 4 (#$ . 343598)]) #@82 Return the name of the current message folder. Be careful if you use sequences. (defalias 'org-mhe-get-message-folder #[nil "\212\303\232\203 \202\f\n)\207" [major-mode mh-current-folder mh-show-folder-buffer mh-folder-mode] 2 (#$ . 343886)]) #@77 Return the number of the current message. Be careful if you use sequences. (defalias 'org-mhe-get-message-num #[nil "\212\301\232\203 \302\303!\202\304 )\207" [major-mode mh-folder-mode mh-get-msg-num nil mh-show-buffer-message-number] 2 (#$ . 344140)]) #@144 Return a header of the message in folder mode. This will create a show buffer for the corresponding message. If you have a more clever idea... (defalias 'org-mhe-get-header #[(header) "\306 \307 \310\311P!\312r\nq\210\313 \"\210\f\314\232\203#\315 \210\202&\316 \210\nq\210\317 !\f\314\232\2039\320 \210\202<\321 \210-\207" [folder num buffer header-field major-mode header org-mhe-get-message-folder org-mhe-get-message-num get-buffer-create "show-" nil mh-display-msg mh-folder-mode mh-header-display mh-show-header-display mh-get-header-field mh-show mh-show-show] 3 (#$ . 344406)]) #@307 Follow an MHE link to FOLDER and ARTICLE. If ARTICLE is nil FOLDER is shown. If the configuration variable `org-mhe-search-all-folders' is t and `mh-searcher' is pick, ARTICLE is searched in all folders. Indexed searches (swish++, namazu, and others supported by MH-E) will always search in all folders. (defalias 'org-follow-mhe-link #[(folder article) "\304\305!\210\304\306!\210\304\307!\210\310 \210\204\311\312 !!\207\313!\314 \210\n\315\232\203C\306 \316D\"\210\203H\317 \204H\320 \210\306\321\316D\"\210\202H\306\321\"\210\317 \203Q\322\323!\207\320 \210\324\325!\207" [article folder mh-searcher org-mhe-search-all-folders require mh-e mh-search mh-utils mh-find-path mh-visit-folder mh-normalize-folder-name org-add-angle-brackets mh-search-choose pick "--message-id" org-mhe-get-message-real-folder kill-this-buffer "+" mh-show-msg 1 error "Message not found"] 4 (#$ . 345011)]) #@71 Create the search string and description for a BibTeX database entry. (defalias 'org-create-file-search-in-bibtex #[nil "\306=\2056\307\211\310\311\312\313\314\315\314\310\316\317\320 .\f\212\321 \210\322\323\324 \"A)\207" [major-mode bibtex-autokey-year-title-separator bibtex-autokey-titleword-length bibtex-autokey-titleword-case-convert-function bibtex-autokey-titleword-separator bibtex-autokey-titlewords bibtex-mode 1 identity " & " " et al." 4 " " 3 infty ": " bibtex-generate-autokey bibtex-beginning-of-entry assoc "=key=" bibtex-parse-entry bibtex-autokey-name-year-separator bibtex-autokey-year-length bibtex-autokey-additional-names bibtex-autokey-name-separator bibtex-autokey-name-case-convert-function bibtex-autokey-names-stretch bibtex-autokey-names description] 12 (#$ . 345922)]) #@62 Find the link search string S as a key for a database entry. (defalias 'org-execute-file-search-in-bibtex #[(s) "\306=\205@eb\210\307\310\311 !\312Q\313\314#\203\315\224b\210\315\224\203;\n\316\232\203;p`\317 !\210\212\fq\210b\210\320 \210+\202?\321\315!\210\314\207" [major-mode s current-prefix-arg p b org-window-config-before-follow-link bibtex-mode re-search-forward "@[a-zA-Z]+[ \n]*{[ \n]*" regexp-quote "[ \n]*," nil t 0 (16) set-window-configuration bibtex-url recenter] 4 (#$ . 346751)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook org-create-file-search-functions org-create-file-search-in-bibtex org-execute-file-search-functions org-execute-file-search-in-bibtex] 3) #@553 Open the file at PATH. First, this expands any special file name abbreviations. Then the configuration variable `org-file-apps' is checked if it contains an entry for this file type, and if yes, the corresponding command is launched. If no application is found, Emacs simply visits the file. With optional argument IN-EMACS, Emacs will visit the file. Optional LINE specifies a line to go to, optional SEARCH a string to search for. If LINE or SEARCH is given, the file will always be opened in Emacs. If the file does not exist, an error is thrown. (defalias 'org-open-file #[(path &optional in-emacs line search) "\206 \206 \n\306\232\203\f\202\307\310!!\311,\312 \"-\313-\236\205,\314 !\211.?\2056\315 !/ \2270p1`234\316\21156\317\3200\"\203^\321\3220\"5\202m\317\3230\"\203m\321\3220\"5\203w\3246\202\245.\203\205\325\313-\"A\206\243/\203\223\325\326-\"A\206\243\3255-\"A\206\243\325\327-\"A66\330=\203\323\331\330!\210\332 \210\3335\206\272\306!7\3347!\2118;\203\31786\202\322\3246*6\324=\204\352\335 !\204\3529\204\352\336\337 \"\2106;\203\317\3406\"\204\317\3416\"\203 \342\343\327\2116$6\3446\345 !\"6\346\213\210\202Y6;\204%6\324=\203C\305:\236A !\210 \2038\347 !\210\202Y\n\203Y\350\n!\210\202Y6:\203Q\3516!\210\202Y\305:\236A !\2103\352=\205|4\352=\205|1p\232\203v2`\232?\205|\35321\".\n\207" [in-emacs line search path buffer-file-name file "" substitute-in-file-name expand-file-name append org-default-apps remote org-file-remote-p file-directory-p nil string-match "^.*\\.\$[a-zA-Z0-9]+\\.gz\$$" match-string 1 "^.*\\.\$[a-zA-Z0-9]+\$$" emacs assoc directory t mailcap require mailcap-parse-mailcaps mailcap-extension-to-mime mailcap-mime-info file-exists-p error "No such file: %s" "^\\s-*$" "['\"]%s['\"]" replace-match "%s" format shell-quote-argument ((byte-code "\301\302P!\207" [cmd shell-command " &"] 3)) goto-line org-link-search eval org-mode org-mark-ring-push org-file-apps apps remp dirp dfile old-buffer old-pos major-mode old-mode ext cmd mime-type command org-open-non-existing-files org-link-frame-setup] 6 (#$ . 347467)]) #@60 Return the default applications for this operating system. (defalias 'org-default-apps #[nil "\304=\203 \207\305=\203\n\207\207" [system-type org-file-apps-defaults-macosx org-file-apps-defaults-windowsnt org-file-apps-defaults-gnu darwin windows-nt] 2 (#$ . 349641)]) #@62 Replace special path abbreviations and expand the file name. (defalias 'org-expand-file-name #[(path) "\301!\207" [path expand-file-name] 2 (#$ . 349923)]) #@204 Test whether FILE specifies a location on a remote system. Return non-nil if the location is indeed remote. For example, the filename "/user@host:/foo" specifies a location on the system "/user@host:". (defalias 'org-file-remote-p #[(file) "\302\303!\203\n\303!\207\302\304!\203\304!\207\305\301!\203$\306 @\"\203$\307\207\310\207" [file ange-ftp-name-format fboundp file-remote-p tramp-handle-file-remote-p boundp string-match t nil] 3 (#$ . 350087)]) #@274 Return a link to the current location as an annotation for remember.el. If you are using Org-mode files as target for data storage with remember.el, then the annotations should include a link compatible with the conventions in Org-mode. This function returns such a link. (defalias 'org-remember-annotation #[nil "\300\301!\207" [org-store-link nil] 2 (#$ . 350556)]) (byte-code "\301B\302\303!\207" [current-load-list org-remember-help (lambda (#1=#:defconst-tmp-var) (defconst org-remember-help #1#)) "Select a destination location for the note.\nUP/DOWN=headline TAB=cycle visibility [Q]uit RET//=Store\nRET at beg-of-buf -> Append to file as level 2 headline\nRET on headline -> Store as sublevel entry to current headline\n/ -> before/after current headline, same headings level"] 2) #@189 Initialize *remember* buffer with template, invoke `org-mode'. This function should be placed into `remember-mode-hook' and in fact requires to be run from that hook to fucntion properly. (defalias 'org-remember-apply-template #[(&optional use-char skip-interactive) "\203- \206#G\306U\203\211@@)\202#\307\310\311\312\313#\"\210\314 \315\"A\211@@\2053\316A\fA@\203Q\fA@;\203Q\317\320\fA@\"\203Q\fA@\202S:B\321\f8C\322D@\323 \"E\322DA\323 \"F\324E\306\325O\326QG\324F\306\325O\326QHIJK\327\232\203\217\330\202\221KLMN\331\211OP\331\211Q\331\211R\332\333L\334JF!@ \204\277\330\307\335!\210\336 \210\337 \210\340\341\342\343B\206\315:!C\206\324\330#!c\210 c\210eb\210\344\345\331\316#\203$I\203\346\347!\350\232\203\351 S\352\216\353 \347\224{T\311\354\355I\356\"\356TP#J+\357\360\361\362\346\306!P!!\206\330\316\211#\210\202\336A\203Keb\210\344\363\331\316#\203K\364@\361\346\306!!\"\211\203,\357\n\316\211#\210\202,\365 \210\366\367UV\370V!UL\210*B\203\201\317\320B\"\203\201\371B!\204\201\372BUV\370V!UL\210*C\203\244C;\203\244\317\320C\"\203\244\373CUV\370V!UL\210*eb\210\344\374\331\316#\203\375\225\205\267\346\375!\321\225\205\300\346\321!Q\347\224b\210\357\330!\210\203\361\226\232P\376\226\377\232\316\331Q$R\201WRP\201X\235#\210\202\247\201YQ\203Q\201ZP\202\201[!c\210\202\247eb\210\344\201\\\331\316#\203\357\330!\202*\344\201]\331\316#\205*\325u.\207\365 \210\366\367UV\370V!UL*\207" [org-remember-templates use-char x char entry tpl 1 message "Select template: %s" mapconcat #[(x) "\301@!\207" [x char-to-string] 2] " " read-char-exclusive assoc t string-match "\\S-" 2 format-time-string org-current-time "[" -1 "]" "[[]]" "" nil append :annotation :initial "No template" ding erase-buffer substitute-command-keys format "## `C-c C-c' to file interactively, `C-u C-c C-c' to file directly.\n## Target file \"%s\", headline \"%s\"\n## To switch templates, use `\\[org-remember]'.\n\n" abbreviate-file-name re-search-forward "%\$[tTuUai]\$" match-string 0 "%i" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) point-at-bol identity org-split-string "\n" replace-match eval intern "v-" "%\$:[-a-zA-Z]+\$" plist-get org-mode org-finish-function remember-buffer make-variable-buffer-local file-directory-p org-default-notes-file org-remember-default-headline "%^\${\\([^}]*\$}\\)?\$[uUtT]\$?" 3 org-read-date "U" org-store-link-plist plist-p file headline org-time-stamp-formats v-t v-T v-u v-U initial v-i annotation v-a user-full-name v-n org-startup-folded org-time-was-given prompt time save-match-data-internal lead value var org-insert-time-stamp ("u" "U") read-string ": " "Enter string" "%\\?" "^[^#\n]"] 7 (#$ . 351391)]) #@176 Call `remember'. If this is already a remember buffer, re-apply template. If there is an active region, make sure remember uses it as initial content of the remember buffer. (defalias 'org-remember #[nil "\305=\203& G\306W\203\307\310!\210\311 \210\312\n\313\"\312\n\314\"\315 \210*\316\317!\207\320 \2032\321`\322 {!\207\323\321!\207" [org-finish-function org-remember-templates org-store-link-plist initial annotation remember-buffer 2 error "No other template available" erase-buffer plist-get :annotation :initial org-remember-apply-template message "Press C-c C-c to remember data" org-region-active-p remember mark call-interactively] 4 (#$ . 354238) nil]) #@1697 Store stuff from remember.el into an org file. First prompts for an org file. If the user just presses return, the value of `org-default-notes-file' is used. Then the command offers the headings tree of the selected file in order to file the text at a specific location. You can either immediately press RET to get the note appended to the file, or you can use vertical cursor motion and visibility cycling (TAB) to find a better place. Then press RET or or in insert the note. Key Cursor position Note gets inserted ----------------------------------------------------------------------------- RET buffer-start as level 2 heading at end of file RET on headline as sublevel of the heading at cursor RET no heading at cursor position, level taken from context. Or use prefix arg to specify level manually. on headline as same level, before current heading on headline as same level, after current heading So the fastest way to store the note is to press RET RET to append it to the default file. This way your current train of thought is not interrupted, in accordance with the principles of remember.el. But with little extra effort, you can push it directly to the correct location. Before being stored away, the function ensures that the text has a headline, i.e. a first line that starts with a "*". If not, a headline is constructed from the current date and some additional data. If the variable `org-adapt-indentation' is non-nil, the entire text is also indented so that it starts in the same column as the headline (i.e. after the stars). See also the variable `org-reverse-note-order'. (defalias 'org-remember-handler #[nil "eb\210\300\301!\203\302\303!\210\202\304\305\215\210\306\207" [looking-at "^[ ]*\n\\|^##.*\n" replace-match "" quit (byte-code "ed{ \211\203\202\306 2\307\f!3\310\21145\3116\310\21178\310\2119:\312\313\";\310<;@<;A;\314\315<\"\203O\3109\202d<;B;\316\317 \320\321 \322\260<\3239=\203u9\203u\324\325;\";<\313\326\327;\313#Q*3\204\212\330\f!\210r3\206\223\331\f!q\210\212eb\203\246\332\333\310\334#\204\246\335c\210)\336 :\212\214~\2102\203\3272;\203\327\314\3372\"\203\327eb\210\332\340\3412!\342Q\310\334#\203\327\343\2246\n\203\3406\202\345\344p>\"\2117\204\360\345\346\310\"\2107b\210o\203:\204\214~\210db\210n\204\n\347 \210\350\351\311\211\"\"\210)\202vo\2038:\2038\214~\210eb\210\332\352\310\334#\210\353\311!\210\350\311\"\210)\202v\354\310!\203q \204q\355\334!\210? 8:\203V\356 \210\202Z\357\334!\210n\204a\347 \210\353\311!\210\350\3518\311\"\"\210\202v\350 \"\210@\203\207\360 \2103\204\207\361p!\210.\310\207" [txt current-prefix-arg fastp org-default-notes-file file org-remember-default-headline org-get-org-file org-find-base-buffer-visiting nil 1 split-string "\n" string-match "^\\*+" "* " current-time-string " (" remember-buffer-desc ")" " " mapcar #[(x) " P\207" [indent x] 2] mapconcat identity find-file-noselect get-file-buffer re-search-forward "^\\* " t "\n* Notes\n" org-notes-order-reversed-p "\\S-" "^\\*+[ ]+" regexp-quote "\$[ ]+:[@a-zA-Z0-9_:]*\$?[ ]*$" 0 org-get-location throw quit newline org-paste-subtree org-get-legal-level "^\\*" beginning-of-line org-on-heading-p org-back-to-heading outline-end-of-heading org-end-of-subtree save-buffer kill-buffer heading visiting org-startup-folded org-startup-align-all-tables org-goto-start-pos spos level indent reversed lines first org-adapt-indentation org-remember-help outline-level remember-save-after-remembering] 7) t] 2 (#$ . 354917)]) #@58 Read a filename, with default directory `org-directory'. (defalias 'org-get-org-file #[nil "\206 \304\305\306\n\"\307!\n#)\207" [org-default-notes-file remember-data-file default org-directory read-file-name format "File name [%s]: " file-name-as-directory] 4 (#$ . 358587)]) #@67 Check if the current file should receive notes in reversed order. (defalias 'org-notes-order-reversed-p #[nil "\204\301\207\302=\203\302\207<\204\301\207\303\304\215\207" [org-reverse-note-order nil t exit (byte-code "\304\n\211A@\211\203\305 @\"\203\306\307 A\"\210\202*\304\207" [org-reverse-note-order entry all buffer-file-name nil string-match throw exit] 3)] 2 (#$ . 358874)]) #@115 Find the first dynamic block with name NAME in the buffer. If not found, stay at current position and return nil. (defalias 'org-find-dblock #[(name) "\302\212eb\210\303\304 \305Q\302\306#\205\307\224)\203b\210)\207" [pos name nil re-search-forward "^#\\+BEGIN:[ ]+" "\\>" t 0] 4 (#$ . 359285)]) #@60 Matches the startline of a dynamic block, with parameters. (defconst org-dblock-start-re "^#\\+BEGIN:[ ]+\$\\S-+\$\$[ ]+\\(.*\$\\)?" (#$ . 359597)) #@37 Matches the end of a dyhamic block. (defconst org-dblock-end-re "^#\\+END\$[: \n]\\|$\$" (#$ . 359757)) #@137 Create a dynamic block section, with parameters taken from PLIST. PLIST must containe a :name entry which is used as name of the block. (defalias 'org-create-dblock #[(plist) "n\204\303 \210\304\305\"\306 \261\210\2035@\305=\203'\211AA)\211\202\307\310\211A@!\261\210\202\311c\210\312\313!)\207" [plist name x newline plist-get :name "#+BEGIN: " " " prin1-to-string "\n\n#+END:\n" beginning-of-line -2] 5 (#$ . 359872)]) #@184 Prepare dynamic block for refresh. This empties the block, puts the cursor at the insert position and returns the property list including an extra property :name with the block name. (defalias 'org-prepare-dblock #[nil "\305!\204\n\306\307!\210\310\225T\311\312!\313\314\nD\315\316\311\317!\320Q!\"\321\f\322\323#\204,\306\324!\210 \310\224|\210 b\210\325\312!\210+\207" [org-dblock-start-re begdel name params org-dblock-end-re looking-at error "Not at a dynamic block" 0 match-string 1 append :name read "(" 3 ")" re-search-forward nil t "Dynamic block not terminated" open-line] 6 (#$ . 360319)]) #@110 Apply COMMAND to all dynamic blocks in the current buffer. If COMMAND is not given, use `org-update-dblock'. (defalias 'org-map-dblocks #[(&optional command) "\206\305\306\212eb\210\307\306\310#\2051\311\224\211b\210\306\312\313\217\210 b\210\307\f\306\310#\204\f\314\315!\210\202\f+\207" [command pos cmd org-dblock-start-re org-dblock-end-re org-update-dblock nil re-search-forward t 0 (funcall cmd) ((error (message "Error during update of dynamic block"))) error "Dynamic block not terminated"] 4 (#$ . 360933)]) #@137 User command for updating dynamic blocks. Update the dynamic block at point. With prefix ARG, update all dynamic blocks in the buffer. (defalias 'org-dblock-update #[(&optional arg) "\203\302 \207\303 !\204\304 \210\305 \207" [arg org-dblock-start-re org-update-all-dblocks looking-at org-beginning-of-dblock org-update-dblock] 2 (#$ . 361467) "P"]) #@131 Update the dynamic block at point This means to empty the block, parse for parameters and then call the correct writing function. (defalias 'org-update-dblock #[nil "`\304 \305 \306\"\307\310\nP!\211 !\210b,\207" [pos params name cmd org-prepare-dblock plist-get :name intern "org-dblock-write:"] 4 (#$ . 361830)]) #@93 Find the beginning of the dynamic block at point. Error if there is no scuh block at point. (defalias 'org-beginning-of-dblock #[nil "`\304\305\210\306\n\304\307#\203*\310\224\211\203*\311\304\307#\203*\310\225 V\203*b\2020 b\210\312\313!*\207" [beg pos org-dblock-start-re org-dblock-end-re nil 1 re-search-backward t 0 re-search-forward error "Not in a dynamic block"] 4 (#$ . 362156)]) #@79 Update all dynamic blocks in the buffer. This function can be used in a hook. (defalias 'org-update-all-dblocks #[nil "\301=\205 \302\303!\207" [major-mode org-mode org-map-dblocks org-update-dblock] 2 (#$ . 362562)]) #@457 Perform completion on word at point. At the beginning of a headline, this completes TODO keywords as given in `org-todo-keywords'. If the current word is preceded by a backslash, completes the TeX symbols that are supported for HTML support. If the current word is preceded by "#+", completes special words for setting file options. In the line after "#+STARTUP:, complete valid keywords." At all other locations, this simply calls `ispell-complete-word'. (defalias 'org-complete #[(&optional arg) "\300\301\215\207" [exit (byte-code "`\212\306\307x\210`)\212\310\307x\210`)\311\nSf\312\232 Sf\313\232\nSf\314\232@\nSf\315\232A\316 \n\317Z]\n{\320\232B\321\322\316 `{\"CBD\307\211EFB\203`\323E\324\325\326\327 \330\"\"\202\342C\203m\331EG\202\342A\203{\332HI\"\202\342@\203\210\333EJ\202\342\321\334\316 \n{\"\203\235\335E\324\336K\"\202\342\f\203\306\337E\212eb\210\340L\307\341#\203\300\342\343\344!\341\"CFBF\202\250)F\202\342 \203\331\345E M\206\342\346 \202\342\347N!\210\350\351\307\"O\352\n\"P\353PO#\211Q\341=\203E\323\232\203\354P\226O\"APG\307Oc\202\266E\345\232\205\266\355c\202\266Q\204-\356\357P\"\210\360 \202\266PQ\230\204\223\n|\210\321\361Q\"\203J\362\363\341\211Q$QQc\210\364\365!\203Z\366\364\365!!\210\354QO\"\203zE\335=\203p\367c\210\202zE\345=\203z\355c\210E\323\232\205\266\354QO\"\205\266\356\370\371\372!\"\202\266\356\373!\210\374\375PO#\376\"\365\220\307\377\201R\217\221\210)\356\201S\201T\".\207" [end beg1 beg confirm searchhead tag "a-zA-Z_@0-9" nil "a-zA-Z0-9_:$" #[(x) "@;\207" [x] 1] 42 58 92 91 point-at-bol 2 "#+" string-match "^#\\+STARTUP:.*" :opt mapcar #[(x) "\301\302\"\210\303\304\"\303\305\"B\207" [x string-match "^#\\+\$\\([A-Z_]+:?\$.*\\)" match-string 2 1] 4] org-split-string org-get-current-options "\n" :startup append :tex "\\`\\*+[ ]*\\'" :todo list :searchhead re-search-forward t org-make-org-heading-search-string match-string 3 :tag org-get-buffer-tags ispell-complete-word throw exit buffer-substring-no-properties try-completion assoc ":" message "Can't find completion for \"%s\"" ding " +$" replace-match "" get-buffer-window "*Completions*" delete-window " " "%s" substitute-command-keys "Press \\[org-complete] again to insert example settings" "Making completion list..." sort all-completions string< (display-completion-list list pattern) texp link opt startup completion-ignore-case type tbl org-startup-options org-link-abbrev-alist-local org-link-abbrev-alist org-html-entities org-todo-keywords org-todo-line-regexp org-tag-alist arg table pattern completion ((error (display-completion-list list))) "Making completion list...%s" "done"] 6)] 2 (#$ . 362789) "P"]) #@39 Change the COMMENT state of an entry. (defalias 'org-toggle-comment #[nil "\212\302 \210\303\304 \305R!\203\306\307\310\211\311\312%\202&\303!\205&\313\225b\210\314 \261)\207" [outline-regexp org-comment-string org-back-to-heading looking-at "\$ +\\<" "\\>\$" replace-match "" t nil 1 0 " "] 6 (#$ . 365543) nil]) #@149 This is non-nil when the last TODO state change led to a TODO state. If the last change removed the TODO tag or switched to DONE, then this is nil. (defvar org-last-todo-state-is-todo nil (#$ . 365873)) #@931 Change the TODO state of an item. The state of an item is given by a keyword at the start of the heading, like *** TODO Write paper *** DONE Call mom The different keywords are specified in the variable `org-todo-keywords'. By default the available states are "TODO" and "DONE". So for this example: when the item starts with TODO, it is changed to DONE. When it starts with DONE, the DONE is removed. And when neither TODO nor DONE are present, add TODO at the beginning of the heading. With C-u prefix arg, use completion to determine the new state. With numeric prefix arg, switch to that state. For calling through lisp, arg is also interpreted in the following way: 'none -> empty state ""(empty string) -> switch to empty state 'done -> switch to DONE "WAITING" -> switch to the specified keyword, but only if it really is a member of `org-todo-keywords'. (defalias 'org-todo #[(&optional arg) "\212\306 \210\307!\203\310\225b\210\307\311 \312Q!\204\307\312!\210\313\314!\211\206$\315\316\n \235\211/A01\317\232\203C\320\321\322\323 \"\324\316$\2021\325=\203^\n\203Y0\2050@\202 @\2021\326=\203\203/ \232?\205\n\203~ G0GZ\327Z 8\2022\2021\203\3031\315\232\203\223\324\2021\330=\203\236\324\2021\331=\203\261 3\3323!@)\2021 \235@\206\3331!S 8\202/\204\315 @\2020\204\326\324\2024\334=\203\3430@\2024\335>\20356=\203\3700@\2020G\310V\2052\202\324\211 \203\336 \336Q\202\3367\3248\3377\316\211#\210 2\232?9:\203\2174\334=\205?:<\205?\340:>8 \203_\n\204_\341\324\211\342#\2108\203\217\343\340 \344#\210\202\217 \203s8\203s\343\340 \344#\210\202\217 2\232\203\217\341\342\345 \346 ?\205\206\347#\210\343\331 \344#\210;\203\231\350\324\316\"\210\351\352!\210 2\232\203\250\353 \210. \354 \205\332n?\205\332\212\355\314!\210\307\2042\316\317\320-\321#\210)\322\323!\210\324\311\211\325#\210\326.\327/\330\260\331\f\212\332 \210`)\323#\203\241\333\225\203]0\202_1\334\335\336+#\203\225\334\225\337\340\333+\"!\340\341+\"\211\342\232\203\210\n\343_\344\345\n\346 *\"A\"\210\202b)2\347R)\202F)3\350)!. \207" [start what n type re org-log-done org-get-repeat (("d" . day) ("m" . month) ("y" . year)) "Entry repeats: " nil org-todo org-add-log-note default-value post-command-hook (done) org-add-log-maybe done findpos org-back-to-heading t org-add-planning-info closed "\$" "\$\\|\$" "\$" re-search-forward outline-next-heading 1 0 string-match "\$[-+]?[0-9]+\$\$[dwmy]\$" string-to-number match-string 2 "w" 7 "d" org-timestamp-change assoc " " message msg whata repeat org-todo-keywords org-done-string org-scheduled-time-regexp org-deadline-time-regexp org-scheduled-string org-deadline-string org-last-changed-timestamp org-log-post-message] 10 (#$ . 369253)]) #@318 Make a compact tree which shows all headlines marked with TODO. The tree will show the lines where the regexp matches, and all higher headlines above the match. With \[universal-argument] prefix, also show the DONE entries. With a numeric prefix N, construct a sparse tree for the Nth element of `org-todo-keywords'. (defalias 'org-show-todo-tree #[(arg) "\306\204 \202+\307\232\203\n\202+\310!GX\203'\311\310!S8!\202+\312\313\"\314\315\316\317\320\fR!\"*\207" [arg org-not-done-regexp org-todo-regexp org-todo-keywords kwd-re case-fold-search nil (4) prefix-numeric-value regexp-quote error "Invalid prefix argument: %s" message "%d TODO entries found" org-occur "^" " +" outline-regexp] 7 (#$ . 370588) "P"]) #@164 Insert the DEADLINE: string to make a deadline. A timestamp is also inserted - use \[org-timestamp-up] and \[org-timestamp-down] to modify it to the correct date. (defalias 'org-deadline #[nil "\300\301\302\303#\207" [org-add-planning-info deadline nil closed] 4 (#$ . 371325) nil]) #@170 Insert the SCHEDULED: string to schedule a TODO item. A timestamp is also inserted - use \[org-timestamp-up] and \[org-timestamp-down] to modify it to the correct date. (defalias 'org-schedule #[nil "\300\301\302\303#\207" [org-add-planning-info scheduled nil closed] 4 (#$ . 371615) nil]) #@296 Insert new timestamp with keyword in the line directly after the headline. WHAT indicates what kind of time stamp to add. TIME indicated the time to use. If non is given, the user is prompted for a date. REMOVE indicates what kind of entries to remove. An old WHAT entry will also be removed. (defalias 'org-add-planning-info #[(what &optional time &rest remove) "\306 \203\n\206\307\306\310\"\203/ \311\235\203/ \312=\203#\f\202$ \313\261\210\314\n\"\210\306\212\214\306\211\211\211\211!\"#$%\315\316!\210\317&\320P!\210\321\225b\210i%\322\225Tb\210\317&!\204z\317\323'\324Q!\203z\325\321!(\232\204z\322\224\322\225}\210\202\210\326c\210\327u\210``}\210%j\210 )B$$\203\352$\211A$@#eb\210#\312=\203\257\330*\306\316#\204\317#\331=\203\277\330+\306\316#\204\317#\332=\203\216\330,\306\316#\203\216\333\334!\210\317\335!\203\335\333\334!\210\317\336!\203\216\333\334!\210\202\216db\210 \203/`Sf\337\232\204\375\313\202\376\334 \312=\203\f\202 \331=\203 \202 \332=\205-\313\261\210\314\n\206' \332= \332=#\210\321\210eb\210~\210\317\340!\203>\333\334!\210\".\207" [org-time-was-given what time org-insert-labeled-timestamps-at-point org-scheduled-string org-deadline-string nil org-read-date to-time (scheduled deadline) scheduled " " org-insert-time-stamp org-back-to-heading t looking-at "\$ *\$[^ \n]*" 1 0 "[^ \n]*?" "[^ \n]*" match-string "\n" -1 re-search-forward deadline closed replace-match "" "--+<[^>]+>" " +" 32 "[ ]+ ?\n" buffer-invisibility-spec ts elt list col outline-regexp org-keyword-time-regexp org-clock-string remove org-scheduled-time-regexp org-deadline-time-regexp org-closed-time-regexp org-closed-string] 5 (#$ . 371912) nil]) (byte-code "\301B\302\301!\204\303\301\304 \"\210\305B\302\305!\204\303\305\306\"\210\307B\302\307!\204.\303\307\306\"\210\310B\302\310!\204=\303\310\306\"\210\311B\302\311!\204M\303\311\304 \"\210\306\207" [current-load-list org-log-note-marker default-boundp set-default make-marker org-log-note-purpose nil org-log-note-state org-log-note-window-configuration org-log-note-return-to] 3) #@88 Message to be displayed after a log note has been stored. The auto-repeater uses this. (defvar org-log-post-message nil (#$ . 374053)) (defalias 'org-add-log-maybe #[(&optional purpose state findpos) "\212<\2053 >\2053\n\203\"\306\307!\210\310\311\312\f\313\260!\210\314\225b\210 `\315\223\210 \316\317\320\321#)\207" [org-log-done purpose findpos outline-regexp org-keyword-time-not-clock-regexp org-log-note-marker org-back-to-heading t looking-at "\$ *\$[^ \n]*" "\$\n[^ \n]*?" "[^ \n]*\$?" 0 nil add-hook post-command-hook org-add-log-note append org-log-note-purpose state org-log-note-state] 6]) #@70 Pop up a window for taking a note, and add this note later at point. (defalias 'org-add-log-note #[(&optional purpose) "\306\307\310\"\210\311 \312 \210 `\313\223\210\314\315\n!!\210\nb\210\316\317!\210\320 \210\321\322 \210)\323\324\f\325=\2032\326\202I\f\327=\203<\330\202I\f\331=\203F\332\202I\333\334!\"c\210\335\336 \337 ! L*\207" [org-log-note-window-configuration org-log-note-return-to org-log-note-marker org-inhibit-startup org-log-note-purpose value remove-hook post-command-hook org-add-log-note current-window-configuration delete-other-windows nil switch-to-buffer marker-buffer switch-to-buffer-other-window "*Org Note*" erase-buffer t org-mode format "# Insert note for %s, finish with C-c C-c.\n\n" clock-out "stopped clock" done "closed todo item" state "state change" error "This should not happen" org-finish-function org-store-log-note make-variable-buffer-local var] 4 (#$ . 374678)]) #@62 Finish taking a log note, and insert it to where it belongs. (defalias 'org-store-log-note #[nil "\306 \236A\307\211\310p!\210\311\312 \"\203\313\314\315\211 $\311\316 \"\203,\313\314\315\211 $\317 \320\"\f\203o\311\321\f\"\203o\322\f\323\324 B\325'B\326\327\330\331\332\"\333 \"B\334(\203^\335(\335Q\202_\314BF\"\203k\f\336P\fB\212\337)!q\210\212)b\210)\307\211\223\210\340\210n\204\213\320c\210\341\307!\210\342 `{\343P\344\211A@\261\210\203\260\320\n\211A@\261\210\202\237.\345*!\210r\337+!q\210+b\210)+\307\211\223\210,\205\322\346,!\207" [org-log-note-purpose org-log-note-headings ind lines note txt buffer-string nil kill-buffer string-match "^#.*\n[ \n]*" replace-match "" t "\\s-+\\'" org-split-string "\n" "\\S-" org-replace-escapes "%u" user-login-name "%U" "%t" format-time-string org-time-stamp-format long inactive current-time "%s" "\"" " \\\\" marker-buffer 1 indent-relative point-at-bol " " " - " set-window-configuration message user-full-name org-log-note-state org-log-note-marker org-log-note-window-configuration org-log-note-return-to org-log-post-message] 9 (#$ . 375602)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\207" [current-load-list org-occur-highlights default-boundp set-default nil make-variable-buffer-local] 3) #@509 Make a compact tree which shows all matches of REGEXP. The tree will show the lines where the regexp matches, and all higher headlines above the match. It will also show the heading after the match, to make sure editing the matching entry is easy. If KEEP-PREVIOUS is non-nil, highlighting and exposing done by a previous call to `org-occur' will be kept, to allow stacking of calls to this command. If CALLBACK is non-nil, it is a function which is called to confirm that the match should indeed be shown. (defalias 'org-occur #[(regexp &optional keep-previous callback) "\204\n\306\307\211\310#\210\311\212eb\210\203\n\204\312 \210\313\307\310#\203C\f\2032\314 \315\216\f *\203 T\316\311\224\311\225\"\210\317\320!\210\202)\203P\321\322\306\307\323$\210\204Z\324ed\"\210\325\326!\210t\203h\327\330 #\210 )\207" [keep-previous cnt org-occur-highlights regexp callback save-match-data-internal org-remove-occur-highlights nil t 0 org-overview re-search-forward match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-highlight-new-match org-show-context occur-tree org-add-hook before-change-functions local org-hide-archived-subtrees run-hooks org-occur-hook message "%d match(es) for regexp %s" org-remove-highlights-with-change org-sparse-tree-open-archived-trees] 5 (#$ . 376930) "sRegexp: \nP"]) #@178 Make sure point and context and visible. How much context is shown depends upon the variables `org-show-hierarchy-above', `org-show-following-heading'. and `org-show-siblings'. (defalias 'org-show-context #[(&optional key) "\306\307! \307=\203\307\202.\n\307=\203\307\202.\310 \n\"\203*\310 \n\"A\202.\311\n\236A* \307=\203=\307\202Z\n\307=\203G\307\202Z\310 \n\"\203V\310 \n\"A\202Z\311\n\236A*\f \307=\203i\307\202\206\n\307=\203s\307\202\206\310 \n\"\203\202\310 \n\"A\202\206\311\n\236A*\f \312\313\215,\207" [org-show-hierarchy-above key option org-show-following-heading org-show-siblings siblings-p org-on-heading-p t assoc default exit (byte-code "\203\304\305!\210\202\306 \204\307 \203\310 \210 \2030\212\203&\311 \202(\312 \203/\304\305!\210)\n\2037\313 \210\205W\212\305\314\315\217\205Vo?\205V\304\305!\210\n\203<\313 \210\202<)\207" [heading-p following-p siblings-p hierarchy-p org-flag-heading nil org-invisible-p org-invisible-p2 org-show-hidden-entry org-goto-sibling outline-next-heading org-show-siblings (byte-code "\300\301!\210\302\207" [org-up-heading-all 1 t] 2) ((error))] 3) following-p hierarchy-p heading-p] 6 (#$ . 378309)]) #@442 Show current entry, hierarchy above it, and the following headline. This can be used to show a consistent set of context around locations exposed with `org-show-hierarchy-above' or `org-show-following-heading' not t for the search context. With optional argument SIBLINGS, on each level of the hierarchy all siblings are shown. This repairs the tree structure to what it would look like when opened with hierarchical calls to `org-cycle'. (defalias 'org-reveal #[(&optional siblings) "\304\211\203\n\304\202 \305\306!+\207" [siblings org-show-siblings org-show-following-heading org-show-hierarchy-above t org-show-context nil] 3 (#$ . 379528) "P"]) #@72 Highlight from BEG to END and mark the highlight is an occur headline. (defalias 'org-highlight-new-match #[(beg end) "\304 \"\305\n\306\307#\210\nB\211)\207" [beg end ov org-occur-highlights org-make-overlay org-overlay-put face secondary-selection] 4 (#$ . 380193)]) #@171 Remove the occur highlights from the buffer. BEG and END are ignored. If NOREMOVE is nil, remove this function from the `before-change-functions' in the current buffer. (defalias 'org-remove-occur-highlights #[(&optional beg end noremove) "?\205\303\304 \"\210\305\n?\205\306\307\310\311#\207" [org-inhibit-highlight-removal org-occur-highlights noremove mapc org-delete-overlay nil remove-hook before-change-functions org-remove-occur-highlights local] 4 (#$ . 380473) nil]) #@53 Regular expression matching the priority indicator. (defvar org-priority-regexp ".*?\$\\[#\\([A-Z]\$\\] ?\\)" (#$ . 380962)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-remove-priority-next-time default-boundp set-default nil] 3) #@44 Increase the priority of the current item. (defalias 'org-priority-up #[nil "\300\301!\207" [org-priority up] 2 (#$ . 381241) nil]) #@44 Decrease the priority of the current item. (defalias 'org-priority-down #[nil "\300\301!\207" [org-priority down] 2 (#$ . 381379) nil]) #@72 Change the priority of an item by ARG. ACTION can be set, up, or down. (defalias 'org-priority #[(&optional action) "\206\306\307\211\211\211\211\212\310 \210\311%!\203&\312\313\314!!\315\202)&\306=\203\\\316\317'\"\210\320 \211\321\232\203C\315\202x\f\226\322W\204R\f\226'V\203x\323\324\322'#\210\202x\325=\203h S\202x\326=\203t T\202x\323\327!\210\322\f\226]'^\330\331\f\"\n\203\243 \203\230\332\333\315\211\307\334%\210\202\317\332\315\211\307\314%\210\202\317 \203\256\323\335!\210\202\317\311(!\210\314\225\203\305\314\225b\210\336\337\261\210\202\317\340\224b\210\341\342\261\210) \203\332\316\343!\202\336\316\344\"-\207" [action remove have news new current set nil org-back-to-heading looking-at string-to-char match-string 2 t message "Priority A-%c, SPC to remove: " read-char-exclusive 32 65 error "Priority must be between `%c' and `%c'" up down "Invalid action" format "%c" replace-match "" 1 "No priority cookie found in line" " [#" "]" 3 "[#" "] " "Priority removed" "Priority of current item set to %s" org-priority-regexp org-default-priority org-lowest-priority org-todo-line-regexp] 7 (#$ . 381521) nil]) #@43 Find priority cookie and return priority. (defalias 'org-get-priority #[(s) "\305 \306\216\307 \n\"\204\fZ\310_\202\311\312\313\n\"!Z\310_*\207" [save-match-data-internal org-priority-regexp s org-lowest-priority org-default-priority match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match 1000 string-to-char match-string 2] 5 (#$ . 382708)]) #@300 Scan headline tags with inheritance and produce output ACTION. ACTION can be `sparse-tree' or `agenda'. MATCHER is a Lisp form to be evaluated, testing if a given set of tags qualifies a headline for inclusion. When TODO-ONLY is non-nil, only lines with a TODO keyword are included in the output. (defalias 'org-scan-tags #[(action matcher &optional todo-only) "\306\307\310\311\312 !A\237\313#\314\260\315\316\317\320\321\316\322\323\303\324\f\325\326\327\330 !\"\257!\316\211\"#\316\211$%\316&\331'\316\211()\316\211*+\316\211,-\316\211./\212eb\2100\332=\203_\333 \210\334\n\316\335#\203n\336\337\215\210\202_)0\332=\203\2001\204\200\340ed\"\210(\237.\207" [outline-regexp org-todo-keywords re org-not-done-regexp org-agenda-keymap buffer-file-name "[\n ]" " *\$\\<\\(" mapconcat regexp-quote reverse "\\|" "\\>\$\\)? *\$.*?\$\$:[A-Za-z_@0-9:]+:\$?[ ]*$" face nil done-face org-done undone-face mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name 0 sparse-tree org-overview re-search-forward t :skip (byte-code "\306\225\205\307\310!\311\225\205\307\311!\312\224T\211b\210 \313 '(\f'(\fY\203J\314()\"\211*\203A\315*)\")(S\211(\202( \203^\316\317\320 \321\"\"\f B)B)+\203n\322\323\316\324)\"\"\202o ,-\203z\203\346\325.!\203\346/\203\2160,\235\204\3461\326=\203\230\327 \2101\330=\203\246\331\332!\210\202\335\333\3342\203\265\335\fS\336\"\202\266\334\337 P ,$3\nb\210\340 4\34135\3424\3434\344 &\21036B62\204\346\345\346!\210\306\207" [todo tags lspos outline-level level category 1 match-string 2 4 0 org-get-category assoc delete mapcar downcase org-split-string ":" apply append cdr eval agenda org-agenda-skip sparse-tree org-show-context tags-tree org-format-agenda-item "" make-string 46 org-get-heading org-agenda-new-marker org-add-props org-marker org-hd-marker org-category org-end-of-subtree t llast i tags-alist entry org-use-tag-inheritance tags-list todo-only matcher org-agenda-skip-archived-trees org-archive-tag action org-tags-match-list-sublevels txt marker props rtn] 10) org-hide-archived-subtrees props case-fold-search lspos tags tags-list tags-alist llast rtn level category i txt todo marker entry action org-sparse-tree-open-archived-trees] 18 (#$ . 383120)]) #@231 Create a sparse tree according to tags string MATCH. MATCH can contain positive and negative selection of tags, like "+WORK+URGENT-WITHBOSS". If optional argument TODO_ONLY is non-nil, only select lines that are also TODO lines. (defalias 'org-tags-sparse-tree #[(&optional todo-only match) "\302\303\304!A #\207" [match todo-only org-scan-tags sparse-tree org-make-tags-matcher] 4 (#$ . 385471) "P"]) #@68 Create the TAGS//TODO matcher form for the selection string MATCH. (defalias 'org-make-tags-matcher #[(match) "\204 \206 \n\306\307\310\311\211\211\312&\313\311\211\211\211\211\211\211\211\211\211\211\211\211\211+,-./01234567\314\315\"\203v\316\211\224O2\316\225\311O1\314\3171\"\203h\32081\321\311O1\314\3221\"\203|\3111\202|2\31112\203\211\314\3232\"\204\217\3200\202e\3242\325\",\311,\211A,@\211+\203T+\326\311O\327\232\203\305,\203\305+\325,\211A,@Q\211+\202\247\3146+\"\2039\321\225\205\332\330\321+\"\331\2325\330\332+\"4\3334!\334\232\335\225\f\203\375\3364\321\326O\337BB\202\203\340\341\342\330\335+\"!E\202\3434\227\344BB35\203#\3453D\202%33+\316\225\311O+30B0\202\3050G\321V\203H\3460B\202K0@ B\3110\202\230 G\321V\203a\347 B\202c @01\203r\314\3231\"\204x\320/\202\3241\325\",\311,\211A,@\211+\203\3146+\"\203\353\321\225\205\243\330\321+\"\331\2325\330\332+\".\333.!\334\232+\316\225\311O+\f\203\313\314.\321\326O\350BB\202\320\351\352.E35\203\336\3453D\202\3403\2113/B/\202\216/G\321V\203\372\346/B\202\375/@ B\311/\202\201 G\321V\203\347 B\202 @//\203%\3460/E\202'0-7-.B\207" [match org-tag-alist org-last-tags-completion-table level-p re-p orlist completing-read "Match: " org-tags-completion-function nil org-tags-history "^&?\$[-+:]\$?\${[^}]+}\\|LEVEL=\\([0-9]+\$\\|[A-Za-z_@0-9]+\\)" string-match "/+" 0 "^!" t 1 "^\\s-*$" "\\S-" org-split-string "|" -1 "\\" match-string "-" 2 string-to-char 123 3 org-match-any-p (tags-list) = level string-to-number member (tags-list) not and or (todo) equal todo term orterms matcher kwd todomatcher tagsmatcher todomatch tagsmatch mm tag minus re match0 todo-only] 17 (#$ . 385881)]) #@36 Does re match any element of list? (defalias 'org-match-any-p #[(re list) "\301\302\"\303\304\"\207" [list mapcar #[(x) "\302 \"\207" [re x string-match] 3] delq nil] 3 (#$ . 387706)]) (byte-code "\302B\303\302!\204\304\302\305\"\210\301B\303\301!\204!\304\301\306\307\211\"\"\210\310 !\207" [current-load-list org-tags-overlay org-add-colon-after-tag-completion default-boundp set-default nil org-make-overlay 1 org-detach-overlay] 5) #@109 Set the tags for the current headline. With prefix ARG, realign all tags in headings in the current buffer. (defalias 'org-set-tags #[(&optional arg just-align) "\306P\307 \310\211\310\211.\310\211/0\310\211123\203E\212eb\210\3104\311 \310\312#\203;\313\310\312\"\210\314\210\202()\315\3165\")\202B6\203P\n.\202\255\2127\206X\317 \2118\320\n\321\"\211G\322 \237\233\2379\312=\2049\203\207\323\310\324\325\"\"\203\207\326\f #\202\226\312:\327\330\331\332\310\211\n\333&!).)\334\335.\"\203\255\336\321\312\211.$.\202\231\334\337.\"\203\273\340.\202\327\334\341.\"\204\311.\321P.\334\342.\"\204\327\321.P.\343\314!\210\311\344\345\n!\346Q\347 \312#\203?.\340\232\203\366\3402\202(\350\224b\210i0`/0T5\350V\2035\2025[.GZ]1\351\35010Z]\352\".P2\3362\312\211#\2100\203:\353/`\"\210.\202B\354\355!.\n\207" [outline-regexp re current table current-tags inherited-tags "^" org-get-tags nil re-search-forward t org-set-tags 1 message "All tags realigned to column %d" org-get-buffer-tags org-split-string ":" org-get-tags-at delq mapcar cdr org-fast-tag-selection org-trim completing-read "Tags: " org-tags-completion-function org-tags-history string-match "[-+&]+" replace-match "\\`[ ]*\\'" "" ":$" "^:" beginning-of-line "\$[ ]*" regexp-quote "\$[ ]*$" point-at-eol 0 make-string 32 tabify error "Tags alignment failed" tags p0 c0 c1 rpl arg buffer-invisibility-spec org-tags-column just-align org-tag-alist org-last-tags-completion-table org-use-fast-tag-selection org-add-colon-after-tag-completion] 9 (#$ . 388160) "P"]) (defalias 'org-tags-completion-function #[(string predicate &optional flag) "\306\211\211\307\310\311\"\203!\312\313\"\312\314\"\202&\315\306=\203T\316\f\n #\211;\205n \f\fG\306O\203O\317\n\"\203O\320\202P\315R\202n\321=\203c\322\f\n #\202n\323=\205n\317\f\n\"-\207" [org-last-tags-completion-table confirm ctable rtn s2 s1 nil #[(x) "@;\207" [x] 1] string-match "^\$.*[-+:&|]\$\$[^-+:&|]*\$$" match-string 1 2 "" try-completion assoc ":" t all-completions lambda string flag org-add-colon-after-tag-completion] 7]) #@71 Insert KDW, and the TAGS, the latter with face FACE. Also inser END. (defalias 'org-fast-tag-insert #[(kwd tags face &optional end) "\304\305\306P\"\307\310\311 \312#\313\302\n$\206\314\261\207" [kwd tags face end format "%-12s" ":" org-add-props mapconcat identity " " nil ""] 6 (#$ . 390334)]) (defalias 'org-fast-tag-show-exit #[(flag) "\212\301\302!\210\303\304\305 \306#\203\307\310!\210\205(\311\210\312\313 \314Z\306\"\210\315\316\317\320\321$c)\207" [flag goto-line 3 re-search-forward "[ ]+Next change exits" point-at-eol t replace-match "" 1 move-to-column window-width 19 org-add-props " Next change exits" nil face org-warning] 5]) (defalias 'org-set-current-tags-overlay #[(current prefix) "\304\305\306\304#\304Q\307\310 G\311\312 %\210\313\n P\")\207" [current s org-tags-overlay prefix ":" mapconcat identity put-text-property 0 face (secondary-selection org-tag) org-overlay-display] 6]) #@347 Fast tag selection with single keys. CURRENT is the current list of tags in the headline, INHERITED is the list of inherited tags, and TABLE is an alist of tags and corresponding keys, possibly with grouping information. If the keys are nil, a-z are automatically assigned. Returns the new tags string, or nil to not change the current settings. (defalias 'org-fast-tag-selection #[(current inherited table) "\306\307\310\311\"\"p\304=\312 \313\\\314 \315Z\245\316\317\312\211 !\312\211\"#\312\211$%\312\211&'\312\211()\312\211*+\312,-\312\211./\212\320\321!\210\322\323!\203m\321\224*\321\225+\324,\202\223\325 S\211*T+\326\312w\210`S`{i0V\203\211\327\202\220\3300iZ\331\"P,)\3321*+#\210\333\213.\207" [table maxlen buf org-fast-tag-selection-single-key expert buffer-tags apply max mapcar #[(x) "@;\203\301@!\207\302\207" [x string-width 0] 2] nil 7 window-width 4 org-done org-tag beginning-of-line 1 looking-at ".*[ ]\$:[A-Za-z_@0-9:]+:\$[ ]*\$ \\|$\$" "" point-at-eol "^\n " " " make-string 32 org-move-overlay ((byte-code "\203\f\306\307!q\210\202\310 \210\311 \210\312\306\307!!\210\313 \210\314\315 \n\316$\210\314\317\f\320$\210\321 !\210\322/\"\21001\3232\32431\211A1@\2114\203^4\325\232\203m\3265B5\32763\324U\204g\3243\316c\210\330c\210\202=4\331\232\203\200\3266\3243\332c\210\202=4@7\32684A\203\2264A9\202\346\3337\3337!\334U\203\246\335\202\247\324\326O\227!:\336:;\"\204\277\336:0\"\203\331\3362;\"\204\321\33620\"\203\3352T2\202\277:88\206\344296\203\365575@B\240\210\3377\326\3407\235\203\f\2027 \235\203\n\202\326$73\324U\203#6\204#\341c\210\3429\3437\344<7GZ\345Z\346\"\261\21079B;B;3T\2113=U\203=\316c\2106\203X\341c\210\3243\202=;\237;\316c\210eb\210\204v\347\350!\203v\350 \210\351\352\215>\353?!\210>\205\212\354\355\356#\207" [expert inherited i-face current c-face exit-after-next get-buffer-create " *Org tags*" delete-other-windows split-window-vertically switch-to-buffer-other-window erase-buffer org-fast-tag-insert "Inherited" "\n" "Current" "\n\n" org-fast-tag-show-exit org-set-current-tags-overlay 97 0 (:startgroup) nil t "{ " (:endgroup) "}\n" string-to-char 64 1 rassoc org-add-props face " " "[" "] " make-string 4 32 fboundp fit-window-to-buffer exit (byte-code "\306\307\203\n\310\202\311 \203\312\202\n\203\313\202\314#\210\315\316 )\211\317U\2032\320\321\315\"\210\202=\f\322U\203M?eb\210\323\324\325\315#\203=\326\327!\210\202>\f\330U\203y \204a\331\n?\211!\210\202=\325\332 \210\333 \210\334\335!\210\336\337!\203=\337 \210\202=\f\340U\204\214\f\341U\203\227\342\f \"\204\227\343=!\210\315>\202=\f\344U\203\251\325?\n\203=\345\202=\f\346U\203\346\325\347\350\217\210\351\352@\"\203\335\353\354@C\"\210@?\235\203\326\355@?\"?\202\335@?B?\n\203=\345\202=\342\f \"\211A@\211@\203=@?\235\203\355@?\"?\2027B\325CB:\203/B@C@C\235\203&\356\357C\"\210BA\211B\202*@?B?\n\203=\345\360?\361\"?\n\345=\203O\320\321\315\"\210eb\210\362\363!\210`\364 |\210\365\366?D#\210\367?E\"\210\323\370\325\315#\203\236\371\372!@\373\372\224\372\225\374@?\235\203\212D\202\230@F\235\203\227G\202\230\325D#\210\202jeb\210\202" [groups expert exit-after-next inhibit-quit c ntable message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free%s%s" " [!] no groups" " [!]groups" " [C-c]:window" " [C-c]:single" " [C-c]:multi" t read-char-exclusive 13 throw exit 33 re-search-forward "[{}]" nil replace-match " " 3 org-fast-tag-show-exit delete-other-windows split-window-vertically switch-to-buffer-other-window " *Org tags*" fboundp fit-window-to-buffer 7 113 rassoc org-detach-overlay 32 now 9 (byte-code "\303\304\206 r q\210\305 )\"\303\207" [buffer-tags buf tg completing-read "Tag: " org-get-buffer-tags] 3) ((quit (byte-code "\301\302\207" [tg "" nil] 1))) string-match "\\S-" add-to-list buffer-tags delete mapcar #[(x) "\302 \"\211\207" [x current delete] 3] sort #[(a b) "\303\303 \n\"\n>A\"\207" [b a ntable assoc] 5] beginning-of-line 2 point-at-eol org-fast-tag-insert "Current" org-set-current-tags-overlay "\\[.\\] \$[a-zA-Z0-9_@]+\$" match-string 1 add-text-properties face org-tags-overlay quit-flag current tg e #1=#:--cl-var-- g c-face ov-prefix inherited i-face] 7) org-detach-overlay mapconcat identity ":" ov-prefix table tbl char cnt e groups ingroup tg c2 c c1 ntable fwidth ncol rtn org-tags-overlay] 7)) fwidth ncol i-face c-face tg cnt e c char c1 c2 ntable tbl rtn ov-start ov-end ov-prefix exit-after-next groups ingroup org-tags-column org-tags-overlay] 6 (#$ . 391261)]) #@46 Get the TAGS string in the current headline. (defalias 'org-get-tags #[nil "\302\303!\204\n\304\305!\210\212\306\307!\210\310\311!\203!\307\312\313 \"*\202\"\314)\207" [string num org-on-heading-p t error "Not on a heading" beginning-of-line 1 looking-at ".*[ ]\$:[A-Za-z_@0-9:]+:\$[ ]*\$ \\|$\$" nil match-string-no-properties ""] 3 (#$ . 395974)]) #@61 Get a table of all tags used in the buffer, for completion. (defalias 'org-get-buffer-tags #[nil "\303\212eb\210\304\305\303\306#\203!\307\310\311\312\303\313\n \"*\314\"\"\210\202)\315\316\")\207" [tags string num nil re-search-forward "[ ]:\$[A-Za-z_@0-9:]+\$:[ \n]" t mapc #[(x) "\301\302\"\207" [x add-to-list tags] 3] org-split-string 1 match-string-no-properties ":" mapcar list] 6 (#$ . 396342)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-last-changed-timestamp default-boundp set-default nil] 3) #@497 Prompt for a date/time and insert a time stamp. If the user specifies a time like HH:MM, or if this command is called with a prefix argument, the time stamp will contain date and time. Otherwise, only the date will be included. All parts of a date not specified by the user will be filled in from the current date/time. So if you press just return without typing anything, the time stamp will represent the current date/time. If there is already a timestamp at the cursor, it will be modified. (defalias 'org-time-stamp #[(arg) "\306\211\307 \203+\n\310=\203+\310=\203+\311c\210\312\f\313\")\314 \206'\f\"\202`\307 \203P\312\f\313\")\307 \203J\315\316!\210\314 \206H\f\"\317\320!\202`\312\f\313\")\314 \206_\f\"*\207" [time org-time-was-given last-command this-command arg org-last-changed-timestamp nil org-at-timestamp-p org-time-stamp "--" org-read-date totime org-insert-time-stamp replace-match "" message "Timestamp updated"] 3 (#$ . 396909) "P"]) #@312 Insert an inactive time stamp. An inactive time stamp is enclosed in square brackets instead of angle brackets. It is inactive in the sense that it does not trigger agenda entries, does not link to the calendar and cannot be changed with the S-cursor keys. So these are more for recording a certain time/date. (defalias 'org-time-stamp-inactive #[(&optional arg) "\303\211\304\n\305\"\306 \206\n\307#*\207" [time org-time-was-given arg nil org-read-date totime org-insert-time-stamp inactive] 4 (#$ . 397898) "P"]) (byte-code "\301B\302\301!\204\303\301\304\305\211\"\"\210\306 \307\310#\210\311 !\207" [current-load-list org-date-ovl default-boundp set-default org-make-overlay 1 org-overlay-put face org-warning org-detach-overlay] 5) #@1570 Read a date and make things smooth for the user. The prompt will suggest to enter an ISO date, but you can also enter anything which will at least partially be understood by `parse-time-string'. Unrecognized parts of the date will default to the current day, month, year, hour and minute. For example, 3-2-5 --> 2003-02-05 feb 15 --> currentyear-02-15 sep 12 9 --> 2009-09-12 12:45 --> today 12:45 22 sept 0:34 --> currentyear-09-22 0:34 12 --> currentyear-currentmonth-12 Fri --> nearest Friday (today or later) +4 --> four days from today (only if +N is the only thing given) etc. The function understands only English month and weekday abbreviations, but this can be configured with the variables `parse-time-months' and `parse-time-weekdays'. While prompting, a calendar is popped up - you can also select the date with the mouse (button 1). The calendar shows a period of three months. To scroll it to other months, use the keys `>' and `<'. If you don't like the calendar, turn it off with (setq org-popup-calendar-for-date-prompt nil) With optional argument TO-TIME, the date will immediately be converted to an internal time. With an optional argument WITH-TIME, the prompt will suggest to also insert a time. Note that when WITH-TIME is not set, you can still enter a time, and this function will inform the calling routine about this change. The calling routine may then choose to change the format used to insert the time stamp into the buffer to include the time. (defalias 'org-read-date #[(&optional with-time to-time from-string prompt) "\306\307!\210\310\232\203\311\202 \312 \212\313\314P`\315Z\316#)\203/\317\320\321\322\323\324\325!!\"\"\2020\n\326\211:\326;\327\203B\330\202C\331\f\"<=\203S=\332P\202T\333\334\335<\"P=\326>\333?\326\211@A\311B\326\211CD\326\211EF\326\211GH\326\211IJ\326KL\203\222L>\202\251M\203\237\212\336\213\210)\202\251\337=\333\326<$>\340N!\210\341\342?\"\203\277\343>!B\333>\341\344>\"\203 \345\225\203\326\343\324\345>\"!\202\333\343\327\346!!H\343\324\347>\"!G\343\324\350>\"!FH\351W\203\374H\352\\H\353\334\354HGF$\316\326>$>\323>!I\355I8\206 \343\327\346\n\"!H\350I8\206/\343\327\356\n\"!G\347I8\206>\343\327\357\n\"!F\345I8\206M\343\327\360\n\"!EIA@\206\\\343\327\361\n\"!DI@\206e\311C\362I8JFB\\FJ\203\250\347I8\204\250\362\363\320\311\211\211FGH&!8KJK\232\204\250FJKZ\364Z\365\246\\F\366\367!\203\270\345I8\203\270\3167H\351W\203\305H\352\\HO\203\334\320CDEFGH&\202IA@\204\352\345I8\203\373\334\370HGFED&\202\334\371HGF$.\207" [with-time org-time-stamp-rounding-minutes ct org-ts-regexp default-time calendar-move-hook require parse-time (16) 0 org-current-time re-search-backward "--?-?\\=" 20 t apply encode-time mapcar #[(x) "\206\301\207" [x 0] 1] parse-time-string match-string 1 nil format-time-string "%Y-%m-%d %H:%M" "%Y-%m-%d" " " "" format "YYYY-MM-DD [%s]: " ((byte-code "\306 \210\307\310!\311 \211\211AA@)\312\211\313U\203 \314\315!\202t\313V\203\235S \211\211@) \211A@) \211AA@) \fS\316_\\7\f\317V\203\2067\f\320_\321\\\322\245Z7\211\313W\203g\323!S\324\320\246!\205}\324\325\246!?\206}\324\326\246!)\203\2067T77-\n\327_\\\n\320\245\\\n\325\245[\\\n\326\245\\\202t\323T! \211\211@) \211A@) \211AA@) \fS\316_\\7\f\317V\203\3777\f\320_\321\\\322\245Z7\211\313W\203\340\323!S\324\320\246!\205\366\324\325\246!?\206\366\324\326\246!)\203\3777T77-\n\327_Z\n\320\245Z\n\325\245[Z\n\326\245Z\330\211\211@) \211A@) \211AA@) \fS\316_\\7\f\317V\203p7\f\320_\321\\\322\245Z7\211\313W\203Q\323!S\324\320\246!\205g\324\325\246!?\206g\324\326\246!)\203p7T77-Z+Z!\210\331\312!\210\332 8\3339!:\333;!;\334:\335\336#\210\334:\337\340#\210\334:\341\340#\210\334;\342\343#\210\334;\344\345#\210\334;\346\347#\210\334;\350\351#\210\334;\352\353#\210\334;\354\355#\210\334;\356\357#\210\334;\360\361#\210\362\216\363:!\210\364<\365\312\211$\211=\366>\206\362?Q@,\312\207" [default-time date offset-years year month day calendar calendar-forward-day time-to-days calendar-current-date nil 0 error "There was no year zero" 31 2 4 23 10 abs zerop 100 400 365 (12 31 -1) org-eval-in-calendar current-local-map copy-keymap define-key " " org-calendar-select [mouse-1] org-calendar-select-mouse [mouse-2] [(meta shift left)] #[nil "\300\301!\207" [org-eval-in-calendar (calendar-backward-month 1)] 2 nil nil] [(meta shift right)] #[nil "\300\301!\207" [org-eval-in-calendar (calendar-forward-month 1)] 2 nil nil] [(shift up)] #[nil "\300\301!\207" [org-eval-in-calendar (calendar-backward-week 1)] 2 nil nil] [(shift down)] #[nil "\300\301!\207" [org-eval-in-calendar (calendar-forward-week 1)] 2 nil nil] [(shift left)] #[nil "\300\301!\207" [org-eval-in-calendar (calendar-backward-day 1)] 2 nil nil] [(shift right)] #[nil "\300\301!\207" [org-eval-in-calendar (calendar-forward-day 1)] 2 nil nil] ">" #[nil "\300\301!\207" [org-eval-in-calendar (scroll-calendar-left 1)] 2 nil nil] "<" #[nil "\300\301!\207" [org-eval-in-calendar (scroll-calendar-right 1)] 2 nil nil] ((use-local-map old-map)) use-local-map read-string "" " " day-of-year old-map calendar-mode-map map minibuffer-local-map prompt org-ans0 org-ans1 org-ans2 ans] 9)) read-string org-detach-overlay string-match "^[ ]*[-+][0-9]+[ ]*$" string-to-number "^ *\$\\([0-9]+\$-\\)?\$[0-1]?[0-9]\$-\$[0-3]?[0-9]\$\$[^-0-9]\\|$\$" 2 "%Y" 3 4 100 2000 replace-match "%04d-%02d-%02d\\5" 5 "%m" "%d" "%H" "%M" 6 decode-time -7 7 boundp org-time-was-given "%04d-%02d-%02d %02d:%02d" "%04d-%02d-%02d" view-diary-entries-initially view-calendar-holidays-initially timestr prompt ans org-ans0 org-ans1 org-ans2 deltadays second minute hour day month year tl wday wday1 from-string org-popup-calendar-for-date-prompt org-date-ovl to-time] 10 (#$ . 398654)]) #@114 Eval FORM in the calendar window and return to current window. Also, store the cursor date in variable org-ans2. (defalias 'org-eval-in-calendar #[(form) "\306 \307\310\311!!\210\312 !\210\313 \203*\313 \314\315\211\211\nA@\n@\316\n8&\317\320\"*\321 `S`Tp$\210\307!)\207" [sw form date time org-ans2 org-date-ovl selected-window select-window get-buffer-window "*Calendar*" eval calendar-cursor-to-date encode-time 0 2 format-time-string "%Y-%m-%d" org-move-overlay] 8 (#$ . 404676)]) #@140 Return to `org-read-date' with the date currently selected. This is used by `org-read-date' in a temporary keymap for the calendar buffer. (defalias 'org-calendar-select #[nil "\303 \205$\303 \304\305\211\211A@@\3068&\307\310 \"*\311 \205$\312 \207" [date time org-ans1 calendar-cursor-to-date encode-time 0 2 format-time-string "%Y-%m-%d" active-minibuffer-window exit-minibuffer] 8 (#$ . 405176) nil]) #@368 Insert a date stamp for the date given by the internal TIME. WITH-HM means, use the stamp format that includes the time of the day. INACTIVE means use square brackets instead of angular ones, so that the stamp will not contribute to the agenda. PRE and POST are optional strings to be inserted before and after the stamp. The command returns the inserted time stamp. (defalias 'org-insert-time-stamp #[(time &optional with-hm inactive pre post) "\203\306\202 \307 !\310\f\203\311\312\313O\314Q \206\315c\210\316\"\211c\210\2060\315c\210\n*\207" [with-hm org-time-stamp-formats stamp fmt inactive pre cdr car nil "[" 1 -1 "]" "" format-time-string time post] 4 (#$ . 405596)]) #@46 Toggle the use of custom time stamp formats. (defalias 'org-toggle-time-stamp-overlays #[nil "?\211\2048e\304 \305\n\306\"\211\2033\307\n\306\"\203\f\307\n\310\"\311=\203\f\312\n\305\n\306\"\211\313#\210\202\f\314 !\210*\315 \210\316\203E\317\320!\207\317\321!\207" [org-display-custom-times bmp p org-table-may-need-update buffer-modified-p next-single-property-change display get-text-property face org-date remove-text-properties (display t) set-buffer-modified-p org-restart-font-lock t message "Time stamps are overlayed with custom format" "Time stamp overlays removed"] 6 (#$ . 406297) nil]) #@72 Overlay modified time stamp format over timestamp between BED and END. (defalias 'org-display-custom-time #[(beg end) "\306 \307\216\310 \n{\311\"*\n ZA@\205\3128\211\203#\313\202$\314!\315!\316\317\320\321O\322\323\"\"\324\325\326$\211G\211 \fU\204[\327 T \312\\\330\311\331\f ZF#\210\332 \n\333$.\207" [save-match-data-internal beg end t1 w1 with-hm match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-parse-time-string t 2 cdr car org-fix-decoded-time org-add-props format-time-string 1 -1 apply encode-time nil mouse-face highlight add-text-properties org-dwidth org-dwidth-n put-text-property display org-time-stamp-custom-formats tf time str w2] 9 (#$ . 406916)]) #@122 Translate all timestamps in STRING to custom format. But do this only if the variable `org-display-custom-times' is set. (defalias 'org-translate-time #[(string) "\203\252\306 \307\216\310\311\211\311\211\311\211 \311\211!\"\312\f#\n#\211\203\250\310\224!\310\225\"\306 \313\216\314#!\"O\315\"*\211A@\205Q\316 8#!\211TO\317\232\203g\320\202h\321$!\322 !\323\203|\317\202}\324\325\326O\203\213\327\202\214\330Q\331\332\"\" \333 \315\211#$#\n G\\\202$.\f#\207" [org-display-custom-times save-match-data-internal start org-ts-regexp-both re t1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 nil string-match ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-parse-time-string t 2 "[" cdr car org-fix-decoded-time format-time-string "<" 1 -1 "]" ">" apply encode-time replace-match with-hm inactive tf time str beg end string org-time-stamp-custom-formats] 6 (#$ . 407671)]) #@78 Set 0 instead of nil for the first 6 elements of time. Don't touch the rest. (defalias 'org-fix-decoded-time #[(time) "\302\303\304 \")\207" [n time 0 mapcar #[(x) "T\211\302W\203 \206\303\207 \207" [n x 7 0] 2]] 3 (#$ . 408704)]) #@54 Difference between TIMESTAMP-STRING and now in days. (defalias 'org-days-to-time #[(timestamp-string) "\301\302!!\301\303 !Z\207" [timestamp-string time-to-days org-time-string-to-time current-time] 3 (#$ . 408948)]) #@60 Is the time in TIMESTAMP-STRING close to the current date? (defalias 'org-deadline-close #[(timestamp-string &optional ndays) "\303! \206\nW\205\304 ?\207" [timestamp-string ndays org-deadline-warning-days org-days-to-time org-entry-is-done-p] 2 (#$ . 409172)]) #@140 Return to `org-read-date' with the date currently selected. This is used by `org-read-date' in a temporary keymap for the calendar buffer. (defalias 'org-calendar-select-mouse #[(ev) "\304!\210\305 \205(\305 \306\307\211\211 A@ @\310 8&\311\312\n\"*\313 \205(\314 \207" [ev date time org-ans1 mouse-set-point calendar-cursor-to-date encode-time 0 2 format-time-string "%Y-%m-%d" active-minibuffer-window exit-minibuffer] 8 (#$ . 409446) "e"]) #@357 Check if there are any deadlines due or past due. A deadline is considered due if it happens within `org-deadline-warning-days' days from today's date. If the deadline appears in an entry marked DONE, it is not shown. The prefix arg NDAYS can be used to test that many days. If the prefix is a raw \[universal-argument] prefix, all deadlines are shown. (defalias 'org-check-deadlines #[(ndays) "\306\232\203\n\307\202\203\310!\202 \311\312\f\313Q\314\315\316\317 \311#\n#,\207" [ndays org-deadline-warning-days org-warn-days case-fold-search org-deadline-string regexp (4) 100000 prefix-numeric-value nil "\\<" " *<\$[^>]+\$>" #[nil "\301\302\303!\"\207" [org-warn-days org-deadline-close match-string 1] 3] message "%d deadlines past-due or due within %d days" org-occur callback] 6 (#$ . 409903) "P"]) #@423 Evaluate a time range by computing the difference between start and end. Normally the result is just printed in the echo area, but with prefix arg TO-BUFFER, the result is inserted just after the date stamp into the buffer. If the time range is actually in a table, the result is inserted into the next column. For time difference computation, a year is assumed to be exactly 365 days in order to avoid rounding problems. (defalias 'org-evaluate-time-range #[(&optional to-buffer) "\306 \206h\212\307 \204\310 b\210\311\312 \313#\210\307 ?\205\314\315!)\206h\316\317!\316\320! G\321V\2066\nG\321V\322\225\323 !\323\n!/\324 !0\324/!1\32510Z!210Z\322W3\326\322\\4\327\322\\5\3306\3317\3328\3339\334:\335\211;<\335\211=>\335?\203\274\322;\33624\245!<\33724\"2\33625\245!=\33725\"2\3362\340\245!>\202\320\322;\33624\245\341\\!<\322\211=>@\204\344\342\343;<=>$!\202f\344 \203\371\fb\210\313?\345\346!\203\371\322\225b\210\345\347!\203\350\351!\2103\203\352c\210;\322V\203.\353\354\2036\2027;<=>%\261\210\202[<\322V\203O\353\354\203@8\202B9<=>$\261\210\202[\353\354:=>#\261\210?\203c\355 \210\342\356!.\207" [org-tr-regexp ts1 ts2 havetime match-end time1 org-clock-update-time-maybe org-at-date-range-p point-at-bol re-search-forward point-at-eol t error "Not at a time-stamp range, and none found in current line" match-string 1 2 15 0 org-time-string-to-time time-to-seconds abs 86400 3600 "%dy %dd %02d:%02d" "%dy %dd" "%dd %02d:%02d" "%dd" "%02d:%02d" nil floor mod 60 0.5 message org-make-tdiff-string org-at-table-p looking-at " *|" "\$ *-? *[0-9]+y\$?\$ *[0-9]+d\$? *[0-9][0-9]:[0-9][0-9]" replace-match "" " -" " " format org-table-align "Time difference inserted" time2 t1 t2 diff negative ds hs fy fy1 fd fd1 fh y d h m align to-buffer] 8 (#$ . 410737) "P"]) (defalias 'org-make-tdiff-string #[(y d h m) "\306\307\n\310V\203 \311\n\312V\203\313\202\306\314R\nB\211\310V\203< \315\312V\2032\313\2023\306\314RB\211\f\310V\203X \316\f\312V\203N\313\202O\306\314R\fB\211 \310V\203t \317 \312V\203j\313\202k\306\314R B\211\320\321 \237#*\207" [l fmt y d h m "" nil 0 "%d year" 1 "s" " " "%d day" "%d hour" "%d minute" apply format] 4]) (defalias 'org-time-string-to-time #[(s) "\301\302\303!\"\207" [s apply encode-time org-parse-time-string] 4]) #@231 Parse the standard Org-mode time string. This should be a lot faster than the normal `parse-time-string'. If time is not given, defaults to 0:00. However, with optional NODEFAULT, hour and minute fields will be nil if not given. (defalias 'org-parse-time-string #[(s &optional nodefault) "\303 \"\203H\304\305\224\204\n?\205\306\307\305 \"\206\310!\311\224\204&\n?\2050\306\307\311 \"\206/\310!\306\307\312 \"!\306\307\313 \"!\306\307\314 \"!\315\211\211\257 \207\316\317\304\"\207" [org-ts-regexp1 s nodefault string-match 0 8 string-to-number match-string "0" 7 4 3 2 nil make-list 9] 9 (#$ . 413141)]) #@185 Increase the date item at the cursor by one. If the cursor is on the year, change the year. If it is on the month or the day, change that. With prefix ARG, change by that many units. (defalias 'org-timestamp-up #[(&optional arg) "\301\302!!\207" [arg org-timestamp-change prefix-numeric-value] 3 (#$ . 413765) "p"]) #@185 Decrease the date item at the cursor by one. If the cursor is on the year, change the year. If it is on the month or the day, change that. With prefix ARG, change by that many units. (defalias 'org-timestamp-down #[(&optional arg) "\301\302![!\207" [arg org-timestamp-change prefix-numeric-value] 3 (#$ . 414090) "p"]) #@89 Increase the date in the time stamp by one day. With prefix ARG, change that many days. (defalias 'org-timestamp-up-day #[(&optional arg) "\301\302!\204\303 \203\304\305!\207\306\307!\310\"\207" [arg org-at-timestamp-p t org-on-heading-p org-todo up org-timestamp-change prefix-numeric-value day] 3 (#$ . 414417) "p"]) #@89 Decrease the date in the time stamp by one day. With prefix ARG, change that many days. (defalias 'org-timestamp-down-day #[(&optional arg) "\301\302!\204\303 \203\304\305!\207\306\307![\310\"\207" [arg org-at-timestamp-p t org-on-heading-p org-todo down org-timestamp-change prefix-numeric-value day] 3 (#$ . 414747) "p"]) (defalias 'org-pos-in-match-range #[(pos n) "\224\205\224 X\205\225 Y\207" [n pos] 2]) (put 'org-pos-in-match-range 'byte-optimizer 'byte-compile-inline-expand) #@50 Determine if the cursor is in or at a timestamp. (defalias 'org-at-timestamp-p #[(&optional inactive-ok) "\203 \202 \n`\306!\206-\212\307\310x\210`\311V\203 \312u\210\306!\205,\313\225\fZ\312V)\314\315!\203\363\f\316\224\205L\224\fX\205L\225\fY*\203T\317\202\361\f\320\224\205l\224\fX\205l\225\fY*\203t\321\202\361\f\322\224\205\214\224\fX\205\214\225\fY*\203\224\323\202\361\f\324\224\205\254\224\fX\205\254\225\fY*\203\264\325\202\361\f\326\224\205\314\224\fX\205\314\225\fY*\204\354\f\327\224\205\350\224\fX\205\350\225\fY*\203\360\330\202\361\330 +\207" [inactive-ok org-ts-regexp3 org-ts-regexp2 tsr pos ans looking-at "^[<\n " nil 1 -1 0 boundp org-ts-what 2 year 3 month 7 hour 8 minute 4 5 day n] 2 (#$ . 415250) nil]) #@237 Change the date in the time stamp at point. The date will be changed by N times WHAT. WHAT can be `day', `month', `year', `minute', `second'. If WHAT is not given, the cursor position in the timestamp determines what will be changed. (defalias 'org-timestamp-change #[(n &optional what) "`\306\211\211\211\211\211-\307\310!\204\311\312!\210.\204:\313=\204:/\203:\314`\315\"\203:\314`S\315\"\204:\313.\206@\3160A\317\225\317\224ZZ!\320X\317\224f\321U\322\317!\323\324!\210\325\n!\326\327\330@\206j\317C\331=\203v1\202w\317A@\\C\332=\203\2071\202\210\317\3338\\C\313=\203\2301\202\231\317\3348\\C\335=\203\2511\202\252\317\3368\\C\337=\203\2721\202\273\317\3408\\C\341\233&\".\342=\203\212\343 2\344\216\345q\210\346 +3\336\2333@\240\210\334\2333A@\240\210\340\233\33338\240\210\211@\206\376\317\240\210AA@\206 \317\240\210AAA@\206\317\240\210\326\327\")\347 \f#4\350 \210-b\2105\205B\351\345\310\"\205B\352>\205B\353\354 !!.\207" [time0 time ts org-ts-what inactive with-hm nil org-at-timestamp-p t error "Not at a timestamp" day get-text-property display abs 0 1 91 match-string replace-match "" org-parse-time-string apply encode-time append minute hour 2 3 month 4 year 5 6 calendar match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "*Calendar*" calendar-cursor-to-date org-insert-time-stamp org-clock-update-time-maybe get-buffer-window (day month year) org-recenter-calendar time-to-days pos what org-display-custom-times org-ts-lengths n save-match-data-internal cal-date org-last-changed-timestamp org-calendar-follow-timestamp-change] 11 (#$ . 416077)]) #@50 If the calendar is visible, recenter it to DATE. (defalias 'org-recenter-calendar #[(date) "\304 \305\306\307\"\310 \205$\311 !\210\312<\203\202\313!!\210\311!+\207" [win cwin calendar-move-hook date selected-window get-buffer-window "*Calendar*" t nil select-window calendar-goto-date calendar-gregorian-from-absolute] 3 (#$ . 417781)]) #@162 Go to the Emacs calendar at the current date. If there is a time stamp in the current line, go to that date. A prefix ARG can be used to force the current date. (defalias 'org-goto-calendar #[(&optional arg) "\306\211\211\211\307 \204\212\310\311!\210\312\313 P!)\2033\314\315 !\314\316\317\311!!!Z*\320 \210\321 \210\f\205F?\205F\322\f!-\207" [org-ts-regexp view-diary-entries-initially view-calendar-holidays-initially calendar-move-hook diff tsr nil org-at-timestamp-p beginning-of-line 1 looking-at ".*" time-to-days current-time org-time-string-to-time match-string calendar calendar-goto-today calendar-forward-day d2 d1 arg] 5 (#$ . 418138) "P"]) #@138 Insert time stamp corresponding to cursor date in *Calendar* buffer. If there is already a time stamp at the cursor position, update it. (defalias 'org-date-from-calendar #[nil "\300\301\302\"\207" [org-timestamp-change 0 calendar] 3 (#$ . 418821) nil]) #@37 Marker recording the last clock-in. (defvar org-clock-marker (make-marker) (#$ . 419081)) #@93 Start the clock on the current item. If necessary, clock-out of the currently active clock. (defalias 'org-clock-in #[nil "\304\305!\210\306\212\307\305!\210\310\311!\210\312\313 P!\203*\314\315!\n\232\204*\310\311!\210n\204*\316 \210\317c\210\320u\210\321 \210\n\322\261\210\323\324 \325\326#`\327 \223\210\330\331\"*\207" [ts org-keyword-time-regexp org-clock-string org-clock-marker org-clock-out t nil org-back-to-heading beginning-of-line 2 looking-at "[ ]*" match-string 1 newline "\n" -1 indent-relative " " org-insert-time-stamp current-time with-hm inactive buffer-base-buffer message "Clock started at %s"] 4 (#$ . 419177) nil]) #@109 Stop the currently running clock. If there is no running clock, throw an error, unless FAIL-QUIETLY is set. (defalias 'org-clock-out #[(&optional fail-quietly) "\300\301\215\207" [exit (byte-code "\306!\204 \203\307\310\311\"\210\202\312\313!\210\314\211\211\211\211'\212\306!q\210b\210\315\316!\210\317\320(P!\203H\321\316!)\232\203H\321\322!'\202X \203T\307\310\314\"\210\202X\312\323!\210b\210\324c\210\325\326 \327\330#\331\332\333\334 !\"!\331\332\333\334'!\"!Z\335\f\336\245!\f\336_Z\335\f\337\245!\f\211\337_Z\340\341\342\n#\261\210\314\211\223\210\343\344!\210\345\346 \n$.\207" [org-clock-marker fail-quietly m h s te marker-buffer throw exit t error "No active clock" nil beginning-of-line 1 looking-at "[ ]*" match-string 2 "Clock start time is gone" "--" org-insert-time-stamp current-time with-hm inactive time-to-seconds apply encode-time org-parse-time-string floor 3600 60 " => " format "%2d:%02d" org-add-log-maybe clock-out message "Clock stopped at %s after HH:MM = %d:%02d" ts org-keyword-time-regexp org-clock-string] 6)] 2 (#$ . 419832) nil]) #@59 Cancel the running clock be removing the start timestamp. (defalias 'org-clock-cancel #[nil "\301!\204\n\302\303!\210\212\301!q\210b\210\304 S\305 |\210)\306\307!\207" [org-clock-marker marker-buffer error "No active clock" point-at-bol point-at-eol message "Clock canceled"] 2 (#$ . 420940) nil]) #@72 Holds the file total time in minutes, after a call to `org-clock-sum'. (defvar org-clock-file-total-minutes nil (#$ . 421248)) (make-variable-buffer-local 'org-clock-file-total-minutes) #@106 Sum the times for each subtree. Puts the resulting times in minutes as a text property on each headline. (defalias 'org-clock-sum #[(&optional tstart tend) "\306 \307 \310Q\311\312\313\"\313\211\314\211 !\314\211\"#\315ed\316#\210\212db\210\317\n\314\320#\203\321\225\203\225\322\321! \322\323!!\324\325\326\327 !\"! \324\325\326\327!!\"!!$\203d $]\202f %\203u!%^\202w!\211! Z\211\"\313V\203\220 \330\"\331\245!\\\202\221 \202*\332\225\332\224Z \313V\204\253\fH\313V\203*\313&'&'X\203\316\f&\f&H \\I\210&T\211&\202\264*\313\fH#&S(&(X\203\366\f&\313I\210&T\211&\202\341*\313\224b\210\333`\334 \335#$\210\202*\f\313H))\336!.\n\207" [bmp org-clock-string re lmax ltimes t1 buffer-modified-p "^\$\\*+\$[ ]\\|^[ ]*" "[ ]*\$\\[.*?\\]\$-+\$\\[.*?\\]\$" 30 make-vector 0 nil remove-text-properties (:org-clock-minutes t) re-search-backward t 2 match-string 3 time-to-seconds apply encode-time org-parse-time-string floor 60 1 put-text-property point-at-eol :org-clock-minutes set-buffer-modified-p level ts te dt time tstart tend l #1=#:--cl-var-- #2=#:--cl-var-- org-clock-file-total-minutes] 6 (#$ . 421441) nil]) #@131 Show subtree times in the entire buffer. If TOTAL-ONLY is non-nil, only show the total time for the entire file in the echo area. (defalias 'org-clock-display #[(&optional total-only) "\306 \210\307\211\211\211\310 \210\f\204M\212eb\210\311`\312\"\211\2034b\210\313\312\"\211\203\314 \"\210\202\315\245\n\315_Z\203L\316\317\306\307\320$\210)\321\322\n \n %,\207" [p m h time total-only outline-level org-remove-clock-overlays nil org-clock-sum next-single-property-change :org-clock-minutes get-text-property org-put-clock-overlay 60 org-add-hook before-change-functions local message "Total file time: %d:%02d (%d hours and %d minutes)" org-clock-file-total-minutes org-remove-highlights-with-change] 6 (#$ . 422646) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\207" [current-load-list org-clock-overlays default-boundp set-default nil make-variable-buffer-local] 3) #@225 Put an overlays on the current line, displaying TIME. If LEVEL is given, prefix time with a corresponding number of stars. This creates a new overlay and stores it in `org-clock-overlays', so that it will be easy to remove. (defalias 'org-put-clock-overlay #[(time &optional level) "\306\307 \306\245! \n\306_Z\f\203\310\f\311\"\202\311\311\312\211\313!\210l\2040\314\312x\210\315\312x\210\316`S\317 \"`S`{\320\311iZ]\\\321\"\322\323\324\320 \325\"\n\320\326 Z\327\"%\330\"\331R\332\333#\210B\211.\207" [c time h m level l 60 floor org-get-legal-level 0 nil move-to-column "^ " " " org-make-overlay point-at-eol make-string 46 org-add-props format "%s %2d:%02d%s" 42 10 32 (face secondary-selection) "" org-overlay-put display off ov tx org-clock-overlays] 12 (#$ . 423569)]) #@171 Remove the occur highlights from the buffer. BEG and END are ignored. If NOREMOVE is nil, remove this function from the `before-change-functions' in the current buffer. (defalias 'org-remove-clock-overlays #[(&optional beg end noremove) "?\205\303\304 \"\210\305\n?\205\306\307\310\311#\207" [org-inhibit-highlight-removal org-clock-overlays noremove mapc org-delete-overlay nil remove-hook before-change-functions org-remove-clock-overlays local] 4 (#$ . 424389) nil]) #@126 Clock out if the current entry contains the running clock. This is used to stop the clock after a TODO entry is marked DONE. (defalias 'org-clock-out-if-current #[nil " \232\2053\304\n!p\232\2053`\nW\2053\212\305 \210`)\nV\2053<\203.\306\235\203.\307\202/\310 )\207" [state org-done-string org-clock-marker org-log-done marker-buffer outline-next-heading clock-out (done) org-clock-out] 2 (#$ . 424873)]) (add-hook 'org-after-todo-state-change-hook 'org-clock-out-if-current) #@123 Check if the current buffer contains the running clock. If yes, offer to stop it and to save the buffer with the changes. (defalias 'org-check-running-clock #[nil "\301!p\232\205\302\303\304\305 \"!\205\306 \210\302\307!\205\310 \207" [org-clock-marker marker-buffer y-or-n-p format "Clock-out in buffer %s before killing it? " buffer-name org-clock-out "Save changed buffer?" save-buffer] 4 (#$ . 425368)]) #@554 Create a table containing a report about clocked time. If the buffer contains lines #+BEGIN: clocktable :maxlevel 3 :emphasize nil #+END: clocktable then the table will be inserted between these lines, replacing whatever is was there before. If these lines are not in the buffer, the table is inserted at point, surrounded by the special lines. The BEGIN line can contain parameters. Allowed are: :maxlevel The maximum level to be included in the table. Default is 3. :emphasize t/nil, if levell 1 and level 2 should be bold/italic in the table. (defalias 'org-clock-report #[nil "\300 \210\301\302!\204\303\304\302\305\306\307\310\257!\210\311 \207" [org-remove-clock-overlays org-find-dblock "clocktable" org-create-dblock :name :maxlevel 2 :emphasize nil org-update-dblock] 7 (#$ . 425790) nil]) #@73 If this is a CLOCK line, update it and return t. Otherwise, return nil. (defalias 'org-clock-update-time-maybe #[nil "\212\306\307!\210\310\311w\210\312!\205s\313\314\315R\311\211\211\211\211\312!\205q\316\225\2032\316\224\316\225|\210\307\210\317\307!\317\320!\321\322\323\324\f!\"!\321\322\323\324 !\"!Z\325 \326\245! \326_Z\325 \327\245! \211\327_Z\330\331\332\n#\261\210\333.)\207" [org-clock-string s m h te ts beginning-of-line 1 " " nil looking-at "[ ]*" " *[[<]\$[^]>]+\$[]>]-+[[<]\$[^]>]+\$[]>]" "\$[ ]*=>.*\$?" 3 match-string 2 time-to-seconds apply encode-time org-parse-time-string floor 3600 60 " => " format "%2d:%02d" t re] 6 (#$ . 426605) nil]) #@515 Return two times bordering a special time range. Key is a symbol specifying the range and can be one of `today', `yesterday', `thisweek', `lastweek', `thismonth', `lastmonth', `thisyear', `lastyear'. A week starts Monday 0:00 and ends Sunday 24:00. The range is determined relative to TIME. TIME defaults to the current time. The return value is a cons cell with two internal times like the ones returned by `current time' or `encode-time'. if AS-STRINGS is non-nil, the returned times will be formatted strings. (defalias 'org-clock-special-range #[(key &optional time as-strings) "\306\206\307 !\310 A@\311 8\312 8\313 8\314 8\315 8 \316\211!\"\316\211#$\316\211%&\316\211'(\316\211)*+\317=\203X\310\211\320#\310\"\202;+\321=\203o S\310\211\320#\310\"\202;+\322=\203\227 \310U\203\201\315\202\204 S'\310\211 'Z\211\323\\$\202;+\324=\203\301 \310U\203\251\315\202\254 S\323\\'\310\211 'Z\211\323\\$\202;+\325=\203\337\326\310\211\326$T%\310\211#\"\202;+\327=\203\326\310\211\326$S\211T%\310\211#\"\202;+\330=\203\310\211\326\211T&\202;+\331=\2035\310\211\326\211S\211T&\202;\332\333+\"\210\334\n\f &(\334!\206O\n\"\206U#\206[\f$\206a %\206h&\206o&),A*-\203\215\335*(\"\335*)\"B\202\222()B.\207" [time tm s m h d decode-time current-time 0 2 3 4 5 6 nil today 24 yesterday thisweek 7 lastweek thismonth 1 lastmonth thisyear lastyear error "No such time block %s" encode-time format-time-string month y dow s1 m1 h1 d1 month1 y1 diff ts te fm key org-time-stamp-formats as-strings] 8 (#$ . 427308)]) #@32 Write the standard clocktable. (defalias 'org-dblock-write:clocktable #[(params) "\306\307\310 \307\211\211\211\211\211\211\211\211\211\211\211\211;<=>?@ABCD\311E\312\"\2064\313\311E\314\"C\311E\315\"\311E\316\"\311E\317\"\211\203^\320\307\321#\211@ A\203k\322\323\324\325!\"!\n\203x\322\323\324\325\n!\"!B`\307\223\210`A\326\327\330FA!\331\332O\333\203\227\334\335\"\202\230\336\337%\210\340\n\"\210G\341\245?G?\341_Z>\326\342\343\334\344?>#\345$\210eb\210\346`\347\"\211=\203S=b\210\350=\347\"\211@\203\277\212\351\331!\210\352\353!\203O\331\225\331\224Z\211<\203O<\fX\203OC\203\354<D\"A\206 \336\202 \336;\355\356!@\341\245?@?\341_Z>Bb\210<\331U\203-\326\357!\210\326\360\361#;\367&\f\210)\202\277Bb\210\370\331!\210Ab\210\371\307w\210\372 .\207" [block cc te ts maxlevel hdl ((1 . "*") (2 . 47)) nil make-marker plist-get :maxlevel 3 :emphasize :tstart :tend :block org-clock-special-range t time-to-seconds apply encode-time org-parse-time-string insert-before-markers "Clock summary at [" format-time-string 1 -1 "]." format " Considered range is /%s/." "" "\n\n|L|Headline|Time|\n" org-clock-sum 60 "|-\n|0|" "*Total file time*| " "*%d:%02d*" "|\n" next-single-property-change :org-clock-minutes get-text-property beginning-of-line looking-at "\$\\*+\$[ ]+\$.*?\$\$[ ]+:[0-9a-zA-Z_@:]+:\$?[ ]*$" assoc match-string 2 "|-\n" "| " int-to-string "|" " |" make-string 124 "%d:%02d" " |\n" backward-delete-char "^|" org-table-align hlc level p m h time ipos ins emph hlchars params org-time-stamp-formats org-clock-file-total-minutes] 17 (#$ . 428969)]) #@131 Return an internal list with clocking information. This list has one entry for each CLOCK interval. FIXME: describe the elements. (defalias 'org-collect-clock-time-entries #[nil "\306\307Q\310\211\211\211\211\211\211\211\211\211\211\211\211\211\211 !\"#$%&'\212\311 \210eb\210\312'\310\313#\203\342\314\224\315\316!%\315\317!$\314\225\"\320\321\322%!\"%\320\321\322$!\"$\323\313!\210\324 `\325`T\326\"\206s\314\211\327\245\327_Z\nB\330\331!\210\316\225\316\224Z!\317\310()\332)(\"* \212\333 \210`#)\312*#\313##b\210\330\334!\205\301\314\225`Z!X%$ \f!\257\n&B&\"b\210\2025)&\237.\207" [org-clock-string donep m h titlepos clockpos "^[ ]*" " *\\[\$.*?\$\\]--\\[\$.*?\$\\]" nil org-clock-sum re-search-forward t 0 match-string 1 2 apply encode-time org-parse-time-string org-back-to-heading org-entry-is-done-p get-text-property :org-clock-minutes 60 looking-at "\$\\*+\$ +\$.*\$" match-string-no-properties outline-next-heading "^\\*+ " leafp closedp total title level cont next end beg rtn re string num org-closed-time-regexp] 17 (#$ . 430671) nil]) #@31 Keymap for `org-agenda-mode'. (defvar org-agenda-mode-map (make-sparse-keymap) (#$ . 431813)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\310B\302\310!\204K\303\310\304\"\210\311B\302\311!\204Z\303\311\304\"\210\304\207" [current-load-list org-agenda-follow-mode default-boundp set-default nil org-agenda-show-log org-agenda-redo-command org-agenda-mode-hook org-agenda-type org-agenda-force-single-file] 3) #@125 Mode for time-sorted view on action items in Org-mode files. The following commands are available: \{org-agenda-mode-map} (defalias 'org-agenda-mode #[nil "\306 \210\307\211\310\311\312\nD\313\f!L\210*\314\315,!\210\316-!\210.\203*\317/\320\321\322\307\323$\210\320\324\325\307\323$\210\326\327!\203L\327\330B\313\f!L\210*0\204X12\3073\331\332\333\334\335\336\337N\203g\340\202h\341\342\336\337N?#\343D\344\345\336 \"\"#\210\346 \210\347\350\351!\203\206\351\202\207\352\353C\"\207" [org-agenda-undo-list org-agenda-pending-undo-list major-mode value var mode-name kill-all-local-variables nil org-agenda-mode font-lock-global-modes not make-variable-buffer-local "Org-Agenda" use-local-map easy-menu-add t org-add-hook post-command-hook org-agenda-post-command-hook local pre-command-hook org-unhighlight boundp buffer-substring-filters #[(x) "\301\302G\303$\210\207" [x set-text-properties 0 nil] 5] easy-menu-change ("Agenda") "Agenda Files" append vector org-agenda-files org-restrict "Restricted to single file" "Edit File List" (org-edit-agenda-file-list) "--" mapcar org-file-menu-entry org-agenda-set-mode-name apply fboundp run-mode-hooks run-hooks org-agenda-mode-hook org-agenda-mode-map org-agenda-menu org-startup-truncated truncate-lines org-agenda-keep-modes org-agenda-start-with-follow-mode org-agenda-follow-mode org-agenda-show-log] 10 (#$ . 432363) nil]) (byte-code "\303\304\305 $\210\306\307\310#\210\306\311\310#\210\306\312\313#\210\306\314\315#\210\306\316\317#\210\306\320\317#\210\306\321\317#\210\306\322\323#\210\306\324\325#\210\306\326\327#\210\306\330\331#\210\306\332\331#\210\306\333\334#\210\306\335\336#\210\306\337\327#\210\306\340\341#\210\306\342\343#\210\306\344\345#\210\306\346\347#\210\306\350\351#\210\306\352\353!\354#\210\306\352\355!\356#\210\306\357\354#\210\306\360\356#\210\306\361\362#\210\306\363\364#\210\306\365\366#\210\367\n\203\302\306\370\n\211A@!\371#\210\202\257)\306\372\373#\210\306\374\375#\210\306\376\377#\210\306\201@\201A#\210\306\201B\201C#\210\306\201D\201E#\210\306\201F\201G#\210\306\201H\201I#\210\306\201J\201K#\210\306\201L\201M#\210\306\201N\201O#\210\306\201P\201Q#\210\306\201R\201S#\210\306\201T\201U#\210\306\201V\201W#\210\306\201X\201W#\210\306\201Y\201Z#\210\306\201[\201\\#\210\201]\201^\201_\"\210\306\201`\201a#\210\306\201b\201c#\210\306\201d\201c#\210\306\201e\201f#\210\306\201g\201h#\210\306\201i\201h#\210\306\201j\201k#\210\306\201l\201m#\210\306\201n\201o#\210\306\201p\201q#\210\306\201r\201s#\210\306\352\201t!\201k#\210\306\352\201u!\201s#\210\306\201v\201k#\210\306\201w\201s#\210\306\201x\201y#\210\306\201z\201{#\210\306\201|\201}#\207" [org-agenda-mode-map global-map l substitute-key-definition undo org-agenda-undo define-key " " org-agenda-goto [(tab)] " " org-agenda-switch-to "" org-agenda-kill "$" org-agenda-archive "" "$" "" org-agenda-open-link " " org-agenda-show "" org-agenda-todo "b" org-agenda-tree-to-indirect-buffer "b" "o" delete-other-windows "L" org-agenda-recenter "t" "a" org-agenda-toggle-archive-tag ":" org-agenda-set-tags "." org-agenda-goto-today "d" org-agenda-day-view "w" org-agenda-week-view org-key S-right org-agenda-date-later S-left org-agenda-date-earlier [3 24 (right)] [3 24 (left)] ">" org-agenda-date-prompt "" org-agenda-schedule "" org-agenda-deadline (1 2 3 4 5 6 7 8 9 0) int-to-string digit-argument "f" org-agenda-follow-mode "l" org-agenda-log-mode "D" org-agenda-toggle-diary "g" org-agenda-toggle-time-grid "r" org-agenda-redo "q" org-agenda-quit "x" org-agenda-exit "s" org-save-all-org-buffers "P" org-agenda-show-priority "T" org-agenda-show-tags "n" next-line "p" previous-line "" org-agenda-next-date-line "" org-agenda-previous-date-line "," org-agenda-priority "," "i" org-agenda-diary-entry "c" org-agenda-goto-calendar eval-after-load "calendar" (define-key calendar-mode-map org-calendar-to-agenda-key 'org-calendar-goto-agenda) "C" org-agenda-convert-date "m" org-agenda-phases-of-moon "M" "S" org-agenda-sunrise-sunset "h" org-agenda-holidays "H" "+" org-agenda-priority-up "I" org-agenda-clock-in "O" org-agenda-clock-out "X" org-agenda-clock-cancel "-" org-agenda-priority-down S-up S-down [3 24 (up)] [3 24 (down)] [(right)] org-agenda-later [(left)] org-agenda-earlier "" org-export-icalendar-combine-agenda-files] 5) #@48 Local keymap for agenda entries from Org-mode. (defvar org-agenda-keymap (copy-keymap org-agenda-mode-map) (#$ . 436841)) (byte-code "\302\303\304#\210\302\305\306#\210 \203\302\307\310#\210\302\207" [org-agenda-keymap org-agenda-mouse-1-follows-link define-key [(mouse-2)] org-agenda-goto-mouse [(mouse-3)] org-agenda-show-mouse [follow-link] mouse-face] 4) #@13 Agenda menu (defvar org-agenda-menu nil (#$ . 437211)) (easy-menu-do-define 'org-agenda-menu org-agenda-mode-map "Agenda menu" '("Agenda" ("Agenda Files") "--" ["Show" org-agenda-show t] ["Go To (other window)" org-agenda-goto t] ["Go To (this window)" org-agenda-switch-to t] ["Follow Mode" org-agenda-follow-mode :style toggle :selected org-agenda-follow-mode :active t] ["Tree to indirect frame" org-agenda-tree-to-indirect-buffer t] "--" ["Cycle TODO" org-agenda-todo t] ["Archive subtree" org-agenda-archive t] ["Delete subtree" org-agenda-kill t] "--" ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda 'timeline)] ["Next Dates" org-agenda-later (org-agenda-check-type nil 'agenda)] ["Previous Dates" org-agenda-earlier (org-agenda-check-type nil 'agenda)] "--" ("Tags" ["Show all Tags" org-agenda-show-tags t] ["Set Tags" org-agenda-set-tags t]) ("Date/Schedule" ["Schedule" org-agenda-schedule t] ["Set Deadline" org-agenda-deadline t] "--" ["Change date +1 day" org-agenda-date-later (org-agenda-check-type nil 'agenda 'timeline)] ["Change date -1 day" org-agenda-date-earlier (org-agenda-check-type nil 'agenda 'timeline)] ["Change date to ..." org-agenda-date-prompt (org-agenda-check-type nil 'agenda 'timeline)]) ("Priority" ["Set Priority" org-agenda-priority t] ["Increase Priority" org-agenda-priority-up t] ["Decrease Priority" org-agenda-priority-down t] ["Show Priority" org-agenda-show-priority t]) ("Calendar/Diary" ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda 'timeline)] ["Goto Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda 'timeline)] ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda 'timeline)] ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda 'timeline)] ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda 'timeline)] ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda 'timeline)] "--" ["Create iCalendar file" org-export-icalendar-combine-agenda-files t]) "--" ("View" ["Day View" org-agenda-day-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (equal org-agenda-ndays 1)] ["Week View" org-agenda-week-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (equal org-agenda-ndays 7)] "--" ["Show Logbook entries" org-agenda-log-mode :style toggle :selected org-agenda-show-log :active (org-agenda-check-type nil 'agenda 'timeline)] ["Include Diary" org-agenda-toggle-diary :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)] ["Use Time Grid" org-agenda-toggle-time-grid :style toggle :selected org-agenda-use-time-grid :active (org-agenda-check-type nil 'agenda)]) ["Rebuild buffer" org-agenda-redo t] ["Save all Org-mode Buffers" org-save-all-org-buffers t] "--" ["Undo Remote Editing" org-agenda-undo org-agenda-undo-list] "--" ["Quit" org-agenda-quit t] ["Exit and Release Buffers" org-agenda-exit t])) #@58 Non-nil means, allow remote undo from the agenda buffer. (defvar org-agenda-allow-remote-undo t (#$ . 440208)) #@63 List of undoable operations in the agenda since last refresh. (defvar org-agenda-undo-list nil (#$ . 440325)) #@75 Buffers that have already seen `undo-start' in the current undo sequence. (defvar org-agenda-undo-has-started-in nil (#$ . 440441)) #@72 In a series of undo commands, this is the list of remaning undo items. (defvar org-agenda-pending-undo-list nil (#$ . 440579))(if macro-declaration-function (funcall macro-declaration-function (quote org-if-unprotected) (quote (declare (debug t))))) #@68 Execute BODY if ther is no `org-protected' text property at point. (defalias 'org-if-unprotected '(macro . #[(&rest body) "\301\302BB\207" [body unless (get-text-property (point) 'org-protected)] 3 (#$ . 440835)]))(if macro-declaration-function (funcall macro-declaration-function (quote org-with-remote-undo) (quote (declare (indent 1) (debug t))))) #@63 Execute BODY while recording undo information in two buffers. (defalias 'org-with-remote-undo '(macro . #[(_buffer &rest _body) "\302\303\304\305\306D\307\310\311\312BBD\313BBBBBB\314 \315\"BB\207" [_buffer _body let (_cline (org-current-line)) (_cmd this-command) (_buf1 (current-buffer)) _buf2 (_undo1 buffer-undo-list) _undo2 with-current-buffer (buffer-undo-list) (_c1 _c2) append ((when org-agenda-allow-remote-undo (setq _c1 (org-verify-change-for-undo _undo1 (with-current-buffer _buf1 buffer-undo-list)) _c2 (org-verify-change-for-undo _undo2 (with-current-buffer _buf2 buffer-undo-list))) (when (or _c1 _c2) (and _c1 (with-current-buffer _buf1 (undo-boundary))) (and _c2 (with-current-buffer _buf2 (undo-boundary))) (push (list _cmd _cline _buf1 _c1 _buf2 _c2) org-agenda-undo-list))))] 10 (#$ . 441193)])) #@144 Undo a remote editing step in the agenda. This undoes changes both in the agenda buffer and in the remote buffer that have been changed along. (defalias 'org-agenda-undo #[nil "\204\306\307!\210 \n=\204\310\f \204\306\311!\210 \211A@\310\211\310\211\211A@\211A@\3128\310\212\203Rb\210n\203Z\313\202[\314\315\313`\"\\* prq\210)\310\211 !\"#$%&'\316\211A@\211!\203\335\211A@\203\201rq\210\310()>\204\271B\317\320!\210\321 \210\203\325<\203\325@\204\325\211A@\210\202\271\322\313!\210+\202\201\2034\323#r%q\210)\"!\323\"r$q\210)\" !\204 \2034!\203r%q\210\324 \210) \203#r$q\210\324 \210)&'%!$ \257\fB.\325!\210\326\327\330!#-\207" [org-agenda-allow-remote-undo this-command last-command org-agenda-undo-has-started-in org-agenda-undo-list org-agenda-pending-undo-list error "Check the variable `org-agenda-allow-remote-undo' to activate remote undo." nil "No further undo information" 2 1 0 count-lines bufferp make-local-variable pending-undo-list undo-start undo-more org-verify-change-for-undo undo-boundary goto-line message "`%s' undone (buffer %s)" buffer-name entry buf line cmd rembuf pos buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline buffer-read-only last-undo-buffer] 9 (#$ . 442018) nil]) #@70 Verify that a real change occurred between the undo lists L1 and L2. (defalias 'org-verify-change-for-undo #[(l1 l2) "\203<\203@\204\211A@\210\202 \203. <\203. @\204. \211A@\210\202 =?\207" [l1 l2] 2 (#$ . 443379)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306 \"\210\307B\302\307!\204/\303\307\306 \"\210\310B\302\310!\204>\303\310\304\"\210\304\207" [current-load-list org-agenda-restrict default-boundp set-default nil org-agenda-restrict-begin make-marker org-agenda-restrict-end org-agenda-last-dispatch-buffer] 3) #@1107 Dispatch agenda commands to collect entries to the agenda buffer. Prompts for a character to select a command. Any prefix arg will be passed on to the selected command. The default selections are: g a Call `org-agenda-list' to display the agenda for current day or week. t Call `org-todo-list' to display the global todo list. T Call `org-todo-list' to display the global todo list, select only entries with a specific TODO keyword (the user gets a prompt). m Call `org-tags-view' to display headlines with tags matching a condition (the user is prompted for the condition). M Like `m', but select only TODO entries, no ordinary headlines. l Create a timeeline for the current buffer. More commands can be added by configuring the variable `org-agenda-custom-commands'. In particular, specific tags and TODO keyword searches can be pre-defined in this way. If the current buffer is in Org-mode and visiting a file, you can also first press `1' to indicate that the agenda should be temporarily (until the next use of \[org-agenda]) restricted to the current file. (defalias 'org-agenda #[(arg) "\300\301\215\207" [exit (byte-code "p\306\307 !\211\205\n\310=\f\311\211<=\311\211>?\311\211@A\312\313\314\311#\210\311BC\311\211\223\210D\311\211\223\210pE\315\213\210\316\317!\210\320\321\351\354!\210>\356>\203D \203\332\357\360\361?C#\210\202\336\362\363!\210r\310q\210db\210\364 `|\210eb\210)>\365=\203(\366@rAq\210\367 \203B\370 \340\223\210C\371 \340\223\210\202'\212\372\366!\210B`\340\223\210C\373\366!\340\223\210))>\374=\204@\351\352 \2039\375\202:\354\"\210\355 >\351\354!\210\340\207" [custom entry key type match restrict-ok delete-other-windows switch-to-buffer-other-window " *Agenda Commands*" erase-buffer #("Press key for an agenda command:\n-------------------------------- C Configure custom agenda commands\na Agenda for current week or day\nt List of all TODO entries T Entries with special TODO kwd\nm Match a TAGS query M Like m, but only TODO entries\nL Timeline for current buffer # List stuck projects (!=configure)\n" 0 74 nil 74 75 (face bold) 75 111 nil 111 112 (face bold) 112 146 nil 146 147 (face bold) 147 187 nil 187 188 (face bold) 188 221 nil 221 222 (face bold) 222 262 nil 262 263 (face bold) 263 296 nil 296 297 (face bold) 297 337 nil 337 338 (face bold) 338 362 nil 362 363 (face bold) 363 375 nil) 2 format "\n%-4s%-14s: %s" org-add-props copy-sequence (face bold) todo "TODO keyword" tags "Tags query" tags-todo "Tags (TODO)" tags-tree "Tags tree" todo-tree "TODO kwd tree" occur-tree "Occur tree" functionp symbol-name "???" nil face org-warning "set of %d commands" "\n" "1 Restrict call to current buffer 0 Restrict call to region or subtree" org-table fboundp fit-window-to-buffer message "Press key for agenda command%s" ", or [1] or [0] to restrict" "" read-char-exclusive (76 49 48) put org-agenda-files org-restrict error "Cannot restrict agenda to current buffer" point-at-bol 48 t org-region-active-p region-beginning region-end org-back-to-heading org-end-of-subtree 76 " (restricted to current file)" c bfn org-agenda-restrict buf org-agenda-restrict-begin org-agenda-restrict-end] 9)) require calendar assoc char-to-string 2 3 tags org-let (org-tags-view current-prefix-arg match) tags-todo (org-tags-view '(4) match) todo (org-todo-list match) tags-tree org-check-for-org-mode (org-tags-sparse-tree current-prefix-arg match) todo-tree (org-occur (concat "^" outline-regexp "[ ]*" (regexp-quote match) "\\>")) occur-tree (org-occur match) fboundp (funcall type match) error "Invalid custom agenda command type %s" org-run-agenda-series 67 customize-variable 97 call-interactively org-agenda-list 116 org-todo-list 84 (4) 109 org-tags-view 77 (4) 76 "This is not an Org-mode file" org-timeline 35 org-agenda-list-stuck-projects 33 org-stuck-projects "Invalid key" c entry key type match lprops org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end org-agenda-last-dispatch-buffer x arg command current-prefix-arg] 5)] 2 (#$ . 443975) "P"]) (defalias 'org-run-agenda-series #[(series) "\306 \210\307\310\311 DD @ A@\312\211\312\211 !\211A@\211\203\255@ A@\3138! \314=\203F\315\316!\210\202 \317=\203T\315\320!\210\202 \321=\203b\315\322!\210\202 \323=\203s\324\f!\325#\210\202 \326=\203\204\324\f!\327#\210\202 \330=\203\225\324\f!\331#\210\202\332 !\203\246\324\f!\333#\210\202\334\335!\210\202~\210\n\"eb\210.\336 \207" [org-agenda-multi series redo cmds gprops match org-prepare-agenda t org-run-agenda-series quote nil 2 agenda call-interactively org-agenda-list alltodo org-todo-list stuck org-agenda-list-stuck-projects tags org-let2 (org-tags-view current-prefix-arg match) tags-todo (org-tags-view '(4) match) todo (org-todo-list match) fboundp (funcall type match) error "Invalid type in command series" org-finalize-agenda cmd type lprops org-agenda-redo-command] 5]) #@239 Run an agenda command in batch mode, send result to STDOUT. CMD-KEY is a string that is also a key in `org-agenda-custom-commands'. Paramters are alternating variable names and values that will be bound before running the agenda command. (defalias 'org-batch-agenda '(macro . #[(cmd-key &rest parameters) "\304 \203 \211A@ \205 \211A@DB\202\305\306!\211\205%\306K\307\216\306\310M\210\311\312\237\313E!\210+\314q\210\315\316 !)\207" [pars parameters #1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- nil fboundp read-char-exclusive ((byte-code "\203\302 M\210\202\303\302!\210\302\207" [#1# #2# read-char-exclusive fmakunbound] 2)) #[nil "\301!\207" [cmd-key string-to-char] 2] eval let (org-agenda nil) "*Org Agenda*" princ buffer-string] 5 (#$ . 450475)])) #@29 Inhibit read-only for BODY. (defalias 'org-no-read-only '(macro . #[(&rest body) "\301\302BB\207" [body let ((inhibit-read-only t))] 3 (#$ . 451256)])) #@57 Make sure current buffer is in org-mode. Error if not. (defalias 'org-check-for-org-mode #[nil "\301=\206\n\302\303\"\207" [major-mode org-mode error "Cannot execute org-mode agenda command on buffer in %s."] 3 (#$ . 451415)]) #@36 Fit the window to the buffer size. (defalias 'org-fit-agenda-window #[nil "\301>\205\302\303!\205\303\304\305 \306_\307\245\305 \310\245#\207" [org-agenda-window-setup (reorganize-frame) fboundp fit-window-to-buffer nil frame-height 3 4 2] 5 (#$ . 451652)]) #@125 Get the list of agenda files. Optional UNRESTRICTED means return the full list even if a restriction is currently in place. (defalias 'org-agenda-files #[(&optional unrestricted) "\204\n\301\302N\206 ;\203\303 \207 <\203 \207\304\305!\207" [unrestricted org-agenda-files org-restrict org-read-agenda-file-list error "Invalid value of `org-agenda-files'"] 2 (#$ . 451922)]) #@313 Edit the list of agenda files. Depending on setup, this either uses customize to edit the variable `org-agenda-files', or it visits the file that is holding the list. In the latter case, the buffer is set up in a way that saving it automatically kills the buffer and restores the previous window configuration. (defalias 'org-edit-agenda-file-list #[nil ";\203%\304 \305!\210\306 \307!\nL\210*\310\311\312\313\314$\210\315\316\317!!)\207\320\300!\207" [org-agenda-files cw value var current-window-configuration find-file org-window-configuration make-variable-buffer-local org-add-hook after-save-hook #[nil "\301\302p!\210!\210\303 \210\304\305!\207" [org-window-configuration set-window-configuration kill-buffer org-install-agenda-files-menu message "New agenda file list installed"] 4] nil local message substitute-command-keys "Edit list and finish with \\[save-buffer]" customize-variable] 5 (#$ . 452310) nil]) #@62 Set new value for the agenda file list and save it correcly. (defalias 'org-store-new-agenda-file-list #[(list) ";\203@\306\307\n!\211\203\310 !\210\202 \n\311\312\313!!\314\216rq\210\315\316 \317#\317\261)rq\210~\210\320ed\f\306\321%\210.\207\306\322 \323\300\"*\207" [org-agenda-files b f #1=#:temp-buffer #2=#:temp-file list nil find-buffer-visiting kill-buffer get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mapconcat identity "\n" write-region 0 fundamental-mode customize-save-variable default-major-mode org-mode-hook] 7 (#$ . 453244)]) #@44 Read the list of agenda files from a file. (defalias 'org-read-agenda-file-list #[nil ";\205\302\303!\304\216r q\210\305!\210\306\307 \310\"+\207" [org-agenda-files #1=#:temp-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents org-split-string buffer-string "[ \n]*?[ \n][ \n]*"] 3 (#$ . 453906)]) #@184 Cycle through the files in `org-agenda-files'. If the current buffer visits an agenda file, find the next one in the list. If the current buffer does not, find the first agenda file. (defalias 'org-cycle-agenda-files #[nil "\305\306!\307\211@C\"\n\205\310\n!\311 \204\312\313!\210\314\315\215\210\316 \205*\317\316 !,\207" [fs files buffer-file-name tcf file org-agenda-files t append file-truename nil error "No agenda files" exit (byte-code "\211A@\211\203$\304 !\n\232\203@\203\305@!\210\306\307\310\"\210\202\305@!\207" [files file tcf fs file-truename find-file throw exit t] 3) buffer-base-buffer switch-to-buffer] 3 (#$ . 454306) nil]) #@169 Move/add the current file to the end of the agenda file list. If the file is not present in the list, it is appended to the list. If it is present, it is moved there. (defalias 'org-agenda-file-to-end #[nil "\300\301!\207" [org-agenda-file-to-front to-end] 2 (#$ . 454979) nil]) #@232 Move/add the current file to the top of the agenda file list. If the file is not present in the list, it is added to the front. If it is present, it is moved there. With optional argument TO-END, add/move to the end of the list. (defalias 'org-agenda-file-to-front #[(&optional to-end) "\306\307\310\311!\"\312!\313\211\314\f\"\211\n\204 \315!B \2030\316\317\n\f\"\nC\"\2027\n\317\n\f\"B\320\306\321\f\"!\210\322 \210\323\324 \203K\325\202L\326 \203T\327\202U\330#,\207" [buffer-file-name had x ctf file-alist to-end mapcar #[(x) "\301!B\207" [x file-truename] 2] org-agenda-files t file-truename nil assoc abbreviate-file-name append delq org-store-new-agenda-file-list cdr org-install-agenda-files-menu message "File %s to %s of agenda file list" "moved" "added" "end" "front"] 5 (#$ . 455266) "P"]) #@208 Remove current file from the list of files in variable `org-agenda-files'. These are the files which are being checked for agenda entries. Optional argument FILE means, use this file instead of the current. (defalias 'org-remove-file #[(&optional file) "\206 \305!\306!\307\310\311\312\313\314!\"\"\211G\313\314!GU\2040\315\f!\210\316 \210\317\320\"\2024\317\321\",\207" [file buffer-file-name true-file afile files file-truename abbreviate-file-name delq nil mapcar #[(x) "\302 !\232?\205\n \207" [true-file x file-truename] 3] org-agenda-files t org-store-new-agenda-file-list org-install-agenda-files-menu message "Removed file: %s" "File was not in list: %s"] 7 (#$ . 456099) nil]) (defalias 'org-file-menu-entry #[(file) "\301\302D\303#\207" [file vector find-file t] 4]) #@54 Make sure FILE exists. If not, ask user what to do. (defalias 'org-check-agenda-file #[(file) "\302!?\205'\303\304\305!\"\210\306 \227\211\307\232\203#\310!\210\311\312\313\"\202&\314\315!)\207" [file r file-exists-p message "non-existent file %s. [R]emove from list or [A]bort?" abbreviate-file-name read-char-exclusive 114 org-remove-file throw nextfile t error "Abort"] 5 (#$ . 456899)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\307B\302\307!\204-\303\307\304\"\210\304\207" [current-load-list org-agenda-multi default-boundp set-default nil org-agenda-buffer-name "*Org Agenda*" org-pre-agenda-window-conf] 3) (defalias 'org-prepare-agenda #[nil "\203 \306db\210`\307U\204\310\311\312 \313\"\310\261\210`d}\210\202\212\314\315!\210\316\317 !\210\320\n!\321!p\232\204\201\f\203B\322\f!\210\202\201\323 \211\203\201\324\232\203W\325!\210\202\201\326\232\203e\327!\210\202\201\330\232\203s\331!\210\202\201\332\232\203\201\333 \210\327!\210*\306\334 \210\335 \210\306\211\207" [org-agenda-multi buffer-read-only org-agenda-buffer-name abuf awin org-pre-agenda-window-conf nil 1 "\n" make-string window-width 61 org-agenda-maybe-reset-markers force org-prepare-agenda-buffers org-agenda-files get-buffer-create get-buffer-window select-window current-window-configuration current-window switch-to-buffer other-window switch-to-buffer-other-window other-frame switch-to-buffer-other-frame reorganize-frame delete-other-windows erase-buffer org-agenda-mode org-agenda-window-setup] 4]) #@74 Finishing touch for the agenda buffer, called just before displaying it. (defalias 'org-finalize-agenda #[nil "?\205$\302 \210\212\303eb\210\304d!\203\305\306\224\306\225\307#\210\202)\310\311!)\207" [org-agenda-multi buffer-read-only org-agenda-align-tags nil org-activate-bracket-links add-text-properties 0 (face org-link) run-hooks org-finalize-agenda-hook] 4 (#$ . 458489)]) #@75 Create buffers for all agenda files, protect archived trees and comments. (defalias 'org-prepare-agenda-buffers #[(files) "\306\307\310\311\311Q\312\211\211\212\214\211A@\211\205\313\n!\210\314\n!q\210~\210\315 \212\316ed #\210\203Yeb\210\317\f\312\320#\203Y\321\320!\203>\322\323 \324\320!#\210\202>eb\210\325\326Q\317 \312\320#\203w\322\327\224\324\320!#\210\202b)\330!\210\202. \207" [org-archive-tag re file bmp rea pall (:org-archived t) (:org-comment t) (:org-archived t :org-comment t) ":" nil org-check-agenda-file org-get-agenda-file-buffer buffer-modified-p remove-text-properties re-search-forward t org-on-heading-p add-text-properties point-at-bol org-end-of-subtree "^\\*+ +" "\\>" 0 set-buffer-modified-p pc pa files org-agenda-skip-archived-trees org-comment-string] 7 (#$ . 458882) nil]) #@418 Function to be called at each match during agenda construction. If this function return nil, the current match should not be skipped. Otherwise, the function must return a position from where the search should be continued. Never set this variable using `setq' or so, because then it will apply to all future agenda commands. Instead, bind it with `let' to scope it dynamically into the agenda-constructing command. (defvar org-agenda-skip-function nil (#$ . 459730)) #@143 Throw to `:skip' in places that should be skipped. Also moves point to the end of the skipped region, so that search can continue from there. (defalias 'org-agenda-skip #[nil "\305 \306\n\203\307 \310\"\203\311\312!\203\313\314\312\"\210\307 \315\"\203-\311\312!\203-\313\314\312\"\210 f\316\232\2039\313\314\312\"\210\317!\205T\212\320 \321\216 +\211\205Tb\210\313\314\312\"*\207" [to p org-agenda-skip-archived-trees org-agenda-skip-function save-match-data-internal point-at-bol nil get-text-property :org-archived org-end-of-subtree t throw :skip :org-comment 35 functionp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3))] 3 (#$ . 460206)]) #@63 List of all currently active markers created by `org-agenda'. (defvar org-agenda-markers nil (#$ . 460923)) #@42 Creation time of the last agenda marker. (defvar org-agenda-last-marker-time (byte-code "\300\301 !\207" [time-to-seconds current-time] 2) (#$ . 461037)) #@116 Return a new agenda marker. Org-mode keeps a list of these markers and resets them when they are no longer in use. (defalias 'org-agenda-new-marker #[(&optional pos) "\304\206`!\305\306 ! B )\207" [pos m org-agenda-last-marker-time org-agenda-markers copy-marker time-to-seconds current-time] 2 (#$ . 461198)]) #@74 Reset markers created by `org-agenda'. But only if they are old enough. (defalias 'org-agenda-maybe-reset-markers #[(&optional force) "\203 \203\304\305 !\nZ\306V\205#\205#\211A@\307\211\223\210\202\207" [force org-agenda-multi org-agenda-last-marker-time org-agenda-markers time-to-seconds current-time 5 nil] 3 (#$ . 461522)]) #@40 Buffers created to visit agenda files. (defvar org-agenda-new-buffers nil (#$ . 461870)) #@126 Get a buffer visiting FILE. If the buffer needs to be created, add it to the list of buffers which might be released later. (defalias 'org-get-agenda-file-buffer #[(file) "\303!\211\203\f \202\304!\211\203 \nB )\207" [file buf org-agenda-new-buffers org-find-base-buffer-visiting find-file-noselect] 3 (#$ . 461966)]) #@190 Release all buffers in list, asking the user for confirmation when needed. When a buffer is unmodified, it is just killed. When modified, it is saved (if the user agrees) and then killed. (defalias 'org-release-buffers #[(blist) "\303\211\n\211A@\211\2054\304 !\305 !\203-\203-\306\307\310\"!\203-r q\210\311 \210)\312 !\210\202*\207" [file buf blist nil buffer-file-name buffer-modified-p y-or-n-p format "Save file %s? " save-buffer kill-buffer] 4 (#$ . 462302)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-category-table default-boundp set-default nil] 3) #@62 Get the table of categories and positions in current buffer. (defalias 'org-get-category-table #[nil "\301\212eb\210\302\303\301\304#\203`\305\306\307!!BB\202))\207" [tbl nil re-search-forward "\$^\\| \$#\\+CATEGORY:[ ]*\$.*\$" t org-trim match-string 2] 4 (#$ . 462923)]) #@44 Get the category applying to position POS. (defalias 'org-get-category #[(&optional pos) "\204# \204\n\203\306\307\n!!\202\310\211\207 9\203!\311 !\207 \207\206)`\f\203C\f\211@@)V\203C\f\211A@\210\202+\f\211@A)\206RGS8A*\207" [org-category-table org-category buffer-file-name pos tbl x file-name-sans-extension file-name-nondirectory "???" symbol-name] 4 (#$ . 463215)]) #@310 Show a time-sorted view of the entries in the current org file. Only entries with a time stamp of today or later will be listed. With \[universal-argument] prefix, all unfinished TODO items will also be shown, under the current date. If the buffer contains an active region, only check the region for dates. (defalias 'org-timeline #[(&optional include-all) "\306\307!\210\310\311!\210\312\311!\210\313 9\314 :\315 \203#\316 \202$e;\315 \2030\317 \2021d<\320;<\321\313\f=&>\322\323 !?\313@\324\211AB\324\211CD\324\211EF\325\326pD\327\330 DDEG\204v\331\324\332\333>\"\">\334 \210\f\203\203\335ABA\336ABA\n\203\223\337ABA>\211A>@\211E\203\206E<\203\305E@\340=\203\305`B\341\342EA\"c\210\343B`S\344\345$\210\202\223E<\203\326E@E\313F\202\331\324FE?Y\203\365\203\365@\203\365\324@\346\347\350\"\351\261\210\352E!:`BF?\205 \353\3549:A$\211D\204 E?\232\204 =\203\223\355:!\356\357:\211:A@)!\356\360:\211:@)!\356\357:\211:AA@)!\351\261\210\343B`S\344\345$\210\343B`S\361\313$\210E?\232\203l\343B`S\362\313$\210D\203y\363D!\351\261\210\343B`S\364E$\210\202\223eb\210\365ed\362\313$\206\223eb\210\366ed\367#\210\370 \210\313\211H.\207" [dopast include-all dotodo org-agenda-show-log doclosed buffer-file-name require calendar org-compile-prefix-format timeline org-set-sorting-strategy t calendar-current-date org-region-active-p region-beginning region-end org-get-all-dates no-ranges time-to-days current-time nil progn switch-to-buffer-other-window org-timeline quote delq mapcar #[(x) " Y\205\207" [x today] 2] org-prepare-agenda :closed :timestamp :todo :omitted format "\n[... %d empty days omitted]\n\n" put-text-property face org-level-3 make-string 79 45 "\n" calendar-gregorian-from-absolute apply org-agenda-get-day-entries calendar-day-name " " number-to-string calendar-month-name org-date-line org-today org-finalize-agenda-entries day text-property-any add-text-properties (org-agenda-type timeline) org-finalize-agenda entry date beg end org-timeline-show-empty-dates day-numbers today past args s e rtn d emptyp org-agenda-redo-command buffer-read-only] 9 (#$ . 463618) "P"]) #@414 Return a list of all relevant day numbers from BEG to END buffer positions. If NO-RANGES is non-nil, include only the start and end dates of a range, not every single day in the range. If FORCE-TODAY is non-nil, make sure that TODAY is included in the list. If INACTIVE is non-nil, also inactive time stamps (those in square brackets) are included. When EMPTY is non-nil, also include days without any entries. (defalias 'org-get-all-dates #[(beg end &optional no-ranges force-today inactive empty) "\203 \202 \n\306\211\211\211\211\211\211\211\203,\307\310 !C\212b\210\311\312#\203X\307\313\314\315!\316\317O!!\211>\2041B\2021\204\243b\210\311\312#\203\243\314\315!\316\317O\314\320!\316\317O\307\313\f!!\307\313!!T\211 W\203a>\204\206B\202\206\321\322\"\203\211A@\211\203@B \203\257\203\257\312=\204\347\247\203\375 ZX\203\375T\211 W\203\257CB\202\347\323 ZBB\202\257\237.\n\207" [inactive org-ts-regexp-both org-ts-regexp ts2 ts1 day2 nil time-to-days current-time re-search-forward t org-time-string-to-time match-string 1 0 10 2 sort < :omitted day1 day date dates1 dates re force-today beg end no-ranges org-tr-regexp empty] 10 (#$ . 465820)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-agenda-overriding-arguments default-boundp set-default nil] 3) #@50 The arguments of the previous call to org-agenda (defvar org-agenda-last-arguments nil (#$ . 467267)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list org-starting-day default-boundp set-default nil org-include-all-loc] 3) #@636 Produce a weekly view from all files in variable `org-agenda-files'. The view will be for the current week, but from the overview buffer you will be able to go to other weeks. With one \[universal-argument] prefix argument INCLUDE-ALL, all unfinished TODO items will also be shown, under the current date. With two \[universal-argument] prefix argument INCLUDE-ALL, all TODO entries marked DONE on the days are also shown. See the variable `org-log-done' for how to turn on logging. START-DAY defaults to TODAY, or to the most recent match for the weekday given in `org-agenda-start-on-weekday'. NDAYS defaults to `org-agenda-ndays'. (defalias 'org-agenda-list #[(&optional include-all start-day ndays) "\203@A@\3068 \nE\307\310!\210\311\310!\210\312\313!\210\314\232\206.?\205. \314\232?\2054<<\315 \211=>\316\317 !?\n\206I?@<\203V \320W\203[@\202\201\321\322@!!A<BABZC@C\323W\203{\320\202|\323C\\Z+\211DCEF?G\324\211HI\324\211JK\324\211LM\324\211CN\324\211OP\324Q\325\326 D\nFR\206\273 \211Q\314V\203\325E@TEBES\211\202\300E\237E\327 \210\330E@ST\331T!SL\210*\332 ST\331T!SL\210* \204U\203B?E\235\203B=>\324K>\211A>@\211L\203)\333\334\215\210\202K\203B\335c\210\336e`S\337\340D#\210\341K!\342\261\210`HQ\320U\203P\343\202Q\344\345\261\210\336H`S\337\340D#\210E\211AE@\211C\203?\322C!M`HC?U\211P\204\215N\204\223C@U\203\223`N\202\240N\203\240O\204\240`O=>\324K>\211A>@\211L\203\273\333\346\215\210\202\247V\203\322\312\347!\210\350M!J\351KJ\"KK\204\334W\203_\352\353\354M!M\211MA@)\355M\211M@)!M\211MAA@)%c\210\356H`S\337\340$\210\356H`S\357\360$\210P\203\356H`S\361\360$\210K\2032\341\362KQP#!\342\261\210\356H`S\363C$\210\202_eb\210\364 \210\365e!\203Q\365d!\204pdSb\210\366\367!\210\365N\206`\314!\204pN\206j\314b\210\366\314!\210N\206v\314b\210\336ed\370#\210\371 \210\360X\372\373!.\207" [org-agenda-overriding-arguments include-all start-day ndays org-agenda-last-arguments org-agenda-ndays 2 org-compile-prefix-format agenda org-set-sorting-strategy require calendar 1 org-agenda-files time-to-days current-time 7 calendar-day-of-week calendar-gregorian-from-absolute 0 nil org-agenda-list quote org-prepare-agenda org-starting-day make-variable-buffer-local org-include-all-loc nextfile (byte-code "\305!\210\306 !\307\n\310#\311\f\"\305\207" [file today date rtn rtnall org-check-agenda-file calendar-gregorian-from-absolute org-agenda-get-day-entries :todo append] 4) "ALL CURRENTLY OPEN TODO ITEMS:\n" add-text-properties face org-level-3 org-finalize-agenda-entries "\n" "Week-" "Day-" "agenda:\n" (byte-code "\305!\210 \203\306\n\307\310\311\312&\202\306\n\307\310\311%\313\f\"\305\207" [file org-agenda-show-log date rtn rtnall org-check-agenda-file org-agenda-get-day-entries :deadline :scheduled :timestamp :closed append] 7) diary-lib org-get-entries-from-diary append format "%-9s %2d %s %4d\n" calendar-day-name calendar-month-name put-text-property org-date-line t org-today org-agenda-add-time-grid-maybe day org-fit-agenda-window pos-visible-in-window-p recenter -1 (org-agenda-type agenda) org-finalize-agenda message "" org-agenda-start-on-weekday thefiles files today sd nt n1 d start day-numbers debug-on-error inhibit-redisplay s e rtn rtnall file date start-pos end-pos todayp nd org-agenda-redo-command value var org-agenda-include-all-todo org-agenda-include-diary org-agenda-show-all-dates buffer-read-only] 7 (#$ . 467569) "P"]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list org-select-this-todo-keyword default-boundp set-default nil org-last-arg] 3) #@298 Show all TODO entries from all agenda file in a single list. The prefix arg can be used to select a specific TODO keyword and limit the list to these. When using \[universal-argument], you will be prompted for a keyword. A numeric prefix directly selects the Nth keyword in `org-todo-keywords'. (defalias 'org-todo-list #[(arg) "\306\307!\210\310\311!\210\312\311!\210\313\314 !\315!\n\316 ;\203\" \2025 \2055 \250\2055 \317V\2055 S\n8.\320\211/0\320\21112\3203 \321\232\203W\322\323\324\325\n\"\320\316$. \317\232\203`\320.\326 \210\327 45\3305!4L\210*\30245\3305!4L\210*\3316\332 1\32001\211A1@\2112\203\237\333\334\215\210\202\2137\203\264\335\3367!\320\337\340$\341\261\210\202\367\342c\210\343e`S\337\340D#\210`3.\206\311\344\341\261\210\3433`S\337\345D#\210`38\204\355\346\3179\347\350\n\351#)\341\261\210\3433`S\337\340D#\2100\203\3520!\341\261\210eb\210\353 \210\343ed\354#\210\355 \210\316\211:.\n\207" [today date org-todo-keywords kwds completion-ignore-case arg require calendar org-compile-prefix-format todo org-set-sorting-strategy time-to-days current-time calendar-gregorian-from-absolute t 0 nil (4) completing-read "Keyword: " mapcar list org-prepare-agenda org-last-arg make-variable-buffer-local (org-todo-list (or current-prefix-arg org-last-arg)) org-agenda-files nextfile (byte-code "\304!\210\305 \306#\307\n\"\304\207" [file date rtn rtnall org-check-agenda-file org-agenda-get-day-entries :todo append] 4) org-add-props copy-sequence face org-level-3 "\n" "Global list of TODO items of type: " add-text-properties "ALL" org-warning "Available with `N r': (0)ALL " mapconcat #[(x) "\302\303T\211 #\207" [n x format "(%d)%s"] 4] " " org-finalize-agenda-entries org-fit-agenda-window (org-agenda-type todo) org-finalize-agenda org-select-this-todo-keyword rtn rtnall files file pos value var org-agenda-redo-command org-agenda-overriding-header org-agenda-multi n buffer-read-only] 6 (#$ . 471337) "P"]) #@134 Show all headlines for all `org-agenda-files' matching a TAGS criterion. The prefix arg TODO-ONLY limits the search to TODO entries. (defalias 'org-tags-view #[(&optional todo-only match) "\306\307!\210\310\307!\210\203\311\202 \311\312\211\312\211!\312\211\"#\312$\313%!\211#@%#A#\314 \210\315\316D\317\320\312%FE&\321 \312 \211A@\211!\203\\\322\323\215\210\202J'\203q\324\325'!\312\326\327$\330\261\210\202\245\331c\210\332e`S\326\327D#\210`\"%\330\261\210\332\"`S\326\333D#\210`\"(\204\233\334c\210\332\"`S\326\327D#\210\f\203\260\335\f!\330\261\210eb\210\336 \210\332ed\337#\210\340 \210\311\211). \207" [todo-only org-tags-match-list-sublevels completion-ignore-case rtn rtnall files org-compile-prefix-format tags org-set-sorting-strategy t nil org-make-tags-matcher org-prepare-agenda org-tags-view quote if current-prefix-arg org-agenda-files nextfile (byte-code "\306!\210\307!\203\310!\202\311\312\"\211\204'\313\314\"C\315\n\"\202Yr q\210\f\316=\2046\311\317\"\210\320 \212\214\203I}\210\202K~\210\321\322#\315\n\"+\306\207" [file buffer rtn rtnall major-mode org-category-table org-check-agenda-file file-exists-p org-get-agenda-file-buffer error "No such file %s" format "ORG-AGENDA-ERROR: No such org-file %s" append org-mode "Agenda file %s is not in `org-mode'" org-get-category-table org-scan-tags agenda org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end matcher todo-only] 5) org-add-props copy-sequence face org-level-3 "\n" "Headlines with TAGS match: " add-text-properties org-warning "Press `C-u r' to search again with new search string\n" org-finalize-agenda-entries org-fit-agenda-window (org-agenda-type tags) org-finalize-agenda file pos matcher buffer match org-agenda-redo-command org-agenda-overriding-header org-agenda-multi buffer-read-only] 7 (#$ . 473340) "P"]) #@199 Regular expression used in skipping subtrees for the agenda. This is basically a temporary global variable that can be set and then used by user-defined selections using `org-agenda-skip-function'. (defvar org-agenda-skip-regexp nil (#$ . 475240)) #@70 When this is set during todo and tags searches, will replace header. (defvar org-agenda-overriding-header nil (#$ . 475494)) #@271 Checks if the current subtree contains match for `org-agenda-skip-regexp'. If yes, it returns the end position of this tree, causing agenda commands to skip this subtree. This is a function that can be put into `org-agenda-skip-function' for the duration of a command. (defalias 'org-agenda-skip-subtree-when-regexp-matches #[nil "\304 \305\216\212\306\307!)\310\212\311\n\307#) \205\n,\207" [save-match-data-internal skip end org-agenda-skip-regexp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-end-of-subtree t nil re-search-forward] 4 (#$ . 475626)]) #@244 Create agenda view for projects that are stuck. Stuck projects are project that have no next actions. For the definitions of what a project is and how to check if it stuck, customize the variable `org-stuck-projects'. MATCH is being ignored. (defalias 'org-agenda-list-stuck-projects #[(&rest ignore) "\306\307\n@\nA@\310\n8\311\312\313\f\314#\315Q\316\312\313 \314#\317Q\f\2034 \2034\314Q\202I\f\203=\202I \203F\202I\320\321!\322\323\"\210rq\210\324\211.\207" [org-agenda-skip-function org-agenda-overriding-header org-stuck-projects matcher todo tags org-agenda-skip-subtree-when-regexp-matches "List of stuck projects: " 2 "^\\*+[ ]+\$" mapconcat identity "\\|" "\$\\>" "^\\*+.*:\$" "\$:[a-zA-Z0-9_@:]*[ ]*$" error "No information how to identify unstuck projects" org-tags-view nil (org-agenda-list-stuck-projects (or current-prefix-arg org-last-arg)) todo-re tags-re org-agenda-skip-regexp org-agenda-buffer-name org-agenda-redo-command] 5 (#$ . 476250) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-disable-agenda-to-diary default-boundp set-default nil] 3) #@50 Get the (Emacs Calendar) diary entries for DATE. (defalias 'org-get-entries-from-diary #[(date) "\306\307\310\nB\311\312\311\313\212\314\213\210)\315!\204!\311\202Orq\210\311d\316U\2033\311\202F\317 \210d\316U\203A\311\202FedS{\320\311!\210\321!\210) \205^\322 \323\"\324\325 \"\211.\207" [fancy-diary-buffer diary-display-hook list-diary-entries-hook diary-file-name-prefix-function diary-modify-entry-list-string-function entries "*temporary-fancy-diary-buffer*" (fancy-diary-display) org-diary-default-entry nil org-modify-diary-entry-string t ((list-diary-entries date 1)) get-buffer 1 org-agenda-cleanup-fancy-diary set-buffer-modified-p kill-buffer org-split-string "\n" mapcar #[(x) "\301\302\303\304\305%\306\307GS\"\"\207" [x org-format-agenda-item "" "Diary" nil time org-add-props text-properties-at] 6] org-disable-agenda-to-diary buffer-read-only] 3 (#$ . 477404)]) #@262 Remove unwanted stuff in buffer created by `fancy-diary-display'. This gets rid of the date, the underline under the date, and the dummy entry installed by `org-mode' to ensure non-empty diary for each date. It also removes lines that contain only whitespace. (defalias 'org-agenda-cleanup-fancy-diary #[nil "eb\210\300\301!\203&\302\303!\210\304\305\306\307#\210\302\303!\210\310\311\306\307#\2034\302\303!\210\202\304\305\306\307#\210ed\312\225T^|\210eb\210\304\313\306\307#\203F\302\303!\210\2027eb\210\304\314\306\307#\205T\302\303!\207" [looking-at ".*?:[ ]*" replace-match "" re-search-forward "\n=+$" nil t re-search-backward "^ +\n?" 0 "^ +\n" "^Org-mode dummy\n?"] 4 (#$ . 478322)]) (eval-after-load "diary-lib" '(if (boundp 'diary-modify-entry-list-string-function) nil (defadvice add-to-diary-list (before org-mark-diary-entry activate) "Make the position visible." (if (and org-disable-agenda-to-diary (stringp string) buffer-file-name) (setq string (org-modify-diary-entry-string string)))))) #@64 Add text properties to string, allowing org-mode to act on it. (defalias 'org-modify-diary-entry-string #[(string) "\303\304\305\306\307 \310\311\312\313\n!\"\314\315\316\317\320 !&\f\207" [string org-agenda-keymap buffer-file-name org-add-props nil mouse-face highlight keymap help-echo format "mouse-2 or RET jump to diary file %s" abbreviate-file-name org-agenda-diary-link t org-marker org-agenda-new-marker point-at-bol] 14 (#$ . 479343)]) #@92 Add a dummy entry to the diary. Needed to avoid empty dates which mess up holiday display. (defalias 'org-diary-default-entry #[nil "\205\301\302\303\217\207" [org-disable-agenda-to-diary nil (add-to-diary-list original-date "Org-mode dummy" "") ((error (add-to-diary-list original-date "Org-mode dummy" "" nil)))] 3 (#$ . 479795)]) #@1819 Return diary information from org-files. This function can be used in a "sexp" diary entry in the Emacs calendar. It accesses org files and extracts information from those files to be listed in the diary. The function accepts arguments specifying what items should be listed. The following arguments are allowed: :timestamp List the headlines of items containing a date stamp or date range matching the selected date. Deadlines will also be listed, on the expiration day. :deadline List any deadlines past due, or due within `org-deadline-warning-days'. The listing occurs only in the diary for *today*, not at any other date. If an entry is marked DONE, it is no longer listed. :scheduled List all items which are scheduled for the given date. The diary for *today* also contains items which were scheduled earlier and are not yet marked DONE. :todo List all TODO items from the org-file. This may be a long list - so this is not turned on by default. Like deadlines, these entries only show up in the diary for *today*, not at any other date. The call in the diary file should look like this: &%%(org-diary) ~/path/to/some/orgfile.org Use a separate line for each org file to check. Or, if you omit the file name, all files listed in `org-agenda-files' will be checked automatically: &%%(org-diary) If you don't give any arguments (as in the example above), the default arguments (:deadline :scheduled :timestamp) are used. So the example above may also be written as &%%(org-diary :deadline :timestamp :scheduled) The function expects the lisp variables `entry' and `date' to be provided by the caller, because this is how the calendar works. Don't use this function from a program - use `org-agenda-get-day-entries' instead. (defalias 'org-diary #[(&rest args) "\306 \210\307\310!\210\311\310!\210\206\312 \203& ;\203&\313\314 \"\203& C\202)\315\316!\317\211\317\2037\317\n\211A@\211\203Q\320\321$\322 \f\"\2027 \205Z\323 !\324P,\207" [args entry files file rtn results org-agenda-maybe-reset-markers org-compile-prefix-format agenda org-set-sorting-strategy (:deadline :scheduled :timestamp) string-match "\\S-" org-agenda-files t nil apply org-agenda-get-day-entries append org-finalize-agenda-entries "\n" org-disable-agenda-to-diary date] 6 (#$ . 480139)]) #@303 Does the work for `org-diary' and `org-agenda'. FILE is the path to a file to be checked for entries. DATE is date like the one returned by `calendar-current-date'. ARGS are symbols indicating which kind of entries should be extracted. For details about these, see the documentation of `org-diary'. (defalias 'org-agenda-get-day-entries #[(file date &rest args) "\206\306\307\211\310!\203\311!\202\312\313\"\307\211\307\f\204/\314\315\"C\202\353r\fq\210 \316=\204?\312\317\"\210\320 !\307\"\212\214#\203V$%}\210\202X~\210\211A@\211\203\347 \321=\203&\322 \232\203\323 \324\"\202X \325=\203\240\326 \324\"\327 \324\"\202X \330=\203\265\331 \324\"\202X \332=\203\312\333 \324\"\202X \334=\203X&\322 \232\203X\335 \324\"\202X+).\207" [args org-startup-folded org-startup-align-all-tables file buffer arg (:deadline :scheduled :timestamp) nil file-exists-p org-get-agenda-file-buffer error "No such file %s" format "ORG-AGENDA-ERROR: No such org-file %s" org-mode "Agenda file %s is not in `org-mode'" org-get-category-table :todo calendar-current-date org-agenda-get-todos append :timestamp org-agenda-get-blocks org-agenda-get-timestamps :scheduled org-agenda-get-scheduled :closed org-agenda-get-closed :deadline org-agenda-get-deadlines results rtn major-mode org-category-table case-fold-search org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end date] 4 (#$ . 482527)]) #@35 Is the current entry marked DONE? (defalias 'org-entry-is-done-p #[nil "\212\301\302\303\304#\205\f\305!)\207" [org-nl-done-regexp re-search-backward "[ \n]\\*" nil t looking-at] 4 (#$ . 484029)]) #@36 Is the cursor inside a date range? (defalias 'org-at-date-range-p #[(&optional inactive-ok) "\212\300\301\215)\207" [exit (byte-code "`\304\305x\210\306\305x\210\307 \203\n\202!\203$\310\225Y\203$\311\312\313\"\210\314\305x\210\306\305x\210\307 \2035\n\2026!\203F\310\225Y\203F\311\312\313\"\210)\305\207" [pos inactive-ok org-tr-regexp-both org-tr-regexp "^[< \n" nil "<[" looking-at 0 throw exit t "^<[ \n"] 3)] 2 (#$ . 484234) nil]) #@49 Return the TODO information for agenda display. (defalias 'org-agenda-get-todos #[nil "\306\307\310\311\300\312\313\314 \315\316\317\320\n!\"\257\f\321\f\203 \322\f\323Q\202!\324Q\307\211\307\211\307\211\307\211 eb\210\325 \307\326#\203N\327\330\215\210\202?\237.\n\207" [org-not-done-regexp org-agenda-keymap buffer-file-name props org-select-this-todo-keyword regexp face nil done-face org-done mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name "[\n ]\\*+ *\$" "\\<\\(" "\$\\>" "[^\n ]*\\)" re-search-forward t :skip (byte-code "\306 \307\216\310 \210`\311 \210`\203 b\203 \312\f\n\313#\204: \203K b\203K\312#\n\313#\203K\314\315\316!!\203K b\210$\204F\317\320!\210\321\322\323\"\210* b\210\324 \210\316\224b\210\325\326\224T!%\327 &\330`!'\331\332\315\316!&'$(\333(!)\203\212*\315\334!+\235GZ\335Z\202\213\316\\!\336(,\337%\340%\341!\342&&\n\210(-B-$\203\265\316\225b\210\202\271\317\320!\210\323\207" [save-match-data-internal beg end org-agenda-todo-ignore-scheduled org-scheduled-time-regexp org-agenda-todo-ignore-deadlines match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) beginning-of-line outline-next-heading re-search-forward t org-deadline-close match-string 1 org-end-of-subtree invisible throw :skip nil org-agenda-skip org-agenda-new-marker 0 org-get-category org-get-tags-at org-format-agenda-item "" org-get-priority 2 -2 org-add-props org-marker org-hd-marker priority org-category org-deadline-time-regexp org-agenda-todo-list-sublevels marker category tags txt org-todo-kwd-priority-p org-todo-kwd-max-priority org-todo-keywords props ee] 11) marker priority category tags ee txt beg end] 16 (#$ . 484691)]) (byte-code "\301B\302\303!\207" [current-load-list org-agenda-no-heading-message (lambda (#1=#:defconst-tmp-var) (defconst org-agenda-no-heading-message #1#)) "No heading for this item in buffer or region."] 2) #@55 Return the date stamp information for agenda display. (defalias 'org-agenda-get-timestamps #[nil "\306\307\300\310\311\312 \313\314\315\316\n!\"\257\n\317\320\f@\321\322\323\211\211 A@ @\324 8\257\"\"\323\325O!\307\211\307\211\307\211 \307\211!\"\307\211#$\307\211%&eb\210\326\307\327#\203d\330\331\215\210\202T#\237.\207" [org-not-done-regexp org-agenda-keymap buffer-file-name props org-time-stamp-formats date face nil mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name regexp-quote format-time-string apply encode-time 0 2 11 re-search-forward t :skip (byte-code "\306 \307\216\310 *\203\311\312\313\"\210\314 \210\315\316\224!\317\316\224!e\316\224Z]\316\224{\316\224\320 {\3211\f\"2\3213\f\"4\322 56\203S4\203S5\203S\311\312\323\"\210\321\324 \"\203` \316\211\225O\212\325\326\313\323#\203\236\327\225b\210\315 7\330 8\331\332!\210\333\334\3352\203\205\336\202\206\3374\203\217\340\202\220\337#\341\327!\n8 %9\202\242:9\3429!,\3439;\344 \3457&\2102\203\332\3439\313\3465\203\310\347\202\311\350\351\350\352\347\353\n\354,\355\\&\f\210\2024\203\366\3439\313\346\356\351\356\352\347\353\n\354,\357\\&\f\210\202\3439\313\354,\353\n&\2109" re-search-backward "\$^\\| \$\\*+" 1 org-get-tags-at looking-at "\\*+[ ]*\$[^ \n]+\$" org-format-agenda-item format "%s%s" "Deadline: " "" "Scheduled: " match-string org-get-priority org-add-props org-marker org-hd-marker face org-done org-warning undone-face done-face org-category priority 100 org-scheduled-today 99 outline-next-heading org-deadline-regexp deadlinep org-scheduled-regexp scheduledp donep org-agenda-skip-scheduled-if-done hdmarker tags txt org-agenda-no-heading-message props ee] 14) regexp marker hdmarker deadlinep scheduledp donep tmp priority category ee txt timestr tags] 14 (#$ . 486706)]) #@52 Return the logged TODO entries for agenda display. (defalias 'org-agenda-get-closed #[nil "\306\307\300\310 \311\312\313\314\n!\"\257\315\f\316 \317\320\321@\322\323\324\211\211A@@\3258\257\"\"\326\327O!\260\330\211 !\330\211\"#\330\211$%\330\211&'\330(eb\210\331\330\332#\203d\333\334\215\210\202T&\237.\207" [org-not-done-regexp org-agenda-keymap buffer-file-name props org-closed-string org-clock-string mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name "\\<\$" "\\|" "\$ *\\[" regexp-quote format-time-string apply encode-time 0 2 1 11 nil re-search-forward t :skip (byte-code "\306 \210\307\310\224!\311\312! \232\313\310\224!\310\224\314 {\315\316\f\"\203&\f\310\211\225O\212\317\320\321\322#\203U\312\225b\210\307 \323 %\324\325!\210\326\n\203G\327\202H\330\311\312!%\f%&\202Y'&\331\332&(\333\334 \335\336\337\340\341\342\343\336&\210&)B))\344 \207" [marker org-closed-string closedp category timestr hdmarker org-agenda-skip org-agenda-new-marker 0 match-string 1 org-get-category point-at-eol string-match "\\]" re-search-backward "\$^\\| \$\\*+" nil t org-get-tags-at looking-at "\\*+[ ]*\$[^ \n]+\$" org-format-agenda-item "Closed: " "Clocked: " 100000 org-add-props org-marker org-hd-marker face org-done priority org-category undone-face org-warning done-face outline-next-heading tags txt org-agenda-no-heading-message props ee] 17) org-time-stamp-formats date regexp marker hdmarker priority category tags closedp ee txt timestr] 18 (#$ . 488949)]) #@53 Return the deadline information for agenda display. (defalias 'org-agenda-get-deadlines #[nil "\306\307\302\n\310\311\312\313\314\f!\"\257!\"#\315 \232$#\211#\211#AA@)\316%\211&\317U\203:\320\321!\202\331&\317V\203\323&S%#\211#\211#@)'#\211#A@)(#\211#AA@)&('S\322_\\)'\323V\203\270)'\324_\325\\\326\245Z)&\211&\317W\203\226\327&!S&\330&\324\246!\205\257\330&\331\246!?\206\257\330&\332\246!)\203\270)T))-%\333_\\%\324\245\\%\331\245[\\%\332\245\\\202\331\327&T!%#\211#\211#@)'#\211#A@)(#\211#AA@)&('S\322_\\)'\323V\203L)'\324_\325\\\326\245Z)&\211&\317W\203*\327&!S&\330&\324\246!\205C\330&\331\246!?\206C\330&\332\246!)\203L)T))-%\333_Z%\324\245Z%\331\245[Z%\332\245Z\334\211#\211#@)'#\211#A@)(#\211#AA@)&('S\322_\\)'\323V\203\325)'\324_\325\\\326\245Z)&\211&\317W\203\263\327&!S&\330&\324\246!\205\314\330&\331\246!?\206\314\330&\332\246!)\203\325)T))-Z+*\316\211+,\316\211-.\316\211/0\316\21112\316\21134eb\210\335\"\316\336#\203 \337\340\215\210\202\3751.\207" [org-deadline-warning-days wdays org-not-done-regexp org-agenda-keymap buffer-file-name props mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name calendar-current-date nil 0 error "There was no year zero" 31 2 4 23 10 abs zerop 100 400 365 (12 31 -1) re-search-forward t :skip (byte-code "\306 \210\307\224S\310\311\312\307!!!\211\nZ\211\fW\203\265 \203\265\313U\204\265\212\314 '\315\316\317\320#\203h\313\225b\210\307\225(\321(!)\322`\323\317w\210`\"*\324+*\"\203W\317,\202l\325\326\327\"*')$,\202l-,,\203\264\313X\203{\330\202\206\331X\203\205\332\202\206\317#\333,.\334\335!\336\335(!\337\340Z\341,!\\\342'\343#\344#\345\346&\210,/B/)\317\207" [pos d2 d1 diff wdays todayp org-agenda-skip 1 time-to-days org-time-string-to-time match-string 0 org-get-category re-search-backward "\$^\\| \$\\*+[ ]*" nil t org-get-tags-at buffer-substring-no-properties "^ \n" string-match org-format-agenda-item format "In %3d d.: " org-warning 5 org-upcoming-deadline org-add-props org-marker org-agenda-new-marker org-hd-marker priority 10 org-get-priority org-category face undone-face done-face org-done category pos1 tags head org-looking-at-done-regexp txt org-agenda-no-heading-message props ee] 18) org-deadline-time-regexp regexp date todayp offset-years year month day day-of-year d1 d2 diff pos pos1 category tags ee txt head face] 12 (#$ . 490543)]) #@54 Return the scheduled information for agenda display. (defalias 'org-agenda-get-scheduled #[nil "\306\307\300\310\307\311\312\313\314\315 \316\317\320\321\n!\"\257\f&\322 \232'&\211&\211&AA@)\323(\211)\324U\203<\325\326!\202\333)\324V\203\325)S(&\211&\211&@)*&\211&A@)+&\211&AA@))+*S\327_\\,*\330V\203\272,*\331_\332\\\333\245Z,)\211)\324W\203\230\334)!S)\335)\331\246!\205\261\335)\336\246!?\206\261\335)\337\246!)\203\272,T,,-(\340_\\(\331\245\\(\336\245[\\(\337\245\\\202\333\334)T!(&\211&\211&@)*&\211&A@)+&\211&AA@))+*S\327_\\,*\330V\203N,*\331_\332\\\333\245Z,)\211)\324W\203,\334)!S)\335)\331\246!\205E\335)\336\246!?\206E\335)\337\246!)\203N,T,,-(\340_Z(\331\245Z(\336\245[Z(\337\245Z\341\211&\211&@)*&\211&A@)+&\211&AA@))+*S\327_\\,*\330V\203\327,*\331_\332\\\333\245Z,)\211)\324W\203\265\334)!S)\335)\331\246!\205\316\335)\336\246!?\206\316\335)\337\246!)\203\327,T,,-Z+-\323\211./\323\21101\323\21123\323\21145\3236eb\210\342 \323\343#\203\344\345\215\210\202\3744. \207" [org-not-done-regexp org-agenda-keymap buffer-file-name props org-scheduled-time-regexp regexp face org-scheduled-previously undone-face done-face org-done mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name calendar-current-date nil 0 error "There was no year zero" 31 2 4 23 10 abs zerop 100 400 365 (12 31 -1) re-search-forward t :skip (byte-code "\306 \210\307\224S\310\311\312\307!!!\211\nZ\211\313W\203\215\f\203\215\212\314 \315\316\317\320#\203`\313\225b\210\307\225 \321 !\322`\323\317w\210`\"\"\324#\"\"\203N\317$\202d\325\326\327\307Z\"\" !$$\202d%$$\203\214\330$&\331\332!\333\332 !\334\335Z\336$!\\\337 &\n\210$'B')\317\207" [pos d2 d1 diff todayp category org-agenda-skip 1 time-to-days org-time-string-to-time match-string 0 org-get-category re-search-backward "\$^\\| \$\\*+[ ]*" nil t org-get-tags-at buffer-substring-no-properties "^ \n" string-match org-format-agenda-item format "Sched.%2dx: " org-add-props org-marker org-agenda-new-marker org-hd-marker priority 5 org-get-priority org-category pos1 tags head org-looking-at-done-regexp txt org-agenda-no-heading-message props ee] 12) date todayp offset-years year month day day-of-year d1 d2 diff pos pos1 category tags ee txt head] 18 (#$ . 493107)]) #@55 Return the date-range information for agenda display. (defalias 'org-agenda-get-blocks #[nil "\306\307\300\310\311\312 \313\314\315\316\n!\"\257\n\f!\211!\211!AA@)\307\"\211#\317U\2031\320\321!\202\320#\317V\203\312#S\"!\211!\211!@)$!\211!A@)%!\211!AA@)#%$S\322_\\&$\323V\203\257&$\324_\325\\\326\245Z&#\211#\317W\203\215\327#!S#\330#\324\246!\205\246\330#\331\246!?\206\246\330#\332\246!)\203\257&T&&-\"\333_\\\"\324\245\\\"\331\245[\\\"\332\245\\\202\320\327#T!\"!\211!\211!@)$!\211!A@)%!\211!AA@)#%$S\322_\\&$\323V\203C&$\324_\325\\\326\245Z&#\211#\317W\203!\327#!S#\330#\324\246!\205:\330#\331\246!?\206:\330#\332\246!)\203C&T&&-\"\333_Z\"\324\245Z\"\331\245[Z\"\332\245Z\334\211!\211!@)$!\211!A@)%!\211!AA@)#%$S\322_\\&$\323V\203\314&$\324_\325\\\326\245Z&#\211#\317W\203\252\327#!S#\330#\324\246!\205\303\330#\331\246!?\206\303\330#\332\246!)\203\314&T&&-Z+'\307\211()\307\211*+\307\211,-\307\211./\307\21101\307\21123eb\210\335 \307\336#\203 \337\340\215\210\202\372*\237.\207" [org-not-done-regexp org-agenda-keymap buffer-file-name props org-tr-regexp regexp face nil mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name 0 error "There was no year zero" 31 2 4 23 10 abs zerop 100 400 365 (12 31 -1) re-search-forward t :skip (byte-code "\306 \210`\307\310!\307\311!\307\312!\313\314\n!!\313\314!!!\fZ\315V\203\241 !Z\315V\203\241\212\316`!\"\317 #\320\321\322\323#\203\316\311\225!$\311\225b\210\324 %\325\326!\210\327\330\f U\203_\331\202`\332!\fZT \fZT#\307\311!#%!\fU\205y %&\202\203'&\333&(\334\"\335$\336\337&!\340#&\n\210&)B))b\207" [pos timestr s1 s2 d1 d2 org-agenda-skip match-string 0 1 2 time-to-days org-time-string-to-time -1 org-agenda-new-marker org-get-category re-search-backward "\$^\\| \$\\*+" nil t org-get-tags-at looking-at "\\*+[ ]*\$[^ \n]+\$" org-format-agenda-item format "" "(%d/%d): " org-add-props org-marker org-hd-marker priority org-get-priority org-category d0 marker category hdmarker tags txt org-agenda-no-heading-message props ee] 11) date offset-years year month day day-of-year d0 marker hdmarker ee txt d1 d2 s1 s2 timestr category tags pos] 14 (#$ . 495543)]) #@257 Regular expression to match a plain time or time range. Examples: 11:45 or 8am-13:15 or 2:45-2:45pm. After a match, the following groups carry important information: 0 the full match 1 the first time, range or not 8 the second time, if it is a range. (defconst org-plain-time-of-day-regexp "\$\\<[012]?[0-9]\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\$?\\)\\)\\|\$[AaPp][Mm]\$\\)\\>\\)\$--?\\(\\<[012]?[0-9]\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\$?\\)\\)\\|\$[AaPp][Mm]\$\\)\\>\\)\\)?" (#$ . 497891)) #@292 Regular expression to match a timestamp time or time range. After a match, the following groups carry important information: 0 the full match 1 date plus weekday, for backreferencing to make sure both times on same day 2 the first time, range or not 4 the second time, if it is a range. (defconst org-stamp-time-of-day-regexp "<\$[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} +\\sw+ +\$\$[012][0-9]:[0-5][0-9]\$>\$--?<\\1\\([012][0-9]:[0-5][0-9]\$>\\)?" (#$ . 498397)) #@111 A flag, set by `org-compile-prefix-format'. The flag is set if the currently compiled format contains a `%t'. (defvar org-prefix-has-time nil (#$ . 498876)) #@111 A flag, set by `org-compile-prefix-format'. The flag is set if the currently compiled format contains a `%T'. (defvar org-prefix-has-tag nil (#$ . 499040)) #@772 Format TXT to be inserted into the agenda buffer. In particular, it adds the prefix and corresponding text properties. EXTRA must be a string and replaces the `%s' specifier in the prefix format. CATEGORY (string, symbol or nil) may be used to overrule the default category taken from local variable or file name. It will replace the `%c' specifier in the format. DOTIME, when non-nil, indicates that a time-of-day should be extracted from TXT for sorting of this entry, and for the `%t' specifier in the format. When DOTIME is a string, this string is searched for a time before TXT is. NOPREFIX is a flag and indicates that only the correctly processes TXT should be returned - this is used by `org-agenda-change-all-lines'. TAGS can be the tags of the headline. (defalias 'org-format-agenda-item #[(extra txt &optional category tags dotime noprefix) "\306 \307\216\310\311 \"\203\312\313\314\211 $\n\206(\206(\f\203'\315\316\f!!\202(\313 \2035 GS 8\2026\313'\314(&\205N&;\203K&\202L\313 P)&\205Y\317)!%\314\211*+\314\211,-\314\211./&\203 %\203 0\203 \3101)\"\211*\204\224\3102)\"\211+\203\357\320\321)\",\320+\203\245\322\202\246\323)\"-\320+\203\265\324\202\266\325)\".3\203\357*\204\312+\203\357\310\326,!\327P \"\203\3573\330=\203\344\321\224\321U\202\345\331\203\357\312\313\314\211 $-\203\374\317-\332\331#-.\203 \317.\332\331#.\310\333 \"\203?4\331=\204!4\203+5\203+\312\313\331\211 $\202?\312\334\335 GZ\322]\336\"\320\323 \"P\331\211 $6\203J /\202\204.\203X-\337.Q\202e-\203d-\340P\202e\313(7\206m\3137\n9\203z\341\n!\202{\n\3428! P/\343/\314\303\n\227\305 \344/G GZ\345%\346&&\f. \207" [save-match-data-internal txt category org-category buffer-file-name tags match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^ +" replace-match "" nil file-name-sans-extension file-name-nondirectory org-get-time-of-day match-string 0 1 2 8 4 regexp-quote " *" beg t string "\$[ ]+\$\$:[a-zA-Z_@0-9:]+:\$[ ]*$" make-string 50 32 "-" "......" symbol-name eval org-add-props prefix-length time-of-day dotime tag time ts stamp plain s0 s1 s2 rtn org-prefix-has-time org-stamp-time-of-day-regexp org-plain-time-of-day-regexp org-agenda-remove-times-when-in-prefix org-agenda-remove-tags-when-in-prefix org-prefix-has-tag noprefix extra org-prefix-format-compiled] 14 (#$ . 499203)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list org-agenda-sorting-strategy-selected default-boundp set-default nil] 3) (defalias 'org-agenda-add-time-grid-maybe #[(list ndays todayp) "\300\301\215\207" [exit (byte-code "\204\f\306\307 \"\210\2020\n\203\310@\235\2040\f\311U\203$\312@\235\2040\313@\235\2040\306\307 \"\210\314\315\316\317 \"\"A@\3208@ \321 \235!\315\211\"#\322 \235\203b \204b\306\307 \"\210\211A@\211#\203\251!\203{# \235\204b\323#!#\324\315\325\315#\326\327O\330#\327\315OQ%\"B\"\331\311\"@G\332\333\"@%\210\202b\334$\235\203\270\335\" \"\202\275\335 \"\".\207" [org-agenda-use-time-grid list todayp org-agenda-time-grid ndays have throw exit today 1 daily weekly delq nil mapcar #[(x) "\301\302\303#\207" [x get-text-property 1 time-of-day] 4] 2 remove-match require-timed int-to-string org-format-agenda-item "" 0 -2 ":" put-text-property face org-time-grid time-up append string gridtimes req remove new time org-agenda-sorting-strategy-selected] 11)] 2]) #@155 Compile the prefix format into a Lisp form that can be evaluated. The resulting form is returned and stored in the variable `org-prefix-format-compiled'. (defalias 'org-compile-prefix-format #[(key) "\306\211\n;\203 \n\202\n\236\203\n\236A\202\307\310\306\211\211\211\211\211\211 !\"#$%\311\312%$#\203\277\313\314\315%\"\316\"A!\314\317%\"\206Q\320\321\224\310\224T$!\322\232\203d\323!\324\232\203m\323\325\314\326%\"\327Q\f\203\230\330\331\320!E\320\332 \330\331\320!E\320\333!EFEF#\202\254\332 \330\331!\334BB\320\333!EFE#\335\336\323\306%$%#\"B\"\2023\"\237\"\332%\"BB\211&. \207" [org-prefix-has-time org-prefix-has-tag org-agenda-prefix-format key opt f nil " %-12:c%?-12t% s" 0 string-match "%\$\\?\$?\$[-+]?[0-9.]*\$\$[ .;,:!?=|/<>]?\$\$[cts]\$" assoc match-string 4 (("c" . category) ("t" . time) ("s" . extra) ("T" . tag)) 3 "" 1 time t tag "%" 2 "s" if equal format concat ("") replace-match "%s" c e var vars varform start s org-prefix-format-compiled] 12 (#$ . 502739)]) (defalias 'org-set-sorting-strategy #[(key) "@9\203\n\211\207\n\236A\206\303\236A\206\304\211\207" [org-agenda-sorting-strategy org-agenda-sorting-strategy-selected key agenda (time-up category-keep priority-down)] 2]) #@212 Check string S for a time of day. If found, return it as a military time number between 0 and 2400. If not found, return nil. The optional STRING argument forces conversion into a 5 character wide string HH:MM. (defalias 'org-get-time-of-day #[(s &optional string mod24) "\306 \307\216\310\311 \"\204\310\312 \"\205\315\313\314\315 \"!\316\225\203(\313\314\316 \"!\202)\317\320\225\2054\314\320 \"\227\211\321\232\f\204A\n\202^\n\322U\203S \203O\317\202^\322\202^\n \203\\\317\202]\322\\ !\203\"\203\317U\203w \323U\204\324 \323\"\202\201 \211#\325_\\$ \323Y\203\225\326\202\226\327$\325W\203\241\330\202\242\331$\332W\203\255\330\202\256\331\333$!R%!\203\311%\334\335O\336%\335\337OQ\202\313$.*\207" [save-match-data-internal s h m ampm am-p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\<\$[012]?[0-9]\$\$:\\([0-5][0-9]\$\\)\$[AaPp][Mm]\$?\\> *" "\\<\$[012]?[0-9]\$\$:\\([0-5][0-9]\$\\)?\$[AaPp][Mm]\$\\> *" string-to-number match-string 1 3 0 4 "am" 12 24 mod 100 "+" " " "0" "" 10 int-to-string -4 -2 ":" nil h1 string mod24 h2 t0 t1] 6 (#$ . 504032)]) #@40 Sort and concatenate the agenda items. (defalias 'org-finalize-agenda-entries #[(list &optional nosort) "\302\303\" \203\207\304\305\306\307\"\310#\207" [list nosort mapcar org-agenda-highlight-todo mapconcat identity sort org-entries-lessp "\n"] 5 (#$ . 505229)]) (defalias 'org-agenda-highlight-todo #[(x) "\303\211\n\304=\2033\212\305\306!\210\307`\310\"`\307`\311\"\206\312\\b\210\313\314 P!\205/\315\312\224\312\225\316#)\202d\307\312\310\n#\260\307\312\311\n# \203c\317\320 P\n\206O\312#\232\203c\315\306\225\206]\312\225\312\225\321\n$\210\n*\207" [pl re x nil line beginning-of-line 1 get-text-property org-not-done-regexp prefix-length 0 looking-at "[ ]*\\.*" add-text-properties (face org-todo) string-match "\$\\.*\$" (face org-todo)] 5]) #@43 Compare the priorities of string A and B. (defalias 'org-cmp-priority #[(a b) "\304\305\306#\206 \307\304\305\306 #\206\307\211\nV\203\305\202)\nW\203(\310\202)\311*\207" [a b pb pa get-text-property 1 priority 0 -1 nil] 6 (#$ . 506011)]) (put 'org-cmp-priority 'byte-optimizer 'byte-compile-inline-expand) #@61 Compare the string values of categories of strings A and B. (defalias 'org-cmp-category #[(a b) "\304\305\306#\206 \307\304\305\306 #\206\307\211\n\231\203\310\202)\n\231\203(\305\202)\311*\207" [a b cb ca get-text-property 1 category "" -1 nil] 6 (#$ . 506336)]) (put 'org-cmp-category 'byte-optimizer 'byte-compile-inline-expand) #@61 Compare the string values of categories of strings A and B. (defalias 'org-cmp-tag #[(a b) "\304\305\306\307#!@\304\305\306\307 #!@\211\204\306\2027\n\204\"\310\2027\n\231\203,\310\2027\n\231\2036\306\2027\311*\207" [a b tb ta last get-text-property 1 tags -1 nil] 7 (#$ . 506686)]) (put 'org-cmp-tag 'byte-optimizer 'byte-compile-inline-expand) #@52 Compare the time-of-day values of strings A and B. (defalias 'org-cmp-time #[(a b) "\203\306\202 \307\310\311\312\n#\206 \310\311\312\f#\206 W\203(\307\2023 W\2032\311\2023\313+\207" [org-sort-agenda-notime-is-late def a ta b tb 9901 -1 get-text-property 1 time-of-day nil] 4 (#$ . 507052)]) (put 'org-cmp-time 'byte-optimizer 'byte-compile-inline-expand) #@39 Predicate for sorting agenda entries. (defalias 'org-entries-lessp #[(a b) " \n\203\f\306\202 \307\310\311\312#\206\310\311\312 #\206!\f W\203,\307\2027 \fW\2036\311\2027\313-\211\205A[ \310\311\314#\206P\315\310\311\314 #\206Y\315\211V\203h\311\202uW\203t\307\202u\313,\211\205[ \310\311\316#\206\216\317\310\311\316 #\206\227\317\211\231\203\246\307\202\263\231\203\262\311\202\263\313,\211\205\275[\205\305\311 \320\310\311\321#!@\320\310\311\321 #!@\211\204\345\311\202 \204\355\307\202\f \231\203\367\307\202 \f\231\203\311\202\313,\211!\205\f![\"\322\323\324#B!\325\"A. \207" [a b org-sort-agenda-notime-is-late def ta tb 9901 -1 get-text-property 1 time-of-day nil priority 0 category "" last tags assoc eval or ((-1 . t) (1) (nil)) time-up time-down pb pa priority-up priority-down cb ca category-up category-down category-keep tag-up tag-down org-agenda-sorting-strategy-selected] 8 (#$ . 507432)]) #@108 Check if agenda buffer is of allowed type. If ERROR is non-nil, throw an error, otherwise just return nil. (defalias 'org-agenda-check-type #[(error &rest types) " >\203\303\207\n\205\302\304\"\207" [org-agenda-type types error t "Not allowed in %s-type agenda buffers"] 3 (#$ . 508456)]) #@51 Exit agenda by removing the window or the buffer. (defalias 'org-agenda-quit #[nil "p\304 \204\n\305 \210\306!\210\307\310!\210) \205%\n\311=?\205%\205%\312!\207" [buf org-agenda-restore-windows-after-quit org-agenda-window-setup org-pre-agenda-window-conf one-window-p delete-window kill-buffer org-agenda-maybe-reset-markers force other-frame set-window-configuration] 2 (#$ . 508757) nil]) #@189 Exit agenda by removing the window or the buffer. Also kill all Org-mode buffers which have been loaded by `org-agenda'. Org-mode buffers visited directly by the user will not be touched. (defalias 'org-agenda-exit #[nil "\301!\210\302\303 \207" [org-agenda-new-buffers org-release-buffers nil org-agenda-quit] 2 (#$ . 509165) nil]) #@54 Save all Org-mode buffers without user confirmation. (defalias 'org-save-all-org-buffers #[nil "\300\301!\210\302\303\304\"\210\300\305!\207" [message "Saving all Org-mode buffers..." save-some-buffers t org-mode-p "Saving all Org-mode buffers... done"] 3 (#$ . 509506) nil]) #@91 Rebuild Agenda. When this is the global TODO list, a prefix argument will be interpreted. (defalias 'org-agenda-redo #[nil "\306\307\212 \203\f b\210n\203\310\202\311\312\310`\"\\*\211\313 \212 \203( b\210n\2030\310\2021\311\312\310`\"\\*Z\314\315!\210\316\f!\210\307\211\314\317!\210\320\n!\210\321!+\207" [org-agenda-keep-modes pos line window-line org-agenda-redo-command org-agenda-undo-list t nil 1 0 count-lines window-start message "Rebuilding agenda buffer..." eval "Rebuilding agenda buffer...done" goto-line recenter org-agenda-pending-undo-list] 6 (#$ . 509788) nil]) #@14 Go to today. (defalias 'org-agenda-goto-today #[nil "\304\305\306\307#\210\310ed\311\305$\211\203b\202/ \307=\203,\n\211A\312\240\210\313 \210\314 )\202/\315\316!)\207" [tdpos org-agenda-type org-agenda-last-arguments org-agenda-overriding-arguments org-agenda-check-type t timeline agenda text-property-any org-today nil org-agenda-redo org-agenda-find-today-or-agenda error "Cannot find today"] 6 (#$ . 510390) nil]) (defalias 'org-agenda-find-today-or-agenda #[nil "\300ed\301\302$\206\300ed\303\304$\206eb\207" [text-property-any org-today t org-agenda-type agenda] 5]) #@112 Go forward in time by `org-agenda-ndays' days. With prefix ARG, go forward that many times `org-agenda-ndays'. (defalias 'org-agenda-later #[(arg) "\305\306\307\"\210@ \n_\\\310\306F\311 \210\312 )\207" [org-agenda-last-arguments org-starting-day arg org-agenda-ndays org-agenda-overriding-arguments org-agenda-check-type t agenda nil org-agenda-redo org-agenda-find-today-or-agenda] 4 (#$ . 510983) "p"]) #@106 Go back in time by `org-agenda-ndays' days. With prefix ARG, go back that many times `org-agenda-ndays'. (defalias 'org-agenda-earlier #[(arg) "\305\306\307\"\210@ \n_Z\310\306F\311 \210\312 )\207" [org-agenda-last-arguments org-starting-day arg org-agenda-ndays org-agenda-overriding-arguments org-agenda-check-type t agenda nil org-agenda-redo org-agenda-find-today-or-agenda] 4 (#$ . 511399) "p"]) #@35 Switch to weekly view for agenda. (defalias 'org-agenda-week-view #[nil "\304\305\306\"\210\307U\203\310\311!\210\307 @\312`\313\"\206\n\314\305F\315 \210\316 \210)\317 \210\320\321!\207" [org-agenda-ndays org-agenda-last-arguments org-starting-day org-agenda-overriding-arguments org-agenda-check-type t agenda 7 error "This is already the week view" get-text-property day nil org-agenda-redo org-agenda-find-today-or-agenda org-agenda-set-mode-name message "Switched to week view"] 4 (#$ . 511809) nil]) #@34 Switch to daily view for agenda. (defalias 'org-agenda-day-view #[nil "\304\305\306\"\210\307U\203\310\311!\210\307 @\312`\313\"\206\n\314\305F\315 \210\316 \210)\317 \210\320\321!\207" [org-agenda-ndays org-agenda-last-arguments org-starting-day org-agenda-overriding-arguments org-agenda-check-type t agenda 1 error "This is already the day view" get-text-property day nil org-agenda-redo org-agenda-find-today-or-agenda org-agenda-set-mode-name message "Switched to day view"] 4 (#$ . 512328) nil]) #@59 Jump to the next line indicating a date in agenda buffer. (defalias 'org-agenda-next-date-line #[(&optional arg) "\301\302\303\304#\210\305\306!\210\307\310!\203\306u\210\311\310\312\302$\204#\313u\210\314\315!\210\316\224b\207" [arg org-agenda-check-type t agenda timeline beginning-of-line 1 looking-at "^\\S-" re-search-forward nil -1 error "No next date after this line in this buffer" 0] 5 (#$ . 512843) "p"]) #@63 Jump to the previous line indicating a date in agenda buffer. (defalias 'org-agenda-previous-date-line #[(&optional arg) "\301\302\303\304#\210\305\306!\210\307\310\311\302$?\205\312\313!\207" [arg org-agenda-check-type t agenda timeline beginning-of-line 1 re-search-backward "^\\S-" nil error "No previous date before this line in this buffer"] 5 (#$ . 513268) "p"]) (byte-code "\301B\302\301!\204\303\301\304\305\211\"\"\210\306 \307\310#\207" [current-load-list org-hl default-boundp set-default org-make-overlay 1 org-overlay-put face highlight] 5) #@34 Highlight a region with overlay. (defalias 'org-highlight #[(begin end &optional buffer) "\304 \n\206 p$\207" [org-hl begin end buffer move-overlay] 5 (#$ . 513835)]) #@23 Detach overlay INDEX. (defalias 'org-unhighlight #[nil "\301!\207" [org-hl delete-overlay] 2 (#$ . 514011)]) (defalias 'org-highlight-until-next-command #[(beg end &optional buffer) "\303 \n#\210\304\305\306\"\207" [beg end buffer org-highlight add-hook pre-command-hook org-unhighlight-once] 4]) (defalias 'org-unhighlight-once #[nil "\300\301\302\"\210\303 \207" [remove-hook pre-command-hook org-unhighlight-once org-unhighlight] 3]) #@41 Toggle follow mode in an agenda buffer. (defalias 'org-agenda-follow-mode #[nil "?\301 \210\302\303\203\304\202\305\"\207" [org-agenda-follow-mode org-agenda-set-mode-name message "Follow mode is %s" "on" "off"] 3 (#$ . 514456) nil]) #@38 Toggle log mode in an agenda buffer. (defalias 'org-agenda-log-mode #[nil "\301\302\303\304#\210?\305 \210\306 \210\307\310\203\311\202\312\"\207" [org-agenda-show-log org-agenda-check-type t agenda timeline org-agenda-set-mode-name org-agenda-redo message "Log mode is %s" "on" "off"] 4 (#$ . 514703) nil]) #@45 Toggle diary inclusion in an agenda buffer. (defalias 'org-agenda-toggle-diary #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203\310\202\311\"\207" [org-agenda-include-diary org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Diary inclusion turned %s" "on" "off"] 3 (#$ . 515024) nil]) #@39 Toggle time grid in an agenda buffer. (defalias 'org-agenda-toggle-time-grid #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203\310\202\311\"\207" [org-agenda-use-time-grid org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Time-grid turned %s" "on" "off"] 3 (#$ . 515360) nil]) #@60 Set the mode name to indicate all the small mode settings. (defalias 'org-agenda-set-mode-name #[nil "\306\307\232\203\310\202\f\311\312\232\203\313\202\311 \203\314\202 \311\n\203(\315\202)\311\2031\316\2022\311\f\203:\317\202;\311\260\320 \207" [org-agenda-ndays org-agenda-follow-mode org-agenda-include-diary org-agenda-use-time-grid org-agenda-show-log mode-name "Org-Agenda" 1 " Day" "" 7 " Week" " Follow" " Diary" " Grid" " Log" force-mode-line-update] 7 (#$ . 515688)]) (defalias 'org-agenda-post-command-hook #[nil "l\203n\204\302u\210\303`\300\" \205\303`\304\"\205\305 \207" [org-agenda-type org-agenda-follow-mode -1 get-text-property org-marker org-agenda-show] 3]) #@187 Show the priority of the current item. This priority is composed of the main priority given with the [#A] cookies, and by additional input from the age of a schedules or deadline entry. (defalias 'org-agenda-show-priority #[nil "\301\302 \303\"\304\305\203\202\306\")\207" [pri get-text-property point-at-bol priority message "Priority is %d" -1000] 3 (#$ . 516405) nil]) #@47 Show the tags applicable to the current item. (defalias 'org-agenda-show-tags #[nil "\303\304 \300\"\211\203 \305\306\307\310\311#\312\313 G\n $\210 )\"\202#\305\314!)\207" [tags s org-rm-props get-text-property point-at-bol message "Tags are :%s:" mapconcat identity ":" remove-text-properties 0 "No tags associated with this line"] 8 (#$ . 516790) nil]) #@59 Go to the Org-mode file which contains the item at point. (defalias 'org-agenda-goto #[(&optional highlight) "\305`\306\"\206 \307 \310!\311!\312 !\210~\210\nb\210\313=\2030\314\315!\210\212\316 \203/\317\320!\210)\f\205:\321\322 \323 \"+\207" [marker buffer pos major-mode highlight get-text-property org-marker org-agenda-error marker-buffer marker-position switch-to-buffer-other-window org-mode org-show-context agenda outline-next-heading org-flag-heading nil org-highlight point-at-bol point-at-eol] 3 (#$ . 517157) nil]) #@66 Kill the entry or subtree belonging to the current agenda entry. (defalias 'org-agenda-kill #[nil "\306=\204\n\307\310!\210\311`\312\"\206\313 \314 !\315 !\316\211\317$\316\211%\212\2030b\210n\2038\320\2029\317\321\320`\"\\*&p\n'r\nq\210')\316\211()*+,-./r\nq\210\212b\210\322=\203y\323\324!\210`\325\324!\202\202\326 d\327 T^\fb\210\330\331 \324#\203\225$T$\202\205*0\324=\206\2500\247\205\250$0V\211%\203\277\332\333\334$\335\n!#!\204\277\307\336!\210\337\n\f #\210r\nq\210\f |\210)\340\341!\2101\205-\342+r-q\210')\")\342*r,q\210')\"()\204\375(\205-)\203r-q\210\343 \210)(\203r,q\210\343 \210)./-),(\2572B\2112.\207" [major-mode marker buffer pos dbeg dend org-agenda-mode error "Not in agenda" get-text-property org-marker org-agenda-error marker-buffer marker-position nil 0 1 count-lines org-mode org-back-to-heading t org-end-of-subtree point-at-bol point-at-eol re-search-forward "^[ ]*\\S-" y-or-n-p format "Delete entry with %d lines in buffer \"%s\"? " buffer-name "Abort" org-remove-subtree-entries-from-agenda message "Agenda item and source killed" org-verify-change-for-undo undo-boundary n conf this-command buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-confirm-kill org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 517701) nil]) #@66 Kill the entry or subtree belonging to the current agenda entry. (defalias 'org-agenda-archive #[nil "\306=\204\n\307\310!\210\311`\312\"\206\313 \314 !\315 !\316\212\203&b\210n\203.\317\202/\320\321\317`\"\\*\fp\n r\nq\210 )\316\211 !r\nq\210\322=\203m\212b\210\323 \210\324\325!\210\326 \210)\202q\307\327!\210)\"\205\313\330rq\210 )\"\330rq\210 )\"\204\233\205\313\203\251rq\210\331 \210)\203\267rq\210\331 \210) !\257#B\211#.\207" [major-mode marker buffer pos this-command buffer-undo-list org-agenda-mode error "Not in agenda" get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-mode org-remove-subtree-entries-from-agenda org-back-to-heading t org-archive-subtree "Archiving works only in Org-mode files" org-verify-change-for-undo undo-boundary _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 519074) nil]) #@212 Remove all lines in the agenda that correspond to a given subtree. The subtree is the one in buffer BUF, starting at BEG and ending at END. If this information is not given, the function uses the tree at point. (defalias 'org-remove-subtree-entries-from-agenda #[(&optional buf beg end) "\206p\306\211\212\203\f\204\307\310!\210`\311\310!\210`\312 !q\210\212db\210\313\314!\210o?\205h\315`\316\"\211\203a\317\n!\232\203a\320\n!\211\203a Y\203a \fX\203a\306\321 \322 T|\210)\313\323!\210\202,-\207" [buf p m beg end org-agenda-buffer-name nil org-back-to-heading t org-end-of-subtree get-buffer beginning-of-line 1 get-text-property org-marker marker-buffer marker-position point-at-bol point-at-eol 0 buffer-read-only] 3 (#$ . 520076)]) #@46 Follow the link in the current line, if any. (defalias 'org-agenda-open-link #[nil "\304 \212\305 \306#\204\305\n\306#\204\305\306#\203\"\307\310!\202%\311\312!*\207" [eol org-bracket-link-regexp org-angle-link-re org-plain-link-re point-at-eol re-search-forward t call-interactively org-open-at-point error "No link in current line"] 4 (#$ . 520845) nil]) #@59 Go to the Org-mode file which contains the item at point. (defalias 'org-agenda-switch-to #[(&optional delete-other-windows) "\305`\306\"\206 \307 \310!\311!\312 !\210\203\303 \210~\210\nb\210\f\313=\2056\314\315!\210\212\316 \2055\317\320!)+\207" [marker buffer pos delete-other-windows major-mode get-text-property org-marker org-agenda-error marker-buffer marker-position switch-to-buffer org-mode org-show-context agenda outline-next-heading org-flag-heading nil] 3 (#$ . 521219) nil]) #@69 Go to the Org-mode file which contains the item at the mouse click. (defalias 'org-agenda-goto-mouse #[(ev) "\301!\210\302 \207" [ev mouse-set-point org-agenda-goto] 2 (#$ . 521726) "e"]) #@61 Display the Org-mode file which contains the item at point. (defalias 'org-agenda-show #[nil "\301 \302\303!\210\304!)\207" [win selected-window org-agenda-goto t select-window] 2 (#$ . 521921) nil]) #@74 Display the Org-mode file which contains the item at point and recenter. (defalias 'org-agenda-recenter #[(arg) "\302 \303\304!\210\305 !\210\306!)\207" [win arg selected-window org-agenda-goto t recenter select-window] 2 (#$ . 522129) "P"]) #@71 Display the Org-mode file which contains the item at the mouse click. (defalias 'org-agenda-show-mouse #[(ev) "\301!\210\302 \207" [ev mouse-set-point org-agenda-show] 2 (#$ . 522379) "e"]) #@54 Check if the entry is a diary link and abort if yes. (defalias 'org-agenda-check-no-diary #[nil "\300`\301\"\205 \302 \207" [get-text-property org-agenda-diary-link org-agenda-error] 3 (#$ . 522576)]) (defalias 'org-agenda-error #[nil "\300\301!\207" [error "Command not allowed in this line"] 2]) #@333 Show the subtree corresponding to the current entry in an indirect buffer. This calls the command `org-tree-to-indirect-buffer' from the original Org-mode buffer. With numerical prefix arg ARG, go up to this level and then take that tree. With a C-u prefix, make a separate frame for this tree (i.e. don't use the dedicated frame). (defalias 'org-agenda-tree-to-indirect-buffer #[nil "\303 \210\304`\305\"\206\f\306 \307!\310!r q\210\212\nb\210\311\312!-\207" [marker buffer pos org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position call-interactively org-tree-to-indirect-buffer] 3 (#$ . 522882) nil]) #@103 Marker pointing to the headline that last changed its TODO state by a remote command from the agenda. (defvar org-last-heading-marker (make-marker) (#$ . 523546)) #@210 Cycle TODO state of line at point, also in Org-mode file. This changes the line at point, all other lines in the agenda referring to the same tree node, and the headline of the tree node in the Org-mode file. (defalias 'org-agenda-todo #[(&optional arg) "\306 \210i\307`\310\"\206\311 \312 !\313 !\307`\314\"\315\211\315\212\203+b\210n\2033\316\2024\317\320\316`\"\\*p\n r\nq\210 )\315\211!\"#$%&'(r\nq\210~\210b\210\321\322!\210\212\323 \203p\324\315!\210)\325)!\210n\203}\316u\210\326 \212\327 \210*`\315\223\210*\330\316!\210\212\331\f\332#\210)\333!\210+\205\370\334$r&q\210 )\"\"\334#r%q\210 )\"!\"\204\310!\205\370\"\203\326r&q\210\335 \210)!\203\344r%q\210\335 \210)'(&\"%!\257,B\211,.\207" [col marker buffer pos hdmarker buffer-read-only org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position org-hd-marker nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading org-todo org-get-heading org-back-to-heading beginning-of-line org-agenda-change-all-lines fixface move-to-column org-verify-change-for-undo undo-boundary newhead this-command buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline arg org-last-heading-marker org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 523716) "P"]) #@328 Change all lines in the agenda buffer which match HDMARKER. The new content of the line will be NEWHEAD (as modified by `org-format-agenda-item'). HDMARKER is checked with `equal' against all `org-hd-marker' text properties in the file. If FIXFACE is non-nil, the face of each item is modified acording to the new TODO state. (defalias 'org-agenda-change-all-lines #[(newhead hdmarker &optional fixface) "\306\211\306\211\306\211\306\211$%\306\211\f&\306\212db\210\307\310!\210$\204\322o$\311`\312\"\211\203\313\n'\232\203\313\313`!\311`\314\"\f\311`\315\"&\311`\316\"\317\320(&\f\321&%\311`\322\"\311`\304\"\311`\305\"\323!\210%\324\232\203\213\307\310!\210\325\326!\203\313\327\324!\210\202\313\325\330!\203\307\327%\331\211#\210\307\310!\210\332\333 \334 #\210)\203\274\332\333 \334 \335*\203\270\f\202\271 D#\210\336\337!\210\307\310!\210\202\313\340\341!\210\307\342!\210\202#)\343 .\207" [buffer-read-only props m pl undone-face done-face nil beginning-of-line 1 get-text-property org-hd-marker text-properties-at dotime org-category tags org-format-agenda-item "x" noprefix prefix-length move-to-column "" looking-at ".*\n?" replace-match ".*" t add-text-properties point-at-bol point-at-eol face org-agenda-highlight-todo line error "Line update did not work" 0 org-finalize-agenda finish new cat hdmarker newhead fixface org-last-todo-state-is-todo] 8 (#$ . 525076)]) #@70 Align all tags in agenda items to `org-agenda-align-tags-to-column'. (defalias 'org-agenda-align-tags #[(&optional line) "\303\212 \203\f\304 \202 eb\210\305\306 \205\307 \310#\2058\311\224\311\225|\210\311\224b\210\312\313\311\niZ]\314\"\315`!\"c\210\202*\207" [buffer-read-only line org-agenda-align-tags-to-column nil point-at-bol re-search-forward "\$[ ]+\$:[a-zA-Z0-9_@:]+:[ ]*$" point-at-eol t 1 org-add-props make-string 32 text-properties-at] 5 (#$ . 526510)]) #@64 Increase the priority of line at point, also in Org-mode file. (defalias 'org-agenda-priority-up #[nil "\300\301!\207" [org-agenda-priority up] 2 (#$ . 526997) nil]) #@64 Decrease the priority of line at point, also in Org-mode file. (defalias 'org-agenda-priority-down #[nil "\300\301!\207" [org-agenda-priority down] 2 (#$ . 527169) nil]) #@210 Set the priority of line at point, also in Org-mode file. This changes the line at point, all other lines in the agenda referring to the same tree node, and the headline of the tree node in the Org-mode file. (defalias 'org-agenda-priority #[(&optional force-direction) "\306 \210\307`\310\"\206\f\311 \312!\313!\307`\314\"\315\211\315\212\n\203(\nb\210n\2030\316\2021\317\320\316`\"\\*p r q\210)\315\211 !\"#$r q\210~\210\nb\210\321\322!\210\212\323 \203m\324\315!\210)\325%!\210\316\210\326 )\327 \"\210\330\316!\210&\205\336\331 r\"q\210)\"\331r!q\210)\"\204\256\205\336\203\274r\"q\210\332 \210)\203\312r!q\210\332 \210)#$\"!\257'B\211'.\207" [marker buffer pos hdmarker buffer-read-only newhead org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position org-hd-marker nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading org-priority org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary this-command buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline force-direction org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 527346) nil]) #@224 Get a list of all headline tags applicable at POS. POS defaults to point. If tags are inherited, the list contains the targets in the same sequence as the headlines appear, i.e. the tags of the current headline come last. (defalias 'org-get-tags-at #[(&optional pos) "\303\212\214~\210 \206`b\210\304 \305\216\306\307!\210\303\310\311\217\210+*\207" [tags pos save-match-data-internal nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-back-to-heading t (byte-code "\304\305!\203\306\307\310\311\312 \"*\313\"\n\"\204\314\315!\210\316\310!\210\202" [string num tags org-use-tag-inheritance looking-at "[^ \n]+?:\$[a-zA-Z_@0-9:]+\$:[ ]*\$[\n ]\\|\\'\$" append org-split-string 1 nil match-string-no-properties ":" error "" org-up-heading-all] 5) ((error))] 3 (#$ . 528608) nil]) #@36 Set tags for the current headline. (defalias 'org-agenda-set-tags #[nil "\306 \210\307 \210\310`\311\"\206\312 \313!\314!\315\211\315\212\n\203&\nb\210n\203.\316\202/\317\320\316`\"\\* p r q\210)\315\211 !\"#$r q\210~\210\nb\210\321\322!\210\212\323 \203j\324\315!\210)\325\326!\210\316\210\327 )\330\f\"\210\331\316!\210%\205\332\332 r\"q\210)\"\332r!q\210)\"\204\252\205\332\203\270r\"q\210\333 \210)\203\306r!q\210\333 \210)#$\"!\257&B\211&. \207" [hdmarker buffer pos buffer-read-only newhead this-command org-agenda-check-no-diary org-agenda-show get-text-property org-hd-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading call-interactively org-set-tags org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 529468) nil]) #@47 Toggle the archive tag for the current entry. (defalias 'org-agenda-toggle-archive-tag #[nil "\306 \210\307 \210\310`\311\"\206\312 \313!\314!\315\211\315\212\n\203&\nb\210n\203.\316\202/\317\320\316`\"\\* p r q\210)\315\211 !\"#$r q\210~\210\nb\210\321\322!\210\212\323 \203j\324\315!\210)\325\326!\210\316\210\327 )\330\f\"\210\331\316!\210%\205\332\332 r\"q\210)\"\332r!q\210)\"\204\252\205\332\203\270r\"q\210\333 \210)\203\306r!q\210\333 \210)#$\"!\257&B\211&. \207" [hdmarker buffer pos buffer-read-only newhead this-command org-agenda-check-no-diary org-agenda-show get-text-property org-hd-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading call-interactively org-toggle-archive-tag org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 530530) nil]) #@48 Change the date of this item to one day later. (defalias 'org-agenda-date-later #[(arg &optional what) "\306\307\310\311#\210\312 \210\313`\314\"\206\315 \316!\317!\320\212\n\203%\nb\210n\203-\321\202.\322\323\321`\"\\*p \fr q\210\f)\320\211 !\"#$r q\210~\210\nb\210\324 \204a\325\326!\210\327%&\206j\330\"\210)\331'\"\210(\203\307\332 r\"q\210\f)\"\332r!q\210\f)\"\204\232 \203\307\203\250r\"q\210\333 \210) \203\265r!q\210\333 \210)#$\"! \257)B).\334\335'\"+\207" [marker buffer pos this-command buffer-undo-list _c2 org-agenda-check-type t agenda timeline org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-at-timestamp-p error "Cannot find time stamp" org-timestamp-change day org-agenda-show-new-time org-verify-change-for-undo undo-boundary message "Time stamp changed to %s" _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline arg what org-last-changed-timestamp org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 531623) "p"]) #@50 Change the date of this item to one day earlier. (defalias 'org-agenda-date-earlier #[(arg &optional what) "\302[ \"\207" [arg what org-agenda-date-later] 3 (#$ . 532696) "p"]) #@42 Show new date stamp via text properties. (defalias 'org-agenda-show-new-time #[(marker stamp) "\303\304 P\212db\210o?\205;\n\305`\306\"\232\2034\307\310 GZ\311\"\210\312`S\313 \314\315 \303\316\317$D#\210\320\321!\210\320\322!\210\202\n*\207" [buffer-read-only stamp marker nil " => " get-text-property org-marker move-to-column window-width t add-text-properties point-at-eol display org-add-props face secondary-selection beginning-of-line 1 0] 9 (#$ . 532880)]) #@206 Change the date of this item. Date is prompted for, with default today. The prefix ARG is passed to the `org-time-stamp' command and can therefore be used to request time specification in the time stamp. (defalias 'org-agenda-date-prompt #[(arg) "\306\307\310\311#\210\312 \210\313`\314\"\206\315 \316!\317!\320\212\n\203%\nb\210n\203-\321\202.\322\323\321`\"\\*p \fr q\210\f)\320\211 !\"r q\210~\210\nb\210\324 \204a\325\326!\210\327#!\210\330\331$\"\210)%\205\302\332r q\210\f)\"\332rq\210\f)\"\204\224 \205\302\203\242r q\210\333 \210) \203\257rq\210\333 \210)!\" \257&B\211&.\207" [marker buffer pos this-command buffer-undo-list _c2 org-agenda-check-type t agenda timeline org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-at-timestamp-p error "Cannot find time stamp" org-time-stamp message "Time stamp changed to %s" org-verify-change-for-undo undo-boundary _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline arg org-last-changed-timestamp org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 533358) "P"]) #@29 Schedule the item at point. (defalias 'org-agenda-schedule #[(arg) "\306\307\310\311\312\313%\210\314 \210\315`\316\"\206\317 \320!\321!\322\211\322\212\n\203+\nb\210n\2033\323\2024\324\325\323`\"\\* p r q\210)\322\211 !\"#r q\210~\210\nb\210\326 \327\330\f\"\210)$\205\305\331r!q\210)\"\331r q\210)\"\204\225\205\305\203\243r!q\210\332 \210)\203\261r q\210\332 \210)\"#! \257%B\211%. \207" [marker buffer pos org-insert-labeled-timestamps-at-point ts this-command org-agenda-check-type t agenda timeline todo tags org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-schedule message "Item scheduled for %s" org-verify-change-for-undo undo-boundary buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 534514) "P"]) #@29 Schedule the item at point. (defalias 'org-agenda-deadline #[(arg) "\306\307\310\311\312\313%\210\314 \210\315`\316\"\206\317 \320!\321!\322\211\322\212\n\203+\nb\210n\2033\323\2024\324\325\323`\"\\* p r q\210)\322\211 !\"#r q\210~\210\nb\210\326 \327\330\f\"\210)$\205\305\331r!q\210)\"\331r q\210)\"\204\225\205\305\203\243r!q\210\332 \210)\203\261r q\210\332 \210)\"#! \257%B\211%. \207" [marker buffer pos org-insert-labeled-timestamps-at-point ts this-command org-agenda-check-type t agenda timeline todo tags org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-deadline message "Deadline for this item set to %s" org-verify-change-for-undo undo-boundary buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 535450) "P"]) #@61 Return the heading of the current entry, without the stars. (defalias 'org-get-heading #[nil "\212\300\301!\210\302\303!\203\304\305!\202\306)\207" [org-back-to-heading t looking-at "\\*+[ ]+\$[^ \n]*\$" match-string 1 ""] 2 (#$ . 536397)]) #@49 Start the clock on the currently selected item. (defalias 'org-agenda-clock-in #[(&optional arg) "\306 \210\307`\310\"\206\f\311 \312!\313\212 \203 b\210n\203#\314\202$\315\316\314`\"\\*\np\317!r\317!q\210)\313\211r\317!q\210~\210 b\210\320 \210)\205\250\321rq\210)\"\321rq\210)\" \204|\f\205\250 \203\211rq\210\322 \210)\f\203\226rq\210\322 \210) \f\257B\211.\n\207" [marker pos this-command buffer-undo-list _c2 _c1 org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-position nil 1 0 count-lines marker-buffer org-clock-in org-verify-change-for-undo undo-boundary _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 536651) "P"]) #@35 Stop the currently running clock. (defalias 'org-agenda-clock-out #[(&optional arg) "\306!\204\n\307\310!\210\311\212 \203 b\210n\203\312\202\313\314\312`\"\\*\np\306!r\306!q\210)\311\211\315 \210\205\225\316rq\210)\"\316rq\210)\" \204i\f\205\225 \203vrq\210\317 \210)\f\203\203rq\210\317 \210) \f\257B\211.\207" [org-clock-marker pos this-command buffer-undo-list _c2 _c1 marker-buffer error "No running clock" nil 1 0 count-lines org-clock-out org-verify-change-for-undo undo-boundary _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 537426) "P"]) #@37 Cancel the currently running clock. (defalias 'org-agenda-clock-cancel #[(&optional arg) "\306!\204\n\307\310!\210\311\212 \203 b\210n\203\312\202\313\314\312`\"\\*\np\306!r\306!q\210)\311\211\315 \210\205\225\316rq\210)\"\316rq\210)\" \204i\f\205\225 \203vrq\210\317 \210)\f\203\203rq\210\317 \210) \f\257B\211.\207" [org-clock-marker pos this-command buffer-undo-list _c2 _c1 marker-buffer error "No running clock" nil 1 0 count-lines org-clock-cancel org-verify-change-for-undo undo-boundary _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 538094) "P"]) #@112 Make a diary entry, like the `i' command from the calendar. All the standard commands work: block, weekly etc. (defalias 'org-agenda-diary-entry #[nil "\306\307\310\311#\210\312\313!\210\314\315!\210\316 \317\320\"A\321K`\304\307!\206#` \204-\322\323\"\210\324\325\"\203A\326\232\203E\324\f\325\"\204E\322\327!\210\330\324\f\325\"\206Q\324\325\"!C\331\216\321\332M\210\333 !.\207" [char cmd oldf point mark calendar-mark-ring org-agenda-check-type t agenda timeline require diary-lib message "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic" read-char-exclusive assoc ((100 . insert-diary-entry) (119 . insert-weekly-diary-entry) (109 . insert-monthly-diary-entry) (121 . insert-yearly-diary-entry) (97 . insert-anniversary-diary-entry) (98 . insert-block-diary-entry) (99 . insert-cyclic-diary-entry)) calendar-cursor-to-date error "No command associated with <%c>" get-text-property day 98 "Don't know which date to use for diary entry" calendar-gregorian-from-absolute ((byte-code "\301M\207" [oldf calendar-cursor-to-date] 2)) #[(&optional error) "\301\302\303\"!\207" [point calendar-gregorian-from-absolute get-text-property day] 4] call-interactively] 4 (#$ . 538771) nil]) #@94 Execute a calendar command from the agenda, with the date associated to the cursor position. (defalias 'org-agenda-execute-calendar-command #[(cmd) "\306\307\310\311#\210\312\313!\210\314`\315\"\204\316\317!\210\320K`\321\314 \315\"!\211\211A@)\n\211@)\n\211AA@)\322\216\320\323M\210\324!.\207" [oldf point date displayed-day displayed-month displayed-year org-agenda-check-type t agenda timeline require diary-lib get-text-property day error "Don't know which date to use for calendar command" calendar-cursor-to-date calendar-gregorian-from-absolute ((byte-code "\301M\207" [oldf calendar-cursor-to-date] 2)) #[(&optional error) "\301\302\303\"!\207" [point calendar-gregorian-from-absolute get-text-property day] 4] call-interactively cmd] 5 (#$ . 540008)]) #@73 Display the phases of the moon for the 3 months around the cursor date. (defalias 'org-agenda-phases-of-moon #[nil "\300\301!\207" [org-agenda-execute-calendar-command calendar-phases-of-moon] 2 (#$ . 540791) nil]) #@63 Display the holidays for the 3 months around the cursor date. (defalias 'org-agenda-holidays #[nil "\300\301!\207" [org-agenda-execute-calendar-command list-calendar-holidays] 2 (#$ . 541012) nil]) #@234 Display sunrise and sunset for the cursor date. Latitude and longitude can be specified with the variables `calendar-latitude' and `calendar-longitude'. When called with prefix argument, latitude and longitude will be prompted for. (defalias 'org-agenda-sunrise-sunset #[(arg) "?\205 ?\205\f\n\203\304\202\305\306!+\207" [arg calendar-longitude calendar-latitude calendar-location-name "the given coordinates" org-agenda-execute-calendar-command calendar-sunrise-sunset] 3 (#$ . 541217) "P"]) #@54 Open the Emacs calendar with the date at the cursor. (defalias 'org-agenda-goto-calendar #[nil "\305\306\307\310#\210\311`\300\"\206\312\313!\314!\315\211\315\316 \210\317 !-\207" [day date calendar-move-hook view-calendar-holidays-initially view-diary-entries-initially org-agenda-check-type t agenda timeline get-text-property error "Don't know which date to open in calendar" calendar-gregorian-from-absolute nil calendar calendar-goto-date] 5 (#$ . 541731) nil]) #@143 Compute the Org-mode agenda for the calendar date displayed at the cursor. This is a command that has to be installed in `calendar-mode-map'. (defalias 'org-calendar-goto-agenda #[nil "\306\307\310 \211\211AA@)\307\211\311U\203\312\313!\202]\n\311V\203\222\nS\211\211@)\211A@)\211AA@)\fS\314_\\\315V\203| \316_\317\\\320\245Z\n\211\311W\203_\321\n!S\322\n\316\246!\205u\322\n\323\246!?\206u\322\n\324\246!)\203| T - \325_\\ \316\245\\ \323\245[\\ \324\245\\\202]\321\nT!\211\211@)\211A@)\211AA@)\fS\314_\\\315V\203\357 \316_\317\\\320\245Z\n\211\311W\203\322\321\n!S\322\n\316\246!\205\350\322\n\323\246!?\206\350\322\n\324\246!)\203\357 T - \325_Z \316\245Z \323\245[Z \324\245Z\326\211\211@)\211A@)\211AA@)\fS\314_\\\315V\203Z \316_\317\\\320\245Z\n\211\311W\203=\321\n!S\322\n\316\246!\205S\322\n\323\246!?\206S\322\n\324\246!)\203Z T -Z+\307#\207" [date offset-years year month day day-of-year org-agenda-list nil calendar-cursor-to-date 0 error "There was no year zero" 31 2 4 23 10 abs zerop 100 400 365 (12 31 -1)] 9 (#$ . 542213) nil]) (defalias 'org-agenda-convert-date #[nil "\303\304\305\306#\210\307`\302\"\310\211\211\204\311\312!\210\313\n!\314\315 !\316\317\320 !\316\321\322 !\316\323\324 !\316\325\326 !\327\330\331 !\332\333\334 !\332\335\336 !\316\337\340 !\316\341\342 !\316\343\344 !\316\345\346 !\316\347\350 !\316\260'\351\220\352!\221\210\353\354!\205q\354\355\351!!+\207" [s date day org-agenda-check-type t agenda timeline get-text-property nil error "Don't know which date to convert" calendar-gregorian-from-absolute "Gregorian: " calendar-date-string "\n" "ISO: " calendar-iso-date-string "Day of Yr: " calendar-day-of-year-string "Julian: " calendar-julian-date-string "Astron. JD: " calendar-astro-date-string " (Julian date number at noon UTC)\n" "Hebrew: " calendar-hebrew-date-string " (until sunset)\n" "Islamic: " calendar-islamic-date-string "French: " calendar-french-date-string "Mayan: " calendar-mayan-date-string "Coptic: " calendar-coptic-date-string "Ethiopic: " calendar-ethiopic-date-string "Persian: " calendar-persian-date-string "Chinese: " calendar-chinese-date-string "*Dates*" princ fboundp fit-window-to-buffer get-buffer-window] 40 nil nil]) #@42 Keymap for the minor `org-cdlatex-mode'. (defvar org-cdlatex-mode-map (make-sparse-keymap) (#$ . 544544)) (byte-code "\301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\312#\207" [org-cdlatex-mode-map define-key "_" org-cdlatex-underscore-caret "^" "`" cdlatex-math-symbol "'" org-cdlatex-math-modify "{" cdlatex-environment] 4) #@69 Flag remembering if we have applied the advice to texmathp already. (defvar org-cdlatex-texmathp-advice-is-done nil (#$ . 544911)) #@101 Non-nil if Org-Cdlatex mode is enabled. Use the command `org-cdlatex-mode' to change this variable. (defvar org-cdlatex-mode nil (#$ . 545049)) (make-variable-buffer-local 'org-cdlatex-mode) #@149 Toggle the minor `org-cdlatex-mode'. This mode supports entering LaTeX environment and math in LaTeX fragments in Org-mode. \{org-cdlatex-mode-map} (defalias 'org-cdlatex-mode #[(&optional arg) "\303=\203 ?\202%\203\304!\305V\202% \204\306\202%\307\310\301\"\210\311\211\203.\312\313!\210\n\204@\306\314\315\316\317\311$\210\320\315\311\"\210\321\322 \203J\323\202K\324\"\210\325 \203_\307\326 \203\\\327\202]\330\"\210\331 \210 \207" [arg org-cdlatex-mode org-cdlatex-texmathp-advice-is-done toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil require cdlatex ad-add-advice texmathp (org-math-always-on nil t (advice lambda nil "Always return t in org-mode buffers.\nThis is because we want to insert math symbols without dollars even outside\nthe LaTeX math segments. If Orgmode thinks that point is actually inside\nen embedded LaTeX fragement, let texmathp do its job.\n\\[org-cdlatex-mode-map]" (interactive) (let (p) (cond ((not (org-mode-p)) ad-do-it) ((eq this-command 'cdlatex-math-symbol) (setq ad-return-value t texmathp-why '("cdlatex-math-symbol in org-mode" . 0))) (t (let ((p (org-inside-LaTeX-fragment-p))) (if (and p (member (car p) (plist-get org-format-latex-options :matchers))) (setq ad-return-value t texmathp-why '("Org-mode embedded math" . 0)) (if p ad-do-it)))))))) around ad-activate run-hooks org-cdlatex-mode-hook org-cdlatex-mode-on-hook org-cdlatex-mode-off-hook called-interactively-p "Org-Cdlatex mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 545247) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205\304J#\207" [add-minor-mode org-cdlatex-mode " OCDL" boundp org-cdlatex-mode-map] 5) #@45 Unconditionally turn on `org-cdlatex-mode'. (defalias 'turn-on-org-cdlatex #[nil "\300\301!\207" [org-cdlatex-mode 1] 2 (#$ . 546980)]) #@868 Test if point is inside a LaTeX fragment. I.e. after a \begin, \(, \[, $, or $$, without the corresponding closing sequence appearing also before point. Even though the matchers for math are configurable, this function assumes that \begin, \(, \[, and $$ are always used. Only the single dollar delimiters are skipped when they have been removed by customization. The return value is nil, or a cons cell with the delimiter and and the position of this delimiter. This function does a reasonably good job, but can locally be fooled by for example currency specifications. For example it will assume being in inline math after "$22.34". The LaTeX fragment formatter will only format fragments that are properly closed, but during editing, we have to live with the uncertainty caused by missing closing delimiters. This function looks only before point, not after. (defalias 'org-inside-LaTeX-fragment-p #[nil "\300\301\215\207" [exit (byte-code "`\306\307\310\"\235\311\312 \313Q\314\315#\210`\314\211\316\314\211\211b\210\203o`{\317P\320\306\"A@\321\n \f#\203o\316\225 GU\203W\322\323\306\316\224\\B\"\210\2029\316\225 G\324ZU\203i\322\323\314\"\210\2029\316\225\2029\311\325\315#\211\205\263b\210\326\224\203\214\322\323\327\326!B\"\210\330\224\203\226\322\323\314\"\210\311\331\315#\203\247?\202\226b\210\205\263\332B.\207" [org-format-latex-options paragraph-start re m start str "$" plist-get :matchers re-search-backward "^\$" "\$" nil t 0 " X$." assoc string-match throw exit 5 "\$\\\\begin{[^}]*}\\|\\\\(\\|\\\\\\[\$\\|\$\\\\end{[^}]*}\\|\\\$\\|\\\\\\]\\)\\|\$\\$\\$\$" 1 match-string 2 "\\$\\$" "$$" dd-on lim dodollar pos org-latex-regexps] 9)] 2 (#$ . 547123)]) #@284 Check if it makes sense to execute `cdlatex-tab', and do it if yes. It makes sense to do so if `org-cdlatex-mode' is active and if the cursor is - inside a LaTeX fragment, or - after the first word in a line, where an abbreviation expansion could insert a LaTeX environment. (defalias 'org-try-cdlatex-tab #[nil "\205\"\212\301\302x\210\303\302x\210n)\203\304 \210\305\207\306 \203!\304 \210\305\207\302\207" [org-cdlatex-mode "a-zA-Z0-9*" nil " " cdlatex-tab t org-inside-LaTeX-fragment-p] 2 (#$ . 548870)]) #@115 Execute `cdlatex-sub-superscript' in LaTeX fragments. Revert to the normal definition outside of these fragments. (defalias 'org-cdlatex-underscore-caret #[(&optional arg) "\302 \203 \303\304!\207\305\303\306\307 !!!)\207" [org-cdlatex-mode last-input-event org-inside-LaTeX-fragment-p call-interactively cdlatex-sub-superscript nil key-binding vector] 4 (#$ . 549400) "P"]) #@111 Execute `cdlatex-math-modify' in LaTeX fragments. Revert to the normal definition outside of these fragments. (defalias 'org-cdlatex-math-modify #[(&optional arg) "\302 \203 \303\304!\207\305\303\306\307 !!!)\207" [org-cdlatex-mode last-input-event org-inside-LaTeX-fragment-p call-interactively cdlatex-math-modify nil key-binding vector] 4 (#$ . 549784) "P"]) #@58 List of overlays carrying the images of latex fragments. (defvar org-latex-fragment-image-overlays nil (#$ . 550154)) (make-variable-buffer-local 'org-latex-fragment-image-overlays) #@67 Remove all overlays with LaTeX fragment images in current buffer. (defalias 'org-remove-latex-fragment-image-overlays #[nil "\301\302\"\210\303\211\207" [org-latex-fragment-image-overlays mapc org-delete-overlay nil] 3 (#$ . 550342)]) #@513 Preview the LaTeX fragment at point, or all locally or globally. If the cursor is in a LaTeX fragment, create the image and overlay it over the source code. If there is no fragment at point, display all fragments in the current text, from one headline to the next. With prefix SUBTREE, display all fragments in the current subtree. With a double prefix `C-u C-u', or when the cursor is before the first headline, display all fragments in the buffer. The images can be removed again with \[org-ctrl-c-ctrl-c]. (defalias 'org-preview-latex-fragment #[(&optional subtree) "\306 \210\212\214\307\211\211\211\f\310\232\204\212\311\312 P\307\313#)\204(ed\314\202b\f\315\232\203<\316 \210`\317\313!\320\202b\321 \211\203Ne A\322Z]b\210\202Q\316 \210`\323 \210` \203`\324\202a\325\326\327\"\210\n}\210\330\331\332\333!!P\334 %\210\326\335\".\207" [msg at end beg subtree outline-regexp org-remove-latex-fragment-image-overlays nil (16) re-search-backward "^" t "Creating images for buffer...%s" (4) org-back-to-heading org-end-of-subtree "Creating images for subtree...%s" org-inside-LaTeX-fragment-p 2 outline-next-heading "Creating image...%s" "Creating images for entry...%s" message "" org-format-latex "ltxpng/" file-name-sans-extension file-name-nondirectory overlays "done. Use `C-c C-c' to remove images." buffer-file-name default-directory] 6 (#$ . 550586) "P"]) #@50 Regular expressions for matching embedded LaTeX. (defvar org-latex-regexps '(("begin" "^[ ]*\$\\\\begin{\\([a-zA-Z0-9\\*]+\$[^]+?\\\\end{\\2}\\)" 1 t) ("$" "\$[^$]\$\$\\(\\$\\([^ \n,;.$][^$\n ]*?\\(\n[^$\n ]*?\$\\{0,2\\}[^ \n,.$]\\)\\$\\)\\)\$[ .,?;:'\")]\\|$\$" 2 nil) ("\$" "\\\\([^]*?\\\$" 0 nil) ("\\[" "\\\\\\[[^]*?\\\\\\]" 0 t) ("$$" "\\$\\$[^]*?\\$\\$" 0 t)) (#$ . 551993)) #@69 Replace LaTeX fragments with links to an image, and produce images. (defalias 'org-format-latex #[(prefix &optional dir overlays msg at) "\203 \306\307!\203 \307 \210\310 !\311 \"\312\f!-.\313.\314\"/01\3152\316\21134\316\21156\316\21178\316\2119:\316\211;<\316\211=>\316?\317 !\203f\320\321\322 \323\324\n!\325P#\"\2101\211A1@\2118\205H8@:8A@7\32688;\32788\203\217\330\202\220\331<:/\235\203feb\210\3327\316\333#\203f@\203\265@A;\224\232\203\235\334;!3;\2245;\22562T2\335\336 2#=\335\336\f2#><\337=\340<\2604A\203\362\341A2\"\2105b\2109\204\3339\317 !\204\342 !\210\3433>.#\210\203;\34456\"?\345?\346\347\350\351\352>\353\354\257#\210?BBB6b\210\202\23556|\2104c\210\202\235.\207" [overlays prefix prefixnodir dir absprefix todir fboundp clear-image-cache file-name-nondirectory expand-file-name file-name-directory plist-get :matchers 0 nil file-directory-p mapc delete-file directory-files full regexp-quote "_[0-9]+\\.png$" 2 3 "\n\n" "" re-search-forward t match-string format "%s_%04d.png" "[[file:" "]]" message make-directory org-create-formula-image org-make-overlay org-overlay-put display image :type png :file :ascent center org-format-latex-options opt matchers org-latex-regexps re-list cnt txt link beg end re e checkdir m n block linkfile movefile ov at msg org-latex-fragment-image-overlays] 11 (#$ . 552401)]) (defalias 'org-create-formula-image #[(string tofile options) "\306\307\310 \"!\211\311P\n\312P\n\313P\314\3153\316\"\206\317\320_!4\3153\321\"\206-\3225\3153\323\"\2068\3246\325\326\327!!78\330\216r7q\210\3319\332\261\210)r7q\210~\210\333ed8\334\335%\210,:;\334\336\337\217\210\340;!\210)\341\f!\204\202\342\343\"\210\334\202\325\344\345\334\211\211\346\3475\3506\3514\3524\353\354\355 \f&\210\341 !\204\253\342\356\"\210\334\202\325\357 <\360#\210\361=\334>=:\203\323=@>\362\n>P!\210=A\211=\202\272* .\207" [temporary-file-directory tmpdir texfilebase texfile dvifile pngfile make-temp-name expand-file-name "orgtex" ".tex" ".dvi" ".png" number-to-string plist-get :scale 1.0 1000 :foreground "Black" :background "Transparent" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "\\documentclass{article}\n\\usepackage{fullpage}\n\\usepackage{amssymb}\n\\usepackage[usenames]{color}\n\\usepackage{amsmath}\n\\usepackage{latexsym}\n\\usepackage[mathscr]{eucal}\n\\pagestyle{empty}\n\\begin{document}\n" "\n\\end{document}\n" write-region nil 0 (byte-code "\302!\210\303\304\305\211\211 %\207" [tmpdir texfile cd call-process "latex" nil] 6) ((error)) cd file-exists-p message "Failed to create dvi file from %s" call-process "dvipng" "-E" "-fg" "-bg" "-x" "-y" "-T" "tight" "-o" "Failed to create png file from %s" copy-file replace (".dvi" ".tex" ".aux" ".log" ".png") delete-file options scale fg bg #1# #2=#:temp-file string default-directory dir tofile #3=#:--cl-var-- e] 20]) (byte-code "\301B\302\303!\207" [current-load-list org-level-max (lambda (#1=#:defconst-tmp-var) (defconst org-level-max #1#)) 20] 2) #@75 Preamble, to be inserted just after . Set by publishing functions. (defvar org-export-html-preamble nil (#$ . 555603)) #@77 Preamble, to be inserted just before . Set by publishing functions. (defvar org-export-html-postamble nil (#$ . 555735)) #@68 Should default preamble be inserted? Set by publishing functions. (defvar org-export-html-auto-preamble t (#$ . 555870)) #@69 Should default postamble be inserted? Set by publishing functions. (defvar org-export-html-auto-postamble t (#$ . 555998)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\307\310!\207" [current-load-list org-current-export-file default-boundp set-default nil org-current-export-dir org-export-plist-vars (lambda (#1=#:defconst-tmp-var) (defconst org-export-plist-vars #1#)) ((:language . org-export-default-language) (:customtime . org-display-custom-times) (:headline-levels . org-export-headline-levels) (:section-numbers . org-export-with-section-numbers) (:table-of-contents . org-export-with-toc) (:archived-trees . org-export-with-archived-trees) (:emphasize . org-export-with-emphasize) (:sub-superscript . org-export-with-sub-superscripts) (:TeX-macros . org-export-with-TeX-macros) (:LaTeX-fragments . org-export-with-LaTeX-fragments) (:fixed-width . org-export-with-fixed-width) (:timestamps . org-export-with-timestamps) (:tables . org-export-with-tables) (:table-auto-headline . org-export-highlight-first-table-line) (:style . org-export-html-style) (:convert-org-links . org-export-html-link-org-files-as-html) (:inline-images . org-export-html-inline-images) (:expand-quoted-html . org-export-html-expand) (:timestamp . org-export-html-with-timestamp) (:publishing-directory . org-export-publishing-directory) (:preamble . org-export-html-preamble) (:postamble . org-export-html-postamble) (:auto-preamble . org-export-html-auto-preamble) (:auto-postamble . org-export-html-auto-postamble) (:author . user-full-name) (:email . user-mail-address))] 3) #@74 Return the property list with default settings for the export variables. (defalias 'org-default-export-plist #[nil "\304\211\211A@\211\203 @ AJ\nBB\202\n+\207" [org-export-plist-vars e rtn l nil] 3 (#$ . 557623)]) #@63 Return the property list with file-local settings for export. (defalias 'org-infile-export-plist #[nil "\212\306b\210\307\310!\311\211\211\211\211\312 \311\313#\203\223\314\311\"#\315#\"\"*\316\311\"#\315#\"\"*\317\230\203E\320\f\321\n#\202\322\230\203T\320\f\323\n#\202\324\230\203c\320\f\325\n#\202\326\230\203r\320\f\327\n#\202\330\230\203\210 \203\203 \331\nQ\202\204\n\202\332\230\203\n\202\320\f\333 #\203\317\334\311$%%\211A%@\211$\203\316\335\336$@!\337P\"\203\243\320\f$A\340\341\314\"!@#\202\243*\f.\207" [options text val key p re 0 org-make-options-regexp ("TITLE" "AUTHOR" "EMAIL" "TEXT" "OPTIONS" "LANGUAGE") nil re-search-forward t 1 match-string-no-properties 2 "TITLE" plist-put :title "AUTHOR" :author "EMAIL" :email "LANGUAGE" :language "TEXT" "\n" "OPTIONS" :text (("H" . :headline-levels) ("num" . :section-numbers) ("toc" . :table-of-contents) ("\\n" . :preserve-breaks) ("@" . :expand-quoted-html) (":" . :fixed-width) ("|" . :tables) ("^" . :sub-superscript) ("*" . :emphasize) ("TeX" . :TeX-macros) ("LaTeX" . :LaTeX-fragments)) string-match regexp-quote ":\$[^ \n ;,.]*\$" read-from-string match-string string num o op] 7 (#$ . 557855)]) (defalias 'org-export-directory #[(type plist) "\303\304\"\211<\203\305\n \"A\206\306\202 )\207" [plist val type plist-get :publishing-directory assoc "."] 4]) #@65 Remove all lines from LIST which are before the first headline. (defalias 'org-export-find-first-heading-line #[(list) "\304 P\203\305\n@\"\204\211A@\210\202\206 *\207" [list outline-regexp re orig-list "^" string-match] 3 (#$ . 559263)]) #@66 Skip lines starting with "#" and subtrees starting with COMMENT. (defalias 'org-skip-comments #[(lines) "\306P\307\310\211\211\211A@\211\203\311 \n\"\203P\312\225\312\224Z\211\203P\211A@\211\203F\311\f\n\"\203)\312\225\312\224Z V\204)\nB\211\202\311\313\n\"\204\f\203x\311\314\n\"\203x\311\315\n\"\204\f\311\316\n\"\203x\311\317\n\"\203\f\nB\202\f\237-\207" [org-comment-string level line rtn re2 re1 "^\$\\*+\$[ ]+" "^\$\\*+\$[ \n ]" nil string-match 1 "^#" "^[ ]*|" "^[ ]*| *[!_^] *|" "| *<[0-9]+> *|" "| *[^ <|]" lines org-export-table-remove-special-lines] 6 (#$ . 559524)]) (defalias 'org-export #[(&optional arg) "\305\306\307\211\211\310\213\210\n\311W\203\n\312\\\202\n\211\236\211\203*\313A!\202.\314\315\n\"-\207" [ass r2 r1 cmds help "[t] insert the export option template\n[v] limit export to visible part of outline tree\n\n[a] export as ASCII\n[h] export as HTML\n[b] export as HTML and browse immediately\n[x] export as XOXO\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files\n[c] export agenda files into combined iCalendar file\n\n[F] publish current file\n[P] publish current project\n[X] publish... (project will be prompted for)\n[A] publish all projects" ((116 . org-insert-export-options-template) (118 . org-export-visible) (97 . org-export-as-ascii) (104 . org-export-as-html) (98 . org-export-as-html-and-open) (120 . org-export-as-xoxo) (105 . org-export-icalendar-this-file) (73 . org-export-icalendar-all-agenda-files) (99 . org-export-icalendar-combine-agenda-files) (70 . org-publish-current-file) (80 . org-publish-current-project) (88 . org-publish) (65 . org-publish-all)) nil ((byte-code "\302 \210\303\220\304!\221\210\305\306!\210\307 \302\207" [help r1 delete-other-windows "*Org Export/Publishing Help*" princ message "Select command: " read-char-exclusive] 3)) 27 96 call-interactively error "No command associated with key %c"] 6 nil nil]) #@445 Entities for TeX->HTML translation. Entries can be like ("ent"), in which case "\ent" will be translated to "&ent;". An entry can also be a dotted pair like ("ent"."&other;"). In that case, "\ent" will be translated to "&other;". The list contains HTML entities for Latin-1, Greek and other symbols. It is supplemented by a number of commonly used TeX macros with appropriate translations. There is currently no way for users to extend this. (defconst org-html-entities '(("nbsp") ("iexcl") ("cent") ("pound") ("curren") ("yen") ("brvbar") ("sect") ("uml") ("copy") ("ordf") ("laquo") ("not") ("shy") ("reg") ("macr") ("deg") ("plusmn") ("sup2") ("sup3") ("acute") ("micro") ("para") ("middot") ("odot" . "o") ("star" . "*") ("cedil") ("sup1") ("ordm") ("raquo") ("frac14") ("frac12") ("frac34") ("iquest") ("Agrave") ("Aacute") ("Acirc") ("Atilde") ("Auml") ("Aring") ("AA" . "Å") ("AElig") ("Ccedil") ("Egrave") ("Eacute") ("Ecirc") ("Euml") ("Igrave") ("Iacute") ("Icirc") ("Iuml") ("ETH") ("Ntilde") ("Ograve") ("Oacute") ("Ocirc") ("Otilde") ("Ouml") ("times") ("Oslash") ("Ugrave") ("Uacute") ("Ucirc") ("Uuml") ("Yacute") ("THORN") ("szlig") ("agrave") ("aacute") ("acirc") ("atilde") ("auml") ("aring") ("aelig") ("ccedil") ("egrave") ("eacute") ("ecirc") ("euml") ("igrave") ("iacute") ("icirc") ("iuml") ("eth") ("ntilde") ("ograve") ("oacute") ("ocirc") ("otilde") ("ouml") ("divide") ("oslash") ("ugrave") ("uacute") ("ucirc") ("uuml") ("yacute") ("thorn") ("yuml") ("fnof") ("Alpha") ("Beta") ("Gamma") ("Delta") ("Epsilon") ("Zeta") ("Eta") ("Theta") ("Iota") ("Kappa") ("Lambda") ("Mu") ("Nu") ("Xi") ("Omicron") ("Pi") ("Rho") ("Sigma") ("Tau") ("Upsilon") ("Phi") ("Chi") ("Psi") ("Omega") ("alpha") ("beta") ("gamma") ("delta") ("epsilon") ("varepsilon" . "ε") ("zeta") ("eta") ("theta") ("iota") ("kappa") ("lambda") ("mu") ("nu") ("xi") ("omicron") ("pi") ("rho") ("sigmaf") ("varsigma" . "ς") ("sigma") ("tau") ("upsilon") ("phi") ("chi") ("psi") ("omega") ("thetasym") ("vartheta" . "ϑ") ("upsih") ("piv") ("bull") ("bullet" . "•") ("hellip") ("dots" . "…") ("prime") ("Prime") ("oline") ("frasl") ("weierp") ("image") ("real") ("trade") ("alefsym") ("larr") ("leftarrow" . "←") ("gets" . "←") ("uarr") ("uparrow" . "↑") ("rarr") ("to" . "→") ("rightarrow" . "→") ("darr") ("downarrow" . "↓") ("harr") ("leftrightarrow" . "↔") ("crarr") ("hookleftarrow" . "↵") ("lArr") ("Leftarrow" . "⇐") ("uArr") ("Uparrow" . "⇑") ("rArr") ("Rightarrow" . "⇒") ("dArr") ("Downarrow" . "⇓") ("hArr") ("Leftrightarrow" . "⇔") ("forall") ("part") ("partial" . "∂") ("exist") ("exists" . "∃") ("empty") ("emptyset" . "∅") ("nabla") ("isin") ("in" . "∈") ("notin") ("ni") ("prod") ("sum") ("minus") ("lowast") ("ast" . "∗") ("radic") ("prop") ("proptp" . "∝") ("infin") ("infty" . "∞") ("ang") ("angle" . "∠") ("and") ("vee" . "∧") ("or") ("wedge" . "∨") ("cap") ("cup") ("int") ("there4") ("sim") ("cong") ("simeq" . "≅") ("asymp") ("approx" . "≈") ("ne") ("neq" . "≠") ("equiv") ("le") ("ge") ("sub") ("subset" . "⊂") ("sup") ("supset" . "⊃") ("nsub") ("sube") ("supe") ("oplus") ("otimes") ("perp") ("sdot") ("cdot" . "⋅") ("lceil") ("rceil") ("lfloor") ("rfloor") ("lang") ("rang") ("loz") ("Diamond" . "◊") ("spades") ("spadesuit" . "♠") ("clubs") ("clubsuit" . "♣") ("hearts") ("diamondsuit" . "♥") ("diams") ("diamondsuit" . "♦") ("quot") ("amp") ("lt") ("gt") ("OElig") ("oelig") ("Scaron") ("scaron") ("Yuml") ("circ") ("tilde") ("ensp") ("emsp") ("thinsp") ("zwnj") ("zwj") ("lrm") ("rlm") ("ndash") ("mdash") ("lsquo") ("rsquo") ("sbquo") ("ldquo") ("rdquo") ("bdquo") ("dagger") ("Dagger") ("permil") ("lsaquo") ("rsaquo") ("euro") ("arccos" . "arccos") ("arcsin" . "arcsin") ("arctan" . "arctan") ("arg" . "arg") ("cos" . "cos") ("cosh" . "cosh") ("cot" . "cot") ("coth" . "coth") ("csc" . "csc") ("deg" . "deg") ("det" . "det") ("dim" . "dim") ("exp" . "exp") ("gcd" . "gcd") ("hom" . "hom") ("inf" . "inf") ("ker" . "ker") ("lg" . "lg") ("lim" . "lim") ("liminf" . "liminf") ("limsup" . "limsup") ("ln" . "ln") ("log" . "log") ("max" . "max") ("min" . "min") ("Pr" . "Pr") ("sec" . "sec") ("sin" . "sin") ("sinh" . "sinh") ("sup" . "sup") ("tan" . "tan") ("tanh" . "tanh")) (#$ . 561524)) #@65 Cleanup a buffer substring so that links can be created safely. (defalias 'org-cleaned-string-for-export #[(string &rest parameters) "\205\306\307Q\310\nP\311\fP\312@\312QA\313B\314QC\315D>E\316F\317G\212\320\321!q\210\322 \210Hc\210\323I\324 \210)\325ed\"\210J\323=\204{eb\210\326A\317\323#\203{\327 \204c\330\323!\210\202N\331\332!\210J\203r\333 T\202s`\330\323!|\210\202Neb\210\326\334\317\323#\203\221\335\336\224\336\225\337#\210\202~E\203\264eb\210\326\340\317\323#\203\264\341\342\323\"\210\335\343 \333 Td^\344#\210\202\231eb\210\326\345\317\323#\203\331E\203\320\335\332\224\332\225T\346#\210\202\267\336\224\336\225|\210\202\267eb\210\326C\317\323#\203\367\336\224b\210\332\210\335`\330\323!\347#\210\202\334eb\210\326\350\317\323#\203 \341\351!\210\202\372eb\210\326\352\317\323#\203\341\353!\210\202\feb\210 \2038\326 \317\323#\2038\354`\355\"\204\"\341\356!\210\202\"eb\210\326\357\317\323#\203U\354`\355\"\204;\341\360!\210\336\224b\210\202;\361D>\203k\362\363\364\365K!!PL\317\366$\210\367\370!\210eb\210\326\317\323#\203\227\354`\355\"\204r\341\371\332!\372\371\373!\312\371\374!\375\260\323\211#\210\202reb\210\326 \317\323#\203\277\354`\355\"\204\232\341\371\332!\372\371\373!\312\371\374!\375\260\323\211#\210\202\232eb\210\326M\317\323#\203\354`\355\"\204\302\341\372\376 N\377\216\201P\371\332!!*\201Q\374\225\203\360\371\373!\202\372\201R\371\332!\201QQ\201Q\260\323\211#\210\202\302\201SD>\203:eb\210\326O\317\323#\203:\354`\355\"\204\201T\336\224\336\225\201U\201V\323%\210\336\225Sb\210\202\201W G)\201X\321!\210G.\207" [org-target-link-regexp re-radio org-plain-link-re re-plain-link org-angle-link-re re-angle-link "\$[^<]\$\$" "\$" "\$[^[<]\$" "\$[^[]\$" ":" "^\\*+[ ]+" "\\>" :for-html "\\*+" nil get-buffer-create " org-mode-tmp" erase-buffer t org-mode untabify re-search-forward org-on-heading-p org-end-of-subtree beginning-of-line 1 point-at-eol "^[ ]*:.*\$\n[ ]*:.*\$*" add-text-properties 0 (org-protected t) "^#\\+HTML:[ ]*\$.*\$" replace-match "\\1" point-at-bol (org-protected t) "^#\\+BEGIN_HTML\\>.*\$\n.*\$*?\n#\\+END_HTML\\>.*\n?" (org-protected t) (org-protected t) "^#.*?\$<< \n]+>>>?\$.*" "\\1(INVISIBLE)" "^#.*\n?" "" get-text-property org-protected "\\1[[\\2]]" "\$\\(\\[\\|\\]\$\\[[^]]*?\\)[ ]*\n[ ]*\$[^]]*\\]\\(\\[\\|\\]\$\\)" "\\1 \\3" :LaTeX-fragments org-format-latex "ltxpng/" file-name-sans-extension file-name-nondirectory "Creating LaTeX image %s" message "Exporting..." match-string "[[" 2 3 "]]" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-archive-tag re-archive org-quote-string re-quote parameters htmlp outline-regexp rtn string org-inhibit-startup org-export-with-archived-trees org-current-export-file org-current-export-dir org-bracket-link-regexp save-match-data-internal org-emph-re org-link-expand-abbrev "]" "[" :emph-multiline subst-char-in-region 10 32 buffer-string kill-buffer] 7 (#$ . 565955) nil]) #@50 Take link text and make a safe target out of it. (defalias 'org-solidify-link-text #[(s &optional alist) "\305 \306\216\307\310\311 \312\"\313#\314\n\"\211A\206\n,\207" [save-match-data-internal s rtn alist a match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) mapconcat identity org-split-string "[ \n]+" "--" assoc] 6 (#$ . 569021)]) (byte-code "\302B\303\302!\204\304\302\305 \306\"\"\210\302\207" [current-load-list org-level-max org-section-numbers default-boundp set-default make-vector 0] 5) #@48 Initialize the vector for the section numbers. (defalias 'org-init-section-numbers #[nil "\306\307\310\311\"\237\nGS\211\312\f\313Y\205R\fV\203$\n\f\313I\210\202K @\206*\314\315\316 \"\203>\n\f\317 !\320ZI\210\202E\n\f\321 !I\210 \211A@\210\fS\211\202-\207" [level numbers org-section-numbers depth i number-string -1 org-split-string "" "\\." nil 0 "0" string-match "\\`[A-Z]\\'" string-to-char 64 string-to-number] 5 (#$ . 569583)]) #@113 Return a string with the current section number. When LEVEL is non-nil, increase section numbers on that level. (defalias 'org-section-number #[(&optional level) "GS\306\211\307 \2037 \310V\203 HTI\210 T\211 X\2037\n\311U\2040\n\312I\210\nT\211\202 \312\211 X\203[\nH\f\211\307\230\204N\313\202O\307\314!Q\nT\211\202:\315 \316\216\317\320\f\"\203o\321\307\322\306\f$\317\323\f\"\203}\321\307\322\306\f$*\f,\207" [org-section-numbers depth idx n string level nil "" -1 1 0 "." int-to-string match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`\$[@0]\\.\$+" replace-match t "\$\\.0\$+\\'" save-match-data-internal] 6 (#$ . 570042)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list org-last-level default-boundp set-default nil org-levels-open org-ascii-current-indentation] 3) #@209 Export the outline as a pretty ASCII file. If there is an active region, export only the region. The prefix ARG specifies how many levels of the outline should become underlined headlines. The default is 3. (defalias 'org-export-as-ascii #[(arg) "\306\300\"\210\307\310 \311 \"\312 \203\313 \202e\312 \203!\314 \202\"d{\315\316\317\320\n!\321\"!!\322@\323A\324\211BC\324\211DE\324F\325\326\327 \"!\330\331G!!\332QH\333H!I\334J\324\"K2L\335\336\337 \"M\335\340\341 \"N\342 \343\"O\342 \344\"\206\210\330\331G!!P\342 \345\"Q\342 \346\"R\347S\350QT\324\211UV\324W\351X\352 \210\333H!\210\353RY\"\206\277\353\354Y\"W\355I!\210\356 \210\357 \210\360\361Z\"\210\362L[\\\363\\![L\210*]\203\356\364]!\202\360^D_\250\203_D^\202DEP\203\365P\366\"\210\367c\210O\204Q\203:WA@\370O\206'\371Q\2034\372Q\373Q\2025\371\367\260c\210M\203SN\203S\374W8\370M\375N\367\260c\210U\203`\376U!\377Pc\210\377c\210_\203\206\201cW8\367\201d\201cW8G\366\"\367\261\210\360\201e \"\210\352 \210 \211A@\211B\203*\376B!B\201f\201gB\"\203\266\201h\371\201i\211B$B\202\232\201f`B\"\203\340\201h\201c\225\203\321\201j\202\324\201k\201i\324B$B\202\266\f\203\354\201lB!B\201f\201mB\"\203\201n\351\225\351\224Z!A\201o\374B\"C\201pACD $\210\202\211\201qB@\"\367\261\210\202\211\201r \210\201s \210\324\211abeb\210\201t`\201u\"\211b\203h\201tb\201u\"aba|\210bb\210\201vc\210\202=eb\210\201t`\201w\"\211b\203\221\201tb\201w\"aba|\210bb\210\202k*eb.\207" [org-todo-line-regexp opt-plist region org-display-custom-times custom-times lines set-default org-combine-plists org-default-export-plist org-infile-export-plist org-region-active-p region-beginning region-end org-export-find-first-heading-line org-skip-comments org-split-string org-cleaned-string-for-export "[ \n]" (0 . 0) 0 nil file-name-as-directory org-export-directory :ascii file-name-sans-extension file-name-nondirectory ".txt" find-file-noselect make-vector format-time-string "%Y/%m/%d" current-time "%X" org-current-time plist-get :author :title :email :language "^[ ]*" "\\>" 1 org-init-section-numbers assoc "en" switch-to-buffer-other-window erase-buffer fundamental-mode mapcar #[(x) "\302A!\303 @\"L\207" [x opt-plist make-local-variable plist-get] 4] org-odd-levels-only make-variable-buffer-local prefix-numeric-value org-insert-centered 61 "\n" ": " "" " <" ">" 2 " " org-html-expand-for-ascii "\n\n" org-ascii-current-indentation level line txt umax umax-toc case-fold-search buffer-file-name filename buffer org-level-max org-levels-open odd date time author title email language org-quote-string quote-re0 text todo lang-words org-last-level org-export-language-setup org-export-plist-vars value var arg org-export-headline-levels org-export-with-toc org-bracket-link-regexp end beg 3 make-string #[(line) "\306 \"\205\222\307\225\307\224Z\310\n!\311\312 \"\f\203)\313\224\203)\311\313 \" \232?\206:\f\205:\nU\205:\314 \n#\315!\316>\203U\306\317\"\203U\320\321\322\211$\306\"\203d\320\321\322\211$ \203p\323\n!\324Q\nX\205\222\325\nS\326_\327\"\330\203\210\331\202\211\332\"\261\210\n\211!\207" [org-todo-line-regexp line level txt org-export-mark-todo-in-toc org-done-string string-match 1 org-tr-level match-string 3 2 org-search-todo-below org-html-expand-for-ascii (not-in-toc nil) "[ ]+:[a-zA-Z0-9_@:]+:[ ]*$" replace-match "" t org-section-number " " make-string 4 32 format "%s (*)\n" "%s\n" umax-toc lines todo org-export-with-tags quote-re0 org-export-with-section-numbers org-last-level] 5] string-match "<<]*>>>?[ ]*\n?" replace-match t "[\\3]" "[\\1]" org-translate-time "^\$\\*+\$[ ]*\$.*\$" org-tr-level match-string org-ascii-level-start org-fix-indentation normal-mode save-buffer next-single-property-change display "=>" org-cwidth] 7 (#$ . 571036) "P"]) #@53 Search the subtree below LINE for any TODO entries. (defalias 'org-search-todo-below #[(line lines level) " >A\n\306\211\211 \307\310\215-\207" [line lines org-todo-line-regexp todo lv re nil exit (byte-code "\211A@\211\205<\306\n \"\203\307\225\307\224Z\310\224\205#\311\310 \"\f\232?X\2030\312\313\314\"\210 \203\312\313\315\"\210\202\207" [rest line re lv org-done-string todo string-match 1 2 match-string throw exit nil t level] 3) rest] 5 (#$ . 575002)]) #@38 Handle quoted HTML for ASCII export. (defalias 'org-html-expand-for-ascii #[(line) "\203\302\303 \"\203\304\305\306\211 $\202 \207" [org-export-html-expand line string-match "@<[^<>\n]*>" replace-match "" nil] 5 (#$ . 575492)]) #@73 Insert the string S centered and underline it with character UNDERLINE. (defalias 'org-insert-centered #[(s &optional underline) "\303\304!Z\305\245\306]\307 \310\"\311\261\210\n\205$\307 \310\"\307\304!\n\"\311\261)\207" [s ind underline 80 string-width 2 0 make-string 32 "\n"] 4 (#$ . 575734)]) #@37 Insert a new level in ASCII export. (defalias 'org-ascii-level-start #[(level title umax &optional lines) "\306 Z\307Z\310 V\2037\311\211\\\310\\\312\"\313 G\246 8!\314\315\261\210\316\317\215\210T\320_\nB\211\202\212`Sf\321\232\203H`SSf\321\232\204K\315c\210 Z\322!8\204j\323\324\"\203j\325\326\327\211$\203x\330!\314Q\315\311\331!\f\"\315\261\210\332\211+\207" [level umax ind n char org-export-ascii-bullets nil 1 0 make-string 32 char-to-string " " "\n" stop (byte-code "\203,\302\303@\"\203\304\305\306\"\210\302\307@\"\203#\304\305\310@!\211\"\210\211A@\210\202\306\207" [lines ind string-match "^\\*" throw stop nil "^\$[ ]*\$\\S-" org-get-indentation] 4) 2 10 reverse string-match "[ ]+\$:[a-zA-Z0-9_@:]+:\$[ ]*$" replace-match "" t org-section-number string-width (0 . 0) title org-ascii-current-indentation org-export-ascii-underline org-export-with-tags org-export-with-section-numbers] 5 (#$ . 576045)]) #@469 Create a copy of the visible part of the current buffer, and export it. The copy is created in a temporary buffer and removed after use. TYPE is the final key (as a string) that also select the export command in the `C-c C-e' export dispatcher. As a special case, if the you type SPC at the prompt, the temporary org-mode file will not be removed but presented to you so that you can continue to use it. The prefix arg ARG is passed through to the exporting command. (defalias 'org-export-visible #[(type arg) "\306\235\204\n\307\310!\210\311\312\"A\313\232\314\315!\316\211r q\210\317 \210)\212eb`dU\204F\320 b\210\321 `#\210\322 b\202-eb\210\n\204s\323\324!\203\\\321 \325\224\325\225T#\210\326\327\316\330#\203s\321 \325\224Td\325\225T^#\210\202\\ q\210\f\330\331 \210\332 \210\n\204\212 !\210+\n\204\225\333 !\202\233\334 !\210eb.\207" [type binding keepp buffer-file-name file buffer (97 1 98 2 104 120 32) error "Invalid export key" assoc ((97 . org-export-as-ascii) (1 . org-export-as-ascii) (98 . org-export-as-html-and-open) (2 . org-export-as-html-and-open) (104 . org-export-as-html) (120 . org-export-as-xoxo)) 32 get-buffer-create "*Org Export Visible*" nil erase-buffer org-find-invisible append-to-buffer org-find-visible looking-at "#[^ \n]*" 0 re-search-forward "[\n ]#[^\n ]*" t org-mode show-all kill-buffer switch-to-buffer-other-window s e org-inhibit-startup arg] 6 (#$ . 577034) (list (progn (message "Export visible: [a]SCII [h]tml [b]rowse HTML [x]OXO [ ]keep buffer") (read-char-exclusive)) current-prefix-arg)]) (defalias 'org-find-visible #[nil "`d\301!\211U\204\302\303\"\204)\207" [s next-overlay-change get-char-property invisible] 3]) (defalias 'org-find-invisible #[nil "`d\301!\211U\204\302\303\"\203)\207" [s next-overlay-change get-char-property invisible] 3]) #@127 Return a string with current options as keyword options. Does include HTML export options as well as TODO and CATEGORY stuff. (defalias 'org-get-current-options #[nil "\306\307\310 \311 \n\f \"#$%&'(\312)!*\313\232\203.\314\315+\316#\202/\317*\320\232\203?\314\315+\316#\202@\321\322,\323\"A-\203O\324\202P\325.\203Y\326\202Z\327/\203c\330\202d\3310\332=\203o\333\202\2040\204x\334\202\2040<\205\204\314\3350\316#\314\3361\206\215\337 \316#\206\223\3402\341&\207" [user-mail-address org-export-default-language org-export-headline-levels org-export-with-section-numbers org-export-with-toc org-export-preserve-breaks format "#+TITLE: %s\n#+AUTHOR: %s\n#+EMAIL: %s\n#+LANGUAGE: %s\n#+TEXT: Some descriptive text to be emitted. Several lines OK.\n#+OPTIONS: H:%d num:%s toc:%s \\n:%s @:%s ::%s |:%s ^:%s *:%s TeX:%s LaTeX:%s\n#+CATEGORY: %s\n#+SEQ_TODO: %s\n#+TYP_TODO: %s\n#+STARTUP: %s %s %s %s %s\n#+TAGS: %s\n#+ARCHIVE: %s\n#+LINK: %s\n" buffer-name user-full-name file-name-nondirectory sequence mapconcat identity " " "TODO FEEDBACK VERIFY DONE" type "Me Jason Marie DONE" assoc ((nil . "showall") (t . "overview") (content . "content")) "odd" "oddeven" "hidestars" "showstars" "align" "noalign" t "logdone" "nologging" #[(x) "\301\302!P\207" [x "lognote" symbol-name] 3] #[(x) "\301\232\203\302\207\303\232\203\304\207A\203\305\306@A#\207@\207" [x (:startgroup) "{" (:endgroup) "}" format "%s(%c)"] 4] org-get-buffer-tags "" "org file:~/org/%s.org" org-export-html-expand org-export-with-fixed-width org-export-with-tables org-export-with-sub-superscripts org-export-with-emphasize org-export-with-TeX-macros org-export-with-LaTeX-fragments buffer-file-name org-todo-interpretation org-todo-keywords org-startup-folded org-odd-levels-only org-hide-leading-stars org-startup-align-all-tables org-log-done org-tag-alist org-archive-location] 29 (#$ . 578895)]) #@67 Insert into the buffer a template with information for exporting. (defalias 'org-insert-export-options-template #[nil "n\204\301 \210\302 \303\304\"\203\305\211\224Oc)\207" [s newline org-get-current-options string-match "#\\+CATEGORY" 0] 3 (#$ . 580858) nil]) #@447 Toggle the fixed-width export. If there is no active region, the QUOTE keyword at the current headline is inserted or removed. When present, it causes the text between this headline and the next to be exported as fixed-width text, and unmodified. If there is an active region, this command adds or removes a colon as the first character of this line. If the first character of a line is a colon, this line is also exported in fixed-width font. (defalias 'org-toggle-fixed-width-section #[(arg) "\306\307 \211\203\310 \202` \205\311 \f\206+\n\203*\203*\312\n\"\202+\313\314\315 \203\223\212\nb\210i\316\313!\210\317! \306V\205\217 S\316\313!\210\f\203e\320\321\"\210\322c\210\323y\210\202\211\203|\317!\203|\324\325\321\211\315\313%\210\202\211\204\211\320\321\"\210\326c\210\313y\210\202F)\202\276\212\327 \210\317\330\331R!\203\255\324\325\321\211\315\313%\202\275\317!\205\275\306\225b\210\332\261).\207" [cc regionp beg end arg nlines 0 org-region-active-p region-beginning region-end count-lines 1 "[ ]*\$:\$" nil beginning-of-line looking-at move-to-column t ":\n" -1 replace-match "" ":" org-back-to-heading "\$ +\\<" "\\>\$" " " re off outline-regexp org-quote-string] 7 (#$ . 581135) "P"]) #@264 Export the outline as HTML and immediately open it with a browser. If there is an active region, export only the region. The prefix ARG specifies how many levels of the outline should become headlines. The default is 3. Lower levels will become bulleted lists. (defalias 'org-export-as-html-and-open #[(arg) "\302\303\"\210\304 !\207" [arg buffer-file-name org-export-as-html hidden org-open-file] 3 (#$ . 582405) "P"]) #@206 Call `org-export-as-html', may be used in batch processing as emacs --batch --load=$HOME/lib/emacs/org.el --eval "(setq org-export-headline-levels 2)" --visit=MyFile --funcall org-export-as-html-batch (defalias 'org-export-as-html-batch #[nil "\301\302\"\207" [org-export-headline-levels org-export-as-html hidden] 3 (#$ . 582835)]) #@431 Export the outline as a pretty HTML file. If there is an active region, export only the region. The prefix ARG specifies how many levels of the outline should become headlines. The default is 3. Lower levels will become bulleted lists. When HIDDEN is non-nil, don't display the HTML buffer. EXT-PLIST is a property list with external parameters overriding org-mode's default settings, but still inferior to file-local settings. (defalias 'org-export-as-html #[(arg &optional hidden ext-plist) "\306\307!\210\310\300\"\210\310\301 \"\210\310\302\n\"\210\310\303\"\210\311\312 \f\313 #\314 \315\"@\314 \316\"A\317BCD\320 \211E\203@\321 \202AeE\203K\322 \202Ld{F\323\324 \"GHI\325\326\327F\330\331\314 \332\"\205h\332$\333\"!J\334J!K\335L\336\211MN\317\211OP\317\211QR\337\323\324 \"!\340\341H!!\342QS\343H!T\344S!U\345V\317\"W\346\347\350 \"X\346\351\352 \"Y\314 \353\"Z\314 \354\"\206\315\340\341H!![\355\\\356Q]\357\\\360Q^\317\211_`\317\211ab\317cde\314 \361\"f\314 \362\"g\314 \363\"h\317\211ij\317k\335l\317m\335n\364\365!\2055\211opoqo\2055\366\367!\2055\367o\370\"r\317\211st\317\211uv\317\211wx\317\211yz\317\211{|\317\211}~\317\211\200\306\307!\210\371\201\372 \210\373g\202\"\206y\373\374\202\"i\203\210Uq\210\375 \210\376 \210\317DC\204\377\201\215\205\"\210\206\203\245\201\216\206!\202\247\207Q\210\250\203\267\210Q^\202\271QR\201\217\201\220g\211\201\221[!r\206\322\201\222XYZ@& c\210\314 \201\223\"\206\350\336c\210\314 \201\224\"\203[\203\201\217\211\201\221[!\"c\210h\203\201\225\201\221h!\201\226\261\210\210\203T\201\217\201\227\212\201\230i8\212$c\210\201\231c\210\377\201\232K\"K\201\335V\203T\201S\201\201\233c\210\202@\335l\372 \210K\211AK@\211M\211N\203u\201\234\201\235\215\210\202Z_\203\201\236c\210a\203\260b\203\252\201\237 \210b@\203\232\201\240\202\235\201\241c\210b\211Ab@\210\202\204\317\211ca\201\242\371\317Q\210\205\301LQXl%\210\314 \201\243\"\203\"Z\203\377\201\244iA@\201\245Z\201\246\261\210f\203\372\201\247f\201\250f\201\251\261\210\201\252c\210X\203\"Y\203\"\201\253\201\254i8\201\245X\201\255Y\201\252\261\210\213\203+\214c\210\314 \201\256\"\2065\336c\210\201\257c\210\201\260 \210eb\210\201\261\201\262\317\201\263#\203[\201\264\336!\210\202Deb\210\201\261\201\265\317\201\263#\203u\201\264\336!\210\202^\201\266 \210eb\210\306\201\267!.?\207" [org-todo-line-regexp org-deadline-line-regexp org-done-string org-maybe-keyword-time-regexp ext-plist opt-plist message "Exporting..." set-default org-combine-plists org-default-export-plist org-infile-export-plist plist-get :style :link-validation-function nil org-region-active-p region-beginning region-end org-export-directory :html org-skip-comments org-split-string org-cleaned-string-for-export :emph-multiline :for-html :LaTeX-fragments "[ \n]" org-export-find-first-heading-line 0 "" file-name-as-directory file-name-sans-extension file-name-nondirectory ".html" file-name-directory find-file-noselect make-vector format-time-string "%Y/%m/%d" current-time "%X" org-current-time :author :title "^[ ]*" "\\>" "^\$\\*+\$\$[ ]*" "\\>\$" :email :language :text boundp buffer-file-coding-system fboundp coding-system-get mime-charset 1 org-init-section-numbers assoc "en" erase-buffer fundamental-mode mapcar style link-validate valid org-odd-levels-only odd region-p region org-current-export-dir buffer-file-name org-current-export-file all_lines lines level line origline txt todo umax umax-toc filename current-dir buffer org-level-max org-levels-open date time author title org-quote-string quote-re0 quote-re inquote infixed in-local-list local-list-num local-list-indent org-plain-list-ordered-item-terminator llt email language text lang-words target-alist tg head-count cnt start coding-system coding-system-for-write save-buffer-coding-system charset table-open type table-buffer table-orig-buffer ind start-is-num starter rpl path desc descp desc1 desc2 link org-last-level org-export-language-setup hidden case-fold-search org-export-plist-vars arg org-export-headline-levels org-export-with-toc org-export-html-title-format org-export-html-toplevel-hlevel org-export-html-with-timestamp org-export-html-html-helper-timestamp #[(x) "\302A!\303 @\"L\207" [x opt-plist make-local-variable plist-get] 4] prefix-numeric-value format "\n\n\n%s\n\n\n\n\n%s\n\n" org-html-expand "iso-8859-1" :preamble :auto-preamble "

\n" "

" "%s\n" 3 "

" #[(line) "\306 \"\203\307\225\307\224Z\310\n!\311 \312\216\313\314\315\316 \"!!* \2034\317\224\2034\315\317 \"$\232?\206E \205E\n%U\205E\320 &\n#'(\321>\203\\\306\322\f\"\203\\\323\324\325\211\f$\306)\f\"\203k\323\324\325\211\f$*\203w\326\n!\327\fQ\n%X\203+T+\n,V\203\244\n,Z--S\211-\330Y\203\241\331c\210\202\220\332c\210\n,W\203\305,\nZ--S\211-\330Y\203\302\333c\210\202\261\332c\210\306. \"\203\360\315\307 \"/\323\334/\335Q\325\211 $\336/!\337\340+\"B0B0\202\305\306\341\f\"\203\323\324\325\211\f$\202\360\337'\203\342\202\f\343+\f#c\210\n, \207" [org-todo-line-regexp line level save-match-data-internal txt org-export-mark-todo-in-toc string-match 1 org-tr-level match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-html-expand org-export-cleanup-toc-line match-string 3 2 org-search-todo-below (not-in-toc nil) "[ ]+:[a-zA-Z0-9_@:]+:[ ]*$" replace-match "" t org-section-number " " 0 "\n
- " "\n" "
" "@" "@ " org-solidify-link-text format "sec-%d" "<\$<\$+\\|>\$>\$+" "
%s" "
%s" org-done-string umax-toc lines todo org-export-with-tags quote-re0 org-export-with-section-numbers head-count org-last-level cnt org-target-regexp tg target-alist] 5] "

\n" nextline (byte-code "\203\306\307 \"\203\310c\210\311\203 \312 !\313\261\210\314\315\311\"\210\n\203T\306\316 \"\203T\2044\317\320c\210\312\321\322 \"!\313\261\210\f\203O\306\323\f@\"\204O\311\310c\210\314\315\311\"\210\324\325\326 #\203f \313\261\210\314\315\311\"\210\306\327 \"\203u\330c\210\314\315\311\"\210\306\331 \"\203\307\332\225\203\223\333\334\335\321\322 \"!\336Q\317\211 $\202u \203\257\337 !\340\232\203\257\333\341\321\322 \"\342Q\317\211 $\202u\333\334\335\321\322 \"!\343\321\322 \"\344\260\317\211 $\202u\345 !\346 !\325@\306A @#\203\325\224@\332\225\203\354\321\332 \"\202\355\347B\321\350 \"C\351\225\205\376\321\351 \"D\332\225\203B\352CQ\202CED\205DE\232?FD\206&EGF\203R\353G!\203R\354 H\355\216\306\356G\"\203JG\325\225\311OG*\357G\360QGB\347\232\203k\361\335CI\"\362G\363\260J\202\365B\364\235\203\256K\317=\204\203K\203\230F\204\230\353C!\203\230\357B\352C\360\260J\202\365B\352CQL\365L\362G\363\260J\202\365B\366\235\203\313B\352CQL\365L\362G\363\260J\202\365B\367\230\203\320CM\370M!N\311\211OP\311Q\354 H\371\216\306\372M\"\203\321\322M\"Q\333\373\317\311M$M\374R!\203RMS\"\202\317T\353M!PN\203)\375M!\202+MOU\203\231\306\376O\"\203\231O\325\211\224O\377POQ\203w\306\201kQ\"\204w\306\201lQ\"\204w\306\201mQ\"\204wO\201n\335\201oQ!!QO\306\356G\"\203\231\333\373\317\211G$G\306\376G\"\203\231\333\373\317\211G$G*P\203\270K\317=\204\260K\203\270F\204\270\357O\360Q\202\301\365O\362G\363\260JT\204\314GJ-\202\365B\201p\235\203\365\201qB\352\354 H\201r\216\201oC!*\201s\260J\333J\317\211 $@JG\\@\202\322\306V \"\2036\332\224\2036\321\332 \"W\232\203,\333\201t\317\311 \332%\2026\333\201u\317\311 \332%\306\201v \"\203\310\201w\322\225\322\224Z!X\321\332 \"Y\306ZY\"\203b\333\373\317\211Y$YX[X\203o\\T\\]\203\240^\203\232\201x \210^@\203\212\201y\202\215\201zc\210^\211A^@\210\202t\311\211_]\201{XY[ \205\262X[X\\%\210\306` \"\203w\201|c\210\317\202wa\203\306\201} \"\203b\204\344\317b\311\211cd cBcedBd\f\203\377\306\201}\f@\"\204w\311bc\237cd\237d\201~ \210\201cd\"c\210\202w\306f\317=\203,\201\200\202Qf\201\201U\203;\201\202\202Qf\201\203U\203J\201\204\202Q\201\205\201\206! \"\203D\201\207 !g\201\210\224h\332\224\205q\321\332 \"\325\201\211Oi \351\224\311O\306\201\212 \"\204\214_@\206\211\322Tg]\203\326g_@U\203\237i\203\250g_@W\203\326\201x \210^@\203\271\201y\202\274\201zc\210^\211A^@\210_\211A_@\210_\211]\204\221i\203]\203\351g_@V\203\201~ \210h\203\371\201\213\202\374\201\214c\210h^B^g_B_\317]\202!i\203!\201x \210\201\215c\210\306\201\216 \"\203D\333\321\322 \"\201\217\232\203<\201\220\202?\201\221\317\211 $\306\201\222 \"\203R\201\223 \210\306\201\224 \"\203g\333\201\225\317\211 $\202rj\203r \201\225P \313\261\210\311\207" [inquote line org-export-with-fixed-width infixed lines org-export-with-toc string-match "^\\*+" "\n" nil org-html-protect "\n" throw nextline "^[ ]*:\$.*\$" t "

\n" match-string 1 "^[ 	]*\\(:.*\\)" get-text-property 0 org-protected "^[ 	]*-\\{5,\\}[ 	]*$" "\n
\n" "<<]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" 2 replace-match "@\\nbsp@" string-to-char 42 "@" "@ " "\" class=\"target\">" "@ " org-html-handle-time-stamps org-html-expand "internal" 3 5 ":" org-file-image-p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "^file:" "" "" "" ("http" "https") "<" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) ">" "\\2" "\\2" "^\\(\\*+\\)[ 	]*\\(.*\\)" org-tr-level org-close-li "\n" "" org-html-level-start "" "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" org-close-par-maybe org-format-table-html "^\\([ 	]*\\)\\(\\([-+*] \\)\\|\\([0-9]+[.)]\\) \\)?\\( *[^ 	\n
]\\|[ 	]*$\\)" 46 "^\\([ 	]*\\)\\(\\([-+*] \\)\\|\\([0-9]+\\.\\) \\)?\\( *[^ 	\n
]\\|[ 	]*$\\)" 41 "^\\( 	]*\\)\\(\\([-+*] \\)\\|\\([0-9]+)\\) \\)?\\( *[^ 	\n
]\\|[ 	]*$\\)" error "Invalid value of `org-plain-list-ordered-item-terminator'" org-get-string-indentation 4 -1 "[^ 	]" "\n\n" "\n\n" "
\n" "^[ 	]*\\[\\([X ]\\)\\]" "X" "[X]" "[X]" "^ [-+*]-\\|^[ 	]*$" org-open-par "\\\\\\\\[ 	]*$" "
"] 8) "
\n" org-close-li "\n" "\n" org-html-level-start :auto-postamble " " ": " "\n" "<" ">\n" "
\n" " " 2 " " :postamble "\n\n" normal-mode re-search-forward "
[ 
\n	]*
" t replace-match "[ 
\n	]*\n?" save-buffer "Exporting... done"] 11 (#$ . 583180) "P"])
#@64 Find out which HTML converter to use and return the HTML code.
(defalias 'org-format-table-html #[(lines olines) "\306\307@\"\203\f\310!\207\311\312\313\314\"\"\211@\306\315\n\"\205\"\316\317\n\"\320\321!P\311\312\313\322	\"\"\211\204@\204@\323!\202D\324!-\207" [lines hlines first ll re spanning string-match "^[ 	]*|" org-format-org-table-html delq nil mapcar #[(x) "\301\302\"\205\207" [x string-match "^[ 	]*\\+-"] 3] "\\S-+" match-string 0 "^[ 	]*" regexp-quote #[(x) "\302	\"?\207" [re x string-match] 3] org-format-table-table-html org-format-table-table-html-using-table-generate-source org-export-prefer-native-exporter-for-tables olines] 6 (#$ . 595616)])
#@27 Format a table into HTML.
(defalias 'org-format-org-table-html #[(lines &optional splice) "\306\307@\"\203A\237\306\307@\"\203A\237	\203$\310!\n\2050\311\312\313\314A\"\"\315\312\211\211\211\211\211\203L\312\204^\203Z\316\202[\317B\320\211A@\211\203r\321\322\215\210\202a\204\200\203\200\323B\204\211\324B\237\204\237\325\326\327#B B\325\330\331#\331P.\207" [lines org-export-table-remove-special-lines org-export-highlight-first-table-line html fields line string-match "^[ 	]*|-" org-table-clean-before-export delq nil mapcar #[(x) "\301\302\"\207" [x string-match "^[ 	]*|-"] 3] 0 "

" "" t next-line (byte-code "\306\307\"\203+ \204$\n\203\310\202\311B\f\203\"\312B\202$\313\313\314\315\316\"\210\317\320\"\204>\321G\322\"T\323\324\325\326\327#\330QB\313\207" [line splice head html lines tbopen string-match "^[ ]*|-" "" "" "" nil throw next-line t org-split-string "[ ]*|[ ]*" make-vector 0 -1 "" mapconcat #[(x) "T\211 W\203\306\n\"\203\f\fHTI\210 \203!\307\310Q\207\311\312Q\207" [i nlines org-table-number-regexp x fnum head string-match "" ""] 5] "" "" fields fnum nlines i] 5) "" "

" "	" "

\n" mapconcat #[(x) "\303\304\305! \245\nV\203\306\202\307\"\207" [x nlines org-table-number-fraction format "" float "right" "left"] 4] "" identity "\n" tbopen i fnum nlines head splice org-export-html-table-tag] 8 (#$ . 596312)]) #@90 Check if the table has a marking column. If yes remove the column and the special lines. (defalias 'org-table-clean-before-export #[(lines) "\302\303\304\">\203 \302\207\305\306\302\303\307\"\"\207" [lines org-table-clean-did-remove-column-1 nil mapcar #[(x) "\301\302\"\206\301\303\"\207" [x string-match "^[ ]*|-" "^[ ]*| *\$[#!$*_^ /]\$ *|"] 3] t delq #[(x) "\301\302\"?\205\301\303\"\204\301\304\"\205\305\306\307\211$\207" [x string-match "^[ ]*| *[!_^/] *|" "^[ ]*|-+\\+" "^[ ]*|[^|]*|" replace-match "|" t] 5]] 5 (#$ . 597880)]) #@44 Replace everything except "|" with spaces. (defalias 'org-fake-empty-table-line #[(line) "G\303!\n\304V\203 \nS \nH\305=\204 \n\306I\210\202 *\207" [line newstr i copy-sequence 0 124 32] 3 (#$ . 598449)]) #@259 Format a table generated by table.el into HTML. This conversion does *not* use `table-generate-source' from table.el. This has the advantage that Org-mode's HTML conversions can be used. But it has the disadvantage, that no cell- or row-spanning is allowed. (defalias 'org-format-table-table-html #[(lines) "\306\211\306\211\211\f \307P\211A@\211\f\203(\310\311\312\215\210\202\n\313P\211.\207" [org-export-highlight-first-table-line empty html fields head field-buffer nil "\n" " " next-line (byte-code "\305\306\"\203 \203\n\307\310\311 \312#\313R\314\211\315\316\317\"\210\320\321\" \203/\322\323 \"\2021\f\314\207" [line field-buffer html head fields string-match "^[ ]*\\+-" "" mapconcat #[(x) "\303\232\203 \n\203\304\305Q\207\306\307Q\207" [x empty head "" "" "\n" "" "\n"] 3] "\n" "\n" nil throw next-line t org-split-string "[ ]*|[ ]*" mapcar #[(x) "\302 \211A@Q\207" [x fields "
"] 4]] 7) "\n" line org-export-html-table-tag lines] 7 (#$ . 598671)]) #@212 Format a table into html, using `table-generate-source' from table.el. This has the advantage that cell- or row-spanning is allowed. But it has the disadvantage, that Org-mode's HTML conversions cannot be used. (defalias 'org-format-table-table-html-using-table-generate-source #[(lines) "\301\302!\210r\303\304!q\210\305 \210\306\307\310#c\210eb\210\311\312\313\314#\204#\315\316!\210\317 \210r\303\320!q\210\305 \210)\321\322\320\"\210\320q\210ed{)\207" [lines require table get-buffer-create " org-tmp1 " erase-buffer mapconcat identity "\n" re-search-forward "|[^+]" nil t error "Error processing table" table-recognize-table " org-tmp2 " table-generate-source html] 4 (#$ . 599729)]) #@49 Format time stamps in string S, or remove them. (defalias 'org-html-handle-time-stamps #[(s) "\300\301\215\207" [exit (byte-code "\306\211\307\n\"\203f\310\225\203\311\310\"\f\232\203\312\313\314\"\210\204(\315\211\224O \204= \315\211\224OP\315\225\306O\202 \315\211\224O\310\225\205O\316\317\311\310\"\"\316\320\321\311\322\"!\310\323O\"R\315\225\306O\202 \204n\202\200 P\307\324P\"\204 \325P *\207" [b r org-maybe-keyword-time-regexp s org-clock-string org-export-with-timestamps nil string-match 1 match-string throw exit "" 0 format "@%s @" " @%s@" org-translate-time 3 -1 "\\S-" "@
"] 9)] 2 (#$ . 600426)]) (defalias 'org-html-protect #[(s) "\302\303\304 #\203\305\306\307\211 $\302\224T\202\303\310 \"\203)\305\311\307\211 $\202\303\312 \"\203:\305\313\307\211 $\202)) \207" [start s 0 string-match "&" replace-match "&" t "<" "<" ">" ">"] 5]) #@59 Remove tags and time staps from lines going into the toc. (defalias 'org-export-cleanup-toc-line #[(s) "\303\304\"\203\305\306\307\211$ \203#\303\n\"\203#\305\306\307\211$\202\207" [s org-export-remove-timestamps-from-toc org-maybe-keyword-time-regexp string-match " +:[a-zA-Z0-9_@:]+: *$" replace-match "" t] 5 (#$ . 601420)]) #@120 Prepare STRING for HTML export. Applies all active conversions. If there are links in the string, don't modify these. (defalias 'org-html-expand #[(string) "\306\211\306\211\307\f \"\211\203. \310O\311\310 \" \310\225\306O\312 !B\nB\202\312 !B\313\314\237\",\207" [m s l res org-bracket-link-regexp string nil string-match 0 match-string org-html-do-expand apply concat] 4 (#$ . 601768)]) #@66 Apply all active conversions to translate special ASCII to HTML. (defalias 'org-html-do-expand #[(s) "\306! \203\307\310\"\203\311\312\313\314$\202\n\203!\315!\203)\316!\f\203q\317\314\211\307\320#\211\203p\321\322\"\323\"\211\203e\311 A\206]\324 @\325Q\313\211$\2025G\\\2025+\207" [s org-export-html-expand org-export-with-emphasize org-export-with-sub-superscripts org-export-with-TeX-macros ass org-html-protect string-match "@<\$[^&]*\$>" replace-match "<\\1>" t nil org-export-html-convert-emphasize org-export-html-convert-sub-super 0 "\\\\\$[a-zA-Z]+\$" match-string 1 assoc "&" ";" wd start org-html-entities] 5 (#$ . 602183)]) #@424 Create a regular expression which will match a balanced sexp. Opening delimiter is LEFT, and closing delimiter is RIGHT, both given as single character strings. The regexp returned will match the entire expression including the delimiters. It will also define a single group which contains the match except for the outermost delimiters. The maximum depth of stacked delimiters is N. Escaping delimiters is not possible. (defalias 'org-create-multibrace-regexp #[(left right n) "\306\307\307 \310\260\311\n\312\n\n \313\n\260\314V\2035S\f Q\312\n \313\n\260\202\315\f\316 \260,\207" [left right nothing or re next "[^" "\\" "]*?" "\\|" "\$?:" "\$+" 1 "\$" "\$" n] 7 (#$ . 602887)]) #@56 The regular expression matching a sub- or superscript. (defvar org-match-substring-regexp (byte-code "\301\302\303\304\305#\306\307\302\303\310\311#\306\307\312\260\n\207" [org-match-sexp-depth "\$[^\\]\$\$[_^]\$\$" "\\(" org-create-multibrace-regexp "{" "}" "\$" "\\|" "(" ")" "\$\\(?:\\*\\|[-+]?[^-+*!@#$%^_ \n,:\"?<>~;./{}=()]+\$\\)\\)"] 10) (#$ . 603606)) #@50 Convert sub- and superscripts in STRING to HTML. (defalias 'org-export-html-convert-sub-super #[(string) "\304\211\305\n\"\203C\306\307\"\310\230\203\311\202\312\306\313\"\206,\306\314\"\206,\306\315\"\316\306\317\"\320 \321\322 \321\260\323\211$\202\305\324\"\203W\316\306\317\"\323\211$\202C*\207" [c key org-match-substring-regexp string nil string-match match-string 2 "_" "sub" "sup" 8 6 5 replace-match 1 "<" ">" ", but first close previous paragraph if any. (defalias 'org-open-par #[nil "\301 \210\302c\210\303\211\207" [org-par-open org-close-par-maybe "\n

" t] 2 (#$ . 604929)]) #@39 Close paragraph if there is one open. (defalias 'org-close-par-maybe #[nil "\205\n\301c\210\302\211\207" [org-par-open "

" nil] 2 (#$ . 605117)]) #@26 Close

if necessary. (defalias 'org-close-li #[nil "\300 \210\301c\207" [org-close-par-maybe "

\n"] 1 (#$ . 605275)]) #@83 Insert a new level in HTML export. When TITLE is nil, just close all open levels. (defalias 'org-html-level-start #[(level title umax with-toc head-count) "\306 \210 ]T\211X\203&\f\nSH\203\307\n!\210\f\nS\310I\210\nT\211\202 \205\255\311\312 \"\203U\313$\203O\314 %\315\216\316\317\320\321\322\323 \"\324\"\325#\326Q*\202P\327\330\211 $ V\203~\fSH\203m\331 \210\332 \333\261\202\255\fS\330I\210\306 \210\334 \333\261\202\255&\203\212\335!\336 Q'\\\337\$\203\243\340\341) %c\210\202\253\340\342 $c\210\343 )\207" [level umax l org-level-max org-levels-open title org-close-par-maybe org-html-level-close nil string-match "\\(:[a-zA-Z0-9_@:]+:\$[ ]*$" replace-match match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) " " mapconcat identity org-split-string match-string 1 ":" " " "" "" t org-close-li "

" "
\n" "

" org-section-number " " -1 format "\n%s\n" "\n%s\n" org-open-par org-export-with-tags save-match-data-internal org-export-with-section-numbers org-export-html-toplevel-hlevel with-toc head-count] 9 (#$ . 605407)]) #@37 Terminate one level in HTML export. (defalias 'org-html-level-close #[(&rest args) "\300 \210\301c\207" [org-close-li "

"] 1 (#$ . 606638)]) #@149 Export current file as an iCalendar file. The iCalendar file will be located in the same directory as the Org-mode file, but with extension `.ics'. (defalias 'org-export-icalendar-this-file #[nil "\301\302\"\207" [buffer-file-name org-export-icalendar nil] 3 (#$ . 606790) nil]) #@172 Export all files in `org-agenda-files' to iCalendar .ics files. Each iCalendar file will be located in the same directory as the Org-mode file, but with extension `.ics'. (defalias 'org-export-icalendar-all-agenda-files #[nil "\300\301\302\303\304!#\207" [apply org-export-icalendar nil org-agenda-files t] 5 (#$ . 607077) nil]) #@149 Export all files in `org-agenda-files' to a single combined iCalendar file. The file is stored under the name `org-combined-agenda-icalendar-file'. (defalias 'org-export-icalendar-combine-agenda-files #[nil "\300\301\302\303\302!#\207" [apply org-export-icalendar t org-agenda-files] 5 (#$ . 607413) nil]) #@194 Create iCalendar files for all elements of FILES. If COMBINE is non-nil, combine all calendar entries into a single large file and store it under the name `org-combined-agenda-icalendar-file'. (defalias 'org-export-icalendar #[(combine &rest files) "\212\306\307\310D\"\311\211\311\211\311\211\2037\312!\203'\202,\313 \"\314!\211q\210\315 \210\211A@\211\203J\316\317\215\210\2027\320!.\207" [org-export-publishing-directory dir file ical-file ical-buffer category org-export-directory :ical :publishing-directory nil file-name-absolute-p expand-file-name org-get-agenda-file-buffer erase-buffer nextfile (byte-code "\306!\210\307!q\210 \204$\310\n!\311\312!!\313Q\307\f!r q\210\314 \210)\206.\311\312!!\2119\203;\315! \203V\204[\316\211\203[\317!\210\202[\317!\210\320 !\210 \203h\203l \204y\321 \210 q\210\322 \210\323\324!\210)\306\207" [file combine dir buffer-file-name ical-file ical-buffer org-check-agenda-file org-get-agenda-file-buffer file-name-as-directory file-name-sans-extension file-name-nondirectory ".ics" erase-buffer symbol-name t org-start-icalendar-file org-print-icalendar-entries org-finish-icalendar-file save-buffer run-hooks org-after-save-iCalendar-file-hook org-category category standard-output started org-icalendar-combined-name files] 5) org-release-buffers started org-agenda-new-buffers combine org-combined-agenda-icalendar-file files] 5 (#$ . 607726)]) #@208 Hook run after an iCalendar file has been saved. The iCalendar buffer is still current when this hook is run. A good way to use this is to tell a desktop calenndar application to re-read the iCalendar file. (defvar org-after-save-iCalendar-file-hook nil (#$ . 609193)) #@133 Print iCalendar entries for the current Org-mode file to `standard-output'. When COMBINE is non nil, add the category to each line. (defalias 'org-print-icalendar-entries #[(&optional combine) "\306\307Q\310 \311\312 A\313 \"\314\"\315\211\211\211\211\316\315\211\211\211\211\211*+,-./01234\212eb\210\317\315\316#\203\360\320\224+\321\320!0\316,\322 1\323 \3244!\203j\320\225b\210\321\325!/\315,\202\2060/e+5Z]+{\3266\f\"\3267\f\"*\32681\"\204\227\3261\"\203\240\327\330\316\2111$1\32691\"\203\303\327\331\225\203\267\321\3311\"\202\274\321\3251\"\316\2111$1 \203\315\3321P1*\203\330\3331P1\334\335\336\3110\314\"\311/\337,#1\n%!\210\2029:\205veb\210\317;\315\316#\205v\321\340!\211.<\232\203\341\202\342-.\203\370.<\232\203(:\343=\203\370\321\331!1\326=1\"\203P\344\321\3401\"!1\320\325\224O1\325\225\315OP1\202S>\345\346?Z!?\347Z\245\350_T!\334\335\35121\n-&!\210\202\370.\207" [org-ts-regexp org-time-stamp-formats category pri tmp deadlinep "--?-?\$" "\$" org-get-category-table org-ical-ts-to-string format-time-string current-time "DTSTART" nil t re-search-forward 0 match-string org-get-heading org-get-category looking-at 1 string-match replace-match "" 3 "DL: " "S: " princ format "BEGIN:VEVENT\n%s\n%s\nSUMMARY:%s\nCATEGORIES:%s\nEND:VEVENT\n" "DTEND" 2 "COMPLETED" "NEEDS-ACTION" all string-to-char floor float 65 8 "BEGIN:VTODO\n%s\nSUMMARY:%s\nCATEGORIES:%s\nSEQUENCE:1\nPRIORITY:%d\nSTATUS:%s\nEND:VTODO\n" scheduledp pos inc status state ts2 ts hd dts org-category-table re2 org-ds-keyword-length org-deadline-regexp org-scheduled-regexp org-tr-regexp org-bracket-link-regexp org-icalendar-include-todo org-todo-line-regexp org-done-string org-priority-regexp org-default-priority org-lowest-priority] 16 (#$ . 609469)]) #@50 Start an iCalendar file by inserting the header. (defalias 'org-start-icalendar-file #[(name) " \206\305\306 \211A@)\307\310\311 \f$!+\207" [user-full-name name x timezone user "unknown" current-time-zone princ format "BEGIN:VCALENDAR\nVERSION:2.0\nX-WR-CALNAME:%s\nPRODID:-//%s//Emacs with Org-mode//EN\nX-WR-TIMEZONE:%s\nCALSCALE:GREGORIAN\n"] 7 (#$ . 611321)]) #@58 Finish an iCalendar file by inserting the END statement. (defalias 'org-finish-icalendar-file #[nil "\300\301!\207" [princ "END:VCALENDAR\n"] 2 (#$ . 611699)]) #@257 Take a time string S and convert it to iCalendar format. KEYWORD is added in front, to make a complete line like DTSTART.... When INC is non-nil, increase the hour by two (if time string contains a time), or the day by one (if it does not contain a time). (defalias 'org-ical-ts-to-string #[(s keyword &optional inc) "\306\307\"\310\211\211\211\211@\203% A@\203%\311 8\203% \312\202)\306!\f@\fA@\311\f8\313\f8\314\f8\315\f8\203\\\n\203W\311\\\202\\T\316&.\n\203u\317\202v\320\321 \"P-\207" [s time have-time fmt t2 t1 org-parse-time-string nodefault nil 2 t 3 4 5 encode-time ":%Y%m%dT%H%M%S" ";VALUE=DATE:%Y%m%d" format-time-string y m d h mi inc keyword] 8 (#$ . 611866)]) (defalias 'org-export-as-xoxo-insert-into #[(buffer &rest output) "rq\210\302\303 \")\207" [buffer output apply insert] 3]) (put 'org-export-as-xoxo-insert-into 'lisp-indent-function 1) #@85 Export the org buffer as XOXO. The XOXO buffer is named *xoxo-* (defalias 'org-export-as-xoxo #[(&optional buffer) "r\306!q\210eb\210\307\310 \311 \"\312\313\314 \"!\315\316\n!!\317Q\320!\321\322)r\fq\210\323 \210)\324\f\325\"\210\326\327d\330#\203\340\331\321!\211*G+\331\332!\212\333\225b\210\334,\335\336\215*P-+ V\203f\324\f\337\"\210\202\270+ W\203\247 +Z\333././W\203\226)\203\210\324\f\340\"\210\324\f\341\"\210.T\211.\202x*)\203\270\324\f\340\"\210\322)\202\270+ \232\203\270)\203\270\324\f\340\"\210+\330)-\333\234\342\232\203\325\324\f\343-\321\322O\344$\210\202\334\324\f\345-#\210+\2024 \333.0.0W\203)\203\370\324\f\340\"\210\324\f\341\"\210.T\211.\202\350*\346\f!\210\347ed\322#\210\350 \210eb.\207" [buffer opt-plist buffer-file-name filename out last-level get-buffer org-combine-plists org-default-export-plist org-infile-export-plist file-name-as-directory org-export-directory :xoxo file-name-sans-extension file-name-nondirectory ".html" find-file-noselect 1 nil erase-buffer org-export-as-xoxo-insert-into "

\n" "\n" "

" "
" switch-to-buffer-other-window indent-region save-buffer hanging-li hd level str text - #1=#:--cl-dotimes-temp-- #2=#:--cl-dotimes-temp--] 7 (#$ . 612792) (list (current-buffer))]) (byte-code "\302\303\304 #\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\313#\210\302\314\313#\210\302\315\316#\210\302\317\316#\210\302\320\321!\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\320\347!\350#\210\302\320\351!\352#\210\302\320\353!\354#\210\302\320\355!\356#\210 \204\302\357\322#\210\302\360\324#\210\302\361\326#\210\302\362\326#\210\302\363\330#\210\302\364\330#\210\302\365\332#\210\302\366\332#\210\302\367\334#\210\302\370\334#\210\302\371\336#\210\302\372\336#\210\302\373\340#\210\302\374\342#\210\302\375\344#\210\302\376\346#\210\302\377\350#\210\302\201@\352#\210\302\201A\354#\210\302\201B\356#\210\302\201C\201D#\210\302\201E\201F#\210\302\201G\201H#\210\302\201I\201J#\210\302\201K\201L#\210\302\201M\201N#\210\302\201O\201P#\210\302\201Q\201R#\210\302\201S\201T#\210\302\201U\201V#\210\302\201W\201X#\210\302\201Y\201Z#\210\302\201[\201\\#\210\302\201]\201^#\210\302\201_\201`#\210\302\201a\201b#\210\302\201c\201d#\210\302\201e\201d#\210\302\201f\201g#\210\302\201h\201i#\210\302\201j\201k#\210\302\201l\201m#\210\302\201n\201o#\210\302\201p\201q#\210\302\201r\201s#\210\302\201t\201s#\210\302\201u\201v#\210\302\201w\201x#\210\302\201y\201z#\210\302\201{\201|#\210\302\201}\201~#\210\302\201\201\200#\210\302\201\201\201\200#\210\302\201\202\201\203#\210\302\201\204\201\205#\210\302\201\206\201\207#\210\302\201\210\201\211#\210\302\201\212\201\213#\210\302\201\214\201\215#\210\302\201\216\201\217#\210\302\201\220\201\221#\210\302\201\222\201\223#\210\302\201\224\201\225#\210\302\201\226\201\227#\210\302\201\230\201\231#\210\302\201\232\201\233#\210\302\201\234\201\235#\210\302\201\236\201\237#\210\302\201\240\201\241#\210\302\201\242\201\243#\210\302\201\244\201\245#\210\302\201\246\201\247#\210\302\201\250\201\251#\210\302\201\252\201\253#\210\302\201\254\201\255#\210\302\201\256\201\257#\210\302\201\260\201\257#\210\302\201\261\201\262#\210\302\201\263\201\264#\210\302\201\265\201\266#\210\302\201\267\201\270#\210\302\201\271\201\272#\210\302\201\273\201\274#\210\302\201\275\201\276#\210\302\201\277\201\300#\210\302\201\301\201\302#\210\302\201\303\201\304#\210\302\201\305\201\306#\207" [org-mode-map window-system define-key "" make-sparse-keymap " " org-cycle [(tab)] [(control tab)] org-force-cycle-archived [(meta tab)] org-complete "\211" [S-iso-lefttab] org-shifttab [(shift tab)] org-key S-return org-table-copy-down [(meta shift return)] org-insert-todo-heading [(meta return)] org-meta-return [(meta left)] org-metaleft [(meta right)] org-metaright [(meta up)] org-metaup [(meta down)] org-metadown [(meta shift left)] org-shiftmetaleft [(meta shift right)] org-shiftmetaright [(meta shift up)] org-shiftmetaup [(meta shift down)] org-shiftmetadown S-up org-shiftup S-down org-shiftdown S-left org-shiftleft S-right org-shiftright "c" "M" "m" [27 (return)] [27 (left)] "l" [27 (right)] "r" [27 (up)] "u" [27 (down)] "d" "L" "R" "U" "D" [3 24 (up)] [3 24 (down)] [3 24 (left)] [3 24 (right)] "" show-all "" org-reveal "ns" org-narrow-to-subtree "$" org-archive-subtree "" org-advertized-archive-subtree "" org-toggle-archive-tag "b" org-tree-to-indirect-buffer "\n" org-goto "" org-todo "" org-schedule "" org-deadline ";" org-toggle-comment "" org-show-todo-tree "" org-check-deadlines "/" org-occur "\\" org-tags-sparse-tree " " org-insert-heading "\215" "" org-next-link "" org-previous-link "\f" org-insert-link "" org-open-at-point "%" org-mark-ring-push "&" org-mark-ring-goto "" org-time-stamp "." "!" org-time-stamp-inactive "," org-priority "" org-evaluate-time-range ">" org-goto-calendar "<" org-date-from-calendar [(control 44)] org-cycle-agenda-files [(control 39)] "[" org-agenda-file-to-front "]" org-remove-file "-" org-table-insert-hline "^" org-sort "" org-ctrl-c-ctrl-c "#" org-update-checkbox-count " " org-return "?" 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-create-or-convert-from-region "*" org-table-recalculate [(control 35)] org-table-rotate-recalc-marks "~" org-table-create-with-table\.el "" org-table-wrap-region "}" org-table-toggle-coordinate-overlays "{" org-table-toggle-formula-debugger "" org-export ":" org-toggle-fixed-width-section "" org-cut-special "" "\367" org-copy-special "" org-paste-special "" org-toggle-time-stamp-overlays " " org-clock-in "" org-clock-out "" org-clock-cancel "" org-clock-display "" org-clock-report "" org-dblock-update "\f" org-preview-latex-fragment "" org-toggle-checkbox] 4) (defalias 'org-table-p #[nil "\300 \207" [org-at-table-p] 1]) (put 'org-table-p 'byte-optimizer 'byte-compile-inline-expand) #@210 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. (defalias 'org-self-insert-command #[(N) "\304 \203H\203( \305\235\203(\306f\307\232\204\310\311!\203%\306\312 \210)\202(\312 \210\313=\203H\310\311!\203H\306\314\225Sb\210\315\313!\210\314\224b\210\316!)\207\317\316!\207" [org-table-auto-blank-field last-command org-table-may-need-update N org-at-table-p (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c) nil 32 looking-at "[^|\n]* |" org-table-blank-field 1 0 delete-backward-char self-insert-command t] 2 (#$ . 619605) "p"]) #@357 Like `delete-backward-char', insert whitespace at field end in tables. When deleting backwards, in tables this function will insert whitespace in front of the next "|" separator, to keep the table aligned. The table will still be marked for re-alignment if the field did fill the entire column, because, in this case the deletion might narrow the column. (defalias 'org-delete-backward-char #[(N) "\305 \203;\306=\203;\307\310\311 `{\"\203;\312\313!\203;`\312\314! \315!\210\316\317w\210\320c\210\fSb\210\2059\n\211+\207\315!\207" [N org-table-may-need-update c noalign pos org-at-table-p 1 string-match "|" point-at-bol looking-at ".*?|" "[^|\n ]* |" backward-delete-char "^|" nil " "] 4 (#$ . 620321) "p"]) #@353 Like `delete-char', but insert whitespace at field end in tables. When deleting characters, in tables this function will insert whitespace in front of the next "|" separator, to keep the table aligned. The table will still be marked for re-alignment if the field did fill the entire column, because, in this case the deletion might narrow the column. (defalias 'org-delete-char #[(N) "\305 \203?n\204?\306f\307U\204?\310=\203?\311\312!\203;`\311\313! \314\315\316!\310\317O\320P!\210\fb\210\2059\n\211+\207\321!\207\321!\207" [N org-table-may-need-update c noalign pos org-at-table-p nil 124 1 looking-at ".*?|" "[^|\n ]* |" replace-match match-string 0 -1 " |" delete-char] 4 (#$ . 621052) "p"]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\306#\210\300\307\302\306#\210\300\301\310\303#\210\300\304\310\303#\210\300\305\310\303#\210\300\307\310\303#\207" [put org-self-insert-command delete-selection t orgtbl-self-insert-command org-delete-char supersede org-delete-backward-char flyspell-delayed] 4) #@111 In MAP, remap the functions given in COMMANDS. COMMANDS is a list of alternating OLDDEF NEWDEF command names. (defalias 'org-remap #[(map &rest commands) "\305\211\n\2050\n\211A@\n\211A@\306\307!\203&\310\311\312\" #\210\202\313 \f$\210\202*\207" [old new commands map global-map nil fboundp command-remapping define-key vector remap substitute-key-definition] 5 (#$ . 622101)]) (byte-code "\302=\203\303 \304\305\306\307\310\311&\210\312 \313\314#\210\302\207" [org-enable-table-editor org-mode-map optimized org-remap self-insert-command org-self-insert-command delete-char org-delete-char delete-backward-char org-delete-backward-char define-key "|" org-force-self-insert] 8) #@75 Throw an error because Shift-Cursor command was applied in wrong context. (defalias 'org-shiftcursor-error #[nil "\300\301!\207" [error "This command is active in special context like tables, headlines or timestamps"] 2 (#$ . 622806)]) #@198 Global visibility cycling or move to previous table field. Calls `org-cycle' with argument t, or `org-table-previous-field', depending on context. See the individual commands for more information. (defalias 'org-shifttab #[(&optional arg) "\302 \203 \303\304!\207\203\305\306!\210\307\310!!\210\311\211\207\303\312!\207" [arg org-cycle-global-status org-at-table-p call-interactively org-table-previous-field message "Content view to level: " org-content prefix-numeric-value overview org-global-cycle] 3 (#$ . 623049) "P"]) #@171 Promote subtree or delete table column. Calls `org-promote-subtree' or `org-table-delete-column', depending on context. See the individual commands for more information. (defalias 'org-shiftmetaleft #[nil "\300 \203 \301\302!\207\303 \203\301\304!\207\305 \203\301\306!\207\307 \207" [org-at-table-p call-interactively org-table-delete-column org-on-heading-p org-promote-subtree org-at-item-p org-outdent-item org-shiftcursor-error] 2 (#$ . 623587) nil]) #@169 Demote subtree or insert table column. Calls `org-demote-subtree' or `org-table-insert-column', depending on context. See the individual commands for more information. (defalias 'org-shiftmetaright #[nil "\300 \203 \301\302!\207\303 \203\301\304!\207\305 \203\301\306!\207\307 \207" [org-at-table-p call-interactively org-table-insert-column org-on-heading-p org-demote-subtree org-at-item-p org-indent-item org-shiftcursor-error] 2 (#$ . 624055) nil]) #@183 Move subtree up or kill table row. Calls `org-move-subtree-up' or `org-table-kill-row' or `org-move-item-up' depending on context. See the individual commands for more information. (defalias 'org-shiftmetaup #[(&optional arg) "\300 \203 \301\302!\207\303 \203\301\304!\207\305 \203\301\306!\207\307 \207" [org-at-table-p call-interactively org-table-kill-row org-on-heading-p org-move-subtree-up org-at-item-p org-move-item-up org-shiftcursor-error] 2 (#$ . 624520) "P"]) #@194 Move subtree down or insert table row. Calls `org-move-subtree-down' or `org-table-insert-row' or `org-move-item-down', depending on context. See the individual commands for more information. (defalias 'org-shiftmetadown #[(&optional arg) "\300 \203 \301\302!\207\303 \203\301\304!\207\305 \203\301\306!\207\307 \207" [org-at-table-p call-interactively org-table-insert-row org-on-heading-p org-move-subtree-down org-at-item-p org-move-item-down org-shiftcursor-error] 2 (#$ . 625005) "P"]) #@237 Promote heading or move table column to left. Calls `org-do-promote' or `org-table-move-column', depending on context. With no specific context, calls the Emacs default `backward-word'. See the individual commands for more information. (defalias 'org-metaleft #[(&optional arg) "\303 \203\304\305\306 !+\207\307 \204\310 \203\306\311!\207\312 \203'\306\313!\207\306\314!\207" [arg command current-prefix-arg org-at-table-p org-table-move-column left call-interactively org-on-heading-p org-region-active-p org-do-promote org-at-item-p org-outdent-item backward-word] 2 (#$ . 625509) "P"]) #@235 Demote subtree or move table column to right. Calls `org-do-demote' or `org-table-move-column', depending on context. With no specific context, calls the Emacs default `forward-word'. See the individual commands for more information. (defalias 'org-metaright #[(&optional arg) "\300 \203 \301\302!\207\303 \204\304 \203\301\305!\207\306 \203 \301\307!\207\301\310!\207" [org-at-table-p call-interactively org-table-move-column org-on-heading-p org-region-active-p org-do-demote org-at-item-p org-indent-item forward-word] 2 (#$ . 626116) "P"]) #@187 Move subtree up or move table row up. Calls `org-move-subtree-up' or `org-table-move-row' or `org-move-item-up', depending on context. See the individual commands for more information. (defalias 'org-metaup #[(&optional arg) "\303 \203\304\305\306 !+\207\307 \203\306\310!\207\311 \203\"\306\312!\207\313 \207" [arg command current-prefix-arg org-at-table-p org-table-move-row up call-interactively org-on-heading-p org-move-subtree-up org-at-item-p org-move-item-up org-shiftcursor-error] 2 (#$ . 626673) "P"]) #@195 Move subtree down or move table row down. Calls `org-move-subtree-down' or `org-table-move-row' or `org-move-item-down', depending on context. See the individual commands for more information. (defalias 'org-metadown #[(&optional arg) "\300 \203 \301\302!\207\303 \203\301\304!\207\305 \203\301\306!\207\307 \207" [org-at-table-p call-interactively org-table-move-row org-on-heading-p org-move-subtree-down org-at-item-p org-move-item-down org-shiftcursor-error] 2 (#$ . 627202) "P"]) #@189 Increase item in timestamp or increase priority of current headline. Calls `org-timestamp-up' or `org-priority-up', depending on context. See the individual commands for more information. (defalias 'org-shiftup #[(&optional arg) "\300\301!\203\n\302\303!\207\304 \203\302\305!\207\306 \203\302\307!\207\302\310!\210\311\312!\207" [org-at-timestamp-p t call-interactively org-timestamp-up org-on-heading-p org-priority-up org-at-item-p org-previous-item org-beginning-of-item beginning-of-line 1] 2 (#$ . 627700) "P"]) #@193 Decrease item in timestamp or decrease priority of current headline. Calls `org-timestamp-down' or `org-priority-down', depending on context. See the individual commands for more information. (defalias 'org-shiftdown #[(&optional arg) "\300\301!\203\n\302\303!\207\304 \203\302\305!\207\302\306!\207" [org-at-timestamp-p t call-interactively org-timestamp-down org-on-heading-p org-priority-down org-next-item] 2 (#$ . 628230) "P"]) #@69 Next TODO keyword or timestamp one day later, depending on context. (defalias 'org-shiftright #[nil "\303\304!\203\n\305\306!\207\307 \203\310\311\305 !+\207\312 \207" [arg command current-prefix-arg org-at-timestamp-p t call-interactively org-timestamp-up-day org-on-heading-p org-todo right org-shiftcursor-error] 2 (#$ . 628672) nil]) #@75 Previous TODO keyword or timestamp one day earlier, depending on context. (defalias 'org-shiftleft #[nil "\303\304!\203\n\305\306!\207\307 \203\310\311\305 !+\207\312 \207" [arg command current-prefix-arg org-at-timestamp-p t call-interactively org-timestamp-down-day org-on-heading-p org-todo left org-shiftcursor-error] 2 (#$ . 629023) nil]) #@165 Copy region in table or copy current subtree. Calls `org-table-copy' or `org-copy-subtree', depending on context. See the individual commands for more information. (defalias 'org-copy-special #[nil "\300\301 \203\n\302\202\303!\207" [call-interactively org-at-table-p org-table-copy-region org-copy-subtree] 2 (#$ . 629381) nil]) #@162 Cut region in table or cut current subtree. Calls `org-table-copy' or `org-cut-subtree', depending on context. See the individual commands for more information. (defalias 'org-cut-special #[nil "\300\301 \203\n\302\202\303!\207" [call-interactively org-at-table-p org-table-cut-region org-cut-subtree] 2 (#$ . 629721) nil]) #@203 Paste rectangular region into table, or past subtree relative to level. Calls `org-table-paste-rectangle' or `org-paste-subtree', depending on context. See the individual commands for more information. (defalias 'org-paste-special #[(arg) "\301 \203\302 \207\303!\207" [arg org-at-table-p org-table-paste-rectangle org-paste-subtree] 2 (#$ . 630055) "P"]) #@1132 Set tags in headline, or update according to changed information at point. This command does many different things, depending on context: - If the cursor is in a headline, prompt for tags and insert them into the current line, aligned to `org-tags-column'. When called with prefix arg, realign all tags in the current buffer. - If the cursor is in one of the special #+KEYWORD lines, this triggers scanning the buffer for these lines and updating the information. - If the cursor is inside a table, realign the table. This command works even if the automatic table editor has been turned off. - If the cursor is on a #+TBLFM line, re-apply the formulas to the entire table. - If the cursor is inside a table created by the table.el package, activate that table. - If the current buffer is a remember buffer, close note and file it. with a prefix argument, file it without further interaction to the default location. - If the cursor is on a <<>>, update radio targets and corresponding links in this buffer. - If the cursor is on a numbered item in a plain list, renumber the ordered list. (defalias 'org-ctrl-c-ctrl-c #[(&optional arg) "\306 \204\n\204\203\307 \210\310 \210\311 \210\312\313!\202\320\314\304p\"\203/\315\f!\203/\f \202\320\316 \203:\317\320!\202\320\321 \203E\317\322!\202\320\323 \203b\324\325!\210\326\327!\210\330\331\212\332\210`)\"\210\317\333!\202\320\334 \203~\335 \210 \203u\317\336!\210\202x\337 \210\317\340!\202\320\341 \203\211\317\342!\202\320\343 \203\224\317\344!\202\320\212\326\327!\210\345\346!)\203\315\347\327!\350\232\203\307\212\326\327!\210\351\352x\210\334 \205\303\336\306. /\317.!+)\202\320\317\353!\202\320\354\355!)\207" [org-enable-table-editor org-clock-overlays org-occur-highlights org-latex-fragment-image-overlays org-finish-function arg t org-remove-clock-overlays org-remove-occur-highlights org-remove-latex-fragment-image-overlays message "Temporary highlights/overlays removed from current buffer" local-variable-p fboundp org-on-target-p call-interactively org-update-radio-target-regexp org-on-heading-p org-set-tags org-at-table\.el-p require table beginning-of-line 1 re-search-forward "|" 2 table-recognize-table org-at-table-p org-table-maybe-eval-formula org-table-recalculate org-table-maybe-recalculate-line org-table-align org-at-item-checkbox-p org-toggle-checkbox org-at-item-p org-renumber-ordered-list looking-at "#\\+\$[A-Z]+\$" match-string "TBLFM" " \n " nil org-mode-restart error "C-c C-c can do nothing useful at this location." command current-prefix-arg] 3 (#$ . 630422) "P"]) #@98 Restart Org-mode, to scan again for special lines. Also updates the keyword regular expressions. (defalias 'org-mode-restart #[nil "\301\302 \210)\303\304!\207" [org-inhibit-startup t org-mode message "Org-mode restarted to refresh keyword and special line setup"] 2 (#$ . 633064) nil]) #@155 Goto next table row or insert a newline. Calls `org-table-next-row' or `newline', depending on context. See the individual commands for more information. (defalias 'org-return #[nil "\300 \203\f\301 \210\302\303!\207\304 \207" [org-at-table-p org-table-justify-field-maybe call-interactively org-table-next-row newline] 2 (#$ . 633359) nil]) #@178 Insert a new heading or wrap a region in a table. Calls `org-insert-heading' or `org-table-wrap-region', depending on context. See the individual commands for more information. (defalias 'org-meta-return #[(&optional arg) "\300 \203 \301\302!\207\301\303!\207" [org-at-table-p call-interactively org-table-wrap-region org-insert-heading] 2 (#$ . 633709) "P"]) #@10 Tbl menu (defvar org-tbl-menu nil (#$ . 634076)) (easy-menu-do-define 'org-tbl-menu org-mode-map "Tbl menu" '("Tbl" ["Align" org-ctrl-c-ctrl-c (org-at-table-p)] ["Next Field" org-cycle (org-at-table-p)] ["Previous Field" org-shifttab (org-at-table-p)] ["Next Row" org-return (org-at-table-p)] "--" ["Blank Field" org-table-blank-field (org-at-table-p)] ["Edit Field" org-table-edit-field (org-at-table-p)] ["Copy Field from Above" org-table-copy-down (org-at-table-p)] "--" ("Column" ["Move Column Left" org-metaleft (org-at-table-p)] ["Move Column Right" org-metaright (org-at-table-p)] ["Delete Column" org-shiftmetaleft (org-at-table-p)] ["Insert Column" org-shiftmetaright (org-at-table-p)]) ("Row" ["Move Row Up" org-metaup (org-at-table-p)] ["Move Row Down" org-metadown (org-at-table-p)] ["Delete Row" org-shiftmetaup (org-at-table-p)] ["Insert Row" org-shiftmetadown (org-at-table-p)] ["Sort lines in region" org-table-sort-lines (org-at-table-p)] "--" ["Insert Hline" org-table-insert-hline (org-at-table-p)]) ("Rectangle" ["Copy Rectangle" org-copy-special (org-at-table-p)] ["Cut Rectangle" org-cut-special (org-at-table-p)] ["Paste Rectangle" org-paste-special (org-at-table-p)] ["Fill Rectangle" org-table-wrap-region (org-at-table-p)]) "--" ("Calculate" ["Set Column Formula" org-table-eval-formula (org-at-table-p)] ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="] ["Edit Formulas" org-table-edit-formulas (org-at-table-p)] "--" ["Recalculate line" org-table-recalculate (org-at-table-p)] ["Recalculate all" (lambda nil (interactive) (org-table-recalculate '(4))) :active (org-at-table-p) :keys "C-u C-c *"] ["Iterate all" (lambda nil (interactive) (org-table-recalculate '(16))) :active (org-at-table-p) :keys "C-u C-u C-c *"] "--" ["Toggle Recalculate Mark" org-table-rotate-recalc-marks (org-at-table-p)] "--" ["Sum Column/Rectangle" org-table-sum (or (org-at-table-p) (org-region-active-p))] ["Which Column?" org-table-current-column (org-at-table-p)]) ["Debug Formulas" org-table-toggle-formula-debugger :style toggle :selected org-table-formula-debug] ["Show Col/Row Numbers" org-table-toggle-coordinate-overlays :style toggle :selected org-table-overlay-coordinates] "--" ["Create" org-table-create (and (not (org-at-table-p)) org-enable-table-editor)] ["Convert Region" org-table-convert-region (not (org-at-table-p 'any))] ["Import from File" org-table-import (not (org-at-table-p))] ["Export to File" org-table-export (org-at-table-p)] "--" ["Create/Convert from/to table.el" org-table-create-with-table\.el t])) #@10 Org menu (defvar org-org-menu nil (#$ . 636666)) (easy-menu-do-define 'org-org-menu org-mode-map "Org menu" '("Org" ("Show/Hide" ["Cycle Visibility" org-cycle (or (bobp) (outline-on-heading-p))] ["Cycle Global Visibility" org-shifttab (not (org-at-table-p))] ["Sparse Tree" org-occur t] ["Reveal Context" org-reveal t] ["Show All" show-all t] "--" ["Subtree to indirect buffer" org-tree-to-indirect-buffer t]) "--" ["New Heading" org-insert-heading t] ("Navigate Headings" ["Up" outline-up-heading t] ["Next" outline-next-visible-heading t] ["Previous" outline-previous-visible-heading t] ["Next Same Level" outline-forward-same-level t] ["Previous Same Level" outline-backward-same-level t] "--" ["Jump" org-goto t]) ("Edit Structure" ["Move Subtree Up" org-shiftmetaup (not (org-at-table-p))] ["Move Subtree Down" org-shiftmetadown (not (org-at-table-p))] "--" ["Copy Subtree" org-copy-special (not (org-at-table-p))] ["Cut Subtree" org-cut-special (not (org-at-table-p))] ["Paste Subtree" org-paste-special (not (org-at-table-p))] "--" ["Promote Heading" org-metaleft (not (org-at-table-p))] ["Promote Subtree" org-shiftmetaleft (not (org-at-table-p))] ["Demote Heading" org-metaright (not (org-at-table-p))] ["Demote Subtree" org-shiftmetaright (not (org-at-table-p))] "--" ["Sort Region/Children" org-sort (not (org-at-table-p))] "--" ["Convert to odd levels" org-convert-to-odd-levels t] ["Convert to odd/even levels" org-convert-to-oddeven-levels t]) ("Archive" ["Toggle ARCHIVE tag" org-toggle-archive-tag t] ["Sparse trees open ARCHIVE trees" (setq org-sparse-tree-open-archived-trees (not org-sparse-tree-open-archived-trees)) :style toggle :selected org-sparse-tree-open-archived-trees] ["Cycling opens ARCHIVE trees" (setq org-cycle-open-archived-trees (not org-cycle-open-archived-trees)) :style toggle :selected org-cycle-open-archived-trees] ["Agenda includes ARCHIVE trees" (setq org-agenda-skip-archived-trees (not org-agenda-skip-archived-trees)) :style toggle :selected (not org-agenda-skip-archived-trees)] "--" ["Move Subtree to Archive" org-advertized-archive-subtree t]) "--" ("TODO Lists" ["TODO/DONE/-" org-todo t] ("Select keyword" ["Next keyword" org-shiftright (org-on-heading-p)] ["Previous keyword" org-shiftleft (org-on-heading-p)] ["Complete Keyword" org-complete (assq :todo-keyword (org-context))]) ["Show TODO Tree" org-show-todo-tree t] ["Global TODO list" org-todo-list t] "--" ["Set Priority" org-priority t] ["Priority Up" org-shiftup t] ["Priority Down" org-shiftdown t] "--") ("Dates and Scheduling" ["Timestamp" org-time-stamp t] ["Timestamp (inactive)" org-time-stamp-inactive t] ("Change Date" ["1 Day Later" org-shiftright t] ["1 Day Earlier" org-shiftleft t] ["1 ... Later" org-shiftup t] ["1 ... Earlier" org-shiftdown t]) ["Compute Time Range" org-evaluate-time-range t] ["Schedule Item" org-schedule t] ["Deadline" org-deadline t] "--" ["Custom time format" org-toggle-time-stamp-overlays :style radio :selected org-display-custom-times] "--" ["Goto Calendar" org-goto-calendar t] ["Date from Calendar" org-date-from-calendar t]) ("Logging work" ["Clock in" org-clock-in t] ["Clock out" org-clock-out t] ["Clock cancel" org-clock-cancel t] ["Display times" org-clock-display t] ["Create clock table" org-clock-report t] "--" ["Record DONE time" (progn (setq org-log-done (not org-log-done)) (message "Switching to %s will %s record a timestamp" org-done-string (if org-log-done "automatically" "not"))) :style toggle :selected org-log-done]) "--" ["Agenda Command..." org-agenda t] ("File List for Agenda") ("Special views current file" ["TODO Tree" org-show-todo-tree t] ["Check Deadlines" org-check-deadlines t] ["Timeline" org-timeline t] ["Tags Tree" org-tags-sparse-tree t]) "--" ("Hyperlinks" ["Store Link (Global)" org-store-link t] ["Insert Link" org-insert-link t] ["Follow Link" org-open-at-point t] "--" ["Next link" org-next-link t] ["Previous link" org-previous-link t] "--" ["Descriptive Links" (progn (org-add-to-invisibility-spec '(org-link)) (org-restart-font-lock)) :style radio :selected (member '(org-link) buffer-invisibility-spec)] ["Literal Links" (progn (org-remove-from-invisibility-spec '(org-link)) (org-restart-font-lock)) :style radio :selected (not (member '(org-link) buffer-invisibility-spec))]) "--" ["Export/Publish..." org-export t] ("LaTeX" ["Org CDLaTeX mode" org-cdlatex-mode :style toggle :selected org-cdlatex-mode] ["Insert Environment" cdlatex-environment (fboundp 'cdlatex-environment)] ["Insert math symbol" cdlatex-math-symbol (fboundp 'cdlatex-math-symbol)] ["Modify math symbol" org-cdlatex-math-modify (org-inside-LaTeX-fragment-p)] ["Export LaTeX fragments as images" (setq org-export-with-LaTeX-fragments (not org-export-with-LaTeX-fragments)) :style toggle :selected org-export-with-LaTeX-fragments]) "--" ("Documentation" ["Show Version" org-version t] ["Info Documentation" org-info t]) ("Customize" ["Browse Org Group" org-customize t] "--" ["Expand This Menu" org-create-customize-menu (fboundp 'customize-menu-create)]) "--" ["Refresh setup" org-mode-restart t])) (defalias 'org-toggle-log-option #[(type) "<\204\302 >\203\303 \"\211\207\304\300 \"\207" [org-log-done type nil delq add-to-list] 3]) (defalias 'org-check-log-option #[(type) "<\205 >\207" [org-log-done type] 2]) #@99 Read documentation for Org-mode in the info system. With optional NODE, go directly to that node. (defalias 'org-info #[(&optional node) "\301\302!\210\303\304\305\206\f\306\"!\207" [node require info Info-goto-node format "(org)%s" ""] 4 (#$ . 641968) nil]) (defalias 'org-install-agenda-files-menu #[nil "\302 \212\203\211A@q\210 \303=\203\304\211\204 \303=\2054\305\306\307\310\311\312\313\314\315\257\316\317\320\321!\"\"#*\207" [bl major-mode buffer-list org-mode nil easy-menu-change ("Org") "File List for Agenda" append ["Edit File List" (org-edit-agenda-file-list) t] ["Add/Move Current File to Front of List" org-agenda-file-to-front t] ["Remove Current File from List" org-remove-file t] ["Cycle through agenda files" org-cycle-agenda-files t] "--" mapcar org-file-menu-entry org-agenda-files t] 10]) #@51 Call the customize function with org as argument. (defalias 'org-customize #[nil "\300\301!\207" [customize-browse org] 2 (#$ . 642801) nil]) #@73 Create a full customization menu for Org-mode, insert it into the menu. (defalias 'org-create-customize-menu #[nil "\300\301!\203\302\303\304\305\306\301\307!\310BBB#\210\311\312!\207\313\314!\207" [fboundp customize-menu-create easy-menu-change ("Org") "Customize" ["Browse Org group" org-customize t] "--" org (["Set" Custom-set t] ["Save" Custom-save t] ["Reset to Current" Custom-reset-current t] ["Reset to Saved" Custom-reset-saved t] ["Reset to Standard Settings" Custom-reset-standard t]) message "\"Org\"-menu now contains full customization menu" error "Cannot expand menu (outdated version of cus-edit.el)"] 7 (#$ . 642949) nil]) #@1263 Return a list of contexts of the current cursor position. If several contexts apply, all are returned. Each context entry is a list with a symbol naming the context, and two positions indicating start and end of the context. Possible contexts are: :headline anywhere in a headline :headline-stars on the leading stars in a headline :todo-keyword on a TODO keyword (including DONE) in a headline :tags on the TAGS in a headline :priority on the priority cookie in a headline :item on the first line of a plain list item :item-bullet on the bullet/number of a plain list item :checkbox on the checkbox in a plain list item :table in an org-mode table :table-special on a special filed in a table :table-table in a table.el table :link on a hyperlink :keyword on a keyword: SCHEDULED, DEADLINE, CLOSE,COMMENT, QUOTE. :target on a <> :radio-target on a <<>> :latex-fragment on a LaTeX fragment :latex-preview on a LaTeX fragment with overlayed preview image This function expects the position to be visible because it uses font-lock faces as a help to recognize the following contexts: :table-special, :link, and :keyword. (defalias 'org-context #[nil "\306`\307\"\211<\203\202C`\310\211\311 \203f\312\313 \314 EB\315\316!\210\317 !\203G\320\n\316\321#B\320\n\322\323#B\320\n\324\325#B\nb\210\326\310x\210m\204U\327u\210\317\330!\203\277\320\n\331\332#B\202\277\333 \203\220\320\n\322\334#B\335\313 \212\336 \210`)EB\337 \203\277\320\n\331\340#B\202\277\341 \203\264\342\343 \344 EB\345 >\203\277\346\347\n\307\"\350\n\307\"EB\202\277\341\351!\203\277\352CB\nb\210\353 \203\322\320\n\331\354#B\202Y\355 >\203\350\356\347\n\307\"\350\n\307\"EB\202Y\357 >\203\376\360\347\n\307\"\350\n\307\"EB\202Y\361 \203%\320\n\331\362#B\331\224Sb\210\317=!\203\320\n\331\363#B\nb\210\202Y\364\310\365\366\367`!\"\"@\211\203M\370\371\f!\372\f!EB\373\371\f!\372\f!EB\202Y\374 \203Y\370``EB\364\310\"\237\211-\207" [f faces p clist o org-todo-line-tags-regexp get-text-property face nil org-on-heading-p :headline point-at-bol point-at-eol beginning-of-line 1 looking-at org-point-in-group :headline-stars 2 :todo-keyword 4 :tags "^[\n " -1 "\\[#[A-Z]\\]" 0 :priority org-at-item-p :item-bullet :item org-end-of-item org-at-item-checkbox-p :checkbox org-at-table-p :table org-table-begin org-table-end org-formula :table-special previous-single-property-change next-single-property-change any :table-table org-at-timestamp-p :timestamp org-link :link org-special-keyword :keyword org-on-target-p :target :radio-target delq mapcar #[(x) " >\205\207" [x org-latex-fragment-image-overlays] 2] org-overlays-at :latex-fragment org-overlay-start org-overlay-end :latex-preview org-inside-LaTeX-fragment-p org-radio-target-regexp] 7 (#$ . 643600)]) #@298 Check if point is inside a match of regexp. Normally only the current line is checked, but you can include NLINES extra lines both before and after point into the search. If VISUALLY is set, require that the cursor is not after the match but really on, so that the block visually is on the match. (defalias 'org-in-regexp #[(re &optional nlines visually) "\300\301\215\207" [exit (byte-code "`\306\206\307T! \203\310\202\307\212\311\310\206\307Z!\210\312 \313#\205D\307\224\fX\203 \n\307\225\\\fY\203 \314\315\307\224\307\225B\"\210\202 ,\207" [nlines visually inc eol pos re point-at-eol 0 1 beginning-of-line re-search-forward t throw exit] 4)] 2 (#$ . 646555)]) #@197 Check if POINT is in match-group GROUP. If CONTEXT is non-nil, return a list with CONTEXT and the boundaries of the match. If the match group does ot exist or point is not inside it, return nil. (defalias 'org-point-in-group #[(point group &optional context) "\224\205 \224Y\205 \225X\205\n\203\n\224\225E\207\303\207" [group point context t] 3 (#$ . 647245)]) #@253 Create a single property list from all plists in PLISTS. The process starts by copying the first list, and then setting properties from the other lists. Settings in the last list are the most significant ones and overrule settings in the other lists. (defalias 'org-combine-plists #[(&rest plists) "\305\211A@!\306\211\211\2031\211A@ \203 \211A@ \211A@\307\f\n#\202\f,\207" [plists ls v p rtn copy-sequence nil plist-put] 4 (#$ . 647627)]) #@76 Move the current line down. With prefix argument, move it past ARG lines. (defalias 'org-move-line-down #[(arg) "i\305\211\211\306\307!\210`\306\310!\210`\306\fT!\210\311 `\305\223\312\n \"c\210b\210\313!,\207" [pos end beg col arg nil beginning-of-line 1 2 make-marker delete-and-extract-region move-to-column] 4 (#$ . 648095) "p"]) #@74 Move the current line up. With prefix argument, move it past ARG lines. (defalias 'org-move-line-up #[(arg) "i\305\211\211\306\307!\210`\306\310!\210`\306\f[!\210\311 `\305\223\312\n \"c\210b\210\313!,\207" [pos end beg col arg nil beginning-of-line 1 2 make-marker delete-and-extract-region move-to-column] 4 (#$ . 648445) "p"]) #@347 Replace %-escapes in STRING with values in TABLE. TABLE is an association list with keys line "%a" and string values. The sequences in STRING may contain normal field width and padding information, for example "%-5s". Replacements happen in the sequence given by TABLE, so values can contain further %-escapes if they are define later in TABLE. (defalias 'org-replace-escapes #[(string table) "\306\211\211\211\f\211A@\211\2039\307\n@\310\306OP\311 \"\203\312\313\314 \"\314\315O\316P\nA\"\317\320\211 $\202 ,\207" [rpl re e case-fold-search table string nil "%-?[0-9.]*" 1 string-match format match-string 0 -1 "s" replace-match t] 5 (#$ . 648792)]) #@68 Return a section of LIST, from START to END. Counting starts at 1. (defalias 'org-sublist #[(list start end) "\305S\233\203! \fX\203!\211A@\nB T\202 \n\237*\207" [start c rtn list end nil] 2 (#$ . 649466)]) #@56 Is point inside a match of REGEXP in the current line? (defalias 'org-at-regexp-p #[(regexp) "\300\301\215\207" [exit (byte-code "\212`\303 \304\305!\210\306\n\307#\203(\310\224 X\203\n\310\225 Y\203\n\311\312\307\"\210\202\n+\313\207" [end pos regexp point-at-eol beginning-of-line 1 re-search-forward t 0 throw exit nil] 4)] 2 (#$ . 649693)]) #@89 Like `find-buffer-visiting' but alway return the base buffer and not an indirect buffer (defalias 'org-find-base-buffer-visiting #[(file) "\302!\303 !\206 )\207" [file buf find-buffer-visiting buffer-base-buffer] 2 (#$ . 650051)]) (defalias 'org-set-autofill-regexps #[nil "\305\306\307 !L\210*\310\311\307 !L\210*\312\313\307 !L\210*\314\315\316\n\204-\f\205B\317\2036\320\2027\321\f\203?\322\202@\321\323RR\307 !L\210*\324\325\307 !L\210*\326\327\307 !L\210*\330\331\307 !L*\207" [value var org-keyword-time-regexp org-enable-table-editor org-enable-fixed-width-editor comment-start-skip "^#+[ ]*" make-variable-buffer-local paragraph-separate "\f\\|\\*\\|[ ]*$\\|[ ]*[:|]" paragraph-start "\f\\|[ ]*$\\|\$[*\f]+\$\\|[ ]*\$[-+*][ ]+\\|[0-9]+[.)][ ]+\$\\|[ ]*[:|]" auto-fill-inhibit-regexp "\\*\\|#\\+" "\\|[ ]*" "\\|[ ]*[" "|" "" ":" "]" fill-paragraph-function org-fill-paragraph adaptive-fill-regexp "" adaptive-fill-function org-adaptive-fill-function] 8 nil nil]) #@63 Re-align a table, pass through to fill-paragraph if no table. (defalias 'org-fill-paragraph #[(&optional justify) "\302 \303 \304 f\305\232\203\306\202&\203\306\202& \203%\307 \210\306\202&\310*\207" [table\.el-p table-p org-at-table-p org-at-table\.el-p point-at-bol 42 t org-table-align nil] 2 (#$ . 651075)]) #@133 Return a fill prefix for org-mode files. In particular, this makes sure hanging paragraphs for hand-formatted lists work correctly. (defalias 'org-adaptive-fill-function #[nil "\300\301!\203\n\302\303!\207\300\304!\203\305\303\225\303\224Z\306\"\207\307\207" [looking-at "#[ ]+" match-string 0 " *\$[-*+] \\|[0-9]+[.)] \$?" make-string 32 nil] 3 (#$ . 651405)]) #@50 Return regexp matching the file names of images. (defalias 'org-image-file-name-regexp #[nil "\301\302!\203 \302 \207\303\304\305\306\307\"\244\310\"\311Q)\207" [image-file-name-extensions fboundp image-file-name-regexp ("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm") "\\." regexp-opt mapcar upcase t "\\'"] 5 (#$ . 651779)]) #@37 Return non-nil if FILE is an image. (defalias 'org-file-image-p #[(file) "\302 \303\216\304\305 \"*\207" [save-match-data-internal file match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match org-image-file-name-regexp] 3 (#$ . 652137)]) #@151 Go to the beginning of the current line. If that is invisible, continue to a visible line beginning. This makes the function of C-a more intuitive. (defalias 'org-beginning-of-line #[nil "\300\301!\210o?\205'\302u\210\303 \203%o?\205'\303 \205'\302u\210\300\301!\210\202\301u\207" [beginning-of-line 1 -1 org-invisible-p] 2 (#$ . 652438) nil]) (define-key org-mode-map "" 'org-beginning-of-line) #@57 Check if point is at a character currently not visible. (defalias 'org-invisible-p #[nil "\301\302!\203\303\304\206`\305\")\207\304`\305\"\207" [pos fboundp outline-invisible-p nil get-char-property invisible] 3 (#$ . 652849)]) #@57 Check if point is at a character currently not visible. (defalias 'org-invisible-p2 #[nil "\212l\203\fo\204\f\301u\210\302\303!\203 \304\305\206`\306\")\202$\305`\306\")\207" [pos -1 fboundp outline-invisible-p nil get-char-property invisible] 3 (#$ . 653089)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias org-back-to-heading outline-back-to-heading org-on-heading-p outline-on-heading-p] 3) (defalias 'org-on-target-p #[nil "\302!\206 \302 !\207" [org-radio-target-regexp org-target-regexp org-in-regexp] 2]) #@170 Move to the heading line of which the present line is a subheading. This function considers both visible and invisible heading lines. With argument, move up ARG levels. (defalias 'org-up-heading-all #[(arg) "\301\302!\203\n\302!\207\303\304\"\207" [arg fboundp outline-up-heading-all outline-up-heading t] 3 (#$ . 653632)]) #@198 Goto the next sibling, even if it is invisible. When PREVIOUS is set, go to the previous sibling instead. Returns t when a sibling was found. When none is found, return nil and don't move point. (defalias 'org-goto-sibling #[(&optional previous) "\203\306\202 \307`\310 P\311\211\312\313!\210 \314\315\215-\207" [previous outline-regexp l level re pos re-search-backward re-search-forward "^" nil org-back-to-heading t exit (byte-code "\204\306u\210 \n\307\310#\2033 \211 W\203!\fb\210\311\312\307\"\210\f U\203\313\224b\210\311\312\310\"\210\202\fb\210\307\207" [previous fun re outline-level l level 1 nil t throw exit 0 pos] 5) fun outline-level] 5 (#$ . 653966)]) #@44 Show all siblings of the current headline. (defalias 'org-show-siblings #[nil "\212\300 \203 \301\302!\210\202)\212\300\303!\205\301\302!\210\202)\207" [org-goto-sibling org-flag-heading nil previous] 2 (#$ . 654668)]) #@49 Show an entry where even the heading is hidden. (defalias 'org-show-hidden-entry #[nil "\212\300 )\207" [org-show-entry] 1 (#$ . 654900)]) #@109 Flag the current heading. FLAG non-nil means make invisible. When ENTRY is non-nil, show the entire entry. (defalias 'org-flag-heading #[(flag &optional entry) "\212\302\303!\210\203\304 \210\212\305 \205\306\307!)\202&\310\311`S]\212\312 \210`) #)\207" [entry flag org-back-to-heading t org-show-entry outline-next-heading org-flag-heading nil outline-flag-region 1 outline-end-of-heading] 4 (#$ . 655046)]) (defalias 'org-end-of-subtree #[(&optional invisible-OK) "\304!\210\305 m\204 \204 \nV\203 \306\307 \210\202 h\310>\2032\311u\210h\312>\2032\311u\210*`\207" [invisible-OK outline-level level first org-back-to-heading t nil outline-next-heading (10 13) -1 (10 13)] 2]) #@54 Show everything after this heading at deeper levels. (defalias 'org-show-subtree #[nil "\300`\212\301 \210\302 \210`)\303#\207" [outline-flag-region outline-end-of-subtree outline-next-heading nil] 4 (#$ . 655750)]) #@100 Show the body directly following this heading. Show the heading too, if it is currently invisible. (defalias 'org-show-entry #[nil "\212\301\302!\210\303\304`S]\212\305\306\307Q\310\311#\210\304\224\206d)\310#)\207" [outline-regexp org-back-to-heading t outline-flag-region 1 re-search-forward "[ \n]\$" "\$" nil move] 6 (#$ . 655973) nil]) #@46 Make a regular expression for keyword lines. (defalias 'org-make-options-regexp #[(kwds) "\301\302\303\304\305#\306\307\260\207" [kwds "^" "#?[ ]*\\+\$" mapconcat regexp-quote "\\|" "\$:[ ]*" "\$.+\$"] 6 (#$ . 656325)]) #@37 Reveal context after isearch exits. (defalias 'org-isearch-end #[nil "\205\302\301!\205 ?\205\303\304\305\306\307$\207" [isearch-success isearch-mode-end-hook-quit boundp org-add-hook post-command-hook org-isearch-post-command append local] 5 (#$ . 656559)]) #@42 Remove self from hook, and show context. (defalias 'org-isearch-post-command #[nil "\300\301\302\303#\210\304\305!\207" [remove-hook post-command-hook org-isearch-post-command local org-show-context isearch] 4 (#$ . 656831)]) (eval-after-load "bookmark" '(if (boundp 'bookmark-after-jump-hook) (add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide) (defadvice bookmark-jump (after org-make-visible activate) "Make the position visible." (org-bookmark-jump-unhide)))) #@61 Unhide the current position, to show the bookmark location. (defalias 'org-bookmark-jump-unhide #[nil "\301=\205\302 \204\212e`S]b\210\302 )\205\303\304!\207" [major-mode org-mode org-invisible-p org-show-context bookmark-jump] 2 (#$ . 657312)]) (byte-code "\300\301\302\"\210\303\304!\210\305\306!\207" [eval-after-load "session" (add-to-list 'session-globals-exclude 'org-mark-ring) provide org run-hooks org-load-hook] 3)