| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file contains utf-8 non-ASCII characters, | |
| 7 | ;;; and so cannot be loaded into Emacs 22 or earlier. | |
| 8 | (and (boundp 'emacs-version) | |
| 9 | (< (aref emacs-version (1- (length emacs-version))) ?A) | |
| 10 | (string-lessp emacs-version "23") | |
| 11 | (error "`%s' was compiled for Emacs 23 or later" #$)) | |
| 12 | ||
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 14 | ||
| 15 | ||
| 16 | (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib org org-macs] 2) | |
| 17 | (defvar org-agenda-buffer-name "*Org Agenda*") | |
| 18 | (defvar org-agenda-overriding-header nil) | |
| 19 | (defvar org-agenda-title-append nil) | |
| 20 | #@63 List of undoable operations in the agenda since last refresh. | |
| 21 | (defvar org-agenda-undo-list nil (#$ . 620)) | |
| 22 | #@73 In a series of undo commands, this is the list of remaining undo items. | |
| 23 | (defvar org-agenda-pending-undo-list nil (#$ . 733)) | |
| 24 | (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\210\320\321\311\322\323\324\304\305&\210\300\325\326\327\304\321\306\313&\210\300\330\311\331\304\321\306\332&\210\300\333\334\335\304\321\306\336\337\340& \210\300\341\342\343\304\305\306\344&\210\300\345\326\346\304\305\306\313&\210\300\347\311\350\304\321\304\351\306\352& \210\300\353\311\354\304\305\306\313&\210\320\355\311\356\323\357\304\305&\207" [custom-declare-variable org-agenda-confirm-kill 1 "When set, remote killing from the agenda buffer needs confirmation.\nWhen t, a confirmation is always needed. When a number N, confirmation is\nonly needed when the text to be killed contains more than N non-white lines." :group org-agenda :type (choice (const :tag "Never" nil) (const :tag "Always" t) (integer :tag "When more than N lines")) org-agenda-compact-blocks nil "Non-nil means make the block agenda more compact.\nThis is done globally by leaving out lines like the agenda span\nname and week number or the separator lines." boolean org-agenda-block-separator 61 "The separator between blocks in the agenda.\nIf this is a string, it will be used as the separator, with a newline added.\nIf it is a character, it will be repeated to fill the window width.\nIf nil the separator is disabled. In `org-agenda-custom-commands' this\naddresses the separator between the current and the previous block." (choice (const :tag "Disabled" nil) (character) (string)) custom-declare-group org-agenda-export "Options concerning exporting agenda views in Org mode." :tag "Org Agenda Export" org-agenda-with-colors t "Non-nil means use colors in agenda views." org-agenda-exporter-settings "Alist of variable/value pairs that should be active during agenda export.\nThis is a good place to set options for ps-print and for htmlize.\nNote that the way this is implemented, the values will be evaluated\nbefore assigned to the variables. So make sure to quote values you do\n*not* want evaluated, for example\n\n (setq org-agenda-exporter-settings\n \\='((ps-print-color-p \\='black-white)))" (repeat (list (variable) (sexp :tag "Value"))) org-agenda-before-write-hook '(org-agenda-add-entry-text) "Hook run in a temporary buffer before writing the agenda to an export file.\nA useful function for this hook is `org-agenda-add-entry-text'." hook :options (org-agenda-add-entry-text) org-agenda-add-entry-text-maxlines 0 "Maximum number of entry text lines to be added to agenda.\nThis is only relevant when `org-agenda-add-entry-text' is part of\n`org-agenda-before-write-hook', which is the default.\nWhen this is 0, nothing will happen. When it is greater than 0, it\nspecifies the maximum number of lines that will be added for each entry\nthat is listed in the agenda view.\n\nNote that this variable is not used during display, only when exporting\nthe agenda. For agenda display, see the variables `org-agenda-entry-text-mode'\nand `org-agenda-entry-text-maxlines'." integer org-agenda-add-entry-text-descriptive-links "Non-nil means export org-links as descriptive links in agenda added text.\nThis variable applies to the text added to the agenda when\n`org-agenda-add-entry-text-maxlines' is larger than 0.\nWhen this variable nil, the URL will (also) be shown." org-agenda-export-html-style "The style specification for exported HTML Agenda files.\nIf this variable contains a string, it will replace the default <style>\nsection as produced by `htmlize'.\nSince there are different ways of setting style information, this variable\nneeds to contain the full HTML structure to provide a style, including the\nsurrounding HTML tags. The style specifications should include definitions\nthe fonts used by the agenda, here is an example:\n\n <style type=\"text/css\">\n p { font-weight: normal; color: gray; }\n .org-agenda-structure {\n font-size: 110%;\n color: #003399;\n font-weight: 600;\n }\n .org-todo {\n color: #cc6666;\n font-weight: bold;\n }\n .org-agenda-done {\n color: #339933;\n }\n .org-done {\n color: #339933;\n }\n .title { text-align: center; }\n .todo, .deadline { color: red; }\n .done { color: green; }\n </style>\n\nor, if you want to keep the style in a file,\n\n <link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\">\n\nAs the value of this option simply gets inserted into the HTML <head> header,\nyou can \"misuse\" it to also add other text to the header." org-export-html (choice (const nil) (string)) org-agenda-persistent-filter "When set, keep filters from one agenda view to the next." org-agenda-custom-commands "Options concerning agenda views in Org mode." "Org Agenda Custom Commands"] 10) | |
| 25 | #@18 Sorting choices. | |
| 26 | (defconst org-sorting-choice '(choice (const time-up) (const time-down) (const timestamp-up) (const timestamp-down) (const scheduled-up) (const scheduled-down) (const deadline-up) (const deadline-down) (const ts-up) (const ts-down) (const tsia-up) (const tsia-down) (const category-keep) (const category-up) (const category-down) (const tag-down) (const tag-up) (const priority-up) (const priority-down) (const todo-state-up) (const todo-state-down) (const effort-up) (const effort-down) (const habit-up) (const habit-down) (const alpha-up) (const alpha-down) (const user-defined-up) (const user-defined-down)) (#$ . 5702)) | |
| 27 | (byte-code "\300\301\302\"\210\300\303\304\"\207" [defvaralias org-agenda-filter-preset org-agenda-tag-filter-preset org-agenda-filter org-agenda-tag-filter] 3) | |
| 28 | #@1621 List of types searched for when creating the daily/weekly agenda. | |
| 29 | This variable is a list of symbols that controls the types of | |
| 30 | items that appear in the daily/weekly agenda. Allowed symbols in this | |
| 31 | list are are | |
| 32 | ||
| 33 | :timestamp List items containing a date stamp or date range matching | |
| 34 | the selected date. This includes sexp entries in angular | |
| 35 | brackets. | |
| 36 | ||
| 37 | :sexp List entries resulting from plain diary-like sexps. | |
| 38 | ||
| 39 | :deadline List deadline due on that date. When the date is today, | |
| 40 | also list any deadlines past due, or due within | |
| 41 | `org-deadline-warning-days'. | |
| 42 | ||
| 43 | :deadline* Same as above, but only include the deadline if it has an | |
| 44 | hour specification as [h]h:mm. | |
| 45 | ||
| 46 | :scheduled List all items which are scheduled for the given date. | |
| 47 | The diary for *today* also contains items which were | |
| 48 | scheduled earlier and are not yet marked DONE. | |
| 49 | ||
| 50 | :scheduled* Same as above, but only include the scheduled item if it | |
| 51 | has an hour specification as [h]h:mm. | |
| 52 | ||
| 53 | By default, all four non-starred types are turned on. | |
| 54 | ||
| 55 | When :scheduled* or :deadline* are included, :schedule or :deadline | |
| 56 | will be ignored. | |
| 57 | ||
| 58 | Never set this variable globally using `setq', because then it | |
| 59 | will apply to all future agenda commands. Instead, bind it with | |
| 60 | `let' to scope it dynamically into the agenda-constructing | |
| 61 | command. A good way to set it is through options in | |
| 62 | `org-agenda-custom-commands'. For a more flexible (though | |
| 63 | somewhat less efficient) way of determining what is included in | |
| 64 | the daily/weekly agenda, see `org-agenda-skip-function'. | |
| 65 | (defvar org-agenda-entry-types '(:deadline :scheduled :timestamp :sexp) (#$ . 6512)) | |
| 66 | #@127 Selection of examples for agenda command settings. | |
| 67 | This will be spliced into the custom type of | |
| 68 | `org-agenda-custom-commands'. | |
| 69 | (defconst org-agenda-custom-commands-local-options (byte-code "\302\303\304\305\303\306\307\310\311\303\312\313\311\314\302DE\257\315\316\317\320\321\322\323\324\325\326\311\303\327\330\311\331\332\333\334\335 \336BBBBBE\257\337BBBBBBBBBBBBBBBBBF\207" [org-sorting-choice org-agenda-entry-types repeat :tag "Local settings for this command. Remember to quote values" choice "Setting" (list :tag "Heading for this block" (const org-agenda-overriding-header) (string :tag "Headline")) (list :tag "Files to be searched" (const org-agenda-files) (list (const :format #1="" quote) (repeat (file)))) list "Sorting strategy" (const org-agenda-sorting-strategy) (const :format #1# quote) (list :tag "Prefix format" (const org-agenda-prefix-format :value " %-12:c%?-12t% s") (string)) (list :tag "Number of days in agenda" (const org-agenda-span) (list (const :format #1# quote) (choice (const :tag "Day" day) (const :tag "Week" week) (const :tag "Fortnight" fortnight) (const :tag "Month" month) (const :tag "Year" year) (integer :tag "Custom")))) (list :tag "Fixed starting date" (const org-agenda-start-day) (string :value "2007-11-01")) (list :tag "Start on day of week" (const org-agenda-start-on-weekday) (choice :value 1 (const :tag "Today" nil) (integer :tag "Weekday No."))) (list :tag "Include data from diary" (const org-agenda-include-diary) (boolean)) (list :tag "Deadline Warning days" (const org-deadline-warning-days) (integer :value 1)) (list :tag "Category filter preset" (const org-agenda-category-filter-preset) (list (const :format #1# quote) (repeat (string :tag "+category or -category")))) (list :tag "Tags filter preset" (const org-agenda-tag-filter-preset) (list (const :format #1# quote) (repeat (string :tag "+tag or -tag")))) (list :tag "Effort filter preset" (const org-agenda-effort-filter-preset) (list (const :format #1# quote) (repeat (string :tag "+=10 or -=10 or +<10 or ->10")))) (list :tag "Regexp filter preset" (const org-agenda-regexp-filter-preset) (list (const :format #1# quote) (repeat (string :tag "+regexp or -regexp")))) "Set daily/weekly entry types" (const org-agenda-entry-types) (const :format #1# quote) set :greedy t :value ((const :deadline) (const :scheduled) (const :deadline*) (const :scheduled*) (const :timestamp) (const :sexp)) ((list :tag "Standard skipping condition" :value (org-agenda-skip-function '(org-agenda-skip-entry-if)) (const org-agenda-skip-function) (list (const :format #1# quote) (list (choice :tag "Skipping range" (const :tag "Skip entry" org-agenda-skip-entry-if) (const :tag "Skip subtree" org-agenda-skip-subtree-if)) (repeat :inline t :tag "Conditions for skipping" (choice :tag "Condition type" (list :tag "Regexp matches" :inline t (const :format #1# regexp) (regexp)) (list :tag "Regexp does not match" :inline t (const :format #1# notregexp) (regexp)) (list :tag "TODO state is" :inline t (const todo) (choice (const :tag "Any not-done state" todo) (const :tag "Any done state" done) (const :tag "Any state" any) (list :tag "Keyword list" (const :format #1# quote) (repeat (string :tag "Keyword"))))) (list :tag "TODO state is not" :inline t (const nottodo) (choice (const :tag "Any not-done state" todo) (const :tag "Any done state" done) (const :tag "Any state" any) (list :tag "Keyword list" (const :format #1# quote) (repeat (string :tag "Keyword"))))) (const :tag "scheduled" scheduled) (const :tag "not scheduled" notscheduled) (const :tag "deadline" deadline) (const :tag "no deadline" notdeadline) (const :tag "timestamp" timestamp) (const :tag "no timestamp" nottimestamp)))))) (list :tag "Non-standard skipping condition" :value (org-agenda-skip-function) (const org-agenda-skip-function) (sexp :tag "Function or form (quoted!)")) (list :tag "Any variable" (variable :tag "Variable") (sexp :tag "Value (sexp)")))] 31) (#$ . 8224)) | |
| 70 | (byte-code "\301\302\303\304\305\302\306\307\310\311\312\313\314\315\316\317\320\321\322BBBBBBBB\313\314\323\324\325\307\314\326\310\313\314\327\330\331\257\313\314\332\333\334\257\313\314\335\336\337\257\313\314\340\341\342\257\313\314\343\344\345\257\313\314\346\347\350\257\313\314\351\352\353\257\313\314\354\355\356\257\257 F\357BBBBBB\360BBBBBD&\210\301\361\362\363\305\302\306\364&\210\301\365\366\367\305\302\306\370&\210\371\372\373\374\314\375\305\376&\210\301\377\373\201@ \305\372\306\201A &\210\371\201B \373\201C \314\201D \305\376&\210\371\201E \373\201F \314\201G \305\376&\210\371\201H \373\201I \314\201J \305\376&\210\371\201K \373\201L \314\201M \305\376&\207" [org-agenda-custom-commands-local-options custom-declare-variable org-agenda-custom-commands '(("n" "Agenda and all TODOs" ((agenda #1="") (alltodo #1#)))) "Custom commands for the agenda.\n\\<org-mode-map>\nThese commands will be offered on the splash screen displayed by the\nagenda dispatcher `\\[org-agenda]'. Each entry is a list like this:\n\n (key desc type match settings files)\n\nkey The key (one or more characters as a string) to be associated\n with the command.\ndesc A description of the command, when omitted or nil, a default\n description is built using MATCH.\ntype The command type, any of the following symbols:\n agenda The daily/weekly agenda.\n todo Entries with a specific TODO keyword, in all agenda files.\n search Entries containing search words entry or headline.\n tags Tags/Property/TODO match in all agenda files.\n tags-todo Tags/P/T match in all agenda files, TODO entries only.\n todo-tree Sparse tree of specific TODO keyword in *current* file.\n tags-tree Sparse tree with all tags matches in *current* file.\n occur-tree Occur sparse tree for *current* file.\n ... A user-defined function.\nmatch What to search for:\n - a single keyword for TODO keyword searches\n - a tags match expression for tags searches\n - a word search expression for text searches.\n - a regular expression for occur searches\n For all other commands, this should be the empty string.\nsettings A list of option settings, similar to that in a let form, so like\n this: ((opt1 val1) (opt2 val2) ...). The values will be\n evaluated at the moment of execution, so quote them when needed.\nfiles A list of files to write the produced agenda buffer to with\n the command `org-store-agenda-views'.\n If a file name ends in \".html\", an HTML version of the buffer\n is written out. If it ends in \".ps\", a postscript version is\n produced. Otherwise, only the plain text is written to the file.\n\nYou can also define a set of commands, to create a composite agenda buffer.\nIn this case, an entry looks like this:\n\n (key desc (cmd1 cmd2 ...) general-settings-for-whole-set files)\n\nwhere\n\ndesc A description string to be displayed in the dispatcher menu.\ncmd An agenda command, similar to the above. However, tree commands\n are not allowed, but instead you can get agenda and global todo list.\n So valid commands for a set are:\n (agenda \"\" settings)\n (alltodo \"\" settings)\n (stuck \"\" settings)\n (todo \"match\" settings files)\n (search \"match\" settings files)\n (tags \"match\" settings files)\n (tags-todo \"match\" settings files)\n\nEach command can carry a list of options, and another set of options can be\ngiven for the whole set of commands. Individual command options take\nprecedence over the general options.\n\nWhen using several characters as key to a command, the first characters\nare prefix commands. For the dispatcher to display useful information, you\nshould provide a description for the prefix, like\n\n (setq org-agenda-custom-commands\n \\='((\"h\" . \"HOME + Name tag searches\") ; describe prefix \"h\"\n (\"hl\" tags \"+HOME+Lisa\")\n (\"hp\" tags \"+HOME+Peter\")\n (\"hk\" tags \"+HOME+Kim\")))" :group :type repeat choice :value ("x" "Describe command here" tags #1# nil) list :tag "Single command" (string :tag "Access Key(s) ") (option (string :tag "Description")) (choice (const :tag "Agenda" agenda) (const :tag "TODO list" alltodo) (const :tag "Search words" search) (const :tag "Stuck projects" stuck) (const :tag "Tags/Property match (all agenda files)" tags) (const :tag "Tags/Property match of TODO entries (all agenda files)" tags-todo) (const :tag "TODO keyword search (all agenda files)" todo) (const :tag "Tags sparse tree (current buffer)" tags-tree) (const :tag "TODO keyword tree (current buffer)" todo-tree) (const :tag "Occur tree (current buffer)" occur-tree) (sexp :tag "Other, user-defined function")) (string :tag "Match (only for some commands)") ((option (repeat :tag "Export" (file :tag "Export to")))) "Command series, all agenda files" (string :tag "Access Key(s)") (string :tag "Description ") "Component" "Agenda" (const :format #1# agenda) (const :tag #1# :format #1# #1#) "TODO list (all keywords)" (const :format #1# alltodo) (const :tag #1# :format #1# #1#) "Search words" (const :format #1# search) (string :tag "Match") "Stuck projects" (const :format #1# stuck) (const :tag #1# :format #1# #1#) "Tags search" (const :format #1# tags) (string :tag "Match") "Tags search, TODO entries only" (const :format #1# tags-todo) (string :tag "Match") "TODO keyword search" (const :format #1# todo) (string :tag "Match") "Other, user-defined function" (symbol :tag "function") (string :tag "Match") ((repeat :tag "Settings for entire command set" (list (variable :tag "Any variable") (sexp :tag "Value"))) (option (repeat :tag "Export" (file :tag "Export to")))) ((cons :tag "Prefix key documentation" (string :tag "Access Key(s)") (string :tag "Description "))) org-agenda-query-register 111 "The register holding the current query string.\nThe purpose of this is that if you construct a query string interactively,\nyou can then use it to define a custom command." character org-stuck-projects '("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") nil #1#) "How to identify stuck projects.\nThis is a list of four items:\n1. A tags/todo/property matcher string that is used to identify a project.\n See the manual for a description of tag and property searches.\n The entire tree below a headline matched by this is considered one project.\n2. A list of TODO keywords identifying non-stuck projects.\n If the project subtree contains any headline with one of these todo\n keywords, the project is considered to be not stuck. If you specify\n \"*\" as a keyword, any TODO keyword will mark the project unstuck.\n3. A list of tags identifying non-stuck projects.\n If the project subtree contains any headline with one of these tags,\n the project is considered to be not stuck. If you specify \"*\" as\n a tag, any tag will mark the project unstuck. Note that this is about\n the explicit presence of a tag somewhere in the subtree, inherited\n tags do not count here. If inherited tags make a project not stuck,\n use \"-TAG\" in the tags part of the matcher under (1.) above.\n4. An arbitrary regular expression matching non-stuck projects.\n\nIf the project turns out to be not stuck, search continues also in the\nsubtree to see if any of the subtasks have project status.\n\nSee also the variable `org-tags-match-list-sublevels' which applies\nto projects matched by this search as well.\n\nAfter defining this variable, you may use `org-agenda-list-stuck-projects'\n(bound to `\\[org-agenda] #') to produce the list." (list (string :tag "Tags/TODO match to identify a project") (repeat :tag "Projects are *not* stuck if they have an entry with TODO keyword any of" (string)) (repeat :tag "Projects are *not* stuck if they have an entry with TAG being any of" (string)) (regexp :tag "Projects are *not* stuck if this regexp matches inside the subtree")) custom-declare-group org-agenda-skip nil "Options concerning skipping parts of agenda files." "Org Agenda Skip" org-agenda org-agenda-skip-function-global "Function to be called at each match during agenda construction.\nIf this function returns nil, the current match should not be skipped.\nIf the function decided to skip an agenda match, is must return the\nbuffer position from which the search should be continued.\nThis may also be a Lisp form, which will be evaluated.\n\nThis variable will be applied to every agenda match, including\ntags/property searches and TODO lists. So try to make the test function\ndo its checking as efficiently as possible. To implement a skipping\ncondition just for specific agenda commands, use the variable\n`org-agenda-skip-function' which can be set in the options section\nof custom agenda commands." sexp org-agenda-daily/weekly "Options concerning the daily/weekly agenda." "Org Agenda Daily/Weekly" org-agenda-todo-list "Options concerning the global todo list agenda view." "Org Agenda Todo List" org-agenda-match-view "Options concerning the general tags/property/todo match agenda view." "Org Agenda Match View" org-agenda-search-view "Options concerning the search agenda view." "Org Agenda Search View"] 34) | |
| 71 | #@295 Non-nil means the agenda will include archived items. | |
| 72 | If this is the symbol `trees', trees in the selected agenda scope | |
| 73 | that are marked with the ARCHIVE tag will be included anyway. When this is | |
| 74 | t, also all archive files associated with the current selection of agenda | |
| 75 | files will be included. | |
| 76 | (defvar org-agenda-archives-mode nil (#$ . 21560)) | |
| 77 | (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\210\300\313\302\314\304\312\304\315\306\307& \210\300\316\317\320\304\312\304\315\306\307& \210\300\321\317\322\304\312\304\315\323\324\306\325& \210\300\326\317\327\304\312\304\315\306\330& \210\300\331\317\332\304\312\304\315\306\333& \210\300\334\317\335\304\312\304\315\323\336\337\340\306\341& \210\300\342\317\343\304\312\304\315\304\344\306\307& \210\300\345\317\346\304\312\304\347\306\307& \210\300\350\317\351\304\312\304\347\306\352& \210\300\353\317\354\304\312\304\347\323\324\306\355& \210\300\356\317\357\304\312\304\347\306\307& \210\300\360\317\361\304\312\304\347\323\324\306\362& \210\300\363\317\364\304\312\304\347\323\336\337\365\306\366& \210\300\367\317\370\304\312\306\307&\210\300\371\317\372\304\312\304\347\306\307& \210\300\373\302\374\304\347\304\315\323\375\306\376& \210\377\201@ \317\201A \201B \201C \304\305&\210\300\201D \302\201E \304\305\323\324\306\307& \210\300\201F \317\201G \304\305\323\324\306\307& \210\300\201H \317\201I \304\201@ \306\201J &\210\300\201K \317\201L \304\201@ \306\307&\210\300\201M \317\201N \304\201@ \306\307&\210\300\201O \317\201P \304\305\323\324\306\307& \210\300\201Q \302\201R \304\201@ \306\307&\210\300\201S \317\201T \304\201@ \306\307&\210\300\201U \201V \201W \304\305\306\201X &\210\300\201Y \317\201Z \304\305\306\201[ &\210\300\201\\ \201] \201^ \323\336\337\201_ \304\305\306\201` & \207" [custom-declare-variable org-agenda-restriction-lock-highlight-subtree t "Non-nil means highlight the whole subtree when restriction is active.\nOtherwise only highlight the headline. Highlighting the whole subtree is\nuseful to ensure no edits happen beyond the restricted region." :group org-agenda :type boolean org-agenda-skip-comment-trees "Non-nil means skip trees that start with the COMMENT keyword.\nWhen nil, these trees are also scanned by agenda commands." org-agenda-skip org-agenda-todo-list-sublevels "Non-nil means check also the sublevels of a TODO entry for TODO entries.\nWhen nil, the sublevels of a TODO entry are not checked, resulting in\npotentially much shorter TODO lists." org-agenda-todo-list org-agenda-todo-ignore-with-date nil "Non-nil means don't show entries with a date in the global todo list.\nYou can use this if you prefer to mark mere appointments with a TODO keyword,\nbut don't want them to show up in the TODO list.\nWhen this is set, it also covers deadlines and scheduled items, the settings\nof `org-agenda-todo-ignore-scheduled' and `org-agenda-todo-ignore-deadlines'\nwill be ignored.\nSee also the variable `org-agenda-tags-todo-honor-ignore-options'." org-agenda-todo-ignore-timestamp "Non-nil means don't show entries with a timestamp.\nThis applies when creating the global todo list.\nValid values are:\n\npast Don't show entries for today or in the past.\n\nfuture Don't show entries with a timestamp in the future.\n The idea behind this is that if it has a future\n timestamp, you don't want to think about it until the\n date.\n\nall Don't show any entries with a timestamp in the global todo list.\n The idea behind this is that by setting a timestamp, you\n have already \"taken care\" of this item.\n\nThis variable can also have an integer as a value. If positive (N),\ntodos with a timestamp N or more days in the future will be ignored. If\nnegative (-N), todos with a timestamp N or more days in the past will be\nignored. If 0, todos with a timestamp either today or in the future will\nbe ignored. For example, a value of -1 will exclude todos with a\ntimestamp in the past (yesterday or earlier), while a value of 7 will\nexclude todos with a timestamp a week or more in the future.\n\nSee also `org-agenda-todo-ignore-with-date'.\nSee also the variable `org-agenda-tags-todo-honor-ignore-options' if you want\nto make his option also apply to the tags-todo list." :version "24.1" (choice (const :tag "Ignore future timestamp todos" future) (const :tag "Ignore past or present timestamp todos" past) (const :tag "Ignore all timestamp todos" all) (const :tag "Show timestamp todos" nil) (integer :tag "Ignore if N or more days in past(-) or future(+).")) org-agenda-todo-ignore-scheduled "Non-nil means, ignore some scheduled TODO items when making TODO list.\nThis applies when creating the global todo list.\nValid values are:\n\npast Don't show entries scheduled today or in the past.\n\nfuture Don't show entries scheduled in the future.\n The idea behind this is that by scheduling it, you don't want to\n think about it until the scheduled date.\n\nall Don't show any scheduled entries in the global todo list.\n The idea behind this is that by scheduling it, you have already\n \"taken care\" of this item.\n\nt Same as `all', for backward compatibility.\n\nThis variable can also have an integer as a value. See\n`org-agenda-todo-ignore-timestamp' for more details.\n\nSee also `org-agenda-todo-ignore-with-date'.\nSee also the variable `org-agenda-tags-todo-honor-ignore-options' if you want\nto make his option also apply to the tags-todo list." (choice (const :tag "Ignore future-scheduled todos" future) (const :tag "Ignore past- or present-scheduled todos" past) (const :tag "Ignore all scheduled todos" all) (const :tag "Ignore all scheduled todos (compatibility)" t) (const :tag "Show scheduled todos" nil) (integer :tag "Ignore if N or more days in past(-) or future(+).")) org-agenda-todo-ignore-deadlines "Non-nil means ignore some deadline TODO items when making TODO list.\n\nThere are different motivations for using different values, please think\ncarefully when configuring this variable.\n\nThis applies when creating the global TODO list.\n\nValid values are:\n\nnear Don't show near deadline entries. A deadline is near when it is\n closer than `org-deadline-warning-days' days. The idea behind this\n is that such items will appear in the agenda anyway.\n\nfar Don't show TODO entries where a deadline has been defined, but\n is not going to happen anytime soon. This is useful if you want to use\n the TODO list to figure out what to do now.\n\npast Don't show entries with a deadline timestamp for today or in the past.\n\nfuture Don't show entries with a deadline timestamp in the future, not even\n when they become `near' ones. Use it with caution.\n\nall Ignore all TODO entries that do have a deadline.\n\nt Same as `near', for backward compatibility.\n\nThis variable can also have an integer as a value. See\n`org-agenda-todo-ignore-timestamp' for more details.\n\nSee also `org-agenda-todo-ignore-with-date'.\nSee also the variable `org-agenda-tags-todo-honor-ignore-options' if you want\nto make his option also apply to the tags-todo list." (choice (const :tag "Ignore near deadlines" near) (const :tag "Ignore near deadlines (compatibility)" t) (const :tag "Ignore far deadlines" far) (const :tag "Ignore all TODOs with a deadlines" all) (const :tag "Show all TODOs, even if they have a deadline" nil) (integer :tag "Ignore if N or more days in past(-) or future(+).")) org-agenda-todo-ignore-time-comparison-use-seconds "Time unit to use when possibly ignoring an agenda item.\n\nSee the docstring of various `org-agenda-todo-ignore-*' options.\nThe default is to compare time stamps using days. An item is thus\nconsidered to be in the future if it is at least one day after today.\nNon-nil means to compare time stamps using seconds. An item is then\nconsidered future if it has a time value later than current time." "24.4" :package-version (Org . "8.0") (choice (const :tag "Compare time with days" nil) (const :tag "Compare time with seconds" t)) org-agenda-tags-todo-honor-ignore-options "Non-nil means honor todo-list ignores options also in tags-todo search.\nThe variables\n `org-agenda-todo-ignore-with-date',\n `org-agenda-todo-ignore-timestamp',\n `org-agenda-todo-ignore-scheduled',\n `org-agenda-todo-ignore-deadlines'\nmake the global TODO list skip entries that have time stamps of certain\nkinds. If this option is set, the same options will also apply for the\ntags-todo search, which is the general tags/property matcher\nrestricted to unfinished TODO entries only." org-agenda-match-view org-agenda-skip-scheduled-if-done "Non-nil means don't show scheduled items in agenda when they are done.\nThis is relevant for the daily/weekly agenda, not for the TODO list. It\napplies only to the actual date of the scheduling. Warnings about an item\nwith a past scheduling dates are always turned off when the item is DONE." org-agenda-daily/weekly org-agenda-skip-scheduled-if-deadline-is-shown "Non-nil means skip scheduling line if same entry shows because of deadline.\n\nIn the agenda of today, an entry can show up multiple times\nbecause it is both scheduled and has a nearby deadline, and maybe\na plain time stamp as well.\n\nWhen this variable is nil, the entry will be shown several times.\n\nWhen set to t, then only the deadline is shown and the fact that\nthe entry is scheduled today or was scheduled previously is not\nshown.\n\nWhen set to the symbol `not-today', skip scheduled previously,\nbut not scheduled today.\n\nWhen set to the symbol `repeated-after-deadline', skip scheduled\nitems if they are repeated beyond the current deadline." (choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "Not when scheduled today" not-today) (const :tag "When repeated past deadline" repeated-after-deadline)) org-agenda-skip-timestamp-if-deadline-is-shown "Non-nil means skip timestamp line if same entry shows because of deadline.\nIn the agenda of today, an entry can show up multiple times\nbecause it has both a plain timestamp and has a nearby deadline.\nWhen this variable is t, then only the deadline is shown and the\nfact that the entry has a timestamp for or including today is not\nshown. When this variable is nil, the entry will be shown\nseveral times." (choice (const :tag "Never" nil) (const :tag "Always" t)) org-agenda-skip-deadline-if-done "Non-nil means don't show deadlines when the corresponding item is done.\nWhen nil, the deadline is still shown and should give you a happy feeling.\nThis is relevant for the daily/weekly agenda. It applies only to the\nactual date of the deadline. Warnings about approaching and past-due\ndeadlines are always turned off when the item is DONE." org-agenda-skip-deadline-prewarning-if-scheduled "Non-nil means skip deadline prewarning when entry is also scheduled.\nThis will apply on all days where a prewarning for the deadline would\nbe shown, but not at the day when the entry is actually due. On that day,\nthe deadline will be shown anyway.\nThis variable may be set to nil, t, the symbol `pre-scheduled',\nor a number which will then give the number of days before the actual\ndeadline when the prewarnings should resume. The symbol `pre-scheduled'\neliminates the deadline prewarning only prior to the scheduled date.\nThis can be used in a workflow where the first showing of the deadline will\ntrigger you to schedule it, and then you don't want to be reminded of it\nbecause you will take care of it on the day when scheduled." (choice (const :tag "Always show prewarning" nil) (const :tag "Remove prewarning prior to scheduled date" pre-scheduled) (const :tag "Remove prewarning if entry is scheduled" t) (integer :tag "Restart prewarning N days before deadline")) org-agenda-skip-scheduled-delay-if-deadline "Non-nil means skip scheduled delay when entry also has a deadline.\nThis variable may be set to nil, t, the symbol `post-deadline',\nor a number which will then give the number of days after the actual\nscheduled date when the delay should expire. The symbol `post-deadline'\neliminates the schedule delay when the date is posterior to the deadline." (Org . "8.0") (choice (const :tag "Always honor delay" nil) (const :tag "Ignore delay if posterior to the deadline" post-deadline) (const :tag "Ignore delay if entry has a deadline" t) (integer :tag "Honor delay up until N days after the scheduled date")) org-agenda-skip-additional-timestamps-same-entry "When nil, multiple same-day timestamps in entry make multiple agenda lines.\nWhen non-nil, after the search for timestamps has matched once in an\nentry, the rest of the entry will not be searched." org-agenda-skip-timestamp-if-done "Non-nil means don't select item by timestamp or -range if it is DONE." org-agenda-dim-blocked-tasks "Non-nil means dim blocked tasks in the agenda display.\nThis causes some overhead during agenda construction, but if you\nhave turned on `org-enforce-todo-dependencies',\n`org-enforce-todo-checkbox-dependencies', or any other blocking\nmechanism, this will create useful feedback in the agenda.\n\nInstead of t, this variable can also have the value `invisible'.\nThen blocked tasks will be invisible and only become visible when\nthey become unblocked. An exemption to this behavior is when a task is\nblocked because of unchecked checkboxes below it. Since checkboxes do\nnot show up in the agenda views, making this task invisible you remove any\ntrace from agenda views that there is something to do. Therefore, a task\nthat is blocked because of checkboxes will never be made invisible, it\nwill only be dimmed." "24.3" (choice (const :tag "Do not dim" nil) (const :tag "Dim to a gray face" t) (const :tag "Make invisible" invisible)) custom-declare-group org-agenda-startup "Options concerning initial settings in the Agenda in Org Mode." :tag "Org Agenda Startup" org-agenda-menu-show-matcher "Non-nil means show the match string in the agenda dispatcher menu.\nWhen nil, the matcher string is not shown, but is put into the help-echo\nproperty so than moving the mouse over the command shows it.\nSetting it to nil is good if matcher strings are very long and/or if\nyou want to use two-columns display (see `org-agenda-menu-two-columns')." org-agenda-menu-two-columns "Non-nil means, use two columns to show custom commands in the dispatcher.\nIf you use this, you probably want to set `org-agenda-menu-show-matcher'\nto nil." org-agenda-finalize-hook "Hook run just before displaying an agenda buffer.\nThe buffer is still writable when the hook is called.\n\nYou can modify some of the buffer substrings but you should be\nextra careful not to modify the text properties of the agenda\nheadlines as the agenda display heavily relies on them." hook org-agenda-mouse-1-follows-link "Non-nil means mouse-1 on a link will follow the link in the agenda.\nA longer mouse click will still set point. Needs to be set\nbefore org.el is loaded." org-agenda-start-with-follow-mode "The initial value of follow mode in a newly created agenda window." org-agenda-follow-indirect "Non-nil means `org-agenda-follow-mode' displays only the\ncurrent item's tree, in an indirect buffer." org-agenda-show-outline-path "Non-nil means show outline path in echo area after line motion." org-agenda-start-with-entry-text-mode "The initial value of entry-text-mode in a newly created agenda window." org-agenda-entry-text-maxlines 5 "Number of text lines to be added when `E' is pressed in the agenda.\n\nNote that this variable only used during agenda display. To add entry text\nwhen exporting the agenda, configure the variable\n`org-agenda-add-entry-text-maxlines'." integer org-agenda-entry-text-exclude-regexps "List of regular expressions to clean up entry text.\nThe complete matches of all regular expressions in this list will be\nremoved from entry text before it is shown in the agenda." (repeat (regexp)) org-agenda-entry-text-leaders " > " "Text prepended to the entry text in agenda buffers." (Org . "8.0") string] 14) | |
| 78 | #@386 Hook that is run after basic cleanup of entry text to be shown in agenda. | |
| 79 | This cleanup is done in a temporary buffer, so the function may inspect and | |
| 80 | change the entire buffer. | |
| 81 | Some default stuff like drawers and scheduling/deadline dates will already | |
| 82 | have been removed when this is called, as will any matches for regular | |
| 83 | expressions listed in `org-agenda-entry-text-exclude-regexps'. | |
| 84 | (defvar org-agenda-entry-text-cleanup-hook nil (#$ . 37709)) | |
| 85 | #@75 Non-nil means include inactive time stamps in agenda. | |
| 86 | Dynamically scoped. | |
| 87 | (defvar org-agenda-include-inactive-timestamps nil (#$ . 38161)) | |
| 88 | (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315&\210\310\316\317\320\306\301\314\321&\210\310\322\302\323\306\301\314\324&\210\310\325\326\327\306\330\314\331&\210\310\332\333\334\306\330\314\335&\210\310\336\337\340\306\330\314\324&\210\310\341\342\343\306\330\314\344&\207" [custom-declare-group org-agenda-windows nil "Options concerning the windows used by the Agenda in Org Mode." :tag "Org Agenda Windows" :group org-agenda custom-declare-variable org-agenda-window-setup 'reorganize-frame "How the agenda buffer should be displayed.\nPossible values for this option are:\n\ncurrent-window Show agenda in the current window, keeping all other windows.\nother-window Use `switch-to-buffer-other-window' to display agenda.\nonly-window Show agenda, deleting all other windows.\nreorganize-frame Show only two windows on the current frame, the current\n window and the agenda.\nother-frame Use `switch-to-buffer-other-frame' to display agenda.\n Also, when exiting the agenda, kill that frame.\nSee also the variable `org-agenda-restore-windows-after-quit'." :type (choice (const current-window) (const other-frame) (const other-window) (const only-window) (const reorganize-frame)) org-agenda-window-frame-fractions '(0.5 . 0.75) "The min and max height of the agenda window as a fraction of frame height.\nThe value of the variable is a cons cell with two numbers between 0 and 1.\nIt only matters if `org-agenda-window-setup' is `reorganize-frame'." (cons (number :tag "Minimum") (number :tag "Maximum")) org-agenda-restore-windows-after-quit "Non-nil means restore window configuration upon exiting agenda.\nBefore the window configuration is changed for displaying the agenda,\nthe current status is recorded. When the agenda is exited with\n`q' or `x' and this option is set, the old state is restored. If\n`org-agenda-window-setup' is `other-frame', the value of this\noption will be ignored." boolean org-agenda-span 'week "Number of days to include in overview display.\nCan be day, week, month, year, or any number of days.\nCustom commands can set this variable in the options section." org-agenda-daily/weekly (choice (const :tag "Day" day) (const :tag "Week" week) (const :tag "Fortnight" fortnight) (const :tag "Month" month) (const :tag "Year" year) (integer :tag "Custom")) org-agenda-start-on-weekday 1 "Non-nil means start the overview always on the specified weekday.\n0 denotes Sunday, 1 denotes Monday, etc.\nWhen nil, always start on the current day.\nCustom commands can set this variable in the options section." (choice (const :tag "Today" nil) (integer :tag "Weekday No.")) org-agenda-show-all-dates t "Non-nil means `org-agenda' shows every day in the selected range.\nWhen nil, only the days which actually have entries are shown." org-agenda-format-date 'org-agenda-format-date-aligned "Format string for displaying dates in the agenda.\nUsed by the daily/weekly agenda. This should be a format string\nunderstood by `format-time-string', or a function returning the\nformatted date as a string. The function must take a single\nargument, a calendar-style date list like (month day year)." (choice (string :tag "Format string") (function :tag "Function"))] 8) | |
| 89 | #@128 Format a DATE string for display in the daily/weekly agenda. | |
| 90 | This function makes sure that dates are aligned for easy reading. | |
| 91 | (defalias 'org-agenda-format-date-aligned #[(date) "\306\307!\210\310!A@\311!@ \312\f! \3138 #\314\211\3138)\315 $\211 #\316U\2036 \317\320!\202\250#\316V\203\277 #S$\321\211\211@) \211A@)\3138) #\n\fS\322_\\ %\f\313V\203\247 %\323\f\324_\\\325\245Z%#\211 #\316W\203\205 \326#!S##\324\246\316U\205\236 #\327\246\316U?\206\236 #\330\246\316U)\203\247 %T%%-$\331_$\324\245$\327\245[$\330\245%\202\250\326#T!$\332\211\211@) \211A@)\3138) #\n\fS\322_\\ %\f\313V\203+%\323\f\324_\\\325\245Z%#\211 #\316W\203 \326#!S##\324\246\316U\205\"#\327\246\316U?\206\"#\330\246\316U)\203+%T%%-$\331_$\324\245$\327\245[$\330\245\333\211\211@) \211A@)\3138) #\n\fS\322_\\ %\f\313V\203\243%\323\f\324_\\\325\245Z%#\211 #\316W\203\201\326#!S##\324\246\316U\205\232#\327\246\316U?\206\232#\330\246\316U)\203\243%T%%-&+! &\f\334U\203\277&\335Y\203\277#S\202\324\f\336U\203\322&\334X\203\322#T\202\324# ' \334U\203\344\337\340&\"\202\345\341 (\337\342 \n #(&. \207" [date dayname day day-of-week month monthname require cal-iso calendar-day-name calendar-day-of-week calendar-month-name 2 org-days-to-iso-week nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 52 12 format " W%02d" "" "%-10s %2d %s %4d%s" year offset-years day-of-year iso-week weekyear weekstring] 12 (#$ . 41600)]) | |
| 92 | (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\302\313\304\314\306\307\310\311& \207" [custom-declare-variable org-agenda-time-leading-zero nil "Non-nil means use leading zero for military times in agenda.\nFor example, 9:30am would become 09:30 rather than 9:30." :group org-agenda-daily/weekly :version "24.1" :type boolean org-agenda-timegrid-use-ampm "When set, show AM/PM style timestamps on the timegrid." org-agenda] 10) | |
| 93 | #@70 Convert TIME of a string like "13:45" to an AM/PM style time string. | |
| 94 | (defalias 'org-agenda-time-of-day-to-ampm #[(time) "\305\306\307O!\310\311O\312 \313\232\203 \314\202% \313V\203% \314 \313Z\f\2030 \315\316 \"\2026 \315\317\320 !\"\321\n R+\207" [time hour-number minute ampm org-agenda-time-leading-zero string-to-number 0 -3 -2 nil "am" 12 "pm" format "%02d" "%02s" number-to-string ":"] 4 (#$ . 43593)]) | |
| 95 | #@85 Conditionally convert TIME to AM/PM format based on `org-agenda-timegrid-use-ampm'. | |
| 96 | (defalias 'org-agenda-time-of-day-to-ampm-maybe #[(time) "\203 \302 !\207 \207" [org-agenda-timegrid-use-ampm time org-agenda-time-of-day-to-ampm] 2 (#$ . 44019)]) | |
| 97 | (byte-code "\301\302\303\304\305\306\307\310&\210\301\311\312\313\305\306\314\315\307\316& \210\301\317\320\321\305\306\307\316&\210\301\322\312\323\305\306\314\315\307\316& \210\301\324\312\325\305\306\307\326\314\327\330\331\332\333& \210\301\334\320\335\305\306\307\336\314\327\330\337\332\340& \210\301\341\342\343\305\306\307\344\332\345& \210\301\346\342\347\305\306\307\344\314\327\330\350\332\345& \210\301\351\352\353\305\306\307\354&\210\301\355\356\357\305\306\305\360\314\315\307\361& \210\301\362\312\363\305\306\307\316&\210\301\364\320\365\305\366\305\306\307\367& \210\301\370\320\371\305\366\305\306\307\316& \210\301\372\373\374\305\306\307\361&\210\301\375\320\376\305\377\314\315\307\316& \210\201@ \201A \375\"\210\301\201B \320\201C \305\377\314\315\307\316& \210\301\201D \201E \201F \305\377\314\327\330\201G \307\344& \210\201H \201I \320\201J \201K \201L \305\201M &\210\301\201N \312\201O \305\201I \307\316&\210\301\201P \312\201Q \305\201I \307\316&\210\301\201I \201R \201S \305\201I \307\201T &\210\301\201U \312\201V \305\201I \314\315\307\316& \210\301\201W \201X \201Y \305\201I \314\315\307\201Z & \210\201H \201[ \320\201\\ \201K \201] \305\201M &\210\301\201^ \201_ \201` \305\201[ \307\201a \201b \201K \201c F\201d \201K \201e \201f \201g \201b DE\201f \201h \201b DE\201f \201i \201b DE\201f \201j \201b DE\257E&\210\301\201k \320\201l \305\201[ \307\201m &\210\301\201n \312\201o \305\201[ \307\316&\210\301\201p \312\201q \305\201[ \307\316&\210\201H \201r \320\201s \201K \201t \305\201M &\210\301\201u \201v \201w \307\201x \305\201r \314\327\330\201y & \207" [org-sorting-choice custom-declare-variable org-agenda-weekend-days '(6 0) "Which days are weekend?\nThese days get the special face `org-agenda-date-weekend' in the agenda." :group org-agenda-daily/weekly :type (set :greedy t (const :tag "Monday" 1) (const :tag "Tuesday" 2) (const :tag "Wednesday" 3) (const :tag "Thursday" 4) (const :tag "Friday" 5) (const :tag "Saturday" 6) (const :tag "Sunday" 0)) org-agenda-move-date-from-past-immediately-to-today t "Non-nil means jump to today when moving a past date forward in time.\nWhen using S-right in the agenda to move a a date forward, and the date\nstamp currently points to the past, the first key press will move it\nto today. WHen nil, just move one day forward even if the date stays\nin the past." :version "24.1" boolean org-agenda-include-diary nil "If non-nil, include in the agenda entries from the Emacs Calendar's diary.\nCustom commands can set this variable in the options section." org-agenda-include-deadlines "If non-nil, include entries within their deadline warning period.\nCustom commands can set this variable in the options section." org-agenda-show-future-repeats "Non-nil shows repeated entries in the future part of the agenda.\nWhen set to the symbol `next' only the first future repeat is shown." (choice (const :tag "Show all repeated entries" t) (const :tag "Show next repeated entry" next) (const :tag "Do not show repeated entries" nil)) "26.1" :package-version (Org . "9.1") :safe symbolp org-agenda-prefer-last-repeat "Non-nil sets date for repeated entries to their last repeat.\n\nWhen nil, display SCHEDULED and DEADLINE dates at their base\ndate, and in today's agenda, as a reminder. Display plain\ntime-stamps, on the other hand, at every repeat date in the past\nin addition to the base date.\n\nWhen non-nil, show a repeated entry at its latest repeat date,\npossibly being today even if it wasn't marked as done. This\nsetting is useful if you do not always mark repeated entries as\ndone and, yet, consider that reaching repeat date starts the task\nanew.\n\nWhen set to a list of strings, prefer last repeats only for\nentries with these TODO keywords." (choice (const :tag "Prefer last repeat" t) (const :tag "Prefer base date" nil) (repeat :tag "Prefer last repeat for entries with these TODO keywords" (string :tag "TODO keyword"))) (Org . "9.1") #[(x) "\301!\206 :\207" [x booleanp] 2] org-scheduled-past-days 10000 "Number of days to continue listing scheduled items not marked DONE.\nWhen an item is scheduled on a date, it shows up in the agenda on\nthis day and will be listed until it is marked done or for the\nnumber of days given here." integer integerp org-deadline-past-days "Number of days to warn about missed deadlines.\nWhen an item has deadline on a date, it shows up in the agenda on\nthis day and will appear as a reminder until it is marked DONE or\nfor the number of days given here." (Org . "9.1") org-agenda-log-mode-items '(closed clock) "List of items that should be shown in agenda log mode.\n\\<org-agenda-mode-map>This list may contain the following symbols:\n\n closed Show entries that have been closed on that day.\n clock Show entries that have received clocked time on that day.\n state Show all logged state changes.\nNote that instead of changing this variable, you can also press `\\[universal-argument] \\[org-agenda-log-mode]' in\nthe agenda to display all available LOG items temporarily." (set :greedy t (const closed) (const clock) (const state)) org-agenda-clock-consistency-checks '(:max-duration "10:00" :min-duration 0 :max-gap "0:05" :gap-ok-around ("4:00") :default-face ((:background "DarkRed") (:foreground "white")) :overlap-face nil :gap-face nil :no-end-time-face nil :long-face nil :short-face nil) "This is a property list, with the following keys:\n\n:max-duration Mark clocking chunks that are longer than this time.\n This is a time string like \"HH:MM\", or the number\n of minutes as an integer.\n\n:min-duration Mark clocking chunks that are shorter that this.\n This is a time string like \"HH:MM\", or the number\n of minutes as an integer.\n\n:max-gap Mark gaps between clocking chunks that are longer than\n this duration. A number of minutes, or a string\n like \"HH:MM\".\n\n:gap-ok-around List of times during the day which are usually not working\n times. When a gap is detected, but the gap contains any\n of these times, the gap is *not* reported. For example,\n if this is (\"4:00\" \"13:00\") then gaps that contain\n 4:00 in the morning (i.e. the night) and 13:00\n (i.e. a typical lunch time) do not cause a warning.\n You should have at least one time during the night in this\n list, or otherwise the first task each morning will trigger\n a warning because it follows a long gap.\n\nFurthermore, the following properties can be used to define faces for\nissue display.\n\n:default-face the default face, if the specific face is undefined\n:overlap-face face for overlapping clocks\n:gap-face face for gaps between clocks\n:no-end-time-face face for incomplete clocks\n:long-face face for clock intervals that are too long\n:short-face face for clock intervals that are too short" org-clock plist org-agenda-log-mode-add-notes "Non-nil means add first line of notes to log entries in agenda views.\nIf a log item like a state change or a clock entry is associated with\nnotes, the first line of these notes will be added to the entry in the\nagenda display." org-agenda-start-with-log-mode "The initial value of log-mode in a newly created agenda window.\nSee `org-agenda-log-mode' and `org-agenda-log-mode-items' for further\nexplanations on the possible values." org-agenda-startup (choice (const :tag "Don't show log items" nil) (const :tag "Show only log items" only) (const :tag "Show all possible log items" clockcheck) (repeat :tag "Choose among possible values for `org-agenda-log-mode-items'" (choice (const :tag "Show closed log items" closed) (const :tag "Show clocked log items" clock) (const :tag "Show all logged state changes" state)))) org-agenda-start-with-clockreport-mode "The initial value of clockreport-mode in a newly created agenda window." org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2) "Property list with parameters for the clocktable in clockreport mode.\nThis is the display mode that shows a clock table in the daily/weekly\nagenda, the properties for this dynamic block can be set here.\nThe usual clocktable parameters are allowed here, but you cannot set\nthe properties :name, :tstart, :tend, :block, and :scope - these will\nbe overwritten to make sure the content accurately reflects the\ncurrent display in the agenda." org-agenda-search-view-always-boolean "Non-nil means the search string is interpreted as individual parts.\n\nThe search string for search view can either be interpreted as a phrase,\nor as a list of snippets that define a boolean search for a number of\nstrings.\n\nWhen this is non-nil, the string will be split on whitespace, and each\nsnippet will be searched individually, and all must match in order to\nselect an entry. A snippet is then a single string of non-white\ncharacters, or a string in double quotes, or a regexp in {} braces.\nIf a snippet is preceded by \"-\", the snippet must *not* match.\n\"+\" is syntactic sugar for positive selection. Each snippet may\nbe found as a full word or a partial word, but see the variable\n`org-agenda-search-view-force-full-words'.\n\nWhen this is nil, search will look for the entire search phrase as one,\nwith each space character matching any amount of whitespace, including\nline breaks.\n\nEven when this is nil, you can still switch to Boolean search dynamically\nby preceding the first snippet with \"+\" or \"-\". If the first snippet\nis a regexp marked with braces like \"{abc}\", this will also switch to\nboolean search." org-agenda-search-view defvaralias org-agenda-search-view-search-words-only org-agenda-search-view-force-full-words "Non-nil means, search words must be matches as complete words.\nWhen nil, they may also match part of a word." org-agenda-search-view-max-outline-level 0 "Maximum outline level to display in search view.\nE.g. when this is set to 1, the search view will only\nshow headlines of level 1. When set to 0, the default\nvalue, don't limit agenda view by outline level." (Org . "8.3") custom-declare-group org-agenda-time-grid "Options concerning the time grid in the Org Agenda." :tag "Org Agenda Time Grid" org-agenda org-agenda-search-headline-for-time "Non-nil means search headline for a time-of-day.\nIf the headline contains a time-of-day in one format or another, it will\nbe used to sort the entry into the time sequence of items for a day.\nSome people have time stamps in the headline that refer to the creation\ntime or so, and then this produces an unwanted side effect. If this is\nthe case for your, use this variable to turn off searching the headline\nfor a time." org-agenda-use-time-grid "Non-nil means show a time grid in the agenda schedule.\nA time grid is a set of lines for specific times (like every two hours between\n8:00 and 20:00). The items scheduled for a day at specific times are\nsorted in between these lines.\nFor details about when the grid will be shown, and what it will look like, see\nthe variable `org-agenda-time-grid'." '((daily today require-timed) (800 1000 1200 1400 1600 1800 2000) "......" "----------------") "The settings for time grid for agenda display.\nThis is a list of four items. The first item is again a list. It contains\nsymbols specifying conditions when the grid should be displayed:\n\n daily if the agenda shows a single day\n weekly if the agenda shows an entire week\n today show grid on current date, independent of daily/weekly display\n require-timed show grid only if at least one item has a time specification\n remove-match skip grid times already present in an entry\n\nThe second item is a list of integers, indicating the times that\nshould have a grid line.\n\nThe third item is a string which will be placed right after the\ntimes that have a grid line.\n\nThe fourth item is a string placed after the grid times. This\nwill align with agenda items" (list (set :greedy t :tag "Grid Display Options" (const :tag "Show grid in single day agenda display" daily) (const :tag "Show grid in weekly agenda display" weekly) (const :tag "Always show grid for today" today) (const :tag "Show grid only if any timed entries are present" require-timed) (const :tag "Skip grid times already present in an entry" remove-match)) (repeat :tag "Grid Times" (integer :tag "Time")) (string :tag "Grid String (after agenda times)") (string :tag "Grid String (aligns with agenda items)")) org-agenda-show-current-time-in-grid "Non-nil means show the current time in the time grid." org-agenda-current-time-string "now - - - - - - - - - - - - - - - - - - - - - - - - -" "The string for the current time marker in the agenda." string org-agenda-sorting "Options concerning sorting in the Org Agenda." "Org Agenda Sorting" org-agenda-sorting-strategy '((agenda habit-down time-up priority-down category-keep) (todo priority-down category-keep) (tags priority-down category-keep) (search category-keep)) "Sorting structure for the agenda items of a single day.\nThis is a list of symbols which will be used in sequence to determine\nif an entry should be listed before another entry. The following\nsymbols are recognized:\n\ntime-up Put entries with time-of-day indications first, early first\ntime-down Put entries with time-of-day indications first, late first\ntimestamp-up Sort by any timestamp, early first\ntimestamp-down Sort by any timestamp, late first\nscheduled-up Sort by scheduled timestamp, early first\nscheduled-down Sort by scheduled timestamp, late first\ndeadline-up Sort by deadline timestamp, early first\ndeadline-down Sort by deadline timestamp, late first\nts-up Sort by active timestamp, early first\nts-down Sort by active timestamp, late first\ntsia-up Sort by inactive timestamp, early first\ntsia-down Sort by inactive timestamp, late first\ncategory-keep Keep the default order of categories, corresponding to the\n sequence in `org-agenda-files'.\ncategory-up Sort alphabetically by category, A-Z.\ncategory-down Sort alphabetically by category, Z-A.\ntag-up Sort alphabetically by last tag, A-Z.\ntag-down Sort alphabetically by last tag, Z-A.\npriority-up Sort numerically by priority, high priority last.\npriority-down Sort numerically by priority, high priority first.\ntodo-state-up Sort by todo state, tasks that are done last.\ntodo-state-down Sort by todo state, tasks that are done first.\neffort-up Sort numerically by estimated effort, high effort last.\neffort-down Sort numerically by estimated effort, high effort first.\nuser-defined-up Sort according to `org-agenda-cmp-user-defined', high last.\nuser-defined-down Sort according to `org-agenda-cmp-user-defined', high first.\nhabit-up Put entries that are habits first\nhabit-down Put entries that are habits last\nalpha-up Sort headlines alphabetically\nalpha-down Sort headlines alphabetically, reversed\n\nThe different possibilities will be tried in sequence, and testing stops\nif one comparison returns a \"not-equal\". For example, the default\n '(time-up category-keep priority-down)\nmeans: Pull out all entries having a specified time of day and sort them,\nin order to make a time schedule for the current day the first thing in the\nagenda listing for the day. Of the entries without a time indication, keep\nthe grouped in categories, don't sort the categories, but keep them in\nthe sequence given in `org-agenda-files'. Within each category sort by\npriority.\n\nLeaving out `category-keep' would mean that items will be sorted across\ncategories by priority.\n\nInstead of a single list, this can also be a set of list for specific\ncontents, with a context symbol in the car of the list, any of\n`agenda', `todo', `tags', `search' for the corresponding agenda views.\n\nCustom commands can bind this variable in the options section." choice repeat "General" list "Individually" cons (const :tag "Strategy for Weekly/Daily agenda" agenda) (const :tag "Strategy for TODO lists" todo) (const :tag "Strategy for Tags matches" tags) (const :tag "Strategy for search matches" search) org-agenda-cmp-user-defined "A function to define the comparison `user-defined'.\nThis function must receive two arguments, agenda entry a and b.\nIf a>b, return +1. If a<b, return -1. If they are equal as seen by\nthe user comparison, return nil.\nWhen this is defined, you can make `user-defined-up' and `user-defined-down'\npart of an agenda sorting strategy." symbol org-sort-agenda-notime-is-late "Non-nil means items without time are considered late.\nThis is only relevant for sorting. When t, items which have no explicit\ntime like 15:30 will be considered as 99:01, i.e. later than any items which\ndo have a time. When nil, the default time is before 0:00. You can use this\noption to decide if the schedule for today should come before or after timeless\nagenda entries." org-sort-agenda-noeffort-is-high "Non-nil means items without effort estimate are sorted as high effort.\nThis also applies when filtering an agenda view with respect to the\n< or > effort operator. Then, tasks with no effort defined will be treated\nas tasks with high effort.\nWhen nil, such items are sorted as 0 minutes effort." org-agenda-line-format "Options concerning the entry prefix in the Org agenda display." "Org Agenda Line Format" org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s") (todo . " %i %-12:c") (tags . " %i %-12:c") (search . " %i %-12:c")) "Format specifications for the prefix of items in the agenda views.\n\nAn alist with one entry per agenda type. The keys of the\nsublists are `agenda', `todo', `search' and `tags'. The values\nare format strings.\n\nThis format works similar to a printf format, with the following meaning:\n\n %c the category of the item, \"Diary\" for entries from the diary,\n or as given by the CATEGORY keyword or derived from the file name\n %e the effort required by the item\n %l the level of the item (insert X space(s) if item is of level X)\n %i the icon category of the item, see `org-agenda-category-icon-alist'\n %T the last tag of the item (ignore inherited tags, which come first)\n %t the HH:MM time-of-day specification if one applies to the entry\n %s Scheduling/Deadline information, a short string\n %b show breadcrumbs, i.e., the names of the higher levels\n %(expression) Eval EXPRESSION and replace the control string\n by the result\n\nAll specifiers work basically like the standard `%s' of printf, but may\ncontain two additional characters: a question mark just after the `%'\nand a whitespace/punctuation character just before the final letter.\n\nIf the first character after `%' is a question mark, the entire field\nwill only be included if the corresponding value applies to the current\nentry. This is useful for fields which should have fixed width when\npresent, but zero width when absent. For example, \"%?-12t\" will\nresult in a 12 character time field if a time of the day is specified,\nbut will completely disappear in entries which do not contain a time.\n\nIf there is punctuation or whitespace character just before the\nfinal format letter, this character will be appended to the field\nvalue if the value is not empty. For example, the format\n\"%-12:c\" leads to \"Diary: \" if the category is \"Diary\". If\nthe category is empty, no additional colon is inserted.\n\nThe default value for the agenda sublist is \" %-12:c%?-12t% s\",\nwhich means:\n\n- Indent the line with two space characters\n- Give the category a 12 chars wide field, padded with whitespace on\n the right (because of `-'). Append a colon if there is a category\n (because of `:').\n- If there is a time-of-day, put it into a 12 chars wide field. If no\n time, don't put in an empty field, just skip it (because of '?').\n- Finally, put the scheduling information.\n\nSee also the variables `org-agenda-remove-times-when-in-prefix' and\n`org-agenda-remove-tags'.\n\nCustom commands can set this variable in the options section." (choice (string :tag "General format") (list :greedy t :tag "View dependent" (cons (const agenda) (string :tag "Format")) (cons (const todo) (string :tag "Format")) (cons (const tags) (string :tag "Format")) (cons (const search) (string :tag "Format")))) (Org . "9.1")] 19) | |
| 98 | #@221 The compiled prefix format and associated variables. | |
| 99 | This is a list where first element is a list of variable bindings, and second | |
| 100 | element is the compiled format expression. See the variable | |
| 101 | `org-agenda-prefix-format'. | |
| 102 | (defvar org-prefix-format-compiled nil (#$ . 64996)) | |
| 103 | (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\210\300\320\321\322\304\305\323\324\325\326\306\327& \210\300\330\331\332\304\305\323\333\306\307& \210\300\334\335\336\304\305\323\324\325\337\306\340& \210\300\341\342\343\304\305\306\344&\210\300\345\311\346\304\305\323\333\306\347& \210\300\350\311\351\304\305\306\352&\210\300\353\342\354\304\305\304\355\323\356\306\357& \210\300\360\361\362\304\355\323\363\325\364\306\365& \210\300\366\311\367\304\305\306\370&\210\300\371\311\372\304\305\306\373&\210\374\375\371\"\210\300\376\377\201@ \304\305\306\201A \325\201B \323\363& \210\374\201C \376\"\210\300\201D \201E \201F \304\305\306\201G &\210\300\201H \311\201I \304\305\323\333\306\201J & \210\300\201K \311\201L \304\305\323\333\306\201M & \210\201N \201O \311\201P \201Q \201R \304\355&\210\300\201S \311\201T \304\201O \306\347\323\363\325\201U \201V \201W & \210\300\201X \342\201Y \304\201O \306\347&\210\300\201Z \342\201[ \304\201O \306\347&\210\300\201\\ \311\201] \304\201O \306\347&\210\300\201^ \311\201_ \304\355\306\201` &\210\300\201a \311\201b \306\201c \323\333\304\355& \207" [custom-declare-variable org-agenda-todo-keyword-format "%-1s" "Format for the TODO keyword in agenda lines.\nSet this to something like \"%-12s\" if you want all TODO keywords\nto occupy a fixed space in the agenda display." :group org-agenda-line-format :type string org-agenda-diary-sexp-prefix nil "A regexp that matches part of a diary sexp entry\nwhich should be treated as scheduling/deadline information in\n`org-agenda'.\n\nFor example, you can use this to extract the `diary-remind-message' from\n`diary-remind' entries." (choice (const :tag "None" nil) (regexp :tag "Regexp")) org-agenda-timerange-leaders '("" "(%d/%d): ") "Text preceding timerange entries in the agenda view.\nThis is a list with two strings. The first applies when the range\nis entirely on one day. The second applies if the range spans several days.\nThe strings may have two \"%d\" format specifiers which will be filled\nwith the sequence number of the days, and the total number of days in the\nrange, respectively." (list (string :tag "Deadline today ") (choice :tag "Deadline relative" (string :tag "Format string") (function))) org-agenda-scheduled-leaders '("Scheduled: " "Sched.%2dx: ") "Text preceding scheduled items in the agenda view.\nThis is a list with two strings. The first applies when the item is\nscheduled on the current day. The second applies when it has been scheduled\npreviously, it may contain a %d indicating that this is the nth time that\nthis item is scheduled, due to automatic rescheduling of unfinished items\nfor the following day. So this number is one larger than the number of days\nthat passed since this item was scheduled first." :version "24.4" :package-version (Org . "8.0") (list (string :tag "Scheduled today ") (string :tag "Scheduled previously")) org-agenda-inactive-leader "[" "Text preceding item pulled into the agenda by inactive time stamps.\nThese entries are added to the agenda when pressing \"[\"." "24.1" org-agenda-deadline-leaders '("Deadline: " "In %3d d.: " "%2d d. ago: ") "Text preceding deadline items in the agenda view.\nThis is a list with three strings. The first applies when the item has its\ndeadline on the current day. The second applies when the deadline is in the\nfuture, the third one when it is in the past. The strings may contain %d\nto capture the number of days." (Org . "8.0") (list (string :tag "Deadline today ") (string :tag "Deadline in the future ") (string :tag "Deadline in the past ")) org-agenda-remove-times-when-in-prefix t "Non-nil means remove duplicate time specifications in agenda items.\nWhen the format `org-agenda-prefix-format' contains a `%t' specifier, a\ntime-of-day specification in a headline or diary entry is extracted and\nplaced into the prefix. If this option is non-nil, the original specification\n(a timestamp or -range, or just a plain time(range) specification like\n11:30-4pm) will be removed for agenda display. This makes the agenda less\ncluttered.\nThe option can be t or nil. It may also be the symbol `beg', indicating\nthat the time should only be removed when it is located at the beginning of\nthe headline/diary entry." (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When at beginning of entry" beg)) org-agenda-remove-timeranges-from-blocks "Non-nil means remove time ranges specifications in agenda\nitems that span on several days." boolean org-agenda-default-appointment-duration "Default duration for appointments that only have a starting time.\nWhen nil, no duration is specified in such cases.\nWhen non-nil, this must be the number of minutes, e.g. 60 for one hour." (choice (integer :tag "Minutes") (const :tag "No default duration")) org-agenda-show-inherited-tags "Non-nil means show inherited tags in each agenda line.\n\nWhen this option is set to `always', it takes precedence over\n`org-agenda-use-tag-inheritance' and inherited tags are shown\nin every agenda.\n\nWhen this option is set to t (the default), inherited tags are\nshown when they are available, i.e. when the value of\n`org-agenda-use-tag-inheritance' enables tag inheritance for the\ngiven agenda type.\n\nThis can be set to a list of agenda types in which the agenda\nmust display the inherited tags. Available types are `todo',\n`agenda' and `search'.\n\nWhen set to nil, never show inherited tags in agenda lines." org-agenda "24.3" (choice (const :tag "Show inherited tags when available" t) (const :tag "Always show inherited tags" always) (repeat :tag "Show inherited tags only in selected agenda types" (symbol :tag "Agenda type"))) org-agenda-use-tag-inheritance '(todo search agenda) "List of agenda view types where to use tag inheritance.\n\nIn tags/tags-todo/tags-tree agenda views, tag inheritance is\ncontrolled by `org-use-tag-inheritance'. In other agenda types,\n`org-use-tag-inheritance' is not used for the selection of the\nagenda entries. Still, you may want the agenda to be aware of\nthe inherited tags anyway, e.g. for later tag filtering.\n\nAllowed value are `todo', `search' and `agenda'.\n\nThis variable has no effect if `org-agenda-show-inherited-tags'\nis set to `always'. In that case, the agenda is aware of those\ntags.\n\nThe default value sets tags in every agenda type. Setting this\noption to nil will speed up non-tags agenda view a lot." "26.1" (Org . "9.1") (choice (const :tag "Use tag inheritance in all agenda types" t) (repeat :tag "Use tag inheritance in selected agenda types" (symbol :tag "Agenda type"))) org-agenda-hide-tags-regexp "Regular expression used to filter away specific tags in agenda views.\nThis means that these tags will be present, but not be shown in the agenda\nline. Secondary filtering will still work on the hidden tags.\nNil means don't hide any tags." (choice (const :tag "Hide none" nil) (string :tag "Regexp ")) org-agenda-remove-tags "Non-nil means remove the tags from the headline copy in the agenda.\nWhen this is the symbol `prefix', only remove tags when\n`org-agenda-prefix-format' contains a `%T' specifier." (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When prefix format contains %T" prefix)) defvaralias org-agenda-remove-tags-when-in-prefix org-agenda-tags-column 'auto "Shift tags in agenda items to this column.\nIf set to `auto', tags will be automatically aligned to the right\nedge of the window.\n\nIf set to a positive number, tags will be left-aligned to that\ncolumn. If set to a negative number, tags will be right-aligned\nto that column. For example, -80 works well for a normal 80\ncharacter screen." (choice (const :tag "Automatically align to right edge of window" auto) (integer :tag "Specific column" -80)) (Org . "9.1") org-agenda-align-tags-to-column org-agenda-fontify-priorities 'cookies "Non-nil means highlight low and high priorities in agenda.\nWhen t, the highest priority entries are bold, lowest priority italic.\nHowever, settings in `org-priority-faces' will overrule these faces.\nWhen this variable is the symbol `cookies', only fontify the\ncookies, not the entire task.\nThis may also be an association list of priority faces, whose\nkeys are the character values of `org-highest-priority',\n`org-default-priority', and `org-lowest-priority' (the default values\nare ?A, ?B, and ?C, respectively). The face may be a named face, a\ncolor as a string, or a list like `(:background \"Red\")'.\nIf it is a color, the variable `org-faces-easy-properties'\ndetermines if it is a foreground or a background color." (choice (const :tag "Never" nil) (const :tag "Defaults" t) (const :tag "Cookies only" cookies) (repeat :tag "Specify" (list (character :tag "Priority" :value 65) (choice :tag "Face " (string :tag "Color") (sexp :tag "Face"))))) org-agenda-day-face-function "Function called to determine what face should be used to display a day.\nThe only argument passed to that function is the day. It should\nreturns a face, or nil if does not want to specify a face and let\nthe normal rules apply." (choice (const nil) (function)) org-agenda-category-icon-alist "Alist of category icon to be displayed in agenda views.\n\nEach entry should have the following format:\n\n (CATEGORY-REGEXP FILE-OR-DATA TYPE DATA-P PROPS)\n\nWhere CATEGORY-REGEXP is a regexp matching the categories where\nthe icon should be displayed.\nFILE-OR-DATA either a file path or a string containing image data.\n\nThe other fields can be omitted safely if not needed:\nTYPE indicates the image type.\nDATA-P is a boolean indicating whether the FILE-OR-DATA string is\nimage data.\nPROPS are additional image attributes to assign to the image,\nlike, e.g. `:ascent center'.\n\n (\"Org\" \"/path/to/icon.png\" nil nil :ascent center)\n\nIf you want to set the display properties yourself, just put a\nlist as second element:\n\n (CATEGORY-REGEXP (MY PROPERTY LIST))\n\nFor example, to display a 16px horizontal space for Emacs\ncategory, you can use:\n\n (\"Emacs\" \\='(space . (:width (16))))" (alist :key-type (string :tag "Regexp matching category") :value-type (choice (list :tag "Icon" (string :tag "File or data") (symbol :tag "Type") (boolean :tag "Data?") (repeat :tag "Extra image properties" :inline t symbol)) (list :tag "Display properties" sexp))) custom-declare-group org-agenda-column-view "Options concerning column view in the agenda." :tag "Org Agenda Column View" org-agenda-view-columns-initially "When non-nil, switch to columns view right after creating the agenda." (Org . "9.0") :safe booleanp org-agenda-columns-show-summaries "Non-nil means show summaries for columns displayed in the agenda view." org-agenda-columns-compute-summary-properties "Non-nil means recompute all summary properties before column view.\nWhen column view in the agenda is listing properties that have a summary\noperator, it can go to all relevant buffers and recompute the summaries\nthere. This can mean overhead for the agenda column view, but is necessary\nto have thing up to date.\nAs a special case, a CLOCKSUM property also makes sure that the clock\ncomputations are current." org-agenda-columns-add-appointments-to-effort-sum "Non-nil means the duration of an appointment will add to day effort.\nThe property to which appointment durations will be added is the one given\nin the option `org-effort-property'. If an appointment does not have\nan end time, `org-agenda-default-appointment-duration' will be used. If that\nis not set, an appointment without end time will not contribute to the time\nestimate." org-agenda-auto-exclude-function "A function called with a tag to decide if it is filtered on \\<org-agenda-mode-map>`\\[org-agenda-filter-by-tag] RET'.\nThe sole argument to the function, which is called once for each\npossible tag, is a string giving the name of the tag. The\nfunction should return either nil if the tag should be included\nas normal, or \"-<TAG>\" to exclude the tag.\nNote that for the purpose of tag filtering, only the lower-case version of\nall tags will be considered, so that this function will only ever see\nthe lower-case version of all tags." (choice (const nil) (function)) org-agenda-bulk-custom-functions "Alist of characters and custom functions for bulk actions.\nFor example, this value makes those two functions available:\n\n \\='((?R set-category)\n (?C bulk-cut))\n\nWith selected entries in an agenda buffer, `B R' will call\nthe custom function `set-category' on the selected entries.\nNote that functions in this alist don't need to be quoted." (alist :key-type character :value-type (group function))] 14) | |
| 104 | #@238 Execute BODY with point at location given by `org-hd-marker' property. | |
| 105 | If STRING is non-nil, the text property will be fetched from position 0 | |
| 106 | in that string. If STRING is nil, it will be fetched from the beginning | |
| 107 | of the current line. | |
| 108 | (defalias 'org-agenda-with-point-at-orig-entry '(macro . #[(string &rest body) "\303\304!\305\306\307 \310BB\311 FDC\312\313D\314\315D\nBBEE)\207" [marker string body make-symbol "--marker" let get-text-property if (0 (point-at-bol)) 'org-hd-marker with-current-buffer marker-buffer save-excursion goto-char] 7 (#$ . 78029)])) | |
| 109 | (put 'org-agenda-with-point-at-orig-entry 'edebug-form-spec '(form body)) | |
| 110 | #@206 Replace or add a command in `org-agenda-custom-commands'. | |
| 111 | This is mostly for hacking and trying a new command - once the command | |
| 112 | works you probably want to add it to `org-agenda-custom-commands' for good. | |
| 113 | (defalias 'org-add-agenda-custom-command #[(entry) "\303@ \"\211\203 \nA\241\202 B\211)\207" [entry org-agenda-custom-commands ass assoc] 4 (#$ . 78678)]) | |
| 114 | #@31 Keymap for `org-agenda-mode'. | |
| 115 | (defvar org-agenda-mode-map (make-sparse-keymap) (#$ . 79052)) | |
| 116 | (defvaralias 'org-agenda-keymap 'org-agenda-mode-map) | |
| 117 | (defvar org-agenda-restrict nil) | |
| 118 | (defvar org-agenda-follow-mode nil) | |
| 119 | (defvar org-agenda-entry-text-mode nil) | |
| 120 | (defvar org-agenda-clockreport-mode nil) | |
| 121 | #@126 When non-nil, show the log in the agenda. | |
| 122 | Do not set this directly; instead use | |
| 123 | `org-agenda-start-with-log-mode', which see. | |
| 124 | (defvar org-agenda-show-log nil (#$ . 79356)) | |
| 125 | (defvar org-agenda-redo-command nil) | |
| 126 | (defvar org-agenda-query-string nil) | |
| 127 | #@103 Hook run after `org-agenda-mode' is turned on. | |
| 128 | The buffer is still writable when this hook is called. | |
| 129 | (defvar org-agenda-mode-hook nil (#$ . 79608)) | |
| 130 | (defvar org-agenda-type nil) | |
| 131 | (defvar org-agenda-force-single-file nil) | |
| 132 | #@61 List of markers that refer to marked entries in the agenda. | |
| 133 | (defvar org-agenda-bulk-marked-entries nil (#$ . 79834)) | |
| 134 | #@39 Active date when building the agenda. | |
| 135 | (defvar org-agenda-current-date nil (#$ . 79957)) | |
| 136 | #@183 Non-nil means agenda q key will bury agenda buffers. | |
| 137 | Agenda commands will then show existing buffer instead of generating new ones. | |
| 138 | When nil, `q' will kill the single agenda buffer. | |
| 139 | (custom-declare-variable 'org-agenda-sticky nil '(#$ . 80052) :group 'org-agenda :version "24.3" :type 'boolean) | |
| 140 | #@29 Toggle `org-agenda-sticky'. | |
| 141 | (defalias 'org-toggle-sticky-agenda #[(&optional arg) "\203\f \303!\304V\202 ?\211 \232\203* \305\306!\205A \307\310 \203% \311\202& \312\"\202A \n\313 \210\305\306!\205A \307\314 \203? \311\202@ \312\")\207" [arg org-agenda-sticky new-value prefix-numeric-value 0 called-interactively-p interactive message "Sticky agenda was already %s" "enabled" "disabled" org-agenda-kill-all-agenda-buffers "Sticky agenda %s"] 4 (#$ . 80353) "P"]) | |
| 142 | #@42 Agenda buffer currently being generated. | |
| 143 | (defvar org-agenda-buffer nil (#$ . 80829)) | |
| 144 | (defvar org-agenda-last-prefix-arg nil) | |
| 145 | (defvar org-agenda-this-buffer-name nil) | |
| 146 | (defvar org-agenda-doing-sticky-redo nil) | |
| 147 | (defvar org-agenda-this-buffer-is-sticky nil) | |
| 148 | #@61 Last buffer loaded by `org-agenda-tree-to-indirect-buffer'. | |
| 149 | (defvar org-agenda-last-indirect-buffer nil (#$ . 81089)) | |
| 150 | #@75 Variables that must be local in agenda buffers to allow multiple buffers. | |
| 151 | (defconst org-agenda-local-vars '(org-agenda-this-buffer-name org-agenda-undo-list org-agenda-pending-undo-list org-agenda-follow-mode org-agenda-entry-text-mode org-agenda-clockreport-mode org-agenda-show-log org-agenda-redo-command org-agenda-query-string org-agenda-type org-agenda-bulk-marked-entries org-agenda-undo-has-started-in org-agenda-info org-agenda-pre-window-conf org-agenda-columns-active org-agenda-tag-filter org-agenda-category-filter org-agenda-top-headline-filter org-agenda-regexp-filter org-agenda-effort-filter org-agenda-markers org-agenda-last-search-view-search-was-boolean org-agenda-last-indirect-buffer org-agenda-filtered-by-category org-agenda-filter-form org-agenda-cycle-counter org-agenda-last-prefix-arg) (#$ . 81213)) | |
| 152 | #@120 Mode for time-sorted view on action items in Org files. | |
| 153 | ||
| 154 | The following commands are available: | |
| 155 | ||
| 156 | \{org-agenda-mode-map} | |
| 157 | (defalias 'org-agenda-mode #[nil "\203P \306 \307 \210\310\311\n\"\210 \312\211 \203E \f@\211:\203> @ A\211 2 3\211 4\203= 3\n>\203= 34L\210,\fA\211\204 +\311\313!\210\314 \202q 5\203g \307 \210\310\311\n\"\210\311\313!\210\314 \202q \307 \210\311\313!\210\312 \312\21167\3128\3159\311\316!\210\3179D\320:\312;\321<!\210\322=!\210>\203\237 \314?\311\323!\210\312\324\325\326\312\327$\210\324\330\331\312\327$\210\324\332\333\312\314$\210@\204\320 ABCDEFGH\334\335!\210\334\336!\210\337\340\341\342\343\344\345N\203\347 \346\202\350 \347\350\344\345N?#\351D\352\353\344 \"\"#\210\354 \210\355\356\357!\203\357\202\360\361C\"\207" [org-agenda-doing-sticky-redo save org-agenda-local-vars elem --dolist-tail-- #1=#:x509 buffer-local-variables kill-all-local-variables mapc make-local-variable nil org-agenda-this-buffer-is-sticky t org-agenda-mode font-lock-global-modes not "Org-Agenda" use-local-map easy-menu-add line-move-visual add-hook post-command-hook org-agenda-update-agenda-type local pre-command-hook org-unhighlight filter-buffer-substring-functions #[(fun start end delete) "\304 \n #!\207" [fun start end delete substring-no-properties] 5] add-to-invisibility-spec (org-filtered) (org-link) easy-menu-change ("Agenda") "Agenda Files" append vector org-agenda-files org-restrict "Restricted to single file" "Edit File List" (org-edit-agenda-file-list) "--" mapcar org-file-menu-entry org-agenda-set-mode-name apply fboundp run-mode-hooks run-hooks org-agenda-mode-hook #2=#:x510 var val org-agenda-sticky org-agenda-undo-list org-agenda-pending-undo-list org-agenda-bulk-marked-entries major-mode mode-name indent-tabs-mode org-agenda-mode-map org-agenda-menu org-startup-truncated truncate-lines org-agenda-keep-modes org-agenda-start-with-follow-mode org-agenda-follow-mode org-agenda-start-with-entry-text-mode org-agenda-entry-text-mode org-agenda-start-with-log-mode org-agenda-show-log org-agenda-start-with-clockreport-mode org-agenda-clockreport-mode] 10 (#$ . 82049) nil]) | |
| 158 | (byte-code "\304\305\306 $\210\307\310\311#\210\307\312\311#\210\307\313\314#\210\307\315\316#\210\307\317\320#\210\307\321\322#\210\307\323\324#\210\307\325\326#\210\307\327\330#\210\307\331\332#\210\307\333\334#\210\307\335\336#\210\307\337\340#\210\307\341\342#\210\307\343\344#\210\307\345\346#\210\307\347\350#\210\307\351\352#\210\307\353\354#\210\307\355\356#\210\307\357\360#\210\307\361\362#\210\307\363\364#\210\307\365\364#\210\307\366\364#\210\307\367\370#\210\307\371\372#\210\307\373\374#\210\307\375\374#\210\307\376\377#\210\307\201@ \201A #\210\307\201B \201C #\210\307\201D \201E #\210\307\201F \201G #\210\307\201H \201I #\210\307\201J \201I #\210\307\201K \201L #\210\307\201M \201N #\210\307\201O \201N #\210\307\201P \201Q #\210\307\201R \201S #\210\307\201T \201U #\210\307\201V \201W #\210\307\201X \201Y #\210\307\201Z \201[ #\210\307\201\\ \201[ #\210\307\201] \201^ #\210\307\201_ \201` #\210\307\201a \201^ #\210\307\201b \201` #\210\307\201c \201d #\210\307\201e \201f #\210\307\201g \201h #\210\201i \n\203\274\307\201j \n\211A\242!\201k #\210\202\245)\307\201l \201m #\210\307\201n \201o #\210\307\201p \201q #\210\307\201r \201s #\210\307\201t \201u #\210\307\201v \201w #\210\307\201x \201y #\210\307\201z \201{ #\210\307\201| \201} #\210\307\201~ \201 #\210\307\201\200 \201\201 #\210\307\201\202 \201\201 #\210\307\201\203 \201\204 #\210\307\201\205 \201\206 #\210\307\201\207 \201\210 #\210\307\201\211 \201\212 #\210\307\201\213 \201\214 #\210\307\201\215 \201\216 #\210\307\201\217 \201\220 #\210\307\201\221 \201\220 #\210\307\201\222 \201\223 #\210\307\201\224 \201\225 #\210\307\201\226 \201\227 #\210\307\201\230 \201\231 #\210\307\201\232 \201\233 #\210\304\201\234 \201\225 $\210\304\201\235 \201\227 $\210\307\201\236 \201\237 #\210\307\201\240 \201\241 #\210\307\201\242 \201\243 #\210\307\201\244 \201\245 #\210\307\201\246 \201\245 #\210\307\201\247 \201\250 #\210\307\201\251 \201\252 #\210\307\201\253 \201\254 #\210\307\201\255 \201\256 #\210\307\201\257 \201\260 #\210\307\201\261 \201\262 #\210\307\201\263 \201\262 #\210\307\201\264 \201\265 #\210\307\201\266 \201\265 #\210\307\201\267 \201\270 #\210\307\201\271 \201\270 #\210\307\201\272 \201\273 #\210\307\201\274 \201\273 #\210\307\201\275 \201\276 #\210\307\201\277 \201\300 #\210\307\201\301 \201\302 #\210\307\201\303 \201\304 #\210\307\201\305 \201\302 #\210\307\201\306 \201\304 #\210\307\201\307 \201\302 #\210\307\201\310 \201\304 #\210\307\201\311 \201\312 #\210\307\201\313 \201\314 #\210\307\201\315 \201\316 #\210\307\201\317 \201\320 #\210\307\201\321 \201\322 #\210\307\201\323 \201\324 #\210\307\201\325 \201\326 #\210\307\201\327 \201\330 #\210\307\201\331 \201\332 #\210\307\201\333 \201\334 #\210\307\201\335 \201\336 #\210\307\201\337 \201\340 #\210\307\201\341 \201\342 #\210\307\201\343 \201\344 #\210\307\201\345 \201\346 #\210\307\201\347 \201\350 #\210\307\201\351 \201\352 #\210\307\201\353 \201\354 #\210\201\355 \201\356 \201\357 #\210\307\201\360 \201\361 #\210\307\201\362 \201\363 #\210\307\201\364 \201\365 #\210\307\201\366 \201\367 #\210\201\355 \201\370 \201\371 #\210\201\355 \201\372 \201\373 #\210 \203\337\307\201\374 \201\375 #\210\304\207" [org-agenda-mode-map global-map l org-agenda-mouse-1-follows-link substitute-key-definition undo org-agenda-undo org-defkey " " org-agenda-goto [(tab)] " " org-agenda-switch-to " " org-agenda-kill "" org-agenda-refile [(meta down)] org-agenda-drag-line-forward [(meta up)] org-agenda-drag-line-backward "m" org-agenda-bulk-mark "\355" org-agenda-bulk-toggle "*" org-agenda-bulk-mark-all "\252" org-agenda-bulk-toggle-all "#" org-agenda-dim-blocked-tasks "%" org-agenda-bulk-mark-regexp "u" org-agenda-bulk-unmark "U" org-agenda-bulk-unmark-all "B" org-agenda-bulk-action "k" org-agenda-capture "A" org-agenda-append-agenda "!" org-reload "" org-agenda-archive-default "a" org-agenda-toggle-archive-tag "A" org-agenda-archive-to-archive-sibling "" org-agenda-archive "$" "$" "" org-agenda-open-link " " org-agenda-show-and-scroll-up [backspace] org-agenda-show-scroll-down "" [(control shift right)] org-agenda-todo-nextset [(control shift left)] org-agenda-todo-previousset "b" org-agenda-tree-to-indirect-buffer "o" delete-other-windows "L" org-agenda-recenter "" org-agenda-todo "t" "a" org-agenda-archive-default-with-confirmation ":" org-agenda-set-tags "" "." org-agenda-goto-today "j" org-agenda-goto-date "d" org-agenda-day-view "w" org-agenda-week-view "y" org-agenda-year-view "" org-agenda-add-note "z" [(shift right)] org-agenda-do-date-later [(shift left)] org-agenda-do-date-earlier [3 24 (right)] [3 24 (left)] ">" org-agenda-date-prompt "" org-agenda-schedule "" org-agenda-deadline (1 2 3 4 5 6 7 8 9 0) int-to-string digit-argument "F" org-agenda-follow-mode "R" org-agenda-clockreport-mode "E" org-agenda-entry-text-mode "l" org-agenda-log-mode "v" org-agenda-view-mode-dispatch "D" org-agenda-toggle-diary "!" org-agenda-toggle-deadlines "G" org-agenda-toggle-time-grid "r" org-agenda-redo "g" org-agenda-redo-all "e" org-agenda-set-effort "e" "" org-clock-modify-effort-estimate "p" org-agenda-set-property "q" org-agenda-quit "Q" org-agenda-Quit "x" org-agenda-exit "" org-agenda-write "" org-save-all-org-buffers "s" "T" org-agenda-show-tags "n" org-agenda-next-line "p" org-agenda-previous-line "N" org-agenda-next-item "P" org-agenda-previous-item next-line previous-line "" org-attach "" org-agenda-next-date-line "" org-agenda-previous-date-line "," org-agenda-priority "," "i" org-agenda-diary-entry "c" org-agenda-goto-calendar "C" org-agenda-convert-date "M" org-agenda-phases-of-moon "S" org-agenda-sunrise-sunset "h" org-agenda-holidays "H" " " org-agenda-clock-in "I" "" org-agenda-clock-out "O" "" org-agenda-clock-cancel "X" "\n" org-clock-goto "J" org-agenda-clock-goto "+" org-agenda-priority-up "-" org-agenda-priority-down [(shift up)] [(shift down)] [3 24 (up)] [3 24 (down)] "f" org-agenda-later "b" org-agenda-earlier "" org-agenda-columns ">" org-agenda-remove-restriction-lock "<" org-agenda-set-restriction-lock-from-agenda "[" org-agenda-manipulate-query-add "]" org-agenda-manipulate-query-subtract "{" org-agenda-manipulate-query-add-re "}" org-agenda-manipulate-query-subtract-re "/" org-agenda-filter-by-tag "_" org-agenda-filter-by-effort "=" org-agenda-filter-by-regexp "|" org-agenda-filter-remove-all "~" org-agenda-limit-interactively "<" org-agenda-filter-by-category "^" org-agenda-filter-by-top-headline ";" org-timer-set-timer "_" org-timer-stop define-key "?" org-agenda-show-the-flagging-note " g" org-mobile-pull " p" org-mobile-push [mouse-2] org-agenda-goto-mouse [mouse-3] org-agenda-show-mouse [remap forward-paragraph] org-agenda-forward-block [remap backward-paragraph] org-agenda-backward-block [follow-link] mouse-face] 5) | |
| 159 | #@13 Agenda menu | |
| 160 | (defvar org-agenda-menu nil (#$ . 91205)) | |
| 161 | (easy-menu-do-define 'org-agenda-menu org-agenda-mode-map "Agenda menu" '("Agenda" ("Agenda Files") "--" ("Agenda Dates" ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda)] ["Next Dates" org-agenda-later (org-agenda-check-type nil 'agenda)] ["Previous Dates" org-agenda-earlier (org-agenda-check-type nil 'agenda)] ["Jump to date" org-agenda-goto-date (org-agenda-check-type nil 'agenda)]) "--" ("View" ["Day View" org-agenda-day-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'day) :keys "v d (or just d)"] ["Week View" org-agenda-week-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'week) :keys "v w"] ["Fortnight View" org-agenda-fortnight-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'fortnight) :keys "v t"] ["Month View" org-agenda-month-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'month) :keys "v m"] ["Year View" org-agenda-year-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (eq org-agenda-current-span 'year) :keys "v y"] "--" ["Include Diary" org-agenda-toggle-diary :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)] ["Include Deadlines" org-agenda-toggle-deadlines :style toggle :selected org-agenda-include-deadlines :active (org-agenda-check-type nil 'agenda)] ["Use Time Grid" org-agenda-toggle-time-grid :style toggle :selected org-agenda-use-time-grid :active (org-agenda-check-type nil 'agenda)] "--" ["Show clock report" org-agenda-clockreport-mode :style toggle :selected org-agenda-clockreport-mode :active (org-agenda-check-type nil 'agenda)] ["Show some entry text" org-agenda-entry-text-mode :style toggle :selected org-agenda-entry-text-mode :active t] "--" ["Show Logbook entries" org-agenda-log-mode :style toggle :selected org-agenda-show-log :active (org-agenda-check-type nil 'agenda) :keys "v l (or just l)"] ["Include archived trees" org-agenda-archives-mode :style toggle :selected org-agenda-archives-mode :active t :keys "v a"] ["Include archive files" (org-agenda-archives-mode t) :style toggle :selected (eq org-agenda-archives-mode t) :active t :keys "v A"] "--" ["Remove Restriction" org-agenda-remove-restriction-lock org-agenda-restrict]) ["Write view to file" org-agenda-write t] ["Rebuild buffer" org-agenda-redo t] ["Save all Org buffers" org-save-all-org-buffers t] "--" ["Show original entry" org-agenda-show t] ["Go To (other window)" org-agenda-goto t] ["Go To (this window)" org-agenda-switch-to t] ["Capture with cursor date" org-agenda-capture t] ["Follow Mode" org-agenda-follow-mode :style toggle :selected org-agenda-follow-mode :active t] "--" ("TODO" ["Cycle TODO" org-agenda-todo t] ["Next TODO set" org-agenda-todo-nextset t] ["Previous TODO set" org-agenda-todo-previousset t] ["Add note" org-agenda-add-note t]) ("Archive/Refile/Delete" ["Archive default" org-agenda-archive-default t] ["Archive default" org-agenda-archive-default-with-confirmation t] ["Toggle ARCHIVE tag" org-agenda-toggle-archive-tag t] ["Move to archive sibling" org-agenda-archive-to-archive-sibling t] ["Archive subtree" org-agenda-archive t] "--" ["Refile" org-agenda-refile t] "--" ["Delete subtree" org-agenda-kill t]) ("Bulk action" ["Mark entry" org-agenda-bulk-mark t] ["Mark all" org-agenda-bulk-mark-all t] ["Unmark entry" org-agenda-bulk-unmark t] ["Unmark all" org-agenda-bulk-unmark-all :active t :keys "U"] ["Toggle mark" org-agenda-bulk-toggle t] ["Toggle all" org-agenda-bulk-toggle-all t] ["Mark regexp" org-agenda-bulk-mark-regexp t]) ["Act on all marked" org-agenda-bulk-action t] "--" ("Tags and Properties" ["Show all Tags" org-agenda-show-tags t] ["Set Tags current line" org-agenda-set-tags (not (org-region-active-p))] ["Change tag in region" org-agenda-set-tags (org-region-active-p)] "--" ["Column View" org-columns t]) ("Deadline/Schedule" ["Schedule" org-agenda-schedule t] ["Set Deadline" org-agenda-deadline t] "--" ["Change Date +1 day" org-agenda-date-later (org-agenda-check-type nil 'agenda)] ["Change Date -1 day" org-agenda-date-earlier (org-agenda-check-type nil 'agenda)] ["Change Time +1 hour" org-agenda-do-date-later :active (org-agenda-check-type nil 'agenda) :keys "C-u S-right"] ["Change Time -1 hour" org-agenda-do-date-earlier :active (org-agenda-check-type nil 'agenda) :keys "C-u S-left"] ["Change Time + min" org-agenda-date-later :active (org-agenda-check-type nil 'agenda) :keys "C-u C-u S-right"] ["Change Time - min" org-agenda-date-earlier :active (org-agenda-check-type nil 'agenda) :keys "C-u C-u S-left"] ["Change Date to ..." org-agenda-date-prompt (org-agenda-check-type nil 'agenda)]) ("Clock and Effort" ["Clock in" org-agenda-clock-in t] ["Clock out" org-agenda-clock-out t] ["Clock cancel" org-agenda-clock-cancel t] ["Goto running clock" org-clock-goto t] "--" ["Set Effort" org-agenda-set-effort t] ["Change clocked effort" org-clock-modify-effort-estimate (org-clock-is-active)]) ("Priority" ["Set Priority" org-agenda-priority t] ["Increase Priority" org-agenda-priority-up t] ["Decrease Priority" org-agenda-priority-down t] ["Show Priority" org-show-priority t]) ("Calendar/Diary" ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda)] ["Goto Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda)] ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda)] ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda)] ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda)] ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda)] "--" ["Create iCalendar File" org-icalendar-combine-agenda-files t]) "--" ["Undo Remote Editing" org-agenda-undo org-agenda-undo-list] "--" ("MobileOrg" ["Push Files and Views" org-mobile-push t] ["Get Captured and Flagged" org-mobile-pull t] ["Find FLAGGED Tasks" (org-agenda nil "?") :active t :keys "\\[org-agenda] ?"] ["Show note / unflag" org-agenda-show-the-flagging-note t] "--" ["Setup" (progn (require 'org-mobile) (customize-group 'org-mobile)) t]) "--" ["Quit" org-agenda-quit t] ["Exit and Release Buffers" org-agenda-exit t])) | |
| 162 | #@57 Non-nil means allow remote undo from the agenda buffer. | |
| 163 | (defvar org-agenda-allow-remote-undo t (#$ . 97563)) | |
| 164 | #@75 Buffers that have already seen `undo-start' in the current undo sequence. | |
| 165 | (defvar org-agenda-undo-has-started-in nil (#$ . 97678)) | |
| 166 | #@144 Undo a remote editing step in the agenda. | |
| 167 | This undoes changes both in the agenda buffer and in the remote buffer | |
| 168 | that have been changed along. | |
| 169 | (defalias 'org-agenda-undo #[nil "\204 \306\307!\210 \n=\204 \310\f \204 \306\311!\210 \211A\242 \310\211 \310\211 \211A\242 \211A\242\3128 \310\212\211\203N \211b\210n\203V \313\202W \314\315\313`\"\\)\262 p r q\210 )\310\211 ! \" # $ % &\316\211A\242\211!\203\332 \211A\242\203 rq\210\317 ' ( >\204\267 B\320\321!\210\322 \210\203\322 <\203\322 @\204\322 \211A\210\202\267 \323\313!\210+\202 \2031\324\"r$q\210 )\" \324!r#q\210 )\" \204 \2031 \203r$q\210\325 \210) \203 r#q\210\325 \210)%&$ # \257\fB.\214~\210eb\210\211Sy)\266\326\327 \330 !#-\207" [org-agenda-allow-remote-undo this-command last-command org-agenda-undo-has-started-in org-agenda-undo-list org-agenda-pending-undo-list user-error "Check the variable `org-agenda-allow-remote-undo' to activate remote undo" nil "No further undo information" 2 1 0 count-lines bufferp t make-local-variable pending-undo-list undo-start undo-more org-verify-change-for-undo undo-boundary message "`%s' undone (buffer %s)" buffer-name entry buf line cmd rembuf buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline inhibit-read-only last-undo-buffer] 9 (#$ . 97816) nil]) | |
| 170 | #@70 Verify that a real change occurred between the undo lists L1 and L2. | |
| 171 | (defalias 'org-verify-change-for-undo #[(l1 l2) "\203 <\203 @\204 \211A\210\202 \203, <\203, @\204, \211A\210\202 =?\207" [l1 l2] 2 (#$ . 99250)]) | |
| 172 | (defvar org-agenda-restrict-begin (make-marker)) | |
| 173 | (defvar org-agenda-restrict-end (make-marker)) | |
| 174 | (defvar org-agenda-last-dispatch-buffer nil) | |
| 175 | (defvar org-agenda-overriding-restriction nil) | |
| 176 | (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\302\313\304\314\315\316\306\307\310\317& \210\300\320\302\321\304\314\315\322\306\307\310\323& \210\300\324\302\325\304\314\315\326\306\307\310\327& \210\300\330\302\331\304\314\315\332\306\307\310\333& \207" [custom-declare-variable org-agenda-custom-commands-contexts nil "Alist of custom agenda keys and contextual rules.\n\nFor example, if you have a custom agenda command \"p\" and you\nwant this command to be accessible only from plain text files,\nuse this:\n\n \\='((\"p\" ((in-file . \"\\\\.txt\\\\'\"))))\n\nHere are the available contexts definitions:\n\n in-file: command displayed only in matching files\n in-mode: command displayed only in matching modes\n not-in-file: command not displayed in matching files\n not-in-mode: command not displayed in matching modes\n in-buffer: command displayed only in matching buffers\nnot-in-buffer: command not displayed in matching buffers\n [function]: a custom function taking no argument\n\nIf you define several checks, the agenda command will be\naccessible if there is at least one valid check.\n\nYou can also bind a key to another agenda custom command\ndepending on contextual rules.\n\n \\='((\"p\" \"q\" ((in-file . \"\\\\.txt\\\\'\"))))\n\nHere it means: in .txt files, use \"p\" as the key for the\nagenda command otherwise associated with \"q\". (The command\noriginally associated with \"q\" is not displayed to avoid\nduplicates.)" :version "24.3" :group org-agenda-custom-commands :type (repeat (list :tag "Rule" (string :tag " Agenda key") (string :tag "Replace by command") (repeat :tag "Available when" (choice (cons :tag "Condition" (choice (const :tag "In file" in-file) (const :tag "Not in file" not-in-file) (const :tag "In buffer" in-buffer) (const :tag "Not in buffer" not-in-buffer) (const :tag "In mode" in-mode) (const :tag "Not in mode" not-in-mode)) (regexp)) (function :tag "Custom function"))))) org-agenda-max-entries "Maximum number of entries to display in an agenda.\nThis can be nil (no limit) or an integer or an alist of agenda\ntypes with an associated number of entries to display in this\ntype." "24.4" :package-version (Org . "8.0") (choice (symbol :tag "No limit" nil) (integer :tag "Max number of entries") (repeat (cons (choice :tag "Agenda type" (const agenda) (const todo) (const tags) (const search)) (integer :tag "Max number of entries")))) org-agenda-max-todos "Maximum number of TODOs to display in an agenda.\nThis can be nil (no limit) or an integer or an alist of agenda\ntypes with an associated number of entries to display in this\ntype." (Org . "8.0") (choice (symbol :tag "No limit" nil) (integer :tag "Max number of TODOs") (repeat (cons (choice :tag "Agenda type" (const agenda) (const todo) (const tags) (const search)) (integer :tag "Max number of TODOs")))) org-agenda-max-tags "Maximum number of tagged entries to display in an agenda.\nThis can be nil (no limit) or an integer or an alist of agenda\ntypes with an associated number of entries to display in this\ntype." (Org . "8.0") (choice (symbol :tag "No limit" nil) (integer :tag "Max number of tagged entries") (repeat (cons (choice :tag "Agenda type" (const agenda) (const todo) (const tags) (const search)) (integer :tag "Max number of tagged entries")))) org-agenda-max-effort "Maximum cumulated effort duration for the agenda.\nThis can be nil (no limit) or a number of minutes (as an integer)\nor an alist of agenda types with an associated number of minutes\nto limit entries to in this type." (Org . "8.0") (choice (symbol :tag "No limit" nil) (integer :tag "Max number of minutes") (repeat (cons (choice :tag "Agenda type" (const agenda) (const todo) (const tags) (const search)) (integer :tag "Max number of minutes"))))] 12) | |
| 177 | (defvar org-agenda-keep-restricted-file-list nil) | |
| 178 | (defvar org-keys nil) | |
| 179 | (defvar org-match nil) | |
| 180 | #@1639 Dispatch agenda commands to collect entries to the agenda buffer. | |
| 181 | Prompts for a command to execute. Any prefix arg will be passed | |
| 182 | on to the selected command. The default selections are: | |
| 183 | ||
| 184 | a Call `org-agenda-list' to display the agenda for current day or week. | |
| 185 | t Call `org-todo-list' to display the global todo list. | |
| 186 | T Call `org-todo-list' to display the global todo list, select only | |
| 187 | entries with a specific TODO keyword (the user gets a prompt). | |
| 188 | m Call `org-tags-view' to display headlines with tags matching | |
| 189 | a condition (the user is prompted for the condition). | |
| 190 | M Like `m', but select only TODO entries, no ordinary headlines. | |
| 191 | e Export views to associated files. | |
| 192 | s Search entries for keywords. | |
| 193 | S Search entries for keywords, only with TODO keywords. | |
| 194 | / Multi occur across all agenda files and also files listed | |
| 195 | in `org-agenda-text-search-extra-files'. | |
| 196 | < Restrict agenda commands to buffer, subtree, or region. | |
| 197 | Press several times to get the desired effect. | |
| 198 | > Remove a previous restriction. | |
| 199 | # List "stuck" projects. | |
| 200 | ! Configure what "stuck" means. | |
| 201 | C Configure custom agenda commands. | |
| 202 | ||
| 203 | More commands can be added by configuring the variable | |
| 204 | `org-agenda-custom-commands'. In particular, specific tags and TODO keyword | |
| 205 | searches can be pre-defined in this way. | |
| 206 | ||
| 207 | If the current buffer is in Org mode and visiting a file, you can also | |
| 208 | first press `<' once to indicate that the agenda should be temporarily | |
| 209 | (until the next use of `\[org-agenda]') restricted to the current file. | |
| 210 | Pressing `<' twice means to restrict to the current subtree or region | |
| 211 | (if active). | |
| 212 | (defalias 'org-agenda #[(&optional arg org-keys restriction) "\3062F\307 \310 \232\203 \311\202 \n \312\307\313\314 \"\"\315 \"p @\316\317 ! A\307\211 B C\307\211 D E\307\211 F GH\204^ I\204O \320\321\322\307#\210\307JK\307\211\223\210L\307\211\223\210\320\323\324\307#\210\320\323\325\307#\210pMN\204\200 \326!\211G@NGAOP\203\213 \327\330N\"H\204\317 O\203\317 \320\321\322AC#\210O\331\267\202\317 pJK\332 \307\223\210L\333 \307\223\210\202\317 \212pJ\334\335!\210K`\307\223\210L\336\335!\307\223\210)\337N \"\211B\203\n\340B89\204\353 \341\340B8!\203\373\340B8D\342\343B8!E\344B8FP\203E;\203\327\345NE#\206\327\330N\"\320\323\324F#\210D\346=\2030\347F\350\"\202CD\351=\203?\347F\352\"\202CD\353=\203N\347F\354\"\202CD\355=\203]\347F\356\"\202CD\357=\203l\347F\360\"\202CD\361=\203{\347F\362\"\202CD\363=\203\212\347F\364\"\202CD\365=\203\231\347F\366\"\202CD\367=\203\253\370 \210\347F\371\"\202CD\372=\203\275\370 \210\347F\373\"\202CD\374=\203\317\370 \210\347F\375\"\202C\341D!\203\336\347F\376\"\202C\377D!\203\357\347F\201S \"\202C\201T \201U D\"\202C\201V BA@BAA\"\202CN\201W \232\203 \f\201X \303!\202CN\201Y \232\2030\201Z \201[ !\202CN\201\\ \232\203C\201Z \201] !\202CN\201^ \232\203e\201] Q\206W\201_ \211 R\201Z !)\266\202\202CN\201` \232\203x\201Z \201a !\202CN\201b \232\203\232\201a Q\206\214\201c \211 R\201Z !)\266\202\202CN\201d \232\203\255\201Z \201e !\202CN\201f \232\203\317\201e Q\206\301\201g \211 R\201Z !)\266\202\202CN\201h \232\203\342\201Z \201i !\202CN\201j \232\203\201e \307\201k \"\210\201l \201m \201n \335\211$\202CN\201o \232\203\201Z \201p !\202CN\201q \232\203)\201Z \201r !\202CN\201s \232\203<\201X \201t !\202C\201T \201u !.0\207" [prefix-descriptions org-agenda-buffer-name org-agenda-window-setup org-agenda-custom-commands org-agenda-custom-commands-orig org-agenda-custom-commands-contexts exit nil buffer-name current-window delq mapcar #[(x) "A;\203\f B\302\207A@;\203 \207A@\204$ @\303AABB\207@\303ABB\207" [x prefix-descriptions nil ""] 3] org-contextualize-keys buffer-file-name buffer-base-buffer put org-agenda-files org-restrict org-agenda-redo-command org-lprops last-args org-agenda-get-restriction-and-command format "*Org Agenda(%s)*" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (region 164 subtree 184)) region-beginning region-end org-back-to-heading t org-end-of-subtree assoc 2 functionp eval 3 4 "*Org Agenda(%s:%s)*" agenda org-let (org-agenda-list current-prefix-arg) agenda* (org-agenda-list current-prefix-arg nil nil t) alltodo (org-todo-list current-prefix-arg) search (org-search-view current-prefix-arg org-match nil) stuck (org-agenda-list-stuck-projects current-prefix-arg) tags (org-tags-view current-prefix-arg org-match) tags-todo (org-tags-view '(4) org-match) todo (org-todo-list org-match) tags-tree org-check-for-org-mode (org-match-sparse-tree current-prefix-arg org-match) todo-tree (org-occur (concat "^" org-outline-regexp "[ ]*" (regexp-quote org-match) "\\>")) occur-tree (org-occur org-match) (funcall type org-match) fboundp buf bfn entry key type org-match lprops ans org-agenda-overriding-restriction org-agenda-keep-restricted-file-list org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end org-agenda-last-dispatch-buffer org-keys restriction org-agenda-sticky arg current-prefix-arg (funcall type org-match) user-error "Invalid custom agenda command type %s" org-agenda-run-series "C" customize-variable "a" call-interactively org-agenda-list "s" org-search-view "S" (4) "t" org-todo-list "T" (4) "m" org-tags-view "M" (4) "e" org-store-agenda-views "?" "+FLAGGED" add-hook post-command-hook #[nil "\302 ?\205' \303 \211\205 \304\305\"\211\205& \306\307\310\311\312\313\314 !#\315\316\317$P!*\207" [m note current-message org-agenda-get-any-marker org-entry-get "THEFLAGGINGNOTE" message "FLAGGING-NOTE ([?] for more info): " org-add-props replace-regexp-in-string "\\\\n" "//" copy-sequence nil face org-warning] 9] "#" org-agenda-list-stuck-projects "/" org-occur-in-agenda-files "!" org-stuck-projects "Invalid agenda key"] 6 (#$ . 103585) "P"]) | |
| 213 | #@168 Append another agenda view to the current one. | |
| 214 | This function allows interactive building of block agendas. | |
| 215 | Agenda views are separated by `org-agenda-block-separator'. | |
| 216 | (defalias 'org-agenda-append-agenda #[nil "\302\303!\204\n \304\305!\210\306\307 \210~\210\310 \210\306\311 )\207" [org-agenda-multi buffer-read-only derived-mode-p org-agenda-mode user-error "Can only append from within agenda buffer" t org-agenda org-agenda-finalize org-agenda-fit-window-to-buffer] 2 (#$ . 109517) nil]) | |
| 217 | #@33 Normalize custom commands CMDS. | |
| 218 | (defalias 'org-agenda-normalize-custom-commands #[(cmds) "\301\302\303\304\"\"\207" [cmds delq nil mapcar #[(x) "A;\203 \301\207A@;\203 \207A@\204 @\302AABB\207@\302ABB\207" [x nil ""] 3]] 5 (#$ . 110016)]) | |
| 219 | #@53 The user interface for selecting an agenda command. | |
| 220 | (defalias 'org-agenda-get-restriction-and-command #[(prefix-descriptions) "\3062g\307\310 !\211\205 \311\312!\313 \314 \315\211 @ A\315\211 B C\315\211 D E\315\211 F G\315\211 H I\315\211 J K\315\211 L M\315\211 N O\315\211 P Q\316 R\317\216\320 \210\321\322!\210\323 \210\324c\210\325 I\fJH\326=\203\234 \327\214~\210eb\210\211Sy)\266\330\331\315\326#\210\332\225\333 |\210\327u\210\334\335!\210\332\225\333 |\210I\332\225\315\223\210Ib\210`d|\210\315MJ\211AJ\242\211C\203\377C@DCA@K\336C8E\337C8FDG\327V\203\360 \340D!\211 SG\235\203\345 G\202\352 SGB)G\202\247 \341\342\343\344D!\345\"\346\347K\"\203K\202\234E\350=\203\351\202\234E\352=\203 \353\202\234E\354=\203'\355\202\234E\356=\2032\357\202\234E\360=\203=\361\202\234E\362=\203H\363\202\234E\364=\203S\365\202\234E\366=\203^\367\202\234E\370=\203i\371\202\234E\372=\203t\373\202\234E\374=\203\375\202\234\376E!\203\231E9\203\223\377E!\202\234\201X \202\234\201Y #LT\203\327L\201Z F;\203\303\344F!F\343F\315\201[ \201\\ $\202\321E<\205\321\341\201] EG\"QL\202\365\201^ F!\203\365\201_ \332LG\201` \201a FPDL$\210LMBM\202\247 M\237MG\203\201b \201c G\"\210U\203BMG\211P\336\245\201d P\336\"\\\211QM\233O\344M!NQSN\233\315\241\210\202IMN\315ON\203\205\201e N\211AN\242\261\210O\203Ii\201f W\203t\201g \201f \326\"\210\202y\201h c\210O\211AO\242c\210\202Ieb\210A\203\235\201i d!\204\245\201j \210\202\245\326A\201j \210\201k \201l \204\264V\203\324V\203\277\201m \202\325@\203\316\341\201n @\"\202\325\201o \202\325\314\"\210\201p B\201k \314!\210\201q \201r B!\f\"\203 \201r B!P\201s \306 @B\"\210\202e BG>\2035 \201r B!P\315GH\206!\326H\201t \315\201u \201v \f\"\"\211\202f B\201w =\203O\201x \201y !\210\201z \336!\210\202e \204rB\201{ >\203r\201k \201| !\210\201} \210\201z \327!\210\202e B\201~ =\203\213\201 \201\200 !\210\201\201 @\202e B\201\202 =\203\256\201 \201\200 !\210\n\203\246\201\203 \202\251\201\204 @\202e B\201\205 =\203\355\201 \201\200 !\210@\201\201 =\203\330\n\203\322\201\203 \202\350\201\204 \202\350@\201\206 >\203\345\315\202\350\201\201 @\202e B\201\207 =\203\201 \201\200 !\210\315@\202e \314\232\203'B\201\210 >\203'\201s \306\201r B!\211@B\"\210\202e G\332V\203FB\201\211 =\203F\201\212 \210\201\213 W!\210\202e B\201\214 \232\203Z\201\215 \201\216 !\210\202e \201\217 \201\220 B\"\210\202e \207" [bfn restrict-ok region-p org-agenda-custom-commands custom selstring exit buffer-file-name buffer-base-buffer derived-mode-p org-mode org-region-active-p "" nil current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] delete-other-windows org-switch-to-buffer-other-window " *Agenda Commands*" erase-buffer #("Press key for an agenda command:\n-------------------------------- < Buffer, subtree/region restriction\na Agenda for current week or day > Remove restriction\nt List of all TODO entries e Export agenda views\nm Match a TAGS/PROP/TODO query T Entries with special TODO kwd\ns Search for keywords M Like m, but only TODO entries\n/ Multi-occur S Like s, but only TODO entries\n? Find :FLAGGED: entries C Configure custom agenda commands\n* Toggle sticky agenda views # List stuck projects (!=configure)\n" 73 74 (face bold) 112 113 (face bold) 152 153 (face bold) 175 176 (face bold) 215 216 (face bold) 239 240 (face bold) 279 280 (face bold) 313 314 (face bold) 353 354 (face bold) 387 388 (face bold) 427 428 (face bold) 461 462 (face bold) 501 502 (face bold) 538 539 (face bold) 578 579 (face bold) 603 604 (face bold)) point-marker t 1 re-search-forward ":" 0 point-at-eol looking-at "-+" 2 3 string-to-char format "%-4s%-14s" org-add-props copy-sequence (face bold) string-match "\\S-" agenda "Agenda for current week or day" agenda* "Appointments for current week or day" alltodo "List of all TODO entries" search "Word search" stuck "List of stuck projects" todo "TODO keyword" tags "Tags query" tags-todo "Tags (TODO)" tags-tree "Tags tree" todo-tree "TODO kwd tree" occur-tree "Occur tree" functionp symbol-name restriction second-time c entry key type match prefixes rmheader header-end custom1 desc line lines left right n n1 #1# #2=#:va org-agenda-menu-show-matcher org-agenda-menu-two-columns org-agenda-overriding-restriction prefix-descriptions "Lambda expression" "???" ": " face org-warning "set of %d commands" org-string-nw-p add-text-properties help-echo "Matcher: " mapc #[(x) "\304\305\306\307!\310\311\312$\313 \307!P\n\"A\206 \314# B\211\207" [x selstring prefix-descriptions lines format "%s %s" org-add-props char-to-string nil face bold assoc "Prefix key"] 7] mod "\n" 40 move-to-column " " pos-visible-in-window-p org-fit-window-to-buffer message "Press key for agenda command%s:" " (restriction lock active)" " (restricted to %s)" " (unrestricted)" read-char-exclusive assoc char-to-string throw delq mapcar #[(x) "@G\302U\206 \303@! U??\205 @\302\304OAB\207" [x c 1 string-to-char nil] 3] 42 call-interactively org-toggle-sticky-agenda sit-for (49 48 60) "Restriction is only possible in Org buffers" ding 49 org-agenda-remove-restriction-lock noupdate buffer 48 region subtree 60 (subtree region) 62 (115 83 97 116 109 76 67 101 84 77 35 33 47 63) 127 delete-window org-agenda-get-restriction-and-command 113 error "Abort" user-error "Invalid key %c"] 8 (#$ . 110273)]) | |
| 221 | #@36 Fit the window to the buffer size. | |
| 222 | (defalias 'org-agenda-fit-window-to-buffer #[nil "\302>\205. \303\304!\205. A\305U\203 @\306U\203 \307 \207\310\311\312\313 A_!\312\313 @_!#\207" [org-agenda-window-setup org-agenda-window-frame-fractions (reorganize-frame) fboundp fit-window-to-buffer 1.0 1.0 delete-other-windows org-fit-window-to-buffer nil floor frame-height] 6 (#$ . 115924)]) | |
| 223 | (defvar org-cmd nil) | |
| 224 | (defvar org-agenda-overriding-cmd nil) | |
| 225 | (defvar org-agenda-overriding-arguments nil) | |
| 226 | (defvar org-agenda-overriding-cmd-arguments nil) | |
| 227 | #@49 Run agenda NAME as a SERIES of agenda commands. | |
| 228 | (defalias 'org-agenda-run-series #[(name series) "\306A@\307\"\210\310 \210\311\312\n\313DE@ A@ \314\211 ) *\314\211 + ,\f\211A\242\211*\203\366 *@+\315*A@!)\316*8,-*=\205S .\206S / .+\317=\203f \320 ,\321#\210\202\362 +\322=\203w \320 ,\323#\210\202\362 +\324=\203\210 \320 ,\325#\210\202\362 +\326=\203\231 \320 ,\327#\210\202\362 +\330=\203\252 \320 ,\331#\210\202\362 +\332=\203\273 \320 ,\333#\210\202\362 +\334=\203\314 \320 ,\335#\210\202\362 +\336=\203\335 \320 ,\337#\210\202\362 \340+!\203\356 \320 ,\341#\210\202\362 \342\343!\210)\202& ~\210\311 0\344ed\345\311\346 F#\210) 1eb\210.\347 \210\306A@\350\"\207" [series org-agenda-multi name redo cmds gprops org-let (org-agenda-prepare name) org-agenda-reset-markers t org-agenda-run-series quote nil eval 2 agenda org-let2 (call-interactively 'org-agenda-list) agenda* (funcall 'org-agenda-list nil nil t) alltodo (call-interactively 'org-todo-list) search (org-search-view current-prefix-arg match nil) stuck (call-interactively 'org-agenda-list-stuck-projects) tags (org-tags-view current-prefix-arg match) tags-todo (org-tags-view '(4) match) todo (org-todo-list match) fboundp (funcall type match) error "Invalid type in command series" add-text-properties org-series org-series-redo-cmd org-agenda-fit-window-to-buffer (org-agenda-finalize) match org-cmd type lprops org-agenda-overriding-cmd org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments inhibit-read-only org-agenda-redo-command] 8 (#$ . 116475)]) | |
| 229 | #@356 Run an agenda command in batch mode and send the result to STDOUT. | |
| 230 | If CMD-KEY is a string of length 1, it is used as a key in | |
| 231 | `org-agenda-custom-commands' and triggers this command. If it is a | |
| 232 | longer string it is used as a tags/todo match string. | |
| 233 | Parameters are alternating variable names and values that will be bound | |
| 234 | before running the agenda command. | |
| 235 | (defalias 'org-batch-agenda '(macro . #[(cmd-key &rest parameters) "\302\303\304!\305E!\210 q\210\306\307 !\207" [parameters org-agenda-buffer-name eval let org-make-parameter-alist (let (org-agenda-sticky) (if (> (length cmd-key) 1) (org-tags-view nil cmd-key) (org-agenda nil cmd-key))) princ buffer-string] 4 (#$ . 118057)])) | |
| 236 | (defvar org-agenda-info nil) | |
| 237 | #@1696 Run an agenda command in batch mode and send the result to STDOUT. | |
| 238 | If CMD-KEY is a string of length 1, it is used as a key in | |
| 239 | `org-agenda-custom-commands' and triggers this command. If it is a | |
| 240 | longer string it is used as a tags/todo match string. | |
| 241 | Parameters are alternating variable names and values that will be bound | |
| 242 | before running the agenda command. | |
| 243 | ||
| 244 | The output gives a line for each selected agenda item. Each | |
| 245 | item is a list of comma-separated values, like this: | |
| 246 | ||
| 247 | category,head,type,todo,tags,date,time,extra,priority-l,priority-n | |
| 248 | ||
| 249 | category The category of the item | |
| 250 | head The headline, without TODO kwd, TAGS and PRIORITY | |
| 251 | type The type of the agenda entry, can be | |
| 252 | todo selected in TODO match | |
| 253 | tagsmatch selected in tags match | |
| 254 | diary imported from diary | |
| 255 | deadline a deadline on given date | |
| 256 | scheduled scheduled on given date | |
| 257 | timestamp entry has timestamp on given date | |
| 258 | closed entry was closed on given date | |
| 259 | upcoming-deadline warning about deadline | |
| 260 | past-scheduled forwarded scheduled item | |
| 261 | block entry has date block including g. date | |
| 262 | todo The todo keyword, if any | |
| 263 | tags All tags including inherited ones, separated by colons | |
| 264 | date The relevant date, like 2007-2-14 | |
| 265 | time The time, like 15:00-16:50 | |
| 266 | extra Sting with extra planning info | |
| 267 | priority-l The priority letter if any was given | |
| 268 | priority-n The computed numerical priority | |
| 269 | agenda-day The day in the agenda where this is listed | |
| 270 | (defalias 'org-batch-agenda-csv '(macro . #[(cmd-key &rest parameters) "\305\306\307\310\311!\"\312E!\210 q\210\313\314 \315\"\316\n\211A\242\211\205I \3172E \320\321\322 #\2042 \323\317\316\"\210\324\325\321 \"!\326\327\330\331\332#!\210\326\315!0\210\202 *\207" [parameters org-agenda-buffer-name lines line org-agenda-info eval let append ((org-agenda-remove-tags t)) org-make-parameter-alist (if (> (length cmd-key) 2) (org-tags-view nil cmd-key) (org-agenda nil cmd-key)) org-split-string buffer-string "\n" nil next get-text-property 0 org-category throw org-fix-agenda-info text-properties-at princ mapconcat org-agenda-export-csv-mapper (org-category txt type todo tags date time extra priority-letter priority agenda-day) ","] 6 (#$ . 118779)])) | |
| 271 | #@119 Make sure all properties on an agenda item have a canonical form. | |
| 272 | This ensures the export commands can easily use it. | |
| 273 | (defalias 'org-fix-agenda-info #[(props) "\305\211\306\n\307\"\211\203 \310\n\307\311\312 \313##\306\n\314\"\211\2036 \250\203) \315 !\316\317 !)\310\n\314 #\306\n\320\"\211\203[ \250\203H \315 !\321\317 !)\310\n\320 #\310\n\322 #\306\n\323\"\211\203\255 \324\325 \"\203{ \310\n\326\327\330 \"#\210\331\332\333\211 $\306\n\334\"\211\203\247 \335\336Q\211\203\247 \305 \324 \")\203\247 \310\n\337\327\330 \"#\210\331\332\333\211 $\310\n\323 #\210*\n\207" [re tmp props calendar-date-display-form case-fold-search nil plist-get tags plist-put mapconcat identity ":" date calendar-gregorian-from-absolute (year "-" month "-" day) calendar-date-string day (year "-" month "-" day) agenda-day txt string-match "\\[#\\([A-Z0-9]\\)\\] ?" priority-letter match-string 1 replace-match "" t org-todo-regexp "\\`\\.*" " ?" todo] 7 (#$ . 121243)]) | |
| 274 | (defalias 'org-agenda-export-csv-mapper #[(prop) "\303 \"\211\204 \304\202 \n;\203 \n\202 \305\n!\306\307\310\n\311\312%\311\306\203+ \313\202, \314\304\306\315\304##\266\202)\207" [org-agenda-info prop res plist-get "" prin1-to-string replace-regexp-in-string "," ";" nil t "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'"] 10]) | |
| 275 | #@21 Store agenda views. | |
| 276 | (defalias 'org-store-agenda-views #[(&rest parameters) "\300\301C!\207" [eval org-batch-store-agenda-views] 2 (#$ . 122567) nil]) | |
| 277 | #@59 Run all custom agenda commands that have a file argument. | |
| 278 | (defalias 'org-batch-store-agenda-views '(macro . #[(&rest parameters) "\306!\307 \310\n!\307\211\211\211\211\211\211\211 !\311 \"\312\216!\205\313 !\211A!\242\211 @ A\3138#\203e ;\203] \314\315 #\206g \314\316 \"\202g $\313 8\211<\203v \317\202w \320 8\f<\203\204 \320\202\205 \321 8\211;\203\224 C\203+ \322\323\324% #\325E!\210 q\210\203\276 \322\323\324% #\326E!\210\202\251 \327 !\203+ \330 !\210\202+ .\207" [org-agenda-custom-commands default-directory parameters bufname cmd-or-set opts org-agenda-normalize-custom-commands nil org-make-parameter-alist current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] 2 format "*Org Agenda(%s:%s)*" "*Org Agenda(%s)*" 3 4 5 eval let append (org-agenda nil thiscmdkey) (org-agenda-write (expand-file-name (pop files) dir) nil t bufname) get-buffer kill-buffer files match thiscmdcmd thiscmdkey cmd pars dir pop-up-frames cmds #1# org-agenda-sticky org-agenda-buffer-name org-agenda-exporter-settings] 13 (#$ . 122723)])) | |
| 279 | #@43 The current span used in the agenda view. | |
| 280 | (defvar org-agenda-current-span nil (#$ . 123856)) | |
| 281 | #@53 Mark the line at POS as an agenda structure header. | |
| 282 | (defalias 'org-agenda-mark-header-line #[(pos) "\212b\210\302\303 \304 \305\306$\210 \205 \302\303 \304 \301 $)\207" [pos org-agenda-title-append put-text-property point-at-bol point-at-eol org-agenda-structural-header t] 5 (#$ . 123955)]) | |
| 283 | (defvar org-agenda-write-buffer-name "Agenda View") | |
| 284 | #@753 Write the current buffer (an agenda view) as a file. | |
| 285 | ||
| 286 | Depending on the extension of the file name, plain text (.txt), | |
| 287 | HTML (.html or .htm), PDF (.pdf) or Postscript (.ps) is produced. | |
| 288 | If the extension is .ics, translate visible agenda into iCalendar | |
| 289 | format. If the extension is .org, collect all subtrees | |
| 290 | corresponding to the agenda entries and add them in an .org file. | |
| 291 | ||
| 292 | With prefix argument OPEN, open the new file immediately. If | |
| 293 | NOSETTINGS is given, do not scope the settings of | |
| 294 | `org-agenda-exporter-settings' into the export commands. This is | |
| 295 | used when the settings have already been scoped and we do not | |
| 296 | wish to overrule other, higher priority settings. If | |
| 297 | AGENDA-BUFFER-NAME is provided, use this as the buffer name for | |
| 298 | the agenda to write. | |
| 299 | (defalias 'org-agenda-write #[(file &optional open nosettings agenda-bufname) "\306!\203 \307!\203 \310\311!\203 \312\313\314\"!\204 \315\316\"\210\317 ?\205' \n\320 \2068 \310\311!\2037 \321 \2068 \fq#\210 \205B \322!\207" [file nosettings org-agenda-exporter-settings agenda-bufname org-agenda-buffer-name open file-writable-p file-exists-p called-interactively-p any y-or-n-p format "Overwrite existing file %s? " user-error "Cannot write agenda to file %s" org-let (save-excursion (save-window-excursion (let ((bs (copy-sequence (buffer-string))) (extension (file-name-extension file)) (default-directory (file-name-directory file)) beg content) (with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) (set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 'invisible 'org-filtered) (run-hooks 'org-agenda-before-write-hook) (cond ((bound-and-true-p org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) ((string= "org" extension) (let (content p m message-log-max) (goto-char (point-min)) (while (setq p (next-single-property-change (point) 'org-hd-marker nil)) (goto-char p) (setq m (get-text-property (point) 'org-hd-marker)) (when m (push (save-excursion (set-buffer (marker-buffer m)) (goto-char m) (org-copy-subtree 1 nil t t) org-subtree-clip) content))) (find-file file) (erase-buffer) (dolist (s content) (org-paste-subtree 1 s)) (write-file file) (kill-buffer (current-buffer)) (message "Org file written to %s" file))) ((member extension '("html" "htm")) (or (require 'htmlize nil t) (error "Please install htmlize from https://github.com/hniksic/emacs-htmlize")) (set-buffer (htmlize-buffer (current-buffer))) (when org-agenda-export-html-style (goto-char (point-min)) (kill-region (- (search-forward "<style") 6) (search-forward "</style>")) (insert org-agenda-export-html-style)) (write-file file) (kill-buffer (current-buffer)) (message "HTML written to %s" file)) ((string= "ps" extension) (require 'ps-print) (ps-print-buffer-with-faces file) (message "Postscript written to %s" file)) ((string= "pdf" extension) (require 'ps-print) (ps-print-buffer-with-faces (concat (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name (concat (file-name-sans-extension file) ".ps")) (expand-file-name file)) (delete-file (concat (file-name-sans-extension file) ".ps")) (message "PDF written to %s" file)) ((string= "ics" extension) (require 'ox-icalendar) (org-icalendar-export-current-agenda (expand-file-name file))) (t (let ((bs (buffer-string))) (find-file file) (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer (current-buffer)) (message "Plain text written to %s" file)))))))) buffer-name org-open-file] 5 (#$ . 124308) "FWrite agenda to file: \nP"]) | |
| 300 | #@69 Delete all text marked with VALUE of PROPERTY. | |
| 301 | VALUE defaults to t. | |
| 302 | (defalias 'org-agenda-remove-marked-text #[(property &optional value) "\303 \206 \304\305ed\n $\211\205! \306\n\"\206 d|\210\202 )\207" [beg value property nil t text-property-any next-single-property-change] 5 (#$ . 127830)]) | |
| 303 | #@232 Add entry text to agenda lines. | |
| 304 | This will add a maximum of `org-agenda-add-entry-text-maxlines' lines of the | |
| 305 | entry text following headings shown in the agenda. | |
| 306 | Drawers will be excluded, also the line with scheduling/deadline info. | |
| 307 | (defalias 'org-agenda-add-entry-text #[nil "\304V\205T \305\301!\205 ?\205T \306\211eb\210m?\205S \307\310\311 \"\262\211\2041 \312\313!\210\202 \314 \315#\316\210\317\320\n\"\203I \321\n\261\210\202 m\204 \316u\210\202 *\207" [org-agenda-add-entry-text-maxlines org-mobile-creating-agendas txt m 0 boundp nil org-hd-marker get-text-property point-at-bol beginning-of-line 2 org-agenda-get-some-entry-text " > " 1 string-match "\\S-" "\n"] 4 (#$ . 128140)]) | |
| 308 | #@315 Extract entry text from MARKER, at most N-LINES lines. | |
| 309 | This will ignore drawers etc, just get the text. | |
| 310 | If INDENT is given, prefix every line with this string. If KEEP is | |
| 311 | given, it is a list of symbols, defining stuff that should not be | |
| 312 | removed from the entry content. Currently only `planning' is allowed here. | |
| 313 | (defalias 'org-agenda-get-some-entry-text #[(marker n-lines &optional indent &rest keep) "\306\211\211\211\212r\307\f!q\210\310\311!\204 \312\202\222\212\214~\210\fb\210\313\210`Td^\314 \210`{ \315-\316Q\317\320! .r.q\210\321\216 c\210/\203^ eb\210\322d!\203^ \323\324\224\324\225\325#\210\202M eb\210\3260d\327#\203u \330\324\224\324\225\306#\210\202a eb\210\326\n\306\327#\203\216 \324\224\326\331\306\332#\210`|\210\202x \3331\235\204\247 eb\210\326 \306\327#\203\247 \334\312!\210\202\230 eb\2102\203\327 2\306 3 44\211A4\242\2113\203\326 eb\210\3263\306\327#\203\266 \334\312!\210\202\306 *db\210\335\306x\210\336\337!\203\350 \334\312!\210eb\210\340ed\"\210\341 m\204 \336\342!\204\341 ^\343\344!\210\202\363 eb\210m\204&\336\342!\204 \345!\210\346 `|\210\343\344!\210\202\f\347\350!\210eb\2105\203Hm\204H\326\351\306\327#\203H\3345\327\211#\210\2022eb\210\336\352!\203X\334\312!\210\202Kdb\210\306\212\211\203d\211b\210n\203l\313\202m\324\353\313`\"\\)\2626V\203\2156T\214~\210eb\210\211Sy)\266\354u\210e`{-* ,\207" [ind kwd-time-re drawer-re txt marker org-drawer-regexp nil marker-buffer derived-mode-p org-mode "" 1 outline-next-heading "^[ ]*" ".*\n?" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-activate-links add-text-properties 0 (face org-link) re-search-forward t set-text-properties "^[ ]*:END:.*\n?" move planning replace-match " \n" looking-at "[ \n]+\\'" untabify org-get-indentation "[ ]*$" beginning-of-line 2 move-to-column point-at-bol run-hooks org-agenda-entry-text-cleanup-hook "^" "[ ]*\n" count-lines -1 org-keyword-time-regexp #1# org-agenda-add-entry-text-descriptive-links org-bracket-link-regexp keep org-agenda-entry-text-exclude-regexps re re-list indent n-lines] 5 (#$ . 128855)]) | |
| 314 | #@57 Make sure current buffer is in Org mode. Error if not. | |
| 315 | (defalias 'org-check-for-org-mode #[nil "\301\302!\206\n \303\304\"\207" [major-mode derived-mode-p org-mode error "Cannot execute Org agenda command on buffer in %s"] 3 (#$ . 131014)]) | |
| 316 | (defvar org-agenda-multi nil) | |
| 317 | (defvar org-agenda-pre-window-conf nil) | |
| 318 | (defvar org-agenda-columns-active nil) | |
| 319 | (defvar org-agenda-name nil) | |
| 320 | (defvar org-agenda-tag-filter nil) | |
| 321 | (defvar org-agenda-category-filter nil) | |
| 322 | (defvar org-agenda-regexp-filter nil) | |
| 323 | (defvar org-agenda-effort-filter nil) | |
| 324 | (defvar org-agenda-top-headline-filter nil) | |
| 325 | #@516 A preset of the tags filter used for secondary agenda filtering. | |
| 326 | This must be a list of strings, each string must be a single tag preceded | |
| 327 | by "+" or "-". | |
| 328 | This variable should not be set directly, but agenda custom commands can | |
| 329 | bind it in the options section. The preset filter is a global property of | |
| 330 | the entire agenda view. In a block agenda, it will not work reliably to | |
| 331 | define a filter for one of the individual blocks. You need to set it in | |
| 332 | the global options and expect it to be applied to the entire view. | |
| 333 | (defvar org-agenda-tag-filter-preset nil (#$ . 131597)) | |
| 334 | #@525 A preset of the category filter used for secondary agenda filtering. | |
| 335 | This must be a list of strings, each string must be a single category | |
| 336 | preceded by "+" or "-". | |
| 337 | This variable should not be set directly, but agenda custom commands can | |
| 338 | bind it in the options section. The preset filter is a global property of | |
| 339 | the entire agenda view. In a block agenda, it will not work reliably to | |
| 340 | define a filter for one of the individual blocks. You need to set it in | |
| 341 | the global options and expect it to be applied to the entire view. | |
| 342 | (defvar org-agenda-category-filter-preset nil (#$ . 132175)) | |
| 343 | #@521 A preset of the regexp filter used for secondary agenda filtering. | |
| 344 | This must be a list of strings, each string must be a single regexp | |
| 345 | preceded by "+" or "-". | |
| 346 | This variable should not be set directly, but agenda custom commands can | |
| 347 | bind it in the options section. The preset filter is a global property of | |
| 348 | the entire agenda view. In a block agenda, it will not work reliably to | |
| 349 | define a filter for one of the individual blocks. You need to set it in | |
| 350 | the global options and expect it to be applied to the entire view. | |
| 351 | (defvar org-agenda-regexp-filter-preset nil (#$ . 132767)) | |
| 352 | #@524 A preset of the effort condition used for secondary agenda filtering. | |
| 353 | This must be a list of strings, each string must be a single regexp | |
| 354 | preceded by "+" or "-". | |
| 355 | This variable should not be set directly, but agenda custom commands can | |
| 356 | bind it in the options section. The preset filter is a global property of | |
| 357 | the entire agenda view. In a block agenda, it will not work reliably to | |
| 358 | define a filter for one of the individual blocks. You need to set it in | |
| 359 | the global options and expect it to be applied to the entire view. | |
| 360 | (defvar org-agenda-effort-filter-preset nil (#$ . 133353)) | |
| 361 | #@127 Return non-nil if an agenda buffer named | |
| 362 | `org-agenda-buffer-name' exists and should be shown instead of | |
| 363 | generating a new one. | |
| 364 | (defalias 'org-agenda-use-sticky-p #[nil "\205 ?\205 \306\n!\205 r\306\n!q\210 \f\232\205 )\207" [org-agenda-sticky org-agenda-multi org-agenda-buffer-name current-prefix-arg org-agenda-last-prefix-arg org-agenda-this-buffer-is-sticky get-buffer] 2 (#$ . 133942)]) | |
| 365 | #@179 Setup agenda buffer in the window. | |
| 366 | ABUF is the buffer for the agenda window. | |
| 367 | FILTER-ALIST is an alist of filters we need to apply when | |
| 368 | `org-agenda-persistent-filter' is non-nil. | |
| 369 | (defalias 'org-agenda-prepare-window #[(abuf filter-alist) "\306!\307p\232\204b \203 \310 !\210\202b \311 \211\203b \312=\203+ \313!\210\202b \314=\2038 \315!\210\202b \316=\203E \317!\210\202b \320=\203U \321 \210\313!\210\202b \322=\203b \321 \210\315!\210\323\f\236A\324\f\236A\325\f\236A\326\f\236Ap\232\204\203 \313!\210\n\206\211 \211*\207" [abuf awin wconf org-agenda-window-setup filter-alist org-agenda-tag-filter get-buffer-window nil select-window current-window-configuration current-window pop-to-buffer-same-window other-window org-switch-to-buffer-other-window other-frame switch-to-buffer-other-frame only-window delete-other-windows reorganize-frame tag cat effort re org-agenda-category-filter org-agenda-effort-filter org-agenda-regexp-filter org-agenda-pre-window-conf] 2 (#$ . 134347)]) | |
| 370 | (defalias 'org-agenda-prepare #[(&optional name) "\205 r\306 !q\210\307\nB\310 B\311\fB\312 BF) $\313 \203L \314\302\315\316#\210\314\305\315\316#\210\314\303\315\316#\210\317\320 !$\"\210\321\322!\210%\204E \323 \210\324\325\322\"\202\316&\314\302\315'#\210\314\305\315(#\210\314\303\315)#\210\314\304\315*#\210%\203\241 \316+db\210o\204\232 ,\204\232 -\203\232 \326-;\203\220 -\202\226 \327\330 -\"\326\261\210`d}\210\202\375 \316.\317\306 !$\"\210\316+\331 \210\332 /\333 \210)\334 \210p0\316\21112\335\336\316\337\"!\210&\340!\341!\266\202&.\340!\341!\266\202.34 56\203\375 #\204\375 \342\343!\2106#\316\211+)\207" [org-agenda-persistent-filter org-agenda-buffer-name org-agenda-tag-filter org-agenda-regexp-filter org-agenda-effort-filter org-agenda-category-filter get-buffer-create tag re effort cat org-agenda-use-sticky-p put :preset-filter nil org-agenda-prepare-window get-buffer message "Sticky Agenda buffer, use `r' to refresh" org-agenda-fit-window-to-buffer throw exit "\n" make-string window-width org-agenda-reset-markers t erase-buffer org-agenda-mode org-agenda-prepare-buffers org-agenda-files ifmode copy-sequence delete-dups make-local-variable org-agenda-name filter-alist org-agenda-multi org-todo-keywords-for-agenda org-agenda-tag-filter-preset org-agenda-category-filter-preset org-agenda-regexp-filter-preset org-agenda-effort-filter-preset buffer-read-only org-agenda-compact-blocks org-agenda-block-separator org-done-keywords-for-agenda inhibit-read-only org-agenda-buffer org-agenda-contributing-files org-agenda-columns-active current-prefix-arg org-agenda-last-prefix-arg org-agenda-this-buffer-name name] 6]) | |
| 371 | #@74 Finishing touch for the agenda buffer, called just before displaying it. | |
| 372 | (defalias 'org-agenda-finalize #[nil "?\205\212\306eb\210\212\307d!\203 \310\311\224\311\225\312#\210\202\f )\n\306=\204' \313 \210 \2041 \314ed\315#\210\316\304!\203A \f\203A \317\304!\210\f\316\305!\203N \203N \320 \210\203V \321 \210\203c ;\203c \322 \210\323 \210<\203q \324 \210\325 \210\326\327!\203\203 \212\330e\331\")\203\203 \327 \210\332\333\334 \"\262=\335=\204=<\203\242 =>\204=\306=\203\276 >\306=\204><\203\276 >>\203\336 ?\212eb\210\336y\311\232\203\333`\337\"\211?\203\305 \340\334 \341 \342? @\212\343@!\203\356 \344@!q\210\212\214~\210@\206\370 `b\210\345\346\347\350 \"!,$\210\202\305 *\351\352!\210A\203\353A!\210.\203\"\354.\355\306#\210\356\357N\2030\354\356\357N\355\306#\2101\203;\3541\360\"\210\361\357N\203H\354\361\357N\360\"\2103\203S\3543\362\"\210\363\357N\203`\354\363\357N\362\"\2105\203k\3545\364\"\210\365\357N\203x\354\365\357N\364\"\210\366\367\370\371\372$*\207" [org-agenda-multi inhibit-read-only org-agenda-remove-tags org-agenda-with-colors org-agenda-overriding-columns-format org-agenda-view-columns-initially t org-activate-links add-text-properties 0 (face org-link) org-agenda-align-tags remove-text-properties (face nil) boundp make-local-variable org-agenda-columns org-agenda-fontify-priorities org-agenda-dim-blocked-tasks org-agenda-mark-clocking-task org-agenda-entry-text-hide org-agenda-entry-text-show functionp org-habit-insert-consistency-graphs next-single-property-change org-habit-p org-agenda-type get-text-property point-at-bol always nil org-hd-marker put-text-property point-at-eol tags markerp marker-buffer delete-dups mapcar downcase org-get-tags-at run-hooks org-agenda-finalize-hook org-agenda-filter-top-headline-apply org-agenda-filter-apply tag org-agenda-tag-filter :preset-filter category org-agenda-category-filter regexp org-agenda-regexp-filter effort org-agenda-effort-filter add-hook kill-buffer-hook org-agenda-reset-markers append local org-blocker-hook org-agenda-entry-text-mode org-agenda-show-inherited-tags org-agenda-use-tag-inheritance mrk #1=#:--mpom org-agenda-top-headline-filter] 8 (#$ . 137055)]) | |
| 373 | #@62 Mark the current clock entry in the agenda if it is present. | |
| 374 | (defalias 'org-agenda-mark-clocking-task #[nil "\304\300!\205V \205V \214~\210\305 \210\306 !\205U \212eb\210\307\211\310`\311\"\211\205T b\210\311\312\313 \"\262 \232\203 \314\313 \315 T\"\316\n\317\320#\210\316\n\321\320#\210\316\n\322\323#\210\202 +)\207" [org-clock-current-task org-clock-hd-marker ov s boundp org-agenda-unmark-clocking-task marker-buffer nil next-single-property-change org-hd-marker get-text-property point-at-bol make-overlay point-at-eol overlay-put type org-agenda-clocking face help-echo "The clock is running in this item"] 4 (#$ . 139288)]) | |
| 375 | #@35 Unmark the current clocking task. | |
| 376 | (defalias 'org-agenda-unmark-clocking-task #[nil "\300\301\302ed\"\"\207" [mapc #[(o) "\301\302\"\303=\205\f \304!\207" [o overlay-get type org-agenda-clocking delete-overlay] 3] overlays-in] 5 (#$ . 139936)]) | |
| 377 | #@54 Make highest priority lines bold, and lowest italic. | |
| 378 | (defalias 'org-agenda-fontify-priorities #[nil "\306\307\310ed\"\"\210\212\311\211\211\211\211\211 eb\210\312\313\311\314#\205\237 \315`\316\"\206) \315`\317\"\2063 \320\321\322!!\323\224 \324=\203I \323\225\202K \325 \326 \f\"\327\n\330\331\332\333\334 !\"A#\206\205 <\203t \331\332\333\334 \"A#\206\205 \232\203~ \335\202\205 \232\205\205 \336\211 \"\203\222 \"\333D\202\223 \333)#\210\327\n\337\333#\210\202 .\207" [l h ov p e b mapc #[(o) "\301\302\"\303=\205\f \304!\207" [o overlay-get org-type org-priority delete-overlay] 3] overlays-in nil re-search-forward "\\[#\\(.\\)\\]" t get-char-property org-highest-priority org-lowest-priority string-to-char match-string 1 0 cookies point-at-eol make-overlay overlay-put face org-face-from-face-or-color priority org-priority assoc italic bold org-type org-agenda-fontify-priorities org-priority-faces special-face] 10 (#$ . 140188) nil]) | |
| 379 | #@132 Dim currently blocked TODOs in the agenda display. | |
| 380 | When INVISIBLE is non-nil, hide currently blocked TODO instead of | |
| 381 | dimming them. | |
| 382 | (defalias 'org-agenda-dim-blocked-tasks #[(&optional invisible) "\306\307!\203\n \310\311!\210\312ed\"\313\211\203, @\314\315\"\316=\203% \317!\210 A\211\204 *\212\320eb\210\321`d\322\313$\211\205@ b)\203\200 \322\323\324 \"\262\304= \325\f\203Z \326\327!\202\\ \330 \326 \" \f\203m \331 \304\320#\210\202s \331 \332\333#\210\331 \315\316#\210*\313y\210\2023 *\306\307!\205\212 \310\334!\207" [o --dolist-tail-- inhibit-read-only pos invisible ov called-interactively-p interactive message "Dim or hide blocked tasks..." overlays-in nil overlay-get org-type org-blocked-todo delete-overlay t text-property-not-all org-todo-blocked get-text-property point-at-bol make-overlay line-end-position 0 line-beginning-position overlay-put face org-agenda-dimmed-todo-face "Dim or hide blocked tasks...done"] 6 (#$ . 141169) "P"]) | |
| 383 | #@317 For ENTRY a string with the text property `org-hd-marker', if | |
| 384 | the header at `org-hd-marker' is blocked according to | |
| 385 | `org-entry-blocked-p', then if `org-agenda-dim-blocked-tasks' is | |
| 386 | 'invisible and the header is not blocked by checkboxes, set the | |
| 387 | text property `org-todo-blocked' to 'invisible, otherwise set it | |
| 388 | to t. | |
| 389 | (defalias 'org-agenda--mark-blocked-entry #[(entry) "\306\307\310#\203G \306\307\311#\312\211\211\203F r\313 !q\210\212 b\210\314 *\211 \203E \n?\2050 \315= \316\307G\317\203@ \315\202A \320%\210))+\207" [entry org-depend-tag-blocked org-blocked-by-checkboxes entry-marker blocked org-agenda-dim-blocked-tasks get-text-property 0 todo-state org-hd-marker nil marker-buffer org-entry-blocked-p invisible put-text-property org-todo-blocked t really-invisible] 7 (#$ . 142142)]) | |
| 390 | #@692 Function to be called at each match during agenda construction. | |
| 391 | If this function returns nil, the current match should not be skipped. | |
| 392 | Otherwise, the function must return a position from where the search | |
| 393 | should be continued. | |
| 394 | This may also be a Lisp form, it will be evaluated. | |
| 395 | Never set this variable using `setq' or so, because then it will apply | |
| 396 | to all future agenda commands. If you do want a global skipping condition, | |
| 397 | use the option `org-agenda-skip-function-global' instead. | |
| 398 | The correct usage for `org-agenda-skip-function' is to bind it with | |
| 399 | `let' to scope it dynamically into the agenda-constructing command. | |
| 400 | A good way to set it is through options in `org-agenda-custom-commands'. | |
| 401 | (defvar org-agenda-skip-function nil (#$ . 142953)) | |
| 402 | #@143 Throw to `:skip' in places that should be skipped. | |
| 403 | Also moves point to the end of the skipped region, so that search can | |
| 404 | continue from there. | |
| 405 | (defalias 'org-agenda-skip #[nil "\306 \307\212 b\210\310\n!)\204Q \203% \f\204% \311 \312\"\203% \313\314!\204Q \2036 \311 \315\"\2036 \313\314!\204Q \316!\206A \316!\211\203K b\204Q \317\314!\205U \320\321\314\"*\207" [to p comment-start-skip org-agenda-skip-archived-trees org-agenda-archives-mode org-agenda-skip-comment-trees point-at-bol nil looking-at get-text-property :org-archived org-end-of-subtree t :org-comment org-agenda-skip-eval org-in-src-block-p throw :skip org-agenda-skip-function-global org-agenda-skip-function] 3 (#$ . 143703)]) | |
| 406 | #@237 If FORM is a function or a list, call (or eval) it and return the result. | |
| 407 | `save-excursion' and `save-match-data' are wrapped around the call, so point | |
| 408 | and match data are returned to the previous state no matter what these | |
| 409 | functions do. | |
| 410 | (defalias 'org-agenda-skip-eval #[(form) "\303 \205& \304 !\211\204 :\205& \212\305 \306\216\203\" \202% \307 !+)\207" [fp form save-match-data-internal nil functionp match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] eval] 2 (#$ . 144415)]) | |
| 411 | #@63 List of all currently active markers created by `org-agenda'. | |
| 412 | (defvar org-agenda-markers nil (#$ . 144946)) | |
| 413 | #@42 Creation time of the last agenda marker. | |
| 414 | (defvar org-agenda-last-marker-time (float-time) (#$ . 145060)) | |
| 415 | #@158 Return a new agenda marker. | |
| 416 | Maker is at point, or at POS if non-nil. Org mode keeps a list of | |
| 417 | these markers and resets them when they are no longer in use. | |
| 418 | (defalias 'org-agenda-new-marker #[(&optional pos) "\305\206 `\306\"\307 \203 r q\210 \fB)\202 \fB )\207" [pos m org-agenda-last-marker-time org-agenda-buffer org-agenda-markers copy-marker t float-time] 3 (#$ . 145172)]) | |
| 419 | #@40 Reset markers created by `org-agenda'. | |
| 420 | (defalias 'org-agenda-reset-markers #[nil "\205 \211A\242\301\211\223\210\202 \207" [org-agenda-markers nil] 3 (#$ . 145567)]) | |
| 421 | #@117 Save relative positions of markers in region. | |
| 422 | This check for agenda markers in all agenda buffers currently active. | |
| 423 | (defalias 'org-agenda-save-markers-for-cut-and-paste #[(beg end) "\304 \305\211\205$ @rq\210\n\306=\203 \307\310 \"\210) A\211\204 \305*\207" [buf --dolist-tail-- major-mode org-agenda-markers buffer-list nil org-agenda-mode mapc #[(m) "\303 \n#\207" [m beg end org-check-and-save-marker] 4]] 4 (#$ . 145745)]) | |
| 424 | #@62 Add some text from the entry as context to the current line. | |
| 425 | (defalias 'org-agenda-entry-text-show-here #[nil "\306\211\211\307\310\311 \"\262\312\n!\204 \313\314!\210\315\316\n \f#\306\211\203/ \317\320G $\210\2027 \321\320G\306$\210\266\202P\322\323 \"\205[ \324\311 \325 \"\326\327\330#\210\326\331\332#\210\326\333 #+\207" [o txt m org-agenda-entry-text-maxlines org-agenda-entry-text-leaders org-rm-props nil org-hd-marker get-text-property point-at-bol marker-buffer error "No marker points to an entry here" "\n" org-agenda-get-some-entry-text remove-text-properties 0 set-text-properties string-match "\\S-" make-overlay point-at-eol overlay-put evaporate t org-overlay-type agenda-entry-content after-string] 8 (#$ . 146187)]) | |
| 426 | #@41 Add entry context for all agenda lines. | |
| 427 | (defalias 'org-agenda-entry-text-show #[nil "\212db\210\300\301!\210o?\205\" \302\303\304 \"\262\203 \305 \210\300\306!\210\202 )\207" [beginning-of-line 1 org-hd-marker get-text-property point-at-bol org-agenda-entry-text-show-here 0] 4 (#$ . 146946) nil]) | |
| 428 | #@33 Remove any shown entry context. | |
| 429 | (defalias 'org-agenda-entry-text-hide #[nil "\300\301\302\303\304ed\"\"\"\207" [delq nil mapcar #[(o) "\301\302\"\303=\205 \304!\210\305\207" [o overlay-get org-overlay-type agenda-entry-content delete-overlay t] 3] overlays-in] 7 (#$ . 147254)]) | |
| 430 | #@48 Return the face DATE should be displayed with. | |
| 431 | (defalias 'org-agenda-get-day-face #[(date) "\303!\203\f !\206 \304 !\203 \305\207\306 !\n>\203 \307\207\310\207" [org-agenda-day-face-function date org-agenda-weekend-days functionp org-agenda-today-p org-agenda-date-today calendar-day-of-week org-agenda-date-weekend org-agenda-date] 2 (#$ . 147542)]) | |
| 432 | #@267 Start day for the agenda view. | |
| 433 | Custom commands can set this variable in the options section. | |
| 434 | This is usually a string like "2007-11-01", "+2d" or any other | |
| 435 | input allowed when reading a date through the Org calendar. | |
| 436 | See the docstring of `org-read-date' for details. | |
| 437 | (defvar org-agenda-start-day nil (#$ . 147906)) | |
| 438 | (defvar org-starting-day nil) | |
| 439 | (defvar org-arg-loc nil) | |
| 440 | (defvar org-agenda-buffer-tmp-name nil) | |
| 441 | #@625 Produce a daily/weekly view from all files in variable `org-agenda-files'. | |
| 442 | The view will be for the current day or week, but from the overview buffer | |
| 443 | you will be able to go to other days/weeks. | |
| 444 | ||
| 445 | With a numeric prefix argument in an interactive call, the agenda will | |
| 446 | span ARG days. Lisp programs should instead specify SPAN to change | |
| 447 | the number of days. SPAN defaults to `org-agenda-span'. | |
| 448 | ||
| 449 | START-DAY defaults to TODAY, or to the most recent match for the weekday | |
| 450 | given in `org-agenda-start-on-weekday'. | |
| 451 | ||
| 452 | When WITH-HOUR is non-nil, only include scheduled and deadline | |
| 453 | items if they have an hour specification like [h]h:mm. | |
| 454 | (defalias 'org-agenda-list #[(&optional arg start-day span with-hour) "\203 @A@\3068 \250\203 \307V\203 \310\3112\303\f\206[ \203/ @\206[ A\203Z B\203I C;\203I \312\313BC#\202W B\203V \312\314B\"\202W \315\206[ \316@\317\320!\210\n\206g D\211;\203u \321\322\310\323\n#!\324\325!\210\326\325!\210\327 \206\204 E!\330 F\n\206\220 F G\331 G\"\211 H\332=\204\246 H\333=\205\250 I I\334\310\335\"\211 J KI\203\277 H\332W\203\304 G\202\352 \336\337G!! LI MLMZ NGN\307W\203\344 \332\202\345 \307N\\Z+\211 OC P\307 QR? ST U\310\211 V W\310\211 X Y\310\211 Z [\310\211 N \\\310\211 ] ^\310\211 _ `\310 a\340\341 D\n\341 Db\257cHS\307 d edeW\203SP@TPBPdT\211d\202;*P\237\211P@_P\342!@\262\206i\307T`\343\344!\210P@$\343\345!\210 %\343\346!\210\327 !&f\204\374P@ gP\342!@\262 h\347g! i\347h! j`Vk\203\275\350\351k!\310\352\353$\354\261\210\202\352\355 !\356hgZ\357W\203\345ijU\203\333\312\360i\"\202\346\312\361ij#\202\346\362\363\261\210,\364V`S\352\353\365\323F#\210\366V!\210P\211AP\242\211N\203\325\337N![`VNFU\211^\204*\\\2040NGU\2030`\\\202=\\\203=]\204=`]JK\310YK\211AK\242\211Z\203\3672\370Z!\210l l\371l\235\203l\372\373l\"l\374l\235\203z\372\375l\"lb\203\247\373l\235\203\223\372\373l\"l\371lBl\375l\235\203\247\372\375l\"l\374lBlm\204\266\372\371\372\373l\"\"lU\376>\203\313\377Z[\201y #X\202\364U\203\347\201z \377Z[\201{ \201| l\"$X\202\364\201z \377Z[l$X)\201{ YX\"\211Y0\210\202Dn\203(\323 o\201} \201~ !\210\201 [!X\201{ YX\"Y)Y\2042p\203\374QTQq;\203L\201\200 q\201\201 [!\"\202Qq[!\354\261\210\201\202 V`S\352\201\203 [!$\210\201\202 V`S\365\323$\210\201\202 V`S\201\204 \323$\210\201\202 V`S\201\205 Q$\210^\203\233\201\202 V`S\330\323$\210\201\206 YH^#\211Y\203\266\201\207 Y\325\"\354\261\210\201\202 V`S\201\210 N$\210\201\202 V`S\201\205 Q$\210\202\374r\203._\203.\334\310\335\"\351s!\310 t u \201\211 u\201\212 \"u\201\213 u\201\214 _#u\201\213 u\201\215 `#u\201\213 u\201\216 \325#u\201z \201\217 u\"\211tc\210+eb\210v\204;\201\220 \210\201\221 \203\201\222 e!\203R\201\222 d!\204dSb\210\201\223 \201\224 !\210\201\222 \\\206i\201\225 !\204\\\206u\201\225 b\210\201\223 \201\225 !\210\\\206\207\201\225 b\210\364ed\201\226 \325\201\227 \n E\201\230 c\201\231 w\257#\210U\201\232 =\203\263\201\233 \210\201\234 \210\323x\201\235 \362!.0\207" [org-agenda-overriding-arguments arg start-day span org-agenda-buffer-tmp-name org-agenda-doing-sticky-redo 2 0 nil exit format "*Org Agenda(%s:%s)*" "*Org Agenda(%s)*" "*Org Agenda(a)*" "*Org Agenda*" org-agenda-prepare "Day/Week" time-to-days org-read-date t org-compile-prefix-format agenda org-set-sorting-strategy org-agenda-ndays-to-span org-today org-agenda-span-to-ndays 7 14 org-agenda-files ifmode calendar-day-of-week calendar-gregorian-from-absolute org-agenda-list quote last make-local-variable org-starting-day org-arg-loc org-agenda-current-span org-days-to-iso-week org-add-props copy-sequence face org-agenda-structure "\n" org-agenda-span-name "-agenda" 350 " (W%02d)" " (W%02d-W%02d)" "" ":\n" add-text-properties org-date-line org-agenda-mark-header-line nextfile org-check-agenda-file :deadline* delq :deadline :scheduled* :scheduled (only clockcheck) org-agenda-get-day-entries org-agenda-buffer-name org-agenda-sticky org-keys org-match org-agenda-start-day org-agenda-span today sd ndays org-agenda-start-on-weekday thefiles files nt n1 d start day-numbers day-cnt debug-on-error inhibit-redisplay org-agenda-show-log org-agenda-show-log-scoped s e rtn rtnall file date start-pos end-pos todayp clocktable-start clocktable-end filter with-hour org-agenda-redo-command n --dotimes-limit-- org-agenda-compact-blocks d1 d2 w1 w2 org-agenda-overriding-header org-agenda-entry-types org-agenda-include-deadlines org-agenda-include-diary org-agenda-search-headline-for-time org-agenda-show-all-dates org-agenda-format-date org-agenda-clockreport-mode org-agenda-clockreport-parameter-plist tbl p org-agenda-multi org-cmd buffer-read-only :closed apply append (:closed) require diary-lib org-get-entries-from-diary format-time-string org-time-from-absolute put-text-property org-agenda-get-day-face org-agenda-date-header org-day-cnt org-agenda-add-time-grid-maybe org-agenda-finalize-entries day org-plist-delete :block plist-put :tstart :tend :scope org-clock-get-clocktable org-agenda-fit-window-to-buffer get-buffer-window pos-visible-in-window-p recenter -1 1 org-agenda-type org-last-args org-redo-cmd org-series-cmd clockcheck org-agenda-show-clocking-issues org-agenda-finalize message] 12 (#$ . 148322) "P"]) | |
| 455 | #@66 Return a span symbol for a span of N days, or N if none matches. | |
| 456 | (defalias 'org-agenda-ndays-to-span #[(n) "9\203 \207\301U\203 \302\207\303U\203 \304\207\305U\203 \306\207\207" [n 1 day 7 week 14 fortnight] 2 (#$ . 153713)]) | |
| 457 | #@94 Return ndays from SPAN, possibly starting at START-DAY. | |
| 458 | START-DAY is an absolute time value. | |
| 459 | (defalias 'org-agenda-span-to-ndays #[(span &optional start-day) "\247\203 \207\305=\203 \306\207\307=\203 \310\207\311=\203 \312\207\304=\203h \313 !\211@\nAA@\211 \314U\203b \211\315W\203D \316 !S \317\246\315U\205Z \320\246\315U?\206Z \321\246\315U)\203b \322\202f \323\fSH+\207\303=\205\242 \313 !\211AA@\211\315W\203\202 \316 !S \317\246\315U\205\230 \320\246\315U?\206\230 \321\246\315U)\203\240 \324\202\241 \325)\207" [span start-day date year month day 1 week 7 fortnight 14 calendar-gregorian-from-absolute 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] 366 365] 3 (#$ . 153955)]) | |
| 460 | #@21 Return a SPAN name. | |
| 461 | (defalias 'org-agenda-span-name #[(span) "\204 \301\2079\203 \302\303!!\207\304\305\"\207" [span "" capitalize symbol-name format "%d days"] 3 (#$ . 154680)]) | |
| 462 | (defvar org-agenda-search-history nil) | |
| 463 | #@175 Special syntax table for Org search. | |
| 464 | In this table, we have single quotes not as word constituents, to | |
| 465 | that when "+Ameli" is searched as a work, it will also match "Ameli's" | |
| 466 | (defvar org-search-syntax-table nil (#$ . 154911)) | |
| 467 | (defalias 'org-search-syntax-table #[nil "\204 \302 !\303\304\305#\210\303\306\305#\210\207" [org-search-syntax-table org-mode-syntax-table copy-syntax-table modify-syntax-entry 39 "." 96] 4]) | |
| 468 | (defvar org-agenda-last-search-view-search-was-boolean nil) | |
| 469 | #@2261 Show all entries that contain a phrase or words or regular expressions. | |
| 470 | ||
| 471 | With optional prefix argument TODO-ONLY, only consider entries that are | |
| 472 | TODO entries. The argument STRING can be used to pass a default search | |
| 473 | string into this function. If EDIT-AT is non-nil, it means that the | |
| 474 | user should get a chance to edit this string, with cursor at position | |
| 475 | EDIT-AT. | |
| 476 | ||
| 477 | The search string can be viewed either as a phrase that should be found as | |
| 478 | is, or it can be broken into a number of snippets, each of which must match | |
| 479 | in a Boolean way to select an entry. The default depends on the variable | |
| 480 | `org-agenda-search-view-always-boolean'. | |
| 481 | Even if this is turned off (the default) you can always switch to | |
| 482 | Boolean search dynamically by preceding the first word with "+" or "-". | |
| 483 | ||
| 484 | The default is a direct search of the whole phrase, where each space in | |
| 485 | the search string can expand to an arbitrary amount of whitespace, | |
| 486 | including newlines. | |
| 487 | ||
| 488 | If using a Boolean search, the search string is split on whitespace and | |
| 489 | each snippet is searched separately, with logical AND to select an entry. | |
| 490 | Words prefixed with a minus must *not* occur in the entry. Words without | |
| 491 | a prefix or prefixed with a plus must occur in the entry. Matching is | |
| 492 | case-insensitive. Words are enclosed by word delimiters (i.e. they must | |
| 493 | match whole words, not parts of a word) if | |
| 494 | `org-agenda-search-view-force-full-words' is set (default is nil). | |
| 495 | ||
| 496 | Boolean search snippets enclosed by curly braces are interpreted as | |
| 497 | regular expressions that must or (when preceded with "-") must not | |
| 498 | match in the entry. Snippets enclosed into double quotes will be taken | |
| 499 | as a whole, to include whitespace. | |
| 500 | ||
| 501 | - If the search string starts with an asterisk, search only in headlines. | |
| 502 | - If (possibly after the leading star) the search string starts with an | |
| 503 | exclamation mark, this also means to look at TODO entries only, an effect | |
| 504 | that can also be achieved with a prefix argument. | |
| 505 | - If (possibly after star and exclamation mark) the search string starts | |
| 506 | with a colon, this will mean that the (non-regexp) snippets of the | |
| 507 | Boolean search must match as full words. | |
| 508 | ||
| 509 | This command searches the agenda files, and in addition the files | |
| 510 | listed in `org-agenda-text-search-extra-files' unless a restriction lock | |
| 511 | is active. | |
| 512 | (defalias 'org-search-view #[(&optional todo-only string edit-at) "\203 @A@\3068\307\310\311\312\304\f\305 \313 \314\315\316\317\320!\257 @A BC C\310\211 D E\310\211 F G\310\211 H I\310\211 J K\310\211 L M\310\211 N O\310\211 P Q\310\211 R S\310\211 T U\310\211 V W\310\211 X Y\310\211 Z [\310\211 \\ ] \204\212 \n;\203\212 \321\322\n\"\204\250 \323^\203\224 \324\202\225 \325 \250\203\240 \n B\202\245 \205\245 \n\326#\3272\323_\203\331 \n;\203\313 \317\330`\206\306 \203\305 \331\202\306 \332\n#\202\327 \317\333 \203\325 \331\202\326 \332\"a\334\335!\210\336\337!\210\340\337!\210\341 \205\353 \342\343\344\310\nFEb\nc\345\n!\346\232\203\n\342Z\n\347\310OW\202 \nW\345W!\350\232\203 \342W\347\310OW\345W!\351\232\2032\342BW\347\310OW^\204@\345W!\352\235\203C\342R\353W!W\310\211 d eW\211AW\242\211d\203\206\321\354d\"\203|W\203|d\355\356O\357W\211AW\242Qd\202\\deBe\202Oe\237W\310eW\211AW\242\211d\203\340\321\360d\"\203\326\321\361d\"\204\326W\203\311\321\361W@\"\204\311d\357W\211AW\242Qd\202\253d\357W\211AW\242QddeBe\202\216e\237W*RfR\203y\310\211 d gW\211AW\242\211d\203sd\355\347O\362\232\204(dG\347V\203Gd\355\347O\363\235\203Gd\347\306O\362\232\203GW\203Gd\356\310O\362\232\204Gd\357W\211AW\242Qd\202(\321\364d\"\203X\365\366\310\211d$dd\356\310O\362\232\203id\355\356OddgBg\202\365g\237W*R\203\207\367\370W\"\210\202\222\371\372W\373#XBX\374X\375\"\211X\204\244hD\202\272X\211AX\242DZ\203\272h\376DQD\377\310\201v \"GC@\201w =\203\344C\210CAC\377\201x N\204\344\201y G!G\201z \201{ GC\"\201| \201} #G\310FG\211AG\242\211H\203 \310S\201~ 2 \201 H!\210\201\200 H!\203*\201\201 H!\2023\201\202 \201\203 H\"\211[\204C\317\201\204 H\"CEr[q\210\201\205 p i j\201\206 \216\201\207 \201\210 !\210\201\211 \201\212 !\204r\201\202 \201\213 H\"\210\342 k\212\214[l=\203\210mn}\210\202\212~\210eb\210\201\214 \204\244\201\215 \204\244\201\216 \201~ \342\"\210e`S]b\210\201\217 D\310\342#\205\n\201\220 \342!\210o\355U\204\335\201\221 \201\222 !oV\203\335\356y\203\335\201\220 \342!\204\273\201\223 \310w\210\201\224 U`\\\201\215 \210o\355U\204\201\221 \201\222 !oV\203\347y\203\201\215 \204\361`V\201\225 2Ub\210\201\226 \210\201\227 \201\224 Z\2037\201\230 \2029V\"]\367\201\231 Y\"\210\367\201\232 \203W\201\233 \fPXB\202YX\"\210Ub\210\201\234 `!K\201\235 L\201\236 \201\221 \201\222 !\201\237 \"Mp\201\240 =\206\251p<\203\225\201\241 p>\206\251p\342=\205\251q\342=\206\251\201\241 q>J\201\242 \310J?\"N\201\243 \201\244 \201\227 \\\201\230 \"MLN\342&T\201\245 T@\201\246 K\201\247 K\305 \201M M\313 \201\250 \201\251 \201\252 \201\253 &\210TSBSVSb0\210\202\252.0\210S\237E\201{ FE\"F\202\373r\203=\201\245 \201\254 r!\310\307\201\255 $\201\256 \261\210\202\206\201\257 c\210\201\260 e`S\307\201\255 D#\210`I\n\201\256 \261\210\201\260 I`S\307\201\261 D#\210`Is\204\206\201\262 \201\263 !c\210\201\260 I`S\307\201\255 D#\210\201\264 e!\210F\203\236\201\265 F\337\"\201\256 \261\210eb\210s\204\253\201\266 \210\201\260 ed\201\267 \337\201\270 \n E\201\271 b\201\272 t\257#\210\201\273 \210\342\211u0. \207" [org-agenda-overriding-arguments todo-only string edit-at org-not-done-regexp org-todo-regexp 2 face nil done-face org-agenda-done org-complex-heading-regexp mouse-face highlight help-echo format "mouse-2 or RET jump to location" string-match "\\S-" read-string "[+-]Word/{Regexp} ...: " "Phrase or [+-]Word/{Regexp} ...: " org-agenda-search-history exit "*Org Agenda(%s:%s)*" "S" "s" "*Org Agenda(%s)*" org-agenda-prepare "SEARCH" org-compile-prefix-format search org-set-sorting-strategy org-search-view t if current-prefix-arg string-to-char 42 1 33 58 (45 43 123) split-string "\\\\\\'" 0 -1 " " "\\`[-+]?{" "}\\'" "\"" ("+" "-") "\\`\\([-+]?\\)\"" replace-match "\\1" mapc #[(w) "\306!\211\307\232\203 \310\311\312O\202& \313\232\203$ \312\311\312O\202& \312\314\315\"\2035 \311\316O\202I \f\203D \317\320\227!\321Q\202I \320\227!\n\203S B\211\207 B\211\207" [w c neg re full-words regexps- string-to-char 45 t 1 nil 43 string-match "\\`{.*}\\'" -1 "\\<" regexp-quote "\\>" regexps+] 4] mapconcat #[(w) "\301!\207" [w regexp-quote] 2] "\\s-+" sort #[(a b) "G GV\207" [a b] 2] ".*?" org-agenda-files props org-agenda-search-view-force-full-words full-words org-agenda-text-search-extra-files regexp rtn rtnall files file pos inherited-tags marker category level tags c neg re boolean ee txt beg end words regexps+ regexps- hdl-only buffer beg1 str org-agenda-search-view-always-boolean org-agenda-sticky org-keys org-agenda-buffer-name org-agenda-redo-command org-agenda-query-string w www org-agenda-last-search-view-search-was-boolean wds org-outline-regexp-bol #1=#:buffer #2=#:table case-fold-search org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end org-agenda-search-view-max-outline-level org-agenda-show-inherited-tags org-agenda-use-tag-inheritance org-agenda-overriding-header org-agenda-multi org-cmd buffer-read-only ifmode agenda-archives org-restrict org-add-archive-files cl-remove-duplicates append :test #[(a b) "\302!\205 \302 !\205 \303 \"\207" [a b file-exists-p file-equal-p] 3] nextfile org-check-agenda-file file-exists-p org-get-agenda-file-buffer error "No such file %s" "ORG-AGENDA-ERROR: No such org-file %s" syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table org-search-syntax-table derived-mode-p org-mode "Agenda file %s is not in Org mode" org-at-heading-p outline-next-heading throw re-search-forward org-back-to-heading org-reduced-level org-outline-level "* " point-at-bol :skip org-agenda-skip buffer-substring-no-properties point-at-eol #[(wr) "\303 \"\205 \nSb\210\304\305\306\"\207" [wr str end string-match throw :skip t] 3] #[(wr) "\303 \"?\205 \nSb\210\304\305\306\"\207" [wr str end string-match throw :skip t] 3] "^\\*+[ ]+" org-agenda-new-marker org-get-category make-string 32 always todo org-get-tags-at org-agenda-format-item "" org-add-props org-marker org-hd-marker priority 1000 type "search" copy-sequence org-agenda-structure "\n" "Search words: " add-text-properties org-warning substitute-command-keys "Press `\\[org-agenda-manipulate-query-add]', `\\[org-agenda-manipulate-query-subtract]' to add/sub word, `\\[org-agenda-manipulate-query-add-re]', `\\[org-agenda-manipulate-query-subtract-re]' to add/sub regexp, `\\[universal-argument] \\[org-agenda-redo]' to edit\n" org-agenda-mark-header-line org-agenda-finalize-entries org-agenda-fit-window-to-buffer org-agenda-type org-last-args org-redo-cmd org-series-cmd org-agenda-finalize] 18 (#$ . 155403) "P"]) | |
| 513 | #@62 Use `org-todo-keyword-faces' for the selected todo KEYWORDS. | |
| 514 | (defalias 'org-agenda-propertize-selected-todo-keywords #[(keywords) "\301\232\204\n \204 \302\301\303\304#\202 \305\306\307\310\"\310#\311P\207" [keywords "ALL" propertize face warning mapconcat #[(kw) "\301\302\303!#\207" [kw propertize face org-get-todo-face] 5] org-split-string "|" "\n"] 5 (#$ . 164496)]) | |
| 515 | (defvar org-select-this-todo-keyword nil) | |
| 516 | (defvar org-last-arg nil) | |
| 517 | #@313 Show all (not done) TODO entries from all agenda file in a single list. | |
| 518 | The prefix arg can be used to select a specific TODO keyword and limit | |
| 519 | the list to these. When using `\[universal-argument]', you will be prompted | |
| 520 | for a keyword. A numeric prefix directly selects the Nth keyword in | |
| 521 | `org-todo-keywords-1'. | |
| 522 | (defalias 'org-todo-list #[(&optional arg) "\203 ;\203 \306\307 \"\204 \310\311 \312\n!\f \313 > ;\203) \202< \205< \250\205< \314V\205< S 8 ?\310\211 @ A\310\211 B C\310 D \315\232\203^ \316\317\320\321 \"\310\211$? \314\232\203g \310?\3222lE\203\217 ?;\203\204 \323\324F\206~ \325?#\202\215 \323\326F\206\214 \325\"G\327\330!\210\331\332!\210\333\332!\210\334\335\336?\337 \257DH\340\310\341\"B\310AB\211AB\242\211C\203\334 \3422\330 \343C!\210\344C \345#@\346A@\"\211A0\210\202\260 I\203\361 \347\350I!\310\351\352$\353\261\210\2026\354c\210\355e`S\351\352\356\357?\206\360PF#\210\361e!\210\362?!c\210`DJ\204,\363\364!c\210\314\310 K L\365\366 \"\210*\353c\210\355D`S\351\352D#\210\361e!\210A\203H\367A\332\"\353\261\210eb\210J\204S\370 \210\355ed\371\332\372 \373H\374M\257#\210\375 \210\313\211N0.\n\207" [org-agenda-overriding-arguments arg today date org-todo-keywords-for-agenda kwds string-match "\\S-" nil org-today calendar-gregorian-from-absolute t 0 (4) completing-read "Keyword (or KWD1|K2D2|...): " mapcar list exit format "*Org Agenda(%s:%s)*" "t" "*Org Agenda(%s)*" org-agenda-prepare "TODO" org-compile-prefix-format todo org-set-sorting-strategy org-todo-list or (and (numberp current-prefix-arg) current-prefix-arg) current-prefix-arg org-agenda-files ifmode nextfile org-check-agenda-file org-agenda-get-day-entries :todo append org-add-props copy-sequence face org-agenda-structure "\n" "Global list of TODO items of type: " add-text-properties short-heading "ToDo: " "ALL" org-agenda-mark-header-line org-agenda-propertize-selected-todo-keywords substitute-command-keys "Available with `N \\[org-agenda-redo]': (0)[ALL]" mapc #[(x) "\303\304T\211 #\305i\306\n!\307#\310 V\203 \311c\210\312\n\261\207" [n x s format "(%d)%s" + string-width 1 frame-width "\n " " "] 4] org-agenda-finalize-entries org-agenda-fit-window-to-buffer org-agenda-type org-last-args org-redo-cmd org-series-cmd org-agenda-finalize completion-ignore-case org-select-this-todo-keyword rtn rtnall files file pos org-agenda-sticky org-keys org-agenda-buffer-name org-agenda-redo-command org-agenda-overriding-header org-agenda-multi s n org-cmd buffer-read-only] 12 (#$ . 164950) "P"]) | |
| 523 | #@134 Show all headlines for all `org-agenda-files' matching a TAGS criterion. | |
| 524 | The prefix arg TODO-ONLY limits the search to TODO entries. | |
| 525 | (defalias 'org-tags-view #[(&optional todo-only match) "\203 @A@ \306 \307\211 = >\307\211 ? @\307\211 A B\307 C\n;\2034 \310\311\n\"\2044 \307\3122\240D\203e \n;\203W \313\314E\206R \203Q \315\202R \316\n#\202c \313\317 \203a \315\202b \316\"F\320\n!B\321\322\nP!\210B@BAB\323\324!\210\325\324!\210\nG\326\327 D\330\331\307GFEH\332\307\333\"?\307>?\211A?\242\211@\203\3342\335@!\210\336@!\203\276 \337@!\202\303 \340\341@\"\211C\204\335 \313\342@\"C=\343>=\"\211>\202rCq\210\344\345!\204\356 \340\346@\"\210\212\214CI=\203JK}\210\202~\210\347\350B #=\343>=\"\211>+0\210\202\232 L\203/\351\352L!\307\353\354$\355\261\210\202h\356c\210\357e`S\353\354\360\361\nPF#\210`A\n\355\261\210\357A`S\353\362D#\210`AM\204^\363\364!c\210\357A`S\353\354D#\210\365e!\210>\203z\366>\324\"\355\261\210eb\210M\204\205\367 \210\357ed\370\324\371 \nD\372H\373N\257#\210\374 \210\306\211O0.\n\207" [org-agenda-overriding-arguments todo-only match org-tags-match-list-sublevels completion-ignore-case org--matcher-tags-todo-only t nil string-match "\\S-" exit format "*Org Agenda(%s:%s)*" "M" "m" "*Org Agenda(%s)*" org-make-tags-matcher org-agenda-prepare "TAGS " org-compile-prefix-format tags org-set-sorting-strategy org-tags-view quote if current-prefix-arg org-agenda-files ifmode nextfile org-check-agenda-file file-exists-p org-get-agenda-file-buffer error "No such file %s" "ORG-AGENDA-ERROR: No such org-file %s" append derived-mode-p org-mode "Agenda file %s is not in Org mode" org-scan-tags agenda org-add-props copy-sequence face org-agenda-structure "\n" "Headlines with TAGS match: " add-text-properties short-heading "Match: " org-warning substitute-command-keys "Press `\\[universal-argument] \\[org-agenda-redo]' to search again with new search string\n" org-agenda-mark-header-line org-agenda-finalize-entries org-agenda-fit-window-to-buffer org-agenda-type org-last-args org-redo-cmd org-series-cmd org-agenda-finalize rtn rtnall files file pos matcher buffer org-agenda-sticky org-keys org-agenda-buffer-name org-agenda-query-string org-agenda-redo-command org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end org-agenda-overriding-header org-agenda-multi org-cmd buffer-read-only] 12 (#$ . 167533) "P"]) | |
| 526 | #@199 Regular expression used in skipping subtrees for the agenda. | |
| 527 | This is basically a temporary global variable that can be set and then | |
| 528 | used by user-defined selections using `org-agenda-skip-function'. | |
| 529 | (defvar org-agenda-skip-regexp nil (#$ . 169977)) | |
| 530 | #@170 When set during agenda, todo and tags searches it replaces the header. | |
| 531 | This variable should not be set directly, but custom commands can bind it | |
| 532 | in the options section. | |
| 533 | (defvar org-agenda-overriding-header nil (#$ . 170232)) | |
| 534 | #@80 Skip entry if any of CONDITIONS is true. | |
| 535 | See `org-agenda-skip-if' for details. | |
| 536 | (defalias 'org-agenda-skip-entry-if #[(&rest conditions) "\301\302\"\207" [conditions org-agenda-skip-if nil] 3 (#$ . 170463)]) | |
| 537 | #@82 Skip subtree if any of CONDITIONS is true. | |
| 538 | See `org-agenda-skip-if' for details. | |
| 539 | (defalias 'org-agenda-skip-subtree-if #[(&rest conditions) "\301\302\"\207" [conditions org-agenda-skip-if t] 3 (#$ . 170677)]) | |
| 540 | #@1622 Checks current entity for CONDITIONS. | |
| 541 | If SUBTREE is non-nil, the entire subtree is checked. Otherwise, only | |
| 542 | the entry (i.e. the text before the next heading) is checked. | |
| 543 | ||
| 544 | CONDITIONS is a list of symbols, boolean OR is used to combine the results | |
| 545 | from different tests. Valid conditions are: | |
| 546 | ||
| 547 | scheduled Check if there is a scheduled cookie | |
| 548 | notscheduled Check if there is no scheduled cookie | |
| 549 | deadline Check if there is a deadline | |
| 550 | notdeadline Check if there is no deadline | |
| 551 | timestamp Check if there is a timestamp (also deadline or scheduled) | |
| 552 | nottimestamp Check if there is no timestamp (also deadline or scheduled) | |
| 553 | regexp Check if regexp matches | |
| 554 | notregexp Check if regexp does not match. | |
| 555 | todo Check if TODO keyword matches | |
| 556 | nottodo Check if TODO keyword does not match | |
| 557 | ||
| 558 | The regexp is taken from the conditions list, it must come right after | |
| 559 | the `regexp' or `notregexp' element. | |
| 560 | ||
| 561 | `todo' and `nottodo' accept as an argument a list of todo | |
| 562 | keywords, which may include "*" to match any todo keyword. | |
| 563 | ||
| 564 | (org-agenda-skip-entry-if \='todo \='("TODO" "WAITING")) | |
| 565 | ||
| 566 | would skip all entries with "TODO" or "WAITING" keywords. | |
| 567 | ||
| 568 | Instead of a list, a keyword class may be given. For example: | |
| 569 | ||
| 570 | (org-agenda-skip-entry-if \='nottodo \='done) | |
| 571 | ||
| 572 | would skip entries that haven't been marked with any of "DONE" | |
| 573 | keywords. Possible classes are: `todo', `done', `any'. | |
| 574 | ||
| 575 | If any of these conditions is met, this function returns the end point of | |
| 576 | the entity, causing the search to continue from there. This is a function | |
| 577 | that can be put into `org-agenda-skip-function' for the duration of a command. | |
| 578 | (defalias 'org-agenda-skip-if #[(subtree conditions) "\306\307!\210` \203 \212\310\307!\210`)\202 \212\311 \210`) \203# \n\202& \312\313!\314 \315 >\2038 \316 \307#\204\344 \317 >\203I \212\316 \307#)\203\344 \320 >\203X \316 \307#\204\344 \321 >\203i \212\316 \307#)\203\344 \322 >\203x \316 \n\307#\204\344 \323 >\203\211 \212\316 \n\307#)\203\344 \324 >\211\203\242 \fA@;\203\242 \316\fA@\n\307#\204\344 \325 >\211\203\275 \fA@;\203\275 \212\316\fA@\n\307#)\203\344 \326 >\211\204\335 \327 >\211\204\335 \330 >\211\204\335 \331 >\211\205\345 \332\f\n\"\205\345 \n,\207" [beg subtree end planning-end m conditions org-back-to-heading t org-end-of-subtree outline-next-heading line-end-position 2 nil scheduled re-search-forward notscheduled deadline notdeadline timestamp nottimestamp regexp notregexp nottodo todo-unblocked nottodo-unblocked todo org-agenda-skip-if-todo org-scheduled-time-regexp org-deadline-time-regexp org-ts-regexp] 4 (#$ . 170895)]) | |
| 579 | #@263 Helper function for `org-agenda-skip-if', do not use it directly. | |
| 580 | ARGS is a list with first element either `todo', `nottodo', | |
| 581 | `todo-unblocked' or `nottodo-unblocked'. The remainder is either | |
| 582 | a list of TODO keywords, or a state symbol `todo' or `done' or | |
| 583 | `any'. | |
| 584 | (defalias 'org-agenda-skip-if-todo #[(args end) "\306\307:\205\211 A\211:\205\210 @\211\310=\203* A\211?\205& \311\f\312 !\")\202\207 \n\313=\203> A\211 ?\205: \f)\202\207 \n\314=\203R A\211 ?\205N )\202\207 \n:\204h A\211 ?\205d \315\316\")\202\207 \317\n\235\203| A\211 ?\205x )\202\207 A\211 ?\205\206 \n)))\320\"P :\205 @\211 \321\267\202\322 \323 !\324#)\202\f\322 \323 !\324#)?\202\f\3252\f\322 \323 !\324#)\203\331 \326 \203\276 \327\325\324\"\210\202\276 \3220\202\f\3252\f\322 \323 !\324#)\203\375 \326 \203\342 \327\325\322\"\210\202\342 \3240\202\f \"\315\330\"\")))\207" [args #1=#:x512 #2=#:x513 #3=#:x514 org-done-keywords org-todo-keywords-1 "^\\*+[ ]+" regexp-opt todo org-delete-all copy-sequence done any error "Invalid TODO class or type: %S" "*" words #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (todo 157 nottodo 171 todo-unblocked 186 nottodo-unblocked 222)) nil re-search-forward t :unblocked org-entry-blocked-p throw "Unknown TODO skip type: %S" #4=#:x515 #5=#:x516 #6=#:x517 #7=#:x518 #8=#:x519 todo-re #9=#:x520 case-fold-search end type] 7 (#$ . 173502)]) | |
| 585 | #@220 Create agenda view for projects that are stuck. | |
| 586 | Stuck projects are project that have no next actions. For the definitions | |
| 587 | of what a project is and how to check if it stuck, customize the variable | |
| 588 | `org-stuck-projects'. | |
| 589 | (defalias 'org-agenda-list-stuck-projects #[(&rest ignore) "\206 \306 @ A@\307 8 \310\311 8! \312 \235\204! \2020 \313\314\315\316\"!\210\317*\320+!\" , \205? \321\322\323\324,\325#\" -\f\204I \315\202e \312\f\235\203S \326\202e \f\203d .\327\323\324\f\325#\330R\202e \315 /\331\315-/ E\"\211 0\204| \332\333!\202\202 \323\3240\325# 1\334\315\335\336\337\340\3411\342BBED\343BBE 2\344\315\n\"\210\345 3r3q\210\3464D5\347 6\350ed\3515D#. \207" [org-agenda-overriding-header org-stuck-projects matcher todo tags gen-re "List of stuck projects: " 2 org-string-nw-p 3 "*" org-agenda-prepare-buffers org-agenda-files nil ifmode org-delete-all copy-sequence format "^\\*+[ ]+\\(%s\\)\\>" mapconcat identity "\\|" "^\\*+ .*:[[:alnum:]_@#%]+:[ ]*$" ".*:\\(" "\\):[[:alnum:]_@#%:]*[ ]*$" delq error "Missing information to identify unstuck projects" lambda and save-excursion let ((case-fold-search nil)) re-search-forward ((save-excursion (org-end-of-subtree t)) t) ((progn (outline-next-heading) (point))) org-tags-view buffer-name org-agenda-list-stuck-projects t add-text-properties org-redo-cmd org-done-keywords-for-agenda org-todo-keywords-for-agenda todo-wds todo-re org-outline-regexp-bol tags-re re-list skip-re org-agenda-skip-function org-agenda-buffer-name current-prefix-arg org-agenda-redo-command inhibit-read-only] 10 (#$ . 174945) nil]) | |
| 590 | (defvar org-disable-agenda-to-diary nil) | |
| 591 | #@50 Get the (Emacs Calendar) diary entries for DATE. | |
| 592 | (defalias 'org-get-entries-from-diary #[(date) "\306\307!\210\310\311\312\313 B\312 \314 \312 *\315 +\212\316 ,\317\216\320\321!\203) \321\202* \322-\323\"\210+\324!\204< \312*\202\253 rq\210\312.\325 \326U\203P \312*\202\242 \327 \210\325 \326U\203` \312*\202\242 edS{*\330\331! /r/q\210\332\216*c\210eb\210\333\334\312\315#\203\235 \335 0\336\216\3371\340\323!\"*\204y \341\342\340\323!P!\210\202y \343 +*\344\312!\210\345!\210)*\205\277 \346*\347\"*\350\351*\"\211*.\207" [diary-fancy-buffer diary-display-function pop-up-frames diary-list-entries-hook diary-file-name-prefix diary-modify-entry-list-string-function require diary-lib "*temporary-fancy-diary-buffer*" diary-fancy-display nil org-diary-default-entry org-modify-diary-entry-string t current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] fboundp diary-list-entries list-diary-entries 1 get-buffer buffer-size 0 org-agenda-cleanup-fancy-diary generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] re-search-forward "\n[ ]+\\(.+\\)$" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match match-string replace-match "; " buffer-string set-buffer-modified-p kill-buffer org-split-string "\n" mapcar #[(x) "\302\303\304\305\304\306&\307\310GS\"\311\312\301 \313\314&\207" [x date org-agenda-format-item "" nil "Diary" time org-add-props text-properties-at type "diary" face org-agenda-diary] 9] entries org-disable-agenda-to-diary #1# date buffer-read-only #2# save-match-data-internal diary-time-regexp] 4 (#$ . 176579)]) | |
| 593 | #@53 Hook run when the fancy diary buffer is cleaned up. | |
| 594 | (defvar org-agenda-cleanup-fancy-diary-hook nil (#$ . 178290)) | |
| 595 | #@260 Remove unwanted stuff in buffer created by `fancy-diary-display'. | |
| 596 | This gets rid of the date, the underline under the date, and the | |
| 597 | dummy entry installed by Org mode to ensure non-empty diary for | |
| 598 | each date. It also removes lines that contain only whitespace. | |
| 599 | (defalias 'org-agenda-cleanup-fancy-diary #[nil "eb\210\300\301!\203& \302\303!\210\304\305\306\307#\210\302\303!\210\310\311\306\307#\2034 \302\303!\210\202 \304\305\306\307#\210ed\312\225T^|\210eb\210\304\313\306\307#\203F \302\303!\210\2027 eb\210\304\314\306\307#\203U \302\303!\210\315\316!\207" [looking-at ".*?:[ ]*" replace-match "" re-search-forward "\n=+$" nil t re-search-backward "^ +\n?" 0 "^ +\n" "^Org mode dummy\n?" run-hooks org-agenda-cleanup-fancy-diary-hook] 4 (#$ . 178412)]) | |
| 600 | (eval-after-load "diary-lib" #[nil "\300\301!?\205 \302\303\304\305\306$\210\307\303\306\"\210\303\207" [boundp diary-modify-entry-list-string-function ad-add-advice add-to-diary-list (org-mark-diary-entry nil t (advice lambda nil "Make the position visible." (if (and org-disable-agenda-to-diary (stringp string) buffer-file-name) (setq string (org-modify-diary-entry-string string))))) before nil ad-activate] 5]) | |
| 601 | #@59 Add text properties to string, allowing Org to act on it. | |
| 602 | (defalias 'org-modify-diary-entry-string #[(string) "\302\303\304\305\306 \203 \307\310\311 !\"\202 \312\313\314\315\316\317 !&\n\207" [string buffer-file-name org-add-props nil mouse-face highlight help-echo format "mouse-2 or RET jump to diary file %s" abbreviate-file-name "" org-agenda-diary-link t org-marker org-agenda-new-marker point-at-bol] 12 (#$ . 179593)]) | |
| 603 | #@92 Add a dummy entry to the diary. | |
| 604 | Needed to avoid empty dates which mess up holiday display. | |
| 605 | (defalias 'org-diary-default-entry #[nil "\205 \3021 \303 \304\305#0\207\210\303 \304\305\306$\207" [org-disable-agenda-to-diary original-date (error) org-add-to-diary-list "Org mode dummy" "" nil] 5 (#$ . 180029)]) | |
| 606 | (defalias 'org-add-to-diary-list #[(&rest args) "\301\302!\203 \303\302\"\207\303\304\"\207" [args fboundp diary-add-to-list apply add-to-diary-list] 3]) | |
| 607 | (defvar org-diary-last-run-time nil) | |
| 608 | #@1098 Return diary information from org files. | |
| 609 | This function can be used in a "sexp" diary entry in the Emacs calendar. | |
| 610 | It accesses org files and extracts information from those files to be | |
| 611 | listed in the diary. The function accepts arguments specifying what | |
| 612 | items should be listed. For a list of arguments allowed here, see the | |
| 613 | variable `org-agenda-entry-types'. | |
| 614 | ||
| 615 | The call in the diary file should look like this: | |
| 616 | ||
| 617 | &%%(org-diary) ~/path/to/some/orgfile.org | |
| 618 | ||
| 619 | Use a separate line for each org file to check. Or, if you omit the file name, | |
| 620 | all files listed in `org-agenda-files' will be checked automatically: | |
| 621 | ||
| 622 | &%%(org-diary) | |
| 623 | ||
| 624 | If you don't give any arguments (as in the example above), the default value | |
| 625 | of `org-agenda-entry-types' is used: (:deadline :scheduled :timestamp :sexp). | |
| 626 | So the example above may also be written as | |
| 627 | ||
| 628 | &%%(org-diary :deadline :timestamp :sexp :scheduled) | |
| 629 | ||
| 630 | The function expects the lisp variables `entry' and `date' to be provided | |
| 631 | by the caller, because this is how the calendar works. Don't use this | |
| 632 | function from a program - use `org-agenda-get-day-entries' instead. | |
| 633 | (defalias 'org-diary #[(&rest args) "\306 Z\307V\203\f \310 \210\311\312!\210\313\312!\210 \206 \n \203/ ;\203/ \314\315 \"\203/ C\2022 \316\317! \306 \320\211 \320 \203M Z\321V\203Q \322\f!\210 \203[ \320\f\211A\242\211\203{ \323\324 $\325 \" \202[ \205\215 \326\327 \" \330 !\331P-\207" [org-agenda-last-marker-time args org-agenda-entry-types entry files time float-time 5 org-agenda-reset-markers org-compile-prefix-format agenda org-set-sorting-strategy string-match "\\S-" org-agenda-files t nil 3 org-agenda-prepare-buffers apply org-agenda-get-day-entries append mapcar #[(i) "\302\303 #\207" [org-bracket-link-regexp i replace-regexp-in-string "\\3"] 4] org-agenda-finalize-entries "\n" file rtn results org-diary-last-run-time org-disable-agenda-to-diary date] 6 (#$ . 180541)]) | |
| 634 | #@99 Call `org-time-string-to-absolute' with ARGS. | |
| 635 | However, throw `:skip' whenever an error is raised. | |
| 636 | (defalias 'org-agenda--timestamp-to-absolute #[(&rest args) "\3021 \3031 \304\305\"00\2070\306\307\310\")\207\311\312\313 !\"\210\306\307\310\")\207" [args e (error) (org-diary-sexp-no-match) apply org-time-string-to-absolute throw :skip nil message "%s; Skipping entry" error-message-string] 4 (#$ . 182472)]) | |
| 637 | #@303 Does the work for `org-diary' and `org-agenda'. | |
| 638 | FILE is the path to a file to be checked for entries. DATE is date like | |
| 639 | the one returned by `calendar-current-date'. ARGS are symbols indicating | |
| 640 | which kind of entries should be extracted. For details about these, see | |
| 641 | the documentation of `org-diary'. | |
| 642 | (defalias 'org-agenda-get-day-entries #[(file date &rest args) "\306\211\307\n!\203 \310\n!\202 \311\312\n\"\211\204! \313\314\n\"C\2024r q\210\315\316!\2040 \311\317\n\"\210\f\2065 #\212\214 $=\203K %&}\210\202M ~\210'\206T (\320!\321!\266\202'\322'>\203s \323'>\203s \324\323'\"'\325'>\203\211 \325\324\325\324\326'\"\"B'\202\231 \326'>\203\231 \326\324\326'\"B'\306\211\211 ) * +'\306 ,\211 -\203)-@\211,\327\267\202 \330 !\203 \331 *B*\202 \332 *B*\333)!*B*\202 \334 *B*\202 \335)!*B*\202 \335)\336\"*B*\202 \337 *B*\202 \340 \211)*B*\202 \340\336!\211)*B*-A\211-\204\255 \306,\341\342*\237\".+\207" [org-startup-folded org-startup-align-all-tables file buffer org-agenda-buffer date nil file-exists-p org-get-agenda-file-buffer error "No such file %s" format "ORG-AGENDA-ERROR: No such org-file %s" derived-mode-p org-mode "Agenda file %s is not in Org mode" copy-sequence delete-dups :scheduled :scheduled* delq :deadline :deadline* #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:todo 184 :timestamp 200 :sexp 219 :scheduled 229 :scheduled* 241 :closed 254 :deadline 264 :deadline* 277)) org-agenda-today-p org-agenda-get-todos org-agenda-get-blocks org-agenda-get-timestamps org-agenda-get-sexps org-agenda-get-scheduled t org-agenda-get-progress org-agenda-get-deadlines apply nconc org-agenda-current-date org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end args org-agenda-entry-types deadlines results case-fold-search arg --dolist-tail--] 7 (#$ . 182893)]) | |
| 643 | #@29 Is X or Y a member of LIST? | |
| 644 | (defalias 'org-em #[(x y list) " >\206 \n >\207" [x list y] 2 (#$ . 184797)]) | |
| 645 | (put 'org-em 'byte-optimizer 'byte-compile-inline-expand) | |
| 646 | (defvar org-agenda-sorting-strategy-selected nil) | |
| 647 | #@224 Retrieve timestamp information for sorting agenda views. | |
| 648 | Given a point or marker POM, returns a cons cell of the timestamp | |
| 649 | and the timestamp type relevant for the sorting strategy in | |
| 650 | `org-agenda-sorting-strategy-selected'. | |
| 651 | (defalias 'org-agenda-entry-get-agenda-timestamp #[(pom) "\306\211\307 \310\216\311\312 \211 \f>\206 \f>+\203( \313 \314\"\315\202\276 \316\317 \211 \f>\2068 \f>+\203G \313 \320\"\321\202\276 \322\323 \211 \f>\206W \f>+\203f \313 \324\"\325\202\276 \326\327 \211 \f>\206v \f>+\203\205 \313 \330\"\331\202\276 \332\333 \211 \f>\206\225 \f>+\203\274 \313 \314\"\206\266 \313 \320\"\206\266 \313 \324\"\206\266 \313 \330\"\334\202\276 \334 \205\317 \3351\315 \336 !0\202\317 \210\306,B\207" [ts-date-type ts save-match-data-internal org-agenda-sorting-strategy-selected list y nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] scheduled-up scheduled-down org-entry-get "SCHEDULED" " scheduled" deadline-up deadline-down "DEADLINE" " deadline" ts-up ts-down "TIMESTAMP" " timestamp" tsia-up tsia-down "TIMESTAMP_IA" " timestamp_ia" timestamp-up timestamp-down "" (error) org-time-string-to-absolute x pom] 4 (#$ . 185020)]) | |
| 652 | #@49 Return the TODO information for agenda display. | |
| 653 | (defalias 'org-agenda-get-todos #[nil "\306\307\310\311\300\301 \302\n\312\313\314\315\316\317 !\"\257 \307 \315@A\203+ A\320\232\203+ \202@ A\203? \321\322\323\324A\325\"\326#\327Q\202@ \" B\307\211 C ;\307\211 D <\307\211 E F\307\211 = G\307\211 H I\307\211 J K\307\211 L M\307 Neb\210\330B\307\331#\203\214\3322\210\333 O\334\216\335 \210\336 \210`K\212\337 \210`)L\340 \211F\203\247 \341\225\211N\204\260 Lb\210\342\332\307\"\210\343L!\203\312 KTb\210P\204\305 \344\345!\210\342\332\307\"\210*\341\224b\210\346\347\224!C\350 D\351`!\211H@=HAG\341\224\347\225{\307\352\203\366 \353\202\367 \354\355\352\356\355##\266\202JQ\357=\206)Q<\203\360Q>\206)Q\331=\205)R\331=\206)\360R>M\361\307M?\"E\362\363\364 !\365\"<\366\355J<DE\331&J\367J!T;\370J\f\371C\372C\373;\374<\375=\376\377GP\201F F&\210JIBIP\203\204Nb\202\207\344\345!0\210\202s I\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props case-fold-search face nil done-face org-agenda-done mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name "*" "\\(" mapconcat identity org-split-string "|" "\\|" "\\)" re-search-forward t :skip match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] beginning-of-line org-agenda-skip outline-next-heading org-get-todo-state 2 throw org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item org-end-of-subtree invisible org-agenda-new-marker 0 org-get-category org-agenda-entry-get-agenda-timestamp replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" always todo org-get-tags-at make-string org-reduced-level org-outline-level 32 org-agenda-format-item org-get-priority org-add-props org-marker org-hd-marker priority level ts-date type "todo" org-heading-keyword-regexp-format org-select-this-todo-keyword regexp marker category tags todo-state ts-date-type ts-date-pair ee txt beg end inherited-tags todo-state-end-pos save-match-data-internal org-agenda-todo-list-sublevels org-agenda-show-inherited-tags org-agenda-use-tag-inheritance] 18 (#$ . 186257)]) | |
| 654 | #@223 Check whether timestamp is farther away than n number of days. | |
| 655 | This function is invoked if `org-agenda-todo-ignore-deadlines', | |
| 656 | `org-agenda-todo-ignore-scheduled' or | |
| 657 | `org-agenda-todo-ignore-timestamp' is set to an integer. | |
| 658 | (defalias 'org-agenda-todo-custom-ignore-p #[(time n) "\304 \" \305Y\203 \n Y\202 \n X)\207" [time org-agenda-todo-ignore-time-comparison-use-seconds days n org-time-stamp-to-now 0] 3 (#$ . 188483)]) | |
| 659 | #@76 Do we have a reason to ignore this TODO entry because it has a time stamp? | |
| 660 | (defalias 'org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item #[(&optional end) "\204 \204 \n\204 \205G\f\206 \212\306 \210`)\212\203( \307 \f\310#\206F \203k \307\f\310#\203k \311=\203G \312\313\314!\"\315V\202h \316=\203Y \312\313\314!\"\315X\202h \247\203g \317\313\314! \"\202h \310\206F\n\203\313 \307\f\310#\203\313 \n\320>\203\202 \310\202F\n\321=\203\221 \322\313\314!!?\202\310 \n\311=\203\243 \312\313\314!\"\315V\202\310 \n\316=\203\265 \312\313\314!\"\315X\202\310 \n\247\203\303 \317\313\314!\n\"\202\310 \322\313\314!!\206F \205Fp\323Q` \324\325! r q\210\326\216\327 \f#\210eb\210\307 \f\310#\203\315\224\315\225|\210\202\364 eb\210\307 \330\310#\205D \311=\203#\312\313\314!\"\315V\202D \316=\2035\312\313\314!\"\315X\202D \247\203C\317\313\314! \"\202D\310.)\207" [org-agenda-todo-ignore-with-date org-agenda-todo-ignore-scheduled org-agenda-todo-ignore-deadlines org-agenda-todo-ignore-timestamp end org-ts-regexp outline-next-heading re-search-forward t future org-time-stamp-to-now match-string 1 0 past org-agenda-todo-custom-ignore-p (t all) far org-deadline-close-p "\\|" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] insert-buffer-substring nil org-scheduled-time-regexp org-agenda-todo-ignore-time-comparison-use-seconds org-deadline-time-regexp start regexp buffer #1#] 4 (#$ . 188915)]) | |
| 661 | #@143 Return the date stamp information for agenda display. | |
| 662 | Optional argument DEADLINES is a list of deadline items to be | |
| 663 | displayed in agenda view. | |
| 664 | (defalias 'org-agenda-get-timestamps #[(&optional deadlines) "\306\307\300\301 \302\n\310\311\312\313\314\315 !\"\257\f \211 \316 8)\317 @\211 A\320U\203- \321\322!\202\261A\320V\203\274 AS@\323 \211 \211 @) B \211 A@) C \316 8) ACBS\324_\\ DB\316V\203\244 D\325B\326_\\\327\245ZDA\211 A\320W\203\202 \330A!SAA\326\246\320U\205\233 A\331\246\320U?\206\233 A\332\246\320U)\203\244 DTDD-@\333_@\326\245@\331\245[@\332\245%\202\261\330AT!@\334 \211 \211 @) B \211 A@) C \316 8) ACBS\324_\\ DB\316V\203.D\325B\326_\\\327\245ZDA\211 A\320W\203\f\330A!SAA\326\246\320U\205%A\331\246\320U?\206%A\332\246\320U)\203.DTDD-@\333_@\326\245@\331\245[@\332\245\335\211 \211 @) B \211 A@) C \316 8) ACBS\324_\\ DB\316V\203\254D\325B\326_\\\327\245ZDA\211 A\320W\203\212\330A!SAA\326\246\320U\205\243A\331\246\320U?\206\243A\332\246\320U)\203\254DTDD-&+ E\336 F\337\340G\" HI\203\310\341\202\311\342\343\344J@\345\346\320\211\211 A@ @\316 8\257\"\"\347\350O!\351\352R K\317 Leb\210\353K\317\354#\203 \3552\356 M\357\216\360 \204\361 \204\362 \204I\203 \363 \203 \364\355\317\"\210\365 \210*\320\224 N\366\347! O\366\367! PO\204;P\203A\366\320!\202O\212Nb\210\370Q!\210\366\320!) R\371 S\372`\373\" TSU\235\211 V\203pW\203p\364\355\354\"\210P\203\203\374P\375 #\204\203\364\355\317\"\210O\203\377\376OEFV\204\242X\354=\204\242SX\235\203\247F\202\251E\377pN% ?EFX\203\275?\202\347Y\204\307?\202\347Y\201k =\203\326FT\202\330E Z\376OZ\201[ pN%) [E?U\204\376E[U\204\376\364\355\317\"\210*\212\201l \\\317\354#\210]\203`H\236\203\364\355\317\"\210\201m N! ^_\201n =\206N_:\203:\201o _>\206N_\354=\205N`\354=\206N\201o `> a\201p \317a?\" b\201q \201r \201s !\201t \" c\370\201u !\205v\366\347! dNf\201v U e\201w \201x !\205\217\201x f\201y e\205\233gdc^bRhf& i\201z i\f\201{ f\203\306\201| \201} !\202\314\201~ i!\201 \201\200 N!\201\201 \201\200 \305 \201c c\201\202 O\203\362\376O!\202\364E\201S S\201T T\201\203 \201\204 &\210iLBL.j\205\201\205 0\210\202\356L\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props date face org-agenda-calendar-event mouse-face highlight help-echo format "mouse-2 or RET jump to Org file %s" abbreviate-file-name 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) org-today mapcar #[(d) "\302\303\304#\211\205 \305 !)\207" [d m get-text-property 0 org-hd-marker marker-position] 5] "[[<]" "<" regexp-quote format-time-string apply encode-time 1 11 "\\|\\(<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[hdwmy]>\\)" "\\|\\(<%%\\(([^>\n]+)\\)>\\)" re-search-forward t :skip match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-at-date-range-p org-at-planning-p org-before-first-heading-p org-at-clock-log-p throw org-agenda-skip match-string 3 looking-at org-get-todo-state get-text-property org-appt-warntime org-diary-sexp-entry "" org-agenda--timestamp-to-absolute past offset-years year month day day-of-year current today deadlines deadline-position-alist org-agenda-include-inactive-timestamps org-time-stamp-formats regexp timestamp-items save-match-data-internal pos repeat sexp-entry org-ts-regexp-both time-stamp todo-state warntime org-done-keywords done\? org-agenda-skip-timestamp-if-done org-agenda-prefer-last-repeat org-agenda-show-future-repeats base future org-outline-regexp-bol org-agenda-skip-timestamp-if-deadline-is-shown category org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags level head inactive\? habit\? org-agenda-inactive-leader org-ts-regexp item org-agenda-skip-additional-timestamps-same-entry next re-search-backward org-get-category always agenda org-get-tags-at make-string org-reduced-level org-outline-level 32 "\\*+[ ]+\\(.*\\)" 91 fboundp org-is-habit-p org-agenda-format-item org-add-props priority org-habit-get-priority org-habit-parse-todo org-get-priority org-marker org-agenda-new-marker org-hd-marker ts-date type "timestamp" outline-next-heading] 22 (#$ . 190440)]) | |
| 665 | #@49 Return the sexp information for agenda display. | |
| 666 | (defalias 'org-agenda-get-sexps #[nil "\306\307!\210\310\311\312\313\314\315\316\317!\"\257\320\321\211 \321\211 8\321\211 < =\321\211 > ?\321\211 @ A\321\211 B C\321\211 D 7\321\211 ; Eeb\210\322\n\321\323#\203q\3242m\325 \210\326\224A\326\225Sb\210`B\327\330!\210B`{C\331\332!\203\212 \333\330!\321\334\203| \335\202} \336\337\334\340\337##\266\202\202\213 \337D\341CD6#\211@\205l\342A!\343\344\345 !\346\"8\347A!F\350=\206\324 F<\203\302 \351F>\206\324 F\323=\205\324 G\323=\206\324 \351G>E\352\321E?\">\353 7\354`\355\";\321@;\203\366 @C\202\370 @\321 H\211 I\205kI@HJ\203#\356JH\"\203#\333\326H\"\357\337\321\211H$H\356\360H\"\2032H=\2025\361=\362 =8\f>\363&=\364= \365 \3666\3677\3708\371\372\373;&\210=<B<IA\211I\204\321*0\210\202D <\237.\207" [buffer-file-name props regexp marker category extra require diary-lib face org-agenda-calendar-sexp mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name "^&?%%(" nil re-search-forward t :skip org-agenda-skip 0 forward-sexp 1 looking-at "[ ]*\\(\\S-.*\\)" match-string replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-diary-sexp-entry org-agenda-new-marker make-string org-reduced-level org-outline-level 32 org-get-category always agenda org-get-tags-at org-get-todo-state get-text-property org-appt-warntime string-match replace-match "\\S-" "SEXP entry returned empty string" org-agenda-format-item time org-add-props org-marker date todo-state level type "sexp" warntime ee txt tags entry result beg b sexp sexp-entry inherited-tags org-agenda-show-inherited-tags org-agenda-use-tag-inheritance r --dolist-tail-- org-agenda-diary-sexp-prefix] 16 (#$ . 194781)]) | |
| 667 | #@68 Like `diary-anniversary', but with fixed (ISO) order of arguments. | |
| 668 | (defalias 'org-anniversary #[(year month day &optional mark) "\305\306 \n \f$)\207" [calendar-date-style year month day mark iso diary-anniversary] 5 (#$ . 196606)]) | |
| 669 | #@63 Like `diary-cyclic', but with fixed (ISO) order of arguments. | |
| 670 | (defalias 'org-cyclic #[(N year month day &optional mark) "\306\307 \n \f %)\207" [calendar-date-style N year month day mark iso diary-cyclic] 6 (#$ . 196846)]) | |
| 671 | #@62 Like `diary-block', but with fixed (ISO) order of arguments. | |
| 672 | (defalias 'org-block #[(Y1 M1 D1 Y2 M2 D2 &optional mark) "\306\307 \n \f &)\207" [calendar-date-style Y1 M1 D1 Y2 M2 iso diary-block D2 mark] 8 (#$ . 197076)]) | |
| 673 | #@61 Like `diary-date', but with fixed (ISO) order of arguments. | |
| 674 | (defalias 'org-date #[(year month day &optional mark) "\305\306 \n \f$)\207" [calendar-date-style year month day mark iso diary-date] 5 (#$ . 197310)]) | |
| 675 | #@460 Entry applies if date is between dates on DAYNAME, but skips SKIP-WEEKS. | |
| 676 | DAYNAME is a number between 0 (Sunday) and 6 (Saturday). | |
| 677 | SKIP-WEEKS is any number of ISO weeks in the block period for which the | |
| 678 | item should be skipped. If any of the SKIP-WEEKS arguments is the symbol | |
| 679 | `holidays', then any date that is known by the Emacs calendar to be a | |
| 680 | holiday will also be skipped. If SKIP-WEEKS arguments are holiday strings, | |
| 681 | then those holidays will be skipped. | |
| 682 | (defalias 'org-class #[(y1 m1 d1 y2 m2 d2 dayname &rest skip-weeks) " \nE\211\306 8)\307 \211 \310U\203 \311\312!\202y \310V\203\232 S\313 \211\211@) \211A@) \306 8) S\314_\\ ! \306V\203\206 !\315 \316_\\\317\245Z! \211 \310W\203g \320 !S \316\246\310U\205} \321\246\310U?\206} \322\246\310U)\203\206 !T!!-\f\323_\f\316\245\f\321\245[\f\322\245%\202y\320 T!\324 \211\211@) \211A@) \306 8) S\314_\\ ! \306V\203!\315 \316_\\\317\245Z! \211 \310W\203\343 \320 !S \316\246\310U\205\371 \321\246\310U?\206\371 \322\246\310U)\203!T!!-\f\323_\f\316\245\f\321\245[\f\322\245\325\211\211@) \211A@) \306 8) S\314_\\ ! \306V\203t!\315 \316_\\\317\245Z! \211 \310W\203U\320 !S \316\246\310U\205k \321\246\310U?\206k \322\246\310U)\203t!T!!-&+ \"#$%E\211\306 8)\307 \211 \310U\203\231\311\312!\202\370 \310V\203 S\313 \211\211@) \211A@) \306 8) S\314_\\ ! \306V\203!\315 \316_\\\317\245Z! \211 \310W\203\346\320 !S \316\246\310U\205\374 \321\246\310U?\206\374 \322\246\310U)\203!T!!-\f\323_\f\316\245\f\321\245[\f\322\245%\202\370\320 T!\324 \211\211@) \211A@) \306 8) S\314_\\ ! \306V\203\201!\315 \316_\\\317\245Z! \211 \310W\203b\320 !S \316\246\310U\205x \321\246\310U?\206x \322\246\310U)\203\201!T!!-\f\323_\f\316\245\f\321\245[\f\322\245\325\211\211@) \211A@) \306 8) S\314_\\ ! \306V\203\363!\315 \316_\\\317\245Z! \211 \310W\203\324\320 !S \316\246\310U\205\352 \321\246\310U?\206\352 \322\246\310U)\203\363!T!!-&+ & \211\306 8)\307 \211 \310U\203\311\312!\202q \310V\203\222 S\313 \211\211@) \211A@) \306 8) S\314_\\ ! \306V\203~!\315 \316_\\\317\245Z! \211 \310W\203_\320 !S \316\246\310U\205u \321\246\310U?\206u \322\246\310U)\203~!T!!-\f\323_\f\316\245\f\321\245[\f\322\245%\202q\320 T!\324 \211\211@) \211A@) \306 8) S\314_\\ ! \306V\203\372!\315 \316_\\\317\245Z! \211 \310W\203\333\320 !S \316\246\310U\205\361 \321\246\310U?\206\361 \322\246\310U)\203\372!T!!-\f\323_\f\316\245\f\321\245[\f\322\245\325\211\211@) \211A@) \306 8) S\314_\\ ! \306V\203l!\315 \316_\\\317\245Z! \211 \310W\203M\320 !S \316\246\310U\205c \321\246\310U?\206c \322\246\310U)\203l!T!!-&+ '(\205|\326 ! )\"'X\205\306'&X\205\306\327 !*U\205\306(\203\254\330\331!\210\332'!@(\235?\205\306)\203\270\333(>\206\300\334\307\335\336)\"\"?\205\306+,\207" [m1 d1 y1 date offset-years year 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-check-holidays calendar-day-of-week require cal-iso calendar-iso-from-absolute holidays delq mapcar #[(g) " \235\207" [g skip-weeks] 2] month day day-of-year date1 m2 d2 y2 date2 d skip-weeks h dayname entry] 11 (#$ . 197530)]) | |
| 683 | (defalias 'org-get-closed 'org-agenda-get-progress) | |
| 684 | #@52 Return the logged TODO entries for agenda display. | |
| 685 | (defalias 'org-agenda-get-progress #[nil "\306\307\300\301 \302\n\310\311\312\313 !\"\257\n :\203 \202' \314=\203% \315\202' @ A\316\317\320A>\2056 \321BP\322A>\205A \321CP\323A>\205L \311\324 \"E\"\211 D\203] \325\326D\327#\202` \330\331! E\332E\333\334\335\336F@\337\340\341\211\211GA@G@\342G8\257\"\"\343\344O!\260 H\317\211 I J\317\211 K L\317\211 M N\317\211 O P\317\211 Q R\317\211 S\317\211 T U\317\211 V W\317\211 X Yeb\210\345H\317\346#\203\221\3472\215\350 \210\351\341\224!J\352\343!B\232P\353\352\343!!\354\232QP\206\357 Q?RQ\205\372 \352\342!\355\341\224!M\341\224\356 {V\357\360V\"\203OV\341\225\317OWV\341\211\225OVP\204LQ\204L\357\361W\"\203LV\341\362O\363\352\343W\"\364RV\352\342W\"X\202O\363X\212Z\204Y\317\202xQ\203j\365\366!\205x\352\343!\202xR\205x\365\367!\205x\352\343!U\370[\317\346#\204\213\371\347\317\"\210\202B\341\224b\210\351 K\\\372=\206\271\\<\203\247\373\\>\206\271\\\346=\205\271]\346=\206\271\373]>Y\374\317Y?\"O\375\376\377 !\201^ \"N\365\201_ !\210\352\343!TU\203\f\357\201` T\"\203T\341\343\224O\201a U\201b \352\342T\"\260T\202\fT\201a UQT\201c P\203\201d \2024Q\203+\201e \201f Q\2024\201g X\201f QTNMOV&T\201h L\201i T\f\201j J\201k K\201l \201m \201L L\201N N\201n \201o \201G G\201p \201q \201r \201m &\210TSBS)\356 b0\210\202\301 S\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props org-agenda-show-log-scoped mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name clockcheck (clock) delq nil closed "\\<" clock state "- State \"%s\".*?" mapconcat identity "\\|" error "`org-agenda-log-mode-items' is empty" "\\(" "\\)" " *\\[" regexp-quote format-time-string apply encode-time 0 2 1 11 re-search-forward t :skip org-agenda-skip org-agenda-new-marker match-string string-to-char 45 org-get-category point-at-eol string-match "\\]" "\\([0-9]\\{1,2\\}:[0-9]\\{2\\}\\)\\].*?\\([0-9]\\{1,2\\}:[0-9]\\{2\\}\\)" -1 "-" "]" looking-at ".*\\\\\n[ ]*\\([^-\n ].*?\\)[ ]*$" ".*\n[ ]*-[ ]+\\([^-\n ].*?\\)[ ]*$" re-search-backward throw always todo org-get-tags-at make-string org-reduced-level org-outline-level org-agenda-log-mode-items items org-closed-string org-clock-string parts parts-re org-time-stamp-formats date regexp org-agenda-search-headline-for-time marker hdmarker priority category level tags closedp statep clockp ee txt extra timestr rest clocked inherited-tags org-agenda-log-mode-add-notes org-outline-regexp-bol org-agenda-show-inherited-tags org-agenda-use-tag-inheritance 32 "\\*+[ ]+\\([^ \n]+\\)" "\\([ ]+\\)\\(:[^ \n ]*?:\\)[ ]*$" " - " " " org-agenda-format-item "Closed: " "State: (" ")" "Clocked: (" 100000 org-add-props org-marker org-hd-marker face org-agenda-done type "closed" undone-face org-warning done-face] 22 (#$ . 200910)]) | |
| 686 | #@109 Add overlays, showing issues with clocking. | |
| 687 | See also the user option `org-agenda-clock-consistency-checks'. | |
| 688 | (defalias 'org-agenda-show-clocking-issues #[nil "\306\n\307\310\311\260\312\211 \313\314 \315\"\206 \316! @\313\314 \317\"\206# \312! A\313\314 \320\"\206/ \321! B\322\313\314 \323\"\" C\314 \324\"\206C \325 D\326\211 E F\326\211 G H\326\211 I J\326 Keb\210\327\330\326\331#\205\366\326EDF\3322\261\333\334\335 \"\262G\326\211HIG\203\214 \336G!\204\224 \337E\340\332\331\"\210G L\212\336L!\203\246 \341L!q\210\212\214~\210L\206\260 `b\210\212\335 b\210\342 !\204\306 \343\344!\210\340\332\331\"\210\345\225\204\336 \346E\314 \347\"\206\327 FF\340\332\331\"\210\350\351!I\350\345!H\352\353\354\355I!\"!I\352\353\354\355H!\"!\211HIZJ-J@\356_V\203+\357\360\361\362J\356\245!!\"E\314 \363\"\206%F\211F\202\260JA\356_W\203Q\357\364\361\362J\356\245!!\"E\314 \365\"\206KF\211F\202\260 \312V\203xI W\203x\357\366 IZ\356\245\"E\314 \367\"\206rF\211F\202\260 \312V\203\257I B\356_\\V\203\257\370 IC#?\205\260\357\371I Z\356\245\"E\314 \372\"\206\251F\211F\202\260\3260\210H\206\270 I\206\277\fE\203] \373\335 \374 \"K\375K\376\377\357\201M \201N EP\"\326\201F F$\201O P#\210\375K\201P \331#\210\202] .\207" [org-agenda-clock-consistency-checks pl org-clock-string re tlstart tlend "^[ ]*" "[ ]+" "\\(\\[.*?\\]\\)" "\\(-\\{1,3\\}\\(\\[.*?\\]\\)\\)?" 0 org-duration-to-minutes plist-get :max-duration "24:00" :min-duration :max-gap "30:00" mapcar :gap-ok-around :default-face ((:background "DarkRed") (:foreground "white")) nil re-search-forward " Clocked: +(-\\|\\([0-9]+:[0-9]+\\))" t next org-marker get-text-property point-at-bol markerp "No valid clock line" throw marker-buffer looking-at error "No valid Clock line" 3 "No end time" :no-end-time-face match-string 1 float-time apply encode-time org-parse-time-string 60 format "Clocking interval is very long: %s" org-duration-from-minutes floor :long-face "Clocking interval is very short: %s" :short-face "Clocking overlap: %d minutes" :overlap-face org-agenda-check-clock-gap "Clocking gap: %d minutes" :gap-face make-overlay point-at-eol overlay-put before-string org-add-props maxtime mintime maxgap gapok def-face issue face m te ts dt ov #1=#:--mpom "%-43s" " " "\n" evaporate] 9 (#$ . 203904) nil]) | |
| 689 | #@71 Check if gap T1 -> T2 contains one of the OK-LIST time-of-day values. | |
| 690 | (defalias 'org-agenda-check-clock-gap #[(t1 t2 ok-list) "\3062S \204 \307\306\310\"\210 \311\245\n\311\245Z\312V\203 \307\306\313\"\210\314\315\n!!\314\315 !! A@\316 8\317_\\ \fA@\316\f8\317_\\\211 W\203K \320\\\321\322\"\210,\3100\207" [ok-list t2 t1 t1dec t2dec min1 exit throw nil 36000 24 t decode-time seconds-to-time 2 60 1440 mapc #[(x) " W\203\n \303\\ X\205 \nY\205 \304\305\306\"\207" [x min1 min2 1440 throw exit t] 3] min2] 4 (#$ . 206260)]) | |
| 691 | #@143 Return the deadline information for agenda display. | |
| 692 | When WITH-HOUR is non-nil, only return deadlines with an hour | |
| 693 | specification like [h]h:mm. | |
| 694 | (defalias 'org-agenda-get-deadlines #[(&optional with-hour) "\306\307\300\301 \302\n\310\311\312\313 !\"\257\n \203 @\202 A B\314 C\315D! ED\211 D D\316D8)\317 F\211 G\320U\203F \321\322!\202\341G\320V\203\335 GSF\323D\211 D\211 D@) HD\211 DA@) ID D\316D8) GIHS\324_\\ JH\316V\203\305 J\325H\326_\\\327\245ZJG\211 G\320W\203\243 \330G!SGG\326\246\320U\205\274 G\331\246\320U?\206\274 G\332\246\320U)\203\305 JTJJ-F\333_F\326\245F\331\245[F\332\245%\202\341\330GT!F\334D\211 D\211 D@) HD\211 DA@) ID D\316D8) GIHS\324_\\ JH\316V\203WJ\325H\326_\\\327\245ZJG\211 G\320W\2035\330G!SGG\326\246\320U\205NG\331\246\320U?\206NG\332\246\320U)\203WJTJJ-F\333_F\326\245F\331\245[F\332\245\335\211 D\211 D@) HD\211 DA@) ID D\316D8) GIHS\324_\\ JH\316V\203\334J\325H\326_\\\327\245ZJG\211 G\320W\203\272\330G!SGG\326\246\320U\205\323G\331\246\320U?\206\323G\332\246\320U)\203\334JTJJ-&+ K\317 Leb\210\336B\317\337#\203\342\3402\336\341 M\342\216\343 *\204\344\340\317\"\210\345 \210\346\347! N\347\224S O\341 M\350\216\351 *\211 PQ\235 R\352\353N\"\211 S\203:\354NK\"\202ZT\337=\204IPT\235\203V\354NC\355pO%\202Z\354N! US\203fU\202\231KCX\203sU\202\231V\204}U\202\231V\356=\203\212CT\202\214K W\354NW\357pO%) XUKZ YZ\205\253\360\317\361\"\211 [\204\265\317\202\325Z\250\203\300Z\202\325Z\362=\203\324U\354[!Z\\^\202\325\320)\211 ]\206\340\363N! ^KUU\204%KXU\204%E\204\377\344\340\317\"\210\202%UKV\203Y^V\203%\344\340\317\"\210\202%_Y[W\203%\344\340\317\"\210R\203<`\2047UKU\204<\344\340\317\"\210\212\364\365\317\337#\210\320\225b\210\366 a\367\370\371 !\372\" b`\373 { cd\374=\206\200d<\203n\375d>\206\200d\337=\205\200e\337=\206\200\375e> f\376\317f?\" gKUU\204\236KXU\204\236\317\202\270\377\201v N\"\203\265N\347\224\317O\201w P\202\270\201h h\201x i@ jiA\211 k@ lkA\211 m@ nmA onlj p / -E\203\374UCW\203\374\311-Y[\"\202E\203UCV\203\311/Y\"\202p. cbagh& q\201y \347\201z Y!^\347]\245Z! rE\205AUCV s\201{ `\201| \" t\201} q\f\201~ \201 O!\201\200 \201 \201\201 !\201t t\201b b\201\202 U\201\203 E\203\204Y[\202\205\320\211 u\201\204 q!\\)\201P P\201\205 s\203\243\201\206 \202\246\201\207 \201D s\203\263D\202\265U\201r R\203\303\201\210 \202\305r\201\211 r\201\212 \201\210 &\210qLB\211L.0\210\202\352L\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props with-hour mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name org-today org-agenda-today-p 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) re-search-forward t :skip match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-at-planning-p throw org-agenda-skip match-string 1 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-get-todo-state string-prefix-p "%%" org-agenda--timestamp-to-absolute past next future org-entry-get "SCHEDULED" pre-scheduled org-get-wdays re-search-backward "^\\*+[ ]+" org-get-category make-string org-reduced-level org-outline-level 32 line-end-position always agenda org-get-tags-at string-match org-deadline-time-hour-regexp org-deadline-time-regexp regexp today date today\? offset-years year month day day-of-year current deadline-items save-match-data-internal s pos todo-state org-done-keywords done\? sexp\? org-agenda-prefer-last-repeat deadline org-agenda-show-future-repeats base repeat diff org-agenda-skip-deadline-prewarning-if-scheduled scheduled org-deadline-warning-days suppress-prewarning wdays org-deadline-past-days org-agenda-skip-deadline-if-done category level head org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags time org-agenda-deadline-leaders #1=#:x526 #2=#:x527 #3=#:x528 #4=#:x529 #5=#:x530 #6=#:x531 now item face upcoming\? warntime adjust " \\([012]?[0-9]:[0-9][0-9]\\)" " " org-agenda-format-item org-agenda-deadline-face float get-text-property org-appt-warntime org-add-props org-marker org-agenda-new-marker org-hd-marker line-beginning-position ts-date priority org-get-priority type "upcoming-deadline" "deadline" org-agenda-done undone-face done-face] 28 (#$ . 206810)]) | |
| 695 | #@111 Return the face to displaying a deadline item. | |
| 696 | FRACTION is what fraction of the head-warning time has passed. | |
| 697 | (defalias 'org-agenda-deadline-face #[(fraction) "\302 \303#\207" [fraction org-agenda-deadline-faces assoc-default <=] 4 (#$ . 211358)]) | |
| 698 | #@239 Return the scheduled information for agenda display. | |
| 699 | Optional argument DEADLINES is a list of deadline items to be | |
| 700 | displayed in agenda view. When WITH-HOUR is non-nil, only return | |
| 701 | scheduled items with an hour specification like [h]h:mm. | |
| 702 | (defalias 'org-agenda-get-scheduled #[(&optional deadlines with-hour) "\300\301 \302\n\306\307\310\311\312\313\314\315 !\"\257\f \203 @\202 A B\316 C\317D! ED\211 D D\320D8)\321 F\211 G\322U\203H \323\324!\202\343G\322V\203\337 GSF\325D\211 D\211 D@) HD\211 DA@) ID D\320D8) GIHS\326_\\ JH\320V\203\307 J\327H\330_\\\331\245ZJG\211 G\322W\203\245 \332G!SGG\330\246\322U\205\276 G\333\246\322U?\206\276 G\334\246\322U)\203\307 JTJJ-F\335_F\330\245F\333\245[F\334\245%\202\343\332GT!F\336D\211 D\211 D@) HD\211 DA@) ID D\320D8) GIHS\326_\\ JH\320V\203YJ\327H\330_\\\331\245ZJG\211 G\322W\2037\332G!SGG\330\246\322U\205PG\333\246\322U?\206PG\334\246\322U)\203YJTJJ-F\335_F\330\245F\333\245[F\334\245\337\211 D\211 D@) HD\211 DA@) ID D\320D8) GIHS\326_\\ JH\320V\203\336J\327H\330_\\\331\245ZJG\211 G\322W\203\274\332G!SGG\330\246\322U\205\325G\333\246\322U?\206\325G\334\246\322U)\203\336JTJJ-&+ K\340\341L\" M\321 Neb\210\342B\321\343#\203\271\3442\265\345 O\346\216\347 *\204\350\344\321\"\210\351 \210\352\353! P\353\224S Q\345 O\354\216\355 *\211 RS\235 T\356\357P\"\211 U\203C\360PK\"\202cV\343=\204RRV\235\203_\360PC\361pQ%\202c\360P! WU\203oW\202\242KCX\203|W\202\242X\204\206W\202\242X\362=\203\223CT\202\225K Y\360PY\363pQ%) ZKWZ [\364`\365\" \\WCW ]\366\367!\205\300\367 ^_\205\313\370\321\371\"\211 `\204\325\321\202\366_\250\203\341_[\202\366_\372=\203\365W\360`!Za^\202\366\322) b\373P\321\343 c\374#)\266\203\203W\360P!V\203\322\2021b\203,b a\375P\343\211#)\2021\375P\343\" dE\203H^\203H\376\377!\203H?\204\204d\322V\203W[dW\204[eV\204WKV\204KWU\204\204KCU\204\204KZU\204\204\350\344\321\"\210T\203\233f\204\226WKU\204\233\350\344\321\"\210\201z \322!M>\203\356^\204\356g\201{ =\203\320\201| \201} `!! `W`X\205\314K`V)\202\346g\201~ =\203\336]\202\346g\343=\204\351\321\203\356\350\344\321\"\210^\203 T\204\376\201h !\203h\203E\204 \376\201i !\203 i\203 \350\344\321\"\210\212\201 \201\200 \321\343#\210\322\225b\210\201\201 jk\201\202 =\206]k<\203I\201\203 k>\206]k\343=\205]l\343=\206]\201\203 l> m\201\204 \321m?\" n\201\205 \201\206 \201\207 !\201\210 \" o`\201\211 { pKWU\204\226KZU\204\226\321\202\260\374\201\212 P\"\203\255P\353\224\321O\201\213 P\202\260\201q q\201\214 r@ srA\211 t@ utA vus w 1E\203\343]\203\343\3131[\"\202\345w.pojnq\321^& x^\204]\203\201\215 \202E\203\201\216 \202\201\217 y^\205!\201\220 ^\201\221 x\f\201\222 y\201y T\203:\307\202<y\201\223 \201\224 Q!\201\225 \201\224 \201z !\201\226 ]\203^\201\227 \202a\201\230 \201D ]\203nW\202pD\201\231 W\201\\ \\\201o o\201\232 ^\203\220\201\233 ^!\202\235\325\201\234 [\201\235 x!#\201\236 ^\201R R&\210xNB\211N.0\210\202\363N\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props with-hour done-face org-agenda-done mouse-face highlight help-echo format "mouse-2 or RET jump to Org file %s" abbreviate-file-name org-today org-agenda-today-p 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) mapcar #[(d) "\302\303\304#\211\205 \305 !)\207" [d m get-text-property 0 org-hd-marker marker-position] 5] re-search-forward t :skip match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-at-planning-p throw org-agenda-skip match-string 1 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-get-todo-state string-prefix-p "%%" org-agenda--timestamp-to-absolute past next future get-text-property org-appt-warntime fboundp org-is-habit-p org-entry-get "DEADLINE" post-deadline "--[0-9]+[hdwmy]" string-match org-get-wdays boundp org-habit-show-all-today org-scheduled-time-hour-regexp org-scheduled-time-regexp regexp today date todayp offset-years year month day day-of-year current deadlines deadline-pos scheduled-items save-match-data-internal s pos todo-state org-done-keywords donep sexp\? org-agenda-prefer-last-repeat schedule org-agenda-show-future-repeats base repeat diff warntime pastschedp habitp org-agenda-skip-scheduled-delay-if-deadline deadline org-scheduled-delay-days suppress-delay inhibit-changing-match-data ddays org-scheduled-past-days org-agenda-skip-scheduled-if-done org-agenda-skip-scheduled-if-deadline-is-shown org-habit-show-habits org-habit-show-habits-only-for-today category org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags level head time org-agenda-scheduled-leaders #1=#:x532 #2=#:x533 #3=#:x534 #4=#:x535 first item face line-beginning-position repeated-after-deadline time-to-days org-get-deadline-time not-today re-search-backward "^\\*+[ ]+" org-get-category always agenda org-get-tags-at make-string org-reduced-level org-outline-level 32 line-end-position " \\([012]?[0-9]:[0-9][0-9]\\)" " " org-agenda-format-item org-scheduled-previously org-scheduled-today org-scheduled org-habit-parse-todo org-add-props undone-face org-marker org-agenda-new-marker org-hd-marker type "past-scheduled" "scheduled" ts-date priority org-habit-get-priority 99 org-get-priority org-habit-p] 28 (#$ . 211614)]) | |
| 703 | #@55 Return the date-range information for agenda display. | |
| 704 | (defalias 'org-agenda-get-blocks #[nil "\306\307\300\301 \302\n\310\311\312\313\314\315 !\"\257\f @A\211 A A\316A8)\307 B\211 C\317U\2034 \320\321!\202\317C\317V\203\313 CSB\322A\211 A\211 A@) DA\211 AA@) EA A\316A8) CEDS\323_\\ FD\316V\203\263 F\324D\325_\\\326\245ZFC\211 C\317W\203\221 \327C!SCC\325\246\317U\205\252 C\330\246\317U?\206\252 C\331\246\317U)\203\263 FTFF-B\332_B\325\245B\330\245[B\331\245%\202\317\327CT!B\333A\211 A\211 A@) DA\211 AA@) EA A\316A8) CEDS\323_\\ FD\316V\203EF\324D\325_\\\326\245ZFC\211 C\317W\203#\327C!SCC\325\246\317U\205<C\330\246\317U?\206<C\331\246\317U)\203EFTFF-B\332_B\325\245B\330\245[B\331\245\334\211 A\211 A@) DA\211 AA@) EA A\316A8) CEDS\323_\\ FD\316V\203\312F\324D\325_\\\326\245ZFC\211 C\317W\203\250\327C!SCC\325\246\317U\205\301C\330\246\317U?\206\301C\331\246\317U)\203\312FTFF-&+ G\307\211 H I\307\211 J K\307\211 L M\307\211 N O\307\211 P Q\307\211 R S\307\211 T U\307\211 V Web\210\335@\307\336#\203\273\3372\267\340 \210`T\341\342!\341\316! X Y\341\342!N\341\316!O\343\34419\345N!0\202H Z\346\347NTp\350Z!%)!L\343\3511X\345O!0\202g Z\346\347OTp\350Z!%)!MGLZ\352V\203\262MGZ\352V\203\262\212\353 \211R[\235\211V\203\227\\\203\227\354\337\336\"\210\355`!H\356 P\357]\307\336#\204\261\354\337\307\"\210\202y\317\224b\210\355`!I^\360=\206\340^<\203\316\361^>\206\340^\336=\205\340_\336=\206\340\361_>W\362\307W?\"S\363\364\365 !\366\"Q\367\370!\210\341\342!U`\205\371\372N!\373\374\371\372O!\373\260 a\375\313LMU\203 \317\202!\342b8GLZTMLZT#UQPSLGU\203UMGU\203U\371Y\376X\377\260\202rLGU\203e\371Y\377Q\202rMGU\205r\371X\377Qa&K)\201c K\f\201d H\201e I\201f \201g \201A A\201Q Q\201R R\201h \201i K!&\210KJBJ)*Tb0\210\202J\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props org-tr-regexp face nil mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name 2 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) re-search-forward t :skip org-agenda-skip match-string 1 time-to-days (error) org-time-string-to-time error "Bad timestamp %S at %d in buffer %S\nError was: %s" error-message-string (error) -1 org-get-todo-state throw org-agenda-new-marker org-get-category re-search-backward always agenda org-get-tags-at make-string org-reduced-level org-outline-level 32 looking-at "\\*+[ ]+\\(.*\\)" "<" regexp-quote ".*?>" "--" org-agenda-format-item ">--<" ">" regexp date offset-years year month day day-of-year d0 marker hdmarker ee txt d1 d2 s1 s2 category level todo-state tags pos head donep inherited-tags end-time start-time err org-done-keywords org-agenda-skip-timestamp-if-done org-outline-regexp-bol org-agenda-show-inherited-tags org-agenda-use-tag-inheritance org-agenda-remove-timeranges-from-blocks remove-re org-agenda-timerange-leaders org-add-props org-marker org-hd-marker type "block" priority org-get-priority] 19 (#$ . 217207)]) | |
| 705 | #@111 A flag, set by `org-compile-prefix-format'. | |
| 706 | The flag is set if the currently compiled format contains a `%t'. | |
| 707 | (defvar org-prefix-has-time nil (#$ . 220382)) | |
| 708 | #@111 A flag, set by `org-compile-prefix-format'. | |
| 709 | The flag is set if the currently compiled format contains a `%T'. | |
| 710 | (defvar org-prefix-has-tag nil (#$ . 220546)) | |
| 711 | #@111 A flag, set by `org-compile-prefix-format'. | |
| 712 | The flag is set if the currently compiled format contains a `%e'. | |
| 713 | (defvar org-prefix-has-effort nil (#$ . 220709)) | |
| 714 | #@111 A flag, set by `org-compile-prefix-format'. | |
| 715 | The flag is set if the currently compiled format contains a `%b'. | |
| 716 | (defvar org-prefix-has-breadcrumbs nil (#$ . 220875)) | |
| 717 | #@75 Used by `org-compile-prefix-format' to remember the category field width. | |
| 718 | (defvar org-prefix-category-length nil (#$ . 221045)) | |
| 719 | #@75 Used by `org-compile-prefix-format' to remember the category field width. | |
| 720 | (defvar org-prefix-category-max-length nil (#$ . 221179)) | |
| 721 | #@77 Return an image for CATEGORY according to `org-agenda-category-icon-alist'. | |
| 722 | (defalias 'org-agenda-get-category-icon #[(category) "\3052D \306\211\205B \n@\211@ \306\307 \310#)\266\203\203: A@<\2031 \311\305 A@\"\210\202: \311\305\312\313 A\"\"\210\nA\211\204\f \306*0\207" [org-agenda-category-icon-alist entry --dolist-tail-- category inhibit-changing-match-data --cl-block-nil-- nil t string-match throw apply create-image] 8 (#$ . 221317)]) | |
| 723 | #@729 Format TXT to be inserted into the agenda buffer. | |
| 724 | In particular, add the prefix and corresponding text properties. | |
| 725 | ||
| 726 | EXTRA must be a string to replace the `%s' specifier in the prefix format. | |
| 727 | LEVEL may be a string to replace the `%l' specifier. | |
| 728 | CATEGORY (a string, a symbol or nil) may be used to overrule the default | |
| 729 | category taken from local variable or file name. It will replace the `%c' | |
| 730 | specifier in the format. | |
| 731 | DOTIME, when non-nil, indicates that a time-of-day should be extracted from | |
| 732 | TXT for sorting of this entry, and for the `%t' specifier in the format. | |
| 733 | When DOTIME is a string, this string is searched for a time before TXT is. | |
| 734 | TAGS can be the tags of the headline. | |
| 735 | Any match of REMOVE-RE will be removed from TXT. | |
| 736 | (defalias 'org-agenda-format-item #[(extra txt &optional level category tags dotime remove-re habitp) "@A@ \306\211 \306 @ :\203/ @\211@\211A@\242@@\f L\210 A\211\202 ,\307 A\310\216B\306\311\203B \312\202C \313\314\311\315\314##\266\202B\316BCDE$BF\206o G\203n \317\320G!!\202o \314 F\321F!\211 H\203\204 \322\323\324H#\202\205 \314 HB\314\230?\205\225 \325\326\327B# C\203\246 CGSC8\202\247 \314 I\330J8 K\306 LM\205\313 M;\203\302 M\202\303 \314N\205\312 BP OM\205\326 \331O! P\306\211 Q R\306\211 S T\306\211 U V\306\211 W X\306\211 Y Z\332\333!\203G\203\334\335G\"\210M\203\362P\203\362\336[O\"\211Q\204)\336\\O\"\211R\203\253\337\340O\"SQ\2057\341\225W\337R\203C\326\202D\330O\"T\337R\203S\342\202]W\203\\\343\202]\344O\"U]\203\253^\203\253Q\204vR\203\253\336\345S!\346PB\"\203\253\347B\340\225\306O!\350\232\204\253^\351=\203\236\340\224\340U\202\237\352\203\253\353\314\306\211B$BT\203\270\331T\354\352#TU\203\305\331U\354\352#UT\203\342U\204\342_\203\342\355\356T\352\"_\\\306\352#UU\203\362\356U!\356T!ZY\336\357B\"\203/`\352=\204 `\203a\203\353\314\352\211B$B\202/\353\360\361BGZ\326]\362\"\337\330B\"P\352\211B$Bb\203I\336bB\"\203I\353\314\352\211B$B\2024\363\340BG\364B$\210c\203\225\365\325\366 \"\262 d\212\367d!\203p\370d!q\210\212\214~\210d\206z`b\210\371\306\211\372\352$\211 e\314=\203\216\314\202\222e\372P-ZU\203\255\373T!\374\373U!f\205\251\323R\202\311T\203\310\373T!f\203\302K\323P\202\304KP\202\311\314Lg\204\325h\206\326\314hF9\203\345\375F!\202\347FFi\206\357\314i\336jF\"\2037\341\225\203\341\225\341\224Z\202\f\326\225\326\224Z\211Xk\206\340W\203N\376F!F\377F\306\201o \360\201p kX\326#\362\"$\210\202Nl\203NFGlY\203NF\340lSOF\201q \n!BPV\201r \340VG\201s V$\210\377V\306\201t F\201C \201u \201v C\"\201m m\201n n\201P P\201Y Y\201Z Z\201B B\201i i\201L L\201h h\201w \201M M& .\207" [org-prefix-format-compiled bindings formatter #1=#:--cl-var-- var value nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-agenda-fix-displayed-tags file-name-sans-extension file-name-nondirectory org-agenda-get-category-icon propertize " " display get-text-property 1 effort 2 org-get-time-of-day derived-mode-p org-mode add-to-list org-agenda-contributing-files string-match match-string 0 3 8 4 6 regexp-quote " *" string-to-char 93 beg t replace-match string org-duration-from-minutes org-duration-to-minutes "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$" make-string 50 32 add-text-properties (org-heading t) org-marker point-at-bol markerp marker-buffer org-display-outline-path "->" org-agenda-time-of-day-to-ampm-maybe "-" symbol-name copy-sequence org-add-props #2=#:--cl-var-- save-match-data-internal txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp category buffer-file-name category-icon tag org-agenda-time-grid time-grid-trailing-characters time dotime org-agenda-search-headline-for-time ts time-of-day stamp plain s0 s1 s2 rtn srp l duration breadcrumbs org-stamp-time-of-day-regexp org-plain-time-of-day-regexp org-prefix-has-time org-agenda-remove-times-when-in-prefix org-agenda-default-appointment-duration org-agenda-remove-tags org-prefix-has-tag remove-re org-prefix-has-breadcrumbs #3=#:--mpom s org-agenda-timegrid-use-ampm habitp extra level org-bracket-link-regexp org-prefix-category-length org-prefix-category-max-length org-highest-priority org-lowest-priority extra-space - eval remove-text-properties (line-prefix t wrap-prefix t) org-category mapcar org-downcase-keep-props format] 30 (#$ . 221777)]) | |
| 737 | #@176 Remove tags string from TXT, and add a modified list of tags. | |
| 738 | The modified list may contain inherited tags, and tags matched by | |
| 739 | `org-agenda-hide-tags-regexp' will be removed. | |
| 740 | (defalias 'org-agenda-fix-displayed-tags #[(txt tags add-inherited hide-re) "\204 \203= \306\307\n\"\203 \n\310\211\224O\311\312\313\314 \"\"\211\203= \315\310\316 @#\312 \n\317\320\321 \322# \2039 \323\202: \322R*\n\207" [add-inherited hide-re txt tags i have-i string-match "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$" 0 delq nil mapcar #[(tg) "\203 \303 \"\206 \n?\205 \304\305\306 #?\205 \207" [hide-re tg add-inherited string-match get-text-property 0 inherited] 4] get-text-property inherited " :" mapconcat #[(x) "\303\304\305#\n\203 \204 \306\307P\207\207" [x i have-i get-text-property 0 inherited nil ":"] 4] ":" "::"] 7 (#$ . 226337)]) | |
| 741 | (defalias 'org-downcase-keep-props #[(s) "\302\303\"\227\304\303G $\210)\207" [s props text-properties-at 0 add-text-properties] 5]) | |
| 742 | #@215 Add a time-grid for agenda items which need it. | |
| 743 | ||
| 744 | LIST is the list of agenda items formatted by `org-agenda-list'. | |
| 745 | NDAYS is the span of the current agenda view. | |
| 746 | TODAYP is t when the current agenda view is on today. | |
| 747 | (defalias 'org-agenda-add-time-grid-maybe #[(list ndays todayp) "\3062\362 \204 \307\306 \"\210\2024 \n\203 \310 @\235\2044 \f\311U\203( \312 @\235\2044 \313 @\235\2044 \307\306 \"\210\314\315\316\317 \"\" \320 8 & A@ ' @ (\321(\235 )\315\211 * +\322(\235\203f \204f \307\306 \"\210'\211A'\242\211+\203\264 )\203 + \235\204f \323\324\325\326\327+\"#+\330\315&\315\331\315+\332\333O\334+\333\315OQ&*B*\335\336*@G\337\340*@%\210\202f \n\203\333 ,\203\333 \330\315-\315\331\315\341\342!&*B*\335\336*@G\337\343*@%\210\344.\235\203\352 \345* \"\202\357 \345 *\".0\207" [org-agenda-use-time-grid list todayp org-agenda-time-grid ndays have exit throw today 1 daily weekly delq nil mapcar #[(x) "\301\302\303#\207" [x get-text-property 1 time-of-day] 4] 3 remove-match require-timed replace-regexp-in-string " " "0" format "%04s" org-agenda-format-item "" 0 -2 ":" put-text-property 2 face org-time-grid format-time-string "%H:%M " org-agenda-current-time time-up append string gridtimes req remove new time org-agenda-show-current-time-in-grid org-agenda-current-time-string org-agenda-sorting-strategy-selected] 12 (#$ . 227329)]) | |
| 748 | #@188 Compile the prefix format into a Lisp form that can be evaluated. | |
| 749 | The resulting form and associated variable bindings is returned | |
| 750 | and stored in the variable `org-prefix-format-compiled'. | |
| 751 | (defalias 'org-compile-prefix-format #[(key) "\306\211\306\211\306 ;\203 \202# / \236\203\" / \236A\202# \307\310\306\211\211\211\211\211\211 0 1 2 3 4 5 6 7 8\311\31287#\203?\313\314\3158\"\316\"A\206T \3174\314\3208\"\206_ \3212\322\2240\310\224T74\323=\203s \3244\325=\203| \3244\326=\203\205 \3244\327=\203\216 \324\330\314\3318\"\332Q14\333=\203\315 \334\335\336\314\3318\"!!!\314\3318\" 9\337 :\340\216\311\3419\"\205\312 \336\314\3109\"\322\306O!+;4\317=\203\346 \3421\343\344\314\3158\"!DE6\202,0\203 \345\346\347\3214E\347\3064EE\321\3421\35042EEF6\202,\3421\345\346\3474\351BB\3474\352BBE\321\35042\353\310\3544FFFE6\355\356\324\3068$865B5\202= 5\2375r<\206Kpq\210\300D\301 D\302\nD\303 D\304\fD\257\34285BBD\211=.\n\207" [org-prefix-has-time org-prefix-has-tag org-prefix-category-length org-prefix-has-effort org-prefix-has-breadcrumbs org-agenda-prefix-format nil " %-12:c%?-12t% s" 0 string-match "%\\(\\?\\)?\\([-+]?[0-9.]*\\)\\([ .;,:!?=|/<>]?\\)\\([cltseib]\\|(.+)\\)" assoc match-string 4 (("c" . category) ("t" . time) ("l" . level) ("s" . extra) ("i" . category-icon) ("T" . tag) ("e" . effort) ("b" . breadcrumbs)) eval 3 #1="" 1 time t tag effort breadcrumbs "%" 2 "s" category floor abs string-to-number match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "\\.[0-9]+" format org-eval read if or equal concat (#1#) (nil) get-text-property 'extra-space replace-match "%s" key opt f c e var vars varform start s x save-match-data-internal org-prefix-category-max-length org-agenda-buffer org-prefix-format-compiled] 13 (#$ . 228710)]) | |
| 752 | (defalias 'org-set-sorting-strategy #[(key) "@9\203\n \211\207\n\236A\206 \303\236A\206 \304\211\207" [org-agenda-sorting-strategy org-agenda-sorting-strategy-selected key agenda (time-up category-keep priority-down)] 2]) | |
| 753 | #@212 Check string S for a time of day. | |
| 754 | If found, return it as a military time number between 0 and 2400. | |
| 755 | If not found, return nil. | |
| 756 | The optional STRING argument forces conversion into a 5 character wide string | |
| 757 | HH:MM. | |
| 758 | (defalias 'org-get-time-of-day #[(s &optional string mod24) "\306 \307\216\310\311 \"\204 \310\312 \"\205\352 \313\314\315 #\316=?\205\352 \317\320\314 \"!\321\225\2033 \317\320\321 \"!\2024 \322\323\225\205? \320\323 \"\227\211 \324\232 \f\204L \n\202i \n\325U\203^ \203Z \322\202i \325\202i \n \203g \322\202h \325\\ $%\203\212 &\203\212 \322U\203\202 $\326U\204\212 \327$\326\"\202\214 $\211 '\330_ \\ ($\326Y\203\240 \331\202\241 \332)\203\261 (\333W\203\261 \334\202\262 \335(\330W\203\275 \334\202\276 \335(\336W\203\311 \334\202\312 \335\337(!\260 *%\203\346 *\340\341O\342*\341\343OQ\202\350 (.*\207" [save-match-data-internal s h m ampm am-p match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)?\\> *" "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\)\\> *" get-text-property 1 face org-link string-to-number match-string 3 0 4 "am" 12 24 mod 100 "+" " " 1000 "0" "" 10 int-to-string -4 -2 ":" nil h1 string mod24 h2 t0 org-agenda-time-leading-zero t1] 7 (#$ . 230799)]) | |
| 759 | #@886 Function to be applied to agenda items prior to sorting. | |
| 760 | Prior to sorting also means just before they are inserted into the agenda. | |
| 761 | ||
| 762 | To aid sorting, you may revisit the original entries and add more text | |
| 763 | properties which will later be used by the sorting functions. | |
| 764 | ||
| 765 | The function should take a string argument, an agenda line. | |
| 766 | It has access to the text properties in that line, which contain among | |
| 767 | other things, the property `org-hd-marker' that points to the entry | |
| 768 | where the line comes from. Note that not all lines going into the agenda | |
| 769 | have this property, only most. | |
| 770 | ||
| 771 | The function should return the modified string. It is probably best | |
| 772 | to ONLY change text properties. | |
| 773 | ||
| 774 | You can also use this function as a filter, by returning nil for lines | |
| 775 | you don't want to have in the agenda at all. For this application, you | |
| 776 | could bind the variable in the options section of a custom command. | |
| 777 | (defvar org-agenda-before-sorting-filter-function nil (#$ . 232143)) | |
| 778 | #@105 Sort, limit and concatenate the LIST of agenda items. | |
| 779 | The optional argument TYPE tells the agenda type. | |
| 780 | (defalias 'org-agenda-finalize-entries #[(list &optional type) "<\203 \306 \"A\202 \n<\203 \306 \n\"A\202 \n <\203) \306 \"A\202* \f<\2037 \306 \f\"A\2028 \f \203O \307\310\311\"\"\311\312\"\311\313\314\315\"\"\203o \316\317\320$\203} \316\321#\203\213 \316\322# \203\227 \316\323 # \203\250 \203\250 \311\324\"\325\313\326#,\207" [org-agenda-max-effort type org-agenda-max-todos org-agenda-max-tags org-agenda-max-entries max-entries assoc delq nil mapcar org-agenda-highlight-todo identity sort org-entries-lessp org-agenda-limit-entries effort-minutes #[(e) "\206 \203\n \302\207\303\207" [e org-sort-agenda-noeffort-is-high 32767 -1] 1] todo-state tags org-hd-marker org-agenda--mark-blocked-entry mapconcat "\n" max-tags max-todo max-effort org-agenda-before-sorting-filter-function list org-agenda-dim-blocked-tasks org-blocker-hook] 6 (#$ . 233104)]) | |
| 781 | #@37 Limit the number of agenda entries. | |
| 782 | (defalias 'org-agenda-limit-entries #[(list prop limit &optional fn) "\205 \306W\203 \n\206 \307\306 \310\311\312\313 \"\"*\202 )\207" [limit include fn lim fun list 0 #[(p) "\205 \301\207" [p 1] 1] delq nil mapcar #[(e) "\306 GS\n #!\211\203 \f \\ \203\" \f\307 !X\203\" \202- \205- ?\205- )\207" [fun e prop pval lim limit get-text-property abs include] 6]] 5 (#$ . 234143)]) | |
| 783 | #@61 In agenda, interactively limit entries to various maximums. | |
| 784 | (defalias 'org-agenda-limit-interactively #[(remove) "\203 \306\211\306\211\307 \210\202w \310\311!\211 \312U\203 \313\202A \314U\203* \315\202A \316U\2034 \317\202A \320U\203> \321\202A \322\323! \324\325!! \326\267\202v \307 \210)\202v \307 \210)\202v \307 \210)\202v \307 \210)+\327 \207" [remove org-agenda-max-entries org-agenda-max-todos org-agenda-max-tags org-agenda-max-effort max nil org-agenda-redo read-char "Number of [e]ntries [t]odos [T]ags [E]ffort? " 69 "How many minutes? " 101 "How many entries? " 116 "How many TODO entries? " 84 "How many tagged entries? " user-error "Wrong input" string-to-number read-from-minibuffer #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (101 81 116 91 84 101 69 111)) org-agenda-fit-window-to-buffer msg num] 4 (#$ . 234584) "P"]) | |
| 785 | (defalias 'org-agenda-highlight-todo #[(x) "\306\211\f\307=\203Y \212\310\311!\210\312\313\314 \"\262\315\314 \316 \317\320$\206& `b\210\321\322 \323Q!\205U \324\325\224\311\225\326\327\311!D#\210\311\224\311\225{ \311\224\325\225S|\210\311\224b\210\330$ \"c))\202\273 \315\325\fG\317\320\f% %\313\325\312\f#\211\203\271 %\203\271 \331\332 \333Q\f%#%\232\203\271 \324\311\225\206\211 \325\225\325\225\326\327\334\335\f\"!D\f$\210\311\225\203\271 \f\325\311\225O\330$\334\335\f\"\"\336\337\340\341\325\f\"\342\"\"\f\343\225\306OR)\f+\207" [org-done-keywords-for-agenda re case-fold-search org-done-keywords x s nil line beginning-of-line 1 org-todo-regexp get-text-property point-at-bol text-property-any point-at-eol org-heading t looking-at "[ ]*\\.*\\(" "\\) +" add-text-properties 0 face org-get-todo-face format string-match "\\(\\.*\\)" "\\( +\\)" match-string 2 org-add-props " " org-plist-delete text-properties-at display 3 org-agenda-todo-keyword-format pl] 9]) | |
| 786 | #@64 Compare the numeric value of text PROPERTY for string A and B. | |
| 787 | (defalias 'org-cmp-values #[(a b property) "\305GS #\206 \306\305\nGS \n#\206 \306\211 V\203\" \307\202) \f W\205) \310*\207" [a property b pb pa get-text-property 0 1 -1] 6 (#$ . 236486)]) | |
| 788 | (put 'org-cmp-values 'byte-optimizer 'byte-compile-inline-expand) | |
| 789 | #@46 Compare the effort values of string A and B. | |
| 790 | (defalias 'org-cmp-effort #[(a b) "\203 \306\202 \307\310\311\312\310\311\313\n##\206 \310\311\312\310\311\313\f##\206% V\2030 \314\2027 W\2057 \307+\207" [org-sort-agenda-noeffort-is-high def a ea b eb 32767 -1 get-text-property 0 effort-minutes txt 1] 7 (#$ . 236817)]) | |
| 791 | (put 'org-cmp-effort 'byte-optimizer 'byte-compile-inline-expand) | |
| 792 | #@61 Compare the string values of categories of strings A and B. | |
| 793 | (defalias 'org-cmp-category #[(a b) "\304GS\305#\206 \306\304 GS\305 #\206 \306\211\n\231\203\" \307\202) \n \231\205) \310*\207" [a b cb ca get-text-property org-category "" -1 1] 6 (#$ . 237219)]) | |
| 794 | (put 'org-cmp-category 'byte-optimizer 'byte-compile-inline-expand) | |
| 795 | #@45 Compare the todo states of strings A and B. | |
| 796 | (defalias 'org-cmp-todo-state #[(a b) "\306\307\310#\206 \306\307\311#\306\307\310\n#\206 \306\307\311\n# \205# \312 ! \205+ \312 ! \f\203: r\fq\210)\206E \205E r q\210) \306\307\313#\206P \314 \306\307\313\n#\206[ \314 \235G[ \235G[ \235 \235 \203\213 \204\213 \315\202\256 \204\231 \203\231 \307\202\256 W\203\245 \315\202\256 W\205\256 \307. \207" [a ma b mb fa fb get-text-property 1 org-marker org-hd-marker marker-buffer todo-state "" -1 org-todo-keywords-1 todo-kwds ta tb la lb org-done-keywords-for-agenda donepa donepb] 4 (#$ . 237558)]) | |
| 797 | (put 'org-cmp-todo-state 'byte-optimizer 'byte-compile-inline-expand) | |
| 798 | #@40 Compare the headlines, alphabetically. | |
| 799 | (defalias 'org-cmp-alpha #[(a b) "\306\307G\310\311%\306\307\nG\310\311\n% \205 \312O \205# \n \312O \312 \203F \313\314\315\307\316#\2066 \317\320Q\f\"\203C \f\307\225\312O\f\227 \203e \313\314\315\307\316\n#\206U \317\320Q \"\203b \307\225\312O \227\f\204m \321\202\206 \204u \322\202\206 \f \231\203 \322\202\206 \f\231\205\206 \321-\207" [a pla b plb ta tb text-property-any 0 org-heading t nil string-match "\\`[ ]*" get-text-property org-todo-regexp "" "\\([ ]*\\[[a-zA-Z0-9]\\]\\)? *" 1 -1 case-fold-search] 6 (#$ . 238278)]) | |
| 800 | (put 'org-cmp-alpha 'byte-optimizer 'byte-compile-inline-expand) | |
| 801 | #@57 Compare the string values of the first tags of A and B. | |
| 802 | (defalias 'org-cmp-tag #[(a b) "\304\305\306\307#!@\304\305\306\307 #!@\211\204 \306\2023 \n\204\" \310\2023 \n\231\203, \310\2023 \n \231\2053 \306*\207" [a b tb ta last get-text-property 1 tags -1] 7 (#$ . 238942)]) | |
| 803 | (put 'org-cmp-tag 'byte-optimizer 'byte-compile-inline-expand) | |
| 804 | #@52 Compare the time-of-day values of strings A and B. | |
| 805 | (defalias 'org-cmp-time #[(a b) "\203 \306\202 \307\310\311\312\n#\206 \310\311\312\f#\206 W\203( \307\202/ W\205/ \311+\207" [org-sort-agenda-notime-is-late def a ta b tb 9901 -1 get-text-property 1 time-of-day] 4 (#$ . 239290)]) | |
| 806 | (put 'org-cmp-time 'byte-optimizer 'byte-compile-inline-expand) | |
| 807 | #@241 Compare the timestamps values of entries A and B. | |
| 808 | When TYPE is "scheduled", "deadline", "timestamp" or | |
| 809 | "timestamp_ia", compare within each of these type. When TYPE | |
| 810 | is the empty string, compare all timestamps without respect of | |
| 811 | their type. | |
| 812 | (defalias 'org-cmp-ts #[(a b type) "\203 \202 \306\307 \310\311\303\f#\206 \312\"\203! \310\311\313\f#\206\" \n \307 \310\311\303\f#\206/ \312\"\203< \310\311\313\f#\206= \n W\203J \306\202R W\205R \311+\207" [org-sort-agenda-notime-is-late most-positive-fixnum def type a ta -1 string-match get-text-property 1 "" ts-date b tb] 6 (#$ . 239657)]) | |
| 813 | (put 'org-cmp-ts 'byte-optimizer 'byte-compile-inline-expand) | |
| 814 | #@45 Compare the todo states of strings A and B. | |
| 815 | (defalias 'org-cmp-habit-p #[(a b) "\304\305\306#\304\305\306 #\211\203 \n\204 \307\202\" ?\205\" \n\205\" \305*\207" [a b hb ha get-text-property 1 org-habit-p -1] 6 (#$ . 240327)]) | |
| 816 | (put 'org-cmp-habit-p 'byte-optimizer 'byte-compile-inline-expand) | |
| 817 | #@39 Predicate for sorting agenda entries. | |
| 818 | (defalias 'org-entries-lessp #[(a b) "\306\307 \211 \n>\206 \n>+\205| @\310 @ A\203( B\202) \311 C\312 \313\314\315 #\2067 \310\"\203C \313\314\316 #\206E C D\312 \313\314\315@#\206T \310\"\203a \313\314\316@#\206c C EDEW\203q \311\202z EDW\205z \314.\211 \205\205 [ \317\320 \211 \n>\206\226 \n>+\205 @\321 @ A\203\255 B\202\256 \311 C\312 \313\314\315 #\206\274 \310\"\203\310 \313\314\316 #\206\312 C D\312 \313\314\315@#\206\331 \310\"\203\346 \313\314\316@#\206\350 C EDEW\203\366 \311\202\377 EDW\205\377 \314.\211 \205\n[ \322\323 \211 \n>\206 \n>+\205\206 @\324 @ A\2032B\2023\311 C\312 \313\314\315 #\206A\310\"\203M\313\314\316 #\206OC D\312 \313\314\315@#\206^\310\"\203k\313\314\316@#\206mC EDEW\203{\311\202\204EDW\205\204\314.\211 \205\217[ \325\326 \211 \n>\206\240 \n>+\205 @\327 @ A\203\267B\202\270\311 C\312 \313\314\315 #\206\306\310\"\203\322\313\314\316 #\206\324C D\312 \313\314\315@#\206\343\310\"\203\360\313\314\316@#\206\362C EDEW\203 \311\202 EDW\205 \314.\211 \205[ \330\331 \211 \n>\206% \n>+\205\220 @\332 @ A\203<B\202=\311 C\312 \313\314\315 #\206K\310\"\203W\313\314\316 #\206YC D\312 \313\314\315@#\206h\310\"\203u\313\314\316@#\206wC EDEW\203\205\311\202\216EDW\205\216\314.\211 \205\231[ \333\334 \211 \n>\206\252 \n>+\205\357 @ @ A\203\275\335\202\276\311 C\313\314\336 #\206\312C D\313\314\336@#\206\327C EDEW\203\345\311\202\356EDW\205\356\314-\211 \205\370[ \337\340 \211 \n>\206 \n>+\205I @\341 F @ \313 GSF #\206\"\342\313@GSF@#\2060\342 G\211 HGV\203?\314\202HHGW\205H\311-\211 \205R [ \343\344 \211 \n>\206c \n>+\205\243 @\345 F @ \313 GSF #\206|\342\313@GSF@#\206\212\342 G\211 HGV\203\231\314\202\242HGW\205\242\311-\211 #\205\254#[ $\346\347 \211 \n>\206\275 \n>+\205\n @ @ I\203\320\350\202\321\311 C\313\342\351\313\342\352 ##\206\341C J\313\342\351\313\342\352@##\206\362C KJKV\203 \314\202 JKW\205 \311-\211 &\205&[ '\353\354 \211 \n>\206$ \n>+\204.\355 >\205e @ @ \313 GS\356 #\206?\310\313@GS\356@#\206L\310 L\211 ML\231\203[\311\202dLM\231\205d\314,\211 +\205n+[ ,+\205v\314 -\357\360 \211 \n>\206\207 \n>+\205\315 @ @ \361\313\314\362 #!@\361\313\314\362@#!@ E\211 D\204\256\314\202\314E\204\267\311\202\314DE\231\203\303\311\202\314ED\231\205\314\314,\211 /\205\326/[ 0\363\364 \211 \n>\206\347 \n>+\205\260 @ @ \313\314\365 #\206\376\313\314\366 # N\313\314\365@#\206\313\314\366@# ON\205\367N! PO\205%\367O! QP\2037rPq\210R)\206DQ\205DrQq\210R) S\313\314\370 #\206O\310 D\313\314\370@#\206[\310 EDS\235G[ TES\235G[ UDV\235 WEV\235 XW\203\213X\204\213\311\202\256W\204\231X\203\231\314\202\256TUW\203\245\311\202\256UTW\205\256\314. \211 3\205\2713[ 4\371\372 \211 \n>\206\312 \n>+\205\375 @ @ \313\314\373 #\313\314\373@# Y\211 Z\203\360Y\204\360\311\202\374Z?\205\374Y\205\374\314,\211 9\2059[ :\374\375 \211 \n>\206 \n>+\205\341 @ @ \376\342 G\377\201b % [\376\342@G\377\201b @% \\[\205G [\201c O D\\\205V@\\\201c O E\201c ][\203\212\312\201d \313\342\201e #\206q\310\201f QD\"\203\205D\342\225\201c ODD\227D\\\203\270\312\201d \313\342\201e @#\206\237\310\201f QE\"\203\263E\342\225\201c OEE\227ED\204\301\314\202\337E\204\312\311\202\337DE\231\203\326\311\202\337ED\231\205\337\314.\211 <\205\352<[ =\201_ \201` \211 \n>\206\377 \n>+ ^\201c \211 _ `^\203.a\203.\201g a!\203.a @\"\211_\205,_[`\201h \201i \201j B!\201k \"A.!\207" [org-agenda-sorting-strategy-selected ss list y x a timestamp-up timestamp-down "" -1 string-match get-text-property 1 type ts-date scheduled-up scheduled-down "scheduled" deadline-up deadline-down "deadline" tsia-up tsia-down "timestamp_ia" ts-up ts-down "timestamp" time-up time-down 9901 time-of-day stats-up stats-down org-stats 0 priority-up priority-down priority effort-up effort-down 32767 effort-minutes txt category-up category-down category-keep org-category tag-up tag-down last tags todo-state-up todo-state-down org-marker org-hd-marker marker-buffer todo-state habit-up habit-down org-habit-p alpha-up alpha-down text-property-any org-heading b org-sort-agenda-notime-is-late most-positive-fixnum def ta tb property pb pa org-sort-agenda-noeffort-is-high ea eb cb ca ma mb fa fb org-todo-keywords-1 todo-kwds la lb org-done-keywords-for-agenda donepa donepb hb ha pla plb case-fold-search need-user-cmp user-defined-up user-defined-down org-agenda-cmp-user-defined t nil "\\`[ ]*" org-todo-regexp "\\([ ]*\\[[a-zA-Z0-9]\\]\\)? *" functionp assoc eval or ((-1 . t) (1) (nil))] 8 (#$ . 240633)]) | |
| 819 | #@71 Overlay to mark the headline to which agenda commands are restricted. | |
| 820 | (defvar org-agenda-restriction-lock-overlay (byte-code "\300\301\211\"\207" [make-overlay 1] 3) (#$ . 245516)) | |
| 821 | (byte-code "\301\302\303#\210\301\304\305#\210\306!\207" [org-agenda-restriction-lock-overlay overlay-put face org-agenda-restriction-lock help-echo "Agendas are currently limited to this subtree." delete-overlay] 4) | |
| 822 | #@212 Set the restriction lock to the agenda item at point from within the agenda. | |
| 823 | When called with a `\[universal-argument]' prefix, restrict to | |
| 824 | the file which contains the item. | |
| 825 | Argument ARG is the prefix argument. | |
| 826 | (defalias 'org-agenda-set-restriction-lock-from-agenda #[(arg) "\304\305!\204\n \306\307!\210\310\311\312 \"\262\206 \313 \314!\315!r q\210\nb\210\316 !,\207" [marker buffer pos arg derived-mode-p org-agenda-mode user-error "Not in an Org agenda buffer" org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position org-agenda-set-restriction-lock] 4 (#$ . 245924) "P"]) | |
| 827 | #@268 Set restriction lock for agenda, to current subtree or file. | |
| 828 | Restriction will be the file if TYPE is `file', or if type is the | |
| 829 | universal prefix \='(4), or if the cursor is before the first headline | |
| 830 | in the file. Otherwise, restriction will be to the current subtree. | |
| 831 | (defalias 'org-agenda-set-restriction-lock #[(&optional type) "\306\307!\210\310\232\203\f \311\203 \2024 \312 \203 \313\2024 \3141( \315\316!0\202, \210\2023 \2033 \313\2024 \311\211\313=\203z p\313\317\320\321\322\323 !C#\210\315\316!\210\324 `\f\203_ \212\325\316\211\"\210`)\202a \326 #\210 `\327\223\210 \212\325\316\211\")\327\223\210\330\331!\210\202\227 \317\320\321\322\323 !C#\210\327\311 \327\211\223\210 \327\211\223\210\330\332!\210\327 \333 \207" [type org-agenda-restrict org-agenda-overriding-restriction org-agenda-restriction-lock-overlay org-agenda-restriction-lock-highlight-subtree org-agenda-restrict-begin org-agenda-remove-restriction-lock noupdate (4) file org-at-heading-p subtree (error) org-back-to-heading t put org-agenda-files org-restrict buffer-file-name buffer-base-buffer move-overlay org-end-of-subtree point-at-eol nil message "Locking agenda restriction to subtree" "Locking agenda restriction to file" org-agenda-maybe-redo org-agenda-restrict-end current-prefix-arg] 7 (#$ . 246548) "P"]) | |
| 832 | #@37 Remove the agenda restriction lock. | |
| 833 | (defalias 'org-agenda-remove-restriction-lock #[(&optional noupdate) "\306!\210\306 !\210\307\211\310\311\312\307#\210\f\307\211\223\210 \307\211\223\210\307\313\314!\210\206* \315 \207" [org-agenda-restriction-lock-overlay org-speedbar-restriction-lock-overlay org-agenda-overriding-restriction org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end delete-overlay nil put org-agenda-files org-restrict message "Agenda restriction lock removed" org-agenda-maybe-redo current-prefix-arg noupdate] 5 (#$ . 247864) "P"]) | |
| 834 | #@60 If there is any window showing the agenda view, update it. | |
| 835 | (defalias 'org-agenda-maybe-redo #[nil "\305\206 \306\"\307 \211\205) \310 !\210\311 \210\310\n!\210\f\203& \312\313\f\"\202) \312\314!*\207" [org-agenda-this-buffer-name org-agenda-buffer-name w0 w org-agenda-overriding-restriction get-buffer-window t selected-window select-window org-agenda-redo message "Agenda view shifted to new %s restriction" "Agenda restriction lock removed"] 4 (#$ . 248447)]) | |
| 836 | #@159 Check if agenda buffer is of allowed type. | |
| 837 | If ERROR is non-nil, throw an error, otherwise just return nil. | |
| 838 | Allowed types are `agenda' `todo' `tags' `search'. | |
| 839 | (defalias 'org-agenda-check-type #[(error &rest types) "\204 \302\303!\207 >\203 \304\207\n\203 \302\305\"\207\306\207" [org-agenda-type types error "No Org agenda currently displayed" t "Not allowed in %s-type agenda buffers" nil] 3 (#$ . 248922)]) | |
| 840 | #@131 Exit the agenda, killing the agenda buffer. | |
| 841 | Like `org-agenda-quit', but kill the buffer even when | |
| 842 | `org-agenda-sticky' is non-nil. | |
| 843 | (defalias 'org-agenda-Quit #[nil "\300 \207" [org-agenda--quit] 1 (#$ . 249343) nil]) | |
| 844 | #@274 Exit the agenda. | |
| 845 | ||
| 846 | When `org-agenda-sticky' is non-nil, bury the agenda buffer | |
| 847 | instead of killing it. | |
| 848 | ||
| 849 | When `org-agenda-restore-windows-after-quit' is non-nil, restore | |
| 850 | the pre-agenda window configuration. | |
| 851 | ||
| 852 | When column view is active, exit column view instead of the | |
| 853 | agenda. | |
| 854 | (defalias 'org-agenda-quit #[nil "\301!\207" [org-agenda-sticky org-agenda--quit] 2 (#$ . 249566) nil]) | |
| 855 | (defalias 'org-agenda--quit #[(&optional bury) "\203 \306 \207 p\n\307=\205 \205 \310 ! \311=\203' \312 \210\202R \203; \203; \313\314!\210\202R \f\203C \315\f!\210\316=\204R \317 \204R \315 \210\203a r q\210\320 )\202l \321 !\210\313\211\211+\207" [org-agenda-columns-active org-agenda-pre-window-conf org-indirect-buffer-display org-agenda-last-indirect-buffer org-agenda-last-indirect-window buf org-columns-quit other-window get-buffer-window other-frame delete-frame nil set-window-configuration delete-window current-window one-window-p bury-buffer kill-buffer wconf org-agenda-window-setup org-agenda-restore-windows-after-quit bury org-agenda-archives-mode org-agenda-buffer] 5]) | |
| 856 | #@254 Exit the agenda, killing Org buffers loaded by the agenda. | |
| 857 | Like `org-agenda-Quit', but kill any buffers that were created by | |
| 858 | the agenda. Org buffers visited directly by the user will not be | |
| 859 | touched. Also, exit the agenda even if it is in column view. | |
| 860 | (defalias 'org-agenda-exit #[nil "\203 \302 \210\303 !\210\304\305 \207" [org-agenda-columns-active org-agenda-new-buffers org-columns-quit org-release-buffers nil org-agenda-Quit] 2 (#$ . 250664) nil]) | |
| 861 | #@83 Kill all buffers in `org-agenda-mode'. | |
| 862 | This is used when toggling sticky agendas. | |
| 863 | (defalias 'org-agenda-kill-all-agenda-buffers #[nil "\304\305 \304\211\203$ \n@r q\210 )\306=\203 B\nA\211\204 *\307\310\")\207" [blist buf --dolist-tail-- major-mode nil buffer-list org-agenda-mode mapc kill-buffer] 4 (#$ . 251129) nil]) | |
| 864 | #@140 Execute another agenda command, keeping same window. | |
| 865 | So this is just a shortcut for \<global-map>`\[org-agenda]', available | |
| 866 | in the agenda. | |
| 867 | (defalias 'org-agenda-execute #[(arg) "\302\303 !)\207" [org-agenda-window-setup arg current-window org-agenda] 2 (#$ . 251468) "P"]) | |
| 868 | #@60 Rebuild possibly ALL agenda view(s) in the current buffer. | |
| 869 | (defalias 'org-agenda-redo #[(&optional all) "\306\307!\203 `S\206\f ` \310=?\205 \n\f \311 +\206! , ,\310 -\n .\312\313N /0 1\f 2\314\313N 3 4\315\313N 5 6\316\313N 7.\206U / 89 :\311\212\211\203d \211b\210n\203l \317\202m \320\321\317`\"\\)\262\211 ;\322 \212\211\203\202 \211b\210n\203\212 \317\202\213 \320\321\317`\"\\)\262Z <\323\324N =\325\326\" >\325\327\" ?\325\330\" @ \310=?\205\320 ?<\203\310 \206\301 ?@?AB\202\320 ?;\205\320 ? A\325\331\" B\332\312\313\311#\210\332\314\313\311#\210\332\315\313\311#\210\332\316\313\311#\210:\203\370 \333 \210\334\335!\210B\203 \336B!\210\202\337=>\"\210\311\211CD.\n2\f4 610\334\340!\210\332\312\313/#\210\332\314\3133#\210\332\315\3135#\210\332\316\3137#\210.\206Q/2\206X36\206_74\206f5 E $ F\211 \"\203y\341\"\342\310#\210F\203\204\341F\343\"\210$\203\217\341$\344\"\210E\203\232\341E\345\"\210,1\203\245\3461!\210:\203\263\347\350!\203\263\351 \210;\214~\210eb\210\211Sy)\266\352<!.\207" [p all current-prefix-arg cpa org-agenda-sticky org-agenda-doing-sticky-redo looking-at "\\'" t nil org-agenda-tag-filter :preset-filter org-agenda-category-filter org-agenda-regexp-filter org-agenda-effort-filter 1 0 count-lines window-start org-agenda-redo-command org-lprops get-text-property org-redo-cmd org-last-args org-series-cmd org-series-redo-cmd put org-columns-quit message "Rebuilding agenda buffer..." eval org-let "Rebuilding agenda buffer...done" org-agenda-filter-apply tag category effort regexp org-agenda-filter-top-headline-apply called-interactively-p any org-agenda-columns recenter org-agenda-this-buffer-name org-agenda-buffer-name org-agenda-keep-modes tag-filter tag-preset org-agenda-top-headline-filter top-hl-filter cat-filter cat-preset re-filter re-preset effort-filter effort-preset org-agenda-tag-filter-while-redo org-agenda-columns-active cols line window-line lprops redo-cmd last-args org-agenda-overriding-cmd org-agenda-overriding-cmd-arguments series-redo-cmd org-agenda-undo-list org-agenda-pending-undo-list re cat] 7 (#$ . 251748) "P"]) | |
| 870 | #@102 Rebuild all agenda views in the current buffer. | |
| 871 | With a prefix argument, do so in all agenda buffers. | |
| 872 | (defalias 'org-agenda-redo-all #[(&optional exhaustive) "\203) \303 \304\211\205' \n@r q\210\305\306!\203 \307\310!\210)\nA\211\204 \304*\207\307\310!\207" [exhaustive buffer --dolist-tail-- buffer-list nil derived-mode-p org-agenda-mode org-agenda-redo t] 3 (#$ . 253922) "P"]) | |
| 873 | (defvar org-global-tags-completion-table nil) | |
| 874 | (defvar org-agenda-filter-form nil) | |
| 875 | (defvar org-agenda-filtered-by-category nil) | |
| 876 | #@232 Filter lines in the agenda buffer that have a specific category. | |
| 877 | The category is that of the current line. | |
| 878 | Without prefix argument, keep only the lines of that category. | |
| 879 | With a prefix argument, exclude the lines of that category. | |
| 880 | ||
| 881 | (defalias 'org-agenda-filter-by-category #[(strip) "\203 \203 \305 \207\306\307\310\"\311\211\203 \312\313G\n$\210\202' \314\313G\311$\210\266\202\211\203@ \f\203@ \315\316 P B\211\317\"\202S \203P \315\320 PC\211\317\"\202S \321\322!)\207" [org-agenda-filtered-by-category org-agenda-category-filter org-rm-props cat strip org-agenda-filter-show-all-cat org-get-at-eol org-category 1 nil remove-text-properties 0 set-text-properties org-agenda-filter-apply "-" category "+" error "No category at point"] 8 (#$ . 254443) "P"]) | |
| 882 | #@125 Find the topmost parent headline and return it. | |
| 883 | POS when non-nil is the marker or buffer position to start the | |
| 884 | search from. | |
| 885 | (defalias 'org-find-top-headline #[(&optional pos) "\212r\301!\203 \302!\202 pq\210\203 b\210\303 \204 \3041) \305\306 80\202+ \210\307*\207" [pos markerp marker-buffer org-up-heading-safe (error) 4 org-heading-components nil] 2 (#$ . 255222)]) | |
| 886 | (defvar org-agenda-filtered-by-top-headline nil) | |
| 887 | #@118 Keep only those lines that are descendants from the same top headline. | |
| 888 | The top headline is that of the current line. | |
| 889 | (defalias 'org-agenda-filter-by-top-headline #[(strip) "\203 \304\211\305 \207\306\307\310\311 \"\262!\211\203! \312\n \"\202$ \313\314!)\207" [org-agenda-filtered-by-top-headline org-agenda-top-headline-filter toph strip nil org-agenda-filter-show-all-top-filter org-find-top-headline org-hd-marker get-text-property point-at-bol org-agenda-filter-top-headline-apply error "No top-level headline at point"] 6 (#$ . 255655) "P"]) | |
| 890 | (defvar org-agenda-regexp-filter nil) | |
| 891 | #@258 Filter agenda entries by a regular expression. | |
| 892 | Regexp filters are cumulative. | |
| 893 | With no prefix argument, keep entries matching the regexp. | |
| 894 | With one prefix argument, filter out entries matching the regexp. | |
| 895 | With two prefix arguments, remove the regexp filters. | |
| 896 | (defalias 'org-agenda-filter-by-regexp #[(strip) "\303\232\204* \304\232\203 \305\202 \306\307\310\232\203 \311\202 \312!P\211\nB\313\n\314\")\207\315 \210\316\317!\207" [strip flt org-agenda-regexp-filter (16) (4) "-" "+" read-from-minibuffer (4) "Filter out entries matching regexp: " "Narrow to entries matching regexp: " org-agenda-filter-apply regexp org-agenda-filter-show-all-re message "Regexp filter removed"] 5 (#$ . 256254) "P"]) | |
| 897 | (defvar org-agenda-effort-filter nil) | |
| 898 | #@226 Filter agenda entries by effort. | |
| 899 | With no prefix argument, keep entries matching the effort condition. | |
| 900 | With one prefix argument, filter out entries matching the condition. | |
| 901 | With two prefix arguments, remove the effort filters. | |
| 902 | (defalias 'org-agenda-filter-by-effort #[(strip) "\306\235\203x \307\310 \311P\n\"A\206 \312!\211\205 \313\314\315\316 G\"\" \317\211 \320>\2041 \321\322!\211\202$ \323\324\325\326\327 \330#P \f$\331 % &%\f>\204X \332&!\210\321 \333Z\211%\202D \203` \334\202a \335\336 !\337%S\340\" 8QC'*\341'\342\"+\207\343 \210\332\344!\207" [strip org-effort-property org-global-properties efforts allowed-keys op (nil 4) split-string assoc "_ALL" "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00" mapcar #[(n) "\301\302\"\207" [n mod 10] 3] number-sequence 1 nil (60 62 61) read-char-exclusive "Effort operator? (> = or <)" apply format "Effort %c " mapconcat #[(s) "\301P\207" [s "[%d]"] 2] " " -1 message 48 "-" "+" char-to-string mod 10 org-agenda-filter-apply effort org-agenda-filter-show-all-effort "Effort filter removed" eff prompt org-agenda-effort-filter] 8 (#$ . 257006) "P"]) | |
| 903 | #@52 Remove all filters from the current agenda buffer. | |
| 904 | (defalias 'org-agenda-filter-remove-all #[nil "\203 \305 \210 \203 \306 \210\n\203 \307 \210 \203 \310 \210\f\203# \311 \210\312 \207" [org-agenda-tag-filter org-agenda-category-filter org-agenda-regexp-filter org-agenda-top-headline-filter org-agenda-effort-filter org-agenda-filter-show-all-tag org-agenda-filter-show-all-cat org-agenda-filter-show-all-re org-agenda-filter-show-all-top-filter org-agenda-filter-show-all-effort org-agenda-finalize] 1 (#$ . 258126) nil]) | |
| 905 | #@529 Keep only those lines in the agenda buffer that have a specific tag. | |
| 906 | ||
| 907 | The tag is selected with its fast selection letter, as configured. | |
| 908 | ||
| 909 | With a `\[universal-argument]' prefix, exclude the agenda search. | |
| 910 | ||
| 911 | With a `\[universal-argument] \[universal-argument]' prefix, filter the literal tag, i.e. don't | |
| 912 | filter on all its group members. | |
| 913 | ||
| 914 | A lisp caller can specify CHAR. EXCLUDE means that the new tag | |
| 915 | should be used to exclude the search - the interactive user can | |
| 916 | also press `-' or `+' to switch between filtering and excluding. | |
| 917 | (defalias 'org-agenda-filter-by-tag #[(arg &optional char exclude) "\306\307\310#\311\312\n\311\313\"\262\"\f\206 \314\232 \315\232? 2\316 3# 4\313\211 5 6\313 !7\204v 7 >\204v \317\320\f\203G \321\202H \322\n8\203R \323\202S \3102\203\\ \310\202] \324%\210\325 \2117\326\267\2026 \316\2026 \313\2026 \2026 7\327=\203\231 \330\331p\"\204\214 \332\331!\210\331 \316 9\333\334\313\316$!)7\335=\203\351 \336 \2108\205q\313#\337 \313 !\211 :\203\327 :@!8!!\211 ;\203\315 ;#B#):A\211:\204\266 *#??\205q\340#\3412#\202q7\342=\203\336 \210\343\344N\205q\340#\3412#\202q7\345=\203!\346\347\350\351\352 \"\262\"#\340#\3412#\202q7\353=\206q7\354=\204I\3557 \"\2115\204I!\203l!\313B\2115\203l\336 \2105@!\f\203Y\356\202Z\357!P4B#\340#\3412#\202q\360\3617\".\n\207" [org-tag-alist-for-agenda alist tag-chars valid-char-list exclude arg mapconcat #[(x) "@9\204 A\203 \301A!\207\302\207" [x char-to-string #1=""] 2] #1# append (9 13 47 46 32 113) nil (4) (16) t message "%s by tag [%s ]:tag-char, [TAB]:tag, %s[/]:off, [+/-]:filter/exclude%s, [q]:quit" "Exclude" "Filter" "[RET], " ", no grouptag expand" read-char-exclusive #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (45 105 43 110)) 9 local-variable-p org-global-tags-completion-table make-local-variable completing-read "Tag: " 13 org-agenda-filter-show-all-tag org-agenda-get-represented-tags org-agenda-filter-apply tag 47 org-agenda-tag-filter :preset-filter 46 mapcar #[(tag) "\301P\207" [tag "+"] 2] tags get-text-property point-at-bol 113 32 rassoc "-" "+" error "Invalid tag selection character %c" expand inhibit-read-only current a n char org-agenda-auto-exclude-function completion-ignore-case --dolist-tail-- modifier] 7 (#$ . 258662) "P"]) | |
| 918 | #@61 Get a list of all tags currently represented in the agenda. | |
| 919 | (defalias 'org-agenda-get-represented-tags #[nil "\302\211\212eb\210\303`\300\"\211\203 b\210\304\305\306`\300\"\"\210\202 )*\207" [tags p nil next-single-property-change mapc #[(x) " \235\203 \207 B\211\207" [x tags] 2] get-text-property] 5 (#$ . 261015)]) | |
| 920 | #@192 Create the form that tests a line for agenda filter. Optional | |
| 921 | argument EXPAND can be used for the TYPE tag and will expand the | |
| 922 | tags in the FILTER if any of the tags in FILTER are grouptags. | |
| 923 | (defalias 'org-agenda-filter-make-matcher #[(filter type &optional expand) "\306\211\n\307\267\202\356 \310\311\312\313N \"!\211\306 \211 \203F @\314\f! \2031 \315\fC\316\"\2024 \fC\317\f \"\211 B) A\211\204 *\202\356 \310\311\320\313N \"!\211\306 \211 \203\207 @\211\321\322O\323\232\203t \324\325\f\322\306O\326ED\202| \325\f\322\306O\326E B A\211\204[ *\202\356 \310\311\327\313N \"!\211\306 \211 \203\310 @\211\321\322O\323\232\203\265 \324\330\f\322\306O\331ED\202\275 \330\f\322\306O\331E B A\211\204\234 *\202\356 \310\311\332\313N \"!\211\306 \211 \203\355 @\333\f! B A\211\204\335 *\334 \237*B\207" [f1 f type filter x --dolist-tail-- nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tag 10 category 74 regexp 139 effort 204)) delete-dups append org-agenda-tag-filter :preset-filter string-to-char org-agenda-filter-expand-tags t org-agenda-filter-make-matcher-tag-exp org-agenda-category-filter 0 1 "-" not equal cat org-agenda-regexp-filter string-match txt org-agenda-effort-filter org-agenda-filter-effort-form and op expand] 6 (#$ . 261352)]) | |
| 924 | #@222 Return a form associated to tag-expression TAGS. | |
| 925 | Build a form testing a line for agenda filter for | |
| 926 | tag-expressions. OP is an operator of type CHAR that allows the | |
| 927 | function to set the right switches in the returned form. | |
| 928 | (defalias 'org-agenda-filter-make-matcher-tag-exp #[(tags op) "\306 \306\211\203h @\211\307\306O\211 \310\230\203 \311\202K \312\f\306\313 \314#)\266\203\203F \315\f\306\313 \314#)\266\203\203F \316\f\307\317O\301E\202K \320\f\227\301E \321=\203[ \322D\202] B* A\211\204\n \306\321=\203u \323\202v \324+B\207" [form tags x --dolist-tail-- tag inhibit-changing-match-data nil 1 "" (not tags) "\\`{" t string-match "}\\'" org-match-any-p -1 member 45 not and or f op] 8 (#$ . 262684)]) | |
| 929 | #@100 Return the form to compare the effort of the current line with what E says. | |
| 930 | E looks like "+<2:25". | |
| 931 | (defalias 'org-agenda-filter-effort-form #[(e) "\302 \303\302O\304 ! \303\302O\305\267\202\" \306\202# \307\202# \202# \310\311\312D\313 !E)\207" [op e nil 1 string-to-char #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (60 22 62 26 63 30)) <= >= = org-agenda-compare-effort quote org-duration-to-minutes] 4 (#$ . 263422)]) | |
| 932 | #@119 Compare the effort of the current line with VALUE, using OP. | |
| 933 | If the line does not have an effort defined, return nil. | |
| 934 | (defalias 'org-agenda-compare-effort #[(op value) "\304\305\306\307\304\310 \"\262# \206 \n\203 \311\202 \312 \")\207" [effort op org-sort-agenda-noeffort-is-high value get-text-property 0 effort-minutes txt point-at-bol 32767 -1] 7 (#$ . 263901)]) | |
| 935 | #@118 Expand group tags in FILTER for the agenda. | |
| 936 | When NO-OPERATOR is non-nil, do not add the + operator to returned tags. | |
| 937 | (defalias 'org-agenda-filter-expand-tags #[(filter &optional no-operator) "\203 \304\305\306\307 \"\210\310 !*\207 \207" [org-group-tags rtn case-fold-search filter t nil mapc #[(f) "\305\211\306\307\n\"\203 \310\311\n\"\310\312\n\"\202$ \203 \313\202! \314\n\315\316\317\320 \321\211#\"\f\"\211*\207" [dir f0 f no-operator rtn nil string-match "^\\([+-]\\)\\(.+\\)" match-string 1 2 "" "+" append mapcar #[(f1) " P\207" [dir f1] 2] org-tags-expand t] 7] reverse] 3 (#$ . 264282)]) | |
| 938 | #@189 Set FILTER as the new agenda filter and apply it. Optional | |
| 939 | argument EXPAND can be used for the TYPE tag and will expand the | |
| 940 | tags in the FILTER if any of the tags in FILTER are grouptags. | |
| 941 | (defalias 'org-agenda-filter-apply #[(filter type &optional expand) "\203 \300 \210\306\211\211\307\f # \310=\205# \f@\311\312O\313\232? \314 \210\212eb\210m\204k \315\316\317 \"\262\203d \303\316\317 \"\262\320\321\312\"\301\316\317 \"\262\322!\204] \323 !\210\324\325!\210\202, \324\325!\210\202, )\326`\327\"\205 \3301} \331 0\202 \210\306+\207" [org-agenda-entry-text-mode txt cat tags filter type nil org-agenda-filter-make-matcher category 0 1 "-" org-agenda-set-mode-name org-marker get-text-property point-at-bol org-get-at-eol org-category eval org-agenda-filter-hide-line beginning-of-line 2 get-char-property invisible (error) org-agenda-previous-line expand org-agenda-filter-form org-agenda-filtered-by-category] 4 (#$ . 264903)]) | |
| 942 | #@28 Filter by top headline HL. | |
| 943 | (defalias 'org-agenda-filter-top-headline-apply #[(hl &optional negative) "\306 \210\212eb\210m\204< \307\310\311 \"\262\211\205 \312!\211\2034 \n\203( \313\202) \314 \230!\2034 \315\316!\210*\317\320!\210\202 )\321`\322\"\203G \323 \210 \324\211\207" [pos tophl negative hl org-agenda-top-headline-filter org-agenda-filtered-by-top-headline org-agenda-set-mode-name org-hd-marker get-text-property point-at-bol org-find-top-headline identity not org-agenda-filter-hide-line top-headline beginning-of-line 2 get-char-property invisible org-agenda-previous-line t] 5 (#$ . 265864)]) | |
| 944 | #@44 Hide lines with TYPE in the agenda buffer. | |
| 945 | (defalias 'org-agenda-filter-hide-line #[(type) "e\304 S]\305 \306\307 \310\311\312 F#+\207" [b e inhibit-read-only type point-at-bol point-at-eol t add-text-properties invisible org-filtered org-filter-type] 7 (#$ . 266489)]) | |
| 946 | (defalias 'org-agenda-remove-filter #[(type) "\212eb\210\304\305\306`d\307\n$\211\203& b\210\310`\311`\307\"\312\313\307\nF#\210\202 *\314\315\316\317\n!\"!\305L\210\305\320 \210\321 )\207" [pos inhibit-read-only type org-agenda-filter-form t nil text-property-any org-filter-type remove-text-properties next-single-property-change invisible org-filtered intern format "org-agenda-%s-filter" intern-soft org-agenda-set-mode-name org-agenda-finalize] 7 nil nil]) | |
| 947 | (defalias 'org-agenda-filter-show-all-tag #[nil "\300\301!\207" [org-agenda-remove-filter tag] 2]) | |
| 948 | (defalias 'org-agenda-filter-show-all-re #[nil "\300\301!\207" [org-agenda-remove-filter regexp] 2]) | |
| 949 | (defalias 'org-agenda-filter-show-all-effort #[nil "\300\301!\207" [org-agenda-remove-filter effort] 2]) | |
| 950 | (defalias 'org-agenda-filter-show-all-cat #[nil "\300\301!\207" [org-agenda-remove-filter category] 2]) | |
| 951 | (defalias 'org-agenda-filter-show-all-top-filter #[nil "\300\301!\207" [org-agenda-remove-filter top-headline] 2]) | |
| 952 | #@148 Manipulate the query by adding a search term with positive selection. | |
| 953 | Positive selection means the term must be matched for selection of an entry. | |
| 954 | (defalias 'org-agenda-manipulate-query-add #[nil "\300\301!\207" [org-agenda-manipulate-query 91] 2 (#$ . 267762) nil]) | |
| 955 | #@148 Manipulate the query by adding a search term with negative selection. | |
| 956 | Negative selection means term must not be matched for selection of an entry. | |
| 957 | (defalias 'org-agenda-manipulate-query-subtract #[nil "\300\301!\207" [org-agenda-manipulate-query 93] 2 (#$ . 268036) nil]) | |
| 958 | #@147 Manipulate the query by adding a search regexp with positive selection. | |
| 959 | Positive selection means the regexp must match for selection of an entry. | |
| 960 | (defalias 'org-agenda-manipulate-query-add-re #[nil "\300\301!\207" [org-agenda-manipulate-query 123] 2 (#$ . 268315) nil]) | |
| 961 | #@147 Manipulate the query by adding a search regexp with negative selection. | |
| 962 | Negative selection means regexp must not match for selection of an entry. | |
| 963 | (defalias 'org-agenda-manipulate-query-subtract-re #[nil "\300\301!\207" [org-agenda-manipulate-query 125] 2 (#$ . 268592) nil]) | |
| 964 | (defalias 'org-agenda-manipulate-query #[(char) "\306\267\202I \307\310 \210)\311\312!\207\313\304\n\203 \314 \315\"A\202 \316\"\210\317\320dS`^\321\"@\f\211G \322\235\2037 \323\2028 \324\\F\325\f\"\210 A \310 )\207\326\327\"\207" [org-agenda-type org-agenda-include-inactive-timestamps org-agenda-last-search-view-search-was-boolean char org-agenda-query-string org-agenda-redo-command #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (agenda 6 search 16)) t org-agenda-redo message "Display now includes inactive timestamps as well" org-add-to-string assoc ((91 . " +") (93 . " -") (123 . " +{}") (125 . " -{}")) " " org-search-view get-text-property org-last-args (123 125) 0 1 set-register error "Cannot manipulate query for %s-type agenda buffers" org-agenda-query-register org-agenda-overriding-arguments] 6]) | |
| 965 | (defalias 'org-add-to-string #[(var string) "\211J PL\207" [var string] 3]) | |
| 966 | #@25 Jump to DATE in agenda. | |
| 967 | (defalias 'org-agenda-goto-date #[(span) "\306!\307 \310\311\n!!\f \312 \313dS`^\314\" \206$ @ \315 8 !\316\"8 #\317 \n\320!\321\n!\"#\257\211 $A %\322 &\323 \324\322\325\"\204Y \326\327!\202\217 \330ed\331$\314%F#\210\332 \210eb\210\313`\303\"\206s \333 U\204\211 \212\334\315!\210m)\204\211 \334\315!\210\202k \211\211'. \207" [org-agenda-jump-prefer-future org-read-date-prefer-future date day org-agenda-sticky org-agenda-sticky-orig eval org-read-date time-to-days org-time-string-to-time buffer-name get-text-property org-last-args 2 4 org-agenda-list org-agenda-span-to-ndays org-time-string-to-absolute t nil org-agenda-check-type agenda error "Not available in non-agenda views" add-text-properties org-redo-cmd org-agenda-redo 0 move-beginning-of-line org-agenda-buffer-tmp-name args current-prefix-arg 0-arg 2-arg org-agenda-redo-command with-hour-p newcmd newargs inhibit-read-only org-agenda-this-buffer-is-sticky] 8 (#$ . 269811) "P"]) | |
| 968 | #@14 Go to today. | |
| 969 | (defalias 'org-agenda-goto-today #[nil "\306\307\310\"\210\311dS`^\312\"\3138\314ed\315\307$\211\203! \nb\202I \310=\203F \316\315 \206/ \f\" \211 A\211 \240\210)\317 \210\320 *\202I \321\322!+\207" [args curspan tdpos org-agenda-type org-agenda-span sd org-agenda-check-type t agenda get-text-property org-last-args 2 text-property-any org-today org-agenda-compute-starting-span org-agenda-redo org-agenda-find-same-or-today-or-agenda error "Cannot find today" org-agenda-overriding-arguments #1=#:c] 6 (#$ . 270814) nil]) | |
| 970 | (defalias 'org-agenda-find-same-or-today-or-agenda #[(&optional cnt) "\203 \301ed\302$\206/ \301ed\303\304$\206/ \301ed\305\306$\206/ \307dS`^\310\"\203. \311 \206/ eb\207" [cnt text-property-any org-day-cnt org-today t org-agenda-type agenda get-text-property org-series org-agenda-backward-block] 5]) | |
| 971 | #@36 Move backward by one agenda block. | |
| 972 | (defalias 'org-agenda-backward-block #[nil "\300\301!\207" [org-agenda-forward-block backward] 2 (#$ . 271673) nil]) | |
| 973 | #@87 Move forward by one agenda block. | |
| 974 | When optional argument BACKWARD is set, go backward | |
| 975 | (defalias 'org-agenda-forward-block #[(&optional backward) "\305\306!\204\n \307\310!\207\311\203 \312\202 \313!\203% \314\315\203\" \316\202# \317\"\207`\3201: \2033 \321u\2026 \322\323!0\202> \210\202? \210\203G \324\202H \325\326\211 `\327\"\211\203f \330`\327\"\204f \331 b\210\202N \n\203p \332\323!\202\213 \203x e\202y db\210\332\323!\210\314\333\203\211 \334\202\212 \335\",\207" [backward dest moved f pos derived-mode-p org-agenda-mode user-error "Cannot execute this command outside of org-agenda-mode buffers" looking-at "\\`" "\\'" message "Already at the %s block" "first" "last" (error) -1 move-end-of-line 1 previous-single-property-change next-single-property-change nil org-agenda-structural-header get-text-property t move-beginning-of-line "No %s block" "previous" "further"] 4 (#$ . 271831) nil]) | |
| 976 | #@103 Go forward in time by the current span. | |
| 977 | With prefix ARG, go forward that many times the current span. | |
| 978 | (defalias 'org-agenda-later #[(arg) "\306\307\310\"\210\311dS`^\312\"\3138\206 A@\206' \314\311\315 \"\262\206' \316\f! \317\311\315 \"\262 (\320 )\n\247\203H \n*_\f\\\202/\n\314=\203V *\f\\\202/\n\321=\203f *\322_\f\\\202/\n\323=\203v *\324_\f\\\202/\n\325=\203M @*\\ A@\313 8E\211)\211 + +\313+8)\320 ,\211 $\326U\203\246 \327\330!\202A$\326V\203=$S,\331+\211 +\211 +@) +\211 +A@) \f+ +\313+8) $\fS\332_\\ -\313V\203%-\333\334_\\\335\245Z-$\211 $\326W\203\336$!S$$\334\246\326U\205 $\337\246\326U?\206 $\340\246\326U)\203%-T---,\341_,\334\245,\337\245[,\340\245%\202A\336$T!,\342+\211 +\211 +@) +\211 +A@) \f+ +\313+8) $\fS\332_\\ -\313V\203\267-\333\334_\\\335\245Z-$\211 $\326W\203\225\336$!S$$\334\246\326U\205\256$\337\246\326U?\206\256$\340\246\326U)\203\267-T---,\341_,\334\245,\337\245[,\340\245\343\211 +\211 +@) +\211 +A@) \f+ +\313+8) $\fS\332_\\ -\313V\203<-\333\334_\\\335\245Z-$\211 $\326W\203\336$!S$$\334\246\326U\2053$\337\246\326U?\2063$\340\246\326U)\203<-T---&+)\211@T\240\210\202/\n\344=\203( @ A@*\313 8\\E\211)\211 + +\313+8)\320 ,\211 $\326U\203}\327\330!\202$\326V\203$S,\331+\211 +\211 +@) +\211 +A@) \f+ +\313+8) $\fS\332_\\ -\313V\203\374-\333\334_\\\335\245Z-$\211 $\326W\203\332\336$!S$$\334\246\326U\205\363$\337\246\326U?\206\363$\340\246\326U)\203\374-T---,\341_,\334\245,\337\245[,\340\245%\202\336$T!,\342+\211 +\211 +@) +\211 +A@) \f+ +\313+8) $\fS\332_\\ -\313V\203\216-\333\334_\\\335\245Z-$\211 $\326W\203l\336$!S$$\334\246\326U\205\205$\337\246\326U?\206\205$\340\246\326U)\203\216-T---,\341_,\334\245,\337\245[,\340\245\343\211 +\211 +@) +\211 +A@) \f+ +\313+8) $\fS\332_\\ -\313V\203-\333\334_\\\335\245Z-$\211 $\326W\203\361\336$!S$$\334\246\326U\205\n$\337\246\326U?\206\n$\340\246\326U)\203-T---&+)AA\313)8T\240\210\202/\n*_\f\\\311dS`^\345\"@\f\nE . /\346 \210\347(!.\207" [args org-agenda-current-span span org-starting-day sd greg org-agenda-check-type t agenda get-text-property org-last-args 2 day point-at-bol calendar-gregorian-from-absolute org-day-cnt nil week 7 fortnight 14 month 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) year org-series-cmd org-agenda-redo org-agenda-find-same-or-today-or-agenda cnt greg2 arg date offset-years day-of-year org-agenda-overriding-arguments org-agenda-overriding-cmd] 11 (#$ . 272756) "p"]) | |
| 979 | #@105 Go backward in time by the current span. | |
| 980 | With prefix ARG, go backward that many times the current span. | |
| 981 | (defalias 'org-agenda-earlier #[(arg) "\301[!\207" [arg org-agenda-later] 2 (#$ . 275436) "p"]) | |
| 982 | #@37 Call one of the view mode commands. | |
| 983 | (defalias 'org-agenda-view-mode-dispatch #[nil "\303\304!\210\305 \211\306=\203 \307\310!\202\375 \311=\203 \307\312!\202\375 \313=\203+ \307\314!\202\375 \315=\2037 \307\316!\202\375 \317=\203C \307\320!\202\375 \321=\203O \307\322!\202\375 \323=\203[ \307\324!\202\375 \325=\203g \324\326!\202\375 \327=\203s \324\330!\202\375 \331>\203 \307\332!\202\375 \333=\203\213 \307\334!\202\375 \335=\203\227 \334\336!\202\375 \337>\203\243 \307\340!\202\375 \341>\203\257 \307\342!\202\375 \343=\203\273 \307\344!\202\375 \345=\203\307 \307\346!\202\375 \347=\203\323 \307\350!\202\375 \351=\203\352 \352\353\352\354\"\210\355 \210)\303\356!\202\375 \357=\203\366 \303\360!\202\375 \361\362\n\"))\207" [#1=#:val org-agenda-include-inactive-timestamps key message "View: [d]ay [w]eek for[t]night [m]onth [y]ear [SPC]reset [q]uit/abort\n time[G]rid [[]inactive [f]ollow [l]og [L]og-all [c]lockcheck\n [a]rch-trees [A]rch-files clock[R]eport include[D]iary [E]ntryText" read-char-exclusive 32 call-interactively org-agenda-reset-view 100 org-agenda-day-view 119 org-agenda-week-view 116 org-agenda-fortnight-view 109 org-agenda-month-view 121 org-agenda-year-view 108 org-agenda-log-mode 76 (4) 99 clockcheck (102 70) org-agenda-follow-mode 97 org-agenda-archives-mode 65 files (114 82) org-agenda-clockreport-mode (101 69) org-agenda-entry-text-mode 71 org-agenda-toggle-time-grid 68 org-agenda-toggle-diary 33 org-agenda-toggle-deadlines 91 t org-agenda-check-type agenda org-agenda-redo "Display now includes inactive timestamps as well" 113 "Abort" user-error "Invalid key: %s"] 4 (#$ . 275643) nil]) | |
| 984 | #@36 Switch to default view for agenda. | |
| 985 | (defalias 'org-agenda-reset-view #[nil "\301!\207" [org-agenda-span org-agenda-change-time-span] 2 (#$ . 277342) nil]) | |
| 986 | #@95 Switch to daily view for agenda. | |
| 987 | With argument DAY-OF-MONTH, switch to that day of the month. | |
| 988 | (defalias 'org-agenda-day-view #[(&optional day-of-month) "\301\302\"\207" [day-of-month org-agenda-change-time-span day] 3 (#$ . 277503) "P"]) | |
| 989 | #@343 Switch to weekly view for agenda. | |
| 990 | With argument ISO-WEEK, switch to the corresponding ISO week. | |
| 991 | If ISO-WEEK has more then 2 digits, only the last two encode | |
| 992 | the week. Any digits before this encode a year. So 200712 | |
| 993 | means week 12 of year 2007. Years ranging from 70 years ago | |
| 994 | to 30 years in the future can also be written as 2-digit years. | |
| 995 | (defalias 'org-agenda-week-view #[(&optional iso-week) "\301\302\"\207" [iso-week org-agenda-change-time-span week] 3 (#$ . 277749) "P"]) | |
| 996 | #@348 Switch to fortnightly view for agenda. | |
| 997 | With argument ISO-WEEK, switch to the corresponding ISO week. | |
| 998 | If ISO-WEEK has more then 2 digits, only the last two encode | |
| 999 | the week. Any digits before this encode a year. So 200712 | |
| 1000 | means week 12 of year 2007. Years ranging from 70 years ago | |
| 1001 | to 30 years in the future can also be written as 2-digit years. | |
| 1002 | (defalias 'org-agenda-fortnight-view #[(&optional iso-week) "\301\302\"\207" [iso-week org-agenda-change-time-span fortnight] 3 (#$ . 278237) "P"]) | |
| 1003 | #@321 Switch to monthly view for agenda. | |
| 1004 | With argument MONTH, switch to that month. If MONTH has more | |
| 1005 | then 2 digits, only the last two encode the month. Any digits | |
| 1006 | before this encode a year. So 200712 means December year 2007. | |
| 1007 | Years ranging from 70 years ago to 30 years in the future can | |
| 1008 | also be written as 2-digit years. | |
| 1009 | (defalias 'org-agenda-month-view #[(&optional month) "\301\300\"\207" [month org-agenda-change-time-span] 3 (#$ . 278740) "P"]) | |
| 1010 | #@173 Switch to yearly view for agenda. | |
| 1011 | With argument YEAR, switch to that year. Years ranging from 70 | |
| 1012 | years ago to 30 years in the future can also be written as | |
| 1013 | 2-digit years. | |
| 1014 | (defalias 'org-agenda-year-view #[(&optional year) "\203 \301!\302\303!\203 \304\300\"\207\305\306!\207" [year org-small-year-to-year y-or-n-p "Are you sure you want to compute the agenda for an entire year? " org-agenda-change-time-span error "Abort"] 3 (#$ . 279196) "P"]) | |
| 1015 | #@90 Change the agenda view to SPAN. | |
| 1016 | SPAN may be `day', `week', `fortnight', `month', `year'. | |
| 1017 | (defalias 'org-agenda-change-time-span #[(span &optional n) "\306\307\310\"\210\311dS`^\312\"\3138\n\204 \232\203 \314\315 \"\210\316\311\317 \"\262\2062 A@\2062 \f \320 \n# \311dS`^\321\" @ E \322 \210\323 \210,\324 \210\325\326 \"*\207" [args curspan n span org-starting-day sd org-agenda-check-type t agenda get-text-property org-last-args 2 error "Viewing span is already \"%s\"" day point-at-bol org-agenda-compute-starting-span org-series-cmd org-agenda-redo org-agenda-find-same-or-today-or-agenda org-agenda-set-mode-name message "Switched to %s view" org-agenda-overriding-cmd org-agenda-overriding-arguments] 4 (#$ . 279655)]) | |
| 1018 | #@215 Compute starting date for agenda. | |
| 1019 | SPAN may be `day', `week', `fortnight', `month', `year'. The return value | |
| 1020 | is a cons cell with the starting date and the number of days, | |
| 1021 | so that the date SD will be in that range. | |
| 1022 | (defalias 'org-agenda-compute-starting-span #[(sd span &optional n) "\306!\211A@ @\307 8 \310=\203\336'\203\377\311 \312\fE\211 ( (\307(8)\313 )\211 &\314U\203: \315\316!\202\325&\314V\203\321 &S)\311(\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203\271 *\320%\321_\\\322\245Z*&\211 &\314W\203\227 \323&!S&&\321\246\314U\205\260 &\324\246\314U?\206\260 &\325\246\314U)\203\271 *T**-)\326_)\321\245)\324\245[)\325\245%\202\325\323&T!)\327(\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203K*\320%\321_\\\322\245Z*&\211 &\314W\203)\323&!S&&\321\246\314U\205B&\324\246\314U?\206B&\325\246\314U)\203K*T**-)\326_)\321\245)\324\245[)\325\245\330\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203\320*\320%\321_\\\322\245Z*&\211 &\314W\203\256\323&!S&&\321\246\314U\205\307&\324\246\314U?\206\307&\325\246\314U)\203\320*T**-&+'\331#\202\377 \332=\204\352 \333=\203J\334\306!! +,\203\376+,Z\202\377\314 -\313 .-\314W\203\335\202\314-\\Z'\203F\336\337!\210'\340V\2035\341'\324\245!.\342'\324\"'\343'\312.\206C\307\344!8E!+\202\377 \345=\2038\313 .'\203n'\340V\203n\341'\324\245!.\342'\324\"''\206t \312.\206{\fE\211 ( (\307(8)\313 )\211 &\314U\203\227\315\316!\2022&\314V\203.&S)\311(\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203*\320%\321_\\\322\245Z*&\211 &\314W\203\364\323&!S&&\321\246\314U\205 &\324\246\314U?\206 &\325\246\314U)\203*T**-)\326_)\321\245)\324\245[)\325\245%\2022\323&T!)\327(\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203\250*\320%\321_\\\322\245Z*&\211 &\314W\203\206\323&!S&&\321\246\314U\205\237&\324\246\314U?\206\237&\325\246\314U)\203\250*T**-)\326_)\321\245)\324\245[)\325\245\330\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203-*\320%\321_\\\322\245Z*&\211 &\314W\203 \323&!S&&\321\246\314U\205$&\324\246\314U?\206$&\325\246\314U)\203-*T**-&+)\202\377 \346=\203\377\312\211'\206F\fE\211 ( (\307(8)\313 )\211 &\314U\203b\315\316!\202\375&\314V\203\371&S)\311(\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203\341*\320%\321_\\\322\245Z*&\211 &\314W\203\277\323&!S&&\321\246\314U\205\330&\324\246\314U?\206\330&\325\246\314U)\203\341*T**-)\326_)\321\245)\324\245[)\325\245%\202\375\323&T!)\327(\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203s*\320%\321_\\\322\245Z*&\211 &\314W\203Q\323&!S&&\321\246\314U\205j&\324\246\314U?\206j&\325\246\314U)\203s*T**-)\326_)\321\245)\324\245[)\325\245\330\211 (\211 (@) %(\211 (A@) ( (\307(8) &%S\317_\\ *%\307V\203\370*\320%\321_\\\322\245Z*&\211 &\314W\203\326\323&!S&&\321\246\314U\205\357&\324\246\314U?\206\357&\325\246\314U)\203\370*T**-&+,\207" [sd greg dg mg yg span calendar-gregorian-from-absolute 2 day + 1 nil 0 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) -1 week fortnight calendar-day-of-week 7 require cal-iso 99 org-small-year-to-year mod calendar-iso-to-absolute calendar-iso-from-absolute month year n date offset-years day-of-year nt org-agenda-start-on-weekday d y1] 12 (#$ . 280403)]) | |
| 1023 | #@59 Jump to the next line indicating a date in agenda buffer. | |
| 1024 | (defalias 'org-agenda-next-date-line #[(&optional arg) "\301\302\303\"\210\304\305!\210\306\307!\203 \305u\210\310\307\311\302$\204\" \312u\210\313\314!\210\315\224b\207" [arg org-agenda-check-type t agenda beginning-of-line 1 looking-at "^\\S-" re-search-forward nil -1 error "No next date after this line in this buffer" 0] 5 (#$ . 283956) "p"]) | |
| 1025 | #@63 Jump to the previous line indicating a date in agenda buffer. | |
| 1026 | (defalias 'org-agenda-previous-date-line #[(&optional arg) "\301\302\303\"\210\304\305!\210\306\307\310\302$?\205 \311\312!\207" [arg org-agenda-check-type t agenda beginning-of-line 1 re-search-backward "^\\S-" nil error "No previous date before this line in this buffer"] 5 (#$ . 284370) "p"]) | |
| 1027 | (defvar org-hl (byte-code "\300\301\211\"\207" [make-overlay 1] 3)) | |
| 1028 | (overlay-put org-hl 'face 'highlight) | |
| 1029 | #@34 Highlight a region with overlay. | |
| 1030 | (defalias 'org-highlight #[(begin end &optional buffer) "\304 \n \206 p$\207" [org-hl begin end buffer move-overlay] 5 (#$ . 284842)]) | |
| 1031 | #@23 Detach overlay INDEX. | |
| 1032 | (defalias 'org-unhighlight #[nil "\301!\207" [org-hl delete-overlay] 2 (#$ . 285018)]) | |
| 1033 | #@74 Remove the highlight from its position, and this function from the hook. | |
| 1034 | (defalias 'org-unhighlight-once #[nil "\300\301\302\"\210\303 \207" [remove-hook pre-command-hook org-unhighlight-once org-unhighlight] 3 (#$ . 285134)]) | |
| 1035 | (defvar org-agenda-pre-follow-window-conf nil) | |
| 1036 | #@41 Toggle follow mode in an agenda buffer. | |
| 1037 | (defalias 'org-agenda-follow-mode #[nil "\204 \302 ?\211\204 \303 !\210\304 \210\305 \210\306\307\203\" \310\202# \311\"\207" [org-agenda-follow-mode org-agenda-pre-follow-window-conf current-window-configuration set-window-configuration org-agenda-set-mode-name org-agenda-do-context-action message "Follow mode is %s" "on" "off"] 4 (#$ . 285414) nil]) | |
| 1038 | #@45 Toggle entry text mode in an agenda buffer. | |
| 1039 | (defalias 'org-agenda-entry-text-mode #[(&optional arg) "\204 \204 \n\204 \203 \306\307!\207\f\250\206 ?\310 \210 \2034 \f\250\203, \f\202. \311 \210)\312 \210\313\314 \203A \315\202B \316 \204J \317\202X \320\321\f\250\203U \f\202W \"#\207" [org-agenda-tag-filter org-agenda-category-filter org-agenda-regexp-filter org-agenda-top-headline-filter arg org-agenda-entry-text-mode user-error "Can't show entry text in filtered views" org-agenda-entry-text-hide org-agenda-entry-text-show org-agenda-set-mode-name message "Entry text mode is %s%s" "on" "off" "" format " (maximum number of lines is %d)" org-agenda-entry-text-maxlines] 6 (#$ . 285821) "P"]) | |
| 1040 | #@45 Toggle clocktable mode in an agenda buffer. | |
| 1041 | (defalias 'org-agenda-clockreport-mode #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203 \310\202 \311\"\207" [org-agenda-clockreport-mode org-agenda-check-type t agenda org-agenda-set-mode-name org-agenda-redo message "Clocktable mode is %s" "on" "off"] 3 (#$ . 286542) nil]) | |
| 1042 | #@251 Toggle log mode in an agenda buffer. | |
| 1043 | ||
| 1044 | With argument SPECIAL, show all possible log items, not only the ones | |
| 1045 | configured in `org-agenda-log-mode-items'. | |
| 1046 | ||
| 1047 | With a `\[universal-argument] \[universal-argument]' prefix, show *only* log items, nothing else. | |
| 1048 | (defalias 'org-agenda-log-mode #[(&optional special) "\302\303\304\"\210\305\232\203 \306\202* \307=\203 \307=?\205* \307\202* \203( \310\202* ?\311 \210\312 \210\313\314 \203; \315\202< \316\"\207" [special org-agenda-show-log org-agenda-check-type t agenda (16) only clockcheck (closed clock state) org-agenda-set-mode-name org-agenda-redo message "Log mode is %s" "on" "off"] 3 (#$ . 286882) "P"]) | |
| 1049 | #@130 Toggle inclusion of items in trees marked with :ARCHIVE:. | |
| 1050 | When called with a prefix argument, include all archive files as well. | |
| 1051 | (defalias 'org-agenda-archives-mode #[(&optional with-files) "\203 \303\202 ?\205 \304\305 \210\306 \210\307\310 \311\267\202/ \312\2020 \313\314\n\"\2020 \313\315\n\"\2020 \316\"\207" [with-files org-agenda-archives-mode org-archive-tag t trees org-agenda-set-mode-name org-agenda-redo message "%s" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 29 trees 33 t 40)) "No archives are included" format "Trees with :%s: tag are included" "Trees with :%s: tag and all active archive files are included" nil] 5 (#$ . 287548) "P"]) | |
| 1052 | #@45 Toggle diary inclusion in an agenda buffer. | |
| 1053 | (defalias 'org-agenda-toggle-diary #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203 \310\202 \311\"\207" [org-agenda-include-diary org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Diary inclusion turned %s" "on" "off"] 3 (#$ . 288258) nil]) | |
| 1054 | #@66 Toggle inclusion of entries with a deadline in an agenda buffer. | |
| 1055 | (defalias 'org-agenda-toggle-deadlines #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203 \310\202 \311\"\207" [org-agenda-include-deadlines org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Deadlines inclusion turned %s" "on" "off"] 3 (#$ . 288594) nil]) | |
| 1056 | #@39 Toggle time grid in an agenda buffer. | |
| 1057 | (defalias 'org-agenda-toggle-time-grid #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203 \310\202 \311\"\207" [org-agenda-use-time-grid org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Time-grid turned %s" "on" "off"] 3 (#$ . 288963) nil]) | |
| 1058 | #@60 Set the mode name to indicate all the small mode settings. | |
| 1059 | (defalias 'org-agenda-set-mode-name #[nil "\306\307\310N\203 \311\202\f \312\313\314\203 \315\202 \312 \203 \316\202 \312\n\203( \317\202) \312 \2031 \320\2022 \312\f\203: \321\202; \312\322\305!\203I \203I \323\202J \312':\203T \324\202i '\325=\203_ \326\202i '\203h \327\202i \312\204t \330\331N\203x \332\202y \312\204\204 \333\331N\203\210 \334\202\211 \312 \204\224 \335\331N\203\230 \336\202\231 \312 \204\244 \337\331N\203\250 \340\202\251 \312(\203\301 (\341=\203\271 \342\202\302 \343\344)\"\202\302 \312*\203\313 \345\202\314 \312\257+\346 \207" [org-agenda-follow-mode org-agenda-entry-text-mode org-agenda-include-diary org-agenda-include-deadlines org-agenda-use-time-grid org-habit-show-habits "Org-Agenda" org-agenda-files org-restrict " []" #1="" " " (:eval (org-agenda-span-name org-agenda-current-span)) " Follow" " ETxt" " Diary" " Ddl" " Grid" boundp " Habit" " LogAll" clockcheck " ClkCk" " Log" org-agenda-category-filter :preset-filter (:eval (propertize (concat " <" (mapconcat 'identity (append (get 'org-agenda-category-filter :preset-filter) org-agenda-category-filter) #1#) ">") 'face 'org-agenda-filter-category 'help-echo "Category used in filtering")) org-agenda-tag-filter (:eval (propertize (concat " {" (mapconcat 'identity (append (get 'org-agenda-tag-filter :preset-filter) org-agenda-tag-filter) #1#) "}") 'face 'org-agenda-filter-tags 'help-echo "Tags used in filtering")) org-agenda-effort-filter (:eval (propertize (concat " {" (mapconcat 'identity (append (get 'org-agenda-effort-filter :preset-filter) org-agenda-effort-filter) #1#) "}") 'face 'org-agenda-filter-effort 'help-echo "Effort conditions used in filtering")) org-agenda-regexp-filter (:eval (propertize (concat " [" (mapconcat 'identity (append (get 'org-agenda-regexp-filter :preset-filter) org-agenda-regexp-filter) #1#) "]") 'face 'org-agenda-filter-regexp 'help-echo "Regexp used in filtering")) t " Archives" format " :%s:" " Clock" force-mode-line-update org-agenda-show-log org-agenda-archives-mode org-archive-tag org-agenda-clockreport-mode mode-name] 18 (#$ . 289291)]) | |
| 1060 | #@44 Update the agenda type after each command. | |
| 1061 | (defalias 'org-agenda-update-agenda-type #[nil "\301`\300\"\206 \301e`S]\300\"\211\207" [org-agenda-type get-text-property] 3 (#$ . 291462)]) | |
| 1062 | #@66 Move cursor to the next line, and show if follow mode is active. | |
| 1063 | (defalias 'org-agenda-next-line #[nil "\300\301!\210\302 \207" [call-interactively next-line org-agenda-do-context-action] 2 (#$ . 291655) nil]) | |
| 1064 | #@70 Move cursor to the previous line, and show if follow-mode is active. | |
| 1065 | (defalias 'org-agenda-previous-line #[nil "\300\301!\210\302 \207" [call-interactively previous-line org-agenda-do-context-action] 2 (#$ . 291871) nil]) | |
| 1066 | #@34 Move cursor to next agenda item. | |
| 1067 | (defalias 'org-agenda-next-item #[(n) "i \304\n W\203% \305\306 \307\"\203 \310\311!\210\305`\307\"b\210\nT\211\202 *\312!\210)\313 \207" [col n c --dotimes-limit-- 0 next-single-property-change point-at-eol org-marker move-end-of-line 1 org-move-to-column org-agenda-do-context-action] 4 (#$ . 292099) "p"]) | |
| 1068 | #@34 Move cursor to next agenda item. | |
| 1069 | (defalias 'org-agenda-previous-item #[(n) "\305 \nW\203* i\212\306\305!\210\307`\310\") \203 b\210\311\f!\210* T\211\202 *\312 \207" [n c --dotimes-limit-- goto col 0 move-end-of-line previous-single-property-change org-marker org-move-to-column org-agenda-do-context-action] 5 (#$ . 292454) "p"]) | |
| 1070 | #@51 Show outline path and, maybe, follow mode window. | |
| 1071 | (defalias 'org-agenda-do-context-action #[nil "\305\306\307 \"\262\310!\205H \311!\205H \203' \n\203$ \312\313!\210\202' \314 \210 \205H \212\310\f!\2039 \311\f!q\210\212\214~\210\f\206B `b\210\315\316!,)\207" [m org-agenda-follow-mode org-agenda-follow-indirect org-agenda-show-outline-path #1=#:--mpom org-marker get-text-property point-at-bol markerp marker-buffer org-agenda-tree-to-indirect-buffer nil org-agenda-show org-display-outline-path t] 4 (#$ . 292800)]) | |
| 1072 | #@47 Show the tags applicable to the current item. | |
| 1073 | (defalias 'org-agenda-show-tags #[nil "\300\302\303 \"\262\211\2033 \304\305\306\307\310#\311\211\203$ \312\313G $\210\202, \314\313G\311$\210\266\202\"\2026 \304\315!)\207" [tags org-rm-props get-text-property point-at-bol message "Tags are :%s:" mapconcat identity ":" nil remove-text-properties 0 set-text-properties "No tags associated with this line"] 10 (#$ . 293333) nil]) | |
| 1074 | #@57 Go to the entry at point in the corresponding Org file. | |
| 1075 | (defalias 'org-agenda-goto #[(&optional highlight) "\306\307\310 \"\262\206 \311 \312!\313!\314 !\210~\210\315 \210\nb\210\316\317!\203F \320\321!\210\322\323 \324\245!\210\325\326!\210\327\330\f\327\326#\203E \331\224b\210)\332\333!\210 \205T \334\310 \335 \"+\207" [marker buffer pos case-fold-search org-complex-heading-regexp highlight org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position switch-to-buffer-other-window push-mark derived-mode-p org-mode org-show-context agenda recenter window-height 2 org-back-to-heading t nil re-search-forward 4 run-hooks org-agenda-after-show-hook org-highlight point-at-eol] 4 (#$ . 293774) nil]) | |
| 1076 | #@113 Normal hook run after an item has been shown from the agenda. | |
| 1077 | Point is in the buffer where the item originated. | |
| 1078 | (defvar org-agenda-after-show-hook nil (#$ . 294521)) | |
| 1079 | #@66 Kill the entry or subtree belonging to the current agenda entry. | |
| 1080 | (defalias 'org-agenda-kill #[nil "\306=\204\n \307\310!\210\311 \312\313\314 \"\262\206 \315 \316\n!\317\n! \305\313\314 \"\262 \320\211 & '\321 (\320\211 )\212\211\203A \211b\210n\203I \322\202J \321\323\322`\"\\)\262*p +r q\210+)\320\211 , - . / 0 1 2 3r q\210\212\fb\210\324\325!\203\225 \326\235\204\225 \327\330!\210`&\331\330\211\"'\202\240 \314 &d\332 T^'&b\210\333\334'\330#\203\265 (T(\202\244 *4\330=\206\310 4\247\205\310 (4V\211)\203\337 \335\336\337(\311 !#!\204\337 \307\340!\210 5\341 &'#\210)r q\210&'|\210)\342\343!\2106\205U\344/r1q\210+)\"-\344.r0q\210+)\",-\204%,\205U-\2033r1q\210\345 \210),\203Ar0q\210\345 \210)231-0,\2577B\2117.\207" [major-mode bufname-orig marker buffer pos type org-agenda-mode error "Not in agenda" buffer-name org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position nil 0 1 count-lines derived-mode-p org-mode ("sexp") org-back-to-heading t org-end-of-subtree point-at-eol re-search-forward "^[ ]*\\S-" y-or-n-p format "Delete entry with %d lines in buffer \"%s\"? " "Abort" org-remove-subtree-entries-from-agenda message "Agenda item and source killed" org-verify-change-for-undo undo-boundary dbeg dend n conf this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-confirm-kill org-agenda-buffer-name org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 294693) nil]) | |
| 1081 | #@69 Archive the entry or subtree belonging to the current agenda entry. | |
| 1082 | (defalias 'org-agenda-archive-default #[nil "\301\302!\210\303!\207" [org-archive-default-command require org-archive org-agenda-archive-with] 2 (#$ . 296263) nil]) | |
| 1083 | #@69 Archive the entry or subtree belonging to the current agenda entry. | |
| 1084 | (defalias 'org-agenda-archive-default-with-confirmation #[nil "\301\302!\210\303\304\"\207" [org-archive-default-command require org-archive org-agenda-archive-with confirm] 3 (#$ . 296503) nil]) | |
| 1085 | #@69 Archive the entry or subtree belonging to the current agenda entry. | |
| 1086 | (defalias 'org-agenda-archive #[nil "\300\301!\207" [org-agenda-archive-with org-archive-subtree] 2 (#$ . 296774) nil]) | |
| 1087 | #@40 Move the entry to the archive sibling. | |
| 1088 | (defalias 'org-agenda-archive-to-archive-sibling #[nil "\300\301!\207" [org-agenda-archive-with org-archive-to-archive-sibling] 2 (#$ . 296968) nil]) | |
| 1089 | #@40 Move the entry to the archive sibling. | |
| 1090 | (defalias 'org-agenda-archive-with #[(cmd &optional confirm) "\306=\204\n \307\310!\210\311 \312\313\314 \"\262\206 \315 \316\n!\317\n! \320\212\211\203, \211b\210n\2034 \321\2025 \322\323\321`\"\\)\262 p !r q\210!)\320\211 \" # $ % & ' ( )r q\210\324\325!\203\223 *\203w \326\327!\204w \307\330!\210\202\227 \331 +\332\216\fb\210 ,\333 \210)\334\335!\210- \210*\202\227 \307\336!\210).\205\363 \337%r'q\210!)\"#\337$r&q\210!)\"\"#\204\303 \"\205\363 #\203\321 r'q\210\340 \210)\"\203\337 r&q\210\340 \210)()'#&\"\257/B\211/.\f\207" [major-mode bufname-orig marker buffer pos this-command org-agenda-mode error "Not in agenda" buffer-name org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position nil 1 0 count-lines derived-mode-p org-mode y-or-n-p "Archive this subtree or entry? " "Abort" current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] org-remove-subtree-entries-from-agenda org-back-to-heading t "Archiving works only in Org files" org-verify-change-for-undo undo-boundary buffer-undo-list #2=#:--c2 #3=#:--c1 #4=#:--undo2 #5=#:--undo1 #6=#:--buf2 #7=#:--buf1 #8=#:--cmd #9=#:--cline confirm #1# org-agenda-buffer-name cmd org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 297163) nil]) | |
| 1091 | #@212 Remove all lines in the agenda that correspond to a given subtree. | |
| 1092 | The subtree is the one in buffer BUF, starting at BEG and ending at END. | |
| 1093 | If this information is not given, the function uses the tree at point. | |
| 1094 | (defalias 'org-remove-subtree-entries-from-agenda #[(&optional buf beg end) "\206 p\306\211\212 \203 \f\204 \307\310!\210`\311\310!\210`\312 !q\210\212db\210\313\314!\210o?\205l \315\316\317 \"\262\211\203e \320\n!\232\203e \321\n!\211\203e Y\203e \fW\203e \310 \317 \322 T|\210)\313\323!\210\202, -\207" [buf p m beg end org-agenda-buffer-name nil org-back-to-heading t org-end-of-subtree get-buffer beginning-of-line 1 org-marker get-text-property point-at-bol marker-buffer marker-position point-at-eol 0 inhibit-read-only] 4 (#$ . 298522)]) | |
| 1095 | #@392 Refile the item at point. | |
| 1096 | ||
| 1097 | When called with `\[universal-argument] \[universal-argument]', go to the location of the last | |
| 1098 | refiled item. | |
| 1099 | ||
| 1100 | When called with `\[universal-argument] \[universal-argument] \[universal-argument]' prefix or when GOTO is 0, clear | |
| 1101 | the refile cache. | |
| 1102 | ||
| 1103 | RFLOC can be a refile location obtained in a different way. | |
| 1104 | ||
| 1105 | When NO-UPDATE is non-nil, don't redo the agenda buffer. | |
| 1106 | (defalias 'org-agenda-refile #[(&optional goto rfloc no-update) "\306\235\203 \307 \207\310\232\203 \311 \207\312 \313\314\315 \"\262\206\" \316 \317\n!\320\n! \206= \321\2038 \322\2029 \323 # r q\210\212\214~\210\nb\210 \324 \210)\325 #\210.?\205` \326 \207" [goto buffer-orig marker buffer pos rfloc (0 (64)) org-refile-cache-clear (16) org-refile-goto-last-stored buffer-name org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position org-refile-get-location "Goto" "Refile to" org-remove-subtree-entries-from-agenda org-refile org-agenda-redo org-refile-allow-creating-parent-nodes org-agenda-buffer-name no-update] 4 (#$ . 299303) "P"]) | |
| 1107 | #@154 Open the link(s) in the current entry, if any. | |
| 1108 | This looks for a link in the displayed line in the agenda. | |
| 1109 | It also looks at the text of the entry itself. | |
| 1110 | (defalias 'org-agenda-open-link #[(&optional arg) "\306\307\310 \"\262\206 \311\307\310 \"\262\211\205 \312!\310 \313 { \205, \314 \n$\211 @\211 ;\203: C\202; \fA \315 \203U \203U \316\317\"\202z \320\321 \322Q!\204o \212\323\324!\210\325\326 \322Q!)\203w \327\330\324!!\202z \331\332!.\207" [marker buffer prefix arg lkall lk0 org-hd-marker get-text-property point-at-bol org-marker marker-buffer point-at-eol org-offer-links-in-entry nil mapcar #[(l) "rq\210\306 \n\"\205 \307\310\n\"\211\203 \306\f \"\2035 \212\214~\210 b\210\311\n\312#\2051 \313\224b\210\314 *\202M \315!\210~\210 b\210\311\n\312#\205M \313\224b\210\314 )\207" [buffer org-bracket-link-regexp l trg org-any-link-re marker string-match match-string 1 search-forward nil 0 org-open-at-point switch-to-buffer-other-window lkend] 5] org-in-regexp "\\(" "\\)" beginning-of-line 1 looking-at ".*?\\(" org-open-link-from-string match-string message "No link to open here" lk lkend trg org-bracket-link-regexp] 6 (#$ . 300396) "P"]) | |
| 1111 | #@62 Get a variable from a referenced buffer and install it here. | |
| 1112 | (defalias 'org-agenda-copy-local-variable #[(var) "\302\303\304 \"\262\211\205\" \305\306!!\205\" \307 !r\306!q\210 J)L)\207" [m var org-marker get-text-property point-at-bol buffer-live-p marker-buffer make-local-variable] 5 (#$ . 301587)]) | |
| 1113 | #@155 Go to the Org mode file which contains the item at point. | |
| 1114 | When optional argument DELETE-OTHER-WINDOWS is non-nil, the | |
| 1115 | displayed Org file fills the frame. | |
| 1116 | (defalias 'org-agenda-switch-to #[(&optional delete-other-windows) "\203 \306\307\310 \"\262\204 \311 !\203 \312\313\314!!\207\306\307\310 \"\262\206( \315 \316\n!\317\n! \2049 \320\321!\210\322 !\210 \203D \305 \210~\210\fb\210\323\324!\205V \325\326!\210\327\330!+\207" [org-return-follows-link org-bracket-link-regexp marker buffer pos delete-other-windows org-marker get-text-property point-at-bol org-in-regexp org-open-link-from-string match-string 0 org-agenda-error marker-buffer marker-position user-error "Trying to switch to non-existent buffer" pop-to-buffer-same-window derived-mode-p org-mode org-show-context agenda run-hooks org-agenda-after-show-hook] 4 (#$ . 301902) nil]) | |
| 1117 | #@64 Go to the Org file which contains the item at the mouse click. | |
| 1118 | (defalias 'org-agenda-goto-mouse #[(ev) "\301!\210\302 \207" [ev mouse-set-point org-agenda-goto] 2 (#$ . 302764) "e"]) | |
| 1119 | #@152 Display the Org file which contains the item at point. | |
| 1120 | With prefix argument FULL-ENTRY, make the entire entry visible | |
| 1121 | if it was hidden in the outline. | |
| 1122 | (defalias 'org-agenda-show #[(&optional full-entry) "\302 \303\304!\210 \203 \305 \210\306!)\207" [win full-entry selected-window org-agenda-goto t org-show-entry select-window] 2 (#$ . 302955) "P"]) | |
| 1123 | (defvar org-agenda-show-window nil) | |
| 1124 | #@288 Display the Org file which contains the item at point. | |
| 1125 | ||
| 1126 | When called repeatedly, scroll the window that is displaying the buffer. | |
| 1127 | ||
| 1128 | With a `\[universal-argument]' prefix, use `org-show-entry' instead of `outline-show-subtree' | |
| 1129 | to display the item, so that drawers and logbooks stay folded. | |
| 1130 | (defalias 'org-agenda-show-and-scroll-up #[(&optional arg) "\305 \306 !\203% \n =\203% \307 !\210\3101 \311 0\202! \210\2029 \210\2029 \312\313!\210\f\2033 \314 \210\2026 \315 \210\305 \307!)\207" [win org-agenda-show-window this-command last-command arg selected-window window-live-p select-window (error) scroll-up org-agenda-goto t org-show-entry outline-show-subtree] 2 (#$ . 303352) "P"]) | |
| 1131 | #@44 Scroll down the window showing the agenda. | |
| 1132 | (defalias 'org-agenda-show-scroll-down #[nil "\302 \303 !\205 \304 !\210\3051 \306 0\202 \210\202 \210\304!)\207" [win org-agenda-show-window selected-window window-live-p select-window (error) scroll-down] 2 (#$ . 304043) nil]) | |
| 1133 | #@431 Display the Org file which contains the item at point. | |
| 1134 | The prefix arg selects the amount of information to display: | |
| 1135 | ||
| 1136 | 0 hide the subtree | |
| 1137 | 1 just show the entry according to defaults. | |
| 1138 | 2 show the children view | |
| 1139 | 3 show the subtree view | |
| 1140 | 4 show the entire subtree and any LOGBOOK drawers | |
| 1141 | 5 show the entire subtree and any drawers | |
| 1142 | With prefix argument FULL-ENTRY, make the entire entry visible | |
| 1143 | if it was hidden in the outline. | |
| 1144 | (defalias 'org-agenda-show-1 #[(&optional more) "\302 \303\304!\210\305 \210\306\302 \307 \"\210 \310U\203+ \311 \210\212\305 \210\312\313\314\"\210)\315\316!\210\202\234 \317\320!\203> \321U\203> \315\322!\210\202\234 \323U\203[ \324 \210\325 \210\212\305 \210\312\313\326\"\210)\315\327!\210\202\234 \330U\203u \331 \210\212\305 \210\312\313\332\"\210)\315\333!\210\202\234 \334U\203\217 \331 \210\212\305 \210\335\332\336\"\210)\315\337!\210\202\234 \334V\203\234 \331 \210\315\340!\210\341!)\207" [win more selected-window org-agenda-goto t org-back-to-heading set-window-start point-at-bol 0 outline-hide-subtree run-hook-with-args org-cycle-hook folded message "Remote: FOLDED" called-interactively-p any 1 "Remote: show with default settings" 2 outline-show-entry org-show-children children "Remote: CHILDREN" 3 outline-show-subtree subtree "Remote: SUBTREE" 4 org-cycle-hide-drawers ("LOGBOOK") "Remote: SUBTREE AND LOGBOOK" "Remote: SUBTREE AND ALL DRAWERS" select-window] 3 (#$ . 304328) "p"]) | |
| 1145 | (defvar org-agenda-cycle-counter nil) | |
| 1146 | #@432 Show the current entry in another window, with default settings. | |
| 1147 | ||
| 1148 | Default settings are taken from `org-show-context-detail'. When | |
| 1149 | use repeatedly in immediate succession, the remote entry will | |
| 1150 | cycle through visibility | |
| 1151 | ||
| 1152 | children -> subtree -> folded | |
| 1153 | ||
| 1154 | When called with a numeric prefix arg, that arg will be passed through to | |
| 1155 | `org-agenda-show-1'. For the interpretation of that argument, see the | |
| 1156 | docstring of `org-agenda-show-1'. | |
| 1157 | (defalias 'org-agenda-cycle-show #[(&optional n) "\250\203\n \202+ \n =\204 \304\202+ \305\232\203 \306\202+ T\211\307V\203+ \305\310 !\207" [n org-agenda-cycle-counter last-command this-command 1 0 2 3 org-agenda-show-1] 3 (#$ . 305814) "P"]) | |
| 1158 | #@69 Display the Org file which contains the item at point and recenter. | |
| 1159 | (defalias 'org-agenda-recenter #[(arg) "\302 \303\304!\210\305 !\210\306!)\207" [win arg selected-window org-agenda-goto t recenter select-window] 2 (#$ . 306506) "P"]) | |
| 1160 | #@66 Display the Org file which contains the item at the mouse click. | |
| 1161 | (defalias 'org-agenda-show-mouse #[(ev) "\301!\210\302 \207" [ev mouse-set-point org-agenda-show] 2 (#$ . 306751) "e"]) | |
| 1162 | #@54 Check if the entry is a diary link and abort if yes. | |
| 1163 | (defalias 'org-agenda-check-no-diary #[nil "\300\301\302 \"\262\205 \303 \207" [org-agenda-diary-link get-text-property point-at-bol org-agenda-error] 4 (#$ . 306943)]) | |
| 1164 | #@61 Throw an error when a command is not allowed in the agenda. | |
| 1165 | (defalias 'org-agenda-error #[nil "\300\301!\207" [user-error "Command not allowed in this line"] 2 (#$ . 307174)]) | |
| 1166 | #@404 Show the subtree corresponding to the current entry in an indirect buffer. | |
| 1167 | This calls the command `org-tree-to-indirect-buffer' from the original buffer. | |
| 1168 | ||
| 1169 | With a numerical prefix ARG, go up to this level and then take that tree. | |
| 1170 | With a negative numeric ARG, go up by this number of levels. | |
| 1171 | ||
| 1172 | With a `\[universal-argument]' prefix, make a separate frame for this tree, i.e. don't use | |
| 1173 | the dedicated frame. | |
| 1174 | (defalias 'org-agenda-tree-to-indirect-buffer #[(arg) "\203 \306 !\207\307 \310 \n\205 \311\n! \312 \313\216\306 !\210*\314=\204@ \315=\204@ \316\216 \203; \317 !\204? \320\f!)\321\311 !!\210\n\211+\207" [current-prefix-arg arg org-last-indirect-buffer indirect-window agenda-window agenda-buffer org-agenda-do-tree-to-indirect-buffer buffer-name selected-window get-buffer-window current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] new-frame dedicated-frame #[nil "\203 \302!\210\303 \304\"\210\305!\207" [indirect-window org-last-indirect-buffer select-window switch-to-buffer :norecord fit-window-to-buffer] 3] window-live-p split-window select-window #1# org-indirect-buffer-display org-agenda-last-indirect-buffer] 4 (#$ . 307357) "P"]) | |
| 1175 | #@69 Same as `org-agenda-tree-to-indirect-buffer' without saving window. | |
| 1176 | (defalias 'org-agenda-do-tree-to-indirect-buffer #[(arg) "\304 \210\305\306\307 \"\262\206 \310 \311!\312!r q\210\212\nb\210\313 !-\207" [marker buffer pos arg org-agenda-check-no-diary org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position org-tree-to-indirect-buffer] 4 (#$ . 308565)]) | |
| 1177 | #@103 Marker pointing to the headline that last changed its TODO state | |
| 1178 | by a remote command from the agenda. | |
| 1179 | (defvar org-last-heading-marker (make-marker) (#$ . 308970)) | |
| 1180 | #@37 Switch TODO entry to next sequence. | |
| 1181 | (defalias 'org-agenda-todo-nextset #[nil "\300\301!\207" [org-agenda-todo nextset] 2 (#$ . 309139) nil]) | |
| 1182 | #@41 Switch TODO entry to previous sequence. | |
| 1183 | (defalias 'org-agenda-todo-previousset #[nil "\300\301!\207" [org-agenda-todo previousset] 2 (#$ . 309286) nil]) | |
| 1184 | #@200 Cycle TODO state of line at point, also in Org file. | |
| 1185 | This changes the line at point, all other lines in the agenda referring to | |
| 1186 | the same tree node, and the headline of the tree node in the Org file. | |
| 1187 | (defalias 'org-agenda-todo #[(&optional arg) "\306 \210i\307\310\311 \"\262\206 \312 \313 !\314 !\315\310\311 \"\262 \316\317\310\311 \"\262! \320 +\321\211 ,\321\211 -\212\211\203D \211b\210n\203L \322\202M \323\324\322`\"\\)\262.p\n/r\nq\210/)\321\211 0 1 2 3 4 5 6 7r\nq\210~\210 b\210\325\326!\2108 9\327\330!\210)n\203\221 \322u\210\331 ,\332\333!\203\263 \203\263 ,\232\204\263 \203\263 ,\320-\212\334 \210:`\321\223\210*\335\322!\210\336 ;\337\216\340,\f\341-$\210*\332\342!\203\353 \"\203\353 \343\344\345<!P,\"\210\346 \210\347!\210\350 \210=\205M\3513r5q\210/)\"1\3512r4q\210/)\"01\204 0\205M1\203+r5q\210\352 \210)0\2039r4q\210\352 \210)675140\257>B\211>.\207" [col marker buffer pos hdmarker todayp org-agenda-check-no-diary org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position org-hd-marker org-agenda-today-p day t nil 1 0 count-lines org-show-context agenda call-interactively org-todo org-get-heading boundp org-agenda-headline-snapshot-before-repeat org-back-to-heading beginning-of-line current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] org-agenda-change-all-lines fixface org-clock-out-when-done string-match "^" regexp-opt org-agenda-unmark-clocking-task org-move-to-column org-agenda-mark-clocking-task org-verify-change-for-undo undo-boundary inhibit-read-only newhead just-one this-command buffer-undo-list #2=#:--c2 #3=#:--c1 #4=#:--undo2 #5=#:--undo1 #6=#:--buf2 #7=#:--buf1 #8=#:--cmd #9=#:--cline arg current-prefix-arg org-last-heading-marker #1# org-done-keywords-for-agenda org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 309446) "P"]) | |
| 1188 | #@48 Add a time-stamped note to the entry at point. | |
| 1189 | (defalias 'org-agenda-add-note #[(&optional arg) "\305 \210\306\307\310 \"\262\206 \311 \312!\313!\314\307\310 \"\262\315 r q\210~\210\nb\210\316\317!\210\320 .\207" [marker buffer pos hdmarker inhibit-read-only org-agenda-check-no-diary org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position org-hd-marker t org-show-context agenda org-add-note] 4 (#$ . 311372) "P"]) | |
| 1190 | #@455 Change all lines in the agenda buffer which match HDMARKER. | |
| 1191 | The new content of the line will be NEWHEAD (as modified by | |
| 1192 | `org-agenda-format-item'). HDMARKER is checked with | |
| 1193 | `equal' against all `org-hd-marker' text properties in the file. | |
| 1194 | If FIXFACE is non-nil, the face of each item is modified according to | |
| 1195 | the new TODO state. | |
| 1196 | If JUST-THIS is non-nil, change just the current line, not all. | |
| 1197 | If FORCE-TAGS is non nil, the car of it returns the new tags. | |
| 1198 | (defalias 'org-agenda-change-all-lines #[(newhead hdmarker &optional fixface just-this) "\306\307\212\211\203 \211b\210n\203 \310\202 \311\312\310`\"\\)\262pr\313 !q\210\212\214~\210 b\210\314 + \307\211 1\307\211 2 \307\211 3\307\211 4 \307\211 5\307 6\212db\210\315\310!\2103?\205\271o3\316\317\320 \"\262\2111\203\2627\203\223 \307\212\211\203} \211b\210n\203\205 \310\202\206 \311\312\310`\"\\)\262 U\203\2621 \232\203\262\321`!\322\317\320 \"\262\323\324\310\"5\325\317\320 \"\262\f6\317dS`^\326\"\206\307 8\327\317\320 \"\262 8r\313 !q\210\212\214~\210\330956&-4\331\320 \332 \333\306$2\334\317\320 \"\262 \335\317\320 \"\262 \315\310!\2104\336\232\203!`\337\340!|\210\202\247\341\342!\203\243\3432[\344`\340`\\\"\307 :\211 ;\205Y;@:\345:\346\"\347=\203O\350\343:\"\210;A\211;\204:\307*0 <\3514\306\211#\210\315 \210<\203u\352<`\340`\\#\210)\353\320 \332 #\210=\203\230\353\320 \332 \354>\203\223 \202\225 D#\210\355\301!\210\315\310!\210\202\247\356\357!\210\214\320 \332 }\210\360 \210)\315\311!\210\202X .\207" [inhibit-read-only line org-agenda-buffer hdmarker thetags props t nil 1 0 count-lines marker-buffer org-get-tags-at beginning-of-line org-hd-marker get-text-property point-at-bol text-properties-at dotime org-get-at-eol org-category level format extra org-agenda-format-item text-property-any point-at-eol org-heading undone-face done-face "" line-beginning-position 2 looking-at ".*" :overlay overlays-in overlay-get type org-marked-entry-overlay throw replace-match move-overlay add-text-properties face org-agenda-highlight-todo error "Line update did not work" org-agenda-finalize m pl finish new cat tags just-this org-prefix-format-compiled newhead o --dolist-tail-- mark fixface org-last-todo-state-is-todo] 8 (#$ . 311841)]) | |
| 1199 | #@61 Align all tags in agenda items to `org-agenda-tags-column'. | |
| 1200 | (defalias 'org-agenda-align-tags #[(&optional line) "\306\307=\203 \310 [\202 \311\211\212\f\203 \312 \202 eb\210\313\314\f\205) \315 \306#\203\216 \316\317\224\317\225\320\321\311\322\317\224\320\"\211 <\204D C\323 >\203N \202Q \323 B)\"D#\210\317\225\317\224Z\324W\203j \325!\nZ\202k \326\224\326\225|\210\326\224b\210\327\330\326 iZ]\331\"\332\333\334`!!\320\311#\"c\210\202! eb\210\335d!-\207" [org-agenda-tags-column c l inhibit-read-only line prop t auto window-text-width nil point-at-bol re-search-forward "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$" point-at-eol add-text-properties 2 face delq get-text-property org-tag 0 abs 1 org-add-props make-string 32 plist-put copy-sequence text-properties-at org-font-lock-add-tag-faces] 10 (#$ . 314143)]) | |
| 1201 | #@59 Increase the priority of line at point, also in Org file. | |
| 1202 | (defalias 'org-agenda-priority-up #[nil "\300\301!\207" [org-agenda-priority up] 2 (#$ . 314985) nil]) | |
| 1203 | #@59 Decrease the priority of line at point, also in Org file. | |
| 1204 | (defalias 'org-agenda-priority-down #[nil "\300\301!\207" [org-agenda-priority down] 2 (#$ . 315152) nil]) | |
| 1205 | #@277 Set the priority of line at point, also in Org file. | |
| 1206 | This changes the line at point, all other lines in the agenda referring to | |
| 1207 | the same tree node, and the headline of the tree node in the Org file. | |
| 1208 | Called with a universal prefix arg, show the priority instead of setting it. | |
| 1209 | (defalias 'org-agenda-priority #[(&optional force-direction) "\306\232\203 \307 \207 \204 \310\311!\210\312 \210i\313\314\315 \"\262\206# \316 \317\314\315 \"\262 \320\f! \321\f! \322 \323\211 !\212\211\203E \211b\210n\203M \324\202N \325\326\324`\"\\)\262\"p #r q\210#)\323\211 $ % & ' ( ) * +r q\210~\210 b\210\327\330!\210\331!\210\324\210\332 !)\333!\f\"\210\334\n!\210,\205\364 \335'r)q\210#)\"%\335&r(q\210#)\"$%\204\304 $\205\364 %\203\322 r)q\210\336 \210)$\203\340 r(q\210\336 \210)*+)%($\257-B\211-.\207" [force-direction org-enable-priority-commands col marker hdmarker buffer (4) org-show-priority error "Priority commands are disabled" org-agenda-check-no-diary org-marker get-text-property point-at-bol org-agenda-error org-hd-marker marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda org-priority org-get-heading org-agenda-change-all-lines org-move-to-column org-verify-change-for-undo undo-boundary pos inhibit-read-only newhead this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 315324) "P"]) | |
| 1210 | #@36 Set tags for the current headline. | |
| 1211 | (defalias 'org-agenda-set-tags #[(&optional tag onoff) "\306 \210\307 \203 \310\311!\203 \312\313!\207\314\315\316 \"\262\206 \317 \320!\321!\322\323\211 \212\211\2035 \211b\210n\203= \324\202> \325\326\324`\"\\)\262 p r q\210 )\323\211 ! \" # $ % & ' (r q\210~\210\nb\210\327\330!\210)\203\200 \331)*\"\210\202\204 \312\332!\210\324\210\333 )\334\f\"\210\335\324!\210+\205\357 \336$r&q\210 )\"\"\336#r%q\210 )\"!\"\204\277 !\205\357 \"\203\315 r&q\210\337 \210)!\203\333 r%q\210\337 \210)'(&\"%!\257,B\211,. \207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-region-active-p called-interactively-p any call-interactively org-change-tag-in-region org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda org-toggle-tag org-set-tags org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline tag onoff org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 316819) nil]) | |
| 1212 | #@42 Set a property for the current headline. | |
| 1213 | (defalias 'org-agenda-set-property #[nil "\306 \210\307\310\311 \"\262\206 \312 \313!\314!\315\316\211 \212\211\203& \211b\210n\203. \317\202/ \320\321\317`\"\\)\262 p r q\210)\316\211 r q\210~\210\nb\210\322\323!\210\324\325!\210)!\205\302 \326 r q\210)\"\326r q\210)\"\204\222 \205\302 \203\240 r q\210\327 \210)\203\256 r q\210\327 \210) \257\"B\211\". \207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda call-interactively org-set-property org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 318060) nil]) | |
| 1214 | #@51 Set the effort property for the current headline. | |
| 1215 | (defalias 'org-agenda-set-effort #[nil "\306 \210\307\310\311 \"\262\206 \312 \313!\314!\315\316\211 \212\211\203& \211b\210n\203. \317\202/ \320\321\317`\"\\)\262 p r q\210)\316\211 ! \"r q\210~\210\nb\210\322\323!\210\324\325!\210\317\210\326 )\327\f\"\210#\205\315 \330 r q\210)\" \330 r q\210)\" \204\235 \205\315 \203\253 r q\210\331 \210)\203\271 r q\210\331 \210)!\" \257$B\211$. \207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda call-interactively org-set-effort org-get-heading org-agenda-change-all-lines org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 319021) nil]) | |
| 1216 | #@47 Toggle the archive tag for the current entry. | |
| 1217 | (defalias 'org-agenda-toggle-archive-tag #[nil "\306 \210\307\310\311 \"\262\206 \312 \313!\314!\315\316\211 \212\211\203& \211b\210n\203. \317\202/ \320\321\317`\"\\)\262 p r q\210)\316\211 ! \" #r q\210~\210\nb\210\322\323!\210\324\325!\210\317\210\326 )\327\f\"\210\330\317!\210$\205\321 \331 r!q\210)\" \331 r q\210)\" \204\241 \205\321 \203\257 r!q\210\332 \210) \203\275 r q\210\332 \210)\"#! \257%B\211%. \207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda call-interactively org-toggle-archive-tag org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 320059) nil]) | |
| 1218 | (defalias 'org-agenda-do-date-later #[(arg) "\303\232\204\f \304>\203 \305\211\306!\207\307\232\204 \310>\203$ \311\211\306!\207\312\313!!\207" [arg last-command this-command (16) (org-agenda-date-later-minutes org-agenda-date-earlier-minutes) org-agenda-date-later-minutes 1 (4) (org-agenda-date-later-hours org-agenda-date-earlier-hours) org-agenda-date-later-hours org-agenda-date-later prefix-numeric-value] 4 nil "P"]) | |
| 1219 | (defalias 'org-agenda-do-date-earlier #[(arg) "\303\232\204\f \304>\203 \305\211\306!\207\307\232\204 \310>\203$ \311\211\306!\207\312\313!!\207" [arg last-command this-command (16) (org-agenda-date-later-minutes org-agenda-date-earlier-minutes) org-agenda-date-earlier-minutes 1 (4) (org-agenda-date-later-hours org-agenda-date-earlier-hours) org-agenda-date-earlier-hours org-agenda-date-earlier prefix-numeric-value] 4 nil "P"]) | |
| 1220 | #@51 Change the date of this item to ARG day(s) later. | |
| 1221 | (defalias 'org-agenda-date-later #[(arg &optional what) "\306\307\310\"\210\311 \210\312\313\314 \"\262\206 \315 \316!\317!\320\211 \320\212\211\203+ \211b\210n\2033 \321\2024 \322\323\321`\"\\)\262 p 8r q\2108)\320\211 9 : ; < = > ? @r q\210~\210\nb\210\324\325!\204m \326\327!\210A\203hB\321\232\203hC\203\205 C\330=\203h\331 D\332\216\333 *\204h\334\335\322!\336\"\337 8\340 8\341 8E\211 E E\342E8)\320 F\211 G\322U\203\275 \343\344!\202XG\322V\203TGSF\345E\211 E\211 E@) HE\211 EA@) E E\342E8) GHS\346_\\ IH\342V\203<I\347H\337_\\\350\245ZIG\211 G\322W\203\351G!SGG\337\246\322U\2053G\352\246\322U?\2063G\353\246\322U)\203<ITII-F\354_F\337\245F\352\245[F\353\245%\202X\351GT!F\355E\211 E\211 E@) HE\211 EA@) E E\342E8) GHS\346_\\ IH\342V\203\316I\347H\337_\\\350\245ZIG\211 G\322W\203\254\351G!SGG\337\246\322U\205\305G\352\246\322U?\206\305G\353\246\322U)\203\316ITII-F\354_F\337\245F\352\245[F\353\245\356\211 E\211 E@) HE\211 EA@) E E\342E8) GHS\346_\\ IH\342V\203SI\347H\337_\\\350\245ZIG\211 G\322W\2031\351G!SGG\337\246\322U\205JG\352\246\322U?\206JG\353\246\322U)\203SITII-&+\357 \211 V\203h\f ZB\360BC\206q\330\"\210\333 \203\231\361J\314 \"\203\231K L\360BC\206\216\330\"\210K\362LQK))\363K\"\210M\203\372\364<r>q\2108)\":\364;r=q\2108)\"9:\204\3139\203\372:\203\331r>q\210\365 \210)9\203\347r=q\210\365 \210)?@>:=9\257NBN.\366\367K\"-\207" [marker buffer pos cdate today this-command org-agenda-check-type t agenda org-agenda-check-no-diary org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-at-timestamp-p lax error "Cannot find time stamp" day match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-at-date-range-p org-parse-time-string match-string nodefault 4 3 5 2 user-error "There was no year zero" + 31 23 10 abs 100 400 365 - (12 31 -1) org-today org-timestamp-change re-search-backward "--" org-agenda-show-new-time org-verify-change-for-undo undo-boundary message "Time stamp changed to %s" buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-move-date-from-past-immediately-to-today arg what save-match-data-internal date offset-years year month day-of-year org-tr-regexp-both org-last-changed-timestamp end org-agenda-allow-remote-undo org-agenda-undo-list] 11 (#$ . 322014) "p"]) | |
| 1222 | #@53 Change the date of this item to ARG day(s) earlier. | |
| 1223 | (defalias 'org-agenda-date-earlier #[(arg &optional what) "\302[ \"\207" [arg what org-agenda-date-later] 3 (#$ . 324617) "p"]) | |
| 1224 | #@78 Change the time of this item, in units of `org-time-stamp-rounding-minutes'. | |
| 1225 | (defalias 'org-agenda-date-later-minutes #[(arg) " A@_\302\303\"\207" [arg org-time-stamp-rounding-minutes org-agenda-date-later minute] 3 (#$ . 324804) "p"]) | |
| 1226 | #@78 Change the time of this item, in units of `org-time-stamp-rounding-minutes'. | |
| 1227 | (defalias 'org-agenda-date-earlier-minutes #[(arg) " A@_\302\303\"\207" [arg org-time-stamp-rounding-minutes org-agenda-date-earlier minute] 3 (#$ . 325049) "p"]) | |
| 1228 | #@46 Change the time of this item, in hour steps. | |
| 1229 | (defalias 'org-agenda-date-later-hours #[(arg) "\301\302\"\207" [arg org-agenda-date-later hour] 3 (#$ . 325298) "p"]) | |
| 1230 | #@46 Change the time of this item, in hour steps. | |
| 1231 | (defalias 'org-agenda-date-earlier-hours #[(arg) "\301\302\"\207" [arg org-agenda-date-earlier hour] 3 (#$ . 325469) "p"]) | |
| 1232 | #@42 Show new date stamp via text properties. | |
| 1233 | (defalias 'org-agenda-show-new-time #[(marker stamp &optional prefix) "\304 \305\n\306R\212db\210o?\205I \307\310\311 \"\262\232\203B \312\311 \313 \314#\210\315\316 \nGZ\304\"\210\317`S\313 \320\321\n\322\323\324$D#\210\325\326!\210\325\327!\210\202\f *\207" [inhibit-read-only prefix stamp marker t " => " " " org-marker get-text-property point-at-bol remove-text-properties point-at-eol (display) org-move-to-column window-width add-text-properties display org-add-props nil face (secondary-selection default) beginning-of-line 1 0] 9 (#$ . 325644)]) | |
| 1234 | #@206 Change the date of this item. Date is prompted for, with default today. | |
| 1235 | The prefix ARG is passed to the `org-time-stamp' command and can therefore | |
| 1236 | be used to request time specification in the time stamp. | |
| 1237 | (defalias 'org-agenda-date-prompt #[(arg) "\306\307\310\"\210\311 \210\312\313\314 \"\262\206 \315 \316!\317!\320\212\211\203' \211b\210n\203/ \321\2020 \322\323\321`\"\\)\262 p \fr q\210\f)\320\211 ! \" # $ %r q\210~\210\nb\210\324\325!\204f \326\327!\210\330&\322\224f\331\232\"\210)\332'\"\210(\203\313 \333!r#q\210\f)\" \333 r\"q\210\f)\" \204\236 \203\313 \203\254 r#q\210\334 \210) \203\271 r\"q\210\334 \210)$%# \" \257)B).\335\336'\"+\207" [marker buffer pos this-command buffer-undo-list #1=#:--c2 org-agenda-check-type t agenda org-agenda-check-no-diary org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-at-timestamp-p lax error "Cannot find time stamp" org-time-stamp 91 org-agenda-show-new-time org-verify-change-for-undo undo-boundary message "Time stamp changed to %s" #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline arg org-last-changed-timestamp org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 326251) "P"]) | |
| 1238 | #@70 Schedule the item at point. | |
| 1239 | ARG is passed through to `org-schedule'. | |
| 1240 | (defalias 'org-agenda-schedule #[(arg &optional time) "\306\307\310\311\312\313%\210\314 \210\315\316\317 \"\262\206 \320 \321!\322!\323!\324 \325\307\"\210\324\212\211\2035 \211b\210n\203= \326\202> \327\330\326`\"\\)\262 p\n r\nq\210 )\324\211 ! \" # $ % & ' (r\nq\210~\210 b\210\331)*\")\332\f\333#\210+\203\325 \334$r&q\210 )\"\"\334#r%q\210 )\"!\"\204\246 !\203\325 \"\203\264 r&q\210\335 \210)!\203\302 r%q\210\335 \210)'(&\"%!\257,B,.\336\337\f\"-\207" [marker type buffer pos ts this-command org-agenda-check-type t agenda todo tags search org-agenda-check-no-diary org-marker get-text-property point-at-bol org-agenda-error marker-insertion-type marker-buffer marker-position nil set-marker-insertion-type 1 0 count-lines org-schedule org-agenda-show-new-time " S" org-verify-change-for-undo undo-boundary message "%s" buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline arg time org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 327536) "P"]) | |
| 1241 | #@70 Schedule the item at point. | |
| 1242 | ARG is passed through to `org-deadline'. | |
| 1243 | (defalias 'org-agenda-deadline #[(arg &optional time) "\306\307\310\311\312\313%\210\314 \210\315\316\317 \"\262\206 \320 \321!\322!\323\211\212\211\203, \211b\210n\2034 \324\2025 \325\326\324`\"\\)\262\fp r q\210 )\323\211 ! \" # $ %r q\210~\210\nb\210\327&'\")\330 \331#\210(\203\310 \332!r#q\210 )\" \332 r\"q\210 )\" \204\231 \203\310 \203\247 r#q\210\333 \210) \203\265 r\"q\210\333 \210)$%# \" \257)B).\334\335 \",\207" [marker buffer pos ts this-command buffer-undo-list org-agenda-check-type t agenda todo tags search org-agenda-check-no-diary org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-deadline org-agenda-show-new-time " D" org-verify-change-for-undo undo-boundary message "%s" #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline arg time org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 328675) "P"]) | |
| 1244 | #@49 Start the clock on the currently selected item. | |
| 1245 | (defalias 'org-agenda-clock-in #[(&optional arg) "\306 \210\307\232\203 \310!\207\311\312\313 \"\262\206 \314 \315\312\313 \"\262\206' \316 !i \317\211 \212\211\2039 \211b\210n\203A \320\202B \321\322\320`\"\\)\262 p\323 ! r\323 !q\210 )\317\211 ! \" # $ % &r\323 !q\210~\210 b\210\324\325!\210\326\327!\210\310!\210\330 )\331 \n\"\210'\203\347 \332\"r$q\210 )\" \332!r#q\210 )\" \204\270 \203\347 \203\306 r$q\210\333 \210) \203\324 r#q\210\333 \210)%&$ # \257(B(.\334\f!-\207" [arg marker hdmarker pos col newhead org-agenda-check-no-diary (4) org-clock-in org-marker get-text-property point-at-bol org-agenda-error org-hd-marker marker-position nil 1 0 count-lines marker-buffer org-show-context agenda org-cycle-hide-drawers children org-get-heading org-agenda-change-all-lines org-verify-change-for-undo undo-boundary org-move-to-column this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 329731) "P"]) | |
| 1246 | #@35 Stop the currently running clock. | |
| 1247 | (defalias 'org-agenda-clock-out #[nil "\306!\204\n \307\310!\210\311 i\312\312\212\211\203 \211b\210n\203\" \313\202# \314\315\313`\"\\)\262\fp\306! r\306!q\210 )\312\211 r\306!q\210\212\214~\210b\210\316\317!\210 `\312\223\210\320 \210\321 + \203\300 \322r q\210 )\"\322rq\210 )\"\204\221 \203\300 \203\237 r q\210\323 \210)\203\255 rq\210\323 \210) \257 B .\324 \"\210 \312\211\223\210\325\n!\210\326 +\207" [org-clock-marker newhead col marker this-command buffer-undo-list marker-buffer error "No running clock" make-marker nil 1 0 count-lines org-back-to-heading t org-clock-out org-get-heading org-verify-change-for-undo undo-boundary org-agenda-change-all-lines org-move-to-column org-agenda-unmark-clocking-task #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 330874) nil]) | |
| 1248 | #@37 Cancel the currently running clock. | |
| 1249 | (defalias 'org-agenda-clock-cancel #[(&optional arg) "\306!\204\n \307\310!\210\311\212\211\203 \211b\210n\203 \312\202 \313\314\312`\"\\)\262 p\306!\nr\306!q\210\n)\311\211 \315 \210\205\224 \316rq\210\n)\"\316 rq\210\n)\"\f\204h \205\224 \f\203u rq\210\317 \210) \203\202 rq\210\317 \210)\f \257B\211.\207" [org-clock-marker this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 marker-buffer user-error "No running clock" nil 1 0 count-lines org-clock-cancel org-verify-change-for-undo undo-boundary #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 331866) "P"]) | |
| 1250 | #@157 Jump to the currently clocked in task within the agenda. | |
| 1251 | If the currently clocked in task is not listed in the agenda | |
| 1252 | buffer, display it in another window. | |
| 1253 | (defalias 'org-agenda-clock-goto #[nil "\302\303\304\305ed\"\"\210\203 b\202' \306\301!\203$ \203$ \307\310 !\202' \311\312!)\207" [pos org-clock-current-task nil mapc #[(o) "\302\303\"\304=\205 \305!\211\207" [o pos overlay-get type org-agenda-clocking overlay-start] 3] overlays-in boundp org-switch-to-buffer-other-window org-clock-goto message "No running clock, use `C-c C-x C-j' to jump to the most recent one"] 5 (#$ . 332603) nil]) | |
| 1254 | #@57 Make a diary entry in the file `org-agenda-diary-file'. | |
| 1255 | (defalias 'org-agenda-diary-entry-in-org-file #[nil "\306\211\211\307\306\211 \310 \311\232\203 \312\313!,@\202V \314\315 \316\"\211\204, \317\320!\210\321 !\3221: \323 0\202? \210\306\202U \205U \212\323 b\210\314\315 \316\"\211)\205U \321!\324\325!\210\326 \211\327\267\202\342 \330\331!\332\316\n #\210\310 -\232\205\346 \333 \202\346 @ A@\334\335\336\337 8\"\337 8\"E\330\340!\332\341\n #\210\310 -\232\205\346 \333 \202\346 \330\342! \203\265 \f\203\265 \f\232\203\271 \317\343!\210\332\344\n \f$\210\310 -\232\205\346 \333 \202\346 \345\346.!!\210\347\350!\210\351 !\210\352\313!\202\346 \317\353 \".\207" [dp2 dp1 text char d2 d1 nil "" buffer-name "*Calendar*" calendar-cursor-to-date t get-text-property point-at-bol day user-error "No date defined in current line" calendar-gregorian-from-absolute (error) mark message "Diary entry: [d]ay [a]nniversary [b]lock [j]ump to date tree" read-char-exclusive #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (100 99 97 122 98 163 106 205)) read-string "Day entry: " org-agenda-add-entry-to-org-agenda-diary-file org-agenda-redo read-number format "Reference year [%d]: " 2 "Anniversary (use %d to show years): " anniversary "Block entry: " "No block of days selected" block org-switch-to-buffer-other-window find-file-noselect require org-datetree org-datetree-find-date-create org-reveal "Invalid selection character `%c'" calendar-mark-ring org-agenda-buffer-name org-agenda-diary-file] 8 (#$ . 333214)]) | |
| 1256 | (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\313\314\306\315& \210\300\316\317\320\304\305\313\314\306\321& \207" [custom-declare-variable org-agenda-insert-diary-strategy 'date-tree "Where in `org-agenda-diary-file' should new entries be added?\nValid values:\n\ndate-tree in the date tree, as first child of the date\ndate-tree-last in the date tree, as last child of the date\ntop-level as top-level entries at the end of the file." :group org-agenda :type (choice (const :tag "first in a date tree" date-tree) (const :tag "last in a date tree" date-tree-last) (const :tag "as top level at end of file" top-level)) org-agenda-insert-diary-extract-time nil "Non-nil means extract any time specification from the diary entry." :version "24.1" boolean org-agenda-bulk-mark-char ">" "A single-character string to be used as the bulk mark." string] 10) | |
| 1257 | #@264 Add a diary entry with TYPE to `org-agenda-diary-file'. | |
| 1258 | If TEXT is not empty, it will become the headline of the new entry, and | |
| 1259 | the resulting entry will not be shown. When TEXT is empty, switch to | |
| 1260 | `org-agenda-diary-file' and let the user finish the entry there. | |
| 1261 | (defalias 'org-agenda-add-entry-to-org-agenda-diary-file #[(type text &optional d1 d2) "\306 \307\310 !!\210~\210eb\210\n\311\267\202\200 \312\313\314\315#\204, \316\315!\204, \317 \210\320c\210\321\322!\210\317 \210\323 \210\322u\210\324c\210\325\326\327 8 @ A@\f%c\210\202\200 \315\211\314\211\211 @ A BC\203\206 \330\314\f\314\211\211\315&@\331\332\333@#\211G\332V\205~ \334\335\336\"@P\331\332\337@#D\340=\203\224 \341\f!\210\202\240 \342\343!\210\344 !\210\345\f!\210\346\347 \211 E E\327E8)\314 F\211 G\332U\203\276 \350\351!\202YG\332V\203UGSF\352E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203=J\354H\355_\\\356\245ZJG\211 G\332W\203\357G!SGG\355\246\332U\2054G\360\246\332U?\2064G\361\246\332U)\203=JTJJ-F\362_F\355\245F\360\245[F\361\245%\202Y\357GT!F\363E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203\317J\354H\355_\\\356\245ZJG\211 G\332W\203\255\357G!SGG\355\246\332U\205\306G\360\246\332U?\206\306G\361\246\332U)\203\317JTJJ-F\362_F\355\245F\360\245[F\361\245\364\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203TJ\354H\355_\\\356\245ZJG\211 G\332W\2032\357G!SGG\355\246\332U\205KG\360\246\332U?\206KG\361\246\332U)\203TJTJJ-&+!\314\211\211\211 &\210-\332\210\202\200 \211 E E\327E8)\314 F\211 G\332U\203\206\350\351!\202!G\332V\203 GSF\352E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203J\354H\355_\\\356\245ZJG\211 G\332W\203\343\357G!SGG\355\246\332U\205\374G\360\246\332U?\206\374G\361\246\332U)\203JTJJ-F\362_F\355\245F\360\245[F\361\245%\202!\357GT!F\363E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203\227J\354H\355_\\\356\245ZJG\211 G\332W\203u\357G!SGG\355\246\332U\205\216G\360\246\332U?\206\216G\361\246\332U)\203\227JTJJ-F\362_F\355\245F\360\245[F\361\245\364\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203 J\354H\355_\\\356\245ZJG\211 G\332W\203\372\357G!SGG\355\246\332U\205G\360\246\332U?\206G\361\246\332U)\203 JTJJ-&+K\211 E E\327E8)\314 F\211 G\332U\203?\350\351!\202\332G\332V\203\326GSF\352E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203\276J\354H\355_\\\356\245ZJG\211 G\332W\203\234\357G!SGG\355\246\332U\205\265G\360\246\332U?\206\265G\361\246\332U)\203\276JTJJ-F\362_F\355\245F\360\245[F\361\245%\202\332\357GT!F\363E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203PJ\354H\355_\\\356\245ZJG\211 G\332W\203.\357G!SGG\355\246\332U\205GG\360\246\332U?\206GG\361\246\332U)\203PJTJJ-F\362_F\355\245F\360\245[F\361\245\364\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203\325J\354H\355_\\\356\245ZJG\211 G\332W\203\263\357G!SGG\355\246\332U\205\314G\360\246\332U?\206\314G\361\246\332U)\203\325JTJJ-&+V\203\345K KD\340=\203\363\341\f!\210\202\377\342\343!\210\344 !\210\345\f!\210\346\347 \211 E E\327E8)\314 F\211 G\332U\203 \350\351!\202\270G\332V\203\264GSF\352E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203\234J\354H\355_\\\356\245ZJG\211 G\332W\203z\357G!SGG\355\246\332U\205\223G\360\246\332U?\206\223G\361\246\332U)\203\234JTJJ-F\362_F\355\245F\360\245[F\361\245%\202\270\357GT!F\363E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203.J\354H\355_\\\356\245ZJG\211 G\332W\203\f\357G!SGG\355\246\332U\205%G\360\246\332U?\206%G\361\246\332U)\203.JTJJ-F\362_F\355\245F\360\245[F\361\245\364\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203\263J\354H\355_\\\356\245ZJG\211 G\332W\203\221\357G!SGG\355\246\332U\205\252G\360\246\332U?\206\252G\361\246\332U)\203\263JTJJ-&+!!\210\365c\210\346\347K\211 E E\327E8)\314 F\211 G\332U\203\336\350\351!\202y G\332V\203uGSF\352E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203]J\354H\355_\\\356\245ZJG\211 G\332W\203;\357G!SGG\355\246\332U\205TG\360\246\332U?\206TG\361\246\332U)\203]JTJJ-F\362_F\355\245F\360\245[F\361\245%\202y \357GT!F\363E\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203\357J\354H\355_\\\356\245ZJG\211 G\332W\203\315\357G!SGG\355\246\332U\205\346G\360\246\332U?\206\346G\361\246\332U)\203\357JTJJ-F\362_F\355\245F\360\245[F\361\245\364\211 E\211 E@) HE\211 EA@) IE E\327E8) GIHS\353_\\ JH\327V\203t J\354H\355_\\\356\245ZJG\211 G\332W\203R \357G!SGG\355\246\332U\205k G\360\246\332U?\206k G\361\246\332U)\203t JTJJ-&+!!\210\332\210\366\367\f\"\203\231 \370!\210\371\372\373\374\n!!\375 !#\202\240 \376\315!\210\371\377!)\207" [cw org-agenda-diary-file type d1 text time2 current-window-configuration org-switch-to-buffer-other-window find-file-noselect #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (anniversary 20 day 73 block 618)) re-search-forward "^*[ ]+Anniversaries" nil t org-at-heading-p outline-next-heading "* Anniversaries\n\n" beginning-of-line -1 org-back-over-empty-lines "\n" format "%%%%(org-anniversary %d %2d %2d) %s" 2 org-agenda-format-item get-text-property 0 time " " split-string "\\." txt top-level org-agenda-insert-diary-as-top-level require org-datetree org-datetree-find-date-create org-agenda-insert-diary-make-new-entry org-insert-time-stamp org-time-from-absolute user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) "--" string-match "\\S-" set-window-configuration message "%s entry added to %s" capitalize symbol-name abbreviate-file-name org-reveal "Please finish entry here" fmt org-agenda-time-leading-zero org-prefix-has-time org-agenda-insert-diary-extract-time org-agenda-insert-diary-strategy date offset-years year month day day-of-year d2] 13 (#$ . 335702)]) | |
| 1262 | #@166 Make new entry as a top-level entry at the end of the file. | |
| 1263 | Add TEXT as headline, and position the cursor in the second line so that | |
| 1264 | a timestamp can be added there. | |
| 1265 | (defalias 'org-agenda-insert-diary-as-top-level #[(text) "~\210db\210n\204\f \302c\210\303\304\305\211#\210c\210\306 \210n\204 \302c\210 \205% \307j\207" [text org-adapt-indentation "\n" org-insert-heading nil t org-end-of-meta-data 2] 4 (#$ . 341917)]) | |
| 1266 | #@155 Make a new entry with TEXT as a child of the current subtree. | |
| 1267 | Position the point in the heading's first body line so that | |
| 1268 | a timestamp can be added there. | |
| 1269 | (defalias 'org-agenda-insert-diary-make-new-entry #[(text) "\305\267\202 \306\210\307\310\311\"\210\312 \210\202- \313 \210\314 \210\315\316!\204% \212\317c\210)\307\306\311\"\210\312 \210i\nc\210\320 \210n\204< \317c\210\321\311\315!)\262\204M \212\317c\210)\f\203T j\210)\322\323!\207" [org-agenda-insert-diary-strategy col text inhibit-changing-match-data org-adapt-indentation #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (date-tree-last 6)) nil org-insert-heading (4) t org-do-demote outline-next-heading org-back-over-empty-lines looking-at "[ ]*$" "\n" org-end-of-meta-data "^[ ]*$" org-show-set-visibility lineage] 3 (#$ . 342345)]) | |
| 1270 | #@250 Make a diary entry, like the `i' command from the calendar. | |
| 1271 | All the standard commands work: block, weekly etc. | |
| 1272 | When `org-agenda-diary-file' points to a file, | |
| 1273 | `org-agenda-diary-entry-in-org-file' is called instead to create | |
| 1274 | entries in that Org file. | |
| 1275 | (defalias 'org-agenda-diary-entry #[nil "\306=\204 \307 \207\310\311!\210\312\313!\210\314 \315 \316\"A\317K` \305\320!\206& ` \n\2040 \321\322 \"\210\323\f\324\"\203D \325\232\203H \323 \324\"\204H \321\326!\210\327\323 \324\"\206T \323\f\324\"!C \330\216\317\331M\210\332\n!.\207" [org-agenda-diary-file char cmd oldf point mark diary-file org-agenda-diary-entry-in-org-file require diary-lib message "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic" read-char-exclusive assoc ((100 . diary-insert-entry) (119 . diary-insert-weekly-entry) (109 . diary-insert-monthly-entry) (121 . diary-insert-yearly-entry) (97 . diary-insert-anniversary-entry) (98 . diary-insert-block-entry) (99 . diary-insert-cyclic-entry)) calendar-cursor-to-date t user-error "No command associated with <%c>" get-text-property day 98 "Don't know which date to use for diary entry" calendar-gregorian-from-absolute #[nil "\301M\207" [oldf calendar-cursor-to-date] 2] #[(&optional error dummy) "\301\302\303\"!\207" [point calendar-gregorian-from-absolute get-text-property day] 4] call-interactively calendar-mark-ring] 4 (#$ . 343197) nil]) | |
| 1276 | #@67 Execute a calendar command from the agenda with date from cursor. | |
| 1277 | (defalias 'org-agenda-execute-calendar-command #[(cmd) "\306\307\310\"\210\311\312!\210\313dS`^\314\"\204 \315\316!\210\317K`\320\313 \314\"!\211@\321\n8 \322\216\317\323M\210\324 !.\207" [oldf point date displayed-month displayed-year cmd org-agenda-check-type t agenda require diary-lib get-text-property day user-error "Don't know which date to use for the calendar command" calendar-cursor-to-date calendar-gregorian-from-absolute 2 #[nil "\301M\207" [oldf calendar-cursor-to-date] 2] #[(&optional error dummy) "\301\302\303\"!\207" [point calendar-gregorian-from-absolute get-text-property day] 4] call-interactively] 5 (#$ . 344609)]) | |
| 1278 | #@73 Display the phases of the moon for the 3 months around the cursor date. | |
| 1279 | (defalias 'org-agenda-phases-of-moon #[nil "\300\301!\207" [org-agenda-execute-calendar-command calendar-lunar-phases] 2 (#$ . 345330) nil]) | |
| 1280 | #@63 Display the holidays for the 3 months around the cursor date. | |
| 1281 | (defalias 'org-agenda-holidays #[nil "\300\301!\207" [org-agenda-execute-calendar-command calendar-list-holidays] 2 (#$ . 345549) nil]) | |
| 1282 | #@234 Display sunrise and sunset for the cursor date. | |
| 1283 | Latitude and longitude can be specified with the variables | |
| 1284 | `calendar-latitude' and `calendar-longitude'. When called with prefix | |
| 1285 | argument, latitude and longitude will be prompted for. | |
| 1286 | (defalias 'org-agenda-sunrise-sunset #[(arg) "\304\305!\210?\205\n ?\205 \n\203 \306\202 \307\310!+\207" [arg calendar-longitude calendar-latitude calendar-location-name require solar "the given coordinates" org-agenda-execute-calendar-command calendar-sunrise-sunset] 3 (#$ . 345754) "P"]) | |
| 1287 | #@54 Open the Emacs calendar with the date at the cursor. | |
| 1288 | (defalias 'org-agenda-goto-calendar #[nil "\305\306\307\"\210\310dS`^\300\"\206 \311\312!\313!\314\211\314 \315 \210\316 !-\207" [day date calendar-move-hook calendar-view-holidays-initially-flag calendar-view-diary-initially-flag org-agenda-check-type t agenda get-text-property user-error "Don't know which date to open in calendar" calendar-gregorian-from-absolute nil calendar calendar-goto-date] 4 (#$ . 346295) nil]) | |
| 1289 | #@138 Compute the Org agenda for the calendar date displayed at the cursor. | |
| 1290 | This is a command that has to be installed in `calendar-mode-map'. | |
| 1291 | (defalias 'org-calendar-goto-agenda #[nil "\306\307\310\307\311 \211\312\n8)\307\211 \313U\203 \314\315!\202q\f\313V\203\232 \fS\316\n\211\211@) \n\211A@) \n\312\n8) S\317_\\ \312V\203\206 \320 \321_\\\322\245Z\f\211 \313W\203g \323\f!S\f\321\246\313U\205} \f\324\246\313U?\206} \f\325\246\313U)\203\206 T- \326_ \321\245 \324\245[ \325\245%\202q\323\fT!\327\n\211\211@) \n\211A@) \n\312\n8) S\317_\\ \312V\203\376 \320 \321_\\\322\245Z\f\211 \313W\203\337 \323\f!S\f\321\246\313U\205\365 \f\324\246\313U?\206\365 \f\325\246\313U)\203\376 T- \326_ \321\245 \324\245[ \325\245\330\211\211@) \n\211A@) \n\312\n8) S\317_\\ \312V\203l\320 \321_\\\322\245Z\f\211 \313W\203M\323\f!S\f\321\246\313U\205c\f\324\246\313U?\206c\f\325\246\313U)\203lT-&+\307#*\207" [org-agenda-sticky org-agenda-buffer-tmp-name date offset-years year month "*Org Agenda(a)*" nil org-agenda-list calendar-cursor-to-date 2 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) day day-of-year] 13 (#$ . 346784) nil]) | |
| 1292 | (defalias 'org-agenda-convert-date #[nil "\306\307\310\"\210\311dS`^\302\"\312\211\211\204 \313\314!\210\315\n!\316\317 !\320\321\322 !\320\323\324 !\320\325\326 !\320\327\330 !\331\332\333 !\334\335\336 !\334\337\340 !\320\341\342 !\334\343\344 !\320\345\346 !\320\347\350 !\320\351\352 !\320\353\354 !\320\260* r\355\356!q\210p\357 \210\f\312\2117\307\2118\307 9 :\360 \210\361\362!\210+\211 ; <\363!\210\364;!\210+\365\366\356!!+\207" [s date day default-directory #1=#:old-dir buffer-read-only org-agenda-check-type t agenda get-text-property nil user-error "Don't know which date to convert" calendar-gregorian-from-absolute "Gregorian: " calendar-date-string "\n" "ISO: " calendar-iso-date-string "Day of Yr: " calendar-day-of-year-string "Julian: " calendar-julian-date-string "Astron. JD: " calendar-astro-date-string " (Julian date number at noon UTC)\n" "Hebrew: " calendar-hebrew-date-string " (until sunset)\n" "Islamic: " calendar-islamic-date-string "French: " calendar-french-date-string "Bahá’í: " calendar-bahai-date-string "Mayan: " calendar-mayan-date-string "Coptic: " calendar-coptic-date-string "Ethiopic: " calendar-ethiopic-date-string "Persian: " calendar-persian-date-string "Chinese: " calendar-chinese-date-string get-buffer-create "*Dates*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show org-fit-window-to-buffer get-buffer-window buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 43 nil nil]) | |
| 1293 | #@55 Non-nil when current entry is marked for bulk action. | |
| 1294 | (defalias 'org-agenda-bulk-marked-p #[nil "\300\301 \302\"\303=\207" [get-char-property point-at-bol type org-marked-entry-overlay] 3 (#$ . 349622)]) | |
| 1295 | #@49 Mark the entry at point for future bulk action. | |
| 1296 | (defalias 'org-agenda-bulk-mark #[(&optional arg) "\206 \306\307 \nW\205\213 \310\311\312 \"\262\204\204 \313\311\312 \"\262\314 \315 \204P \2041 \316\317!\210 B\320\312 \321\312 \\\"\322\f!\323P\324\325!\326$\210\327\f\330\331#\210\306\210\3321` \333`\313\"b0\202d \210\202g \204k \334\321!\210\335`\336\"\203} m\204} \334\321!\210\202k \337\340 G\"\210* T\211\202 *\207" [arg i --dotimes-limit-- m ov org-agenda-bulk-marked-entries 1 0 org-agenda-diary-link get-text-property point-at-bol org-hd-marker nil org-agenda-bulk-marked-p user-error "Nothing to mark at point" make-overlay 2 org-overlay-display " " org-get-todo-face "TODO" evaporate overlay-put type org-marked-entry-overlay (error) next-single-property-change beginning-of-line get-char-property invisible message "%d entries marked for bulk action" org-agenda-bulk-mark-char] 6 (#$ . 349832) "p"]) | |
| 1297 | #@49 Mark all entries for future agenda bulk action. | |
| 1298 | (defalias 'org-agenda-bulk-mark-all #[nil "\300\301!\207" [org-agenda-bulk-mark-regexp "."] 2 (#$ . 350766) nil]) | |
| 1299 | #@61 Mark entries matching REGEXP for future agenda bulk action. | |
| 1300 | (defalias 'org-agenda-bulk-mark-regexp #[(regexp) "\303\304\212eb\210\305`\306\"b\210\307\n\304\310#\203> \311`\312\"\211\203> \313`\314\"\203- \315\316!\210\202 \317\n\"\203 T\320\321!\210\202 ) ?\205G \322\323!*\207" [txt-at-point entries-marked regexp 0 nil next-single-property-change org-hd-marker re-search-forward t get-text-property txt get-char-property invisible beginning-of-line 2 string-match call-interactively org-agenda-bulk-mark message "No entry matching this regexp."] 4 (#$ . 350934) "sMark entries matching regexp: "]) | |
| 1301 | #@51 Unmark the entry at point for future bulk action. | |
| 1302 | (defalias 'org-agenda-bulk-unmark #[(&optional arg) "\203 \302 \207\303 \203T \304\305 \306\305 \\\"\210\307\310\311\305 \"\262 \"\312\210\31311 \314`\315\"b0\2025 \210\2028 \204< \316\306!\210\317`\320\"\203N m\204N \316\306!\210\202< \321\322 G\"\207\321\323!\207" [arg org-agenda-bulk-marked-entries org-agenda-bulk-unmark-all org-agenda-bulk-marked-p org-agenda-bulk-remove-overlays point-at-bol 2 delete org-hd-marker get-text-property 1 (error) next-single-property-change txt beginning-of-line get-char-property invisible message "%d entries left marked for bulk action" "No entry to unmark here"] 5 (#$ . 351549) "P"]) | |
| 1303 | #@35 Toggle all marks for bulk action. | |
| 1304 | (defalias 'org-agenda-bulk-toggle-all #[nil "\212eb\210\3001 \301`\302\"b0\202 \210\303\202 \205 \304 \210\202 )\207" [(error) next-single-property-change org-hd-marker nil org-agenda-bulk-toggle] 3 (#$ . 352238) nil]) | |
| 1305 | #@43 Toggle the mark at point for bulk action. | |
| 1306 | (defalias 'org-agenda-bulk-toggle #[nil "\300 \203 \301 \207\302 \207" [org-agenda-bulk-marked-p org-agenda-bulk-unmark org-agenda-bulk-mark] 1 (#$ . 352502) nil]) | |
| 1307 | #@225 Remove the mark overlays between BEG and END in the agenda buffer. | |
| 1308 | BEG and END default to the buffer limits. | |
| 1309 | ||
| 1310 | This only removes the overlays, it does not remove the markers | |
| 1311 | from the list in `org-agenda-bulk-marked-entries'. | |
| 1312 | (defalias 'org-agenda-bulk-remove-overlays #[(&optional beg end) "\302\303\304\206 e \206 d\"\"\207" [beg end mapc #[(ov) "\301\302\"\303=\205\f \304!\207" [ov overlay-get type org-marked-entry-overlay delete-overlay] 3] overlays-in] 5 (#$ . 352716) nil]) | |
| 1313 | #@87 Remove all marks in the agenda buffer. | |
| 1314 | This will remove the markers and the overlays. | |
| 1315 | (defalias 'org-agenda-bulk-unmark-all #[nil "\204 \301\302!\207\303\304ed\"\207" [org-agenda-bulk-marked-entries message "No entry to unmark" nil org-agenda-bulk-remove-overlays] 3 (#$ . 353207) nil]) | |
| 1316 | #@147 Non-nil means marked items will stay marked after a bulk action. | |
| 1317 | You can toggle this interactively by typing `p' when prompted for a | |
| 1318 | bulk action. | |
| 1319 | (custom-declare-variable 'org-agenda-persistent-marks nil '(#$ . 353504) :group 'org-agenda :version "24.1" :type 'boolean) | |
| 1320 | #@118 Execute an remote-editing action on all marked entries. | |
| 1321 | The prefix arg is passed through to the command if possible. | |
| 1322 | (defalias 'org-agenda-bulk-action #[(&optional arg) "\204 \306\307!\210\310\211\2039 \n@\311 !\203- \312 !\203- \313\312 !!\203- \314 !\2042 \306\315 \"\210\nA\211\204 *\316 \203C \317\202D \320\321\322\f\205R \323\324\325\326\f\327#\"R!\210\3302\203 \205^ \331 \332! @\333`\334\"\205m \335 A\310\211 B C\336 \211 D\337=\203\216 ?\340 \210\341\330\310\"\210)\202\316D\342=\203\233 \343C\202\316D\344=\203\250 \345C\202\316D\346>\203\372 \347\350\312@@!E# F\351F8\203\344 \351F\233\352 \351F8\353FA@!\206\341 \354FA@!\206\341 \355\356!\223\240\210\357\310\360\310\361FD\362BBBEC\363B)\202\316D\364=\203$\365\366r\312@@!q\210\367\370G\")\" H\357\310\371\372\373HDEEC)\202\316D\374>\203xD I\365\323\375I\376=\203=\377\202@\201a \"r\312@@!q\210\201b \310\367\201c J\"\")\" K\357\310\201d KI\376=\203m\201e \202p\201f EEC*\202\316D\201g >\203\376D\211 L\201h =\211 M\203\226\201i \202\231\201j NO?\205\314\201k \310\211\211NA% P\201l Q\310\363 R\201m #)\266\203\203\311Q\202\313P) M\203\347\357\310\371\201n \201o \201O EEE\202\370\357\310\371\201p \201q \201O EEEC,\202\316D\201r =\203U\201s \310\201t \201u #\204 \306\201v S\"\210\201w \323\201x O\203/\201y \2020\327\"\201z \" T\357\310\371\201{ \201| \201} TDDDC\201~ BBEC)\202\316D\201 =\203u\201\200 \365\201\201 U\201\202 \363\310\211&!C\202\316D I\201\203 I\f\"\211 V:\203\305VA\211 W:\203\271W@ XWA\211 Y\204\255X\211 ZC\363B)\202\265\306\201\204 I\"\210*\202\301\306\201\204 I\"\210)\202\315\306\201\204 I\"\210*)\201\205 @\201\206 \"@\201\207 \211 [ \\@\310 ]\211\203F\n@]\201\210 ed\201\211 ]$\211 ^\204\316\201\212 ]\"\210[T[\202>^b\210\310 _C \210)\201\213 \201\214 \201` !>\2044\201\213 `>\2039\201\213 \210\\T\\)\nA\211\204\354*B\203Q\201\215 \210 \204Z\201\216 \210\316\201\217 \\[\201\207 U\203m\327\202t\323\201\220 [\" \204|\327\202\201\221 $.0\207" [org-agenda-bulk-marked-entries m --dolist-tail-- org-agenda-persistent-marks org-agenda-bulk-custom-functions org-log-refile user-error "No entries are marked" nil markerp marker-buffer buffer-live-p marker-position "Marker %s for bulk command is invalid" message "Bulk (persistent): " "Bulk: " "[$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [d]eadline [r]efile " "[S]catter [f]unction " format " Custom: [%s]" mapconcat #[(f) "\301@!\207" [f char-to-string] 2] "" exit time reverse get-text-property org-agenda-date-header org-get-cursor-date read-char-exclusive 112 org-agenda-bulk-action throw 36 org-agenda-archive 65 org-agenda-archive-to-archive-sibling (119 114) org-refile-get-location "Refile to" 3 make-marker get-file-buffer find-buffer-visiting error "This should not happen" lambda org-agenda-refile quote (t) t 116 completing-read "Todo state: " mapcar list let ((org-inhibit-blocking t) (org-inhibit-logging 'note)) org-agenda-todo (43 45) "Tag to %s: " 43 "add" entries org-overriding-default-time redo-at-end cmd #1=#:val org-refile-allow-creating-parent-nodes refile-location org-todo-keywords-1 state action org-current-tag-alist tag c schedule\? prompt arg new org-read-date-final-answer inhibit-changing-match-data org-agenda-type days obarray #2=#:val #3=#:x537 #4=#:x538 #5=#:x539 f skipped processed e pos org-loop-over-headlines-in-active-region post-command-hook "remove" delq #[(x) "@;\205 \207" [x] 1] org-agenda-set-tags 'on 'off (100 115) 115 "(Re)Schedule to" "(Re)Set Deadline to" org-read-date "\\`[ ]*\\+\\+" string-match ((org-log-reschedule (and org-log-reschedule 'time))) org-agenda-schedule ((org-log-redeadline (and org-log-redeadline 'time))) org-agenda-deadline 83 org-agenda-check-type agenda todo "Can't scatter tasks in \"%s\" agenda view" read-number "Scatter tasks across how many %sdays: " "week" 7 distance 1+ random ((when arg (let ((dist distance) (day-of-week (calendar-day-of-week (calendar-gregorian-from-absolute (org-today))))) (dotimes (i (1+ dist)) (while (member day-of-week org-agenda-weekend-days) (cl-incf distance) (cl-incf day-of-week) (when (= day-of-week 7) (setq day-of-week 0))) (cl-incf day-of-week) (when (= day-of-week 7) (setq day-of-week 0))))) (ignore-errors (let* ((date (calendar-gregorian-from-absolute (+ (org-today) distance))) (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date)))) (org-agenda-schedule nil time)))) 102 intern "Function: " fboundp assoc "Invalid bulk action: %c" sort #[(a b) "\302!\302 !=\203 \303!\303 !W\207\304\302!!\304\302 !!\231\207" [a b marker-buffer marker-position buffer-name] 4] 0 text-property-any org-hd-marker "Skipping removed entry at %s" org-add-log-note default-value org-agenda-redo org-agenda-bulk-unmark-all "Acted on %d entries%s%s" ", skipped %d (disappeared before their turn)" " (kept marked)"] 11 (#$ . 353781) "P"]) | |
| 1323 | #@130 Call `org-capture' with the date at point. | |
| 1324 | With a `C-1' prefix, use the HH:MM value at point (if any) or the | |
| 1325 | current HH:MM time. | |
| 1326 | (defalias 'org-agenda-capture #[(&optional with-time) "\303=\204\n \304\305!\207\306 \307\232!\310\311!)\207" [major-mode with-time org-overriding-default-time org-agenda-mode user-error "You cannot do this outside of agenda buffers" org-get-cursor-date 1 call-interactively org-capture] 3 (#$ . 358736) "P"]) | |
| 1327 | #@30 Re-apply all agenda filters. | |
| 1328 | (defalias 'org-agenda-reapply-filters #[nil "\304\305\306B \307B\n\310B \311B\300\312N\313B\301\312N\314B\303\312N\315B\302\312N\316B\257\"\207" [org-agenda-tag-filter org-agenda-category-filter org-agenda-regexp-filter org-agenda-effort-filter mapcar #[(f) "@\205 \301@A@\302#\207" [f org-agenda-filter-apply t] 4] (tag) (category) (regexp) (effort) :preset-filter (tag) (category) (effort) (regexp)] 11 (#$ . 359183)]) | |
| 1329 | #@108 Drag an agenda line forward by ARG lines. | |
| 1330 | When the optional argument `backward' is non-nil, move backward. | |
| 1331 | (defalias 'org-agenda-drag-line-forward #[(arg &optional backward) "\306\307\211\310`\311\"\203= \212 \312 \f W\2034 \313\203\" \312\202# \314!\210\310`\311\"? B\fT\211\202 *\315\307 \")\203C \316\317!\202v \212\313\314!\210`) \313\320!\210`{`|\210\313\203d \321\202e \322 !!\210c\210\323 \210\324 \210\313\312!)+\207" [line lst inhibit-read-only arg n --dotimes-limit-- t nil get-text-property txt 0 move-beginning-of-line 2 delq message "Cannot move line forward" 1 1- 1+ org-agenda-reapply-filters org-agenda-mark-clocking-task backward end] 4 (#$ . 359646) "p"]) | |
| 1332 | #@44 Drag an agenda line backward by ARG lines. | |
| 1333 | (defalias 'org-agenda-drag-line-backward #[(arg) "\301\302\"\207" [arg org-agenda-drag-line-forward t] 3 (#$ . 360344) "p"]) | |
| 1334 | #@163 Display the flagging note in the other window. | |
| 1335 | When called a second time in direct sequence, offer to remove the FLAGGING | |
| 1336 | tag and (if present) the flagging note. | |
| 1337 | (defalias 'org-agenda-show-the-flagging-note #[nil "\306\307\310 \"\262\311 \312\211\211\211 \204 \313\314!\210 $=\203> \315\316!\203> \317\f!\210\320\321!\211\2037 \322 !\210)\323\324!\202z \325\f\326\"\211\204K \313\327!\210\330\n!\210\331\321!\210\332 \210\nc\210eb\210\333\334\312\335#\203m \336\337\335\211#\210\202\\ eb\210\340 !\210\323\341\342\343!\"-\207" [newhead heading note win hdmarker this-command org-hd-marker get-text-property point-at-bol selected-window nil user-error "No linked entry at point" y-or-n-p "Unflag and remove any flagging note? " org-agenda-remove-flag get-buffer-window "*Flagging Note*" delete-window message "Entry unflagged" org-entry-get "THEFLAGGINGNOTE" "No flagging note" org-kill-new org-switch-to-buffer-other-window erase-buffer re-search-forward "\\\\n" t replace-match "\n" select-window "%s" substitute-command-keys "Flagging note pushed to kill ring. Press `\\[org-agenda-show-the-flagging-note]' again to remove tag and note" last-command] 6 (#$ . 360520) nil]) | |
| 1338 | #@60 Remove the FLAGGED tag and any flagging note in the entry. | |
| 1339 | (defalias 'org-agenda-remove-flag #[(marker) "\303 \212\304\n!\203 \305\n!q\210\212\214~\210\n\206 `b\210\306\307\310\"\210\311\303\312\"\210\313 ,\314 \"\210\315\316!)\207" [newhead marker #1=#:--mpom nil markerp marker-buffer org-toggle-tag "FLAGGED" off org-entry-delete "THEFLAGGINGNOTE" org-get-heading org-agenda-change-all-lines message "Entry unflagged"] 3 (#$ . 361712)]) | |
| 1340 | (defalias 'org-agenda-get-any-marker #[(&optional pos) "\301\206 \302 \303\"\206 \301\206 \302 \304\"\207" [pos get-text-property point-at-bol org-hd-marker org-marker] 3]) | |
| 1341 | #@1144 Activate appointments found in `org-agenda-files'. | |
| 1342 | ||
| 1343 | With a `\[universal-argument]' prefix, refresh the list of appointments. | |
| 1344 | ||
| 1345 | If FILTER is t, interactively prompt the user for a regular | |
| 1346 | expression, and filter out entries that don't match it. | |
| 1347 | ||
| 1348 | If FILTER is a string, use this string as a regular expression | |
| 1349 | for filtering entries out. | |
| 1350 | ||
| 1351 | If FILTER is a function, filter out entries against which | |
| 1352 | calling the function returns nil. This function takes one | |
| 1353 | argument: an entry from `org-agenda-get-day-entries'. | |
| 1354 | ||
| 1355 | FILTER can also be an alist with the car of each cell being | |
| 1356 | either `headline' or `category'. For example: | |
| 1357 | ||
| 1358 | \='((headline "IMPORTANT") | |
| 1359 | (category "Work")) | |
| 1360 | ||
| 1361 | will only add headlines containing IMPORTANT or headlines | |
| 1362 | belonging to the "Work" category. | |
| 1363 | ||
| 1364 | ARGS are symbols indicating what kind of entries to consider. | |
| 1365 | By default `org-agenda-to-appt' will use :deadline*, :scheduled* | |
| 1366 | (i.e., deadlines and scheduled items with a hh:mm specification) | |
| 1367 | and :timestamp entries. See the docstring of `org-diary' for | |
| 1368 | details and examples. | |
| 1369 | ||
| 1370 | If an entry has a APPT_WARNTIME property, its value will be used | |
| 1371 | to override `appt-message-warning-time'. | |
| 1372 | (defalias 'org-agenda-to-appt #[(&optional refresh filter &rest args) "\203 \306\n\307=\203 \310\311!\312\f\206 \313 \306 \312 \314\315\316 !! !\306 \"\317\320! #\306\211 $ %\306 &\321#!\210#\211A#\242\211%\203] \322\306\323$\324\325%! $\"\"$\202< \326\327$\"\210\330 !\210 \312=\203t \331\332!\202\203 \331\333 \211\334V\203\201 \335\202\202 \336#.\n\207" [refresh appt-time-msg-list filter cnt args scope nil t read-from-minibuffer "Regexp filter: " 0 (:deadline* :scheduled* :timestamp) org-date-to-gregorian time-to-days current-time org-agenda-files unrestricted org-agenda-prepare-buffers delq append apply org-agenda-get-day-entries mapc #[(x) "\306\307\310\311\312 #\206\f \313#\314\306\203 \315\202 \316\313\306\317\313##\266\202\310 GS\320 #\310\311\321 # ?\206z ;\203B \322 \n\"\206z \323 !\203N !\206z <\205z \324 \236A@\325 \236A@ \211 ;\203n \322 \"\206y ;\205y \322 \n\"* !\310\311\326 # \"!\205\273 \f\205\273 \322\327\n\"?\205\273 \330\331\f!P\322\332\f\"\205\253 \333\311\f\"\334\333\335\f\"Q\336\f\n\"#\205\273 #T\211#-\207" [org-bracket-link-regexp x evt cat tod filter replace-regexp-in-string "\\3" get-text-property 1 txt #1="" nil "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'" org-category time-of-day string-match functionp category headline warntime "\\`DONE\\|CANCELLED" "00" number-to-string "\\([0-9]\\{1,2\\}\\)\\([0-9]\\{2\\}\\)\\'" match-string ":" 2 appt-add evt-filter cat-filter ok wrn cnt] 10] org-release-buffers message "No event to add" "Added %d event%s for today" 1 "s" #1# org-agenda-new-buffers org-deadline-warning-days today org-agenda-restrict files entries file org-agenda-buffer] 10 (#$ . 362344) "P"]) | |
| 1373 | #@240 Non nil when DATE means today. | |
| 1374 | DATE is either a list of the form (month day year) or a number of | |
| 1375 | days as returned by `calendar-absolute-from-gregorian' or | |
| 1376 | `org-today'. This function considers `org-extend-today-until' | |
| 1377 | when defining today. | |
| 1378 | (defalias 'org-agenda-today-p #[(date) "\306 :\203]\211\3078)\310\211\311U\203 \312\313!\202Y\n\311V\203\222 \nS\314\211\211@)\211A@) \3078)\f S\315_\\ \307V\203 \316 \317_\\\320\245Z\n\211\311W\203b \321\n!S\n\317\246\311U\205x \n\322\246\311U?\206x \n\323\246\311U)\203 T - \324_ \317\245 \322\245[ \323\245%\202Y\321\nT!\325\211\211@)\211A@) \3078)\f S\315_\\ \307V\203\357 \316 \317_\\\320\245Z\n\211\311W\203\322 \321\n!S\n\317\246\311U\205\350 \n\322\246\311U?\206\350 \n\323\246\311U)\203\357 T - \324_ \317\245 \322\245[ \323\245\326\211\211@)\211A@) \3078)\f S\315_\\ \307V\203U \316 \317_\\\320\245Z\n\211\311W\2038\321\n!S\n\317\246\311U\205N\n\322\246\311U?\206N\n\323\246\311U)\203U T -&+\202^=\207" [date offset-years year month day day-of-year org-today 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 12 (#$ . 365192)]) | |
| 1379 | #@75 Like `org-agenda-todo' but the time of change will be 23:59 of yesterday. | |
| 1380 | (defalias 'org-agenda-todo-yesterday #[(&optional arg) "\304\305\306\307 !8\211T\310 !+\207" [org-use-effective-time hour org-extend-today-until arg t 2 decode-time org-current-time org-agenda-todo] 4 (#$ . 366383) "P"]) | |
| 1381 | (provide 'org-agenda) | |
