;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:01 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-colview.el
;;; in Emacs version 24.3.1
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'org)
#@44 Holds the list of current column overlays.
(defvar org-columns-overlays nil (#$ . 573))
#@59 Local variable, holds the currently active column format.
(defvar org-columns-current-fmt nil (#$ . 667))
(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 (#$ . 834))
(make-variable-buffer-local 'org-columns-current-fmt-compiled)
#@55 Loval variable, holds the currently widths of fields.
(defvar org-columns-current-widths nil (#$ . 1062))
(make-variable-buffer-local 'org-columns-current-widths)
#@67 Loval variable, holds the currently active maximum column widths.
(defvar org-columns-current-maxwidths nil (#$ . 1231))
(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 (make-marker) (#$ . 1418))
#@61 Points to the position where current columns region starts.
(defvar org-columns-top-level-marker (make-marker) (#$ . 1556))
#@37 The keymap valid in column display.
(defvar org-columns-map (make-sparse-keymap) (#$ . 1686))
#@48 Switch to contents view while in columns view.
(defalias 'org-columns-content #[nil "\300 \210\301 \207" [org-overview org-content] 1 (#$ . 1786) nil])
(byte-code "\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\325#\210\303\327\330#\210\303\331\330#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\347#\210\303\351\352#\210\303\353\352#\210\303\354\355#\210\303\356\357#\210\303\360\361#\210\303\362\363#\210\303\364\365#\210\303\366\367#\210\370\371	\nW\203\310\303\372	!\373\374\375\347\374	EF#\210	T\211\202\255*\374\207" [org-columns-map i --dotimes-limit-- 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" #[nil "`Tb\207" #1=[] 1 nil nil] [right] #[nil "`Tb\207" #1# 1 nil nil] [down] #[nil "i\302\303!\210\304 \203m\204\302\303!\210\202\305!\210	\306=\205\"\307 )\207" [col major-mode beginning-of-line 2 org-invisible-p2 move-to-column org-agenda-mode org-agenda-do-context-action] 2 nil nil] [up] #[nil "i\302\303!\210\304 \203o\204\302\303!\210\202\305!\210	\306=\205\"\307 )\207" [col major-mode beginning-of-line 0 org-invisible-p2 move-to-column org-agenda-mode org-agenda-do-context-action] 2 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)] 10)
#@17 Org Column Menu
(defvar org-columns-menu nil (#$ . 3793))
(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]))
#@53 Create a new column overlay and add it to the list.
(defalias 'org-columns-new-overlay #[(beg end &optional string face) "\306	\"\307\n\303\206
\310#\210\311\312\fG\313\f$\210\314\n\f#\210\n
B\n)\207" [beg end ov face string org-columns-overlays make-overlay overlay-put secondary-selection remove-text-properties 0 (face nil) org-overlay-display] 5 (#$ . 4717)])
#@47 Overlay the current line with column display.
(defalias 'org-columns-display-here #[(&optional props dateline) "\306 \212\307\310!\210\311\312!\205\313\314!)\211\206(\f\315=\203'\316\306 \317\"\206(\320\321\322
\321\"D\211@\323
E@\324
EA\316\306 \325\"B\326\211CD\326\211EF\326\211GH\326\211IJ\326\211KL\326\211MN\326OP\204\224\f\315=\203\217\327\330!\206\200\327\331!\211C\205\212\332C!P\202\224\332\326!P	\211A@\211J\203\nJ@DJA@ND\333\232\203\333\333\334\335!\203\312\336 Q\337\216\340\341\306 \342 \"!*\202\327\327\343!\206\327\341`\326\210`\"B\202\341\344DP\"E\344DR\"A\206\367\314J8\206\367DGF\345\346F\211#G\347J8OEA\206
\350KS\203&
\351S!\203&
SNK\"\202k
D\333\232\203<
\352K\2068
B#\202k
O\205k
\351O!\205k
K\350\230?\205k
\316\353\354K#?\205k
\355O\356K\357J8\"!\357J8\"L\360L\206u
KF\"M\345GM\"H\361\362 \363\211TU\364\n\211T\211HV\203\235
A\202\237
$I\365I\366W#\210\365I\367D#\210\365I\370EA#\210\365I\371L#\210\365I\372C#\210\365I\373G#\210\365I\374\350#\210\365I\375\350#\210*!\210\nf\203\360
\nf\376\232\203\224\363X\212\nb\210\361\362 \363\211TU\377c\210*!\210*\202\224\361\362 \363\211TU\364\n\342 \"I\365I\201Z\363#\210\365I\366W#\210\365I\201[\363#\210\365I\374\350#\210\365I\375\350#\210IYBY\201\\\342 S\342 T\"I\365I\366W#\210IYBY\363X\201]e\306 S]d\342 T^\201^\201_$\210+!.\207" [org-columns-current-fmt-compiled fmt beg level-face major-mode ref-face point-at-bol beginning-of-line 1 looking-at "\\(\\**\\)\\(\\* \\)" org-get-level-face 2 org-agenda-mode get-text-property face default :foreground face-attribute org-column org-agenda-column-dateline org-complex-heading-regexp nil org-get-at-bol org-hd-marker org-marker org-entry-properties "ITEM" derived-mode-p org-mode match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-remove-tabs buffer-substring-no-properties point-at-eol txt assoc format "%%-%d.%ds | " 7 "" functionp org-columns-cleanup-item 0 org-computed org-columns-number-to-string org-columns-string-to-number 4 org-columns-add-ellipses set-buffer-modified-p buffer-modified-p t org-columns-new-overlay overlay-put keymap org-columns-key org-columns-value org-columns-value-modified org-columns-pom org-columns-format line-prefix wrap-prefix 10 " " color face1 cphr pom property ass width f string ov column val modval s2 title calc props save-match-data-internal org-columns-current-maxwidths org-columns-modify-value-for-display-function inhibit-modification-hooks buffer-undo-list dateline org-columns-map inhibit-read-only org-columns-overlays invisible intangible make-overlay put-text-property read-only "Type `e' to edit property"] 8 (#$ . 5093) nil])
#@55 Truncate STRING with WIDTH characters, with ellipses.
(defalias 'org-columns-add-ellipses #[(string width) "G	X\203	\207	\nGX\203\n\303	O\207\303	\nGZO\nP\207" [string width org-columns-ellipses 0] 4 (#$ . 7899)])
#@71 The full header line format, will be shifted by horizontal scrolling.
(defvar org-columns-full-header-line-format nil (#$ . 8125))
#@58 The header line format before column view was turned on.
(defvar org-previous-header-line-format nil (#$ . 8262))
#@56 Inhibit recomputing of columns on column view startup.
(defvar org-columns-inhibit-recalculation nil (#$ . 8382))
#@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 (#$ . 8503))
(defvar org-columns-previous-hscroll 0)
#@67 Overlay the newline before the current line with the table title.
(defalias 'org-columns-display-here-title #[nil "\306\307\306\211\211\211\211\211\211A@\211\203^@A@\206.\310\"A\206A\3118\206A\nG\211	B\211\312\313
\211#\312\f\n\"P\202\314\315\306\316\317$\314\306\320\321$P\322 !\323!! L\210*\324	\237 !\323!! L\210*\"\325#\326\327\330\306\331$.	\207" [org-columns-current-fmt-compiled widths str column f width nil "" assoc 2 format "%%-%d.%ds | " org-add-props " " display (space :align-to 0) face org-column-title org-previous-header-line-format make-local-variable org-columns-current-widths -1 org-add-hook post-command-hook org-columns-hscoll-title local property title string fmt org-columns-current-maxwidths header-line-format value var org-columns-full-header-line-format org-columns-previous-hscroll] 10 (#$ . 8767) nil])
#@71 Set the `header-line-format' so that it scrolls along with the table.
(defalias 'org-columns-hscoll-title #[nil "\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 (#$ . 9673)])
#@56 Remember the value of `truncate-lines' across colview.
(defvar org-colview-initial-truncate-line-value nil (#$ . 10023))
#@46 Remove all currently active column overlays.
(defalias 'org-columns-remove-overlays #[nil "\306!\205Yr\306!q\210\307\301!\203	\310\301!\210\311\312\313\314#\210\315\211\223\210\315\211\223\210\316\317 \320\211\321\322\"\210\315\320\323ed\324#\210+!\210\203M\325\326!\210\307\327!\205X\211)\207" [org-columns-begin-marker org-previous-header-line-format header-line-format org-columns-top-level-marker inhibit-modification-hooks buffer-undo-list marker-buffer local-variable-p kill-local-variable remove-hook post-command-hook org-columns-hscoll-title local nil set-buffer-modified-p buffer-modified-p t mapc delete-overlay remove-text-properties (read-only t) flyspell-mode 1 org-colview-initial-truncate-line-value org-columns-overlays inhibit-read-only org-columns-flyspell-was-active truncate-lines] 6 (#$ . 10150) nil])
#@114 Remove from ITEM what is a column in the format FMT.
CPHR is the complex heading regexp to use for parsing ITEM.
(defalias 'org-columns-cleanup-item #[(item fmt cphr) "\305	\204\n\n\202\241\306\307\n\"\204\310\nP\311\306	\n\"\203\200\312\313\314\n\"\305\315\316\314\225\314\224Z!S\317_$\317\225\205C\320\321\"?\205C\322\313\317\n\"P\323\225\205V\320\324\"?\205V\322\313\323\n\"P\322\325 \326\216\327\313\330\n\"\206e\331!*\332\225\205z\320\333\"?\205z\322\313\332\n\"P\260\202\224\334\335\314\225T\315\316\314\225\314\224Z!S\317_D\n$\210\203\240\336\307\331\n#\202\241\n)\207" [fixitem cphr item fmt save-match-data-internal nil string-match "^*+ " "* " t org-add-props match-string 1 org-whitespace org-reduced-level 2 assoc "TODO" " " 3 "PRIORITY" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-columns-compact-links 4 "" 5 "TAGS" add-text-properties 0 replace-regexp-in-string] 9 (#$ . 11005)])
#@47 Replace [[link][desc]] with [desc] or [link].
(defalias 'org-columns-compact-links #[(s) "\302	\"\203 \303\304\305\306\225\203\306\202\307	\"\310Q\311\211	$\202	\207" [org-bracket-link-regexp s string-match replace-match "[" match-string 3 1 "]" t] 5 (#$ . 11988)])
#@38 Show the full value of the property.
(defalias 'org-columns-show-value #[nil "\301`\302\"\303\304\206\f\305\")\207" [value get-char-property org-columns-value message "Value is: %s" ""] 3 (#$ . 12269) nil])
#@65 Remove the column overlays and in this way exit column editing.
(defalias 'org-columns-quit #[nil "\305\306 \307\211\310 \210\307\311ed\312#\210+!\210\313=\205 \314\315\316!\207" [inhibit-modification-hooks buffer-undo-list inhibit-read-only major-mode org-agenda-columns-active set-buffer-modified-p buffer-modified-p t 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"] 6 (#$ . 12485) nil])
#@113 Check if this column value is computed.
If yes, throw an error indicating that changing it does not make sense.
(defalias 'org-columns-check-computed #[nil "\301`\302\"\211;\205\301\303\304#\205\305\306!)\207" [val get-char-property org-columns-value 0 org-computed error "This value is computed from the entry's children"] 5 (#$ . 13004)])
#@43 Change the TODO state during column view.
(defalias 'org-columns-todo #[(&optional arg) "\300\301!\207" [org-columns-edit-value "TODO"] 2 (#$ . 13357) "P"])
#@61 Toggle checkbox at point, or set tags for current headline.
(defalias 'org-columns-set-tags-or-toggle #[(&optional arg) "\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"] 5 (#$ . 13520) "P"])
#@124 Edit the value of the property at point in column view.
Where possible, use the standard interface for changing this line.
(defalias 'org-columns-edit-value #[(&optional key) "\306 \210i	\206
\307`\310\"\307`\311\"\312 \313 \314\315\"\206!`\316\317\320\321@\"\"A\322\323 !B\317\211CD\317E	\324\232\203H\325\326!\210\202\324	\327\232\203T\330D\202\324	\331\232\203`\332D\202\324	\333\232\203l\334D\202\324	\335\232\203x\336D\202\324	\337\232\203\204\340D\202\324	\341\232\203\220\342D\202\324	\343\232\203\234\344D\202\324\345
	\346#\211E\203\277\347\350E\317\314\351\352E\211F@@)#?$C\202\305\353\354\n\"C\355C!\211C\n\232\204\324\356DD\205N
G\357\232\203

\360D!\210HI\361
!JrJq\210\362\363 !)CK\364 +\202N
\365L\366\367 \365\211MN\370eS]\f\371#\210*!\210\372\216\373A@\"@\374\375A\"\210\360D!\210*\376!\210\377\201P!\205N
\201Q\201R	O\"8\205N
\201S	!.\207" [col key value bol eol pom org-columns-check-computed get-char-property org-columns-key org-columns-value point-at-bol point-at-eol get-text-property org-hd-marker delq nil mapcar #[(x) "\303!p=\205\304!	Y\205\304!\nX\205\207" [x bol eol overlay-buffer overlay-start] 2] time-to-number-of-days current-time "CLOCKSUM" error "This special column cannot be edited" "ITEM" (org-with-point-at pom (org-edit-headline)) "TODO" (org-with-point-at pom (call-interactively 'org-todo)) "PRIORITY" (org-with-point-at pom (call-interactively 'org-priority)) "TAGS" (org-with-point-at pom (let ((org-fast-tag-selection-single-key (if (eq org-fast-tag-selection-single-key 'expert) t org-fast-tag-selection-single-key))) (call-interactively 'org-set-tags))) "DEADLINE" (org-with-point-at pom (call-interactively 'org-deadline)) "SCHEDULED" (org-with-point-at pom (call-interactively 'org-schedule)) "BEAMER_env" (org-with-point-at pom (call-interactively 'org-beamer-select-environment)) org-property-get-allowed-values table org-icompleting-read "Value: " 0 org-unrestricted read-string "Edit: " org-trim (org-entry-put pom key nval) org-agenda-mode org-columns-eval marker-buffer buffer-file-name buffer-base-buffer org-agenda-columns t set-buffer-modified-p buffer-modified-p remove-text-properties (read-only t) ((org-columns-display-here)) org-delete-all mapc delete-overlay org-move-to-column derived-mode-p org-columns-overlays line-overlays org-columns-time nval eval allowed x major-mode org-columns-current-fmt org-agenda-overriding-columns-format buffer org-agenda-contributing-files inhibit-read-only inhibit-modification-hooks buffer-undo-list org-columns-current-fmt-compiled org-mode 3 assoc org-columns-update] 9 (#$ . 13853) nil])
#@65 Edit the current headline, the part without TODO keyword, TAGS.
(defalias 'org-edit-headline #[nil "\306 \210\307!\205J`\310\224\311\224{\312\311!\313\314\315\316\"\203+\312\310\"\310\211\224O\317\320\"	\232?\205I
b\210\f	\n\261\210`\321 |\210\322\314\323\"-\207" [org-todo-line-regexp txt2 post txt pre pos org-back-to-heading looking-at 0 3 match-string "" nil string-match "[ 	]+:[[:alnum:]:_@#%]+:[ 	]*$" read-string "Edit: " point-at-eol org-set-tags t] 5 (#$ . 16535)])
#@59 Edit the list of allowed values for the current property.
(defalias 'org-columns-edit-allowed #[nil "\306\307!\206
\306\310!\206
`\311`\312\"\211\313P\314\n\315#\316\317\320\"\321\322
!\203/
\202<\322!\203;\202<\n\f#-\207" [pom key key1 allowed nval org-entry-property-inherited-from org-get-at-bol org-marker org-hd-marker get-char-property org-columns-key "_ALL" org-entry-get t nil read-string "Allowed: " org-entry-put marker-position org-columns-top-level-marker] 5 (#$ . 17035) nil])
(defalias 'org-columns-eval #[(form) "\302\212\303\304!\210\302\305\306\217\210\307\304!)\310	!\210\205\311 )\207" [hidep form nil beginning-of-line 1 (next-line 1) ((error)) org-at-heading-p eval hide-entry] 3])
#@55 Switch to the previous allowed value for this column.
(defalias 'org-columns-previous-allowed-value #[nil "\300\301!\207" [org-columns-next-allowed-value t] 2 (#$ . 17768) nil])
#@143 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.
(defalias 'org-columns-next-allowed-value #[(&optional previous nth) "\306 \210i\307`\310\"\307`\311\"\312 \313 \314\315\"\206`\316\317\320\3217\"\"8\322
	\"\206B\323\324	9\"8\325>\203?\326\202B\327\n!:\317;<\250\203[<S\211<\330U\203[\331<	\332\232\203e\333\334!\210:\204t	\335\235\204t\333\336!\210	\337\235\203\211=\203\203\340\202\204\341;\202\326=\203\224\342:!:<\203\257<:8\211;\204\326\333\343:G	#\210\202\326\n:\235\203\321\n:\235A@\206\302:@\211;\n\232\203\326\333\344!\210\202\326:@;>\345\232\203\375\346\347!\210?@\350
!ArAq\210\351\352 !)CB\353 +\202-
\354C\355S\f\356#\210\357\216\36087\"7\361\3628\"\210\346\363!\210*\364!\210\365\324	9\"8\205-
\366	!.	\207" [col key value bol eol pom org-columns-check-computed get-char-property org-columns-key org-columns-value point-at-bol point-at-eol get-text-property org-hd-marker delq nil mapcar #[(x) "\303!p=\205\304!	Y\205\304!\nX\205\207" [x bol eol overlay-buffer overlay-start] 2] org-property-get-allowed-values 4 assoc (checkbox checkbox-n-of-m checkbox-percent) ("[ ]" "[X]") org-colview-construct-allowed-dates -1 9 "ITEM" error "Cannot edit item headline from here" ("SCHEDULED" "DEADLINE") "Allowed values for this property have not been defined" ("SCHEDULED" "DEADLINE") earlier later reverse "There are only %d allowed values for property `%s'" "Only one allowed value for this property" org-agenda-mode org-columns-eval (org-entry-put pom key nval) marker-buffer buffer-file-name buffer-base-buffer org-agenda-columns t remove-text-properties (read-only t) ((org-columns-display-here)) org-delete-all mapc delete-overlay (org-entry-put pom key nval) org-move-to-column 3 org-columns-update org-columns-overlays line-overlays org-columns-current-fmt-compiled allowed nval nth previous major-mode org-columns-current-fmt org-agenda-overriding-columns-format buffer org-agenda-contributing-files inhibit-read-only] 6 (#$ . 17953) nil])
#@207 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.
(defalias 'org-colview-construct-allowed-dates #[(s) "\205\225\306\307	\310Q\"\205\225\311\312\"\313!\314\232\nA@\203#\315\202$\316\f!\317\211\2049\320
\321\322O\323Q\n\211\n@\206C\324\240\210)\nA\211\nA@\206R\324\240\210)\nAA\211\325\n8\206b\324\240\210)\326\n!\326\n!\327\233\211\327\n8S\240\210)\327\233\211 \327\n8T\240\210)\330\331\nE\"-\207" [s org-ts-regexp3 time active org-time-stamp-formats fmt string-match "^" "$" org-parse-time-string nodefaults string-to-char 60 cdr car nil "[" 1 -1 "]" 0 2 copy-sequence 3 mapcar #[(x) "\302\303\304	\"\"\207" [fmt x format-time-string apply encode-time] 5] time-before time-after #1=#:v #2=#:c #3=#:c #4=#:c #5=#:c] 6 (#$ . 20086)])
(defalias 'org-verify-version #[(task) "\302=\205	\303W\205\304\305!\207" [task emacs-major-version columns 22 error "Emacs 22 is required for the columns feature"] 2])
(defalias 'org-columns-open-link #[(&optional arg) "\302`\303\"\304	\")\207" [value arg get-char-property org-columns-value org-open-link-from-string] 3 nil "P"])
(defalias 'org-columns-get-format-and-top-level #[nil "\301 \302 \210)\207" [fmt org-columns-get-format org-columns-goto-top-level] 1])
(defalias 'org-columns-get-format #[(&optional fmt-string) "\306\211\306\307\310\217\203\311\306\312\313#\n\206	\206\314\315
!\fL\210*\316!\210*\207" [fmt fmt-as-property fmt-string org-columns-default-format value var nil (org-back-to-heading) ((error)) org-entry-get "COLUMNS" t org-columns-current-fmt make-local-variable org-columns-compile-format] 4 nil nil])
(defalias 'org-columns-goto-top-level #[nil "\302\303\304\217\203
\305\302\306\307#\210\310!\203	\302\223\207	`\302\223\207" [org-entry-property-inherited-from org-columns-top-level-marker nil (org-back-to-heading) ((error)) org-entry-get "COLUMNS" t marker-position] 4])
#@107 Turn on column view on an org-mode file.
When COLUMNS-FMT-STRING is non-nil, use it as the column format.
(defalias 'org-columns #[(&optional columns-fmt-string) "\306\307!\210\310 \210`\311\223\210\312\313 !\311\211\211\211\211+\314 \210\315,!\212-b\210`.\2043\316 \210\311\317\320\217\206;d
b\210\321\322/\"\203Q\212\214
\f}\210\323 \210*\321\324/\"\203c\212\214
\f}\210\325 \210*\3260\f\327#\203\2471\203\202\330\3312\332Q!\203\202\333\327!\210\202c\3113\2123\203\2173b\210n\203\227\334\202\230\335\336\334`\"\\*\337 B\nB\202c\n\205\373\340\n\"\341	45\3425!4L\210*\343 \210\344\345\346!\205\313&45\3425!4L*\203\336\346\335!\210\347\350!\204\364\350645\3425!4L\210*\3276\351\352\n\".\207" [org-columns-begin-marker maxwidths cache fmt end beg org-verify-version columns org-columns-remove-overlays nil time-to-number-of-days current-time org-columns-goto-top-level org-columns-get-format org-columns-compute-all (byte-code "\300\301\211\"\207" [org-end-of-subtree t] 3) ((error)) assoc "CLOCKSUM" org-clock-sum "CLOCKSUM_T" org-clock-sum-today re-search-forward t looking-at ".*:" ":" org-end-of-subtree 1 0 count-lines org-entry-properties org-columns-get-autowidth-alist org-columns-current-maxwidths make-local-variable org-columns-display-here-title org-columns-flyspell-was-active boundp flyspell-mode local-variable-p org-colview-initial-truncate-line-value mapc #[(x) "@\214~\210eb\210	Sy\210*\302A!\207" [x N org-columns-display-here] 2] org-columns-time columns-fmt-string org-columns-top-level-marker org-columns-inhibit-recalculation org-columns-current-fmt-compiled org-outline-regexp-bol org-columns-skip-archived-trees org-archive-tag pos value var truncate-lines] 6 (#$ . 22160) nil])
#@629 Operator <-> format,function,calc  map.
Used to compile/uncompile columns format and completing read in
interactive function `org-columns-new'.

operator    string used in #+COLUMNS definition describing the
	    summary type
format      symbol describing summary type selected interactively in
	    `org-columns-new' and internally in
	    `org-columns-number-to-string' and
	    `org-columns-string-to-number'
function    called with a list of values as argument to calculate
	    the summary value
calc        function called on every element before summarizing.  This is
	    optional and should only be specified if needed
(defvar org-columns-compile-map '(("none" none +) (":" add_times +) ("+" add_numbers +) ("$" currency +) ("X" checkbox +) ("X/" checkbox-n-of-m +) ("X%" checkbox-percent +) ("max" max_numbers max) ("min" min_numbers min) ("mean" mean_numbers (lambda (&rest x) (/ (apply '+ x) (float (length x))))) (":max" max_times max) (":min" min_times min) (":mean" mean_times (lambda (&rest x) (/ (apply '+ x) (float (length x))))) ("@min" min_age min (lambda (x) (- org-columns-time x))) ("@max" max_age max (lambda (x) (- org-columns-time x))) ("@mean" mean_age (lambda (&rest x) (/ (apply '+ x) (float (length x)))) (lambda (x) (- org-columns-time x))) ("est+" estimate org-estimate-combine)) (#$ . 23928))
#@57 Insert a new column, to the left of the current column.
(defalias 'org-columns-new #[(&optional prop title width op fmt fun &rest rest) "\205\306	\"\307\310\311\312\313\314\315\307\315#\"\307\211%\316\317\320Q\f\206$\"\316\321
\205/\322
!\"\323\324
\"\203?\325
!\202A\307\310\326\312\327\"\307\315$\330!\306\312\331\"\"A\332=\203i\307\203\201\240\210\f
\307\307\257\241\210\202\240iS	\233\211\f
\307\307@\211 A@)\257\nAB\241\210\333 \210\334 *\207" [prop org-columns-current-fmt-compiled cell editp title width assoc nil org-icompleting-read "Property: " mapcar list org-buffer-property-keys t read-string "Column title [" "]: " "Column width: " number-to-string string-match "\\S-" string-to-number "Summary [none]: " #[(x) "\301\211A@)!C\207" [x symbol-name] 3] intern cdr none org-columns-store-format org-columns-redo org-columns-compile-map fmt fun x] 10 (#$ . 25260) nil])
#@47 Delete the column at point from columns view.
(defalias 'org-columns-delete #[nil "i\211	8A@\303\304\305\n\"!\205'\306	8	\"\307 \210\310 \210i	GY\205'\311u*\207" [n org-columns-current-fmt-compiled title y-or-n-p format "Are you sure you want to remove column \"%s\"? " delq org-columns-store-format org-columns-redo -1] 5 (#$ . 26205) nil])
#@44 Edit the attributes of the current column.
(defalias 'org-columns-edit-attributes #[nil "i\211	8\303\304\n\"*\207" [n org-columns-current-fmt-compiled info apply org-columns-new] 4 (#$ . 26559) nil])
#@42 Make the column wider by ARG characters.
(defalias 'org-columns-widen #[(arg) "i\211	8\306\n8\206\307\n@\"A\310\f
\\]\nAA\f\240\210\311 \210\312 +\207" [n org-columns-current-fmt-compiled entry org-columns-current-maxwidths width arg 2 assoc 1 org-columns-store-format org-columns-redo] 4 (#$ . 26767) "p"])
#@45 Make the column narrower by ARG characters.
(defalias 'org-columns-narrow #[(arg) "\301[!\207" [arg org-columns-widen] 2 (#$ . 27088) "p"])
#@45 Swap this column with the one to the right.
(defalias 'org-columns-move-right #[nil "i\211	\233\304	GSY\203\305\306!\210\n@\n\211A@\240\210\n\nAAB\241\210\307 \210\310 \210\311u+\207" [n org-columns-current-fmt-compiled cell e nil error "Cannot shift this column further to the right" org-columns-store-format org-columns-redo 1] 4 (#$ . 27235) nil])
#@44 Swap this column with the one to the left.
(defalias 'org-columns-move-left #[nil "i\211\301U\203\f\302\303!\210\304u\210\305 \210\304u)\207" [n 0 error "Cannot shift this column further to the left" -1 org-columns-move-right] 3 (#$ . 27600) nil])
#@212 Store the text version of the current columns format in appropriate place.
This is either in the COLUMNS property of the node starting the current column
display, or in the #+COLUMNS line of the current buffer.
(defalias 'org-columns-store-format #[nil "\306\307\310\n!\311	\312\f!L\210*\313
!\205q\212
b\210\314 \2031\315\306\316\"\2031\317\306\316	#\202peb\210\320\321\306\322#\203JT\323\324	P\322\211#\210\2024\307V\204feb\210\314\322!\204\\\325 \210\322\326\324	\327#\210)\330	\312\f!L*)*\207" [cnt fmt org-columns-current-fmt-compiled value var org-columns-top-level-marker nil 0 org-columns-uncompile-format org-columns-current-fmt make-local-variable marker-position org-at-heading-p org-entry-get "COLUMNS" org-entry-put re-search-forward "^#\\+COLUMNS:.*" t replace-match "#+COLUMNS: " outline-next-heading insert-before-markers "\n" org-columns-default-format inhibit-read-only] 4 (#$ . 27857)])
#@116 When set, overrides any other format definition for the agenda.
Don't set this, this is meant for dynamic scoping.
(defvar org-agenda-overriding-columns-format nil (#$ . 28792))
#@65 Derive the maximum column widths from the format and the cache.
(defalias 'org-columns-get-autowidth-alist #[(s cache) "\303\304\305\306\n	#\203\307\310\n\"\310BB\303\225\202\311\312\"\210*\207" [rtn start s 0 nil string-match "%\\([[:alpha:]][[:alnum:]_-]*\\)" match-string 1 mapc #[(x) "\302\303\304\305	\"\"\241\207" [x cache apply max mapcar #[(y) "\302@	A\"A\206\303G\207" [x y assoc " "] 3]] 6]] 4 (#$ . 28976)])
#@50 Compute all columns that have operators defined.
(defalias 'org-columns-compute-all #[nil "\306\307 \310\211\311ed\312#\210*!\210\n\313\314 !\315
\211A@\211\2053\3168\203\212\317@!\210)\202+\207" [inhibit-modification-hooks buffer-undo-list org-columns-current-fmt-compiled col org-columns-time columns set-buffer-modified-p buffer-modified-p t remove-text-properties (org-summaries t) time-to-number-of-days current-time nil 3 org-columns-compute] 6 (#$ . 29416)])
#@60 Recompute PROPERTY, and update the columns display for it.
(defalias 'org-columns-update #[(property) "\305!\210\306\211\211\212\307\310\f\",\207" [property pos val fmt org-columns-overlays org-columns-compute nil mapc #[(ov) "\305\306\"	\232\2051\307!\211b\210\310	\311\312 \313\"\"A\211\2051\305\314\"\315\316#\210\315\317\320\f\"#\207" [ov property pos val fmt overlay-get org-columns-key overlay-start assoc get-text-property point-at-bol org-summaries org-columns-format overlay-put org-columns-value display format] 7]] 3 (#$ . 29902)])
(defvar org-inlinetask-min-level (byte-code "\301\302!\203\207\303\207" [org-inlinetask-min-level featurep org-inlinetask 15] 2))
#@76 Sum the values of property PROPERTY hierarchically, for the entire buffer.
(defalias 'org-columns-compute #[(property) "\306\307\n\310\"\307\n\310\"\311\312*+\",\313,8-\314,8.\315,8/\316,8\2062\3170123435\310\21167\310\21189\310\211:;\310\211<=\310\211>?\2122b\210\310\320\321\217\2119b\210\322	2\323#\205%\311\224:\324
!\204\212
4=\204\212
\202\21455\325 \326\310*\"\2116\205\241\327\3306\"7
5W\203\352
54U\204\3045H\203\304\331/5H\"\202\305\3114H\203\327\331/4H\"\202\330\311\\<\f5H\206\346\f4H8\332<-.#=\333\334=!\310\335\323\336\337&>8\203\n
>\202
7\203
6\202
\340?\341:\342\";\312*;\"\2034
\312*;\"?\241\210\202U
*?B;B;\343\344 \323\211@A\345:\211T\342;D#\210*!\2106\203~
68\203f
=\202h
6\232\204~
\346\310*8\203z
=\202|
6#\2108\204\210
7\203\301
8\203\222
<\202\245
0\3478\203\237
=\202\241
6-\"!BC
DCDBCDHBI\210+\f
\323I\210
TE\nSFEFX\203\346
E\310I\210\fE\310I\210ET\211E\202\313
*\202l
5Y\2037\203l0\3476-\"!GH
IHIGHIHBI\210+\f
\323I\210\202l\350\351!\210\202l.\207" [org-outline-regexp-bol re lmax lvals lflag level 30 make-vector nil 0 assoc 4 5 6 7 identity (org-end-of-subtree t) ((error (point-max))) re-search-backward t zerop org-outline-level org-entry-get string-match "\\S-" apply org-columns-number-to-string org-add-props copy-sequence org-computed face bold "" get-text-property org-summaries set-buffer-modified-p buffer-modified-p add-text-properties org-entry-put org-columns-string-to-number error "This should not happen" property org-columns-current-fmt-compiled ass format printf fun calc org-columns-top-level-marker beg org-inlinetask-min-level inminlevel last-level val valflag flag end sumpos sum-alist sum str str1 useval inhibit-modification-hooks buffer-undo-list #1=#:v #2=#:v #3=#:v l #4=#:--cl-var-- #5=#:v #6=#:v #7=#:v] 8 (#$ . 30600) nil])
#@37 Construct the column display again.
(defalias 'org-columns-redo #[nil "\305\306!\210\307\212\203b\210n\203\310\202\311\312\310`\"\\*i\212\313!\203*b\210\314 \210\315\316!\203:\317\320!\210\202A\321 \210\317\322!\210)\n\214~\210eb\210\fSy\210*\323	!\210*\305\324!\207" [pos col line org-columns-begin-marker N message "Recomputing columns..." nil 1 0 count-lines marker-position org-columns-remove-overlays derived-mode-p org-mode call-interactively org-columns org-agenda-redo org-agenda-columns move-to-column "Recomputing columns...done"] 4 (#$ . 32549) nil])
(defalias 'org-columns-not-in-agenda #[nil "\301=\205	\302\303!\207" [major-mode org-agenda-mode error "This command is only allowed in Org-mode buffers"] 2])
#@51 Convert string to number, and interpret hh:mm:ss.
(defalias 'org-string-to-number #[(s) "\303\304\"\204\305!\207\306\304\"\237\307\n\203&\305\n\211A@!	\310\245\\\202	*\207" [s sum l string-match ":" string-to-number org-split-string 0.0 60] 3 (#$ . 33295)])
#@71 Convert a computed column number to a string value, according to FMT.
(defalias 'org-columns-number-to-string #[(n fmt &optional printf) "\306>\203\307	\n\"\207	\247\204\310\207\311>\203-\312	!\312\313	Z\314_\\!\315
\f#*\207\316=\203G	\312	!U\203=\317\207	\320V\203E\321\207\322\207\323>\203l\312	!\312\324	Z\325_\\!\326\\\327=#*\207\n\203u\315\n	\"\207\330=\203\200\315\331	\"\207\332>\203\212\333	!\207\334	!\207" [fmt n printf h m org-time-clocksum-format (estimate) org-estimate-print "" (add_times max_times min_times mean_times) floor 0.5 60 format checkbox "[X]" 1 "[-]" "[ ]" (checkbox-n-of-m checkbox-percent) 0.5 1000000 org-nofm-to-completion checkbox-percent currency "%.2f" (min_age max_age mean_age) org-format-time-period number-to-string n1 n2] 5 (#$ . 33571)])
(defalias 'org-nofm-to-completion #[(n m &optional percent) "\204\n\303\304	\n#\207\303\305\306\307\310	_\n\245\311_\\!\"\207" [percent n m format "[%d/%d]" "[%d%%]" floor 0.5 1.0 100] 6])
#@75 Convert a column value to a number that can be used for column computing.
(defalias 'org-columns-string-to-number #[(s fmt) "\205\273	\306>\203E\307\230\203\n\207\310\311\"\203;\312\313\314\"!\315_\312\313\316\"!\\\317_\312\313\320\"!\\\317_\312\313\321\"!\\\207\322\323\324\325\326\"\"!\207\310\327\"\203j\330\327\"\237\331\f\203g\312\f\211A@!\317\245\\\202T*\207\310\332\333\334\335
\"!\336Q\"\203\236\337\340\326\"P\330\327\"\237\341\f\203\233\312\f\211A@!\317\245\\\202\210*\207	\342>\203\256\343\232\203\254\314\207\344\207	\345>\203\270\346!\207\312!\207" [s fmt org-columns-time sum l org-effort-durations (min_age max_age mean_age) "" string-match "\\([0-9]+\\)d \\([0-9]+\\)h \\([0-9]+\\)m \\([0-9]+\\)s" string-to-number match-string 1 24 2 60 3 4 time-to-number-of-days apply encode-time org-parse-time-string t ":" org-split-string 0.0 "\\([0-9.]+\\) *\\(" regexp-opt mapcar car "\\)" "0:" org-duration-string-to-minutes 0.0 (checkbox checkbox-n-of-m checkbox-percent) "[X]" 1e-06 (estimate) org-string-to-estimate] 6 (#$ . 34581)])
#@69 Turn the compiled columns format back into a string representation.
(defalias 'org-columns-uncompile-format #[(cfmt) "\306\307\211\211\211\211\211\211\211\211\211\211\211A@\211\203\256@A@\3108\3118\3128\3138\3148\3158\316	E\"\211\203f
@\203v\n\203v\317\nQ\232\203\201\307\320\f\205\211\321\f!\205\225\322\323Q\205\237\324\325Q\260\326Q\202\327!.\f\207" [calc fun printf fmt width op-match "" nil 2 3 4 5 6 7 rassoc ";" "%" number-to-string "(" ")" "{" "}" " " org-trim op title prop s e rtn cfmt org-columns-compile-map] 12 (#$ . 35675)])
#@582 Turn a column format string 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
title        the title field for the columns
width        the column width in characters, can be nil for automatic
operator     the operator if any
format       the output format for computed results, derived from operator
printf       a printf format for computed values
fun          the lisp function to compute summary values, derived from operator
calc         function to get values from base elements
(defalias 'org-columns-compile-format #[(fmt) "\306\307\211\211\211\211\211\211\211\211\307\310\311#\203\245\306\225\312\313\"\312\314\"\312\315\"\206A\312\316\"\307\211\317\307\203\\\320!
\203s\310\321
\"\203s
\306\225\307O
\306\211\224O\322
\"\211\203\220\f\211A@)\fAA@\fAAA@
\n	\257B\202\237\211.\n\207" [calc fun printf f op-match op 0 nil string-match "%\\([0-9]+\\)?\\([[:alnum:]_-]+\\)\\(?:(\\([^)]+\\))\\)?\\(?:{\\([^}]+\\)}\\)?\\s-*" match-string 1 2 3 4 + string-to-number ";" assoc title prop width start org-columns-current-fmt-compiled fmt org-columns-compile-map x] 11 (#$ . 36322)])
#@381 Get the column view of the current buffer or subtree.
The first optional argument MAXLEVEL sets the level limit.  A
second optional argument SKIP-EMPTY-ROWS tells whether to skip
empty rows, an empty row being one where all the column view
specifiers except ITEM are empty.  This function returns a list
containing the title row and all other rows.  Each row is a list
of fields.
(defalias 'org-columns-capture-view #[(&optional maxlevel skip-empty-rows) "\212\306\307\"\310\n\"\311
\312Q	G\313\211eb\210\314\313\315#\203.\316\317\215\210\202\320	\321D\237\".\207" [org-columns-current-fmt-compiled title org-heading-keyword-regexp-format org-comment-string re-comment org-archive-tag mapcar cadr format ".*:" ":" nil re-search-forward t next (byte-code "\203	\203\306\307!GT\310\245\202\306\307!GY\203\214\311\312\224\313\"\203\214\212\314 b\210\315\n!\2061\315!)\203>\316\317!\210\320\321\317\"\210\322\312S
X\203o\323\311\312\224
\\\324\"\206d\311\312\224
\\\325\"\206d\326!\fB
T\211\202H*\f\237\203\206\327\326\330\331\f!!\"G\307=\204\214\fB\322\207" [maxlevel org-odd-levels-only re-comment re-archive row i match-string 1 2 get-char-property 0 org-columns-key point-at-bol looking-at org-end-of-subtree t throw next nil org-quote-vert org-columns-value-modified org-columns-value "" delete delete-dups copy-sequence n #1=#:--cl-var-- skip-empty-rows tbl] 6) append hline re-archive n row tbl org-heading-regexp] 5 (#$ . 37592)])
#@958 Write the column view table.
PARAMS is a property list of parameters:

:width    enforce same column widths with <N> specifiers.
:id       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'.
:hlines   When t, insert a hline before each item.  When a number, insert
	  a hline before each level <= that number.
:vlines   When t, make each column a colgroup to enforce vertical lines.
:maxlevel When set to a number, don't capture headlines below this level.
:skip-empty-rows
	  When t, skip rows where all specifiers other than ITEM are empty.
:format   When non-nil, specify the column view format to use.
(defalias 'org-dblock-write:columnview #[(params) "\306 \307\310\"\307\311\"\307\312\"\313\307\314\"\315\"\307\316\"\307\317\"\320\321\211\211\211\211\211\211\211\211\2119:;<=>?@ABCDE\307\322\"\211<\203\327<\247\203^\323<!\202w<9\203k\324<!\202w<;\203v<\202w\325<\203\327<\326=\203\211e\202\327<\327=\204\327\330\331\"\203\254\332\333\"\333\334\n!\204\327\335\336\"\210\202\327\337<!\211;\203\274;\202\327\340<!\211;\203\321;@;A\202\327\335\341<\"\210r\n\203\342\342\n!\202\343pq\210\212\214~\210	\206\356`b\210\343?!\210\344B@\"\211=@G:\345 \210+Eb\210E\321\211\223\210=\205\307\310\"\203\203
\3219=\203~
=@\346=\203;
=\211A=@9B9\202
\330\347=\211F@@)\"\203o
9@\346=\204o
D\320=\204i
D\247\203o
\333\225\333\224ZDX\203o
\3469B9=\211A=@9B9\202
9\237=C\203\235
\350\351=\"=\352=\353\354:\355\"BC\"=`EA\203\274
\330\356A@\"\203\274
A\211AA@\315\261\210\202\245
\357=!c\210\307\360\"\203\323
\361\362\363G\364#\261\210A\211AA@\211\203\367
\330\356\f\"\203\323
\315\f\261\210\330\365\f\"\203\323
\320\202\323

\203Eb\210\366\367!\202Eb\210\370 .\207" [params view-pos view-file id-as-string line recalc point-marker plist-get :hlines :vlines :maxlevel org-split-string :content "\n" :skip-empty-rows :format t nil :id number-to-string symbol-name #1="" global local string-match "^file:\\(.*\\)" match-string 1 file-exists-p error "No such file: \"%s\"" org-find-entry-with-id org-id-find "Cannot find entry with :ID: %s" get-file-buffer org-columns org-columns-capture-view org-columns-quit hline "\\` *\\(\\*+\\)" mapcar #[(x) "\301=\203\207\302B\207" [x hline #1#] 2] append "/" make-list "<>" "^#" org-listtable-to-string :width "\n|" mapconcat #[(x) "\301\302\303]\"\207" [x format "<%d>" 3] 4] "|" "^[ 	]*#\\+tblfm" org-table-recalculate all org-table-align tmp nfields idpos id tbl case-fold-search columns-fmt skip-empty-rows content-lines maxlevel vlines hlines pos x org-columns-current-widths] 19 (#$ . 39090)])
#@176 Convert a listtable TBL to a string that contains the Org-mode table.
The table still need to be aligned.  The resulting string has no leading
and tailing newline characters.
(defalias 'org-listtable-to-string #[(tbl) "\301\302\303#\207" [tbl mapconcat #[(x) "<\203\301\302\303\301#\301Q\207\304=\203\305\207\306\307\"\207" [x "|" mapconcat identity hline "|-|" error "Garbage in listtable: %s"] 5] "\n"] 4 (#$ . 42115)])
#@55 Create a dynamic block capturing a column view table.
(defalias 'org-insert-columns-dblock #[nil "\302\303\304\305\306\307\310\311\312!\"\"\"\313\232\203\314\315\232\203\316\305	\317D\"\320	!\210\321 *\207" [id defaults (:name "columnview" :hlines 1) org-icompleting-read "Capture columns (local, global, entry with :ID: property) [local]: " append (("global") ("local")) mapcar list org-property-values "ID" "" local "global" global :id org-create-dblock org-update-dblock] 9 (#$ . 42552) nil])
#@73 When set, switch to columns view immediately after creating the agenda.
(defvar org-agenda-view-columns-initially nil (#$ . 43066))
#@46 Turn on or update column view in the agenda.
(defalias 'org-agenda-columns #[nil "\306\307!\210\310 \210`\311\223\210\312\313 !\311\211\211\211\211\211\211345\314\315!\2033
\2033
\202\207\316\317!\211\203P\320
\321\322#\206Lr\323
!q\2106)\202\207\314\324!\203g\325\324!\203g\203g\202\207\326e\317\"\211\203\207\327
\317\"\320
\321\322#\206\206r\323
!q\2106)	\206\2156\324	78\3308!7L\210*\331	!\2109\203\253\332:!\210\212eb\210m\204'
\316\317!\206\274\316\333!\211\203 
\334
!\335;\f\"\211\203\333\336\337A\206\327\340\"\204\375<\203\375\327`\341\"\211\203\375\342\n!\343\344\nG\345\346\n%\210;\nB\fB\311=\212=\203\n
=b\210n\203
\347\202
\344\350\347`\"\\*\fB4B4\351\352!\210\202\2574\205q
\353	4\"3\354378\3308!7L\210*\355 \210\356\314\357!\205O
/78\3308!7L*\203b
\357\344!\210\360\3614\"\210>\205q
\3624!.	\207" [org-columns-begin-marker fmt d a p m org-verify-version columns org-columns-remove-overlays nil time-to-number-of-days current-time boundp org-agenda-overriding-columns-format org-get-at-bol org-hd-marker org-entry-get "COLUMNS" t marker-buffer org-columns-current-fmt local-variable-p next-single-property-change get-text-property make-local-variable org-columns-compile-format org-agenda-colview-compute org-marker org-entry-properties assoc string-match "\\S-" "" duration org-minutes-to-hh:mm-string put-text-property 0 face org-warning 1 count-lines beginning-of-line 2 org-columns-get-autowidth-alist org-columns-current-maxwidths org-columns-display-here-title org-columns-flyspell-was-active flyspell-mode mapc #[(x) "@\214~\210eb\210	Sy\210*\302A!\207" [x N org-columns-display-here] 2] org-agenda-colview-summarize maxwidths cache org-columns-time org-columns-default-format value var org-agenda-columns-compute-summary-properties org-columns-current-fmt-compiled org-effort-property org-agenda-columns-add-appointments-to-effort-sum pos org-agenda-columns-show-summaries] 8 (#$ . 43204) nil])
#@142 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.
(defalias 'org-agenda-colview-summarize #[(cache) "\306\307\"\310\211\310\211\310\211\f\310\211
\310\211\310\211\311\312\215.
\207" [org-columns-current-fmt-compiled fmt line c c1 stype mapcar #[(x) "\301\302@\"\203\303\304@\"A@\3058\306\307\310\311\310\257\207\207" [x string-match "CLOCKSUM.*" match-string 0 2 ":" add_times nil +] 8] nil exit (byte-code "\306\307\310\311\"\"\205\224db\210\312`\313\"\204\312`\314\"\315=\203\204\307\212	\203'	b\210n\203/\316\2020\317\320\316`\"\\*\307\f\307
\211A@\211\203`@\nV\203XB\202=\fB\202=\310\321\"\211\203\204\310\322\"\323\324\"\210\325\326\327!L\210*o\203\215\330\331\326\"\210\332\317!\210\202
\207" [fmt pos line entries cache c delq nil mapcar cadr get-text-property org-date-line face org-agenda-structure 1 0 count-lines cdr #[(f) "@A@\3068\3078\3108\206\311	\312\232\203%	\313 \314 {B\207\204-	\315B\207\316\316\211\203n@\317	\"A\211 \203e\320\321\322 #\204Y
\202Z\311\323 \"!BA\211\204;*\324\316\"\211G\325V\203\210\326\327\f\"\"\202\232G\325=\203\231\326@\"\202\232\315\330\321G\331\332%\210
\311=\204\270\330\321G\322\333%\210	B\207" [f prop title stype sumfunc calc 4 6 7 identity "ITEM" point-at-bol point-at-eol "" nil assoc get-text-property 0 org-computed org-columns-string-to-number remove 1 org-columns-number-to-string apply put-text-property face bold t lsum entries x --dolist-tail-- v] 7] org-columns-display-here dateline org-agenda-columns-active t make-local-variable throw exit beginning-of-line c1 props value var] 5) calc sumfunc props lsum entries prop v title] 4 (#$ . 45218)])
#@66 Compute the relevant columns in the contributing source buffers.
(defalias 'org-agenda-colview-compute #[(fmt) "\306 \306 \307\211\211\211\211A@\211\205\225\310\f!r\311	!\206*	q\210\212\214~\210\312\313 \314\211\315ed\316#\210*!\210eb\210\317 \210\211A@\211\203\221@\320\232\203a\321 \210\202H@\322\232\203n\323 \210\202H\3248\203H\325@\"\211\203H\324\n8\3248\232\203H\326@!\210\202H+\202.\207" [org-agenda-contributing-files b a fm f org-columns-top-level-marker make-marker nil find-buffer-visiting buffer-base-buffer set-buffer-modified-p buffer-modified-p t remove-text-properties (org-summaries t) org-columns-get-format-and-top-level "CLOCKSUM" org-clock-sum "CLOCKSUM_T" org-clock-sum-today 4 assoc org-columns-compute org-columns-begin-marker files inhibit-modification-hooks buffer-undo-list fmt org-columns-current-fmt-compiled] 7 (#$ . 47070)])
#@64 Convert time in fractional days to days/hours/minutes/seconds.
(defalias 'org-format-time-period #[(interval) "\247\2030\306!	Z\307_\306\n!\306\nZ\310_!\306\nZ\310_\fZ\310_!\311\312	\f
%-\207\313\207" [interval days frac-hours hours minutes seconds floor 24 60 format "%dd %02dh %02dm %02ds" ""] 6 (#$ . 47980)])
#@46 Return the mean and variance of an estimate.
(defalias 'org-estimate-mean-and-var #[(v) "\306@!\306\211A@)!	\\\307\245\310\f	Z\311\"\310\fZ\312\"\\\313\245\f
,D\207" [v low x high mean var float 2.0 expt 2.0 2.0 2.0] 5 (#$ . 48311)])
#@178 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.
(defalias 'org-estimate-combine #[(&rest el) "\304\211\305\306\n\"\210\307!	Z	\\+D\207" [var mean el stdev 0 mapc #[(e) "\305!\n	@\\	\211A@)\\\211)\207" [e stats mean var x org-estimate-mean-and-var] 3] sqrt] 3 (#$ . 48561)])
#@116 Prepare a string representation of an estimate.
This formats these numbers as two numbers with a "-" between them.
(defalias 'org-estimate-print #[(e &optional fmt) "\204\302\303\304\305\306	\307#\"\207" [fmt e "%.0f" format "%s" mapconcat #[(n) "\302	\"\207" [fmt n format] 3] "-"] 6 (#$ . 48983)])
#@86 Convert a string to an estimate.
The string should be two numbers joined with a "-".
(defalias 'org-string-to-estimate #[(s) "\301\302\"\203\303\304\305\"!\303\304\306\"!D\207\303!\303!D\207" [s string-match "\\(.*\\)-\\(.*\\)" string-to-number match-string 1 2] 5 (#$ . 49294)])
(provide 'org-colview)