mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (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) 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\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 (function :tag "Summarize"))] 12)
16 #@44 Holds the list of current column overlays.
17 (defvar org-columns-overlays nil (#$ . 2106))
18 (make-variable-buffer-local 'org-columns-overlays)
19 #@59 Local variable, holds the currently active column format.
20 (defvar org-columns-current-fmt nil (#$ . 2252))
21 (make-variable-buffer-local 'org-columns-current-fmt)
22 #@103 Local variable, holds the currently active column format.
23 This is the compiled version of the format.
24 (defvar org-columns-current-fmt-compiled nil (#$ . 2420))
25 (make-variable-buffer-local 'org-columns-current-fmt-compiled)
26 #@54 Currently active maximum column widths, as a vector.
27 (defvar org-columns-current-maxwidths nil (#$ . 2649))
28 (make-variable-buffer-local 'org-columns-current-maxwidths)
29 #@73 Points to the position where last a column creation command was called.
30 (defvar org-columns-begin-marker nil (#$ . 2823))
31 (make-variable-buffer-local 'org-columns-begin-marker)
32 #@61 Points to the position where current columns region starts.
33 (defvar org-columns-top-level-marker nil (#$ . 3006))
34 (make-variable-buffer-local 'org-columns-top-level-marker)
35 #@64 Number of seconds since the epoch, as a floating point number.
36 (defvar org-columns--time 0.0 (#$ . 3185))
37 #@37 The keymap valid in column display.
38 (defvar org-columns-map (make-sparse-keymap) (#$ . 3297))
39 #@84 Map operators to summarize functions.
40 See `org-columns-summary-types' for details.
41 (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)) (#$ . 3397))
42 #@48 Switch to contents view while in columns view.
43 (defalias 'org-columns-content #[0 "\300 \210\301 \207" [org-overview org-content] 1 (#$ . 4183) nil])
44 (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-set-tags-or-toggle "" 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 \203m\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 \203o\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)
45 #@17 Org Column Menu
46 (defvar org-columns-menu nil (#$ . 6154))
47 (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]))
48 #@219 Return displayed value for specification SPEC in current entry.
49 SPEC is a column format specification as stored in
50 `org-columns-current-fmt-compiled'.  VALUE is the real value to
51 display, as a string.
52
53 (fn SPEC VALUE)
54 (defalias 'org-columns--displayed-value #[514 "\302!\203A@\"\206\261:\203\255@\211\303\232\2032\304\305 S    \203(\306\202)\307\"\310\311!Q\202\254A\211:\203\246\211A\211:\203\234\211A\211:\203\222\211A\211:\203\210\211@\211\204iA\211\204_\202d\312\313\n\"\262\202\203A\211\204|\314\315 !\"\262\202\201\312\313\n\"\262\262\202\215\312\313\"\262\202\227\312\313\"\262\202\241\312\313\"\262\202\252\312\313\"\262\207\312\313\"\207" [org-columns-modify-value-for-display-function org-hide-leading-stars functionp "ITEM" make-string org-current-level 32 42 "* " org-columns-compact-links error "Invalid column specification format: %S" format string-to-number] 14 (#$ . 7079)])
55 #@350 Collect values for columns on the current line.
56
57 Return a list of triplets (SPEC VALUE DISPLAYED) suitable for
58 `org-columns--display-here'.
59
60 This function assumes `org-columns-current-fmt-compiled' is
61 initialized is set in the current buffer.  However, it is
62 possible to override it with optional argument COMPILED-FMT.
63
64 (fn &optional COMPILED-FMT)
65 (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:\205K\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\"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] 9 "\n\n(fn SPEC)"] 10 (#$ . 8030)])
66 #@165 Compute the maximum column widths from the format and CACHE.
67 This function sets `org-columns-current-maxwidths' as a vector of
68 integers greater than 0.
69
70 (fn CACHE)
71 (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 (#$ . 9050)])
72 #@89 Create a new column overlay and add it to the list.
73
74 (fn BEG END &optional STRING FACE)
75 (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 (#$ . 9744)])
76 #@71 Return summary function associated to string OPERATOR.
77
78 (fn OPERATOR)
79 (defalias 'org-columns--summarize #[257 "\211\205\302\"\206\302    \"\206\303\304\"A\207" [org-columns-summary-types org-columns-summary-types-default assoc error "Unknown %S operator"] 4 (#$ . 10054)])
80 #@54 Return text 
81
82 (fn VALUE FMT WIDTH PROPERTY ORIGINAL)
83 (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 (#$ . 10340)])
84 #@222 Overlay the current line with column display.
85 COLUMNS is an alist (SPEC VALUE DISPLAYED).  Optional argument
86 DATELINE is non-nil when the face used should be
87 `org-agenda-column-dateline'.
88
89 (fn COLUMNS &optional DATELINE)
90 (defalias 'org-columns--display-here #[513 "\212\306 \210\307\310!\205 \311\312!\211\206#\313=\203\"\314\315\316 \"\262\206#\317\320\321\320\"D\322\321\317\322\"\323\321\317\323\"F\324F\325F    G\326 \327 ZV\203[\212\330\210\331\332Z\333\"c\210*\266\334GS    \211\203\211@\211:\203\367\211@A\211:\203\365\211@A\211:\203\363\211@A\211\204\361\211@ H\335U\203\240\336\202\241\337\211#\340``T\341        \f%\203\275\202\277$\342\343\f#\210\342\344#\210\342\345#\210\342\346    #\210\342\347#\210\342\350\351#\210\342\352\351#\210\330u\266\266\266\266T\262A\266\202\202d\266\340`\326 \"\342\353\331#\210\342\343\f#\210\342\350\351#\210\342\352\351#\266\354\326 S\327\312!\"\342\343\f#\210\211 B\210\355 \331\2117\3318\356\334\357\360\361!\362\"\312$\216\331\363\326\334!\327\312!\364\365\366!$-\262\266\206)\207" [major-mode org-columns-current-fmt-compiled inhibit-read-only org-columns-current-maxwidths org-columns-map org-columns-overlays beginning-of-line looking-at "\\(\\**\\)\\(\\* \\)" org-get-level-face 2 org-agenda-mode face get-text-property point-at-bol default :foreground face-attribute :height :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" buffer-undo-list inhibit-modification-hooks] 34 (#$ . 10973)])
91 #@74 Truncate STRING with WIDTH characters, with ellipses.
92
93 (fn STRING WIDTH)
94 (defalias 'org-columns-add-ellipses #[514 "GX\203    \207\211GX\203\301O\207\301GZOP\207" [org-columns-ellipses 0] 6 (#$ . 13030)])
95 #@71 The full header line format, will be shifted by horizontal scrolling.
96 (defvar org-columns-full-header-line-format nil (#$ . 13251))
97 #@58 The header line format before column view was turned on.
98 (defvar org-previous-header-line-format nil (#$ . 13389))
99 #@56 Inhibit recomputing of columns on column view startup.
100 (defvar org-columns-inhibit-recalculation nil (#$ . 13510))
101 #@162 Remember the state of `flyspell-mode' before column view.
102 Flyspell-mode can cause problems in columns view, so it is turned off
103 for the duration of the command.
104 (defvar org-columns-flyspell-was-active nil (#$ . 13632))
105 (defvar org-columns-previous-hscroll 0)
106 #@67 Overlay the newline before the current line with the table title.
107 (defalias 'org-columns--display-here-title #[0 "\306\307\211\203A\211@\211:\2036\211@A\211:\2034\211@\211    H\310\311\211#\n\310\206.\"P\262 \266\266T\262A\266\202\202\210\312\303!\210\n\313\314\315\316\317$\313\307\320O\315\321\322$P\320\323\324\325\315\326$\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 "" 0 format "%%-%d.%ds | " make-local-variable org-add-props " " nil display (space :align-to 0) -1 face org-column-title add-hook post-command-hook org-columns-hscroll-title local] 15 (#$ . 13897) nil])
108 #@71 Set the `header-line-format' so that it scrolls along with the table.
109 (defalias 'org-columns-hscroll-title #[0 "\303\304!\210\305 U?\205    \306\307O    \305 T\310OP\305 \311 \207" [org-columns-previous-hscroll org-columns-full-header-line-format header-line-format sit-for 0.0001 window-hscroll 0 1 nil force-mode-line-update] 4 (#$ . 14642)])
110 #@56 Remember the value of `truncate-lines' across colview.
111 (defvar org-colview-initial-truncate-line-value nil (#$ . 14992))
112 #@46 Remove all currently active column overlays.
113 (defalias 'org-columns-remove-overlays #[0 "\205b\306\301!\203    \307\301!\210\310\311\312\313#\210 \314\211\223\210\315\f!\203&\f\314\211\223\210\316 \317\211\317\320\321\322\323\324!\325\"\326$\216\327\330\"\210\314\317\331ed\332#\210-\210 \203W\333\334!\210\306\335!\205b\211!\207" [org-columns-overlays org-previous-header-line-format header-line-format org-columns-begin-marker org-columns-top-level-marker buffer-undo-list 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 inhibit-read-only inhibit-modification-hooks org-columns-flyspell-was-active truncate-lines] 8 (#$ . 15119) nil])
114 #@55 Replace [[link][desc]] with [desc] or [link].
115
116 (fn S)
117 (defalias 'org-columns-compact-links #[257 "\301\"\203!\302\303\304\305\225\203\305\202\306\"\307Q\310\211$\262\202\207" [org-bracket-link-regexp string-match replace-match "[" match-string 3 1 "]" t] 6 (#$ . 16070)])
118 #@38 Show the full value of the property.
119 (defalias 'org-columns-show-value #[0 "\300`\301\"\302\303\206 \304\"\207" [get-char-property org-columns-value message "Value is: %s" ""] 4 (#$ . 16360) nil])
120 #@65 Remove the column overlays and in this way exit column editing.
121 (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 (#$ . 16565) nil])
122 #@53 Throw an error if current column value is computed.
123 (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 (#$ . 17226)])
124 #@63 Change the TODO state during column view.
125
126 (fn &optional ARG)
127 (defalias 'org-columns-todo #[256 "\300\301!\207" [org-columns-edit-value "TODO"] 3 (#$ . 17558) "P"])
128 #@81 Toggle checkbox at point, or set tags for current headline.
129
130 (fn &optional ARG)
131 (defalias 'org-columns-set-tags-or-toggle #[256 "\300\301\302`\303\"\"\203 \304 \207\305\306!\207" [string-match "\\`\\[[ xX-]\\]\\'" get-char-property org-columns-value org-columns-next-allowed-value org-columns-edit-value "TAGS"] 6 (#$ . 17729) "P"])
132 #@116 When set, overrides any other format definition for the agenda.
133 Don't set this, this is meant for dynamic scoping.
134 (defvar org-agenda-overriding-columns-format nil (#$ . 18070))
135 #@144 Edit the value of the property at point in column view.
136 Where possible, use the standard interface for changing this line.
137
138 (fn &optional KEY)
139 (defalias 'org-columns-edit-value #[256 "\306 \210i\307 \310 \311\312\"\206`\206\313`\314\"\315\316 !\211\317\267\202\222\320\321!\202\342\322\323\324\325\326!\327\"\330$\202\342\322\323\331\325\326!\332\"\330$\202\342\322\323\331\325\326!\333\"\330$\202\342\322\323\334\325\326!\335\"\330$\202\342\322\323\331\325\326!\336\"\330$\202\342\322\323\331\325\326!\337\"\330$\202\342\322\323\331\325\326!\340\"\330$\202\342\341\342#\313`\343\"\204\246\344\345\"\202\264\346\347\350\311\323\351@@#?$\350\352\203\276\353\202\277\354\355\352\356\355##\266\202\211\232?\205\340\322\323\357\325\326        #\360\"\361$\266\203\211?\206F    \362\267\202    \363!\210\n\364!r\211q\210\365\366 !)C\367 *\262\202F\370\371 \370\211@\370A\322\323\372\325\326!\373\"\374$\216\375eS]\376#\210,\210\363!\210)\350B\377 \210)\201C!\210\201D!)\207" [org-columns--time major-mode org-columns-current-fmt org-agenda-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 current-time #s(hash-table size 8 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("CLOCKSUM" 35 "ITEM" 41 "TODO" 56 "PRIORITY" 71 "TAGS" 86 "DEADLINE" 101 "SCHEDULED" 116 "BEAMER_ENV" 131)) 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] [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 #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (org-agenda-mode 237)) 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 buffer-undo-list inhibit-modification-hooks org-columns-inhibit-recalculation org-columns-update org-move-to-column] 18 (#$ . 18255) nil])
140 #@59 Edit the list of allowed values for the current property.
141 (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 (#$ . 21264) nil])
142 #@109 Call function FUN while preserving heading visibility.
143 FUN is a function called with no argument.
144
145 (fn FUN)
146 (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 (#$ . 21823)])
147 #@55 Switch to the previous allowed value for this column.
148 (defalias 'org-columns-previous-allowed-value #[0 "\300\301!\207" [org-columns-next-allowed-value t] 2 (#$ . 22218) nil])
149 #@172 Switch to the next allowed value for this column.
150 When PREVIOUS is set, go to the previous value.  When NTH is
151 an integer, select that value.
152
153 (fn &optional PREVIOUS NTH)
154 (defalias 'org-columns-next-allowed-value #[512 "\306 \210i\307`\310\"\307`\311\"\312\313 \314\"\206`\315\"\206d8\211:\205\\\211A\211:\205Z\211A\211:\205X\211A\211:\205V\211@\211\316\235\205TA\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\267\202\350!\210\n\351!r\211q\210\352\353 !)C\354 *\262\2021\355\356\357\341!\357 \360#\210\350!\210)\3615\362 \210)\363!\210\364!\266\203\207" [org-columns-current-fmt-compiled major-mode org-columns-current-fmt org-agenda-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 #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (org-agenda-mode 245)) 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 (#$ . 22401) nil])
155 #@215 Construct a list of three dates around the date in S.
156 This respects the format of the time stamp in S, active or non-active,
157 and also including time or not.  S must be just a time stamp, no text
158 around it.
159
160 (fn S)
161 (defalias 'org-colview-construct-allowed-dates #[257 "\211\205\226\302\303\304Q\"\205\226\305\306\"\307!\310\232A@\203!\311\202\"\312    !C\313\211\2046\314\242\315\316O\317Q\240\210\211\211@\206>\320\240\266A\211A@\206L\320\240\266AA\211\3218\206[\320\240\266\322!\262\322!\262\323\233\211\3238S\240\266\323\233\211\3238T\240\266\324\325\326\327\330\331!\332\"\333\334%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 "[" 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 (#$ . 24511)])
162 #@22 
163
164 (fn &optional ARG)
165 (defalias 'org-columns-open-link #[256 "\300`\301\"\302\"\207" [get-char-property org-columns-value org-open-link-from-string] 5 (#$ . 25461) "P"])
166 (defalias 'org-columns-get-format-and-top-level #[0 "\300 \301 \210\211\207" [org-columns-get-format org-columns-goto-top-level] 2])
167 #@241 Return columns format specifications.
168 When optional argument FMT-STRING is non-nil, use it as the
169 current specifications.  This function also sets
170 `org-columns-current-fmt-compiled' and
171 `org-columns-current-fmt'.
172
173 (fn &optional FMT-STRING)
174 (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 (#$ . 25772) nil])
175 #@110 Move to the beginning of the column view area.
176 Also sets `org-columns-top-level-marker' to the new position.
177 (defalias 'org-columns-goto-top-level #[0 "\302!\204    \303 \304 \203e\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 (#$ . 26521)])
178 #@466 Turn on column view on an Org mode file.
179
180 Column view applies to the whole buffer if point is before the
181 first headline.  Otherwise, it applies to the first ancestor
182 setting "COLUMNS" property.  If there is none, it defaults to
183 the current headline.  With a `\[universal-argument]' prefix argument, turn on column
184 view for the whole buffer unconditionally.
185
186 When COLUMNS-FMT-STRING is non-nil, use it as the column format.
187
188 (fn &optional GLOBAL COLUMNS-FMT-STRING)
189 (defalias 'org-columns #[512 "\306 \210\203\neb\210\307!\203`\310\223\210\202\311 \312 \210\313\314 !\315!\210\n\204.\316 \210\212\214\204@\317 \203@`\320\321\211\"}\210\322\323 \"\203J\324 \210\322\325 \"\203T\326 \210\327\330\310\211\f\205]\331$\211\205\250\332!\210\333 \210\334\335!\210\336\305!\205t \211\203~\305\337!\210\340\341!\204\214\334\341!\210#!\321#\211\211\205\246\211@\211@b\210\342A!\210A\266\202\202\220\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 current-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 (#$ . 26951) "P"])
190 #@387 Insert a new column, to the left of the current column.
191 Interactively fill attributes for new column.  When column format
192 specification SPEC is provided, edit it instead.
193
194 When optional argument attributes can be a list of columns
195 specifications attributes to create the new column
196 non-interactively.  See `org-columns-compile-format' for
197 details.
198
199 (fn &optional SPEC &rest ATTRIBUTES)
200 (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\211i\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 (#$ . 28616) nil])
201 #@47 Delete the column at point from columns view.
202 (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 (#$ . 29830) nil])
203 #@44 Edit the attributes of the current column.
204 (defalias 'org-columns-edit-attributes #[0 "\301i8!\207" [org-columns-current-fmt-compiled org-columns-new] 3 (#$ . 30202) nil])
205 #@52 Make the column wider by ARG characters.
206
207 (fn ARG)
208 (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 (#$ . 30381) "p"])
209 #@55 Make the column narrower by ARG characters.
210
211 (fn ARG)
212 (defalias 'org-columns-narrow #[257 "\300[!\207" [org-columns-widen] 3 (#$ . 30702) "p"])
213 #@45 Swap this column with the one to the right.
214 (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 (#$ . 30853) nil])
215 #@44 Swap this column with the one to the left.
216 (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 (#$ . 31245) nil])
217 #@202 Store the text version of the current columns format.
218 The format is stored either in the COLUMNS property of the node
219 starting the current column display, or in a #+COLUMNS line of
220 the current buffer.
221 (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\240eb\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\202Beb\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 (#$ . 31495)])
222 #@75 Recompute PROPERTY, and update the columns display for it.
223
224 (fn PROPERTY)
225 (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 (#$ . 32808)])
226 #@37 Construct the column display again.
227 (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 (#$ . 33591) nil])
228 #@162 Turn the compiled columns format back into a string representation.
229 COMPILED is an alist, as returned by
230 `org-columns-compile-format', which see.
231
232 (fn COMPILED)
233 (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 (#$ . 34127)])
234 #@533 Turn a column format string FMT into an alist of specifications.
235
236 The alist has one entry for each column in the format.  The elements of
237 that list are:
238 property    the property name, as an upper-case string
239 title       the title field for the columns, as a string
240 width       the column width in characters, can be nil for automatic width
241 operator    the summary operator, as a string, or nil
242 printf      a printf format for computed values, as a string, or nil
243
244 This function updates `org-columns-current-fmt-compiled'.
245
246 (fn FMT)
247 (defalias 'org-columns-compile-format #[257 "\301\302\303\304#\203c\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\"\203P\302\225\301O\262\302\211\224O\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 ";"] 12 (#$ . 34757)])
248 #@203 Turn age string S into a number of minutes.
249 An age is either computed from a given time-stamp, or indicated
250 as a canonical duration, i.e., using units defined in
251 `org-duration-canonical-units'.
252
253 (fn S)
254 (defalias 'org-columns--age-to-minutes #[257 "\303\304\305#)\266\203\203\n\306\307\310\311!\"!Z\312\245\207\313!\203(\314\304\"\207\315\316\"\207" [org-ts-regexp inhibit-changing-match-data org-columns--time nil t string-match float-time apply encode-time org-parse-time-string 60 org-duration-p org-duration-to-minutes user-error "Invalid age: %S"] 8 (#$ . 35826)])
255 #@54 Format MINUTES float as an age string.
256
257 (fn MINUTES)
258 (defalias 'org-columns--format-age #[257 "\300\301\302#\207" [org-duration-from-minutes (("d") ("h") ("min")) t] 5 (#$ . 36414)])
259 #@82 Apply FUN to time values TIMES.
260 Return the result as a duration.
261
262 (fn FUN TIMES)
263 (defalias 'org-columns--summary-apply-times #[514 "\300\301\302\303\"\"\304!\"\207" [org-duration-from-minutes apply mapcar #[257 "\301\302\303\304#)\266\203\203\305!\306_\207\307!\207" [inhibit-changing-match-data "\\`[0-9]+\\(?:\\.[0-9]*\\)?\\'" nil t string-match string-to-number 60 org-duration-to-minutes] 8 "\n\n(fn TIME)"] org-duration-h:mm-only-p] 8 (#$ . 36604)])
264 #@209 Update tree according to SPEC.
265 SPEC is a column format specification.  When optional argument
266 UPDATE is non-nil, summarized values can replace existing ones in
267 properties drawers.
268
269 (fn SPEC &optional UPDATE)
270 (defalias 'org-columns--compute-spec #[513 "\306\300!\203\203\202\307\310T\311\"\312\211@\3138\314\315\n8!\212\214~\210    b\210\31616\317\320!0\2028\210db\210\321\n    \320#\205K\312U\204Q=\204Q\262\322\323 !\262\312\224\324\311\"\325!W\2034\205\214\326    U?\205{\nH \nH\"\211\205\212\"\262\211\203\374\327\330\"\331\"\211\203\244\211\241\210\202\315BB\262\332 \320\211\320\333\312\334\335\336!\337\"\340$\216\341\211T\330D#\210,\210\266\211\311\342\203\332\343\202\333\344\345\342\346\345##\266\202 \203\373\203\373\232\204\373\347`    #\210\210\211\204\203\211\206      HBI\266    T\fX\203/\f\311I\210T\262\202\266\202F\211\203F        HBI\266\266\202:*\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 org-columns--summarize 3 (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] 24 (#$ . 37078)])
271 #@151 Summarize the values of PROPERTY hierarchically.
272 Also update existing values for PROPERTY according to the first
273 column specification.
274
275 (fn PROPERTY)
276 (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 (#$ . 38649) nil])
277 #@50 Compute all columns that have operators defined.
278 (defalias 'org-columns-compute-all #[0 "\305 \306\211\306\307\310\311\312\313!\314\"\315$\216\316ed\317#\210,\210\320\321 !\322\f\211\205B\211@\211@\323\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 current-time nil org-columns--compute-spec] 10 (#$ . 39044)])
279 #@101 Compute the sum of VALUES.
280 When PRINTF is non-nil, use it to format the result.
281
282 (fn VALUES PRINTF)
283 (defalias 'org-columns--summary-sum #[514 "\300\206\301\302\303\304\305\"\"\"\207" [format "%s" apply + mapcar string-to-number] 9 (#$ . 39658)])
284 #@62 Compute the sum of VALUES, with two decimals.
285
286 (fn VALUES _)
287 (defalias 'org-columns--summary-currencies #[514 "\300\301\302\303\304\305\"\"\"\207" [format "%.2f" apply + mapcar string-to-number] 9 (#$ . 39915)])
288 #@61 Summarize CHECK-BOXES with a check-box.
289
290 (fn CHECK-BOXES _)
291 (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 (#$ . 40135)])
292 #@68 Summarize CHECK-BOXES with a check-box cookie.
293
294 (fn CHECK-BOXES _)
295 (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 (#$ . 40380)])
296 #@69 Summarize CHECK-BOXES with a check-box percent.
297
298 (fn CHECK-BOXES _)
299 (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 (#$ . 40740)])
300 #@105 Compute the minimum of VALUES.
301 When PRINTF is non-nil, use it to format the result.
302
303 (fn VALUES PRINTF)
304 (defalias 'org-columns--summary-min #[514 "\300\206\301\302\303\304\305\"\"\"\207" [format "%s" apply min mapcar string-to-number] 9 (#$ . 41031)])
305 #@105 Compute the maximum of VALUES.
306 When PRINTF is non-nil, use it to format the result.
307
308 (fn VALUES PRINTF)
309 (defalias 'org-columns--summary-max #[514 "\300\206\301\302\303\304\305\"\"\"\207" [format "%s" apply max mapcar string-to-number] 9 (#$ . 41295)])
310 #@102 Compute the mean of VALUES.
311 When PRINTF is non-nil, use it to format the result.
312
313 (fn VALUES PRINTF)
314 (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 (#$ . 41559)])
315 #@26 Sum TIMES.
316
317 (fn TIMES _)
318 (defalias 'org-columns--summary-sum-times #[514 "\300\301\"\207" [org-columns--summary-apply-times +] 5 (#$ . 41835)])
319 #@53 Compute the minimum time among TIMES.
320
321 (fn TIMES _)
322 (defalias 'org-columns--summary-min-time #[514 "\300\301\"\207" [org-columns--summary-apply-times min] 5 (#$ . 41986)])
323 #@53 Compute the maximum time among TIMES.
324
325 (fn TIMES _)
326 (defalias 'org-columns--summary-max-time #[514 "\300\301\"\207" [org-columns--summary-apply-times max] 5 (#$ . 42165)])
327 #@50 Compute the mean time among TIMES.
328
329 (fn TIMES _)
330 (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 (#$ . 42344)])
331 #@51 Compute the minimum time among AGES.
332
333 (fn AGES _)
334 (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 (#$ . 42595)])
335 #@51 Compute the maximum time among AGES.
336
337 (fn AGES _)
338 (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 (#$ . 42819)])
339 #@51 Compute the minimum time among AGES.
340
341 (fn AGES _)
342 (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 (#$ . 43043)])
343 #@196 Combine a list of estimates, using mean and variance.
344 The mean and variance of the result will be the sum of the means
345 and variances (respectively) of the individual estimates.
346
347 (fn ESTIMATES _)
348 (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 (#$ . 43284)])
349 #@485 Get the column view of the current buffer.
350
351 MAXLEVEL sets the level limit.  SKIP-EMPTY tells whether to skip
352 empty rows, an empty row being one where all the column view
353 specifiers but ITEM are empty.  FORMAT is a format string for
354 columns, or nil.  When LOCAL is non-nil, only capture headings in
355 current subtree.
356
357 This function returns a list containing the title row and all
358 other rows.  Each row is a list of fields, as strings, or
359 `hline'.
360
361 (fn MAXLEVEL SKIP-EMPTY FORMAT LOCAL)
362 (defalias 'org-columns--capture-view #[1028 "\302?\"\210b\210    G\303\304    \"\305C\306\307\310\311\312\313             $\314\"\315$\205.\316\317\n\"\2054\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 "\304`\305\"\205d\306\301\307\211W\2037\211\310 \\\304\305\"\311\304\312\230\203&\313\202'\314\"!B\262\266\211T\262\202\n\266\300\205R\315\316\317\"!\211?\206P\302\205P\211G\320U\262?\205b\303\321\322 !\237B\303\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 org-reduced-level org-current-level] 11 format "LEVEL<=%d" tree archive comment org-columns-quit mapcar cadr hline] 17 (#$ . 43916)])
363 #@197 Remove sensitive contents from string ITEM.
364 This includes objects that may not be duplicated within
365 a document, e.g., a target, or those forbidden in tables, e.g.,
366 an inline src-block.
367
368 (fn ITEM)
369 (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 (#$ . 45304)])
370 #@1057 Write the column view table.
371 PARAMS is a property list of parameters:
372
373 :id       the :ID: property of the entry where the columns view
374       should be built.  When the symbol `local', call locally.
375       When `global' call column view with the cursor at the beginning
376       of the buffer (usually this means that the whole buffer switches
377       to column view).  When "file:path/to/file.org", invoke column
378       view at the start of that file.  Otherwise, the ID is located
379       using `org-id-find'.
380 :hlines   When t, insert a hline before each item.  When a number, insert
381       a hline before each level <= that number.
382 :indent   When non-nil, indent each ITEM field according to its level.
383 :vlines   When t, make each column a colgroup to enforce vertical lines.
384 :maxlevel When set to a number, don't capture headlines below this level.
385 :skip-empty-rows
386       When t, skip rows where all specifiers other than ITEM are empty.
387 :width    apply widths specified in columns format using <N> specifiers.
388 :format   When non-nil, specify the column view format to use.
389
390 (fn PARAMS)
391 (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!\202wpq\210\212\214~\210\211\203\204\211b\210\325\303\326\"\303\327\"\303\330\"$+\266\203\211\205\310\331\332\"\211\205\252\333\334\335$\262\303\336\"\303\337\"\305\211A\262\242B\262\211A\262\242B\262\211\203,\211@\211@@\340=\204\360\341=\204\353\247\203\360\211X\203\360\340B\262\203\342A8!A\233\211\203\315V\203\343\344S\345_\346\"Q\202\240\266AB\262\210A\266\202\202\312\237\266\206\303\347\"\203A\350\351\352\"C\"\262\303\353\"\203[G\350\351\354\"\355\356\357\"BC\"\262\262\360\303\361\"\362\"\305\203\205\363@\305\341\312#)\266\203\203\205\211A\262\242\362\261\210\202g\212\364\365\362#c\210\341\211\203\271\211@\366\305\341\312#)\266\203\203\262\362\261\210\204\262\341\262A\266\202\202\220\210*\211\203\304\367\370\341\"\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 :skip-empty-rows :format assoc "ITEM" cl-position :test equal :hlines :indent hline t org-columns--clean-item "\\_" make-string 2 32 :width append mapcar #[257 "\3008\211\203\301\302\303]\"\202\304\207" [2 format "<%d>" 3 #1=""] 6 "\n\n(fn SPEC)"] :vlines #[257 "\211\300=\203\207\301B\207" [hline #1#] 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 (#$ . 45976)])
392 #@55 Create a dynamic block capturing a column view table.
393 (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 (#$ . 49185) nil])
394 #@46 Turn on or update column view in the agenda.
395 (defalias 'org-agenda-columns #[0 "\306 \210\307!\203`\310\223\210\202\311 \312\313 !\314\302!\203#\n\206r\315\316\317 \"\262\211\205?\320\321\322#\206?r\323!q\210 )\262\206r\324\304!\203N\f\206r\325e\315\"\211\205l\316\315\"\320\321\322#\206jr\323!q\210 )\262\262\206r \326! \203\200\327\"!\210\212eb\210\310m\204\301\315\316\317 \"\262\211\203\272\330 \212\307!\203\244\323!q\210\212\214~\210\211\206\255`b\210\331!+\262BB\262\210\310y\210\202\205\211\205\332!\210\333 \210\334\335!\210\314\336!\205\330\211\203\342\336\337!\210\211\211\203\371\211@\211@b\210\340A!\210A\266\202\202\343\210#\205\341!\262*\207" [org-columns-begin-marker org-columns--time org-agenda-overriding-columns-format org-columns-default-format org-columns-current-fmt org-agenda-columns-compute-summary-properties org-columns-remove-overlays markerp nil point-marker float-time current-time boundp org-hd-marker get-text-property point-at-bol org-entry-get "COLUMNS" t marker-buffer local-variable-p 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-colview-summarize org-columns-current-fmt-compiled org-agenda-columns-show-summaries] 8 (#$ . 49706) nil])
396 #@154 Summarize the summarizable columns in column view in the agenda.
397 This will add overlays to the date lines, to show the summary for each day.
398
399 (fn CACHE)
400 (defalias 'org-agenda-colview-summarize #[257 "\302\303\"\304\305\"\205\203db\210\3062\203\307`\310\"\204\"\307`\311\"\312=\203q\313C\313\211\203I\211@\211@`V\203=\242B\240\210\202B\211B\262A\266\202\202&\210\262\211\302\314\242\"\240\203p\315\302\316\317\320\321\322!\323\"\324\325%\"\326\"\210\327\301!\210\330\210o\203}\331\306\330\"\210\202\332y\210\202\207" [org-columns-current-fmt-compiled org-agenda-columns-active 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\251A\211:\205\247\211A\211:\205\245\211A\211:\205\243\211@\211\204PA\211:\205K\211A\211?\205I\304\211E\262\262\202\241A\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 make-local-variable t throw -1] 11 (#$ . 51202)])
401 #@76 Compute the relevant columns in the contributing source buffers.
402
403 (fn FMT)
404 (defalias 'org-agenda-colview-compute #[257 "\211\205\207\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\203}\211@\211@\211\323\232\203O\324 \210\202u\211\325\232\203[\326 \210\202u\3278\203u\330\f\"\3278\3278\232\262\203u\331!\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 "CLOCKSUM" org-clock-sum "CLOCKSUM_T" org-clock-sum-today 3 assoc org-columns-compute] 12 (#$ . 52956)])
405 (provide 'org-colview)