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