ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-colview.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 425))
#@59 Local variable, holds the currently active column format.
(defvar org-columns-current-fmt nil (#$ . 519))
(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 (#$ . 686))
(make-variable-buffer-local 'org-columns-current-fmt-compiled)
#@55 Loval variable, holds the currently widths of fields.
(defvar org-columns-current-widths nil (#$ . 914))
(make-variable-buffer-local 'org-columns-current-widths)
#@67 Loval variable, holds the currently active maximum column widths.
(defvar org-columns-current-maxwidths nil (#$ . 1082))
(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) (#$ . 1269))
#@61 Points to the position where current columns region starts.
(defvar org-columns-top-level-marker (make-marker) (#$ . 1407))
#@37 The keymap valid in column display.
(defvar org-columns-map (make-sparse-keymap) (#$ . 1537))
#@48 Switch to contents view while in columns view.
(defalias 'org-columns-content #[nil "\300 \210\301 \207" [org-overview org-content] 1 (#$ . 1637) 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 \203 m\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 \203 o\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 (#$ . 3644))
(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 (#$ . 4568)])
#@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 @\323\322\320\323\"\324\322\320\324\"F A@A\325
F @A\326
F B\316\306 \327\" C\330\211 D E\330\211 F G\330\211 H I\330\211 J K\330\211 L M\330\211 N O\330\211 P Q\330 RS\204\254 \f\315=\203\247 \331\332!\206\230 \331\333!\211D\205\242 \334D!S\202\254 \334\330!S \211A\242\211M\203KM@EMA@QE\335\232\203\363 \335\336\337!\203\342 \340 T\341\216\342\343\306 \344 \"!*\202\357 \331\345!\206\357 \343`\330\210`\"B\202\371 \346ES\"F\346EU\"A\206\314M8\206EGG\347\350G\211#H\351M8K\352M8I\353M8RFA\2062\354NV\203J\355V!\203JVQN\"\202\237E\335\232\203`\356N\206\\C#\202\237I\203t\357\360NK\"KI#\202\237R\205\237\355R!\205\237N\354\230?\205\237\316\361\362N#?\205\237\357R\360NK\"!K\"O\363O\206\251NG\"P\347HP\"J\364 W\365\211 X Y\365 Z\366\216\367\n\211T\211J[\203\327B\202\331$L\370L\371\\#\210\370L\372E#\210\370L\373FA#\210\370L\374O#\210\370L\375D#\210\370L\376H#\210\370L\377\354#\210\370L\201` \354#\210-\nf\203,\nf\201a \232\203\254 \365 Y\212\nb\210\364 ]\201b \216\365\211 Z X\201c c\210.\202\254 \364 ^\201d \216\365\211 Z X\367\n\344 \"L\370L\201e \365#\210\370L\371\\#\210\370L\201f \365#\210\370L\377\354#\210\370L\201` \354#\210L_B_\201g \344 S\344 T\"L\370L\371\\#\210L_B_\365 Y\201h e\306 S]d\344 T^\201i \201j $. \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 :height :family 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 #[nil "\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 | " 4 5 7 "" functionp org-columns-cleanup-item org-columns-number-to-string org-columns-string-to-number 0 org-computed org-columns-add-ellipses buffer-modified-p t #[nil "?\205 \301\302!\207" [#1=#:modified restore-buffer-modified-p nil] 2] 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 color font face1 cphr pom property ass width f fc string fm ov column val modval s2 title calc props save-match-data-internal org-columns-current-maxwidths org-columns-modify-value-for-display-function #1# buffer-undo-list inhibit-read-only inhibit-modification-hooks dateline org-columns-map #2=#:--was-modified #3=#:--was-modified org-columns-overlays wrap-prefix 10 #[nil "\301!\207" [#2# set-buffer-modified-p] 2] " " #[nil "\301!\207" [#3# set-buffer-modified-p] 2] invisible intangible make-overlay put-text-property read-only "Type `e' to edit property"] 7 (#$ . 4944) 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 (#$ . 8107)])
#@71 The full header line format, will be shifted by horizontal scrolling.
(defvar org-columns-full-header-line-format nil (#$ . 8333))
#@58 The header line format before column view was turned on.
(defvar org-previous-header-line-format nil (#$ . 8470))
#@56 Inhibit recomputing of columns on column view startup.
(defvar org-columns-inhibit-recalculation nil (#$ . 8590))
#@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 (#$ . 8711))
(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 \242\211\203^ @ A@\206. \310 \"A\206A \311 8\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 (#$ . 8975) 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 (#$ . 9884)])
#@56 Remember the value of `truncate-lines' across colview.
(defvar org-colview-initial-truncate-line-value nil (#$ . 10234))
#@46 Remove all currently active column overlays.
(defalias 'org-columns-remove-overlays #[nil "\306!\205^ r\306!q\210\307\301!\203 \310\301!\210\311\312\313\314#\210\315\211\223\210 \315\211\223\210\316 \317\211 \317 \320\216\321\322\"\210\315\317 \323ed\324#\210.\203R \325\326!\210\307\327!\205] \211 )\207" [org-columns-begin-marker org-previous-header-line-format header-line-format org-columns-top-level-marker #1=#:modified buffer-undo-list marker-buffer local-variable-p kill-local-variable remove-hook post-command-hook org-columns-hscoll-title local nil buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# 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-overlays org-columns-flyspell-was-active truncate-lines] 5 (#$ . 10361) 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 #[nil "\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 (#$ . 11285)])
#@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 (#$ . 12263)])
#@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 (#$ . 12544) nil])
#@65 Remove the column overlays and in this way exit column editing.
(defalias 'org-columns-quit #[nil "\306 \307\211\307\310\216\311 \210\307\312ed\313#\210.\f\314=\205# \315\316\317!\207" [#1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks major-mode org-agenda-columns-active buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# 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"] 5 (#$ . 12760) 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 (#$ . 13347)])
#@43 Change the TODO state during column view.
(defalias 'org-columns-todo #[(&optional arg) "\300\301!\207" [org-columns-edit-value "TODO"] 2 (#$ . 13700) "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 (#$ . 13863) "P"])
#@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 (#$ . 14196))
#@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\211 C D\317 E \324\232\203H \325\326!\210\202\320 \327\232\203T \330D\202\320 \331\232\203` \332D\202\320 \333\232\203l \334D\202\320 \335\232\203x \336D\202\320 \337\232\203\204 \340D\202\320 \341\232\203\220 \342D\202\320 \343\232\203\234 \344D\202\320 \345
\346#\211E\203\273 \347\350E\317\314\351\352E@@#?$C\202\301 \353\354\n\"C\355C!\211C\n\232\204\320 \356DD\205NF\357\232\203\375 \360D!\210G H\361
! IrIq\210\362\363 !)C J\364 +\202N\365 K\366 L\365\211 M K\365 N\367\216\370e S]\f\371#\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 buffer-modified-p #[nil "?\205 \301\302!\207" [#1=#:modified restore-buffer-modified-p nil] 2] remove-text-properties (read-only t) #[nil "\300 \207" [org-columns-display-here] 1] org-delete-all mapc delete-overlay org-move-to-column derived-mode-p org-columns-overlays line-overlays org-columns-time nval eval allowed major-mode org-columns-current-fmt org-agenda-overriding-columns-format buffer org-agenda-contributing-files inhibit-read-only #1# buffer-undo-list inhibit-modification-hooks org-columns-current-fmt-compiled org-mode 3 assoc org-columns-update] 9 (#$ . 14381) 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 (#$ . 17144)])
#@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 (#$ . 17644) nil])
(defalias 'org-columns-eval #[(form) "\302\212\303\304!\210\3051 \306\304!0\202 \210\202 \210\307\304!)\310 !\210\205& \311 )\207" [hidep form nil beginning-of-line 1 (error) next-line org-at-heading-p eval hide-entry] 2])
#@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 (#$ . 18388) 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 !)C B\353 +\202-\354 C\355 S\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" "CLOCKSUM") "Allowed values for this property have not been defined" ("SCHEDULED" "DEADLINE" "CLOCKSUM") 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) #[nil "\300 \207" [org-columns-display-here] 1] 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 (#$ . 18573) 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 (#$ . 20747)])
(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\3071 \310 0\202 \210\202 \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 (error) org-back-to-heading 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 "\3021\n \303 0\202 \210\202 \203 \304\305\306\307#\210\310!\203\" \305\223\207 `\305\223\207" [org-entry-property-inherited-from org-columns-top-level-marker (error) org-back-to-heading org-entry-get nil "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\3171? \320\321\211\"0\202C \210\202F \206G d
b\210\322\323.\"\203] \212\214
\f}\210\324 \210*\322\325.\"\203o \212\214
\f}\210\326 \210*\327/\f\321#\203\263 0\203\216 \330\3311\332Q!\203\216 \320\321!\210\202o \311 2\2122\203\233 2b\210n\203\243 \333\202\244 \334\335\333`\"\\*\336 B\nB\202o \n\205\337 \n\"\340 3 4\3414!3L\210*\342 \210\343\344\345!\205\327 % 3 4\3414!3L*\203\352 \345\334!\210\346\347!\204 \3475 3 4\3414!3L\210*\3215\350\351\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 (error) org-end-of-subtree t assoc "CLOCKSUM" org-clock-sum "CLOCKSUM_T" org-clock-sum-today re-search-forward looking-at ".*:" ":" 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 (#$ . 22841) 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)) (#$ . 24565))
#@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\234 iS \233\211\f
\307 \307 @ 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) "\301A@!C\207" [x symbol-name] 2] intern cdr none org-columns-store-format org-columns-redo org-columns-compile-map fmt fun] 10 (#$ . 25897) 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 (#$ . 26827) 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 (#$ . 27181) 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 (#$ . 27389) "p"])
#@45 Make the column narrower by ARG characters.
(defalias 'org-columns-narrow #[(arg) "\301[!\207" [arg org-columns-widen] 2 (#$ . 27710) "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 (#$ . 27857) 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 (#$ . 28222) 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 #\202p eb\210\320\321\306\322#\203J T\323\324 P\322\211#\210\2024 \307V\204f eb\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 (#$ . 28479)])
#@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 (#$ . 29413)])
#@50 Compute all columns that have operators defined.
(defalias 'org-columns-compute-all #[nil "\306 \307\211\307\310\216\311ed\312#\210-\f\313\314 !\315 \211A\242\211\2059 \316
8\203 \212\317
@!\210)\202 +\207" [#1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks org-columns-current-fmt-compiled col buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] remove-text-properties (org-summaries t) time-to-number-of-days current-time nil 3 org-columns-compute org-columns-time columns] 5 (#$ . 29853)])
#@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 (#$ . 30430)])
(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 \317 /0 12 32 4\310\211 5 6\310\211 7 8\310\211 9 :\310\211 ; <\310\211 = >\2121b\210\3201n \321\322!0\202p \210d\2118b\210\323 1\322#\2052\311\2249
\311U\204\223
3=\204\223
\202\225 44\324 \325\310)\"\2115\205\252 \326\3275\"6
4W\203\36743U\204\315 4H\203\315 \330. 4H\"\202\316 \311 3H\203\340 \330. 3H\"\202\341 \311\\;\f4H\206\357 \f3H7\331;,-#<\332\333<!\310\334\322\335\336&=7\203=\202 6\203 5\202 \337>\3409\341\":\312):\"\203=\312):\">\241\210\202b)>B:B:\342 ?\322\211 @ A\322 B\343\216\3449\211T\341:D#\210-5\203\21357\203s<\202u5\232\204\213\345\310)7\203\207<\202\2115#\2107\204\2256\203\3167\203\237;\202\262/\3467\203\254<\202\2565,\"! C D
EDECDEHBI\210+\f
\322I\210
T F\nS GFGX\203\363 F\310I\210\fF\310I\210FT\211F\202\330*\202u
4Y\203+6\203u /\3465,\"! H I
JIJHIJHBI\210+\f
\322I\210\202u \347\350!\210\202u .\207" [org-outline-regexp-bol re lmax lvals lflag level 30 make-vector nil 0 assoc 4 5 6 7 identity (error) org-end-of-subtree t re-search-backward 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 buffer-modified-p #[nil "?\205 \301\302!\207" [#1=#:modified restore-buffer-modified-p nil] 2] 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 #1# buffer-undo-list inhibit-read-only inhibit-modification-hooks #2=#:v #3=#:v #4=#:v l #5=#:--cl-var-- #6=#:v #7=#:v #8=#:v] 8 (#$ . 31128) nil])
#@37 Construct the column display again.
(defalias 'org-columns-redo #[nil "\305\306!\210\307\212\203 b\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 (#$ . 33162) 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\242! \310\245\\\202 *\207" [s sum l string-match ":" string-to-number org-split-string 0.0 60] 3 (#$ . 33908)])
#@71 Convert a computed column number to a string value, according to FMT.
(defalias 'org-columns-number-to-string #[(n fmt &optional printf) "\305>\203 \306 \n\"\207 \247\204 \307\207\310>\203 \311 !\207\312=\2036 \313 !U\203, \314\207 \315V\2034 \316\207\317\207\320>\203U \313 !\313\321 Z\322_\\! \323 \f \\\324=#*\207\n\203^ \325\n \"\207\326=\203i \325\327 \"\207\330>\203s \331 !\207\332 !\207" [fmt n printf n1 n2 (estimate) org-estimate-print "" (add_times max_times min_times mean_times) org-hours-to-clocksum-string checkbox floor "[X]" 1 "[-]" "[ ]" (checkbox-n-of-m checkbox-percent) 0.5 1000000 org-nofm-to-completion checkbox-percent format currency "%.2f" (min_age max_age mean_age) org-format-time-period number-to-string] 5 (#$ . 34187)])
(defalias 'org-nofm-to-completion #[(n m &optional percent) "\204\n \303\304 \n#\207\303\305\306\307 _\n\"\"\207" [percent n m format "[%d/%d]" "[%d%%]" round 100.0] 5])
#@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\242! \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\242! \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 (#$ . 35128)])
#@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 \242\211 \203\256 @ A@\310 8\311 8\312 8\313 8\314 8\315 8\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 (#$ . 36228)])
#@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\241 \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\214 \fA@\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] 11 (#$ . 36878)])
#@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\211 $ %eb\210\314&\313\315#\203\317 \3162\313 '\203I '(\203A \317\320!GT\321\245\202E \317\320!GY\205\312 \322\323\224\324\"\205\312 \212\325 b\210\326\f!\206` \326\"!)\203m \327\315!\210\330\316\315\"\210\313$\323 )#S *)*X\203\247 \331\322\323\224)\\\332\"\206\230 \322\323\224)\\\333\"\206\230 \334!$B$)T\211)\202z *$\237$+\205\276 \335\334\336\337$!!\"G\320=?\205\312 $%B\211%0\210\202 \340 \341D%\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 match-string 1 2 get-char-property 0 org-columns-key point-at-bol looking-at org-end-of-subtree throw org-quote-vert org-columns-value-modified org-columns-value "" delete delete-dups copy-sequence append hline re-archive n row tbl org-heading-regexp maxlevel org-odd-levels-only i #1=#:--cl-var-- skip-empty-rows] 6 (#$ . 38139)])
#@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\211 9 : ; < = > ? @ A B C D E\307\322\"\211<\203\327 <\247\203^ \323<!\202w <9\203k \324<!\202w <;\203v <\202w \325<\203\327 <\326=\203\211 e\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\343 pq\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\3219=\203z=@\346=\203;=\211A=\2429B9\202 \330\347=@@\"\203k9@\346=\204kD\320=\204eD\247\203k\333\225\333\224ZDX\203k\3469B9=\211A=\2429B9\202 9\237=C\203\231\350\351=\"=\352=\353\354:\355\"BC\"=A\203\265\330\356A@\"\203\265A\211AA\242\315\261\210\202\236`E\357=!c\210\307\360\"\203\317\361\362\363F\364#\261\210A\211AA\242\211\203\363\330\356\f\"\203\317\315\f\261\210\330\365\f\"\203\317\320\202\317
\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 org-columns-current-widths] 19 (#$ . 39598)])
#@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 (#$ . 42623)])
#@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 (#$ . 43060) nil])
#@73 When set, switch to columns view immediately after creating the agenda.
(defvar org-agenda-view-columns-initially nil (#$ . 43574))
#@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\211 3 4 5\314\315!\2033
\2033
\202\207 \316\317!\211\203P \320
\321\322#\206L r\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\206 r\323
!q\2106) \206\215 6\324 7 8\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\337 A\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\257 4\205q\353 4\"3\3543 7 8\3308!7L\210*\355 \210\356\314\357!\205O/ 7 8\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-clocksum-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 (#$ . 43712) 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 \310\211 \310\211 !\310\211 \" #\3112\306 \312\310\306\313 \"\"\205\305 db\210\314`\315\"\204F \314`\316\"\317=\203\265 \310 $\212$\203S $b\210n\203[ \320\202\\ \321\322\320`\"\\*\310 %\310% \211A\242\211\203\217 \f@\nV\203\206 \f B \202l \f%B%\202l \306\323 \"\211 \203\265 \306\324 \" \325 \326\"\210\327\330 & '\331'!&L\210*o\203\276 \332\311\330\"\210\333\321!\210\2026 0.
\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 delq 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 \"! B A\211 \204; *\324\316 \"\211 G\325V\203\210 \326\327\f \" \"\202\232 G\325=\203\231 \326 @ \"\202\232 \315 \330\321 G\331\332 %\210
\311=\204\270 \330\321 G\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 beginning-of-line calc sumfunc props lsum entries prop v title pos cache value var] 6 (#$ . 45729)])
#@66 Compute the relevant columns in the contributing source buffers.
(defalias 'org-agenda-colview-compute #[(fmt) "\306 \306 \307\211\211\211 \211A\242\211\205\231 \310\f!r\311 !\206* q\210\212\214~\210\312 \313\211 \313 \314\216\315ed\316#\210-eb\210\317 \210 \211A \242\211\203\225 @\320\232\203e \321 \210\202L @\322\232\203r \323 \210\202L \324 8\203L \325 @ \"\211\203L \324\n8\324 8\232\203L \326 @!\210\202L +\202 .\207" [org-agenda-contributing-files b a fm f org-columns-top-level-marker make-marker nil find-buffer-visiting buffer-base-buffer buffer-modified-p t #[nil "?\205 \301\302!\207" [#1=#:modified 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 4 assoc org-columns-compute org-columns-begin-marker files #1# buffer-undo-list inhibit-read-only inhibit-modification-hooks fmt org-columns-current-fmt-compiled] 8 (#$ . 47532)])
#@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\n Z\310_! \306\n Z\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 (#$ . 48534)])
#@46 Return the mean and variance of an estimate.
(defalias 'org-estimate-mean-and-var #[(v) "\305@!\305A@! \n\\\306\245\307 Z\310\"\307\n Z\311\"\\\312\245 \f,D\207" [v low high mean var float 2.0 expt 2.0 2.0 2.0] 4 (#$ . 48865)])
#@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) "\304!\n @\\ A@\\\211)\207" [e stats mean var org-estimate-mean-and-var] 2] sqrt] 3 (#$ . 49107)])
#@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 (#$ . 49521)])
#@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 (#$ . 49832)])
(provide 'org-colview)
Kontol Shell Bypass