Current File : //usr/local/share/emacs/27.2/lisp/org/org-colview.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\312\320\321\322\323\313\324& \207" [require cl-lib org custom-declare-variable org-columns-modify-value-for-display-function funcall function #[0 "\300\207" [nil] 1] "Function that modifies values for display in column view.\nFor example, it can be used to cut out a certain part from a time stamp.\nThe function must take 2 arguments:\n\ncolumn-title The title of the column (*not* the property name)\nvalue The value that should be modified.\n\nThe function should return the value that should be displayed,\nor nil if the normal value should be used." :group org-properties :type (choice (const nil) (function)) org-columns-summary-types #[0 "\300\207" [nil] 1] "Alist between operators and summarize functions.\n\nEach association follows the pattern (LABEL . SUMMARIZE),\nor (LABEL SUMMARIZE COLLECT) where\n\n LABEL is a string used in #+COLUMNS definition describing the\n summary type. It can contain any character but \"}\". It is\n case-sensitive.\n\n SUMMARIZE is a function called with two arguments. The first\n argument is a non-empty list of values, as non-empty strings.\n The second one is a format string or nil. It has to return\n a string summarizing the list of values.\n\n COLLECT is a function called with one argument, a property\n name. It is called in the context of a headline and must\n return the collected property, or the empty string. You can\n use this to only collect a property if a related conditional\n properties is set, e.g., to return VACATION_DAYS only if\n CONFIRMED is true.\n\nNote that the return value can become one value for an higher\norder summary, so the function is expected to handle its own\noutput.\n\nTypes defined in this variable take precedence over those defined\nin `org-columns-summary-types-default', which see." :version "26.1" :package-version (Org . "9.0") (alist :key-type (string :tag " Label") :value-type (choice (function :tag "Summarize") (list :tag "Collect and summarize" (function :tag "Summarize") (function :tag "Collect"))))] 12)
#@44 Holds the list of current column overlays.
(defvar org-columns-overlays nil (#$ . 2571))
(make-variable-buffer-local 'org-columns-overlays)
#@59 Local variable, holds the currently active column format.
(defvar org-columns-current-fmt nil (#$ . 2717))
(make-variable-buffer-local 'org-columns-current-fmt)
#@103 Local variable, holds the currently active column format.
This is the compiled version of the format.
(defvar org-columns-current-fmt-compiled nil (#$ . 2885))
(make-variable-buffer-local 'org-columns-current-fmt-compiled)
#@54 Currently active maximum column widths, as a vector.
(defvar org-columns-current-maxwidths nil (#$ . 3114))
(make-variable-buffer-local 'org-columns-current-maxwidths)
#@73 Points to the position where last a column creation command was called.
(defvar org-columns-begin-marker nil (#$ . 3288))
(make-variable-buffer-local 'org-columns-begin-marker)
#@61 Points to the position where current columns region starts.
(defvar org-columns-top-level-marker nil (#$ . 3471))
(make-variable-buffer-local 'org-columns-top-level-marker)
#@64 Number of seconds since the epoch, as a floating point number.
(defvar org-columns--time 0.0 (#$ . 3650))
#@37 The keymap valid in column display.
(defvar org-columns-map (make-sparse-keymap) (#$ . 3762))
#@84 Map operators to summarize functions.
See `org-columns-summary-types' for details.
(defconst org-columns-summary-types-default '(("+" . org-columns--summary-sum) ("$" . org-columns--summary-currencies) ("X" . org-columns--summary-checkbox) ("X/" . org-columns--summary-checkbox-count) ("X%" . org-columns--summary-checkbox-percent) ("max" . org-columns--summary-max) ("mean" . org-columns--summary-mean) ("min" . org-columns--summary-min) (":" . org-columns--summary-sum-times) (":max" . org-columns--summary-max-time) (":mean" . org-columns--summary-mean-time) (":min" . org-columns--summary-min-time) ("@max" . org-columns--summary-max-age) ("@mean" . org-columns--summary-mean-age) ("@min" . org-columns--summary-min-age) ("est+" . org-columns--summary-estimate)) (#$ . 3862))
#@48 Switch to contents view while in columns view.
(defalias 'org-columns-content #[0 "\300 \210\301 \207" [org-overview org-content] 1 (#$ . 4648) nil])
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\323#\210\301\325\326#\210\301\327\326#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\345#\210\301\347\350#\210\301\351\350#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\365#\210\366\367\211W\203\311 \211\301\370!\371\372\373\345\372EF#\266\211T\262\202\252 \210\207" [org-columns-map org-defkey "c" org-columns-content "o" org-overview "e" org-columns-edit-value "" org-columns-todo "" org-columns-toggle-or-columns-quit "" org-columns-open-link "v" org-columns-show-value "q" org-columns-quit "r" org-columns-redo "g" [left] backward-char "\342" "a" org-columns-edit-allowed "s" org-columns-edit-attributes "\346" #[0 "`Tb\207" #1=[] 1 nil nil] [right] #[0 "`Tb\207" #1# 1 nil nil] [down] #[0 "i\301\302!\210\303 \203 m\204 \301\302!\210\202 \304!\210\305=\205! \306 \207" [major-mode beginning-of-line 2 org-invisible-p2 move-to-column org-agenda-mode org-agenda-do-context-action] 3 nil nil] [up] #[0 "i\301\302!\210\303 \203 o\204 \301\302!\210\202 \304!\210\305=\205! \306 \207" [major-mode beginning-of-line 0 org-invisible-p2 move-to-column org-agenda-mode org-agenda-do-context-action] 3 nil nil] [(shift right)] org-columns-next-allowed-value "n" [(shift left)] org-columns-previous-allowed-value "p" "<" org-columns-narrow ">" org-columns-widen [(meta right)] org-columns-move-right [(meta left)] org-columns-move-left [(shift meta right)] org-columns-new [(shift meta left)] org-columns-delete 10 0 number-to-string lambda nil (interactive)] 12)
#@17 Org Column Menu
(defvar org-columns-menu nil (#$ . 6623))
(easy-menu-do-define 'org-columns-menu org-columns-map "Org Column Menu" '("Column" ["Edit property" org-columns-edit-value t] ["Next allowed value" org-columns-next-allowed-value t] ["Previous allowed value" org-columns-previous-allowed-value t] ["Show full value" org-columns-show-value t] ["Edit allowed values" org-columns-edit-allowed t] "--" ["Edit column attributes" org-columns-edit-attributes t] ["Increase column width" org-columns-widen t] ["Decrease column width" org-columns-narrow t] "--" ["Move column right" org-columns-move-right t] ["Move column left" org-columns-move-left t] ["Add column" org-columns-new t] ["Delete column" org-columns-delete t] "--" ["CONTENTS" org-columns-content t] ["OVERVIEW" org-overview t] ["Refresh columns display" org-columns-redo t] "--" ["Open link" org-columns-open-link t] "--" ["Quit" org-columns-quit t]))
#@327 Return displayed value for specification SPEC in current entry.
SPEC is a column format specification as stored in
`org-columns-current-fmt-compiled'. VALUE is the real value to
display, as a string.
When NO-STAR is non-nil, do not add asterisks before displayed
value for ITEM property.
(fn SPEC VALUE &optional NO-STAR)
(defalias 'org-columns--displayed-value #[770 "\303!\203 A@\"\206\303 :\203\277 @\211\304\267\202C ?\2051 \305\306 S \203- \307\202. \310\"\311P\211\312!P\262\202\276 \313\n\314#\202\276 A\211:\203\267 \211A\211:\203\255 \211A\211:\203\243 \211A\211:\203\231 \211@\211\204z A\211\204p \202u \315\316 \"\262\202\224 A\211\204\215 \317\320\f!\"\262\202\222 \315\316 \"\262\262\202\236 \315\316 \"\262\202\250 \315\316\"\262\202\262 \315\316\"\262\202\274 \315\316\"\262\207\315\316\"\207" [org-columns-modify-value-for-display-function org-hide-leading-stars org-ts-regexp functionp #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("ITEM" 28 "TIMESTAMP" 59 "SCHEDULED" 59 "DEADLINE" 59)) make-string org-current-level 32 42 "* " org-link-display-format replace-regexp-in-string "[\\1]" error "Invalid column specification format: %S" format string-to-number] 15 (#$ . 7548)])
#@350 Collect values for columns on the current line.
Return a list of triplets (SPEC VALUE DISPLAYED) suitable for
`org-columns--display-here'.
This function assumes `org-columns-current-fmt-compiled' is
initialized is set in the current buffer. However, it is
possible to override it with optional argument COMPILED-FMT.
(fn &optional COMPILED-FMT)
(defalias 'org-columns--collect-values #[256 "\301`\302\"\303\304\305\306\307\310\"\311\"\312\313%\206 \"\207" [org-columns-current-fmt-compiled get-text-property org-summaries mapcar make-byte-code 257 "\211:\205L \211@\211\304\301\"A\206= \305`\306\307$\206= \300\203< \n\203< \211 \226\230\203< \310`\311\"\203< \312\313\310`\311\"!\314\315#\206= \316\317\300#E\262\262\262\207" vconcat vector [org-agenda-columns-add-appointments-to-effort-sum org-effort-property assoc org-entry-get selective t get-text-property duration propertize org-duration-from-minutes face org-warning "" org-columns--displayed-value] 10 "\n\n(fn SPEC)"] 10 (#$ . 8832)])
#@165 Compute the maximum column widths from the format and CACHE.
This function sets `org-columns-current-maxwidths' as a vector of
integers greater than 0.
(fn CACHE)
(defalias 'org-columns--set-widths #[257 "\302\303\304\305\306\307\310\303!\311\"\312\313%\"\"\211\207" [org-columns-current-fmt-compiled org-columns-current-maxwidths apply vector mapcar make-byte-code 257 "\301:\205: A\211:\2058 \211@A\211:\2030 \211@\302!\203% \211\211\262\202+ \300#\262\2026 \300#\266\202\262\207" vconcat [#[771 "\211G\211\203 \211@\300\301A\"8\211G]\262\210A\266\202\202 \262\207" [2 assoc] 10 "\n\n(fn CACHE SPEC NAME)"] wholenump] 10 "\n\n(fn SPEC)"] 10 (#$ . 9856)])
#@89 Create a new column overlay and add it to the list.
(fn BEG END &optional STRING FACE)
(defalias 'org-columns--new-overlay #[1026 "\301\"\302\303\206\f \304#\210\305#\210\211B\211\207" [org-columns-overlays make-overlay overlay-put face secondary-selection org-overlay-display] 9 (#$ . 10550)])
#@71 Return summary function associated to string OPERATOR.
(fn OPERATOR)
(defalias 'org-columns--summarize #[257 "\302\"\206 \302 \"\211\204 \303\304\"\202f \211:\203b \211A\305!\203* \211\211\262\202] \211:\203Y \211@A\211:\203O \211A\211\204E \211\262\202J \303\306\"\262\202T \303\306\"\266\202\202] \303\306\"\262\202f \303\306\"\207" [org-columns-summary-types org-columns-summary-types-default assoc error "Unknown %S operator" functionp "Invalid definition for operator %S"] 9 (#$ . 10861)])
#@132 Return collect function associated to string OPERATOR.
Return nil if no collect function is associated to OPERATOR.
(fn OPERATOR)
(defalias 'org-columns--collect #[257 "\302\"\206 \302 \"\211\204 \303\304\"\202b \211:\203^ \211A\305!\203' \306\202Y \211:\203U \211A\211:\203L \211@A\211\204B \211\262\202G \303\307\"\266\202\202P \303\307\"\262\202Y \303\307\"\262\202b \303\307\"\207" [org-columns-summary-types org-columns-summary-types-default assoc error "Unknown %S operator" functionp nil "Invalid definition for operator %S"] 9 (#$ . 11383)])
#@322 Return decorated VALUE string for columns overlay display.
FMT is a format string. WIDTH is the width of the column, as an
integer. PROPERTY is the property being displayed, as a string.
ORIGINAL is the real string, i.e., before it is modified by
`org-columns--displayed-value'.
(fn VALUE FMT WIDTH PROPERTY ORIGINAL)
(defalias 'org-columns--overlay-text #[1285 "\301\302\"\303\267\202< \304\305\306!#\202= \204% \304\305\307#\202= \310\311\312\211\313&\202= \304\305\314!#\202= \211\262\"\207" [org-tags-special-faces-re format org-columns-add-ellipses #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("PRIORITY" 14 "TAGS" 25 "TODO" 49)) propertize face org-get-priority-face org-tag replace-regexp-in-string #[257 "\300\301\302!#\207" [propertize face org-get-tag-face] 6 "\n\n(fn M)"] nil 1 org-get-todo-face] 15 (#$ . 11958)])
#@109 Store the relative remapping of column header-line.
This is needed to later remove this relative remapping.
(defvar org-columns-header-line-remap nil (#$ . 12859))
#@222 Overlay the current line with column display.
COLUMNS is an alist (SPEC VALUE DISPLAYED). Optional argument
DATELINE is non-nil when the face used should be
`org-agenda-column-dateline'.
(fn COLUMNS &optional DATELINE)
(defalias 'org-columns--display-here #[513 "\3061 \307\310!0\202 \210\202 \203 \311\312\313\"\212\314 \210\315\316!\205$ \317\320!\211\206: \321=\2039 \322\323\324 \"\262\206: \325\326\327\326\"D\330\327\325\330\"D\331F\332F\nG\333 \334 ZV\203m \212\335\210\336\337Z\340\"c\210*\266\341GS \211\203\211@\211:\203 \211@A\211:\203\211@A\211:\203\211@A\211\204\211@\fH\342U\203\262 \343\202\263 \344\211#\345``T\346 \f%\203\317 \202\321 $\347\350
#\210\347\351#\210\347\352#\210\347\353 #\210\347\354#\210\347\355\356#\210\347\357\356#\210\335u\266\266\266\266T\262A\266\202\202v \266\345`\333 \"\347\360\336#\210\347\350
#\210\347\355\356#\210\347\357\356#\266\361\333 S\334\320!\"\347\350
#\210\211<B<\210\362 \336\211 =\336 >\363\341\364\365\366!\367\"\320$\216\336\370\333\341!\334\320!\371\372\373!$-\262\266\206)\207" [org-columns-header-line-remap major-mode org-columns-current-fmt-compiled inhibit-read-only org-columns-current-maxwidths org-columns-map (error) require face-remap face-remap-add-relative header-line (:inherit default) beginning-of-line looking-at "\\(\\**\\)\\(\\* \\)" org-get-level-face 2 org-agenda-mode face get-text-property point-at-bol default :foreground face-attribute :family org-column org-agenda-column-dateline line-end-position line-beginning-position nil t make-string 32 0 format "%%-%d.%ds |" "%%-%d.%ds | " org-columns--new-overlay org-columns--overlay-text overlay-put keymap org-columns-key org-columns-value org-columns-value-modified org-columns-format line-prefix "" wrap-prefix invisible make-overlay buffer-modified-p make-byte-code "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] put-text-property read-only substitute-command-keys "Type \\<org-columns-map>`\\[org-columns-edit-value]' to edit property" org-columns-overlays buffer-undo-list inhibit-modification-hooks] 34 (#$ . 13030)])
#@74 Truncate STRING with WIDTH characters, with ellipses.
(fn STRING WIDTH)
(defalias 'org-columns-add-ellipses #[514 "GX\203 \207\211GX\203 \301\302#\207\301\302GZ#P\207" [org-columns-ellipses substring 0] 7 (#$ . 15215)])
#@71 The full header line format, will be shifted by horizontal scrolling.
(defvar org-columns-full-header-line-format nil (#$ . 15454))
#@58 The header line format before column view was turned on.
(defvar org-previous-header-line-format nil (#$ . 15592))
#@56 Inhibit recomputing of columns on column view startup.
(defvar org-columns-inhibit-recalculation nil (#$ . 15713))
#@162 Remember the state of `flyspell-mode' before column view.
Flyspell-mode can cause problems in columns view, so it is turned off
for the duration of the command.
(defvar org-columns-flyspell-was-active nil (#$ . 15835))
(defvar org-columns-previous-hscroll 0)
#@67 Overlay the newline before the current line with the table title.
(defalias 'org-columns--display-here-title #[0 "\306\307\310!\311\211\203D \211@\211:\2039 \211@A\211:\2037 \211@\211 H\312\313\211# \312\2061 \"P\262\f\266\266T\262A\266\202\202 \210\314\303!\210\n\315\316\317\320\321\322E$\315\323\311\324#\317\325\326$P\324\327\330\331\317\332$\207" [org-columns-current-fmt-compiled org-columns-current-maxwidths header-line-format org-previous-header-line-format org-columns-full-header-line-format org-columns-previous-hscroll "" org-line-number-display-width columns 0 format "%%-%d.%ds | " make-local-variable org-add-props " " nil display space :align-to substring -1 face org-column-title add-hook post-command-hook org-columns-hscroll-title local] 16 (#$ . 16100) nil])
#@71 Set the `header-line-format' so that it scrolls along with the table.
(defalias 'org-columns-hscroll-title #[0 "\303\304!\210\305 U?\205 \306 \307\310#\306 \211GT^\"P\211\311 \207" [org-columns-previous-hscroll org-columns-full-header-line-format header-line-format sit-for 0.0001 window-hscroll substring 0 1 force-mode-line-update] 6 (#$ . 16909)])
#@56 Remember the value of `truncate-lines' across colview.
(defvar org-colview-initial-truncate-line-value nil (#$ . 17272))
#@46 Remove all currently active column overlays.
(defalias 'org-columns-remove-overlays #[0 "\306\307!\203 \203 \307!\210 \205q \310\302!\203$ \n\311\302!\210\312\313\314\315#\210\f\316\211\223\210\317
!\2034
\316\211\223\210\320 \321\211 !\321 \"\322\323\324\325\326!\327\"\330$\216\331\332 \"\210\316\321 !\333ed\334#\210-\210#\203f \335\336!\210\310\337!\205q \211$\207" [org-columns-header-line-remap org-columns-overlays org-previous-header-line-format header-line-format org-columns-begin-marker org-columns-top-level-marker fboundp face-remap-remove-relative local-variable-p kill-local-variable remove-hook post-command-hook org-columns-hscroll-title local nil markerp buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 mapc delete-overlay remove-text-properties (read-only t) flyspell-mode 1 org-colview-initial-truncate-line-value buffer-undo-list inhibit-read-only inhibit-modification-hooks org-columns-flyspell-was-active truncate-lines] 8 (#$ . 17399) nil])
#@38 Show the full value of the property.
(defalias 'org-columns-show-value #[0 "\300`\301\"\302\303\206 \304\"\207" [get-char-property org-columns-value message "Value is: %s" ""] 4 (#$ . 18449) nil])
#@65 Remove the column overlays and in this way exit column editing.
(defalias 'org-columns-quit #[0 "\306 \307\211\307\310\311\312\313\314!\315\"\316$\216\317 \210\307\320ed\321#\210-\210 \322=\204+ \323\211\207\323\324\325!\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks major-mode org-columns-current-fmt org-agenda-columns-active buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 org-columns-remove-overlays remove-text-properties (read-only t) org-agenda-mode nil message "Modification not yet reflected in Agenda buffer, use `r' to refresh"] 8 (#$ . 18654) nil])
#@53 Throw an error if current column value is computed.
(defalias 'org-columns-check-computed #[0 "i8\3018\205 \302\303\304 \305\"\"\205 \306\307!\207" [org-columns-current-fmt-compiled 3 assoc get-text-property line-beginning-position org-summaries error "This value is computed from the entry's children"] 6 (#$ . 19315)])
#@63 Change the TODO state during column view.
(fn &optional ARG)
(defalias 'org-columns-todo #[256 "\300\301!\207" [org-columns-edit-value "TODO"] 3 (#$ . 19647) "P"])
#@48 Toggle checkbox at point, or quit column view.
(defalias 'org-columns-toggle-or-columns-quit #[0 "\300 \206 \301 \207" [org-columns--toggle org-columns-quit] 1 (#$ . 19818) nil])
#@133 Toggle checkbox at point. Return non-nil if toggle happened, else nil.
See info documentation about realizing a suitable checkbox.
(defalias 'org-columns--toggle #[0 "\300\301\302`\303\"\"\205 \304 \210\305\207" [string-match "\\`\\[[ xX-]\\]\\'" get-char-property org-columns-value org-columns-next-allowed-value t] 5 (#$ . 20005)])
#@294 When set, overrides any other format definition for the agenda.
Don't set this, this is meant for dynamic scoping. Set
`org-columns-default-format' and `org-columns-default-format-for-agenda'
instead. You should use this variable only in the local settings
section for a custom agenda view.
(defvar org-overriding-columns-format nil (#$ . 20348))
#@184 When set, overrides any other format definition for the agenda.
This can be set as a buffer local value to avoid interfering with
dynamic scoping for `org-overriding-columns-format'.
(defvar org-local-columns-format nil (#$ . 20704))
(make-variable-buffer-local 'org-local-columns-format)
#@144 Edit the value of the property at point in column view.
Where possible, use the standard interface for changing this line.
(fn &optional KEY)
(defalias 'org-columns-edit-value #[256 "\306 \210i\307 \310 \311\312\"\206 `\206 \313`\314\"\315 \211\316\267\202\220 \317\320!\202\340 \321\322\323\324\325!\326\"\327$\202\340 \321\322\330\324\325!\331\"\327$\202\340 \321\322\330\324\325!\332\"\327$\202\340 \321\322\333\324\325!\334\"\327$\202\340 \321\322\330\324\325!\335\"\327$\202\340 \321\322\330\324\325!\336\"\327$\202\340 \321\322\330\324\325!\337\"\327$\202\340 \340\341#\313`\342\"\204\244 \343\344\"\202\262 \345\346\347\311\322\350@@#?$\347\351\203\274 \352\202\275 \353\354\351\355\354##\266\202\211\232?\205\336 \321\322\356\324\325 #\357\"\360$\266\203\211?\206B \361=\203\362!\210\n\363!r\211q\210\364\365 !)C \366 *\262\202B\367 \370 \367\211 @ \367 A\321\322\371\324\325!\372\"\373$\216\374eS]\375#\210,\210\362!\210)\347 B\376 \210)\377!\210\201C !)\207" [org-columns--time major-mode org-columns-current-fmt org-overriding-columns-format org-agenda-contributing-files inhibit-read-only org-columns-check-computed line-beginning-position line-end-position get-text-property org-hd-marker get-char-property org-columns-key float-time #s(hash-table size 8 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("CLOCKSUM" 33 "ITEM" 39 "TODO" 54 "PRIORITY" 69 "TAGS" 84 "DEADLINE" 99 "SCHEDULED" 114 "BEAMER_ENV" 129)) user-error "This special column cannot be edited" make-byte-code 0 "\300\212\301!\203
\302!q\210\212\214~\210\211\206 `b\210\303 +\207" vconcat vector [markerp marker-buffer org-edit-headline] 3 "\300\212\301!\203
\302!q\210\212\214~\210\211\206 `b\210\303\304!+\207" [markerp marker-buffer call-interactively org-todo] [markerp marker-buffer call-interactively org-priority] "\300\212\302!\203
\303!q\210\212\214~\210\211\206 `b\210 \304=\203\" \305\202# \306\307!,\207" [org-fast-tag-selection-single-key markerp marker-buffer expert t call-interactively org-set-tags-command] [markerp marker-buffer call-interactively org-deadline] [markerp marker-buffer call-interactively org-schedule] [markerp marker-buffer call-interactively org-beamer-select-environment] org-property-get-allowed-values table org-columns-value read-string "Edit: " completing-read "Value: " nil org-unrestricted replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n
]+" "" "[ \n
]+\\'" "\303\300\301\302#\207" [org-entry-put] 4 org-agenda-mode org-columns--call marker-buffer buffer-file-name buffer-base-buffer org-agenda-columns t buffer-modified-p "\300?\205 \301\302!\207" [restore-buffer-modified-p nil] 2 remove-text-properties (read-only t) org-columns-redo org-columns-update buffer-undo-list inhibit-modification-hooks org-columns-inhibit-recalculation org-move-to-column] 18 (#$ . 21000) nil])
#@59 Edit the list of allowed values for the current property.
(defalias 'org-columns-edit-allowed #[0 "\302\303\304 \"\262\206 \305\303\304 \"\262\206 `\306`\307\"\206! \310\311!\312P\313\314#\315\316\"\317\320!\2037 \202B \320 !\203A \202B #\207" [org-entry-property-inherited-from org-columns-top-level-marker org-marker get-text-property point-at-bol org-hd-marker get-char-property org-columns-key user-error "No column to edit at point" "_ALL" org-entry-get t read-string "Allowed: " org-entry-put marker-position] 8 (#$ . 23899) nil])
#@109 Call function FUN while preserving heading visibility.
FUN is a function called with no argument.
(fn FUN)
(defalias 'org-columns--call #[257 "\300 dU?\205 \212\301\302!\210\303\304!)\305\306\307\310\311!\312\"\313$\216 )\207" [line-end-position move-beginning-of-line 2 org-at-heading-p t make-byte-code 0 "\300\205 \301 \207" vconcat vector [outline-hide-entry] 1] 8 (#$ . 24458)])
#@55 Switch to the previous allowed value for this column.
(defalias 'org-columns-previous-allowed-value #[0 "\300\301!\207" [org-columns-next-allowed-value t] 2 (#$ . 24853) nil])
#@172 Switch to the next allowed value for this column.
When PREVIOUS is set, go to the previous value. When NTH is
an integer, select that value.
(fn &optional PREVIOUS NTH)
(defalias 'org-columns-next-allowed-value #[512 "\306 \210i\307`\310\"\307`\311\"\312\313 \314\"\206 `\315\"\206d 8\211:\205\\ \211A\211:\205Z \211A\211:\205X \211A\211:\205V \211@\211\316\235\205T A\211:\205R \211A\211?\205P \317\262\262\262\262\262\262\262\206d \320!\203o \321!\202p \211\262\322\232\203| \323\324!\210\211\204\212 \325\235\204\212 \323\326!\210\211G\327\235\203\237 \203\233 \330\202\337 \331\202\337 \250\203\300 \332!V\203\265 \333\334#\210\335S\"8\202\337 \235\203\335 \211\336U\203\320 \323\337!\210\235A@\206\337 @\202\337 @\340\341\342\343\344\n #\345\"\346$ \347=\203\350!\210\n\351!r\211q\210\352\353 !)C \354 *\262\2021\355 \356\357\341!\357 \360#\210\350!\210)\361 5\362 \210)\363!\210\364!\266\203\207" [org-columns-current-fmt-compiled major-mode org-columns-current-fmt org-overriding-columns-format org-agenda-contributing-files inhibit-read-only org-columns-check-computed get-char-property org-columns-key org-columns-value get-text-property line-beginning-position org-hd-marker org-property-get-allowed-values ("X%" "X/" "X") ("[ ]" "[X]") org-colview-construct-allowed-dates reverse "ITEM" error "Cannot edit item headline from here" ("SCHEDULED" "DEADLINE" "CLOCKSUM") "Allowed values for this property have not been defined" ("SCHEDULED" "DEADLINE" "CLOCKSUM") earlier later abs user-error "Only %d allowed values for property `%s'" mod 1 "Only one allowed value for this property" make-byte-code 0 "\303\301\300\302#\207" vconcat vector [org-entry-put] 4 org-agenda-mode org-columns--call marker-buffer buffer-file-name buffer-base-buffer org-agenda-columns t remove-text-properties line-end-position (read-only t) nil org-columns-redo org-columns-update org-move-to-column org-columns-inhibit-recalculation] 17 (#$ . 25036) nil])
#@215 Construct a list of three dates around the date in S.
This respects the format of the time stamp in S, active or non-active,
and also including time or not. S must be just a time stamp, no text
around it.
(fn S)
(defalias 'org-colview-construct-allowed-dates #[257 "\211\205\227 \302\303\304Q\"\205\227 \305\306\"\307!\310\232A@\203! \311\202\" \312 !C\313\211\2047 \314\315\242\316\317#\320Q\240\210\211\211@\206? \321\240\266A\211A@\206M \321\240\266AA\211\3228\206\\ \321\240\266\323!\262\323!\262\324\233\211\3248S\240\266\324\233\211\3248T\240\266\325\326\327\330\331\332!\333\"\334\335%E\"\266\205\207" [org-ts-regexp3 org-time-stamp-formats string-match "^" "$" org-parse-time-string nodefaults string-to-char 60 cdr car nil "[" substring 1 -1 "]" 0 2 copy-sequence 3 mapcar make-byte-code 257 "\301\300\242\302\303\"\"\207" vconcat vector [format-time-string apply encode-time] 6 "\n\n(fn X)"] 13 (#$ . 27044)])
#@22
(fn &optional ARG)
(defalias 'org-columns-open-link #[256 "\300`\301\"\302\"\207" [get-char-property org-columns-value org-link-open-from-string] 5 (#$ . 28009) "P"])
(defalias 'org-columns-get-format-and-top-level #[0 "\300 \301 \210\211\207" [org-columns-get-format org-columns-goto-top-level] 2])
#@241 Return columns format specifications.
When optional argument FMT-STRING is non-nil, use it as the
current specifications. This function also sets
`org-columns-current-fmt-compiled' and
`org-columns-current-fmt'.
(fn &optional FMT-STRING)
(defalias 'org-columns-get-format #[256 "\211\206? \303\304\305\306#\206? \212\214~\210eb\210\3072: \306\310\311\304\306#\2037 \312 \313!\314=\2033 \315\307\316\317\"\"\210\210\202 )\3040*\206? \211\320!\210\211\207" [case-fold-search org-columns-default-format org-columns-current-fmt org-entry-get nil "COLUMNS" t :found re-search-forward "^[ ]*#\\+COLUMNS: .+$" org-element-at-point org-element-type keyword throw org-element-property :value org-columns-compile-format] 7 (#$ . 28320) nil])
#@110 Move to the beginning of the column view area.
Also sets `org-columns-top-level-marker' to the new position.
(defalias 'org-columns-goto-top-level #[0 "\302!\204 \303 \304 \203 e\202# \305\306\307\310#\203 \202# \311 \210`\306\223b\207" [org-columns-top-level-marker org-entry-property-inherited-from markerp make-marker org-before-first-heading-p org-entry-get nil "COLUMNS" t org-back-to-heading] 5 (#$ . 29069)])
#@466 Turn on column view on an Org mode file.
Column view applies to the whole buffer if point is before the
first headline. Otherwise, it applies to the first ancestor
setting "COLUMNS" property. If there is none, it defaults to
the current headline. With a `\[universal-argument]' prefix argument, turn on column
view for the whole buffer unconditionally.
When COLUMNS-FMT-STRING is non-nil, use it as the column format.
(fn &optional GLOBAL COLUMNS-FMT-STRING)
(defalias 'org-columns #[512 "\306 \210\212\203 eb\210\307!\203 `\310\223\210\202 \311 \312 \210\313 \314!\210\n\204- \315 \210\214\204> \316 \203> `\317\320\211\"}\210\321\322 \"\203H \323 \210\321\324 \"\203R \325 \210\326\327\310\211\f\205[ \330$\211\205\246 \331!\210\332 \210\333\334!\210\335\305!\205r
\211 \203| \305\336!\210\337\340!\204\212 \333\340!\210\" \320\"\211\211\205\244 \211@\211@b\210\341A!\210A\266\202\202\216 \262\262+\207" [org-columns-begin-marker org-columns--time org-columns-inhibit-recalculation org-columns-current-fmt-compiled org-columns-skip-archived-trees flyspell-mode org-columns-remove-overlays markerp nil point-marker org-columns-goto-top-level float-time org-columns-get-format org-columns-compute-all org-at-heading-p org-end-of-subtree t assoc "CLOCKSUM" org-clock-sum "CLOCKSUM_T" org-clock-sum-today org-map-entries #[0 "`\300 B\207" [org-columns--collect-values] 2] archive org-columns--set-widths org-columns--display-here-title make-local-variable org-columns-flyspell-was-active boundp 0 local-variable-p org-colview-initial-truncate-line-value org-columns--display-here truncate-lines] 7 (#$ . 29499) "P"])
#@387 Insert a new column, to the left of the current column.
Interactively fill attributes for new column. When column format
specification SPEC is provided, edit it instead.
When optional argument attributes can be a list of columns
specifications attributes to create the new column
non-interactively. See `org-columns-compile-format' for
details.
(fn &optional SPEC &rest ATTRIBUTES)
(defalias 'org-columns-new #[384 "\211\206\\ \303\304\305\306\307\310\311\310#\"\311\211@%\211\312\313\314\"A@\"\312\315\3168\205- \317\3168!\"\320!\2057 \321!\262\320\303\322\323\324\305\325\326 \"\"B!\311\310\327\f8%!\320\312\330\331\n8\"!\257\262\203m @\240\210A\241\210\202\211 i\211\332X\203} \n\233B\202\210 \211S\n\233\n\233B\241\210\210\333 \210\334 \207" [org-columns-summary-types org-columns-summary-types-default org-columns-current-fmt-compiled completing-read "Property: " mapcar list org-buffer-property-keys t nil read-string format "Column title [%s]: " "Column width: " 2 number-to-string org-string-nw-p string-to-number "Summary: " delete-dups ("") #[257 "\211@C\207" [] 2 "\n\n(fn X)"] append 3 "Format: " 4 0 org-columns-store-format org-columns-redo] 16 (#$ . 31147) nil])
#@47 Delete the column at point from columns view.
(defalias 'org-columns-delete #[0 "i8\302\303\304A@\"!\205% \305\"\306 \210\307\310 \210)iGY\205% \311u\207" [org-columns-current-fmt-compiled org-columns-inhibit-recalculation y-or-n-p format "Are you sure you want to remove column %S? " delq org-columns-store-format t org-columns-redo -1] 5 (#$ . 32361) nil])
#@44 Edit the attributes of the current column.
(defalias 'org-columns-edit-attributes #[0 "\301i8!\207" [org-columns-current-fmt-compiled org-columns-new] 3 (#$ . 32733) nil])
#@52 Make the column wider by ARG characters.
(fn ARG)
(defalias 'org-columns-widen #[257 "i\2118 H\303\\]\262AA\240\210\304 \210\305\306 )\207" [org-columns-current-fmt-compiled org-columns-current-maxwidths org-columns-inhibit-recalculation 1 org-columns-store-format t org-columns-redo] 7 (#$ . 32912) "p"])
#@55 Make the column narrower by ARG characters.
(fn ARG)
(defalias 'org-columns-narrow #[257 "\300[!\207" [org-columns-widen] 3 (#$ . 33233) "p"])
#@45 Swap this column with the one to the right.
(defalias 'org-columns-move-right #[0 "i\211\233\302GSY\203 \303\304!\210@\262\211A@\240\210AAB\241\210\305 \210\306\307 \210)\310u\207" [org-columns-current-fmt-compiled org-columns-inhibit-recalculation nil error "Cannot shift this column further to the right" org-columns-store-format t org-columns-redo 1] 6 (#$ . 33384) nil])
#@44 Swap this column with the one to the left.
(defalias 'org-columns-move-left #[0 "i\211\300U\203 \301\302!\210\303u\210\304 \210\303u\207" [0 error "Cannot shift this column further to the left" -1 org-columns-move-right] 3 (#$ . 33776) nil])
#@202 Store the text version of the current columns format.
The format is stored either in the COLUMNS property of the node
starting the current column display, or in a #+COLUMNS line of
the current buffer.
(defalias 'org-columns-store-format #[0 "\306!\307\301!\210\211\n\205\243 \212\310!\203 \311!q\210\212\214~\210\211\206# `b\210\312 \2039 \313\314\315\"\2039 \316\314\315#\202\240 eb\210\317 \3202\226 \321\322\314\317#\203\201 \323 \324\325\326\327\330!\331\"\332$\216\333 )\262\334!\335=\203} \336\337\"\315\232\203} \340\341P\317\211\314\342%\210\343\320\314\"\210\210\202B eb\210\312\317!\204\215 \344 \210\317 \345\346\347#)0\210)\307\350!\210\211(+\262\207" [org-columns-current-fmt-compiled org-columns-current-fmt org-columns-overlays org-columns-top-level-marker case-fold-search inhibit-read-only org-columns-uncompile-format make-local-variable markerp marker-buffer org-at-heading-p org-entry-get nil "COLUMNS" org-entry-put t :found re-search-forward "^[ ]*#\\+COLUMNS:\\(.*\\)" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-element-at-point org-element-type keyword org-element-property :key replace-match " " 1 throw outline-next-heading insert-before-markers "#+COLUMNS: " "\n" org-columns-default-format] 9 (#$ . 34026)])
#@75 Recompute PROPERTY, and update the columns display for it.
(fn PROPERTY)
(defalias 'org-columns-update #[257 "\303!\210\212\214~\210\211\226\211\205x \211@\304\305\"\211\203p \211\232\203p \306!\203p \306!b\210i 8\307\310\311 \312\"\"A\206= \313`\"\211\203n \314\"\304\315\"\niH\316\317#\210\316\320#\210\316\321\322 %#\266\266\210A\266\202\202 \262\262*\207" [org-columns-overlays org-columns-current-fmt-compiled org-columns-current-maxwidths org-columns-compute overlay-get org-columns-key overlay-start assoc get-text-property line-beginning-position org-summaries org-entry-get org-columns--displayed-value org-columns-format overlay-put org-columns-value org-columns-value-modified display org-columns--overlay-text] 19 (#$ . 35339)])
#@37 Construct the column display again.
(defalias 'org-columns-redo #[0 "\205= \303\304!\210 \212\305!\203 \306!q\210\212\214~\210\211\206 `b\210\307 \210\310\311!\2031 \312\313\n\"\210\2028 \314 \210\312\315!\210+\210\303\316!\207" [org-columns-overlays org-columns-begin-marker org-columns-current-fmt message "Recomputing columns..." markerp marker-buffer org-columns-remove-overlays derived-mode-p org-mode call-interactively org-columns org-agenda-redo org-agenda-columns "Recomputing columns...done"] 4 (#$ . 36122) nil])
#@152 Turn the compiled columns format back into a string representation.
COMPILED is an alist, as returned by `org-columns-compile-format'.
(fn COMPILED)
(defalias 'org-columns-uncompile-format #[257 "\300\301\302#\207" [mapconcat #[257 "\211:\205~ \211@A\211:\205| \211@A\211:\205z \211@A\211:\205x \211@A\211:\205v \211@A\211?\205t \n
\300\205B \301!\205S \232?\205S \302\303\"\204\\ \304\202p \203k \302\305 #\202p \302\306 \"\260\266\205\266\202\266\202\266\202\266\202\266\202\207" ["%" number-to-string format "(%s)" nil "{%s;%s}" "{%s}"] 24 "\n\n(fn SPEC)"] " "] 5 (#$ . 36658)])
#@533 Turn a column format string FMT into an alist of specifications.
The alist has one entry for each column in the format. The elements of
that list are:
property the property name, as an upper-case string
title the title field for the columns, as a string
width the column width in characters, can be nil for automatic width
operator the summary operator, as a string, or nil
printf a printf format for computed values, as a string, or nil
This function updates `org-columns-current-fmt-compiled'.
(fn FMT)
(defalias 'org-columns-compile-format #[257 "\301\302\303\304#\203d \302\225\262\305\225\205 \306\307\305\"!\310\311\"\310\312\"\206& \211\310\313\"\211\204: \226\301\211\257\202\\ \301\303\314\"\203Q \315\302\225\"\262\315\302\211\224#\262\226\257\262B\266\202 \237\211\207" [org-columns-current-fmt-compiled nil 0 string-match "%\\([0-9]+\\)?\\([[:alnum:]_-]+\\)\\(?:(\\([^)]+\\))\\)?\\(?:{\\([^}]+\\)}\\)?\\s-*" 1 string-to-number match-string match-string-no-properties 2 3 4 ";" substring] 12 (#$ . 37278)])
#@203 Turn age string S into a number of minutes.
An age is either computed from a given time-stamp, or indicated
as a canonical duration, i.e., using units defined in
`org-duration-canonical-units'.
(fn S)
(defalias 'org-columns--age-to-minutes #[257 "\303\304\305#)\266\203\203 \n\306\307!!Z\310\245\207\311!\203% \312\304\"\207\313\314\"\207" [org-ts-regexp inhibit-changing-match-data org-columns--time nil t string-match float-time org-time-string-to-time 60 org-duration-p org-duration-to-minutes user-error "Invalid age: %S"] 8 (#$ . 38363)])
#@54 Format MINUTES float as an age string.
(fn MINUTES)
(defalias 'org-columns--format-age #[257 "\300\301\302#\207" [org-duration-from-minutes (("d") ("h") ("min")) t] 5 (#$ . 38925)])
#@82 Apply FUN to time values TIMES.
Return the result as a duration.
(fn FUN TIMES)
(defalias 'org-columns--summary-apply-times #[514 "\300\301\302\303\"\"\304!\"\207" [org-duration-from-minutes apply mapcar org-duration-to-minutes org-duration-h:mm-only-p] 8 (#$ . 39115)])
#@209 Update tree according to SPEC.
SPEC is a column format specification. When optional argument
UPDATE is non-nil, summarized values can replace existing ones in
properties drawers.
(fn SPEC &optional UPDATE)
(defalias 'org-columns--compute-spec #[513 "\306\300!\203 \203 \202 \307\310T\311\"\312\211@\3138\314 8\211\205) \315!\2050 \316!\212\214~\210 b\210\3171B \320\321!0\202D \210db\210\322\n \321#\205g\312U\204a =\204a \262\323\324 !\262\312\224\203t !\202y \325`\"\326!\n W\203P\205\250 \327 U?\205\227 \f\nH
\fH\"\211\205\246 \"\262\211\203\330\331\"\332\"\211\203\300 \211\241\210\202\351 BB\262\333 \321\211 \321 \334\312\335\336\337!\340\"\341$\216\342\211T\331D#\210,\210\266\211\311\343\203\366 \344\202\367 \345\346\343\347\346##\266\202\203\203\232\204\350` #\210\210\211\204 \2033\211\206%
HBI\266 TX\203K\311I\210T\262\2028\266\202b\211\203b HBI\266\266\202F *\207" [org-inlinetask-min-level org-columns-top-level-marker org-outline-regexp-bol buffer-undo-list inhibit-read-only inhibit-modification-hooks boundp 29 make-vector nil 0 4 3 org-columns--collect org-columns--summarize (error) org-end-of-subtree t re-search-backward org-reduced-level org-outline-level org-entry-get org-string-nw-p append get-text-property org-summaries assoc buffer-modified-p make-byte-code "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 add-text-properties replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n
]+" "" "[ \n
]+\\'" org-entry-put] 26 (#$ . 39397)])
#@151 Summarize the values of PROPERTY hierarchically.
Also update existing values for PROPERTY according to the first
column specification.
(fn PROPERTY)
(defalias 'org-columns-compute #[257 "\301\226\211\205, \211@\211:\203% \211@\232\203$ \302\"\210\203$ \303\262\210A\266\202\202 \262\207" [org-columns-current-fmt-compiled t org-columns--compute-spec nil] 9 (#$ . 41022) nil])
#@50 Compute all columns that have operators defined.
(defalias 'org-columns-compute-all #[0 "\305 \306\211\306\307\310\311\312\313!\314\"\315$\216\316ed\317#\210,\210\320 \321\f\211\205@ \211@\211@\322\235?\"\210\211B\262\210A\266\202\202\" \262)\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks org-columns--time org-columns-current-fmt-compiled buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (org-summaries t) float-time nil org-columns--compute-spec] 10 (#$ . 41417)])
#@101 Compute the sum of VALUES.
When PRINTF is non-nil, use it to format the result.
(fn VALUES PRINTF)
(defalias 'org-columns--summary-sum #[514 "\300\206 \301\302\303\304\305\"\"\"\207" [format "%s" apply + mapcar string-to-number] 9 (#$ . 42014)])
#@62 Compute the sum of VALUES, with two decimals.
(fn VALUES _)
(defalias 'org-columns--summary-currencies #[514 "\300\301\302\303\304\305\"\"\"\207" [format "%.2f" apply + mapcar string-to-number] 9 (#$ . 42271)])
#@61 Summarize CHECK-BOXES with a check-box.
(fn CHECK-BOXES _)
(defalias 'org-columns--summary-checkbox #[514 "\300\301\302\303$GU\203 \301\202 \304V\203 \305\202 \306\207" [cl-count "[X]" :test equal 0 "[-]" "[ ]"] 7 (#$ . 42491)])
#@68 Summarize CHECK-BOXES with a check-box cookie.
(fn CHECK-BOXES _)
(defalias 'org-columns--summary-checkbox-count #[514 "\300\301\302\303\"G#\207" [format "[%d/%d]" cl-count-if #[257 "\211\301\232\206 \302\303\304\305#)\266\203\207" [inhibit-changing-match-data "[X]" "\\[\\([1-9]\\)/\\1\\]" nil t string-match] 8 "\n\n(fn B)"]] 7 (#$ . 42736)])
#@69 Summarize CHECK-BOXES with a check-box percent.
(fn CHECK-BOXES _)
(defalias 'org-columns--summary-checkbox-percent #[514 "\300\301\302\303\304\305\"_G\"\"\207" [format "[%d%%]" round 100.0 cl-count-if #[257 "\211\300\235\207" [("[X]" "[100%]")] 3 "\n\n(fn B)"]] 9 (#$ . 43096)])
#@105 Compute the minimum of VALUES.
When PRINTF is non-nil, use it to format the result.
(fn VALUES PRINTF)
(defalias 'org-columns--summary-min #[514 "\300\206 \301\302\303\304\305\"\"\"\207" [format "%s" apply min mapcar string-to-number] 9 (#$ . 43387)])
#@105 Compute the maximum of VALUES.
When PRINTF is non-nil, use it to format the result.
(fn VALUES PRINTF)
(defalias 'org-columns--summary-max #[514 "\300\206 \301\302\303\304\305\"\"\"\207" [format "%s" apply max mapcar string-to-number] 9 (#$ . 43651)])
#@102 Compute the mean of VALUES.
When PRINTF is non-nil, use it to format the result.
(fn VALUES PRINTF)
(defalias 'org-columns--summary-mean #[514 "\300\206 \301\302\303\304\305\"\"\306G!\245\"\207" [format "%s" apply + mapcar string-to-number float] 9 (#$ . 43915)])
#@26 Sum TIMES.
(fn TIMES _)
(defalias 'org-columns--summary-sum-times #[514 "\300\301\"\207" [org-columns--summary-apply-times +] 5 (#$ . 44191)])
#@53 Compute the minimum time among TIMES.
(fn TIMES _)
(defalias 'org-columns--summary-min-time #[514 "\300\301\"\207" [org-columns--summary-apply-times min] 5 (#$ . 44342)])
#@53 Compute the maximum time among TIMES.
(fn TIMES _)
(defalias 'org-columns--summary-max-time #[514 "\300\301\"\207" [org-columns--summary-apply-times max] 5 (#$ . 44521)])
#@50 Compute the mean time among TIMES.
(fn TIMES _)
(defalias 'org-columns--summary-mean-time #[514 "\300\301\"\207" [org-columns--summary-apply-times #[128 "\300\301\"\302G!\245\207" [apply + float] 4 "\n\n(fn &rest VALUES)"]] 5 (#$ . 44700)])
#@50 Compute the minimum age among AGES.
(fn AGES _)
(defalias 'org-columns--summary-min-age #[514 "\300\301\302\303\304\"\"!\207" [org-columns--format-age apply min mapcar org-columns--age-to-minutes] 8 (#$ . 44951)])
#@50 Compute the maximum age among AGES.
(fn AGES _)
(defalias 'org-columns--summary-max-age #[514 "\300\301\302\303\304\"\"!\207" [org-columns--format-age apply max mapcar org-columns--age-to-minutes] 8 (#$ . 45174)])
#@47 Compute the mean age among AGES.
(fn AGES _)
(defalias 'org-columns--summary-mean-age #[514 "\300\301\302\303\304\"\"\305G!\245!\207" [org-columns--format-age apply + mapcar org-columns--age-to-minutes float] 8 (#$ . 45397)])
#@196 Combine a list of estimates, using mean and variance.
The mean and variance of the result will be the sum of the means
and variances (respectively) of the individual estimates.
(fn ESTIMATES _)
(defalias 'org-columns--summary-estimate #[514 "\300\211\211\203b \211@\301\302\303\304\"\"\211:\203Z \211@A\211:\203L \211@A\211\204G \211\\\305\245 \\\262\f\n\211_\211_\\\306\245\211_Z\\\262 \266\266\202X \211\204X \\\262\210\266\210A\266\202\202 \210\307!\310\311\310\312Z\"\310\312\\\"#\262\207" [0 mapcar string-to-number split-string "-" 2.0 2.0 sqrt format "%s-%s" "%.0f"] 18 (#$ . 45634)])
#@583 Get the column view of the current buffer.
MAXLEVEL sets the level limit. SKIP-EMPTY tells whether to skip
empty rows, an empty row being one where all the column view
specifiers but ITEM are empty. EXCLUDE-TAGS is a list of tags
that will be excluded from the resulting view. FORMAT is a
format string for columns, or nil. When LOCAL is non-nil, only
capture headings in current subtree.
This function returns a list containing the title row and all
other rows. Each row is a list of fields, as strings, or
`hline'.
(fn MAXLEVEL MATCH SKIP-EMPTY EXCLUDE-TAGS FORMAT LOCAL)
(defalias 'org-columns--capture-view #[1542 "\302?\"\210b\210 G\303\304 \"\305C\306\307\310\311\312\313\f\f\n\n\n%\314\"\315$\n\2033 \316\317\f\"\206: \205: \205@ \320\321\322%\210\323 \210\324\325 \"\326\242\237BB\207" [org-columns-top-level-marker org-columns-current-fmt-compiled org-columns assoc "ITEM" nil org-map-entries make-byte-code 0 "\305`\306\"\205{ \307\302\310\211W\2037 \211\311 \\\305\306\"\312\305\313\230\203& \314\202' \315\"!B\262\266\211T\262\202\n \266\300\203U \316\317\320\"!\211?\206P \303\205P \211G\321U\262\206i \301\205i \322\323\324\325\326\327\301!\330\"\331\332%\333 \"?\205y \304\334\335 !\237B\304\242B\240\262\207" vconcat vector [get-char-property org-columns-key nil 0 line-beginning-position org-quote-vert "ITEM" org-columns-value org-columns-value-modified delete-dups remove "" 1 cl-some make-byte-code 257 "\211\300\235\207" vconcat vector [] 3 "\n\n(fn TAG)" org-get-tags org-reduced-level org-current-level] 11 format "LEVEL<=%d" tree archive comment org-columns-quit mapcar cadr hline] 20 (#$ . 46266)])
#@197 Remove sensitive contents from string ITEM.
This includes objects that may not be duplicated within
a document, e.g., a target, or those forbidden in tables, e.g.,
an inline src-block.
(fn ITEM)
(defalias 'org-columns--clean-item #[257 "\301\302\303!\"\304\305\306#\210\307!\310\211\203 \311\312G$\210\202' \313\312G\310$\210\266\202\207" [org-rm-props org-element-parse-secondary-string org-element-restriction headline org-element-map (footnote-reference inline-babel-call inline-src-block target radio-target statistics-cookie) org-element-extract-element org-element-interpret-data nil remove-text-properties 0 set-text-properties] 9 (#$ . 47937)])
#@1242 Write the column view table.
PARAMS is a property list of parameters:
`:id' (mandatory)
The ID property of the entry where the columns view should be
built. When the symbol `local', call locally. When `global'
call column view with the cursor at the beginning of the
buffer (usually this means that the whole buffer switches to
column view). When "file:path/to/file.org", invoke column
view at the start of that file. Otherwise, the ID is located
using `org-id-find'.
`:exclude-tags'
List of tags to exclude from column view table.
`:format'
When non-nil, specify the column view format to use.
`:hlines'
When non-nil, insert a hline before each item. When
a number, insert a hline before each level inferior or equal
to that number.
`:indent'
When non-nil, indent each ITEM field according to its level.
`:match'
When set to a string, use this as a tags/property match filter.
`:maxlevel'
When set to a number, don't capture headlines below this level.
`:skip-empty-rows'
When non-nil, skip rows where all specifiers other than ITEM
are empty.
`:vlines'
When non-nil, make each column a column group to enforce
vertical lines.
(fn PARAMS)
(defalias 'org-dblock-write:columnview #[257 "\303\304\"\305\211\306=\204k \307>\203 `\262\202k \310\311\"\211\312\313\"\262\203< \211\314\315\"\262\316!\2048 \317\320\"\210\210\202j \321!\211\203I \211\262\202i \322!\211:\203b \211@A\211\211\262 \262\266\202h \317\323\"\210\210\210\210r\203v \324!\202w pq\210\212\214~\210\211\203\204 \211b\210\325\303\326\"\303\327\"\303\330\"\303\331\"\303 \332\"&+\266\203\211\205\304\333\334\"\211\205\266 \335\336\337$\262\303\340\"\303\341\"\305\211A\262\242B\262\211A\262\242B\262\211\2039\211@\211@@\342=\204\374 \343=\204\367 \247\203\374 \211X\203\374 \342B\262\203+\344A8!A\233\211\203'\315V\203'\345\346\347S_\350\"Q\202(\240\266AB\262\210A\266\202\202\326 \237\266\206\303\351\"\203WG\352\353\354\"\355\356\357\"BC\"\262\262\360\303\361\"\362\"\305\203\201\363@\305\343\312#)\266\203\203\201\211A\262\242\362\261\210\202c\212\364\365\362#c\210\343\211\203\265\211@\366\305\343\312#)\266\203\203\256\362\261\210\204\256\343\262A\266\202\202\214\210*\211\203\300\367\370\343\"\210\371 \266\202\207" [org-columns-current-fmt-compiled inhibit-changing-match-data case-fold-search plist-get :id nil global (nil local) format "%s" string-match "^file:\\(.*\\)" match-string-no-properties 1 file-exists-p user-error "No such file: %S" org-find-entry-with-id org-id-find "Cannot find entry with :ID: %s" get-file-buffer org-columns--capture-view :maxlevel :match :skip-empty-rows :exclude-tags :format assoc "ITEM" cl-position :test equal :hlines :indent hline t org-columns--clean-item "\\_" make-string 2 32 :vlines append mapcar #[257 "\211\300=\203 \207\301B\207" [hline ""] 3 "\n\n(fn X)"] "/" make-list "<>" org-split-string :content "\n" "\\`[ ]*#\\+" mapconcat #[257 "\211\300=\203 \301\207\302\303\304\305\306#\"\207" [hline "|-|" format "|%s|" mapconcat identity "|"] 7 "\n\n(fn ROW)"] "\\`[ ]*#\\+TBLFM:" org-table-recalculate all org-table-align] 16 (#$ . 48609)])
#@55 Create a dynamic block capturing a column view table.
(defalias 'org-columns-insert-dblock #[0 "\300\301\302\303\304\305\306\307!\"\"\"\310\311\312\313\314\315\316\230\203 \317\202* \320\235\203( \321\202* \257!\266\322 \207" [completing-read "Capture columns (local, global, entry with :ID: property) [local]: " append (("global") ("local")) mapcar list org-property-values "ID" org-create-dblock :name "columnview" :hlines 1 :id "global" global ("" "local") local org-update-dblock] 9 (#$ . 51902) nil])
(eval-after-load 'org #[0 "\300\301\302\"\207" [org-dynamic-block-define "columnview" org-columns-insert-dblock] 3])
#@46 Turn on or update column view in the agenda.
(defalias 'org-agenda-columns #[0 "\306 \210\307!\203 `\310\223\210\202 \311 \312 \n\313\304!\203# \f\206\213 \313\305!\203-
\206\213 \313\314!\2038 \f\206\213 \315\316\317 \"\262\211\205U \320\321\322#\206U r\323!q\210$)\262\206\213 \324\325!\203e \206\213 \326e\315\"\211\205\204 \316\315\"\320\321\322#\206\202 r\323!q\210$)\262\262\206\213 $\327!%\203\233 \330&!\210\212eb\210\310m\204\334 \315\316\317 \"\262\211\203\325 \331 \212\307!\203\277 \323!q\210\212\214~\210\211\206\310 `b\210\332!+\262BB\262\210\310y\210\202\240 \211\205$\333!\210\334 \210\335\336!\210\313\337!\205\363 \211 \203\375 \337\340!\210\211\211\203\211@\211@b\210\341A!\210A\266\202\202\376 \210\335\342!\210\322\"'\205$\343!\262+\207" [org-columns-begin-marker org-columns--time org-done-keywords-for-agenda org-done-keywords org-overriding-columns-format org-local-columns-format org-columns-remove-overlays markerp nil point-marker float-time boundp org-columns-default-format-for-agenda org-hd-marker get-text-property point-at-bol org-entry-get "COLUMNS" t marker-buffer local-variable-p org-columns-current-fmt next-single-property-change org-columns-compile-format org-agenda-colview-compute line-beginning-position org-columns--collect-values org-columns--set-widths org-columns--display-here-title make-local-variable org-columns-flyspell-was-active flyspell-mode 0 org-columns--display-here org-agenda-columns-active org-agenda-colview-summarize org-columns-default-format org-agenda-columns-compute-summary-properties org-columns-current-fmt-compiled org-agenda-columns-show-summaries] 8 (#$ . 52540) nil])
#@154 Summarize the summarizable columns in column view in the agenda.
This will add overlays to the date lines, to show the summary for each day.
(fn CACHE)
(defalias 'org-agenda-colview-summarize #[257 "\301\302\"\303\304\"\205} db\210\3052} \306`\307\"\204\" \306`\310\"\311=\203k \312C\312\211\203I \211@\211@`V\203= \242B\240\210\202B \211B\262A\266\202\202& \210\262\211\301\313\242\"\240\203j \314\301\315\316\317\320\321!\322\"\323\324%\"\325\"\210\210o\203w \326\305\327\"\210\202 \330y\210\202 \207" [org-columns-current-fmt-compiled mapcar #[257 "\211:\2057 \211@A\211:\2055 \211@A\211:\2053 \211@\211\211\300\235\203- \211\301\302\257\202/ \266\203\262\266\202\266\202\207" [("CLOCKSUM" "CLOCKSUM_T") ":" nil] 14 "\n\n(fn SPEC)"] cl-some #[257 "\3008\207" [3] 3 "\n\n(fn SPEC)"] :complete get-text-property org-date-line face org-agenda-structure nil cdr org-columns--display-here make-byte-code 257 "\211:\205\253 \211@\211\301\232\203 \302 \303 {\211E\262\202\251 A\211:\205\247 \211A\211:\205\245 \211A\211:\205\243 \211@\211\204P A\211:\205K \211A\211?\205I \304\211E\262\262\202\241 A\211:\205\237 \211@A\211?\205\235 \305!\306\307\310\311\312\313\314\315!\316\"\317\320%\300\242\"\"\211\203\204 \"\202\205 \304\211\304\232\204\224 \321\322G\323\324%\210
\211E\266\203\266\202\266\202\262\262\262\262\262\262\207" vconcat vector ["ITEM" line-beginning-position line-end-position "" org-columns--summarize delq nil mapcar make-byte-code 257 "\301\302\300\"A@!\207" vconcat vector [org-string-nw-p assoc] 5 "\n\n(fn E)" put-text-property 0 face bold] 21 "\n\n(fn SPEC)" dateline throw t -1] 11 (#$ . 54241)])
#@76 Compute the relevant columns in the contributing source buffers.
(fn FMT)
(defalias 'org-agenda-colview-compute #[257 "\211\205\201 \211@\305!r\306!\206 \211q\210\212\214~\210\307 \310\211\310\311\312\313\314\315!\316\"\317$\216\320ed\321#\210,\210eb\210\322 \210\211\203w \211@\211@\211\323\267\202U \324 \210\202o \325 \210\202o \3268\203o \327\f\"\3268\3268\232\262\203o \330!\210\210A\266\202\202; \210+\210A\266\202\202 \207" [org-agenda-contributing-files buffer-undo-list inhibit-read-only inhibit-modification-hooks org-columns-current-fmt-compiled find-buffer-visiting buffer-base-buffer buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (org-summaries t) org-columns-get-format-and-top-level #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("CLOCKSUM" 73 "CLOCKSUM_T" 79)) org-clock-sum org-clock-sum-today 3 assoc org-columns-compute] 12 (#$ . 55925)])
(provide 'org-colview)
Mini Shell