;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require cl-lib ol org org-macs org-refile] 2) (defvar org-agenda-buffer-name "*Org Agenda*") (defvar org-agenda-title-append nil) #@63 List of undoable operations in the agenda since last refresh. (defvar org-agenda-undo-list nil (#$ . 294)) #@73 In a series of undo commands, this is the list of remaining undo items. (defvar org-agenda-pending-undo-list nil (#$ . 407)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\322\323\324\325\326\327\306\307&\210\300\330\302\303\331DD\332\306\323\310\315&\210\300\333\302\303\334DD\335\306\323\310\336&\210\300\337\302\303\340DD\341\306\323\310\342\343\344& \210\300\345\302\303\346DD\347\306\307\310\350&\210\300\351\302\303\352DD\353\306\307\310\315&\210\300\354\302\303\355DD\356\306\323\306\357\310\360& \210\300\361\302\303\362DD\363\306\307\310\315&\210\322\364\324\365\326\366\306\307&\207" [custom-declare-variable org-agenda-confirm-kill funcall function #[0 "\300\207" [1] 1 #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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [61] 1 #1#] "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 nil "Options concerning exporting agenda views in Org mode." :tag "Org Agenda Export" org-agenda-with-colors #[0 "\300\207" [t] 1 #1#] "Non-nil means use colors in agenda views." org-agenda-exporter-settings #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [(org-agenda-add-entry-text)] 1 #1#] "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 "\300\207" [0] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 is nil, the URL will (also) be shown." org-agenda-export-html-style #[0 "\300\207" [nil] 1 #1#] "The style specification for exported HTML Agenda files.\nIf this variable contains a string, it will replace the default \n\nor, if you want to keep the style in a file,\n\n \n\nAs the value of this option simply gets inserted into the HTML header,\nyou can \"misuse\" it to also add other text to the header." org-export-html (choice (const nil) (string)) org-agenda-persistent-filter #[0 "\300\207" [nil] 1 #1#] "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) #@18 Sorting choices. (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)) (#$ . 5755)) (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) #@1617 List of types searched for when creating the daily/weekly agenda. This variable is a list of symbols that controls the types of items that appear in the daily/weekly agenda. Allowed symbols in this list are :timestamp List items containing a date stamp or date range matching the selected date. This includes sexp entries in angular brackets. :sexp List entries resulting from plain diary-like sexps. :deadline List deadline due on that date. When the date is today, also list any deadlines past due, or due within `org-deadline-warning-days'. :deadline* Same as above, but only include the deadline if it has an hour specification as [h]h:mm. :scheduled List all items which are scheduled for the given date. The diary for *today* also contains items which were scheduled earlier and are not yet marked DONE. :scheduled* Same as above, but only include the scheduled item if it has an hour specification as [h]h:mm. By default, all four non-starred types are turned on. When :scheduled* or :deadline* are included, :schedule or :deadline will be ignored. Never set this variable globally using `setq', because then it will apply to all future agenda commands. Instead, bind it with `let' to scope it dynamically into the agenda-constructing command. A good way to set it is through options in `org-agenda-custom-commands'. For a more flexible (though somewhat less efficient) way of determining what is included in the daily/weekly agenda, see `org-agenda-skip-function'. (defvar org-agenda-entry-types '(:deadline :scheduled :timestamp :sexp) (#$ . 6565)) #@127 Selection of examples for agenda command settings. This will be spliced into the custom type of `org-agenda-custom-commands'. (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 "Columns format" (const org-overriding-columns-format) (string :tag "Format")) (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) (#$ . 8273)) (byte-code "\301\302\303\304\305DD\306\307\302\310\311\312\313\314\315\316\317\320\321\322\323\324BBBBBBBB\315\316\325\326\327\311\316\330\312\315\316\331\332\333\257\315\316\334\335\336\257\315\316\337\340\341\257\315\316\342\343\344\257\315\316\345\346\347\257\315\316\350\351\352\257\315\316\353\354\355\257\315\316\356\357\360\257\257 F\361BBBBBB\362BBBBBD&\210\301\363\303\304\364DD\365\307\302\310\366&\210\301\367\303\304\370DD\371\307\302\310\372&\210\373\374\375\376\316\377\307\201@&\210\301\201A\303\304\201BDD\201C\307\374\310\201D&\210\373\201E\375\201F\316\201G\307\201@&\210\373\201H\375\201I\316\201J\307\201@&\210\373\201K\375\201L\316\201M\307\201@&\210\373\201N\375\201O\316\201P\307\201@&\207" [org-agenda-custom-commands-local-options custom-declare-variable org-agenda-custom-commands funcall function #[0 "\300\207" [(("n" "Agenda and all TODOs" ((agenda #1="") (alltodo #1#))))] 1 #1#] "Custom commands for the agenda.\n\\\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/property/todo match expression for 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/Property match (all agenda files)" (const :format #1# tags) (string :tag "Match") "Tags/Property match of TODO entries (all agenda files)" (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 #[0 "\300\207" [111] 1 #1#] "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 #[0 "\300\207" [("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") nil #1#)] 1 #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 #[0 "\300\207" [nil] 1 #1#] "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) #@295 Non-nil means the agenda will include archived items. If this is the symbol `trees', trees in the selected agenda scope that are marked with the ARCHIVE tag will be included anyway. When this is t, also all archive files associated with the current selection of agenda files will be included. (defvar org-agenda-archives-mode nil (#$ . 21928)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\315\306\321\310\311& \210\300\322\302\303\323DD\324\306\315\306\321\310\311& \210\300\325\302\303\326DD\327\306\315\306\321\330\331\310\332& \210\300\333\302\303\334DD\335\306\315\306\321\310\336& \210\300\337\302\303\340DD\341\306\315\306\321\310\342& \210\300\343\302\303\344DD\345\306\315\306\321\330\346\347\350\310\351& \210\300\352\302\303\353DD\354\306\315\306\321\306\355\310\311& \210\300\356\302\303\357DD\360\306\315\306\361\310\311& \210\300\362\302\303\363DD\364\306\315\306\361\310\365& \210\300\366\302\303\367DD\370\306\315\306\361\330\331\310\371& \210\300\372\302\303\373DD\374\306\315\306\361\310\311& \210\300\375\302\303\376DD\377\306\315\306\361\330\331\310\201@& \210\300\201A\302\303\201BDD\201C\306\315\306\361\330\346\347\201D\310\201E& \210\300\201F\302\303\201GDD\201H\306\315\310\311&\210\300\201I\302\303\201JDD\201K\306\315\306\361\310\311& \210\300\201L\302\303\201MDD\201N\306\361\306\321\330\201O\310\201P& \210\201Q\201R\201S\201T\201U\201V\306\307&\210\300\201W\302\303\201XDD\201Y\306\307\330\331\310\311& \210\300\201Z\302\303\201[DD\201\\\306\307\330\331\310\311& \210\300\201]\302\303\201^DD\201_\306\201R\310\201`&\210\300\201a\302\303\201bDD\201c\306\201R\347\201d\310\201`& \210\300\201e\302\303\201fDD\201g\306\201R\310\311&\210\300\201h\302\303\201iDD\201j\306\201R\310\311&\210\300\201k\302\303\201lDD\201m\306\307\330\331\310\311& \210\300\201n\302\303\201oDD\201p\306\201R\310\311&\210\300\201q\302\303\201rDD\201s\306\201R\310\311&\210\300\201t\302\303\201uDD\201v\306\307\310\201w&\210\300\201x\302\303\201yDD\201z\306\307\310\201{&\210\300\201|\302\303\201}DD\201~\330\346\347\201\306\307\310\201\200& \207" [custom-declare-variable org-agenda-restriction-lock-highlight-subtree funcall function #[0 "\300\207" [t] 1 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Non-nil means don't select item by timestamp or -range if it is DONE." org-agenda-dim-blocked-tasks #[0 "\300\207" [t] 1 #1#] "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 nil "Options concerning initial settings in the Agenda in Org Mode." :tag "Org Agenda Startup" org-agenda-menu-show-matcher #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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-filter-hook #[0 "\300\207" [nil] 1 #1#] "Hook run just after filtering with `org-agenda-filter'." (Org . "9.4") org-agenda-mouse-1-follows-link #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "The initial value of follow mode in a newly created agenda window." org-agenda-follow-indirect #[0 "\300\207" [nil] 1 #1#] "Non-nil means `org-agenda-follow-mode' displays only the\ncurrent item's tree, in an indirect buffer." org-agenda-show-outline-path #[0 "\300\207" [t] 1 #1#] "Non-nil means show outline path in echo area after line motion." org-agenda-start-with-entry-text-mode #[0 "\300\207" [nil] 1 #1#] "The initial value of entry-text-mode in a newly created agenda window." org-agenda-entry-text-maxlines #[0 "\300\207" [5] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [" > "] 1 #1#] "Text prepended to the entry text in agenda buffers." (Org . "8.0") string] 14) #@386 Hook that is run after basic cleanup of entry text to be shown in agenda. This cleanup is done in a temporary buffer, so the function may inspect and change the entire buffer. Some default stuff like drawers and scheduling/deadline dates will already have been removed when this is called, as will any matches for regular expressions listed in `org-agenda-entry-text-exclude-regexps'. (defvar org-agenda-entry-text-cleanup-hook nil (#$ . 39426)) #@75 Non-nil means include inactive time stamps in agenda. Dynamically scoped. (defvar org-agenda-include-inactive-timestamps nil (#$ . 39878)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317\320\321& \210\310\322\312\313\323DD\324\306\301\316\325&\210\310\326\312\313\327DD\330\306\301\316\331&\210\310\332\312\313\333DD\334\306\335\316\336&\210\310\337\312\313\340DD\341\306\335\316\342&\210\310\343\312\313\344DD\345\306\335\316\331&\210\310\346\312\313\347DD\350\306\335\316\351&\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 funcall function #[0 "\300\207" [reorganize-frame] 1 #1=""] "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.\nother-tab Use `switch-to-buffer-other-tab' to display the\n agenda, making use of the `tab-bar-mode' introduced\n in Emacs version 27.1. Also, kill that tab when\n exiting the agenda view.\n\nSee also the variable `org-agenda-restore-windows-after-quit'." :type (choice (const current-window) (const other-frame) (const other-tab) (const other-window) (const only-window) (const reorganize-frame)) :package-version (Org . "9.4") org-agenda-window-frame-fractions #[0 "\300\207" [(0.5 . 0.75)] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Non-nil means restore window configuration upon exiting agenda.\nBefore the window configuration is changed for displaying the\nagenda, the current status is recorded. When the agenda is\nexited with `q' or `x' and this option is set, the old state is\nrestored. If `org-agenda-window-setup' is `other-frame' or\n`other-tab', the value of this option will be ignored." boolean org-agenda-span #[0 "\300\207" [week] 1 #1#] "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 #[0 "\300\207" [1] 1 #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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [org-agenda-format-date-aligned] 1 #1#] "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"))] 10) #@32 Go to the end of visible line. (defalias 'org-agenda-end-of-line #[0 "\300 b\207" [line-end-position] 1 (#$ . 43898) nil]) #@139 Format a DATE string for display in the daily/weekly agenda. This function makes sure that dates are aligned for easy reading. (fn DATE) (defalias 'org-agenda-format-date-aligned #[257 "\300\301!\210\302!A@\303!@\304!\3058\306\211\3058\262\307\310U\203.\311\312!\266\203\202l\310V\203\244S\262\313\211\211@\262\211A@\262\3058\262\314S_\\\305V\203\217\211\315\316_\\\317\245Z\262\211\310W\203p\320!S\262\211\316\246\310U\205\206\211\321\246\310U?\206\206\211\322\246\310U\262\203\217\211T\262\266\204\323_\316\245\321\245[\322\245%\266\203\202l\320T!\262\324\211\211@\262\211A@\262\3058\262\314S_\\\305V\203\211\315\316_\\\317\245Z\262\211\310W\203\342\320!S\262\211\316\246\310U\205\370\211\321\246\310U?\206\370\211\322\246\310U\262\203\211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3058\262\314S_\\\305V\203f\211\315\316_\\\317\245Z\262\211\310W\203G\320!S\262\211\316\246\310U\205]\211\321\246\310U?\206]\211\322\246\310U\262\203f\211T\262\266\204&\266\203!\326U\203z\327\330\"\202{\331\327\332  &\207" [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 format " W%02d" "" "%-10s %2d %s %4d%s"] 26 (#$ . 44028)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\313& \207" [custom-declare-variable org-agenda-time-leading-zero funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "When set, show AM/PM style timestamps on the timegrid." org-agenda] 10) #@81 Convert TIME of a string like "13:45" to an AM/PM style time string. (fn TIME) (defalias 'org-agenda-time-of-day-to-ampm #[257 "\301\302\303O!\304\305O\306\307=\203\310\262\202%\307V\203%\310\262\307Z\262\2030\311\312\"\2026\311\313\314!\"\315R\207" [org-agenda-time-leading-zero string-to-number 0 -3 -2 nil "am" 12 "pm" format "%02d" "%02s" number-to-string ":"] 8 (#$ . 45966)]) #@105 Conditionally convert TIME to AM/PM format. This is based on `org-agenda-timegrid-use-ampm'. (fn TIME) (defalias 'org-agenda-time-of-day-to-ampm-maybe #[257 "\203\301!\207\207" [org-agenda-timegrid-use-ampm org-agenda-time-of-day-to-ampm] 3 (#$ . 46375)]) (byte-code "\301\302\303\304\305DD\306\307\310\311\312&\210\301\313\303\304\314DD\315\307\310\316\317\311\320& \210\301\321\303\304\322DD\323\307\324\311\325&\210\301\326\303\304\327DD\330\307\310\311\320&\210\301\331\303\304\332DD\333\307\310\316\317\311\320& \210\301\334\303\304\335DD\336\307\310\311\337\316\340\341\342\343\344& \210\301\345\303\304\346DD\347\307\310\311\350\316\340\341\351\343\352& \210\301\353\303\304\354DD\355\307\310\311\356\343\357& \210\301\360\303\304\361DD\362\307\310\311\356\316\340\341\363\343\357& \210\301\364\303\304\365DD\366\307\310\311\367&\210\301\370\303\304\371DD\372\307\310\307\373\316\317\311\374& \210\301\375\303\304\376DD\377\307\310\311\320&\210\301\201@\303\304\201ADD\201B\307\201C\307\310\311\201D& \210\301\201E\303\304\201FDD\201G\307\201C\307\310\311\320& \210\301\201H\303\304\201IDD\201J\307\310\311\374&\210\201K\201L\201M\"\210\301\201M\303\304\201NDD\201O\307\201P\316\317\311\320& \210\301\201Q\303\304\201RDD\201S\307\201P\316\317\311\320& \210\301\201T\303\304\201UDD\201V\307\201P\316\340\341\201W\311\356& \210\201X\201Y\201Z\201[\201\\\201]\307\324&\210\301\201^\303\304\201_DD\201`\307\201Y\311\320&\210\301\201a\303\304\201bDD\201c\307\201Y\311\320&\210\301\201Y\303\304\201dDD\201e\307\201Y\311\201f&\210\301\201g\303\304\201hDD\201i\307\201Y\316\317\311\320& \210\301\201j\303\304\201kDD\201l\307\201Y\316\317\311\201m& \210\201X\201n\201Z\201o\201\\\201p\307\324&\210\301\201q\303\304\201rDD\201s\307\201n\311\201t\201u\201\\\201vF\201w\201\\\201x\201y\201z\201uDE\201y\201{\201uDE\201y\201|\201uDE\201y\201}\201uDE\257E&\210\301\201~\303\304\201DD\201\200\307\201n\311\201\201&\210\301\201\202\303\304\201\203DD\201\204\307\201n\311\320&\210\301\201\205\303\304\201\206DD\201\207\307\201n\311\320&\210\201X\201\210\201Z\201\211\201\\\201\212\307\324&\210\301\201\213\303\304\201\214DD\201\215\311\201\216\307\201\210\316\340\341\201\217& \210\301\201\220\303\304\201\221DD\201\222\307\201\210\341\201\223\311\201m\343\201\224& \207" [org-sorting-choice custom-declare-variable org-agenda-weekend-days funcall function #[0 "\300\207" [(6 0)] 1 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "Non-nil means jump to today when moving a past date forward in time.\nWhen using S-right in the agenda to move 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-diary-file #[0 "\300\207" [diary-file] 1 #1#] "File to which to add new entries with the `i' key in agenda and calendar.\nWhen this is the symbol `diary-file', the functionality in the Emacs\ncalendar will be used to add entries to the `diary-file'. But when this\npoints to a file, `org-agenda-diary-entry' will be used instead." org-agenda (choice (const :tag "The standard Emacs diary file" diary-file) (file :tag "Special Org file diary entries")) org-agenda-include-diary #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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") #[257 "\300!\206\211:\207" [booleanp] 3 "\n\n(fn X)"] org-scheduled-past-days #[0 "\300\207" [10000] 1 #1#] "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 #[0 "\300\207" [10000] 1 #1#] "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 #[0 "\300\207" [(closed clock)] 1 #1#] "List of items that should be shown in agenda log mode.\n\\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 #[0 "\300\207" [(: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)] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "The initial value of clockreport-mode in a newly created agenda window." org-agenda-clockreport-parameter-plist #[0 "\300\207" [(:link t :maxlevel 2)] 1 #1#] "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." defvaralias org-agenda-search-view-search-words-only org-agenda-search-view-always-boolean #[0 "\300\207" [nil] 1 #1#] "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 org-agenda-search-view-force-full-words #[0 "\300\207" [nil] 1 #1#] "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 "\300\207" [0] 1 #1#] "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 nil "Options concerning the time grid in the Org Agenda." :tag "Org Agenda Time Grid" org-agenda-search-headline-for-time #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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'." #[0 "\300\207" [((daily today require-timed) (800 1000 1200 1400 1600 1800 2000) "......" "----------------")] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "Non-nil means show the current time in the time grid." org-agenda-current-time-string #[0 "\300\207" ["now - - - - - - - - - - - - - - - - - - - - - - - - -"] 1 #1#] "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 #[0 "\300\207" [((agenda habit-down time-up priority-down category-keep) (todo priority-down category-keep) (tags priority-down category-keep) (search category-keep))] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 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 #[0 "\300\207" [((agenda . " %i %-12:c%?-12t% s") (todo . " %i %-12:c") (tags . " %i %-12:c") (search . " %i %-12:c"))] 1 #1#] "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") org-agenda-breadcrumbs-separator #[0 "\300\207" ["->"] 1 #1#] "The separator of breadcrumbs in agenda lines." (Org . "9.3") stringp] 19) #@221 The compiled prefix format and associated variables. This is a list where first element is a list of variable bindings, and second element is the compiled format expression. See the variable `org-agenda-prefix-format'. (defvar org-prefix-format-compiled nil (#$ . 69209)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\300\322\302\303\323DD\324\306\307\325\326\327\330\310\331& \210\300\332\302\303\333DD\334\306\307\325\335\310\311& \210\300\336\302\303\337DD\340\306\307\325\326\327\341\310\342& \210\300\343\302\303\344DD\345\306\307\310\346&\210\300\347\302\303\350DD\351\306\307\325\335\310\352& \210\300\353\302\303\354DD\355\306\307\310\356&\210\300\357\302\303\360DD\361\306\307\306\362\325\363\310\364& \210\300\365\302\303\366DD\367\306\362\325\370\327\371\310\372& \210\300\373\302\303\374DD\375\306\307\310\376&\210\377\201@\201A\"\210\300\201A\302\303\201BDD\201C\306\307\310\201D&\210\377\201E\201F\"\210\300\201F\302\303\201GDD\201H\306\307\310\201I\327\201J\325\370& \210\300\201K\302\303\201LDD\201M\306\307\310\201N&\210\300\201O\302\303\201PDD\201Q\306\307\325\335\310\201R& \210\300\201S\302\303\201TDD\201U\306\307\325\335\310\201V& \210\201W\201X\201Y\201Z\201[\201\\\306\362&\210\300\201]\302\303\201^DD\201_\306\201X\310\352\325\370\327\201`\201a\201b& \210\300\201c\302\303\201dDD\201e\306\201X\310\352&\210\300\201f\302\303\201gDD\201h\306\201X\310\352&\210\300\201i\302\303\201jDD\201k\306\201X\310\352&\210\300\201l\302\303\201mDD\201n\306\362\310\201o&\210\300\201p\302\303\201qDD\201r\310\201s\327\201t\306\362& \207" [custom-declare-variable org-agenda-todo-keyword-format funcall function #[0 "\300\207" ["%-1s"] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [(#1# "(%d/%d): ")] 1 #1#] "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 #[0 "\300\207" [("Scheduled: " "Sched.%2dx: ")] 1 #1#] "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 #[0 "\300\207" ["["] 1 #1#] "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 #[0 "\300\207" [("Deadline: " "In %3d d.: " "%2d d. ago: ")] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Non-nil means remove time ranges specifications in agenda\nitems that span on several days." boolean org-agenda-default-appointment-duration #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [(todo search agenda)] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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) (regexp :tag "Regexp ")) defvaralias org-agenda-remove-tags-when-in-prefix org-agenda-remove-tags #[0 "\300\207" [nil] 1 #1#] "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)) org-agenda-align-tags-to-column org-agenda-tags-column #[0 "\300\207" [auto] 1 #1#] "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-fontify-priorities #[0 "\300\207" [cookies] 1 #1#] "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-priority-highest',\n`org-priority-default', and `org-priority-lowest' (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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 (regexp :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 sexp)) (list :tag "Display properties" sexp))) custom-declare-group org-agenda-column-view nil "Options concerning column view in the agenda." :tag "Org Agenda Column View" org-agenda-view-columns-initially #[0 "\300\207" [nil] 1 #1#] "When non-nil, switch to columns view right after creating the agenda." (Org . "9.0") :safe booleanp org-agenda-columns-show-summaries #[0 "\300\207" [t] 1 #1#] "Non-nil means show summaries for columns displayed in the agenda view." org-agenda-columns-compute-summary-properties #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "A function called with a tag to decide if it is filtered on \\`\\[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, \"-\" to exclude the tag, or \"+\" to exclude\nlines not carrying this 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 #[0 "\300\207" [nil] 1 #1#] "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.\n\nYou can also specify a function which collects arguments to be\nused for each call to your bulk custom function. The argument\ncollecting function will be run once and should return a list of\narguments to pass to the bulk function. For example:\n\n \\='((?R set-category get-category))\n\nNow, `B R' will call the custom `get-category' which would prompt\nthe user once for a category. That category is then passed as an\nargument to `set-category' for each entry it's called against." (alist :key-type character :value-type (group (function :tag "Bulk Custom Function") (choice (function :tag "Bulk Custom Argument Function") (const :tag "No Bulk Custom Argument Function" nil)))) (Org . "9.5")] 14) #@262 Execute BODY with point at location given by `org-hd-marker' property. If STRING is non-nil, the text property will be fetched from position 0 in that string. If STRING is nil, it will be fetched from the beginning of the current line. (fn STRING &rest BODY) (defalias 'org-agenda-with-point-at-orig-entry '(macro . #[385 "\300\301!\302\303\304\305BB\306FDC\307\310D\311\312DBBEE\207" [make-symbol "--marker" let get-text-property if (0 (point-at-bol)) 'org-hd-marker with-current-buffer marker-buffer save-excursion goto-char] 10 (#$ . 83822)])) (put 'org-agenda-with-point-at-orig-entry 'edebug-form-spec t) #@218 Replace or add a command in `org-agenda-custom-commands'. This is mostly for hacking and trying a new command - once the command works you probably want to add it to `org-agenda-custom-commands' for good. (fn ENTRY) (defalias 'org-add-agenda-custom-command #[257 "\301@\"\211\203\211A\241\207B\211\207" [org-agenda-custom-commands assoc] 4 (#$ . 84451)]) #@322 Insert header into agenda view. The inserted header depends on `org-agenda-overriding-header'. If the empty string, don't insert a header. If any other string, insert it as a header. If nil, insert DEFAULT, which should evaluate to a string. If a function, call it and insert the string that it returns. (fn DEFAULT) (defalias 'org-agenda--insert-overriding-header '(macro . #[257 "\300\301\302DD\303BB\207" [cond (not org-agenda-overriding-header) insert (((equal org-agenda-overriding-header "") nil) ((stringp org-agenda-overriding-header) (insert (propertize org-agenda-overriding-header 'face 'org-agenda-structure) "\n")) ((functionp org-agenda-overriding-header) (insert (funcall org-agenda-overriding-header))) (t (user-error "Invalid value for `org-agenda-overriding-header': %S" org-agenda-overriding-header)))] 5 (#$ . 84822)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\307\310\311\"\207" [put org-agenda--insert-overriding-header edebug-form-spec (form) function-put lisp-indent-function defun defvaralias org-agenda-keymap org-agenda-mode-map] 4) #@31 Keymap for `org-agenda-mode'. (defvar org-agenda-mode-map (make-sparse-keymap) (#$ . 85903)) (org-remap org-agenda-mode-map 'move-end-of-line 'org-agenda-end-of-line) (defvar org-agenda-restrict nil) (defvar org-agenda-follow-mode nil) (defvar org-agenda-entry-text-mode nil) (defvar org-agenda-clockreport-mode nil) #@126 When non-nil, show the log in the agenda. Do not set this directly; instead use `org-agenda-start-with-log-mode', which see. (defvar org-agenda-show-log nil (#$ . 86227)) (defvar org-agenda-redo-command nil) (defvar org-agenda-query-string nil) #@103 Hook run after `org-agenda-mode' is turned on. The buffer is still writable when this hook is called. (defvar org-agenda-mode-hook nil (#$ . 86479)) (defvar org-agenda-type nil) (defvar org-agenda-force-single-file nil) #@61 List of markers that refer to marked entries in the agenda. (defvar org-agenda-bulk-marked-entries nil (#$ . 86705)) #@39 Active date when building the agenda. (defvar org-agenda-current-date nil (#$ . 86828)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable org-agenda-sticky funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil means agenda q key will bury agenda buffers.\nAgenda commands will then show existing buffer instead of generating new ones.\nWhen nil, `q' will kill the single agenda buffer." :group org-agenda :version "24.3" :type boolean] 10) #@49 Toggle `org-agenda-sticky'. (fn &optional ARG) (defalias 'org-toggle-sticky-agenda #[256 "\211\203\f\301!\302V\202?\211\232\203'\303\304!\205>\305\306\203$\307\202%\310\"\207\211\311 \210\303\304!\205>\305\312\203<\307\202=\310\"\207" [org-agenda-sticky 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"] 5 (#$ . 87318) "P"]) #@42 Agenda buffer currently being generated. (defvar org-agenda-buffer nil (#$ . 87789)) (defvar org-agenda-last-prefix-arg nil) (defvar org-agenda-this-buffer-name nil) (defvar org-agenda-doing-sticky-redo nil) (defvar org-agenda-this-buffer-is-sticky nil) #@61 Last buffer loaded by `org-agenda-tree-to-indirect-buffer'. (defvar org-agenda-last-indirect-buffer nil (#$ . 88049)) #@75 Variables that must be local in agenda buffers to allow multiple buffers. (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) (#$ . 88173)) #@120 Mode for time-sorted view on action items in Org files. The following commands are available: \{org-agenda-mode-map} (defalias 'org-agenda-mode #[0 "\3061\f\307\310!0\210\202 \210\311\312 \313 \210\314\203+\315\316 \"\210\211 \"\210\316\302!\210\317\202C \203=\315\316 \"\210\316\302!\210\317\202C\316\302!\210\320\315\316\"\210\211\"\266\320\211\3208\3219\316\322!\210\3239D\324:\320;\325\316\326!\210\320\327\330\331\320\332$\210\327\333\334\320\332$\210\335\336!\203\232\327\336\337\320\317$\210\202\243\340\341\342\343B\344\320$\210?\204\270@ABCDEFG\345\346!\210\345\347!\210\350\351\352\353\354\355\356N\203\317\357\202\320\360\361\355\356N?#\362D\363\364\355 \"\"#\210\365 \210\366\367!\207" [org-agenda-doing-sticky-redo org-agenda-local-vars org-agenda-this-buffer-is-sticky org-agenda-sticky org-agenda-undo-list org-agenda-pending-undo-list (error) require face-remap (text-scale-mode-amount text-scale-mode text-scale-mode-lighter face-remapping-alist) buffer-local-variables kill-all-local-variables #[514 "\211\205'\211@\211:\203 \211\242\243\211\203>\203L\210\266A\266\202\202\207" [] 8 "Reset variables in VAR-SET to possibly stored value in SAVE.\n\n(fn SAVE VAR-SET)"] mapc make-local-variable t nil org-agenda-mode font-lock-global-modes not "Org-Agenda" use-local-map line-move-visual add-hook post-command-hook org-agenda-update-agenda-type local pre-command-hook org-unhighlight boundp filter-buffer-substring-functions #[1028 "\300#!\207" [substring-no-properties] 9 "\n\n(fn FUN START END DELETE)"] advice--add-function :filter-return #[0 "\300\301!\207" [advice--buffer-local filter-buffer-substring-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local filter-buffer-substring-function] 4 "\n\n(fn GV--VAL)"] substring-no-properties 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 run-mode-hooks org-agenda-mode-hook org-agenda-bulk-marked-entries major-mode mode-name indent-tabs-mode org-agenda-mode-map 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 (#$ . 89009) nil]) (byte-code "\303\304\305 $\210\306\307\310#\210\306\311\310#\210\306\312\313#\210\306\314\315#\210\306\316\317#\210\306\320\321#\210\306\322\323#\210\306\324\325#\210\306\326\327#\210\306\330\331#\210\306\332\333#\210\306\334\335#\210\306\336\337#\210\306\340\341#\210\306\342\343#\210\306\344\345#\210\306\346\347#\210\306\350\351#\210\306\352\353#\210\306\354\355#\210\306\356\357#\210\306\360\361#\210\306\362\363#\210\306\364\363#\210\306\365\363#\210\306\366\367#\210\306\370\371#\210\306\372\373#\210\306\374\373#\210\306\375\376#\210\306\377\201@#\210\306\201A\201B#\210\306\201C\201D#\210\306\201E\201F#\210\306\201G\201H#\210\306\201I\201H#\210\306\201J\201K#\210\306\201L\201M#\210\306\201N\201M#\210\306\201O\201P#\210\306\201Q\201R#\210\306\201S\201T#\210\306\201U\201V#\210\306\201W\201X#\210\306\201Y\201Z#\210\306\201[\201Z#\210\306\201\\\201]#\210\306\201^\201_#\210\306\201`\201]#\210\306\201a\201_#\210\306\201b\201c#\210\306\201d\201e#\210\306\201f\201g#\210\201h\211\203\272\306\201i\211A\262\242!\201j#\210\202\242\210\306\201k\201l#\210\306\201m\201n#\210\306\201o\201p#\210\306\201q\201r#\210\306\201s\201t#\210\306\201u\201v#\210\306\201w\201x#\210\306\201y\201z#\210\306\201{\201|#\210\306\201}\201~#\210\306\201\201\200#\210\306\201\201\201\200#\210\306\201\202\201\203#\210\306\201\204\201\205#\210\306\201\206\201\207#\210\306\201\210\201\211#\210\306\201\212\201\213#\210\306\201\214\201\215#\210\306\201\216\201\217#\210\306\201\220\201\217#\210\306\201\221\201\222#\210\306\201\223\201\224#\210\306\201\225\201\226#\210\306\201\227\201\230#\210\306\201\231\201\232#\210\303\201\233\201\224 $\210\303\201\234\201\226 $\210\306\201\235\201\236#\210\306\201\237\201\240#\210\306\201\241\201\242#\210\306\201\243\201\244#\210\306\201\245\201\244#\210\306\201\246\201\247#\210\306\201\250\201\251#\210\306\201\252\201\253#\210\306\201\254\201\255#\210\306\201\256\201\257#\210\306\201\260\201\261#\210\306\201\262\201\261#\210\306\201\263\201\264#\210\306\201\265\201\264#\210\306\201\266\201\267#\210\306\201\270\201\267#\210\306\201\271\201\272#\210\306\201\273\201\272#\210\306\201\274\201\275#\210\306\201\276\201\277#\210\306\201\300\201\301#\210\306\201\302\201\303#\210\306\201\304\201\301#\210\306\201\305\201\303#\210\306\201\306\201\301#\210\306\201\307\201\303#\210\306\201\310\201\311#\210\306\201\312\201\313#\210\306\201\314\201\315#\210\306\201\316\201\317#\210\306\201\320\201\321#\210\306\201\322\201\323#\210\306\201\324\201\325#\210\306\201\326\201\327#\210\306\201\330\201\331#\210\306\201\332\201\333#\210\306\201\334\201\335#\210\306\201\336\201\337#\210\306\201\340\201\341#\210\306\201\342\201\343#\210\306\201\344\201\345#\210\306\201\346\201\347#\210\306\201\350\201\351#\210\306\201\352\201\353#\210\306\201\354\201\355#\210\306\201\356\201\357#\210\306\201\360\201\361#\210\306\201\362\201\363#\210\306\201\364\201\365#\210\306\201\366\201\367#\210\306\201\370\201\371#\210\306\201\372\201\373#\210\306\201\374\201\375#\210\306\201\376\201\377#\210\n\203\365\306\201\201#\210\303\207" [org-agenda-mode-map global-map 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) number-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 "|" 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 "?" org-agenda-show-the-flagging-note " g" org-mobile-pull " p" org-mobile-push "I" org-info-find-node [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 "" org-agenda-ctrl-c-ctrl-c [follow-link] mouse-face] 6) #@14 Agenda menu. (defvar org-agenda-menu nil (#$ . 98707)) (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]) ("Filter current view" ["with generic interface" org-agenda-filter t] "--" ["by category at cursor" org-agenda-filter-by-category t] ["by tag" org-agenda-filter-by-tag t] ["by effort" org-agenda-filter-by-effort t] ["by regexp" org-agenda-filter-by-regexp t] ["by top-level headline" org-agenda-filter-by-top-headline t] "--" ["Remove all filtering" org-agenda-filter-remove-all t] "--" ["limit" org-agenda-limit-interactively t]) ["Rebuild buffer" org-agenda-redo t] ["Write view to file" org-agenda-write 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-priority-show 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])) #@57 Non-nil means allow remote undo from the agenda buffer. (defvar org-agenda-allow-remote-undo t (#$ . 105498)) #@75 Buffers that have already seen `undo-start' in the current undo sequence. (defvar org-agenda-undo-has-started-in nil (#$ . 105614)) #@144 Undo a remote editing step in the agenda. This undoes changes both in the agenda buffer and in the remote buffer that have been changed along. (defalias 'org-agenda-undo #[0 "\204\306\307!\210 \n=\204\310\f \204\306\311!\210 \211A\242\310\211\211\211\211A\262\242\262\211A\262\242\262\3128\262\310\212\211\203A\211b\210n\203I\313\202J\314\315\313`\"\\)\262 prq\210)\310\211\316\f\211A\262\242\211\262 !\203\270 \211A\262 \242\203_r\nq\210\317\n >\204\223\n B\320\321!\210\322 \210\203\260<\203\260@\204\260\210A\211\204\230\323\313!\210*\202_\203\324rq\210)\"\262\324r q\210)\"\262\204\336\211\203\203\352rq\210\325 \210)\211\203\367rq\210\325 \210) \257\fB\266\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 buffer-undo-list inhibit-read-only] 19 (#$ . 105753) nil]) #@82 Verify that a real change occurred between the undo lists L1 and L2. (fn L1 L2) (defalias 'org-verify-change-for-undo #[514 "\203<\203@\204A\262\202\211\203*\211<\203*\211@\204*\211A\262\202=?\207" [] 4 (#$ . 107052)]) (defvar org-agenda-restrict-begin (make-marker)) (defvar org-agenda-restrict-end (make-marker)) (defvar org-agenda-last-dispatch-buffer nil) (defvar org-agenda-overriding-restriction nil) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\320\321\310\311\312\322& \210\300\323\302\303\324DD\325\306\317\320\326\310\311\312\327& \210\300\330\302\303\331DD\332\306\317\320\333\310\311\312\334& \210\300\335\302\303\336DD\337\306\317\320\340\310\311\312\341& \207" [custom-declare-variable org-agenda-custom-commands-contexts funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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) (defvar org-agenda-keep-restricted-file-list nil) (defvar org-keys nil) (defvar org-match nil) #@1676 Dispatch agenda commands to collect entries to the agenda buffer. Prompts for a command to execute. Any prefix arg will be passed on to the selected command. The default selections are: a Call `org-agenda-list' to display the agenda for current day or week. t Call `org-todo-list' to display the global todo list. T Call `org-todo-list' to display the global todo list, select only entries with a specific TODO keyword (the user gets a prompt). m Call `org-tags-view' to display headlines with tags matching a condition (the user is prompted for the condition). M Like `m', but select only TODO entries, no ordinary headlines. e Export views to associated files. s Search entries for keywords. S Search entries for keywords, only with TODO keywords. / Multi occur across all agenda files and also files listed in `org-agenda-text-search-extra-files'. < Restrict agenda commands to buffer, subtree, or region. Press several times to get the desired effect. > Remove a previous restriction. # List "stuck" projects. ! Configure what "stuck" means. C Configure custom agenda commands. More commands can be added by configuring the variable `org-agenda-custom-commands'. In particular, specific tags and TODO keyword searches can be pre-defined in this way. If the current buffer is in Org mode and visiting a file, you can also first press `<' once to indicate that the agenda should be temporarily (until the next use of `\[org-agenda]') restricted to the current file. Pressing `<' twice means to restrict to the current subtree or region (if active). (fn &optional ARG KEYS RESTRICTION) (defalias 'org-agenda #[768 "\3062\f\307C \310 \232\203\311\202\n \312\307\313\314\315\" \"\"\316 \f\"\317\320 !\307\211C\307\211\307@\204SA\204D\321\322\323\307#\210\307BC\307\211\223\210D\307\211\223\210\321\324\325\307#\210\321\324\326\307#\210pE\204t\327\242!\262\211@\211A\262F\203~\330\331\"@\204\351\203\351\321\322\323C#\210\332\267\202\305pBC\333 \307\223\210D\334 \307\223\210\202\351\212pB\335\336!\210C`\307\223\210D\337\336!\307\223\210)\202\351\340=\203\351\341eW\204\332d\342 TW\203\351pBCe\307\223\210Dd\307\223\210\343 \"\211\262\203u\34489\204\345\3448!\203j\3448\240\210\346\3478\336\"\3508\262F\203+ ;\203&\330\351 #\206*\330\331\"\321\324\325#\210\313\352\"\313\353\"\314\354\"\307\203Y\211A\262\242\355\211A\262\242DDB\262\202?\346\356\237\357\355DDE!\266\204\202\360A@AA\"\202\361\267\202\362\303!\202\363\364!\202\363\365!\202\365\n\206\226\366\211G\363!)\266\202\202\363\367!\202\367\n\206\257\370\211G\363!)\266\202\202\363\371!\202\371\n\206\310\372\211G\363!)\266\202\202\363\373!\202\371\307\374\"\210\375\376\377\336\211$\202\363\201H!\202\363\201I!\202\362\201J!\202\201K\201L!.\266\2070\207" [org-keys org-agenda-buffer-name org-agenda-window-setup org-agenda-custom-commands org-agenda-custom-commands-contexts org-match exit nil buffer-name current-window delq mapcar make-closure #[257 "\211A;\203\300\300\242B\240\210\301\207\211A@;\203\207\211A@\204&\211@\302AABB\207\211@\302ABB\207" [V0 nil ""] 4 "\n\n(fn X)"] 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 151 subtree 171)) region-beginning region-end org-back-to-heading t org-end-of-subtree buffer 1 buffer-size assoc 2 functionp eval 3 4 "*Org Agenda(%s:%s)*" car #[257 "\300A@\301\"\207" [eval t] 4 "\n\n(fn BINDING)"] #[0 "\300\242\304=\203 \305 !\207\300\242\306=\203\305 \307\211\310$\207\300\242\311=\203$\312 !\207\300\242\313=\2031\314 \n\307#\207\300\242\315=\203<\316 !\207\300\242\317=\203H\320 \n\"\207\300\242\321=\203T\320\322\n\"\207\300\242\323=\203_\312\n!\207\300\242\324=\203n\325 \210\326 \n\"\207\300\242\327=\203\204\325 \210\330\331 \332\333\n!\334\260!\207\300\242\335=\203\222\325 \210\330\n!\207\336\300\242!\203\236\300\242\n!\207\337\300\242!\203\252\300\242\n!\207\340\341\300\242\"\207" [V0 current-prefix-arg org-match org-outline-regexp agenda org-agenda-list agenda* nil t alltodo org-todo-list search org-search-view stuck org-agenda-list-stuck-projects tags org-tags-view tags-todo (4) todo tags-tree org-check-for-org-mode org-match-sparse-tree todo-tree org-occur "^" "[ ]*" regexp-quote "\\>" occur-tree functionp fboundp user-error "Invalid custom agenda command type %s"] 6] quote let funcall org-agenda-run-series #s(hash-table size 13 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("C" 379 "a" 387 "s" 393 "S" 399 "t" 418 "T" 424 "m" 443 "M" 449 "e" 468 "?" 474 "#" 488 "/" 496 "!" 504)) customize-variable call-interactively org-agenda-list org-search-view (4) org-todo-list (4) org-tags-view (4) org-store-agenda-views "+FLAGGED" add-hook post-command-hook #[0 "\300 ?\205&\301 \211\205\302\303\"\211\205$\304\305\306\307\310\311\312!#\313\314\315$\"\266\202\207" [current-message org-agenda-get-any-marker org-entry-get "THEFLAGGINGNOTE" message "FLAGGING-NOTE ([?] for more info): %s" org-add-props replace-regexp-in-string "\\\\n" "//" copy-sequence nil face org-warning] 10] 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-agenda-sticky current-prefix-arg org-agenda-list-stuck-projects org-occur-in-agenda-files org-stuck-projects user-error "Invalid agenda key"] 21 (#$ . 111600) "P"]) #@168 Append another agenda view to the current one. This function allows interactive building of block agendas. Agenda views are separated by `org-agenda-block-separator'. (defalias 'org-agenda-append-agenda #[0 "\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 (#$ . 117395) nil]) #@44 Normalize custom commands CMDS. (fn CMDS) (defalias 'org-agenda-normalize-custom-commands #[257 "\300\301\302\303\"\"\207" [delq nil mapcar #[257 "\211A;\203\300\207\211A@;\203\207\211A@\204\211@\301AABB\207\211@\301ABB\207" [nil ""] 4 "\n\n(fn X)"]] 6 (#$ . 117892)]) #@79 The user interface for selecting an agenda command. (fn PREFIX-DESCRIPTIONS) (defalias 'org-agenda-get-restriction-and-command #[257 "\3052(\306\307 !\211\205\310\311!\312 \313C\314\211\211C\314\211\211\211\211\211\211\211\211\211\211C\314\211\211\211\315 \316\317\"\216\320 \210\321\322!\210\323 \210\324c\210\325 \262\n\262 \n\326=\203x\327\214~\210eb\210\211Sy)\266\330\331\314\326#\210\332\225\333 |\210\327u\210\334\335!\210\332\225\333 |\210 \332\225\314\223\210 b\210`d|\210\314\240\210\211A\262\n\242\211\262\203v@\262A@\262\3368\262\3378\262 G\327V\203\313\340!\211 \235\203\300\f\202\304\211 B\262\262\f\202\204\341\342\343\344!\345\"\346\347\f\"\203\341\n\202-\350\267\202\351\202-\352\202-\353\202-\354\202-\355\202-\356\202-\357\202-\360\202-\361\202-\362\202-\363\202-\364!\203,9\203(\365!\202-\366\202-\367#\262\370 !\203j \203_\371;\203M\372\373\374#\202Y<\205Y\341\375G\"Q\262\202j\343\314\376\377P$\210\242B\240\210\202\204\211\242\237\240\210 \203\223\201@\316\201A\n$ \"\210\n\203\300\242G\262\336\245\201B\336\"\\\262\242\233\262\344\242!\262S\233\314\241\210\202\307\242\262\314\262\203\377\201C\211A\262\242\261\210\203\307i\201DW\203\357\201E\201D\326\"\210\202\364\201Fc\210\211A\262\242c\210\202\307eb\210\203\201Gd!\204\201H \210\202\326\262\201H \210\201Gd!?\205+\201I\201J\201K\204;\f\203Z\f\203E\201L\202[\203T\341\201M\"\202[\201N\202[\313\"\210\201O \240\210\242\201P>\203z\201Q\242!\210\202,\201J\313!\210\201R\201S\242!\"\203\255\211\242\201S\242!P\240\210\201T\305\242B\"\210\202@\242\f>\203\346\211\242\201S\242!P\240\210\314\262\f\n\206\315\326\262 \201U\314\201V\316\201W\"\"\"\262\202@\242\201X=\203\201Y\201Z!\210\201[\336!\210\202@\204&\242\201\\>\203&\201J\201]!\210\201^ \210\201[\327!\210\202@\242\201_=\203@\201`\201a!\210\201b\262\202@\242\201c=\203e\201`\201a!\210\203]\201d\202`\201e\262\202@\242\201f=\203\235\201`\201a!\210\201g\267\202\225\203\213\201d\202\230\201e\202\230\314\202\230\201b\262\202@\242\201h=\203\265\201`\201a!\210\314\262\202@\242\313\232\203\335\242\201i>\203\335\201T\305\201S\242!\240B\"\210\202@\242G\332V\203\377\242\201j=\203\377\201k \210\201l!\210\202@\242\201m=\203\201n\201o!\210\202@\201n\201p\242\"\210\202@)\262\266\2270\207" [org-agenda-custom-commands org-agenda-menu-show-matcher org-agenda-menu-two-columns header-line-format org-agenda-overriding-restriction exit buffer-file-name buffer-base-buffer derived-mode-p org-mode org-region-active-p "" nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 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-" #s(hash-table size 11 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (agenda 232 agenda* 236 alltodo 240 search 244 stuck 248 todo 252 tags 256 tags-todo 260 tags-tree 264 todo-tree 268 occur-tree 272)) "Agenda for current week or day" "Appointments for current week or day" "List of all TODO entries" "Word search" "List of stuck projects" "TODO keyword" "Tags query" "Tags (TODO)" "Tags tree" "TODO kwd tree" "Occur tree" functionp symbol-name "Lambda expression" "???" org-string-nw-p ": " propertize face org-warning "set of %d commands" help-echo "Matcher: " mapc #[257 "\302\303\304\305\306!\307\310\311$\312\301\242\306!P\300\"A\206\313#\302\242B\240\207" [V0 V1 V2 format "%s %s" org-add-props char-to-string nil face bold assoc "Prefix key"] 9 "\n\n(fn X)"] mod "\n" 40 move-to-column " " pos-visible-in-window-p org-fit-window-to-buffer "Use C-v, M-v, C-n or C-p to navigate." message "Press key for agenda command%s:" " (restriction lock active)" " (restricted to %s)" " (unrestricted)" read-char-exclusive (14 16 22 134217846) org-scroll assoc char-to-string throw delq mapcar #[257 "\211@G\301U\206\302@!\300\242U??\205\211@\301\303OAB\207" [V0 1 string-to-char nil] 4 "\n\n(fn X)"] 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 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 896 subtree 913 region 913)) 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 user-error "Abort" "Invalid key %c"] 31 (#$ . 118177)]) #@36 Fit the window to the buffer size. (defalias 'org-agenda-fit-window-to-buffer #[0 "\302=\205.\303\304!\205. A\305U\203 @\305U\203\306 \207\307\310\311\312 A_!\311\312 @_!#\207" [org-agenda-window-setup org-agenda-window-frame-fractions reorganize-frame fboundp fit-window-to-buffer 1.0 delete-other-windows org-fit-window-to-buffer nil floor frame-height] 6 (#$ . 123981)]) (defvar org-cmd nil) (defvar org-agenda-overriding-cmd nil) (defvar org-agenda-overriding-arguments nil) (defvar org-agenda-overriding-cmd-arguments nil) #@24 (fn LIST &rest BODY) (defalias 'org-let #[385 "\300\301BB!\207" [eval let] 6 (#$ . 124524)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-let lisp-indent-function 1 make-obsolete cl-progv "2021"] 5) #@31 (fn LIST1 LIST2 &rest BODY) (defalias 'org-let2 #[642 "\300\301\301BBCBB!\207" [eval let] 9 (#$ . 124758)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-let2 lisp-indent-function 2 make-obsolete cl-progv "2021"] 5) #@67 Run agenda NAME as a SERIES of agenda commands. (fn NAME SERIES) (defalias 'org-agenda-run-series #[514 "\211A@\306\307\"\306\310\"\311\312\"\313\203-\211A\262\242\314\211A\262\242DDB\262\202\315\316\237\317\314DDE!\266\320 \210\321\322\314DE@\313\211\313C\313\211A\262\242\211\203\277\n@\240\210\315\nA@\321\"\323\n8\262 \n=\205w\f\206w \306\307\"\306\324\"\325 \"\325 \"\311\326\"\313\203\253\211A\262\242\314\211A\262\242DDB\262\202\221\315\316\237\317\314DDE!\266)\266\202P~\210\321\327ed\330\321\331 F#\210)eb\210+\266\332 \210\333\313\203\372\211A\262\242\314\211A\262\242DDB\262\202\340\315\316\237\317\314DDE!\207" [org-agenda-multi match org-cmd org-agenda-overriding-cmd org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments mapcar car #[257 "\300A@\301\"\207" [eval t] 4 "\n\n(fn BINDING)"] make-closure #[0 "\301\300!\207" [V0 org-agenda-prepare] 2] nil quote eval let funcall org-agenda-reset-markers t org-agenda-run-series 2 #[257 "\300A@\301\"\207" [eval t] 4 "\n\n(fn BINDING)"] append #[0 "\300\242\303=\203 \304\305!\207\300\242\306=\203\305\307\211\310#\207\300\242\311=\203#\304\312!\207\300\242\313=\2030\314 \n\307#\207\300\242\315=\203;\304\316!\207\300\242\317=\203G\320 \n\"\207\300\242\321=\203S\320\322\n\"\207\300\242\323=\203^\312\n!\207\324\300\242!\203j\300\242\n!\207\325\326!\207" [V0 current-prefix-arg match agenda call-interactively org-agenda-list agenda* nil t alltodo org-todo-list search org-search-view stuck org-agenda-list-stuck-projects tags org-tags-view tags-todo (4) todo fboundp error "Invalid type in command series"] 4] add-text-properties org-series org-series-redo-cmd org-agenda-fit-window-to-buffer #[0 "\300 \207" [org-agenda-finalize] 1] inhibit-read-only org-agenda-redo-command] 23 (#$ . 125009)]) #@14 (fn PLIST) (defalias 'org-agenda--split-plist #[257 "\300\211\203\211A\262\242B\262\211A\262\242B\262\202\237\237B\207" [nil] 5 (#$ . 126881)]) #@387 Run an agenda command in batch mode and send the result to STDOUT. If CMD-KEY is a string of length 1, it is used as a key in `org-agenda-custom-commands' and triggers this command. If it is a longer string it is used as a tags/todo match string. Parameters are alternating variable names and values that will be bound before running the agenda command. (fn CMD-KEY &rest PARAMETERS) (defalias 'org-batch-agenda '(macro . #[385 "\300!\211\242\243\301\302D\303BF\207" [org-agenda--split-plist org--batch-agenda quote list] 10 (#$ . 127049)])) #@26 (fn CMD-KEY VARS VALS) (defalias 'org--batch-agenda #[771 "\301\302\"\303\203\"\211A\262\242\304\211A\262\242DDB\262\202\305\306\237\307\304DDE!\266q\210\310\311 !\207" [org-agenda-buffer-name make-closure #[0 "\302\300G\303V\203\304\302\300\"\202\305\302\300\")\207" [V0 org-agenda-sticky nil 1 org-tags-view org-agenda] 3] nil quote eval let funcall princ buffer-string] 13 (#$ . 127604)]) (defvar org-agenda-info nil) #@1728 Run an agenda command in batch mode and send the result to STDOUT. If CMD-KEY is a string of length 1, it is used as a key in `org-agenda-custom-commands' and triggers this command. If it is a longer string it is used as a tags/todo match string. Parameters are alternating variable names and values that will be bound before running the agenda command. The output gives a line for each selected agenda item. Each item is a list of comma-separated values, like this: category,head,type,todo,tags,date,time,extra,priority-l,priority-n category The category of the item head The headline, without TODO kwd, TAGS and PRIORITY type The type of the agenda entry, can be todo selected in TODO match tagsmatch selected in tags match diary imported from diary deadline a deadline on given date scheduled scheduled on given date timestamp entry has timestamp on given date closed entry was closed on given date upcoming-deadline warning about deadline past-scheduled forwarded scheduled item block entry has date block including g. date todo The todo keyword, if any tags All tags including inherited ones, separated by colons date The relevant date, like 2007-2-14 time The time, like 15:00-16:50 extra String with extra planning info priority-l The priority letter if any was given priority-n The computed numerical priority agenda-day The day in the agenda where this is listed (fn CMD-KEY &rest PARAMETERS) (defalias 'org-batch-agenda-csv '(macro . #[385 "\300!\211\242\243\301\302D\303BF\207" [org-agenda--split-plist org--batch-agenda-csv quote list] 10 (#$ . 128059)])) #@26 (fn CMD-KEY VARS VALS) (defalias 'org--batch-agenda-csv #[771 "\303\304\305\"\306\203$\211A\262\242\307\211A\262\242DDB\262\202\n\310\311\237\312\307DDE!\266) q\210\313\314 \315\"\211\211\205d\211@\316\317\320#\203]\321\322\317\"!\323\324\325\326\327#!\210\323\315!\210A\266\202\202<\207" [org-agenda-remove-tags org-agenda-buffer-name org-agenda-info t make-closure #[0 "\300G\301V\203\f\302\303\300\"\207\304\303\300\"\207" [V0 2 org-tags-view nil org-agenda] 3] nil quote eval let funcall org-split-string buffer-string "\n" get-text-property 0 org-category 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) ","] 13 (#$ . 129963)]) #@131 Make sure all properties on an agenda item have a canonical form. This ensures the export commands can easily use it. (fn PROPS) (defalias 'org-fix-agenda-info #[257 "\302\211\303\304\"\211\262\203\305\304\306\307\310##\262\303\311\"\211\262\203;\250\203,\312!\262\313\314!\262)\305\311#\262\303\315\"\211\262\203e\250\203O\312!\262\316\314!\262)\305\315#\262\305\317#\262\303\320\"\211\262\203\276\321\322\"\203\210\305\323\324\325\"#\210\326\327\330\211$\262\303\331\"\211\262\203\270\332\333Q\211\262\203\270\302\321\")\203\270\305\334\324\325\"#\210\326\327\330\211$\262\305\320#\210\266\207" [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] 10 (#$ . 130753)]) #@13 (fn PROP) (defalias 'org-agenda-export-csv-mapper #[257 "\301\"\211\204\f\302\202\211;\203\211\202\303!\262\304\305\306\307\310%\307\304\203+\311\202,\312\302\304\313\302##\207" [org-agenda-info plist-get "" prin1-to-string replace-regexp-in-string "," ";" nil t "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'"] 11 (#$ . 131792)]) #@44 Store agenda views. (fn &rest PARAMETERS) (defalias 'org-store-agenda-views #[128 "\300\301\211\"\207" [org--batch-store-agenda-views nil] 4 (#$ . 132148) nil]) #@82 Run all custom agenda commands that have a file argument. (fn &rest PARAMETERS) (defalias 'org-batch-store-agenda-views '(macro . #[128 "\300!\211\242\243\301\302D\303BE\207" [org-agenda--split-plist org--batch-store-agenda-views quote list] 8 (#$ . 132316)])) #@18 (fn VARS VALS) (defalias 'org--batch-store-agenda-views #[514 "\306!\307 \307\211C\307\211\211C\307\211\211C \310 \311\312\"\216 \205( \211A\262 \242\262  @\240\210A\262\3138\262 \203Y;\203P\314\315\n\242 #\206Z\314\316\n\242\"\202Z\f\240\210\313 8\262<\203k\317\202l\320 8\262<\203{\320\202|\321\n8\240\210\242;\203\215\211\242C\240\210\242\203\322 \"\322\323\324\"\"\322\323\325\"\"\311\326\"\307\203\310\211A\262\242\327\211A\262\242DDB\262\202\256\330\331\237\332\327DDE!\266\242q\210\242\203\311\333\f\n$\307\203\211A\262\242\327\211A\262\242DDB\262\202\354\330\331\237\332\327DDE!\266\202\332\266\334\242!\203\335\242!\210\202)\262)\207" [org-agenda-custom-commands default-directory pop-up-frames org-agenda-sticky org-agenda-buffer-name org-agenda-exporter-settings org-agenda-normalize-custom-commands nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] 2 format "*Org Agenda(%s:%s)*" "*Org Agenda(%s)*" 3 4 5 append mapcar car #[257 "\300A@\301\"\207" [eval t] 4 "\n\n(fn BINDING)"] #[0 "\301\302\300\242\"\207" [V0 org-agenda nil] 3] quote eval let funcall #[0 "\303\304\301\242\301\211\242A\240\210\242\300\"\305\306\302\242$\207" [V0 V1 V2 org-agenda-write expand-file-name nil t] 5] get-buffer kill-buffer] 27 (#$ . 132588)]) #@43 The current span used in the agenda view. (defvar org-agenda-current-span nil (#$ . 133986)) #@63 Mark the line at POS as an agenda structure header. (fn POS) (defalias 'org-agenda-mark-header-line #[257 "\212\211b\210\301\302 \303 \304\305$\210\205\301\302 \303 \300$)\207" [org-agenda-title-append put-text-property point-at-bol point-at-eol org-agenda-structural-header t] 6 (#$ . 134085)]) (defvar org-agenda-write-buffer-name "Agenda View") #@805 Write the current buffer (an agenda view) as a file. Depending on the extension of the file name, plain text (.txt), HTML (.html or .htm), PDF (.pdf) or Postscript (.ps) is produced. If the extension is .ics, translate visible agenda into iCalendar format. If the extension is .org, collect all subtrees corresponding to the agenda entries and add them in an .org file. With prefix argument OPEN, open the new file immediately. If NOSETTINGS is given, do not scope the settings of `org-agenda-exporter-settings' into the export commands. This is used when the settings have already been scoped and we do not wish to overrule other, higher priority settings. If AGENDA-BUFFER-NAME is provided, use this as the buffer name for the agenda to write. (fn FILE &optional OPEN NOSETTINGS AGENDA-BUFNAME) (defalias 'org-agenda-write #[1025 "\301!\203\302!\203!\303\304!\203!\305\306\307\"!\204!\310\311\"\210?\205*\312\313\"?\2053\312\314\"\315\316#\317\203T\211A\262\242\320\211A\262\242DDB\262\202:\321\322\237\323\320DDE!\266\205i\324!\207" [org-agenda-exporter-settings 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" mapcar car #[257 "\300A@\301\"\207" [eval t] 4 "\n\n(fn BINDING)"] make-closure #[0 "\212\306 \307\310\"\216\311\312 !\313\300!\314\300!\315\316\317\"r\211q\210\307\320\"\216\321 \317\"\210\322\323!\210c\210\324\325\326\"\210\327\330!\210\331\304!\203F\f\203F\332\300!\210\202w\333\230\203\264\323\211\211\211eb\210\334`\335\323#\211\262\203\206b\210\336`\335\"\262\211\203Tr\337!q\210\211b\210\340\341\323\317\211$\210@)B\262\202T\342\300!\210\343 \210\211\203\240\211@\344\341\"\210A\266\202\202\216\210\345\300!\210\346p!\210\347\350\300\"\210)\266\202w\351\235\203\362\352\353\323\317#\204\306\354\355!\210\356p!q\210A\203\342eb\210\357\360\361!\362Z\360\363!\"\210Ac\210\345\300!\210\346p!\210\347\364\300\"\210\202w\365\230\203\352\366!\210\367\300!\210\347\370\300\"\210\202w\371\230\203>\352\366!\210\367\372\300!\373P!\210\374\375\323\211\211\376\372\300!\373P!\376\300!&\210\377\372\300!\373P!\210\347\201C\300\"\210\202w\201D\230\203W\352\201E!\210\201F\376\300!!\210\202w\312 \342\300!\210\343 \210\211c\210\201G\201H!\210\346p!\210\347\201I\300\"\266*\210)\266)\210)\301\206\226\201J\201K!\203\224\201L \206\226Bq\207" [V0 V1 default-directory org-agenda-write-buffer-name org-mobile-creating-agendas message-log-max current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] copy-sequence buffer-string file-name-extension file-name-directory generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] rename-buffer set-buffer-modified-p nil org-agenda-remove-marked-text invisible org-filtered run-hooks org-agenda-before-write-hook boundp org-mobile-write-agenda-for-mobile "org" next-single-property-change org-hd-marker get-text-property marker-buffer org-copy-subtree 1 find-file erase-buffer org-paste-subtree write-file kill-buffer message "Org file written to %s" ("html" "htm") require htmlize error "Please install htmlize from https://github.com/hniksic/emacs-htmlize" htmlize-buffer kill-region search-forward "" "HTML written to %s" "ps" ps-print ps-print-buffer-with-faces "Postscript written to %s" "pdf" file-name-sans-extension ".ps" call-process "ps2pdf" expand-file-name delete-file org-subtree-clip org-agenda-export-html-style org-agenda-buffer-name "PDF written to %s" "ics" ox-icalendar org-icalendar-export-current-agenda save-buffer 0 "Plain text written to %s" called-interactively-p any buffer-name] 12] nil quote eval let funcall org-open-file] 14 (#$ . 134445) "FWrite agenda to file: \nP"]) #@100 Delete all text marked with VALUE of PROPERTY. VALUE defaults to t. (fn PROPERTY &optional VALUE) (defalias 'org-agenda-remove-marked-text #[513 "\300\206\301\262\302ed$\211\262\205\"\211\303\"\206d|\210\202\207" [nil t text-property-any next-single-property-change] 8 (#$ . 138300)]) #@232 Add entry text to agenda lines. This will add a maximum of `org-agenda-add-entry-text-maxlines' lines of the entry text following headings shown in the agenda. Drawers will be excluded, also the line with scheduling/deadline info. (defalias 'org-agenda-add-entry-text #[0 "\302V\205U\303\301!\205 ?\205U\304\211eb\210m?\205S\305\306\307 \"\262\211\262\2040\310\311!\210\202\312\313#\262\314\210\315\316\"\203I\317\261\210\202m\204\314u\210\202\266\202\207" [org-agenda-add-entry-text-maxlines org-mobile-creating-agendas 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"] 6 (#$ . 138607)]) #@364 Extract entry text from MARKER, at most N-LINES lines. This will ignore drawers etc, just get the text. If INDENT is given, prefix every line with this string. If KEEP is given, it is a list of symbols, defining stuff that should not be removed from the entry content. Currently only `planning' is allowed here. (fn MARKER N-LINES &optional INDENT &rest KEEP) (defalias 'org-agenda-get-some-entry-text #[898 "\305\211\211\211\212r\306!q\210\307\310!\204\311\262\202\214\212\214~\210b\210\312\210`Td^\313 \210`{\262\262\314 \315Q\262\316\317\320\"r\211q\210\321\322\"\216c\210\n\203[eb\210\323d!\203[\324\225b\210\202Neb\210\325 d\320#\203q\326\324\224\324\225\305#\210\202^eb\210\325\305\320#\203\212\324\224\325\327\305\330#\210`|\210\202t\331>\204\243eb\210\325\305\320#\203\243\332\311!\210\202\224eb\210\f\203\314\f\305\211A\262\242\211\262\203\312eb\210\325\305\320#\203\254\332\311!\210\202\273\266db\210\333\305x\210\334\335!\203\335\332\311!\210eb\210\336ed\"\210\337 \262m\204\334\340!\204\371\337 ^\262\341\342!\210\202\351eb\210m\204\334\340!\204\343!\210\344 `|\210\341\342!\210\202\345\346!\210eb\210\203?m\204?\325\347\305\320#\203?\332\320\211#\210\202)eb\210\334\350!\203O\332\311!\210\202Bdb\210\305\212\211\203[\211b\210n\203c\312\202d\324\351\312`\"\\)\262V\203\204T\214~\210eb\210\211Sy)\266\352u\210e`{\262*\210**\207" [org-drawer-regexp org-keyword-time-regexp org-agenda-add-entry-text-descriptive-links org-link-bracket-re org-agenda-entry-text-exclude-regexps nil marker-buffer derived-mode-p org-mode "" 1 outline-next-heading "^[ ]*" ".*\n?" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] org-activate-links 0 re-search-forward set-text-properties "^[ ]*:END:.*\n?" move planning replace-match " \n" looking-at "[ \n]+\\'" untabify current-indentation "[ ]*$" beginning-of-line 2 move-to-column point-at-bol run-hooks org-agenda-entry-text-cleanup-hook "^" "[ ]*\n" count-lines -1] 15 (#$ . 139325)]) #@57 Make sure current buffer is in Org mode. Error if not. (defalias 'org-check-for-org-mode #[0 "\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 (#$ . 141408)]) (defvar org-agenda-multi nil) (defvar org-agenda-pre-window-conf nil) (defvar org-agenda-columns-active nil) (defvar org-agenda-name nil) (defvar org-agenda-tag-filter nil) (defvar org-agenda-category-filter nil) (defvar org-agenda-regexp-filter nil) (defvar org-agenda-effort-filter nil) (defvar org-agenda-top-headline-filter nil) #@53 Cache for the list of all categories in the agenda. (defvar org-agenda-represented-categories nil (#$ . 141988)) #@53 Cache for the list of all categories in the agenda. (defvar org-agenda-represented-tags nil (#$ . 142107)) #@516 A preset of the tags filter used for secondary agenda filtering. This must be a list of strings, each string must be a single tag preceded by "+" or "-". This variable should not be set directly, but agenda custom commands can bind it in the options section. The preset filter is a global property of the entire agenda view. In a block agenda, it will not work reliably to define a filter for one of the individual blocks. You need to set it in the global options and expect it to be applied to the entire view. (defvar org-agenda-tag-filter-preset nil (#$ . 142221)) #@49 Alist of filter types and associated variables. (defconst org-agenda-filter-variables '((category . org-agenda-category-filter) (tag . org-agenda-tag-filter) (effort . org-agenda-effort-filter) (regexp . org-agenda-regexp-filter)) (#$ . 142798)) #@23 Is any filter active? (defalias 'org-agenda-filter-any #[0 "\301\302\"\207" [org-agenda-filter-variables cl-some #[257 "\211AJ\206 \300N\207" [:preset-filter] 3 "\n\n(fn X)"]] 3 (#$ . 143050)]) #@525 A preset of the category filter used for secondary agenda filtering. This must be a list of strings, each string must be a single category preceded by "+" or "-". This variable should not be set directly, but agenda custom commands can bind it in the options section. The preset filter is a global property of the entire agenda view. In a block agenda, it will not work reliably to define a filter for one of the individual blocks. You need to set it in the global options and expect it to be applied to the entire view. (defvar org-agenda-category-filter-preset nil (#$ . 143254)) #@521 A preset of the regexp filter used for secondary agenda filtering. This must be a list of strings, each string must be a single regexp preceded by "+" or "-". This variable should not be set directly, but agenda custom commands can bind it in the options section. The preset filter is a global property of the entire agenda view. In a block agenda, it will not work reliably to define a filter for one of the individual blocks. You need to set it in the global options and expect it to be applied to the entire view. (defvar org-agenda-regexp-filter-preset nil (#$ . 143846)) #@524 A preset of the effort condition used for secondary agenda filtering. This must be a list of strings, each string must be a single regexp preceded by "+" or "-". This variable should not be set directly, but agenda custom commands can bind it in the options section. The preset filter is a global property of the entire agenda view. In a block agenda, it will not work reliably to define a filter for one of the individual blocks. You need to set it in the global options and expect it to be applied to the entire view. (defvar org-agenda-effort-filter-preset nil (#$ . 144432)) #@127 Return non-nil if an agenda buffer named `org-agenda-buffer-name' exists and should be shown instead of generating a new one. (defalias 'org-agenda-use-sticky-p #[0 "\205 ?\205\306\n!\205r\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 (#$ . 145021)]) (defvar org-agenda-buffer-tmp-name nil) #@20 (fn STICKY-NAME) (defalias 'org-agenda--get-buffer-name #[257 "\206 \203\f\n\206\211\206\303\207" [org-agenda-buffer-tmp-name org-agenda-doing-sticky-redo org-agenda-buffer-name "*Org Agenda*"] 2 (#$ . 145463)]) #@203 Setup agenda buffer in the window. ABUF is the buffer for the agenda window. FILTER-ALIST is an alist of filters we need to apply when `org-agenda-persistent-filter' is non-nil. (fn ABUF FILTER-ALIST) (defalias 'org-agenda-prepare-window #[514 "\306!\307p\232\204d\203\310!\210\202d\311 \211\262\203d\312\267\202`\313!\210\202d\314!\210\202d\315!\210\202d\316\317!\203E\317!\210\202d\320\321!\210\202d\322 \210\313!\210\202d\322 \210\314!\210\202d\311 \262\323\236A\324\236A\325\236A\326\236Ap\232\204\202\313!\210\211\206\207 \211\207" [org-agenda-window-setup org-agenda-tag-filter org-agenda-category-filter org-agenda-effort-filter org-agenda-regexp-filter org-agenda-pre-window-conf get-buffer-window nil select-window current-window-configuration #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (current-window 35 other-window 42 other-frame 49 other-tab 56 only-window 76 reorganize-frame 86)) pop-to-buffer-same-window org-switch-to-buffer-other-window switch-to-buffer-other-frame fboundp switch-to-buffer-other-tab user-error "Your version of Emacs does not have tab bar support" delete-other-windows tag cat effort re] 6 (#$ . 145692)]) #@23 (fn &optional NAME) (defalias 'org-agenda-prepare #[256 "\205r\306 !q\210\307\nB\310 B\311\fB\312 BF)\313 \203M\314\302\315\316#\210\314\305\315\316#\210\314\303\315\316#\210\314\304\315\316#\210\317\320 !\"\210\321\322!\210$\204H\323 \210\324\325\322\"\207\316%\314\302\315&#\210\314\305\315'#\210\314\303\315(#\210\314\304\315)#\210$\203\242\316*db\210o\204\233+\204\233,\203\233\326,;\203\221,\202\227\327\330 ,\"\326\261\210`d}\210\202\373\316-\317\306 !\"\210\316*\331 \210\332.\333 \210)\334 \210p/\316\21101\335\336\316\337\"!\210%\340!\341!\266\202%-\340!\341!\266\202-23 4\203\373#\204\373\342\343!\210#\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 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] 7 (#$ . 146924)]) #@219 Finishing touch for the agenda buffer. This function is called just before displaying the agenda. If you want to add your own functions to the finalization of the agenda display, configure `org-agenda-finalize-hook'. (defalias 'org-agenda-finalize #[0 "?\205p\306\212eb\210\212\307d!\203\310\225b\210\202\f)\n\306=\204#\311 \210 \204-\312ed\313#\210\314\304!\203=\f\203=\315\305!\210\f7\203E\316 \210\203M\317 \210\203Z8\203Z\320 \210\321 \2109\203h\322 \210\323 \210\324\325!\203z\212\326e\327\")\203z\330 \210\331\332\333 \"\262:\334=\204\362:<\203\231:>\204\362:\306=\203\265;\306=\204\362;<\203\265;>\203\362\335\212eb\210\335y\310=\203\360\332`\336\"\211\262\203\272\337\333 \340 \341\212\342!\203\335\343!q\210\212\214~\210\206\346`b\210\344 +$\210\202\272)\210\335\211<=>\203\345>!\210(\203\346(\347\306#\210\350\351N\203\346\350\351N\347\306#\210+\203'\346+\352\"\210\353\351N\2034\346\353\351N\352\"\210-\203?\346-\354\"\210\355\351N\203L\346\355\351N\354\"\210/\203W\346/\356\"\210\357\351N\203d\346\357\351N\356\"\210\360\361\362\363\364$\210)\365\366!)\207" [org-agenda-multi inhibit-read-only org-agenda-remove-tags org-agenda-with-colors org-overriding-columns-format org-local-columns-format t org-activate-links 0 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 featurep org-habit next-single-property-change org-habit-p org-habit-insert-consistency-graphs org-agenda-type get-text-property point-at-bol always nil org-hd-marker put-text-property point-at-eol tags markerp marker-buffer org-get-tags 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 run-hooks org-agenda-finalize-hook org-agenda-view-columns-initially org-blocker-hook org-agenda-entry-text-mode org-agenda-show-inherited-tags org-agenda-use-tag-inheritance org-agenda-represented-tags org-agenda-represented-categories org-agenda-top-headline-filter] 8 (#$ . 148634)]) #@62 Mark the current clock entry in the agenda if it is present. (defalias 'org-agenda-mark-clocking-task #[0 "\302\300!\205X\205X\214~\210\303 \210\304 !\205W\212eb\210\305\211\306`\307\"\211\262\205Tb\210\307\310\311 \"\262 \232\203\312\311 \313 T\"\262\314\315\316#\210\314\317\316#\210\314\320\321#\210\202\266\202))\207" [org-clock-current-task org-clock-hd-marker 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"] 6 (#$ . 150987)]) #@35 Unmark the current clocking task. (defalias 'org-agenda-unmark-clocking-task #[0 "\300\301\302ed\"\"\207" [mapc #[257 "\300\301\"\302=\205\f\303!\207" [overlay-get type org-agenda-clocking delete-overlay] 4 "\n\n(fn O)"] overlays-in] 5 (#$ . 151639)]) #@54 Make highest priority lines bold, and lowest italic. (defalias 'org-agenda-fontify-priorities #[0 "\305\306\307ed\"\"\210\212\310\211\211\211\211\211eb\210\311\310\312#\205\236\313`\301\"\206\" \262\313`\302\"\206,\n\262\314\315\316!!\262\317\224\262 \320=\203E\316\225T\202G\321 \262\322\"\262\323\324\325\326\327\330\n\f\"A#\206\206 <\203s\325\326\327\330\n \"A#\206\206\232\203~\331\202\206\232\205\206\332\211\203\220\211\327D\202\221\327\262#\210\323\333\327#\210\202\266\206)\207" [org-priority-regexp org-priority-highest org-priority-lowest org-agenda-fontify-priorities org-priority-faces mapc #[257 "\300\301\"\302=\205\f\303!\207" [overlay-get org-type org-priority delete-overlay] 4 "\n\n(fn O)"] overlays-in nil re-search-forward t get-char-property string-to-char match-string 2 1 cookies point-at-eol make-overlay overlay-put face org-face-from-face-or-color priority org-priority assoc italic bold org-type] 15 (#$ . 151900) nil]) #@158 Dim currently blocked TODOs in the agenda display. When INVISIBLE is non-nil, hide currently blocked TODO instead of dimming them. (fn &optional INVISIBLE) (defalias 'org-agenda-dim-blocked-tasks #[256 "\301\302!\203\n\303\304!\210\305ed\"\211\203(\211@\306\307\"\310=\203!\311!\210A\266\202\202\210\212\312eb\210\313`d\314\315$\211\205;\211b\262\203\214\314\316\317 \"\262\320=\321\316\317 \"\262\322=\323\203_\324\325!\202a\326 \324 \"\203n\327\307\310#\210\203v\330\322!\210\266d\324 U\203\205db\210\202/\331\332!\210\202/*\301\302!\205\226\303\333!\207" [inhibit-read-only called-interactively-p interactive message "Dim or hide blocked tasks..." overlays-in overlay-get face org-agenda-dimmed-todo-face delete-overlay t text-property-not-all org-todo-blocked nil get-text-property point-at-bol invisible org-filter-type todo-blocked make-overlay line-end-position 0 line-beginning-position overlay-put org-agenda-filter-hide-line move-beginning-of-line 2 "Dim or hide blocked tasks...done"] 8 (#$ . 152894) "P"]) #@337 If ENTRY is blocked, mark it for fontification or invisibility. If the header at `org-hd-marker' is blocked according to `org-entry-blocked-p', then if `org-agenda-dim-blocked-tasks' is `invisible' and the header is not blocked by checkboxes, set the text property `org-todo-blocked' to `invisible', otherwise set it to t. (fn ENTRY) (defalias 'org-agenda--mark-blocked-entry #[257 "\302\303\304#\203G\302\303\305#\306\211\203Er\307!q\210\212\211b\210\310 *\211\203D \311=\312\303G\313\2034\311\2025\314%\210\312\303G\315\316%\266\210)\210\207" [org-depend-tag-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 org-filter-type todo-blocked] 10 (#$ . 153949)]) #@692 Function to be called at each match during agenda construction. If this function returns nil, the current match should not be skipped. Otherwise, the function must return a position from where the search should be continued. This may also be a Lisp form, it will be evaluated. Never set this variable using `setq' or so, because then it will apply to all future agenda commands. If you do want a global skipping condition, use the option `org-agenda-skip-function-global' instead. The correct usage for `org-agenda-skip-function' is to bind it with `let' to scope it dynamically into the agenda-constructing command. A good way to set it is through options in `org-agenda-custom-commands'. (defvar org-agenda-skip-function nil (#$ . 154752)) #@143 Throw to `:skip' in places that should be skipped. Also moves point to the end of the skipped region, so that search can continue from there. (defalias 'org-agenda-skip #[0 "\306 \307\212b\210\310!)\204[ \203.\n\204.\311\312\"\203#\313\314!\204[ \f\235\203.db\204[ \203?\311\315\"\203?\313\314!\204[\316!\206J\316!\211\262\203U\211b\204[\317\314!\205_\320\321\314\"\207" [comment-start-skip org-agenda-skip-archived-trees org-agenda-archives-mode org-archive-tag org-file-tags 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] 5 (#$ . 155502)]) #@248 If FORM is a function or a list, call (or eval) it and return the result. `save-excursion' and `save-match-data' are wrapped around the call, so point and match data are returned to the previous state no matter what these functions do. (fn FORM) (defalias 'org-agenda-skip-eval #[257 "\300\205,\301!\211\262\204:\205,\212\302 \303\304\"\216\203$ \202(\305\306\")\262)\207" [nil functionp match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] eval t] 6 (#$ . 156261)]) #@63 List of all currently active markers created by `org-agenda'. (defvar org-agenda-markers nil (#$ . 156779)) #@42 Creation time of the last agenda marker. (defvar org-agenda-last-marker-time (float-time) (#$ . 156893)) #@179 Return a new agenda marker. Marker is at point, or at POS if non-nil. Org mode keeps a list of these markers and resets them when they are no longer in use. (fn &optional POS) (defalias 'org-agenda-new-marker #[256 "\303\206`\304\"\305  \203r q\210\211\nB)\207\211\nB\207" [org-agenda-last-marker-time org-agenda-buffer org-agenda-markers copy-marker t float-time] 4 (#$ . 157005)]) #@40 Reset markers created by `org-agenda'. (defalias 'org-agenda-reset-markers #[0 "\205\211A\242\301\211\223\210\202\207" [org-agenda-markers nil] 3 (#$ . 157404)]) #@131 Save relative positions of markers in region. This check for agenda markers in all agenda buffers currently active. (fn BEG END) (defalias 'org-agenda-save-markers-for-cut-and-paste #[514 "\302 \211\205%\211@r\211q\210\303=\203\304\305\306# \"\210)A\266\202\202\207" [major-mode org-agenda-markers buffer-list org-agenda-mode mapc make-closure #[257 "\302\300\301#\207" [V0 V1 org-check-and-save-marker] 5 "\n\n(fn M)"]] 9 (#$ . 157580)]) #@62 Add some text from the entry as context to the current line. (defalias 'org-agenda-entry-text-show-here #[0 "\303\211\211\304\305\306 \"\262\262\307!\204\310\311!\210\312\313 #\303\211\203-\314\315G\n$\210\2025\316\315G\303$\210\266\202P\262\317\320\"\205[\321\306 \322 \"\262\323\324\325#\210\323\326\327#\210\323\330#\207" [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] 11 (#$ . 158038)]) #@41 Add entry context for all agenda lines. (defalias 'org-agenda-entry-text-show #[0 "\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 (#$ . 158794) nil]) #@33 Remove any shown entry context. (defalias 'org-agenda-entry-text-hide #[0 "\300\301\302ed\"\"\207" [mapc #[257 "\300\301\"\302=\205\f\303!\207" [overlay-get org-overlay-type agenda-entry-content delete-overlay] 4 "\n\n(fn O)"] overlays-in] 5 (#$ . 159100)]) #@59 Return the face DATE should be displayed with. (fn DATE) (defalias 'org-agenda-get-day-face #[257 "\302!\203\f!\206/\303!\203\304! >\203\305\207\303!\203$\306\207\304! >\203.\307\207\310\207" [org-agenda-day-face-function org-agenda-weekend-days functionp org-agenda-today-p calendar-day-of-week org-agenda-date-weekend-today org-agenda-date-today org-agenda-date-weekend org-agenda-date] 3 (#$ . 159367)]) #@267 Start day for the agenda view. Custom commands can set this variable in the options section. This is usually a string like "2007-11-01", "+2d" or any other input allowed when reading a date through the Org calendar. See the docstring of `org-read-date' for details. (defvar org-agenda-start-day nil (#$ . 159797)) (defvar org-starting-day nil) (defvar org-arg-loc nil) #@670 Produce a daily/weekly view from all files in variable `org-agenda-files'. The view will be for the current day or week, but from the overview buffer you will be able to go to other days/weeks. With a numeric prefix argument in an interactive call, the agenda will span ARG days. Lisp programs should instead specify SPAN to change the number of days. SPAN defaults to `org-agenda-span'. START-DAY defaults to TODAY, or to the most recent match for the weekday given in `org-agenda-start-on-weekday'. When WITH-HOUR is non-nil, only include scheduled and deadline items if they have an hour specification like [h]h:mm. (fn &optional ARG START-DAY SPAN WITH-HOUR) (defalias 'org-agenda-list #[1024 "\203@\262A@\262\3068\262\250\203#\307V\203#\262\310\262\247\2033\307W\2043\311\312\"\210\3132\256\314 \205Y\n\203M ;\203M\315\316\n #\202Y\n\203X\315\317\n\"\202Y\320!\321\322!\210\206d \262;\203u\323\324\310\325#!\262\326\327!\210\330\327!\210\331\206\204@!\332 \206\214\211\333\"\211\334=\204\234\211\335=\205\236AA\336\310\337\"\211A\203\260\334W\203\264\202\320\340\341!!AZ\307W\203\312\334\202\313\307\\Z\266\203\211C\307B?CDE\310\211\211\211\211\211\211\211\211\211\211\342\343D\343D\257FS\307\211W\203\310@TB\262\210\211T\262\202\374\266\f\237\262 \f@\262\f\344!@\262\206,\307T\262\345\346!\210\f@&\345\347!\210'\345\350!\210\331!(G\204\336\f@ \344!@\262\351!\351!`\262H\352\267\202\233\353!\354\355ZX\203|\356\202\216U\203\211\315\357\"\202\216\315\360#\361Rc\266\202\306\266\202\306H;\203\257\362H\363\364#\365\261\266\202\306\366H!\203\277H c\266\202\306\311\367H\"\266` V\203\336\370 `S\363\364\371\325F#\210\372 !\210\f\211A\262\242\211\262\203\303\341!\262`\262 U\211\262\204 \204U\203`\262\202\203\204`\262\262\310\262 \211A\262\242\211\262 \203\364\3732\360\374!\210II\375I>\203I\376\377I\"I\201TI>\203[\376\201UI\"I\203\216\377I>\203t\376\377I\"I\375IBI\201UI>\203\216\376\201UI\"I\201TIBIJ\204\235\376\375\376\377I\"\"IE\201V>\203\266\201W\201X#\262\n\202\343E\203\324\201Y\201W  \201Z\201[I\"$\262\n\202\343\201Y\201W  I$\262\n)\201Z  \"\211\262\n0\210\202!K\203\325L\201\\\201]!\210\201^!\262\n\201Z  \"\262 )\204!M\203\336 T\262\fN;\203;\201_N\201` !\"\202@N!\365\261\210\201a `S\363\201b !$\210\201a `S\371\325$\210\201a `S\201c\325$\210\201a `S\201d$\210\203\211\201a `S\332\325$\210\201e #\262 \203\244\201f \327\"\365\261\210\201a `S\201g $\210\201a `S\201d$\210\202\336O\203\203\336\310\337\"\201hP!\310\201i\201j\"\262\201k\201l#\262\201k\201m#\262\201k\201n\327#\262\201Y\201o\"\262\211c\210)\266eb\210Q\204$\201p \210\201q\f!\203g\201re!\203<\201rd!\204gdSb\210\201s\201t!\210\201r\206R\201u!\204g\206]\201ub\210\201s\201u!\210\206n\201ub\210\370ed\201v\327\201wE\201xF\201yR\257#\210E\201z=\203\235\201{ \210\201| \210\325S\201}\356!+\266\2240\207" [org-agenda-overriding-arguments org-agenda-sticky org-keys org-match org-agenda-buffer-name org-agenda-start-day 2 0 nil user-error "Agenda creation impossible for this span(=%d days)" exit org-agenda--get-buffer-name format "*Org Agenda(%s:%s)*" "*Org Agenda(%s)*" "*Org Agenda(a)*" 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 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 362 #1="" 406)) org-agenda-span-name "-agenda" 350 #1# " (W%02d)" " (W%02d-W%02d)" ":\n" propertize face org-agenda-structure "\n" functionp "Invalid value for `org-agenda-overriding-header': %S" add-text-properties org-date-line org-agenda-mark-header-line nextfile org-check-agenda-file :deadline* delq :deadline org-agenda-span org-agenda-start-on-weekday debug-on-error inhibit-redisplay org-agenda-show-log org-agenda-show-log-scoped org-agenda-redo-command org-agenda-compact-blocks 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 org-agenda-multi org-cmd buffer-read-only :scheduled* :scheduled (only clockcheck) org-agenda-get-day-entries :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 copy-sequence 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] 35 (#$ . 160173) "P"]) #@74 Return a span symbol for a span of N days, or N if none matches. (fn N) (defalias 'org-agenda-ndays-to-span #[257 "\2119\203\207\211\300U\203\301\207\211\302U\203\303\207\211\304U\203\305\207\207" [1 day 7 week 14 fortnight] 3 (#$ . 165574)]) #@125 Return ndays from SPAN, possibly starting at START-DAY. START-DAY is an absolute time value. (fn SPAN &optional START-DAY) (defalias 'org-agenda-span-to-ndays #[513 "\247\203\207\300\267\202\205\301\207\302\207\303\207\304!\211@AA@\305U\203N\211\211\306W\203/\307!S\262\211\310\246\306U\205E\211\311\246\306U?\206E\211\312\246\306U\262\203N\266\313\207\314SH\207\304!\211AA@\211\306W\203f\307!S\262\211\310\246\306U\205|\211\311\246\306U?\206|\211\312\246\306U\262\203\203\315\207\316\207\247\205\213\207" [#s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (day 13 week 15 fortnight 17 month 19 year 83)) 1 7 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] 8 (#$ . 165833)]) #@32 Return a SPAN name. (fn SPAN) (defalias 'org-agenda-span-name #[257 "\211\204\300\207\2119\203\301\302!!\207\303\304\"\207" ["" capitalize symbol-name format "%d days"] 4 (#$ . 166636)]) (defvar org-agenda-search-history nil) #@175 Special syntax table for Org search. In this table, we have single quotes not as word constituents, to that when "+Ameli" is searched as a work, it will also match "Ameli's" (defvar org-search-syntax-table nil (#$ . 166876)) (defalias 'org-search-syntax-table #[0 "\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]) (defvar org-agenda-last-search-view-search-was-boolean nil) #@2302 Show all entries that contain a phrase or words or regular expressions. With optional prefix argument TODO-ONLY, only consider entries that are TODO entries. The argument STRING can be used to pass a default search string into this function. If EDIT-AT is non-nil, it means that the user should get a chance to edit this string, with cursor at position EDIT-AT. The search string can be viewed either as a phrase that should be found as is, or it can be broken into a number of snippets, each of which must match in a Boolean way to select an entry. The default depends on the variable `org-agenda-search-view-always-boolean'. Even if this is turned off (the default) you can always switch to Boolean search dynamically by preceding the first word with "+" or "-". The default is a direct search of the whole phrase, where each space in the search string can expand to an arbitrary amount of whitespace, including newlines. If using a Boolean search, the search string is split on whitespace and each snippet is searched separately, with logical AND to select an entry. Words prefixed with a minus must *not* occur in the entry. Words without a prefix or prefixed with a plus must occur in the entry. Matching is case-insensitive. Words are enclosed by word delimiters (i.e. they must match whole words, not parts of a word) if `org-agenda-search-view-force-full-words' is set (default is nil). Boolean search snippets enclosed by curly braces are interpreted as regular expressions that must or (when preceded with "-") must not match in the entry. Snippets enclosed into double quotes will be taken as a whole, to include whitespace. - If the search string starts with an asterisk, search only in headlines. - If (possibly after the leading star) the search string starts with an exclamation mark, this also means to look at TODO entries only, an effect that can also be achieved with a prefix argument. - If (possibly after star and exclamation mark) the search string starts with a colon, this will mean that the (non-regexp) snippets of the Boolean search must match as full words. This command searches the agenda files, and in addition the files listed in `org-agenda-text-search-extra-files' unless a restriction lock is active. (fn &optional TODO-ONLY STRING EDIT-AT) (defalias 'org-search-view #[768 "\203@\262A@\262\3068\262\307\310\311\312\301 \302\n\303 \313\314\315\316\257\fC \310\211\211\211\211\211\211\211\211\211\211\211C\310C\310C\310\211\211\211\211C\310\211C\310C\310\211\211\211C\204Z;\203Z\317\320\"\204~\321@\203d\322\202e\323\250\203sB\202z\205z\324#\262\3252\326A\205\262;\203\245\327\330B\206\237!\203\236\331\202\237\332!#\202\262\327\333!\203\260\331\202\261\332\"!C\334\335!\210\336\337!\210\340\337!\210\341\205\310\342\343\344\310\"FEDE\345!\346=\203\353\342\262\347\310O\262\202\357\262\345!\350=\203\342\262\347\310O\262\345!\351=\203\342\240\210\347\310O\262@\204%\345!\352>\203(\342\262\f\353!\262\310\211\211A\262\n\242\211\262\203c\317\354\"\203[\203[\211\355\356O\357\n\211A\262\f\242Q\262\202=\211B\262\2020\237\262 \310\262\211A\262\n\242\211\262\203\266\317\360\"\203\256\317\361\"\204\256\203\242\317\361\n@\"\204\242\211\357\n\211A\262\f\242Q\262\202\205\211\357\n\211A\262\f\242Q\262\211B\262\202j\237\262 \266 F \203?\310\211\211A\262\n\242\211\262\2039\211\355\347O\362\232\204\366\211G\347V\203\211\355\347O\363\235\203\211\347\306O\362\232\203\203\211\356\310O\362\232\204\211\357\n\211A\262\f\242Q\262\202\366\317\364\"\203\"\365\366\310\211$\262\211\356\310O\362\232\2031\211\355\356O\262\211B\262\202\307\237\262 \266 \203\\\367\370\371\f\f&\"\210\202i\372\373 \374#\242B\240\210\375\242\376\"\240\210\242\204~G\262\202\226\242\211\242A\240\210\242\262\203\226G\377Q\262\201S\310\201T\"\262 @\201U=\203\300 \210 A\201S\201VN\204\300\201W!\262\201X\201Y \"\201Z\201[#\262\310\262\211A\262\242\211\262\203\310\262 \201\\2\374\201]!\210\201^!\203\201_!\202\201`\201a\"\262\204\327\201b\"C\262rq\210\201c p\370\201d#\216\201e\201f !\210\201g\201h!\204L\201`\201i\"\210\342H\212\214I=\203aJK}\210\202c~\210eb\210\201j \204}\201k \204}\201l\201\\\342\"\210e`S]b\210\201m\310\342#\205\367\201n\342!\210L\355U\204\266\201o\201p !LV\203\266\356y\203\266\201n\342!\204\224\201q\310w\210\201r \262 `\262 \201k \210L\355U\204\355\201o\201p !LV\203\355\347y\203\355\201k \204\314`\240\210\201s2\363\nb\210\201t \210\201u\201r \203\201v \202\f\242\"\240\210\367\370\201w\f#\242\"\210\367\370\201x\f#\"\203C\201y P\n\242B\202F \242\"\210\nb\210\201z`!\262\201{ \262\201|\201o\201p !\201}\"\262M\201~=\206\226M<\203\202\201M>\206\226M\342=\205\226N\342=\206\226\201N>\262\201\200\310?\"\262\201\201\201\202\201u\201v \"\342&\262\f\201\203\f\201\204\201\205\302\n\201\206\303 \201\207\201\210\201\211\201\212&\210  B\262  \242Sb0\210\202\203,\266\202)0\210\n\237\262\201Y\"\262\202\326O\201\213\267\202\204\201\214\201\215\342\"r\211q\210\370\201\216\"\216\201\217c\210\201\220e`S\307\201\221D#\210`\262\201\222\261\210\201\220`S\307\201\223D#\210`\262P\204u\201\224\201\225!c\210\201\220`S\307\201\226D#\210\201\227 *\262c\210\202\270\202\270O;\203\235\201\230O\307\201\221#\201\222\261\210\202\270\201\231O!\203\256O c\210\202\270\201\232\201\233O\"\210\201\234e!\210\203\320\201\235\337\"\201\222\261\210eb\210P\204\335\201\236 \210\201\220ed\201\237\337\201\240$$$E\201\241D\201\242Q\257#\210\201\243 \210\342\211R0)\207" [org-agenda-overriding-arguments org-not-done-regexp org-todo-regexp org-complex-heading-regexp org-agenda-search-view-force-full-words org-agenda-text-search-extra-files 2 face nil done-face org-agenda-done mouse-face highlight help-echo "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--get-buffer-name format "*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 make-closure #[257 "\301\306!\240\210\301\242\307=\203\302\310\240\210\211\311\312O\262\2022\301\242\313=\203.\302\312\240\210\211\311\312O\262\2022\302\312\240\210\314\315\"\203C\303\311\316O\240\210\202\\\300\242\203U\303\317\320\227!\321Q\240\210\202\\\303\320\227!\240\210\302\242\203i\305\303\242\305\242B\240\207\304\303\242\304\242B\240\207" [V0 V1 V2 V3 V4 V5 string-to-char 45 t 1 nil 43 string-match "\\`{.*}\\'" -1 "\\<" regexp-quote "\\>"] 5 "\n\n(fn W)"] mapconcat regexp-quote "\\s-+" sort #[514 "GGV\207" [] 4 "\n\n(fn A B)"] ".*?" org-agenda-search-view-always-boolean org-agenda-sticky org-keys org-agenda-buffer-name org-agenda-redo-command org-agenda-query-string org-agenda-last-search-view-search-was-boolean org-outline-regexp-bol 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 org-agenda-files ifmode agenda-archives org-restrict org-add-archive-files cl-remove-duplicates append :test #[514 "\300!\205\300!\205\301\"\207" [file-exists-p file-equal-p] 5 "\n\n(fn A B)"] 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 #[0 "r\301q\210\302\300!)\207" [V0 V1 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 #[257 "\302\301\242\"\205\300\242Sb\210\303\304\305\"\207" [V0 V1 string-match throw :skip t] 4 "\n\n(fn WR)"] #[257 "\302\301\242\"?\205\300\242Sb\210\303\304\305\"\207" [V0 V1 string-match throw :skip t] 4 "\n\n(fn WR)"] "^\\*+[ ]+" org-agenda-new-marker org-get-category make-string 32 always todo org-get-tags org-agenda-format-item #1="" org-add-props org-marker org-hd-marker level priority 1000 type "search" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 1304 #1# 1409)) generate-new-buffer " *temp*" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "Search words: " add-text-properties org-agenda-structure "\n" org-agenda-structure-filter 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]' for a fresh search\n" org-agenda-structure-secondary buffer-string propertize functionp user-error "Invalid value for `org-agenda-overriding-header': %S" 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] 50 (#$ . 167366) "P"]) #@77 Use `org-todo-keyword-faces' for the selected todo KEYWORDS. (fn KEYWORDS) (defalias 'org-agenda-propertize-selected-todo-keywords #[257 "\211\300\232\204\n\211\204\301\300\302\303#\202\304\305\306\307\"\307#\310P\207" ["ALL" propertize face org-agenda-structure-filter mapconcat #[257 "\300\301\302!\303D#\207" [propertize face org-get-todo-face org-agenda-structure] 6 "\n\n(fn KW)"] org-split-string "|" "\n"] 6 (#$ . 177128)]) (defvar org-select-this-todo-keyword nil) (defvar org-last-arg nil) #@334 Show all (not done) TODO entries from all agenda files in a single list. The prefix arg can be used to select a specific TODO keyword and limit the list to these. When using `\[universal-argument]', you will be prompted for a keyword. A numeric prefix directly selects the Nth keyword in `org-todo-keywords-1'. (fn &optional ARG) (defalias 'org-todo-list #[256 "\203\262\211;\203\306\307\"\204\310\262\311 \312!\313\310\211\310\211\211\211\211\3142\335\315 \205G\n;\203?\316\317\f\206:\320\n#\202G\316\321\f\206F\320\"!\322\323!\210@\262;\203\\\202o\250\205o\324V\205oS8\325\232\203\212\326\327\330A\331\332\333\334 \"\310\211$)\330#\324=\203\223\310\335\336!\210\337\336!\210\340\341\342\n\343 \257DB\344\310\345\"\262\310\262\211A\262\242\211\262\203\331\3462\325\347!\210\350\351#\262\352\"\211\2620\210\202\260C\353\267\202f\354\355\313\"r\211q\210\356\357\"\216\360c\210\361e`S\362\363\364\365\n\206\375\366PF#\210\367e!\210\370\n!c\210`\262D\204L\371\372!c\210\324\211\203E\211@\316\373T\211\262#i\374!\\T\375 V\2038\376c\210\377\261\266A\266\202\202\266\201Gc\210\361`S\362\201HD#\210\201I *\262c\210\202\230\202\230C;\203}\201JC\362\363#\201G\261\210\202\230\201KC!\203\216C c\210\202\230\201L\201MC\"\210\367e!\210\203\254\201N\336\"\201G\261\210eb\210D\204\271\201O \210\361ed\201P\336\201Q\201RB\201SE\257#\210\201T \210\313\211F0*\207" [org-agenda-overriding-arguments completion-ignore-case org-select-this-todo-keyword org-agenda-sticky org-keys org-agenda-buffer-name string-match "\\S-" nil org-today calendar-gregorian-from-absolute t exit org-agenda--get-buffer-name format "*Org Agenda(%s:%s)*" "t" "*Org Agenda(%s)*" org-agenda-prepare "TODO" 0 (4) mapconcat identity "|" completing-read-multiple "Keyword (or KWD1|KWD2|...): " mapcar list 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 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 224 "" 355)) generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "Global list of TODO items of type: " add-text-properties face org-agenda-structure short-heading "ToDo: " "ALL" org-agenda-mark-header-line org-agenda-propertize-selected-todo-keywords substitute-command-keys "Press \\`N \\[org-agenda-redo]' (e.g. `0 \\[org-agenda-redo]') to search again: (0)[ALL]" "(%d)%s" string-width window-width "\n " " " org-todo-keywords-for-agenda crm-separator org-agenda-redo-command org-agenda-overriding-header org-agenda-multi org-cmd buffer-read-only "\n" org-agenda-structure-secondary buffer-string propertize functionp user-error "Invalid value for `org-agenda-overriding-header': %S" 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] 20 (#$ . 177643) "P"]) #@166 Show all headlines for all `org-agenda-files' matching a TAGS criterion. The prefix arg TODO-ONLY limits the search to TODO entries. (fn &optional TODO-ONLY MATCH) (defalias 'org-tags-view #[512 "\203 @\262A@\262 \306\307\211\211\211\211\211\211;\203+\310\311 \"\204+\307\262\3122\325\313\f\205];\203P\314\315 \206J \203I\316\202J\317 #\202]\314\320 \203[\316\202\\\317\"!@\321!\262\322\323 P!\210@\262A\262\324\325!\210\326\325!\210A\327\330 D\331\332\307AFEB\333\307\334\"\262\307\262\211A\262\242\211\262\203 \3352 \336!\210\337!\203\267\340!\202\273\341\342\"\262\211\204\324\314\343\"C\262\344\"\211\262\202r\211q\210\345\346!\204\343\341\347\"\210\212\214\211C=\203\365DE}\210\202\367~\210\350\351 #\262\344\"\211\262+0\210\202\227F\352\267\202g\353\354\306\"r\211q\210\355\356\"\216\357c\210\360e`S\361\362\363\364PF#\210`\262\365\261\210\360`S\361\366D#\210`\262G\204Q\367\370!c\210\360`S\361\371D#\210\372 *\262c\210\202\217\202\217F;\203z\373F\361\362#\365\261\210\202\217\374F!\203\211F c\210\202\217\375\376F\"\210\377e!\210\203\242\201J\325\"\365\261\210eb\210G\204\257\201K \210\360ed\201L\325\201M D\201NB\201OH\257#\210\201P \210\306\211I0+\207" [org-agenda-overriding-arguments org-tags-match-list-sublevels completion-ignore-case org--matcher-tags-todo-only org-agenda-sticky org-keys t nil string-match "\\S-" exit org-agenda--get-buffer-name 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 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 276 "" 356)) generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "Headlines with TAGS match: " add-text-properties face org-agenda-structure short-heading "Match: " "\n" org-agenda-structure-filter substitute-command-keys "Press \\`\\[universal-argument] \\[org-agenda-redo]' to search again\n" org-agenda-structure-secondary buffer-string propertize functionp user-error "Invalid value for `org-agenda-overriding-header': %S" org-agenda-mark-header-line 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 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] 20 (#$ . 180828) "P"]) #@199 Regular expression used in skipping subtrees for the agenda. This is basically a temporary global variable that can be set and then used by user-defined selections using `org-agenda-skip-function'. (defvar org-agenda-skip-regexp nil (#$ . 183780)) #@421 When set during agenda, todo and tags searches it replaces the header. If an empty string, no header will be inserted. If any other string, it will be inserted as a header. If a function, insert the string returned by the function as a header. If nil, a header will be generated automatically according to the command. This variable should not be set directly, but custom commands can bind it in the options section. (defvar org-agenda-overriding-header nil (#$ . 184035)) #@103 Skip entry if any of CONDITIONS is true. See `org-agenda-skip-if' for details. (fn &rest CONDITIONS) (defalias 'org-agenda-skip-entry-if #[128 "\300\301\"\207" [org-agenda-skip-if nil] 4 (#$ . 184518)]) #@105 Skip subtree if any of CONDITIONS is true. See `org-agenda-skip-if' for details. (fn &rest CONDITIONS) (defalias 'org-agenda-skip-subtree-if #[128 "\300\301\"\207" [org-agenda-skip-if t] 4 (#$ . 184730)]) #@1646 Check current entity for CONDITIONS. If SUBTREE is non-nil, the entire subtree is checked. Otherwise, only the entry (i.e. the text before the next heading) is checked. CONDITIONS is a list of symbols, boolean OR is used to combine the results from different tests. Valid conditions are: scheduled Check if there is a scheduled cookie notscheduled Check if there is no scheduled cookie deadline Check if there is a deadline notdeadline Check if there is no deadline timestamp Check if there is a timestamp (also deadline or scheduled) nottimestamp Check if there is no timestamp (also deadline or scheduled) regexp Check if regexp matches notregexp Check if regexp does not match. todo Check if TODO keyword matches nottodo Check if TODO keyword does not match The regexp is taken from the conditions list, it must come right after the `regexp' or `notregexp' element. `todo' and `nottodo' accept as an argument a list of todo keywords, which may include "*" to match any todo keyword. (org-agenda-skip-entry-if \='todo \='("TODO" "WAITING")) would skip all entries with "TODO" or "WAITING" keywords. Instead of a list, a keyword class may be given. For example: (org-agenda-skip-entry-if \='nottodo \='done) would skip entries that haven't been marked with any of "DONE" keywords. Possible classes are: `todo', `done', `any'. If any of these conditions is met, this function returns the end point of the entity, causing the search to continue from there. This is a function that can be put into `org-agenda-skip-function' for the duration of a command. (fn SUBTREE CONDITIONS) (defalias 'org-agenda-skip-if #[514 "\303\304!\210\203\212\305\304!\210`)\202\212\306 \210`)\203 \211\202#\307\310!\311\312>\2032\313\304#\204\337\314>\203B\212\313\304#)\203\337\315>\203P\313 \304#\204\337\316>\203`\212\313 \304#)\203\337\317>\203n\313\n\304#\204\337\320>\203~\212\313\n\304#)\203\337\321>\211\262\203\230\211A@;\203\230\313A@\304#\204\337\322>\211\262\203\264\211A@;\203\264\212\313A@\304#)\203\337\323>\211\262\204\330\324>\211\262\204\330\325>\211\262\204\330\326>\211\262\205\340\327\"\205\340\207" [org-scheduled-time-regexp org-deadline-time-regexp org-ts-regexp 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] 9 (#$ . 184945)]) #@278 Helper function for `org-agenda-skip-if', do not use it directly. ARGS is a list with first element either `todo', `nottodo', `todo-unblocked' or `nottodo-unblocked'. The remainder is either a list of TODO keywords, or a state symbol `todo' or `done' or `any'. (fn ARGS END) (defalias 'org-agenda-skip-if-todo #[514 "\303\304:\205y\243\211:\205w\211\242\211\305\267\202B\243\211?\205#\306\307 !\"\262\202u\243\211?\2050\262\202u\243\211?\205= \262\202u\211:\204X\243\211?\205S\310\311\"\262\202u\312\235\203k\243\211?\205f \262\202u\243\211?\205s\262\262\262\313\"P:\205\350\242\211\314\267\202\342\315\316\317#)\202\346\315\316\317#)?\202\346\3202\346\315\316\317#)\203\274\321 \203\244\322\320\317\"\210\202\244\3150\202\346\3202\346\315\316\317#)\203\335\321 \203\305\322\320\315\"\210\202\305\3170\202\346\310\323\"\262\207" [org-done-keywords org-todo-keywords-1 case-fold-search "^\\*+[ ]+" regexp-opt #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (todo 22 done 40 any 53)) org-delete-all copy-sequence 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 137 nottodo 148 todo-unblocked 160 nottodo-unblocked 193)) nil re-search-forward t :unblocked org-entry-blocked-p throw "Unknown TODO skip type: %S"] 11 (#$ . 187525)]) #@239 Create agenda view for projects that are stuck. Stuck projects are project that have no next actions. For the definitions of what a project is and how to check if it stuck, customize the variable `org-stuck-projects'. (fn &rest IGNORE) (defalias 'org-agenda-list-stuck-projects #[128 "\206\306 @ A@\307 8\310\311 8!\312\235\204\202*\313\314\315\316\"!\210\317\n\320 !\"\2056\321\322\323\324\325#\"\204>\315\202d\312\235\203H\f\202d\203c\321\326 \"&\327\330\331\"\332\333\260\262\202d\315\334\315E\"\211\204v\335\336!\202{\323\324\325#\337\340\"'\341\315\n\"\210\342 (r(q\210\343)D*\331+\344ed\345*D#,\207" [org-agenda-overriding-header org-stuck-projects org-done-keywords-for-agenda org-todo-keywords-for-agenda org-tag-line-re org-tag-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 "\\|" "\\(?:%s:\\)*" ".*?[ ]:" regexp-opt t ":" "[ ]*$" delq error "Missing information to identify unstuck projects" make-closure #[0 "\212\302\303\300\212\304\305!)\305#*\205\306 \210`\207" [V0 case-fold-search nil re-search-forward org-end-of-subtree t outline-next-heading] 4] org-tags-view buffer-name org-agenda-list-stuck-projects add-text-properties org-redo-cmd org-outline-regexp-bol org-agenda-skip-function org-agenda-buffer-name current-prefix-arg org-agenda-redo-command inhibit-read-only] 15 (#$ . 188960) nil]) (defvar org-disable-agenda-to-diary nil) #@61 Get the (Emacs Calendar) diary entries for DATE. (fn DATE) (defalias 'org-get-entries-from-diary #[257 "\306\307!\210\310\311\312\313 B\312\314\315*P*\312\316+\212\317 \320\321\"\216\322\323\"\210)\210)\324!\2048\312\262\202\254rq\210\312,\325 \326U\203L\312\262\202\243\327 \210\325 \326U\203\\\312\262\202\243edS{\262\330\331\316\"r\211q\210\320\332\"\216c\210eb\210\333\334\312\316#\203\234\335 \320\336\"\216\337*\340\323!\")\262\204u\341\342\340\323!P!\210\202u\343 *\262\262\344\312!\210\345!\210)\211\205\300\346\347\"\262\350\320\351\"\"\211\262.\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 make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] diary-list-entries 1 get-buffer buffer-size 0 org-agenda-cleanup-fancy-diary generate-new-buffer " *temp*" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "\n[ ]+\\(.+\\)$" match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match match-string replace-match "; " buffer-string set-buffer-modified-p kill-buffer org-split-string "\n" mapcar #[257 "\301\302\303\304\303\305&\262\306\307GS\"\310\311\312\300\313\314&\207" [V0 org-agenda-format-item "" nil "Diary" time org-add-props text-properties-at type "diary" date face org-agenda-diary] 10 "\n\n(fn X)"] diary-time-regexp org-disable-agenda-to-diary buffer-read-only] 8 (#$ . 190510)]) #@53 Hook run when the fancy diary buffer is cleaned up. (defvar org-agenda-cleanup-fancy-diary-hook nil (#$ . 192201)) #@260 Remove unwanted stuff in buffer created by `fancy-diary-display'. This gets rid of the date, the underline under the date, and the dummy entry installed by Org mode to ensure non-empty diary for each date. It also removes lines that contain only whitespace. (defalias 'org-agenda-cleanup-fancy-diary #[0 "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\2027eb\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 (#$ . 192323)]) #@72 Add text properties to string, allowing Org to act on it. (fn STRING) (defalias 'org-modify-diary-entry-string #[257 "\301\302\303\304\305\203\306\307\310!\"\202\311\312\313\314\315\316 !&\n\207" [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] 13 (#$ . 193085)]) #@92 Add a dummy entry to the diary. Needed to avoid empty dates which mess up holiday display. (defalias 'org-diary-default-entry #[0 "\205 \302 \303\304#\207" [org-disable-agenda-to-diary original-date diary-add-to-list "Org mode dummy" ""] 4 (#$ . 193522)]) (defvar org-diary-last-run-time nil) #@1115 Return diary information from org files. This function can be used in a "sexp" diary entry in the Emacs calendar. It accesses org files and extracts information from those files to be listed in the diary. The function accepts arguments specifying what items should be listed. For a list of arguments allowed here, see the variable `org-agenda-entry-types'. The call in the diary file should look like this: &%%(org-diary) ~/path/to/some/orgfile.org Use a separate line for each org file to check. Or, if you omit the file name, all files listed in `org-agenda-files' will be checked automatically: &%%(org-diary) If you don't give any arguments (as in the example above), the default value of `org-agenda-entry-types' is used: (:deadline :scheduled :timestamp :sexp). So the example above may also be written as &%%(org-diary :deadline :timestamp :sexp :scheduled) The function expects the lisp variables `entry' and `date' to be provided by the caller, because this is how the calendar works. Don't use this function from a program - use `org-agenda-get-day-entries' instead. (fn &rest ARGS) (defalias 'org-diary #[128 "\306 Z\307V\203\f\310 \210\311\312!\210\313\312!\210\211\206 \262\n\2030\n;\2030\314\315\n\"\2030\nC\2023\316\317!\306 \320\211\211 \203D Z\321V\203H\322!\210\f\203Q\320\262\211A\262\242\211\262\203o\323\324  $\262\325\"\262\202Q\211\205~\326\327\"\262\330!\331P\207" [org-agenda-last-marker-time org-agenda-entry-types entry org-diary-last-run-time org-disable-agenda-to-diary date 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 #[257 "\301\302#\207" [org-link-bracket-re replace-regexp-in-string "\\2"] 5 "\n\n(fn I)"] org-agenda-finalize-entries "\n"] 11 (#$ . 193825)]) #@116 Call `org-time-string-to-absolute' with ARGS. However, throw `:skip' whenever an error is raised. (fn &rest ARGS) (defalias 'org-agenda--timestamp-to-absolute #[128 "\3001\3011\302\303\"00\2070\304\305\306\"\207\307\310\311!\"\210\304\305\306\"\207" [(error) (org-diary-sexp-no-match) apply org-time-string-to-absolute throw :skip nil message "%s; Skipping entry" error-message-string] 6 (#$ . 195750)]) #@330 Does the work for `org-diary' and `org-agenda'. FILE is the path to a file to be checked for entries. DATE is date like the one returned by `calendar-current-date'. ARGS are symbols indicating which kind of entries should be extracted. For details about these, see the documentation of `org-diary'. (fn FILE DATE &rest ARGS) (defalias 'org-agenda-get-day-entries #[642 "\306\211\307!\203\310!\202\311\312\"\211\204 \313\314\"C\202r\211q\210\315\316!\204/\311\317\"\210\n\2064\211\212\214\211\f=\203G #}\210\202I~\210\206O$\320!\321!\266\202\262\322>\203k\323>\203k\324\323\"\262\325>\203\200\325\324\325\324\326\"\"B\262\202\216\326>\203\216\326\324\326\"B\262\306\211\211%&\211\203\211@\211\327\267\202\330&!\203\331 B\262\202\332 B\262\333!B\262\202\334 B\262\202\335!B\262\202\335\336\"B\262\202\337 B\262\202\340 \262B\262\202\340\336!\262B\262A\266\202\202\230\341\342\237\"\262*\266\203+*\207" [org-startup-folded org-startup-align-all-tables org-agenda-buffer org-agenda-current-date org-agenda-restrict org-agenda-restrict-begin 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 164 :timestamp 180 :sexp 196 :scheduled 205 :scheduled* 215 :closed 226 :deadline 235 :deadline* 247)) 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-restrict-end org-agenda-entry-types case-fold-search date] 13 (#$ . 196168)]) #@44 Is X or Y a member of LIST? (fn X Y LIST) (defalias 'org-em #[771 ">\206 >\207" [] 5 (#$ . 198046)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-em speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defvar org-agenda-sorting-strategy-selected nil) #@234 Retrieve timestamp information for sorting agenda views. Given a point or marker POM, returns a cons cell of the timestamp and the timestamp type relevant for the sorting strategy in `org-agenda-sorting-strategy-selected'. (fn POM) (defalias 'org-agenda-entry-get-agenda-timestamp #[257 "\301\211\302 \303\304\"\216\305\306>\206>\266\203\203&\307\310\"\262\311\262\202\262\312\313>\2062>\266\203\203C\307\314\"\262\315\262\202\262\316\317>\206O>\266\203\203`\307\320\"\262\321\262\202\262\322\323>\206l>\266\203\203}\307\324\"\262\325\262\202\262\326\327>\206\211>\266\203\203\257\307\310\"\206\247\307\314\"\206\247\307\320\"\206\247\307\324\"\262\330\262\202\262\330\262\205\303\3311\301\332!0\202\303\210\301)B\207" [org-agenda-sorting-strategy-selected nil match-data make-closure #[0 "\301\300\302\"\207" [V0 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] 9 (#$ . 198342)]) #@49 Return the TODO information for agenda display. (defalias 'org-agenda-get-todos #[0 "\306\307\310\311\300\301 \302\n\312\313\314\315\316\317 !\"\257\307\315 @\203)@\320\232\203) \202>@\203=\321\322\323\324@\325\"\326#\327Q\202>\"\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211eb\210\330\307\331#\203h\3322d\333 \334\335\"\216\336 \210\337 \210`\262\212\340 \210`)\262\341 \211\262\f\203\206\342\225\211\262\204\216b\210\343\332\307\"\210\344!\203\246Tb\210A\204\241\345\346!\210\343\332\307\"\210)\210\342\224b\210\347\350\224!\262\351 \262 \352`!\262@\262 A\262\342\224\350\225{\307\353\203\324\354\202\325\355\356\353\357\356##\266\202\262B\360=\206B<\203\365\361B>\206B\331=\205C\331=\206\361C>\262\362\307?\"\262 \363\364\365 !\366\"\262\f\367\356\331&\262\370!T\262\371\372\373\374\375\376\377\201DP\201E&\210B\262A\203`\211b\202c\345\346!0\210\202Q\237)\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name case-fold-search org-heading-keyword-regexp-format 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 make-closure #[0 "\301\300\302\"\207" [V0 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 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 org-select-this-todo-keyword org-agenda-todo-list-sublevels org-agenda-show-inherited-tags org-agenda-use-tag-inheritance "todo" todo-state] 34 (#$ . 199552)]) #@236 Check whether timestamp is farther away than n number of days. This function is invoked if `org-agenda-todo-ignore-deadlines', `org-agenda-todo-ignore-scheduled' or `org-agenda-todo-ignore-timestamp' is set to an integer. (fn TIME N) (defalias 'org-agenda-todo-custom-ignore-p #[514 "\301\"\302Y\203\211Y\207\211X\207" [org-agenda-todo-ignore-time-comparison-use-seconds org-time-stamp-to-now 0] 5 (#$ . 201640)]) #@96 Do we have a reason to ignore this TODO entry because it has a time stamp? (fn &optional END) (defalias 'org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item #[256 "\204 \204\n\204 \205%\211\206\212\306 \210`)\262\212\203)\307\f\310#\206$ \203e\307 \310#\203e \311\267\202S\312\313\314!\"\315V\202b\312\313\314!\"\315X\202b \247\203a\316\313\314! \"\202b\310\206$\n\203\263\307\310#\203\263\n\317\267\202\235\310\202$\320\313\314!!?\202\260\312\313\314!\"\315V\202\260\312\313\314!\"\315X\202\260\n\247\203\253\316\313\314!\n\"\202\260\320\313\314!!\206$ \205$p \321Q`\322\323\310\"r\211q\210\324\325\"\216\326#\210eb\210\307\310#\203\347\315\224\315\225|\210\202\325eb\210\307\f\327\310#\205 \330\267\202\312\313\314!\"\315V\202\312\313\314!\"\315X\202 \247\203\316\313\314! \"\202\310*\262\266\203)\207" [org-agenda-todo-ignore-with-date org-agenda-todo-ignore-scheduled org-agenda-todo-ignore-deadlines org-agenda-todo-ignore-timestamp org-ts-regexp org-scheduled-time-regexp outline-next-heading re-search-forward t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (future 59 past 71)) org-time-stamp-to-now match-string 1 0 org-agenda-todo-custom-ignore-p #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (all 120 far 124 future 133 past 145)) org-deadline-close-p "\\|" generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (future 248 past 260)) org-agenda-todo-ignore-time-comparison-use-seconds org-deadline-time-regexp] 9 (#$ . 202068)]) #@169 Return the date stamp information for agenda display. Optional argument DEADLINES is a list of deadline items to be displayed in agenda view. (fn &optional DEADLINES) (defalias 'org-agenda-get-timestamps #[256 "\306\307\300\301 \302\n\310\311\312\313\314\315 !\"\257\f\f\211\3168\262\317\320U\203)\321\322!\266\203\202g\320V\203\237S\262\323\211\211@\262\211A@\262\3168\262\324S_\\\316V\203\212\211\325\326_\\\327\245Z\262\211\320W\203k\330!S\262\211\326\246\320U\205\201\211\331\246\320U?\206\201\211\332\246\320U\262\203\212\211T\262\266\204\333_\326\245\331\245[\332\245%\266\203\202g\330T!\262\334\211\211@\262\211A@\262\3168\262\324S_\\\316V\203\374\211\325\326_\\\327\245Z\262\211\320W\203\335\330!S\262\211\326\246\320U\205\363\211\331\246\320U?\206\363\211\332\246\320U\262\203\374\211T\262\266\204\333_\326\245\331\245[\332\245\335\211\211@\262\211A@\262\3168\262\324S_\\\316V\203a\211\325\326_\\\327\245Z\262\211\320W\203B\330!S\262\211\326\246\320U\205X\211\331\246\320U?\206X\211\332\246\320U\262\203a\211T\262\266\204&\266\203\336 \337\340\" \203u\341\202v\342\343\344@@\345\320\211\211\fA@\f@\316\f8&\"\346\347O!\350Q\317eb\210\351\317\352#\203\226\3532\222\354 \355\356\"\216\357 \204\305\360 \204\305\361 \204\305 \203\277\362 \204\305\363\364!\204\312\365\353\317\"\210\366 \210)\210\320\224\367\346!\367\370!\204\337\211\203\345\367\320!\202\362\212b\210\371A!\210\367\320!)\372 \373`\374\"B\235\211\203\nC\203\n\365\353\352\"\210\203\375\376\f#\204\365\353\317\"\210\203\216\377  V\2048D\352=\2048D\235\203=\f\202? \201Mp %\f\fX\203R\211\202yE\204[\211\202yE\201N=\203j T\202l\f\377\201Op %\262 U\204\214 U\204\214\365\353\317\"\210\266\212\201PF\317\352#\210G\203\251`\n\236\203\251\365\353\317\"\210\201Q!H\201R=\206\327H:\203\305\364H>\206\327H\352=\205\327I\352=\206\327\364I>\201S\317?\"\201T\201U\201V !\201W\"\371\201X!\205\370\367\346! f\201YU\201Z\201[!\205 \201[ \201\\\205J\n K&\201]\201^\203=\201_\201` !\202B\201a!\201b\201c!\201d\201c \304\f\201e\201f\203h\377!\202j!\201g\201h\201i\201j&\210\211B\262\266)\266L\205\221\201k 0\210\202\224\211\237\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name date org-agenda-include-inactive-timestamps 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 #[257 "\300\301\302#\211\205\f\303!\207" [get-text-property 0 org-hd-marker marker-position] 5 "\n\n(fn D)"] "[[<]" "<" regexp-quote format-time-string encode-time 1 11 "\\|\\(<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[hdwmy]>\\)\\|\\(<%%\\(([^>\n]+)\\)>\\)" re-search-forward t :skip match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] org-at-date-range-p org-at-planning-p org-before-first-heading-p org-at-clock-log-p org-at-timestamp-p agenda 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 org-time-stamp-formats org-ts-regexp-both org-done-keywords org-agenda-skip-timestamp-if-done org-agenda-prefer-last-repeat org-agenda-show-future-repeats org-outline-regexp-bol org-agenda-skip-timestamp-if-deadline-is-shown org-agenda-show-inherited-tags org-agenda-use-tag-inheritance org-agenda-inactive-leader org-ts-regexp org-agenda-skip-additional-timestamps-same-entry past next future re-search-backward org-get-category always org-get-tags 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 level ts-date todo-state warntime type "timestamp" outline-next-heading] 43 (#$ . 203848)]) #@49 Return the sexp information for agenda display. (defalias 'org-agenda-get-sexps #[0 "\306\307!\210\310\311\312\313\314\315\316\317!\"\257\320\211\211\211\211\211\211\211\320\211\211\211\211\211\211\211eb\210\321\322\320\323#\203>\3242:\325 \210\326\224\262\326\225Sb\210`\262\327\330!\210`{\262\331\332!\203j\333\330!\320\334\203\\\335\202]\336\337\334\340\337##\266\202\202k\337\262\341\n#\262\2059\342!\262\343\344\345 !\346\"\262\f\347!\262 \350=\206\256 <\203\237\351 >\206\256 \323=\205\256\f\323=\206\256\351\f>\262\352\320?\"\262 \353 \262\354`\355\"\262\320\262 ;\203\320C\202\322\211\2057\211@ \203\361\356 \"\203\361\333\326\"\262\357\337\320\211$\262\356\360\"\203\376\211\262\f\202\361\262\f\362 \363&\262\f\364\f\365\302\n\366\f\367\370\371\372&\210  B\262 A\266\202\202\322\2620\210\202%\n\237)\207" [buffer-file-name entry date org-agenda-show-inherited-tags org-agenda-use-tag-inheritance org-agenda-diary-sexp-prefix 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 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 todo-state level type "sexp" warntime] 33 (#$ . 207988)]) #@104 Like `diary-anniversary', but with fixed (ISO) order of arguments. (fn YEAR MONTH DAY &optional MARK) (defalias 'org-anniversary #[1027 "\301\302$)\207" [calendar-date-style iso diary-anniversary] 9 (#$ . 209724)]) #@101 Like `diary-cyclic', but with fixed (ISO) order of arguments. (fn N YEAR MONTH DAY &optional MARK) (defalias 'org-cyclic #[1284 "\301\302%)\207" [calendar-date-style iso diary-cyclic] 11 (#$ . 209952)]) #@101 Like `diary-block', but with fixed (ISO) order of arguments. (fn Y1 M1 D1 Y2 M2 D2 &optional MARK) (defalias 'org-block #[1798 "\301\302&)\207" [calendar-date-style iso diary-block] 15 (#$ . 210169)]) #@97 Like `diary-date', but with fixed (ISO) order of arguments. (fn YEAR MONTH DAY &optional MARK) (defalias 'org-date #[1027 "\301\302$)\207" [calendar-date-style iso diary-date] 9 (#$ . 210393)]) #@509 Entry applies if date is between dates on DAYNAME, but skips SKIP-WEEKS. DAYNAME is a number between 0 (Sunday) and 6 (Saturday). SKIP-WEEKS is any number of ISO weeks in the block period for which the item should be skipped. If any of the SKIP-WEEKS arguments is the symbol `holidays', then any date that is known by the Emacs calendar to be a holiday will also be skipped. If SKIP-WEEKS arguments are holiday strings, then those holidays will be skipped. (fn Y1 M1 D1 Y2 M2 D2 DAYNAME &rest SKIP-WEEKS) (defalias 'org-class #[1927 " E\211\3028\262\303\304U\203\305\306!\266\203\202Z\304V\203\222S\262\307\211\211@\262\211A@\262\3028\262\310S_\\\302V\203}\211\311\312_\\\313\245Z\262\211\304W\203^\314!S\262\211\312\246\304U\205t\211\315\246\304U?\206t\211\316\246\304U\262\203}\211T\262\266\204\317_\312\245\315\245[\316\245%\266\203\202Z\314T!\262\320\211\211@\262\211A@\262\3028\262\310S_\\\302V\203\357\211\311\312_\\\313\245Z\262\211\304W\203\320\314!S\262\211\312\246\304U\205\346\211\315\246\304U?\206\346\211\316\246\304U\262\203\357\211T\262\266\204\317_\312\245\315\245[\316\245\321\211\211@\262\211A@\262\3028\262\310S_\\\302V\203T\211\311\312_\\\313\245Z\262\211\304W\2035\314!S\262\211\312\246\304U\205K\211\315\246\304U?\206K\211\316\246\304U\262\203T\211T\262\266\204&\266\203E\211\3028\262\303\304U\203t\305\306!\266\203\202\262\304V\203\352S\262\307\211\211@\262\211A@\262\3028\262\310S_\\\302V\203\325\211\311\312_\\\313\245Z\262\211\304W\203\266\314!S\262\211\312\246\304U\205\314\211\315\246\304U?\206\314\211\316\246\304U\262\203\325\211T\262\266\204\317_\312\245\315\245[\316\245%\266\203\202\262\314T!\262\320\211\211@\262\211A@\262\3028\262\310S_\\\302V\203G\211\311\312_\\\313\245Z\262\211\304W\203(\314!S\262\211\312\246\304U\205>\211\315\246\304U?\206>\211\316\246\304U\262\203G\211T\262\266\204\317_\312\245\315\245[\316\245\321\211\211@\262\211A@\262\3028\262\310S_\\\302V\203\254\211\311\312_\\\313\245Z\262\211\304W\203\215\314!S\262\211\312\246\304U\205\243\211\315\246\304U?\206\243\211\316\246\304U\262\203\254\211T\262\266\204&\266\203\211\3028\262\303\304U\203\310\305\306!\266\203\202\304V\203>S\262\307\211\211@\262\211A@\262\3028\262\310S_\\\302V\203)\211\311\312_\\\313\245Z\262\211\304W\203\n\314!S\262\211\312\246\304U\205 \211\315\246\304U?\206 \211\316\246\304U\262\203)\211T\262\266\204\317_\312\245\315\245[\316\245%\266\203\202\314T!\262\320\211\211@\262\211A@\262\3028\262\310S_\\\302V\203\233\211\311\312_\\\313\245Z\262\211\304W\203|\314!S\262\211\312\246\304U\205\222\211\315\246\304U?\206\222\211\316\246\304U\262\203\233\211T\262\266\204\317_\312\245\315\245[\316\245\321\211\211@\262\211A@\262\3028\262\310S_\\\302V\203\211\311\312_\\\313\245Z\262\211\304W\203\341\314!S\262\211\312\246\304U\205\367\211\315\246\304U?\206\367\211\316\246\304U\262\203\211T\262\266\204&\266\203\205 \322!X\205NX\205N\323!U\205N\2034\324\325!\210\326!@\235?\205N\211\203>\327>\206I\330\303\331\332\333 \"\"\"?\205N \207" [date entry 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 make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn G)"]] 28 (#$ . 210600)]) (defalias 'org-get-closed 'org-agenda-get-progress) #@52 Return the logged TODO entries for agenda display. (defalias 'org-agenda-get-progress #[0 "\306\307\300\301 \302\n\310\311\312\313 !\"\257\n\f:\203\f\202%\f\314=\203$\315\202% \316\317\320>\2051\321@P\322>\205;\321AP\323>\205E\311\324 \"E\"\211\203S\325\326\327#\202V\330\331!\332\333\334\335B@\336\337\211\211CA@C@\340C8&\"\341\342O!R\317\211D\317\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211eb\210\343\317\344#\203h\3452d\346 \210\347\337\224!\262\350\341!@\232\262\f\351\350\341!!\352=\262\n \206\273 ?\262  \205\306\350\340!\262\353\337\224!\262\337\224\354 {\262\355\356\"\203\337\225\317O\262\337\211\225O\262 \204 \204\355\357\"\203\337\360O\361\350\341\"\362R\262\350\340\"\262\202\361\262\212E\204\317\202> \2030\363\364!\205>\350\341!\202>\205>\363\365!\205>\350\341!\262\366F\317\344#\204Q\367\345\317\"\210\202\377\337\224b\210\347 \262G\370=\206G<\203m\371G>\206G\344=\205H\344=\206\371H>\262\372\317?\"\262 \373\374\375 !\376\"\262\363\377!\210\350\341!\262\203\312\355\201I\"\203\301\337\341\224O\201J\201K\350\340 \"\260\262\202\312\201JQ\262\201L\f\203\330\201M\202\361\n\203\351\201N \201OQ\202\361\201P\201OQ &\262 \203\n\201Q\202 \203\201R\202\201S\262 \201T\262\201U\201V\201W\201X\201Y\201Z\201[\201\\\201CC\201]\201^\201_\201Y&\210B\262)\354 b0\210\202\215\237)\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name org-agenda-show-log-scoped org-agenda-log-mode-items 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 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 make-string org-reduced-level org-outline-level 32 "\\*+[ ]+\\([^ \n]+\\)" org-closed-string org-clock-string org-time-stamp-formats date org-agenda-search-headline-for-time org-agenda-log-mode-add-notes org-outline-regexp-bol org-agenda-show-inherited-tags org-agenda-use-tag-inheritance "\\([ ]+\\)\\(:[^ \n ]*?:\\)[ ]*$" " - " " " org-agenda-format-item "Closed: " "State: (" ")" "Clocked: (" "closed" "state" "clock" 100000 org-add-props org-marker org-hd-marker face org-agenda-done priority level type undone-face org-warning done-face] 45 (#$ . 214210)]) #@109 Add overlays, showing issues with clocking. See also the user option `org-agenda-clock-consistency-checks'. (defalias 'org-agenda-show-clocking-issues #[0 "\302 \303Q\304\211\305\306\307\"\206\310!\305\306\311\"\206\304!\305\306\312\"\206&\313!\314\305\306 \315\"\"\306\316\"\2068\317\320\211\211\211\211\211\211eb\210\321\322\320\323#\205\317\320\262\262\3242\224\325\326\327 \"\262\262\320\262\320\262\203o\330!\204w\331\262\332\324\323\"\210\212\330!\203\203\333!q\210\212\214~\210\206\214`b\210\212\327 b\210\334!\204\243\335\336!\210\332\324\323\"\210\337\225\204\316\340\341\342\343\344\345 !\344\346\347\350!!!Z\351\"!\"\262\306\352\"\206\307\262\332\324\323\"\210\347\350!\262\347\337!\262\344\346!!\262\344\346!!\262Z\262,\351 _V\203\340\353\342\343\351\"!\"\262\306\354\"\206 \211\262\202\223\351\f_W\2032\340\355\342\343\351\"!\"\262\306\356\"\206,\211\262\202\223\f\304V\203Z W\203Z\340\357Z\351\245\"\262\306\360\"\206T\211\262\202\223\f\304V\203\222 \351\f_\\V\203\222\361  #?\205\223\340\362Z\351\245\"\262\306\363\"\206\214\211\262\202\223\3230\210\206\233\f\262 \206\243 \262\203B\364\327 \365 \"\262\366\367\370\340\371\372 P\"\320\373\f$\374P#\210\366\375\323#\210\202B\207" [org-agenda-clock-consistency-checks org-clock-string "^[ ]*" "[ ]+\\(\\[.*?\\]\\)\\(-\\{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 format "No end time: (%s)" org-duration-from-minutes floor float-time org-current-time org-time-string-to-time match-string 1 60 :no-end-time-face "Clocking interval is very long: %s" :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 "%-43s" " " face "\n" evaporate] 25 (#$ . 217109) nil]) #@91 Check if gap T1 -> T2 contains one of the OK-LIST time-of-day values. (fn T1 T2 OK-LIST) (defalias 'org-agenda-check-clock-gap #[771 "\3002R\211\204 \301\300\302\"\210\303\245\303\245Z\304V\203\301\300\305\"\210\306!\306!A@\307\3108_\\A@\307\3108_\\C\211\242W\203E\211\242\311\\\240\210\312\313\314#\"\266\3020\207" [exit throw nil 36000 24 t org-decode-time 60 2 1440 mapc make-closure #[257 "\211\300W\203 \211\302\\\262\300X\205\301\242Y\205\303\304\305\"\207" [V0 V1 1440 throw exit t] 4 "\n\n(fn X)"]] 12 (#$ . 219414)]) #@169 Return the deadline information for agenda display. When WITH-HOUR is non-nil, only return deadlines with an hour specification like [h]h:mm. (fn &optional WITH-HOUR) (defalias 'org-agenda-get-deadlines #[256 "\306\307\300\301 \302\n\310\311\312\313 !\"\257\n\203\f\202 \314 \315@!@\211\3168\262\317\320U\2037\321\322!\266\203\202u\320V\203\255S\262\323\211\211@\262\211A@\262\3168\262\324S_\\\316V\203\230\211\325\326_\\\327\245Z\262\211\320W\203y\330!S\262\211\326\246\320U\205\217\211\331\246\320U?\206\217\211\332\246\320U\262\203\230\211T\262\266\204\333_\326\245\331\245[\332\245%\266\203\202u\330T!\262\334\211\211@\262\211A@\262\3168\262\324S_\\\316V\203\n\211\325\326_\\\327\245Z\262\211\320W\203\353\330!S\262\211\326\246\320U\205\211\331\246\320U?\206\211\332\246\320U\262\203\n\211T\262\266\204\333_\326\245\331\245[\332\245\335\211\211@\262\211A@\262\3168\262\324S_\\\316V\203o\211\325\326_\\\327\245Z\262\211\320W\203P\330!S\262\211\326\246\320U\205f\211\331\246\320U?\206f\211\332\246\320U\262\203o\211T\262\266\204&\266\203\317eb\210\336\317\337#\203#\3402\341 \342\343\"\216\344 )\262\204\231\345\340\317\"\210\346 \210\347\350!\350\224S\341 \342\351\"\216\352 )\262\211A\235\353\354\"\211\203\302\355\"\202\337B\337=\204\320B\235\203\334\355\n\356p%\202\337\355!\203\347\211\202\nX\203\363\211\202C\204\374\211\202C\357=\203  T\202 \355\360p\n%\262 ZD\205#\361\317\362\"\211\204+\317\202ID\250\2036D\202ID\363=\203H\355!ZE^\202I\320\262\211\206S\364 ! U\204\220 U\204\220\f\204n\345\340\317\"\210\202\220\fV\203\203V\203\220\345\340\317\"\210\202\220F[W\203\220\345\340\317\"\210\203\246G\204\241\fU\204\246\345\340\317\"\210\212\365\366\317\337#\210\320\225b\210\367 \370\371\372 !\373\"`\374 {H\375=\206\344H<\203\322\376H>\206\344H\337=\205\344I\337=\206\344\376I>\377\317?\"\nU\204\375 U\204\375\317\202\201K\201L\"\203\350\224\317O\201MP\202\201N\201OJ\210J\242J\243\211\242\243\211\242\243\203EW\203E\311[\"\266\206\202_\203\\V\203\\\311\"\266\206\202_\266\206 &\201P\350\201Q\f!\n\350]\245Z!\205\205\fV\201R`\201S\"\201T\201U\201V!\201W\201V\201X !\201Y\201Z\201[\201\\$\203\304[\202\305\320\211\201]!\\\262\201^!\201_\203\342\201`\202\345\201a\201@\203\362@\202\364\"\201b&\203\201c\202\201d\201e\201c&\210B\211\262\266\212)\266\2120\210\202y\211\237\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name org-deadline-time-hour-regexp org-deadline-time-regexp 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 make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] org-at-planning-p throw org-agenda-skip match-string 1 #[0 "\301\300\302\"\207" [V0 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 date org-done-keywords org-agenda-prefer-last-repeat org-agenda-show-future-repeats org-agenda-skip-deadline-prewarning-if-scheduled org-deadline-warning-days org-deadline-past-days org-agenda-skip-deadline-if-done org-agenda-show-inherited-tags org-agenda-use-tag-inheritance org-agenda-deadline-leaders string-match " \\([012]?[0-9]:[0-9][0-9]\\)" " " time 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 warntime level ts-date priority org-get-priority todo-state type "upcoming-deadline" "deadline" face org-agenda-done undone-face done-face] 54 (#$ . 219976)]) #@126 Return the face to displaying a deadline item. FRACTION is what fraction of the head-warning time has passed. (fn FRACTION) (defalias 'org-agenda-deadline-face #[257 "\301\302#\207" [org-agenda-deadline-faces assoc-default <=] 5 (#$ . 224166)]) #@275 Return the scheduled information for agenda display. Optional argument DEADLINES is a list of deadline items to be displayed in agenda view. When WITH-HOUR is non-nil, only return scheduled items with an hour specification like [h]h:mm. (fn &optional DEADLINES WITH-HOUR) (defalias 'org-agenda-get-scheduled #[512 "\300\301 \302\n\306\307\310\311\312\313\314\315 !\"\257\f\203\f\202 \316 \317@!@\211\3208\262\321\322U\2039\323\324!\266\203\202w\322V\203\257S\262\325\211\211@\262\211A@\262\3208\262\326S_\\\320V\203\232\211\327\330_\\\331\245Z\262\211\322W\203{\332!S\262\211\330\246\322U\205\221\211\333\246\322U?\206\221\211\334\246\322U\262\203\232\211T\262\266\204\335_\330\245\333\245[\334\245%\266\203\202w\332T!\262\336\211\211@\262\211A@\262\3208\262\326S_\\\320V\203\f\211\327\330_\\\331\245Z\262\211\322W\203\355\332!S\262\211\330\246\322U\205\211\333\246\322U?\206\211\334\246\322U\262\203\f\211T\262\266\204\335_\330\245\333\245[\334\245\337\211\211@\262\211A@\262\3208\262\326S_\\\320V\203q\211\327\330_\\\331\245Z\262\211\322W\203R\332!S\262\211\330\246\322U\205h\211\333\246\322U?\206h\211\334\246\322U\262\203q\211T\262\266\204&\266\203\340\341\"\321eb\210\342\321\343#\203 \3442\345 \346\347\"\216\350 )\262\204\241\351\344\321\"\210\352 \210\353\354!\354\224S\345 \346\355\"\216\356 )\262\211A\235\357\360\"\211\203\312\361 \"\202\347B\343=\204\330B\235\203\344\361 \362p%\202\347\361!\203\357\211\202 X\203\373\211\202C\204\211\202C\363=\203\nT\202\361\364p\n%\262 Z\365`\366\"WV\367\370!\2056\370 D\205?\371\321\372\"\211\204G\321\202gD\250\203SD[\202gD\373=\203f\361!ZE^\202g\322\262\374 \321\343F\375#)\266\203\203\211\361!V\203\211\322\202\237\211\203\232\211E\376 \343\211#)\202\237\376 \343\"\203\265\203\265\377\201G!\203\265G\204\370\211\322V\203\302W\204\363\203\315H\206\317IV\204\363V\204\363 U\204\370U\204\370U\204\370\351\344\321\"\210\n\203J\204\nU\204\351\344\321\"\210\201Q\322!>\203P\204PK\201R\267\202G\201S\201T`!! X\205;V\262\202H\202H\202K\321\203P\351\344\321\"\210\203}\n\204x\377\201L!\203xL\203x\204}\377\201M!\203}M\203}\351\344\321\"\210\212\201U\201V\321\343#\210\322\225b\210\201W N\201X=\206\274N<\203\250\201YN>\206\274N\343=\205\274O\343=\206\274\201YO>\201Z\321?\"\201[\201\\\201] !\201^\"`\201_ {\204\361U\204\361 U\204\361\321\202 \375\201`\"\203\354\224\321O\201aP\202 \201b\201cP\210P\242P\243\211\242\243\203/\203/\313\"\266\204\2022\266\204 \321& \204O \203O\201d\202k \203]\n\203]\307\202k\203h\201e\202k\201f\n\205t\201g \201h\201i\201j\203\212\307\202\214\201k\201l!\201m\201l\201Q !\201n\203\256\201o\202\261\201p\201@\203\276\202\300@\201q!\201r \201s\201t\203\340\201u!\202\355\201v&\\\201w!\\\201x\201y.&\210B\211\262\266\211)\266\2160\210\202\200\211\237\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name org-scheduled-time-hour-regexp org-scheduled-time-regexp 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 #[257 "\300\301\302#\211\205\f\303!\207" [get-text-property 0 org-hd-marker marker-position] 5 "\n\n(fn D)"] re-search-forward t :skip match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] org-at-planning-p throw org-agenda-skip match-string 1 #[0 "\301\300\302\"\207" [V0 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 date org-done-keywords org-agenda-prefer-last-repeat org-agenda-show-future-repeats org-agenda-skip-scheduled-delay-if-deadline org-scheduled-delay-days inhibit-changing-match-data org-habit-show-all-today org-habit-scheduled-past-days 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 org-agenda-show-inherited-tags org-agenda-use-tag-inheritance org-agenda-scheduled-leaders line-beginning-position #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (repeated-after-deadline 807 not-today 832 t 836)) time-to-days org-get-deadline-time re-search-backward "^\\*+[ ]+" org-get-category always agenda org-get-tags make-string org-reduced-level org-outline-level 32 line-end-position " \\([012]?[0-9]:[0-9][0-9]\\)" " " time org-agenda-format-item org-scheduled-previously org-scheduled-today org-scheduled org-habit-parse-todo org-add-props undone-face face org-marker org-agenda-new-marker org-hd-marker type "past-scheduled" "scheduled" ts-date warntime level priority org-habit-get-priority 99 org-get-priority org-habit-p todo-state] 59 (#$ . 224421)]) #@55 Return the date-range information for agenda display. (defalias 'org-agenda-get-blocks #[0 "\306\307\300\301 \302\n\310\311\312\313\314\315 !\"\257\f\f \211\3168\262\307\317U\203*\320\321!\266\203\202h\317V\203\240S\262\322\211\211@\262\211A@\262\3168\262\323S_\\\316V\203\213\211\324\325_\\\326\245Z\262\211\317W\203l\327!S\262\211\325\246\317U\205\202\211\330\246\317U?\206\202\211\331\246\317U\262\203\213\211T\262\266\204\332_\325\245\330\245[\331\245%\266\203\202h\327T!\262\333\211\211@\262\211A@\262\3168\262\323S_\\\316V\203\375\211\324\325_\\\326\245Z\262\211\317W\203\336\327!S\262\211\325\246\317U\205\364\211\330\246\317U?\206\364\211\331\246\317U\262\203\375\211T\262\266\204\332_\325\245\330\245[\331\245\334\211\211@\262\211A@\262\3168\262\323S_\\\316V\203b\211\324\325_\\\326\245Z\262\211\317W\203C\327!S\262\211\325\246\317U\205Y\211\330\246\317U?\206Y\211\331\246\317U\262\203b\211T\262\266\204&\266\203\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211eb\210\335\307\336#\203{\3372w\340 \210`\262\341\342!\341\316!\341\342!\262\f\341\316!\262 \343\3441\253\345 !0\202\271\346\347\np\350!%\262!\262\343\3511\311\345\f!0\202\327\346\347\np\350!%\262!\262 Z\352V\203r\fZ\352V\203r\212\353 \262@\235\262\203A\203\354\337\336\"\210\355`!\262\356 \262\n\357B\307\336#\204\"\354\337\307\"\210\202;\317\224b\210\355`!\262C\360=\206QC<\203?\361C>\206QC\336=\205QD\336=\206Q\361D>\262\362\307?\"\262\363\364\365 !\366\"\262 \367\370!\210\341\342!\262E\205~\371\372 !\373\372!\374\260\375\313U\203\214\317\202\215\342F8ZTZT#\f\f\376 \377\201H\"\216\201IG\"\205\300\341\201J\"\201IG\"\205\322\341\201J\"\230\203\352\371\f\201K \201L\260\266\202\2021U\203\fU\203\f\371\f\201K \201L\260\266\202\2021U\203 \371\f\201LQ\266\202\2021U\205/\371 \201LQ\266\202)\262&\262\210\201M\201N\201O\201P\201Q\305 \201R\201S\201T\201U!&\210B\262)\266b0\210\202{ \237\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name org-tr-regexp date 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 make-string org-reduced-level org-outline-level 32 looking-at "\\*+[ ]+\\(.*\\)" "<" regexp-quote ".*?>--<" ".*?>" org-agenda-format-item match-data make-closure 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 org-agenda-timerange-leaders org-ts-regexp1 #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match 6 ">--<" ">" org-add-props org-marker org-hd-marker type "block" level todo-state priority org-get-priority] 39 (#$ . 229764)]) #@111 A flag, set by `org-compile-prefix-format'. The flag is set if the currently compiled format contains a `%t'. (defvar org-prefix-has-time nil (#$ . 233098)) #@111 A flag, set by `org-compile-prefix-format'. The flag is set if the currently compiled format contains a `%T'. (defvar org-prefix-has-tag nil (#$ . 233262)) #@111 A flag, set by `org-compile-prefix-format'. The flag is set if the currently compiled format contains a `%e'. (defvar org-prefix-has-effort nil (#$ . 233425)) #@111 A flag, set by `org-compile-prefix-format'. The flag is set if the currently compiled format contains a `%b'. (defvar org-prefix-has-breadcrumbs nil (#$ . 233591)) #@75 Used by `org-compile-prefix-format' to remember the category field width. (defvar org-prefix-category-length nil (#$ . 233761)) #@75 Used by `org-compile-prefix-format' to remember the category field width. (defvar org-prefix-category-max-length nil (#$ . 233895)) #@92 Return an image for CATEGORY according to `org-agenda-category-icon-alist'. (fn CATEGORY) (defalias 'org-agenda-get-category-icon #[257 "\3022@\211\205=\211@\211@\303\304\305#)\266\203\2036\211A@<\203-\306\302A@\"\210\2026\306\302\307\310A\"\"\210A\266\202\202\2620\207" [org-agenda-category-icon-alist inhibit-changing-match-data --cl-block-nil-- nil t string-match throw apply create-image] 10 (#$ . 234033)]) #@819 Format TXT to be inserted into the agenda buffer. In particular, add the prefix and corresponding text properties. EXTRA must be a string to replace the `%s' specifier in the prefix format. WITH-LEVEL may be a string to replace the `%l' specifier. WITH-CATEGORY (a string, a symbol or nil) may be used to overrule the default category taken from local variable or file name. It will replace the `%c' specifier in the format. DOTIME, when non-nil, indicates that a time-of-day should be extracted from TXT for sorting of this entry, and for the `%t' specifier in the format. When DOTIME is a string, this string is searched for a time before TXT is. TAGS can be the tags of the headline. Any match of REMOVE-RE will be removed from TXT. (fn EXTRA TXT &optional WITH-LEVEL WITH-CATEGORY TAGS DOTIME REMOVE-RE HABITP) (defalias 'org-agenda-format-item #[2050 "@A@\306\211\211:\203)@\262\211A\262\242\262\211@\262L\210A\262\202 \266\307 \310\311\"\216 \306\312\203>\313\202?\314\315\312\316\315##\266\202\262\n\317\n \n$\262\n\206g \203f\320\321 !!\202g\315\322\f!\211\203x\323\324\325 #\202y\315 \315\230?\205\210\326\327\330\f#\203\231GS8\202\232\315@\331A8\204\251 \206\252\315B\306C\205\310;\203\277\202\300\315D\205\307 P\205\320\332!\306\211\211\211\211\211\211\211\211\211E\333\334!\203\353 \203\353\335\336 \"\210\203\344 \203\344\337F\f\"\211\262\n\204 \337G\f\"\211\262 \203\216\340\341\f\"\262\205\342\225\262\340\203'\327\202(\331\f\"\262\340\2037\343\202@\203?\344\202@\345\f\"\262H\203\216I\203\216\204Y\203\216\337\346!\347P\"\203\216\350\341\225\306O!\351=\204\216I\352=\203\201\341\224\341U\202\202\353\203\216\354\315\306\211$\262\203\231\332\353\"\262\203\243\332\353\"\262\203\276\204\276J\203\276\355\356\353\"J\\\306\353#\262\203\314\356!\356!Z\262\203\332\357\360\332\361\"\"\262\203\344\332\361\"\262\337K\"\203\"L\353=\204\376L\203\nM\203\n\354\315\353\211$\262\202\"\354\362\363GZ\327]\364\"\340\327\"P\353\211$\262\203<\337\"\203<\354\315\353\211$\262\202'\365\341G\366$\210N\203\211\367\326\370 \"\262\212\371!\203_\372!q\210\212\214~\210\211\206h`b\210\373\374 \375 S\306O$\211\315=\203~\315\202\202\211OP\262+\262E\203\240\376!\377\376!P\205\234\324R\202\273\203\272\376!P\203\264\f\324P\202\266\fP\202\273\315C\f9\203\312\201W\f!\202\313\f\206\322\315Q\337R\f\"\203\201X\340\331!\206\350\340\327!!\262S\206\362\341W\203&\201Y\f!\201Z\f\306\201[\362SZS\364\"$\210\202&T\203&\fGTY\203&\f\341TSO\201\\\353\"P\262\201]\341G\201^$\210\201Z\306\201_\f\201`\201UU\201VV\201a\201b\201EE\201c'\201QQ\201CC\201BB\357\201d-&.\266\214)\207" [org-prefix-format-compiled org-agenda-show-inherited-tags org-agenda-hide-tags-regexp buffer-file-name category category-icon nil match-data make-closure #[0 "\301\300\302\"\207" [V0 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 org-duration-from-minutes org-duration-to-minutes format "%5s" overtime make-string 50 32 add-text-properties (org-heading t) org-marker point-at-bol markerp marker-buffer org-format-outline-path org-get-outline-path frame-width org-agenda-time-of-day-to-ampm-maybe "-" tag org-agenda-time-grid extra time org-agenda-search-headline-for-time 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-tag-group-re org-agenda-remove-tags org-prefix-has-tag org-prefix-has-breadcrumbs org-agenda-breadcrumbs-separator org-agenda-timegrid-use-ampm level org-link-bracket-re org-prefix-category-length org-prefix-category-max-length org-priority-highest org-priority-lowest symbol-name string-width copy-sequence org-add-props extra-space eval remove-text-properties (line-prefix t wrap-prefix t) org-category tags time-of-day duration txt dotime] 53 (#$ . 234470)]) #@213 Remove tags string from TXT, and add a modified list of tags. The modified list may contain inherited tags, and tags matched by `org-agenda-hide-tags-regexp' will be removed. (fn TXT TAGS ADD-INHERITED HIDE-RE) (defalias 'org-agenda-fix-displayed-tags #[1028 "\204\211\203P\301\"\203\302\211\224O\262\303\304\305\306\307#\"\"\262\203P\310\302\311@#C\304C\312\313\306\314#\315#\242\203J\316\202K\315R\262\266\207" [org-tag-group-re string-match 0 delq nil mapcar make-closure #[257 "\301\203 \302\301\"\206\300?\205\303\304\305#?\205\211\207" [V0 V1 string-match get-text-property 0 inherited] 5 "\n\n(fn TG)"] get-text-property inherited " :" mapconcat #[257 "\301\302\303\304#\240\210\300\242\203\301\242\204\300\305\240\210\306P\207\207" [V0 V1 get-text-property 0 inherited nil ":"] 6 "\n\n(fn X)"] ":" "::"] 13 (#$ . 238954)]) #@239 Add a time-grid for agenda items which need it. LIST is the list of agenda items formatted by `org-agenda-list'. NDAYS is the span of the current agenda view. TODAYP is t when the current agenda view is on today. (fn LIST NDAYS TODAYP) (defalias 'org-agenda-add-time-grid-maybe #[771 "\3052\337\204\306\305\"\210\2024\211\203\307 @>\2044\310U\203(\311 @>\2044\312 @>\2044\306\305\"\210\313\314\315\316\"\"\317 8 A@ @\320>\314\211\321>\203Z\204Z\306\305 \"\210\211A\262\242\211\262\203\243\203q\211\235\204Z\322\323\324\325\326\"#\262\327\314\314\330\314\331\332O\333\332\314OQ&B\262\334\335@G\336\337@%\210\202Z\203\307\n\203\307\327\314 \314\330\314\340\341!&B\262\334\335@G\336\342@%\210\343\f>\203\327\344 \"\266\207\202\336\344\n\"\266\2070\207" [org-agenda-use-time-grid org-agenda-time-grid org-agenda-show-current-time-in-grid org-agenda-current-time-string org-agenda-sorting-strategy-selected exit throw today 1 daily weekly delq nil mapcar #[257 "\300\301\302#\207" [get-text-property 1 time-of-day] 5 "\n\n(fn X)"] 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] 21 (#$ . 239841)]) #@198 Compile the prefix format into a Lisp form that can be evaluated. The resulting form and associated variable bindings is returned and stored in the variable `org-prefix-format-compiled'. (fn KEY) (defalias 'org-compile-prefix-format #[257 "\306\211\306\211\306 ;\203 \202!\211 \236\203 \211 \236A\202!\307\310\306\211\211\211\211\211\311\312  #\203-\313\314\315\n\"\316\"A\206?\317\262\314\320 \"\206J\321\262\322\224\262\310\224T\262\323\267\202l\324\202l\324\202l\324\202l\324\325\314\326\n\"\327Q\262\330=\203\253\331\332\333\314\326\f\"!!!\314\326 \"\334 \335\336\"\216\311\337\"\205\244\333\314\310\"\322\306O!)\262\262.\317=\203\303\340\341\342 \315\224\306O!DE\262\202\367\211\203\335\343\344\345BB\321\340\346  EEF\262\202\367\340\343\344\347BB\321\346  \350\310\351FFFE\262\317=\203\310\224\315\224\340\352\342\f\315\224\306O!\"G\\\353\n\354$\262\n\266\202%\355\354\324\306 $\262B\262\202(\237\262r/\2068pq\210\300D\301 D\302\nD\303 D\304\fD\257\340 BBD\2110)\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 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (time 91 tag 96 effort 101 breadcrumbs 106)) t "%" 2 "s" category floor abs string-to-number match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "\\.[0-9]+" format org-eval read if member ('(#1# nil)) concat ('(#1# nil)) get-text-property 'extra-space "%S" cl--set-substring "%s" replace-match org-prefix-category-max-length org-agenda-buffer org-prefix-format-compiled] 22 (#$ . 241177)]) #@12 (fn KEY) (defalias 'org-set-sorting-strategy #[257 "@9\203\n\202\211\236A\206\302\236A\206\303\211\207" [org-agenda-sorting-strategy org-agenda-sorting-strategy-selected agenda (time-up category-keep priority-down)] 3 (#$ . 243174)]) #@350 Check string S for a time of day. If found, return it as a military time number between 0 and 2400. If not found, return nil. The optional STRING argument forces conversion into a 5 character wide string HH:MM. When it is `overtime', any time above 24:00 is turned into "+H:MM" where H:MM is the duration above midnight. (fn S &optional STRING) (defalias 'org-get-time-of-day #[513 "\302\303 \304\305\"\216\306\307\"\205\303\310\311\312#\313=?\205\303\314\225\205%\315\314\"\227\211\316\232\317\315\311\"!\2047\211\202T\211\320=\203I\203E\321\202T\320\202T\211\203R\321\202S\320\\\262\266\202\322\225\203g\317\315\322\"!\202h\321\323\267\202\256\211\324_\\\266\202\202\303\325V\204\212\325U\203\226\211\321V\203\226\326\327\325Z#\266\202\202\303 \203\244\326\330#\266\202\202\303\326\331#\266\202\202\303 \203\274\326\330#\266\202\202\303\326\331#\266\202)\262)\207" [case-fold-search org-agenda-time-leading-zero t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\<\\([0-2]?[[:digit:]]\\)\\(?::\\([0-5][[:digit:]]\\)\\(\\(?:[ap]m\\)\\)?\\|\\(?3:\\(?:[ap]m\\)\\)\\)\\>" get-text-property 1 face org-link 3 match-string "am" string-to-number 12 0 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 110 overtime 120)) 100 24 format "+%d:%02d" "%02d:%02d" "%d:%02d"] 9 (#$ . 243429)]) #@886 Function to be applied to agenda items prior to sorting. Prior to sorting also means just before they are inserted into the agenda. To aid sorting, you may revisit the original entries and add more text properties which will later be used by the sorting functions. The function should take a string argument, an agenda line. It has access to the text properties in that line, which contain among other things, the property `org-hd-marker' that points to the entry where the line comes from. Note that not all lines going into the agenda have this property, only most. The function should return the modified string. It is probably best to ONLY change text properties. You can also use this function as a filter, by returning nil for lines you don't want to have in the agenda at all. For this application, you could bind the variable in the options section of a custom command. (defvar org-agenda-before-sorting-filter-function nil (#$ . 244864)) #@131 Sort, limit and concatenate the LIST of agenda items. The optional argument TYPE tells the agenda type. (fn LIST &optional TYPE) (defalias 'org-agenda-finalize-entries #[513 "<\203 \306\"A\202 <\203\306 \"A\202 \n<\203)\306\n\"A\202*\n <\2037\306 \"A\2028 \f\203F\307\310\311\f \"\"\262\311\312\"\262\311\313\314\315\"\"\262\203e\316\317\320$\262\203q\316\321#\262\203}\316\322#\262\211\203\211\316\323#\262 \203\231\203\231\311\324\"\262\325\313\326#\207" [org-agenda-max-effort org-agenda-max-todos org-agenda-max-tags org-agenda-max-entries org-agenda-before-sorting-filter-function org-agenda-dim-blocked-tasks assoc delq nil mapcar org-agenda-highlight-todo identity sort org-entries-lessp org-agenda-limit-entries effort-minutes #[257 "\211\206 \203\n\301\207\302\207" [org-agenda-sort-noeffort-is-high 32767 -1] 2 "\n\n(fn E)"] todo-state tags org-hd-marker org-agenda--mark-blocked-entry mapconcat "\n" org-blocker-hook] 11 (#$ . 245825)]) #@72 Limit the number of agenda entries. (fn LIST PROP LIMIT &optional FN) (defalias 'org-agenda-limit-entries #[1027 "\205\300W\203(\206\301\300C\302\303\304\305\306\n\n   &\n\"\"\207\207" [0 #[257 "\211\205\300\207" [1] 2 "\n\n(fn P)"] delq nil mapcar make-closure #[257 "\303\305GS\300#!\211\203\304\211\242\\\240\210\211\203#\304\242\306\301!X\203#\207\302\205-\211?\205-\207" [V0 V1 V2 V3 V4 get-text-property abs] 6 "\n\n(fn E)"]] 17 (#$ . 246843)]) #@74 In agenda, interactively limit entries to various maximums. (fn REMOVE) (defalias 'org-agenda-limit-interactively #[257 "\211\203\304\211\304\211\305 \210\202{\306\307!\211\310U\203\311\202@\211\312U\203)\313\202@\211\314U\2033\315\202@\211\316U\203=\317\202@\320\321!\322\323!!\324\267\266\202{\211\305 \210)\266\202{\211\305 \210)\266\202{\211\305 \210)\266\202{\211\305 \210)\266\202{\266\325 \207" [org-agenda-max-entries org-agenda-max-todos org-agenda-max-tags org-agenda-max-effort 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 eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (101 77 116 88 84 99 69 110)) org-agenda-fit-window-to-buffer] 7 (#$ . 247331) "P"]) #@10 (fn X) (defalias 'org-agenda-highlight-todo #[257 "\304\211\305=\203Z\212\306\307!\210\310\311\312 \"\262\262\313\312 \314 \315\316$\206(`b\210\317\320\321Q!\205V\322\323\224\307\225\324\325\307!D#\210\307\224\307\225{\307\224\323\225S|\210\307\224b\210\326 \"c\262)\202\316\313\323G\315\316%\311\323\310#\262\203\314\211\203\314\327\330\331Q#\232\203\314\322\307\225\206\211\323\225\323\225\324\325\332\333 \"!D$\210\307\225\203\314\323\307\225O \334\230?\205\261\326 \332\333 \"\" \334\230?\205\303\335\336\337\340\323 \"\341\"\"\342\225\304OR\262\210*\207" [org-done-keywords-for-agenda case-fold-search org-done-keywords org-agenda-todo-keyword-format 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] 13 (#$ . 248281)]) #@83 Compare the numeric value of text PROPERTY for string A and B. (fn A B PROPERTY) (defalias 'org-cmp-values #[771 "\300GS#\206 \301\300GS#\206\301V\203\302\207W\205%\303\207" [get-text-property 0 1 -1] 8 (#$ . 249336)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-values speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@56 Compare the effort values of string A and B. (fn A B) (defalias 'org-cmp-effort #[514 "\203\301\202 \302\303\304\305\303\304\306##\206\211\303\304\305\303\304\306##\206%V\203-\307\207W\2054\302\207" [org-agenda-sort-noeffort-is-high 32767 -1 get-text-property 0 effort-minutes txt 1] 11 (#$ . 249718)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-effort speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@71 Compare the string values of categories of strings A and B. (fn A B) (defalias 'org-cmp-category #[514 "\300GS\301#\206 \302\300GS\301#\206\302\231\203\303\207\211\231\205%\304\207" [get-text-property org-category "" -1 1] 7 (#$ . 250186)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-category speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@55 Compare the todo states of strings A and B. (fn A B) (defalias 'org-cmp-todo-state #[514 "\302\303\304#\206 \302\303\305#\302\303\304#\206\302\303\305#\205!\306!\205(\306!\2035rq\210)\206?\211\205?r\211q\210)\302\303\307 #\206I\310\302\303\307 #\206S\310\235G[\235G[ \235 \235\203m\211\204m\311\207\204w\211\203w\303\207W\203\311\207W\205\206\303\207" [org-todo-keywords-1 org-done-keywords-for-agenda get-text-property 1 org-marker org-hd-marker marker-buffer todo-state "" -1] 15 (#$ . 250589)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-todo-state speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@50 Compare the headlines, alphabetically. (fn A B) (defalias 'org-cmp-alpha #[514 "\301\302G\303\304%\301\302G\303\304%\205\305O\205\"\305O\305\203F\306\307\310\302\311\n#\2064\312\313Q\"\203B\302\225\305O\262\227\262\203h\306\307\310\302\311 #\206V\312\313Q\"\203d\211\302\225\305O\262\211\227\262\204t\211\204t\305\202\225\204|\314\202\225\211\204\204\315\202\225\231\203\216\315\202\225\211\231\205\225\314)\207" [case-fold-search text-property-any 0 org-heading t nil string-match "\\`[ ]*" get-text-property org-todo-regexp "" "\\([ ]*\\[[a-zA-Z0-9]\\]\\)? *" 1 -1] 12 (#$ . 251281)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-alpha speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@67 Compare the string values of the first tags of A and B. (fn A B) (defalias 'org-cmp-tag #[514 "\300\301\302\303#!@\300\301\302\303#!@\204\211\204\304\207\204 \302\207\211\204&\305\207\231\203.\305\207\211\231\2055\302\207" [last get-text-property 1 tags nil -1] 8 (#$ . 252065)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-tag speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@62 Compare the time-of-day values of strings A and B. (fn A B) (defalias 'org-cmp-time #[514 "\203\301\202 \302\303\304\305#\206\211\303\304\305#\206W\203#\302\207\211W\205*\304\207" [org-agenda-sort-notime-is-late 9901 -1 get-text-property 1 time-of-day] 8 (#$ . 252504)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-time speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@256 Compare the timestamps values of entries A and B. When TYPE is "scheduled", "deadline", "timestamp" or "timestamp_ia", compare within each of these type. When TYPE is the empty string, compare all timestamps without respect of their type. (fn A B TYPE) (defalias 'org-cmp-ts #[771 "\203\301\202 \302\303\304\305\306#\206\307\"\203\"\304\305\310#\206#\211\303\304\305\306#\206/\307\"\203<\304\305\310#\206=\203K\211\203QW\202L\211\203Q\302\207\211\203_\205d\211W\202`\205d\305\207" [org-agenda-sort-notime-is-late 99999999 -1 string-match get-text-property 1 type "" ts-date] 11 (#$ . 252937)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-ts speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@55 Compare the todo states of strings A and B. (fn A B) (defalias 'org-cmp-habit-p #[514 "\300\301\302#\300\301\302#\203\211\204\303\207?\205\211\205\301\207" [get-text-property 1 org-habit-p -1] 7 (#$ . 253711)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-cmp-habit-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@49 Predicate for sorting agenda entries. (fn A B) (defalias 'org-entries-lessp #[514 "\302\303>\206 >\266\203\205\306 \203\307\202\310\311\312\313\314#\206*\306\"\2037\312\313\315#\2068\211\311\312\313\314#\206D\306\"\203Q\312\313\315#\206R\203`\211\203jW\202a\211\203j\266\310\202\211\203x\205}\211W\202y\205}\313\266\206\211\205\206\n[\304\305>\206\223>\266\203\205\316 \203\243\307\202\244\310\311\312\313\314#\206\260\306\"\203\275\312\313\315#\206\276\211\311\312\313\314#\206\312\306\"\203\327\312\313\315#\206\330\203\346\211\203\360W\202\347\211\203\360\266\310\202\211\203\376\205\211W\202\377\205\313\266\206\211\205\f\f[\317\320>\206>\266\203\205\213\321 \203)\307\202*\310\311\312\313\314#\2066\306\"\203C\312\313\315#\206D\211\311\312\313\314#\206P\306\"\203]\312\313\315#\206^\203l\211\203vW\202m\211\203v\266\310\202\213\211\203\204\205\211\211W\202\205\205\211\313\266\206\211\205\224[\322\323>\206\242>\266\203\205\324 \203\262\307\202\263\310\311\312\313\314#\206\277\306\"\203\314\312\313\315#\206\315\211\311\312\313\314#\206\331\306\"\203\346\312\313\315#\206\347\203\365\211\203\377W\202\366\211\203\377\266\310\202\211\203 \205\211W\202\205\313\266\206\211\205[\325\326>\206+>\266\203\205\235\327 \203;\307\202<\310\311\312\313\314#\206H\306\"\203U\312\313\315#\206V\211\311\312\313\314#\206b\306\"\203o\312\313\315#\206p\203~\211\203\210W\202\211\203\210\266\310\202\235\211\203\226\205\233\211W\202\227\205\233\313\266\206\211\205\246[\330\331>\206\264>\266\203\205\353 \203\303\332\202\304\310\312\313\333#\206\315\211\312\313\333#\206\326W\203\342\266\310\202\353\211W\205\351\313\266\205\211\205\364[\334\335>\206>\266\203\2055\336\312GS#\206\337\312GS#\206 \337V\203,\266\313\2025W\2053\310\266\205\211\205>[\340\341>\206L>\266\203\205\342\312GS#\206_\337\312GS#\206j\337V\203v\266\313\202W\205}\310\266\205\211 \205\210 [!\343\344>\206\226>\266\203\205\330@\203\246\345\202\247\310\312\337\346\312\337\347##\206\265\211\312\337\346\312\337\347##\206\303V\203\317\266\313\202\330W\205\326\310\266\205\211#\205\341#[$\350\351>\206\357>\266\203\204\372\352>\205'\312GS\353#\206\306\312GS\353#\206\306\231\203\266\310\202'\211\231\205%\313\266\204\211(\2050([)(\2058\313*\354\355>\206F>\266\203\205\224\356\312\313\357#!@\356\312\313\357#!@\204k\211\204k\266\360\202\224\204u\266\313\202\224\211\204\266\310\202\224\231\203\213\266\310\202\224\211\231\205\222\313\266\204\211,\205\235,[-\361\362>\206\253>\266\203\205J\312\313\363#\206\277\312\313\364#\312\313\363#\206\314\312\313\364#\205\323\365!\205\332\365!\203\350rq\210A)\206\363\211\205\363r\211q\210A)\312\313\366 #\206\375\306\312\313\366 #\206\306\235G[\235G[B\235B\235\203'\211\204'\266 \310\202J\2045\211\2035\266 \313\202JW\203A\266 \310\202JW\205H\313\266\215\2111\205S1[2\367\370>\206a>\266\203\205\214\312\313\371#\312\313\371#\203\200\211\204\200\266\310\202\214?\205\212\211\205\212\313\266\204\2117\205\2257[8\372\373>\206\243>\266\203\205K\374\337G\375\376%\374\337G\375\376%\205\304\360O\205\314\360O\360C\203\365\311\377\312\337\201H\n#\206\341\306\201IQ\"\203\361\337\225\360O\262\227\262\203\311\377\312\337\201H #\206\306\201IQ\"\203\211\337\225\360O\262\211\227\262\204'\211\204'\360\202H\204/\313\202H\211\2047\310\202H\231\203A\310\202H\211\231\205H\313)\266\206\211:\205T:[;\201E\201F>\206f>\266\203D\360\211EFD\203\223G\203\223\201JG!\203\223G\"\211E\205\221E[F\201K\201L\201MB\376\"\201N\"A. \207" [org-agenda-sorting-strategy-selected org-agenda-sort-notime-is-late timestamp-up timestamp-down scheduled-up scheduled-down "" 99999999 -1 string-match get-text-property 1 type ts-date "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 nil 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 t "\\`[ ]*" org-agenda-sort-noeffort-is-high org-todo-keywords-1 org-done-keywords-for-agenda case-fold-search need-user-cmp user-defined-up user-defined-down org-agenda-cmp-user-defined org-todo-regexp "\\([ ]*\\[[a-zA-Z0-9]\\]\\)? *" functionp assoc eval or ((-1 . t) (1) (nil))] 19 (#$ . 254082)]) #@71 Overlay to mark the headline to which agenda commands are restricted. (defvar org-agenda-restriction-lock-overlay (byte-code "\300\301\211\"\207" [make-overlay 1] 3) (#$ . 259123)) (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) #@222 Set the restriction lock to the agenda item at point from within the agenda. When called with a `\[universal-argument]' prefix, restrict to the file which contains the item. Argument ARG is the prefix argument. (fn ARG) (defalias 'org-agenda-set-restriction-lock-from-agenda #[257 "\300\301!\204\n\302\303!\210\304\305\306 \"\262\206\307 \310!\311!rq\210\211b\210\312!)\207" [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] 6 (#$ . 259531) "P"]) #@334 Set restriction lock for agenda to current subtree or file. When in a restricted subtree, remove it. The restriction will span over the entire file if TYPE is `file', or if type is \='(4), or if the cursor is before the first headline in the file. Otherwise, only apply the restriction to the current subtree. (fn &optional TYPE) (defalias 'org-agenda-set-restriction-lock #[256 "\203 \306`!\235\203\307 !`\232\203\310\311!\210\202\265\310\311!\210\211\312\232\203(\313\262\211\2030\211\202P\314 \2039\315\202P\3161D\317\320!0\202H\210\202O\203O\315\202P\313\262\211\315=\203\226p\315\321\322\323\324\325 !C#\210\317\320!\210\326 ` \203|\212\327\320\211\"\210`)\202~\330 #\210\f`\331\223\210 \212\327\320\211\")\331\223\210\332\333!\210\202\262\321\322\323\324\325 !C#\210\331\313\f\331\211\223\210 \331\211\223\210\332\334!\210\331\335 \207" [org-agenda-overriding-restriction org-agenda-restriction-lock-overlay org-agenda-restrict org-agenda-restriction-lock-highlight-subtree org-agenda-restrict-begin org-agenda-restrict-end overlays-at overlay-start 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 current-prefix-arg] 7 (#$ . 260140) "P"]) #@58 Remove agenda restriction lock. (fn &optional NOUPDATE) (defalias 'org-agenda-remove-restriction-lock #[256 "\204\306\307!\207\310 !\210\310\n!\210\311\211\312\313\314\311#\210\f\311\211\223\210 \311\211\223\210\311\306\315!\210\211\2061\316 \207" [org-agenda-restrict org-agenda-restriction-lock-overlay org-speedbar-restriction-lock-overlay org-agenda-overriding-restriction org-agenda-restrict-begin org-agenda-restrict-end message "No agenda restriction to remove." delete-overlay nil put org-agenda-files org-restrict "Agenda restriction lock removed" org-agenda-maybe-redo current-prefix-arg] 6 (#$ . 261611) "P"]) #@60 If there is any window showing the agenda view, update it. (defalias 'org-agenda-maybe-redo #[0 "\303\206 \304\"\305 \205%\306!\210\307 \210\306!\210\n\203\"\310\311\n\"\207\310\312!\207" [org-agenda-this-buffer-name org-agenda-buffer-name 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"] 5 (#$ . 262247)]) #@196 Check if agenda buffer or component is of allowed type. If ERROR is non-nil, throw an error, otherwise just return nil. Allowed types are `agenda' `todo' `tags' `search'. (fn ERROR &rest TYPES) (defalias 'org-agenda-check-type #[385 "\204\301\302!\207>\203\303\207\203\301\304\"\207\305\207" [org-agenda-type error "No Org agenda currently displayed" t "Not allowed in '%s'-type agenda buffer or component" nil] 5 (#$ . 262707)]) #@131 Exit the agenda, killing the agenda buffer. Like `org-agenda-quit', but kill the buffer even when `org-agenda-sticky' is non-nil. (defalias 'org-agenda-Quit #[0 "\300 \207" [org-agenda--quit] 1 (#$ . 263156) nil]) #@274 Exit the agenda. When `org-agenda-sticky' is non-nil, bury the agenda buffer instead of killing it. When `org-agenda-restore-windows-after-quit' is non-nil, restore the pre-agenda window configuration. When column view is active, exit column view instead of the agenda. (defalias 'org-agenda-quit #[0 "\301!\207" [org-agenda-sticky org-agenda--quit] 2 (#$ . 263377) nil]) #@23 (fn &optional BURY) (defalias 'org-agenda--quit #[256 "\203\306 \207 p\n\307=\205 \205\310 !\f\311\267\2025\312 \210\202\\\313\314!\203.\314 \210\202\\\315\316!\210\202\\ \203F\203F\317\320!\210\202\\\211\203N\321!\210\f\322=\204\\\323 \204\\\321 \210\203hrq\210\324 )\207\325!\210\317\211\211\207" [org-agenda-columns-active org-agenda-pre-window-conf org-indirect-buffer-display org-agenda-last-indirect-buffer org-agenda-window-setup org-agenda-restore-windows-after-quit org-columns-quit other-window get-buffer-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (other-frame 28 other-tab 34)) delete-frame fboundp tab-bar-close-tab user-error "Your version of Emacs does not have tab bar mode support" nil set-window-configuration delete-window current-window one-window-p bury-buffer kill-buffer org-agenda-archives-mode org-agenda-buffer] 7 (#$ . 263759)]) #@254 Exit the agenda, killing Org buffers loaded by the agenda. Like `org-agenda-Quit', but kill any buffers that were created by the agenda. Org buffers visited directly by the user will not be touched. Also, exit the agenda even if it is in column view. (defalias 'org-agenda-exit #[0 "\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 (#$ . 264703) nil]) #@83 Kill all buffers in `org-agenda-mode'. This is used when toggling sticky agendas. (defalias 'org-agenda-kill-all-agenda-buffers #[0 "\301\302 \211\203 \211@r\211q\210)\303=\203\211B\262A\266\202\202\210\304\305\"\207" [major-mode nil buffer-list org-agenda-mode mapc kill-buffer] 5 (#$ . 265166) nil]) #@150 Execute another agenda command, keeping same window. So this is just a shortcut for \`\[org-agenda]', available in the agenda. (fn ARG) (defalias 'org-agenda-execute #[257 "\301\302!)\207" [org-agenda-window-setup current-window org-agenda] 3 (#$ . 265485) "P"]) #@80 Rebuild possibly ALL agenda view(s) in the current buffer. (fn &optional ALL) (defalias 'org-agenda-redo #[256 "\306\307!\203 `S\206\f`\310=?\205 \311 \206\f\310\n\312\313N2\f\314\313N \315\313N\316\313N\206=34\311\212\211\203J\211b\210n\203R\317\202S\320\321\317`\"\\)\262\211\322 \212\211\203f\211b\210n\203n\317\202o\320\321\317`\"\\)\262Z\323\324N\325\326\"\325\327\"\325\330\"5\310=?\205\254\211<\203\246\206\240\211@AB\202\254\211;\205\254\2116\325\331\"\332\312\313\311#\210\332\314\313\311#\210\332\315\313\311#\210\332\316\313\311#\210\203\323\333 \210\334\335!\210\211\203\343\336\310\"\210\202\337\340\"\337\341\"\342\343\"\311\203\f\211A\262\242\344\211A\262\242DDB\262\202\362\336\345\237\346\344DDE!\266\311\21178\n\f\f\n  2\334\347!\210\332\312\313#\210\332\314\313#\210\332\315\313\f#\210\332\316\313\n#\210\206[ \206b\f\n\206i  \206p\f\203z\350\351\310#\210\203\203\350\352\"\210\203\214\350\353\"\210\211\203\225\350\354\"\210\266 \203\241\355!\210\203\257\356\357!\203\257\360 \210\214~\210eb\210\211Sy)\266\356\357!\205\305\361!.\207" [current-prefix-arg org-agenda-sticky org-agenda-doing-sticky-redo org-agenda-this-buffer-name org-agenda-buffer-name org-agenda-keep-modes 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 mapcar car #[257 "\300A@\301\"\207" [eval t] 4 "\n\n(fn BINDING)"] make-closure #[0 "\301\300\302\"\207" [V0 eval t] 3] quote let funcall "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-top-headline-filter org-agenda-tag-filter-while-redo org-agenda-columns-active org-agenda-overriding-cmd org-agenda-overriding-cmd-arguments org-agenda-undo-list org-agenda-pending-undo-list] 30 (#$ . 265769) "P"]) #@129 Rebuild all agenda views in the current buffer. With a prefix argument, do so in all agenda buffers. (fn &optional EXHAUSTIVE) (defalias 'org-agenda-redo-all #[256 "\211\203#\300 \211\205\"\211@r\211q\210\301\302!\203\303\304!\210)A\266\202\202\207\303\304!\207" [buffer-list derived-mode-p org-agenda-mode org-agenda-redo t] 5 (#$ . 267997) "P"]) (defvar org-global-tags-completion-table nil) (defvar org-agenda-filter-form nil) (defvar org-agenda-filtered-by-category nil) #@41 Return the category of the agenda line. (defalias 'org-agenda-get-category #[0 "\300\301\302 \"\207" [org-category get-text-property point-at-bol] 4 (#$ . 268486)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-agenda-get-category speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@287 Filter lines in the agenda buffer that have a specific category. The category is that of the current line. With a `\[universal-argument]' prefix argument, exclude the lines of that category. When there is already a category filter in place, this command removes the filter. (fn STRIP) (defalias 'org-agenda-filter-by-category #[257 "\203 \203 \303 \207\304\305\306\"\307\211\203\310\311G\n$\210\202'\312\311G\307$\210\266\202\211\203=\203=\313\314P B\211\315\"\207\211\203K\313\316PC\211\315\"\207\317\320!\207" [org-agenda-filtered-by-category org-agenda-category-filter org-rm-props 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 (#$ . 268808) "P"]) #@145 Find the topmost parent headline and return it. POS when non-nil is the marker or buffer position to start the search from. (fn &optional POS) (defalias 'org-find-top-headline #[256 "\212r\300!\203\301!\202pq\210\211\203\211b\210\302 \204\3031-\304\305\306\307\310 8#0\202/\210\311*\207" [markerp marker-buffer org-up-heading-safe (error) replace-regexp-in-string "^\\[[0-9]+/[0-9]+\\] *\\|^\\[%[0-9]+\\] *" "" 4 org-heading-components nil] 6 (#$ . 269624)]) (defvar org-agenda-filtered-by-top-headline nil) #@195 Keep only those lines that are descendants from the same top headline. The top headline is that of the current line. With prefix arg STRIP, hide all lines of the category at point. (fn STRIP) (defalias 'org-agenda-filter-by-top-headline #[257 "\203 \302\211\303 \207\304\305\306\307 \"\262!\211\203\310\"\207\311\312!\207" [org-agenda-filtered-by-top-headline org-agenda-top-headline-filter 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"] 7 (#$ . 270152) "P"]) (defvar org-agenda-regexp-filter nil) #@487 Filter agenda entries by a regular expressions. You will be prompted for the regular expression, and the agenda view will only show entries that are matched by that expression. With one `\[universal-argument]' prefix argument, hide entries matching the regexp. When there is already a regexp filter active, this command removed the filter. However, with two `\[universal-argument]' prefix arguments, add a new condition to an already existing regexp filter. (fn STRIP-OR-ACCUMULATE) (defalias 'org-agenda-filter-by-regexp #[257 "\211\301\232\302\232\203\211\204\303 \210\304\305!\207\203\306\202\307\310\203'\311\202(\312!P\211B\313\314\"\207" [org-agenda-regexp-filter (4) (16) org-agenda-filter-show-all-re message "Regexp filter removed" "-" "+" read-from-minibuffer "Hide entries matching regexp: " "Narrow to entries matching regexp: " org-agenda-filter-apply regexp] 7 (#$ . 270808) "P"]) (defvar org-agenda-effort-filter nil) #@461 Filter agenda entries by effort. With no `\[universal-argument]' prefix argument, keep entries matching the effort condition. With one `\[universal-argument]' prefix argument, filter out entries matching the condition. With two `\[universal-argument]' prefix arguments, add a second condition to the existing filter. This last option is in practice not very useful, but it is available for consistency with the other filter commands. (fn STRIP-OR-ACCUMULATE) (defalias 'org-agenda-filter-by-effort #[257 "\303\304\305P \306#A\206 \307!\211\205\310\311\312\313G\"\"\314\232\315\232\n\316\211\317>\2040\320\321!\262\202\"\211\322=\203=\323 \210\324\325!\207\326\327\330\331\332\n\333#P$\334\211>\204`\324!\210\320 \335Z\262\202L\323 \210\336\203l\337\202m\340\341!\342S\343\" 8QC\205\200\"\344\n\345\"\207" [org-effort-property org-global-properties org-agenda-effort-filter split-string assoc-string "_ALL" t "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00" mapcar #[257 "\300\301\"\207" [mod 10] 4 "\n\n(fn N)"] number-sequence 1 (16) (4) nil (60 62 61 95) read-char-exclusive "Effort operator? (> = or <) or press `_' again to remove filter" 95 org-agenda-filter-show-all-effort message "Effort filter removed" apply format "Effort %c " mapconcat #[257 "\300P\207" ["[%d]"] 3 "\n\n(fn S)"] " " -1 48 append "-" "+" char-to-string mod 10 org-agenda-filter-apply effort] 15 (#$ . 271768) "P"]) #@1352 Prompt for a general filter string and apply it to the agenda. The string may contain filter elements like +category +tag + and = are also allowed as effort operators +/regexp/ Instead of `+', `-' is allowed to strip the agenda of matching entries. `+' is optional if it is not required to separate two string parts. Multiple filter elements can be concatenated without spaces, for example +work-John<0:10-/plot/ selects entries with category `work' and effort estimates below 10 minutes, and deselects entries with tag `John' or matching the regexp `plot'. During entry of the filter, completion for tags, categories and effort values is offered. Since the syntax for categories and tags is identical there should be no overlap between categories and tags. If there is, tags get priority. A single `\[universal-argument]' prefix arg STRIP-OR-ACCUMULATE will negate the entire filter, which can be useful in connection with the prompt history. A double `\[universal-argument] \[universal-argument]' prefix arg will add the new filter elements to the existing ones. A shortcut for this is to add an additional `+' at the beginning of the string, like `+-John'. With a triple prefix argument, execute the computed filtering defined in the variable `org-agenda-auto-exclude-function'. (fn &optional STRIP-OR-ACCUMULATE) (defalias 'org-agenda-filter #[256 "\211\305\232\2039\204\306\307!\207\310 \210\311\312 \211\203.\211@!\211\203&\211 B\210A\266\202\202\210 \2058\313 \314\315#\207\312 \316 \317\232\320\321\n\322#\320\321 \322#\323\324\322 @\206S\322#\323\324\322\f@\206]\322#\322\232?\205l\325\325QR\326\203w\327\202x\330\331P\332\311\211%\333\334\"\203\220\211\335\311O\262\336\202\224 \337\232\211\205\231\n\205\236 \205\243 \205\250\f\311\211\323\340\341\n#\262\333\342 \"\203u\335\224\203\307\343\335 \"\202\310\344\262 \203\334\344\232\203\331\345\202\332\344\262\346\224\2033\323\347\345\343\346\f\"#\262\211\235\203 P\211\235\204\350C\"\262\210\202j\211\235\203*\323\351\352#P\211\235\204&\350C\"\262\210\202j\353\354#\210\202j\355\224\203P\343\355\n\"P\211\235\204L\350C\"\262\210\202j\356\224\203j\343\357\n\"P\211\235\204i\350C\"\262\210\360\225\311O\262\202\262\361 \210\203\204\313\211\362\"\210\203\220\313\211\314\315#\210\203\233\313\211\363\"\210\203\246\313\211\364\"\210\365\366!\207" [org-agenda-auto-exclude-function org-agenda-tag-filter org-agenda-category-filter org-agenda-effort-filter org-agenda-regexp-filter (64) user-error "`org-agenda-auto-exclude-function' is undefined" org-agenda-filter-show-all-tag nil org-agenda-get-represented-tags org-agenda-filter-apply tag expand org-agenda-get-represented-categories (4) mapconcat identity "" replace-regexp-in-string "^\\+" "/" completing-read "Negative filter" "Filter" " [+cat-tag<0:10-/regexp/]: " org-agenda-filter-completion-function string-match "^\\+[+-]" 1 t (16) "\"\\([^\"]*\\)-\\([^\"]*\\)\"" "\"\\1~~~\\2\"" "^[ ]*\\([-+]\\)?\\(\\([^-+<>=/ ]+\\)\\|\\([<>=][0-9:]+\\)\\|\\(/\\([^/]+\\)/?\\)\\)" match-string "+" "-" 3 "~~~" append "\"\\(.*\\)\"" "\\1" message "`%s%s' filter ignored because tag/category is not represented" 4 5 6 0 org-agenda-filter-remove-all category effort regexp run-hooks org-agenda-filter-hook] 23 (#$ . 273208) "P"]) #@216 Complete a complex filter string. FLAG specifies the type of completion operation to perform. This function is passed as a collection function to `completing-read', which see. (fn STRING PREDICATE &optional FLAG) (defalias 'org-agenda-filter-completion-function #[770 "\303\304\305\211\306\307\310 \"\203$\311\312 \"\262\311\313 \"\262\311\314 \"\262\315\267\202I\316\317 \320 \"\262\202L\321\322 \323P\n\303#A\206B\324\325\"\262\202L\306\262\326\267\202|\327#\202}\330\"\202}\331#\211;\203vP\202w\211\262\202}\306)\207" [completion-ignore-case org-effort-property org-global-properties t #[257 "\211;\207" [] 2 "\n\n(fn X)"] #1="" nil string-match "^\\(.*\\([-+<>=]\\)\\)\\([^-+<>=]*\\)$" match-string 1 2 3 #s(hash-table size 7 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("+" 42 "-" 42 #1# 42 nil 42 "<" 53 ">" 53 "=" 53)) append org-agenda-get-represented-categories org-agenda-get-represented-tags split-string assoc-string "_ALL" "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00" " +" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 82 lambda 92 nil 100)) all-completions assoc try-completion] 13 (#$ . 276605)]) #@52 Remove all filters from the current agenda buffer. (defalias 'org-agenda-filter-remove-all #[0 "\203\305 \210 \203\306 \210\n\203\307 \210 \203\310 \210\f\203#\311 \210\312 \210\313\314!\205/\315\316!\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 called-interactively-p interactive message "All agenda filters removed"] 2 (#$ . 277835) nil]) #@751 Keep only those lines in the agenda buffer that have a specific tag. The tag is selected with its fast selection letter, as configured. With a `\[universal-argument]' prefix, apply the filter negatively, stripping all matches. With a `\[universal-argument] \[universal-argument]' prefix, add the new tag to the existing filter instead of replacing it. With a `\[universal-argument] \[universal-argument] \[universal-argument]' prefix, filter the literal tag, i.e. don't filter on all its group members. A Lisp caller can specify CHAR. EXCLUDE means that the new tag should be used to exclude the search - the interactive user can also press `-' or `+' to switch between filtering and excluding. (fn STRIP-OR-ACCUMULATE &optional CHAR EXCLUDE) (defalias 'org-agenda-filter-by-tag #[769 "\306C\307\310\311\"\312#\313\314\313\306\"\262\"\206\315\232\316\232\317\232?\320\n\306\211 \204u >\204u\321\322\203C\323\202D\324\203M\312\202N\325 \203X\326\202Y\312%\210\327 \262\f \330\267\2020\320\262\2020\306\262\2020\2020 \331=\203\224\332\304!\204\211\333\304!\210\304 \320\334\335\f\306\320$\262) \336\267\202\370\337 \210 \205>\306\340 \211\203\277\211@ !\211\203\267\211\nB\210A\266\202\202\246\210\n\205>\341\n\342#\202>\337 \210\302\343N\205>\341\n\342#\202>\344\345\346\347\350 \"\262\"\341\n\342#\202>\320\202> \351=\204\352\f \"\211\262\204\211\2039\211C\211\262\2039\337 \210@\262\203&\353\202'\354P\205.B\341\n\342#\202>\355\356 \")\207" [org-tag-alist-for-agenda inhibit-read-only org-agenda-tag-filter org-agenda-auto-exclude-function org-global-tags-completion-table completion-ignore-case nil mapconcat make-closure #[257 "\211@9\204 \211A\203 \211A\300\242\235\204 \300A\300\242B\240\210\301A!\207\302\207" [V0 char-to-string #1=""] 4 "\n\n(fn X)"] #1# append (9 13 92 46 32 113) (4) (16) (64) t org-unlogged-message "%s by tag%s: [%s ]tag-char [TAB]tag %s[\\]off [q]uit" "Exclude[+]" "Filter[-]" " (no grouptag expand)" "[RET] " read-char-exclusive #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (45 102 43 108)) 9 local-variable-p make-local-variable completing-read "Tag: " #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (13 155 92 205 46 223 113 244)) org-agenda-filter-show-all-tag org-agenda-get-represented-tags org-agenda-filter-apply tag :preset-filter mapcar #[257 "\300P\207" ["+"] 3 "\n\n(fn TAG)"] tags get-text-property point-at-bol 32 rassoc "-" "+" error "Invalid tag selection character %c"] 19 (#$ . 278469) "P"]) #@61 Return a list of all categories used in this agenda buffer. (defalias 'org-agenda-get-represented-categories #[0 "\206=\301\302!\205=e\303dW\203)\304\305\303d$\211\262\203)\306\305\"B\262\202\f\307\310\311\303\"\312!\313!\266\202\237\"\211\266\202\207" [org-agenda-represented-categories derived-mode-p org-agenda-mode nil next-single-property-change org-category get-text-property mapcar #[257 "\301\302\303\304#)\266\203\203\305\306\"\207\207" [inhibit-changing-match-data "-" nil t string-match format "\"%s\""] 8 "\n\n(fn S)"] delq copy-sequence delete-dups] 8 (#$ . 281102)]) #@96 Return a list of all tags used in this agenda buffer. These will be lower-case, for filtering. (defalias 'org-agenda-get-represented-tags #[0 "\206i\302\303!\205ie\304C\304dW\2034\305\306\304d$\211\262\2034\307\306\"\262\211\203\242B\240\210\202\310\304\311\312\242\"\"\313!\314!\266\202\237\240\210\242\211\203b\211@\315\316\317# \"\210A\266\202\202K\210\242\211\266\203\207" [org-agenda-represented-tags org-tag-groups-alist-for-agenda derived-mode-p org-agenda-mode nil next-single-property-change tags get-text-property delq apply append copy-sequence delete-dups mapc make-closure #[257 "\301\235\205 \300@\300\242B\240\207" [V0 V1] 4 "\n\n(fn GROUP)"]] 10 (#$ . 281713)]) #@226 Create the form that tests a line for agenda filter. Optional argument EXPAND can be used for the TYPE tag and will expand the tags in the FILTER if any of the tags in FILTER are grouptags. (fn FILTER TYPE &optional EXPAND) (defalias 'org-agenda-filter-make-matcher #[770 "\301=\205\302\303\304\305#\306\307\310#)\266\203\306\211\311\267\202\312\313\314\315N\"!\262\211\203Z\211@\316!\203C\317C\307\"\262\202GC\262\320\"\262B\262\210A\266\202\202+\210\202\312\313\321\315N\"!\262\211\203\234\211@\211\322\323O\324\232\203\207\325\326\323\306O\327ED\262\202\220\326\323\306O\327E\262B\262A\266\202\202j\210\202\312\313\330\315N\"!\262\211\203\336\211@\211\322\323O\324\232\203\311\325\310\323\306O\331ED\262\202\322\310\323\306O\331E\262B\262A\266\202\202\254\210\202\312\313\332\315N\"!\262\211\203\211@\333!B\262A\266\202\202\356\210\203 \334\202\f\335\237B\207" [inhibit-changing-match-data category "\\+.*\\+" mapconcat #[257 "\211\300\301O\207" [0 1] 4 "\n\n(fn CAT)"] "" nil t string-match #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tag 31 category 94 regexp 160 effort 226)) delete-dups append org-agenda-tag-filter :preset-filter string-to-char org-agenda-filter-expand-tags org-agenda-filter-make-matcher-tag-exp org-agenda-category-filter 0 1 "-" not equal cat org-agenda-regexp-filter txt org-agenda-effort-filter org-agenda-filter-effort-form or and] 13 (#$ . 282432)]) #@236 Return a form associated to tag-expression TAGS. Build a form testing a line for agenda filter for tag-expressions. OP is an operator of type CHAR that allows the function to set the right switches in the returned form. (fn TAGS OP) (defalias 'org-agenda-filter-make-matcher-tag-exp #[514 "\301\211\203^\211@\211\302\301O\211\303\230\203\304\202D\305\301\306\307#)\266\203\203@\310\301\306\307#)\266\203\203@\311\302\312O\304E\202D\313\304E\314=\203P\315D\202Q\211B\262\266A\266\202\202\314=\203h\316\202i\317B\207" [inhibit-changing-match-data nil 1 "" tags "\\`{" t string-match "}\\'" org-match-any-p -1 member 45 not and or] 13 (#$ . 283950)]) #@108 Return the form to compare the effort of the current line with what E says. E looks like "+<2:25". (fn E) (defalias 'org-agenda-filter-effort-form #[257 "\300\301\300O\262\302!\262\301\300O\262\211\303\267\202$\304\202%\305\202%\211\202%\306\262\307\310D\311!E\207" [nil 1 string-to-char #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (60 24 62 28 63 32)) <= >= = org-agenda-compare-effort quote org-duration-to-minutes] 6 (#$ . 284641)]) #@134 Compare the effort of the current line with VALUE, using OP. If the line does not have an effort defined, return nil. (fn OP VALUE) (defalias 'org-agenda-compare-effort #[514 "\301\302\303\304\301\305 \"\262#\206\203\306\202\307\"\207" [org-agenda-sort-noeffort-is-high get-text-property 0 effort-minutes txt point-at-bol 32767 -1] 9 (#$ . 285139)]) #@153 Expand group tags in FILTER for the agenda. When NO-OPERATOR is non-nil, do not add the + operator to returned tags. (fn FILTER &optional NO-OPERATOR) (defalias 'org-agenda-filter-expand-tags #[513 "\203\302\211C\303\304\305#\"\210\306\242!)\207\207" [org-group-tags case-fold-search nil mapc make-closure #[257 "\302\211C\303\304\"\203\211\305\306\"\240\210\305\307\"\262\202)\211\300\203#\310\202$\311\240\210\262\301\312\313\314\315\"\316\317\"\"\301\242\"\240\207" [V0 V1 nil string-match "^\\([+-]\\)\\(.+\\)" match-string 1 2 "" "+" append mapcar make-closure #[257 "\300\242P\207" [V0] 3 "\n\n(fn F1)"] org-tags-expand t] 10 "\n\n(fn F)"] reverse] 9 (#$ . 285509)]) #@223 Set FILTER as the new agenda filter and apply it. Optional argument EXPAND can be used for the TYPE tag and will expand the tags in the FILTER if any of the tags in FILTER are grouptags. (fn FILTER TYPE &optional EXPAND) (defalias 'org-agenda-filter-apply #[770 "\203\300 \210\306#\307=\205@\310\311O\312\232?\313 \210\212eb\210m\204o\314\315\316 \"\262\204=\317\315\316 \"\262\203h\303\315\316 \"\262\320\315\316 \"\262\305\315\316 \"\262\206[\321\322 \323\"\204g\324!\210+\325\326!\210\202#)\327`\330\"\205\201\3311\332 0\207\210\333\207" [org-agenda-entry-text-mode org-agenda-filter-form org-agenda-filtered-by-category tags cat txt org-agenda-filter-make-matcher category 0 1 "-" org-agenda-set-mode-name org-hd-marker get-text-property point-at-bol org-marker org-category "" eval t org-agenda-filter-hide-line beginning-of-line 2 get-char-property invisible (error) org-agenda-previous-line nil] 7 (#$ . 286215)]) #@56 Filter by top headline HL. (fn HL &optional NEGATIVE) (defalias 'org-agenda-filter-top-headline-apply #[513 "\302 \210\212eb\210m\204;\303\304\305 \"\262\211\205\306!\211\2032\203&\307\202'\310\230!\2032\311\312!\210\266\313\314!\210\202)\315`\316\"\203F\317 \210\320\211\207" [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] 7 (#$ . 287178)]) #@67 If current line is TYPE, hide it in the agenda buffer. (fn TYPE) (defalias 'org-agenda-filter-hide-line #[257 "\302e\303 S]\304 \305\306\307\310\311F#*\207" [buffer-invisibility-spec inhibit-read-only nil point-at-bol point-at-eol t add-text-properties invisible org-filtered org-filter-type] 10 (#$ . 287790)]) #@63 Remove filter of type TYPE from the agenda buffer. (fn TYPE) (defalias 'org-agenda-remove-filter #[257 "\212eb\210\302\303\304`d\305$\211\262\203)\211b\210\306`\307`\305\"\310\311\305F#\210\202)\266\312\313\314\315!\"!\303L\210\303\316 \210\317 )\207" [inhibit-read-only 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] 10 (#$ . 288115) nil]) (defalias 'org-agenda-filter-show-all-tag #[0 "\300\301!\207" [org-agenda-remove-filter tag] 2]) (defalias 'org-agenda-filter-show-all-re #[0 "\300\301!\207" [org-agenda-remove-filter regexp] 2]) (defalias 'org-agenda-filter-show-all-effort #[0 "\300\301!\207" [org-agenda-remove-filter effort] 2]) (defalias 'org-agenda-filter-show-all-cat #[0 "\300\301!\207" [org-agenda-remove-filter category] 2]) (defalias 'org-agenda-filter-show-all-top-filter #[0 "\300\301!\207" [org-agenda-remove-filter top-headline] 2]) #@148 Manipulate the query by adding a search term with positive selection. Positive selection means the term must be matched for selection of an entry. (defalias 'org-agenda-manipulate-query-add #[0 "\300\301!\207" [org-agenda-manipulate-query 91] 2 (#$ . 289176) nil]) #@148 Manipulate the query by adding a search term with negative selection. Negative selection means term must not be matched for selection of an entry. (defalias 'org-agenda-manipulate-query-subtract #[0 "\300\301!\207" [org-agenda-manipulate-query 93] 2 (#$ . 289448) nil]) #@147 Manipulate the query by adding a search regexp with positive selection. Positive selection means the regexp must match for selection of an entry. (defalias 'org-agenda-manipulate-query-add-re #[0 "\300\301!\207" [org-agenda-manipulate-query 123] 2 (#$ . 289725) nil]) #@147 Manipulate the query by adding a search regexp with negative selection. Negative selection means regexp must not match for selection of an entry. (defalias 'org-agenda-manipulate-query-subtract-re #[0 "\300\301!\207" [org-agenda-manipulate-query 125] 2 (#$ . 290000) nil]) #@13 (fn CHAR) (defalias 'org-agenda-manipulate-query #[257 "\306\267\202H\307\310 \210)\311\312!\207\313\303\n\203\314\315\"A\202\316\"\210\317\320dS`^\321\"@ \211G\322>\2037\323\2028\324\\F\325 \"\210\fA\310 )\207\326\327\"\207" [org-agenda-type org-agenda-include-inactive-timestamps org-agenda-last-search-view-search-was-boolean org-agenda-query-string org-agenda-redo-command org-agenda-query-register #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-overriding-arguments] 7 (#$ . 290279)]) #@19 (fn VAR STRING) (defalias 'org-add-to-string #[514 "\211JPL\207" [] 5 (#$ . 291159)]) #@36 Jump to DATE in agenda. (fn DATE) (defalias 'org-agenda-goto-date #[257 "\306\307!!\310 \311dS`^\312\"\n\206\211@\3138\314 8\315\316\317\f!\"\257\211A\320\321\322\320\323\"\204=\324\325!\202s\326ed\327\312F#\210\330 \210eb\210\311`\331\"\206V\332U\204m\212\333\313!\210m)\204m\333\313!\210\202N\211\211+\207" [org-agenda-sticky org-agenda-buffer-tmp-name current-prefix-arg org-agenda-redo-command inhibit-read-only org-agenda-this-buffer-is-sticky 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 day 0 move-beginning-of-line] 17 (#$ . 291255) (byte-code "\302 )C\207" [org-agenda-jump-prefer-future org-read-date-prefer-future org-read-date] 1)]) #@14 Go to today. (defalias 'org-agenda-goto-today #[0 "\303\304\305\"\210\306dS`^\307\"\3108\311ed\312\304$\211\203\211b\207\305=\203;\313\312 \206* \"\211A\211\240\266\314 \210\315 )\207\316\317!\207" [org-agenda-type org-agenda-span org-agenda-overriding-arguments 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"] 8 (#$ . 292174) nil]) #@22 (fn &optional CNT) (defalias 'org-agenda-find-same-or-today-or-agenda #[256 "\211\203 \300ed\301$\206/\300ed\302\303$\206/\300ed\304\305$\206/\306dS`^\307\"\203.\310 \206/eb\207" [text-property-any org-day-cnt org-today t org-agenda-type agenda get-text-property org-series org-agenda-backward-block] 6 (#$ . 292685)]) #@36 Move backward by one agenda block. (defalias 'org-agenda-backward-block #[0 "\300\301!\207" [org-agenda-forward-block backward] 2 (#$ . 293019) nil]) #@113 Move forward by one agenda block. When optional argument BACKWARD is set, go backward. (fn &optional BACKWARD) (defalias 'org-agenda-forward-block #[256 "\300\301!\204\n\302\303!\207\304\203\305\202\306!\203%\307\310\203\"\311\202#\312\"\207\3131:\211\2032\314u\2025\315\316!0\210\202;\210\317\203D\320\202E\321\317\211`\322\"\211\262\203a\323`\322\"\204a\324\262\211b\210\202G\203i\325\316!\207\203qe\202rdb\210\325\316!\210\307\326\203\203\327\202\204\330\"\207" [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 nil previous-single-property-change next-single-property-change org-agenda-structural-header get-text-property t move-beginning-of-line "No %s block" "previous" "further"] 8 (#$ . 293176) nil]) #@113 Go forward in time by the current span. With prefix ARG, go forward that many times the current span. (fn ARG) (defalias 'org-agenda-later #[257 "\304\305\306\"\210\307 \310dS`^\311\"\3128\206A@\206'\313\310\314 \"\262\206' \315!\316\310\314 \"\262\317\247\203C_\\\262\202N\320\267\202F\\\262\202N\321_\\\262\202N\322_\\\262\202N@\\A@\3128E\262\211\211\3128\262\317\323U\203\214\324\325!\266\203\202\312\323V\203S\262\326\211\211@\262\211A@\262\3128\262\327S_\\\312V\203\355\211\330\331_\\\332\245Z\262\211\323W\203\316\333!S\262\211\331\246\323U\205\344\211\334\246\323U?\206\344\211\335\246\323U\262\203\355\211T\262\266\204\336_\331\245\334\245[\335\245%\266\203\202\312\333T!\262\337\211\211@\262\211A@\262\3128\262\327S_\\\312V\203_\211\330\331_\\\332\245Z\262\211\323W\203@\333!S\262\211\331\246\323U\205V\211\334\246\323U?\206V\211\335\246\323U\262\203_\211T\262\266\204\336_\331\245\334\245[\335\245\340\211\211@\262\211A@\262\3128\262\327S_\\\312V\203\304\211\330\331_\\\332\245Z\262\211\323W\203\245\333!S\262\211\331\246\323U\205\273\211\334\246\323U?\206\273\211\335\246\323U\262\203\304\211T\262\266\204&\266\203\262\211@T\240\210\202N@A@ \3128\\E\262\211\211\3128\262\317\323U\203\372\324\325!\266\203\2028\323V\203pS\262\326\211\211@\262\211A@\262\3128\262\327S_\\\312V\203[\211\330\331_\\\332\245Z\262\211\323W\203<\333!S\262\211\331\246\323U\205R\211\334\246\323U?\206R\211\335\246\323U\262\203[\211T\262\266\204\336_\331\245\334\245[\335\245%\266\203\2028\333T!\262\337\211\211@\262\211A@\262\3128\262\327S_\\\312V\203\315\211\330\331_\\\332\245Z\262\211\323W\203\256\333!S\262\211\331\246\323U\205\304\211\334\246\323U?\206\304\211\335\246\323U\262\203\315\211T\262\266\204\336_\331\245\334\245[\335\245\340\211\211@\262\211A@\262\3128\262\327S_\\\312V\2032\211\330\331_\\\332\245Z\262\211\323W\203\333!S\262\211\331\246\323U\205)\211\334\246\323U?\206)\211\335\246\323U\262\2032\211T\262\266\204&\266\203\262\211AA\3128T\240\210\202N_\\\262\310dS`^\341\"@E\342 \210\343!\210*\344\317\"\207" [org-agenda-current-span org-starting-day org-agenda-overriding-arguments org-agenda-overriding-cmd org-agenda-check-type t agenda window-start get-text-property org-last-args 2 day point-at-bol calendar-gregorian-from-absolute org-day-cnt nil #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (day 73 week 82 fortnight 93 month 104 year 469)) 7 14 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) org-series-cmd org-agenda-redo org-agenda-find-same-or-today-or-agenda set-window-start] 26 (#$ . 294085) "p"]) #@115 Go backward in time by the current span. With prefix ARG, go backward that many times the current span. (fn ARG) (defalias 'org-agenda-earlier #[257 "\300[!\207" [org-agenda-later] 3 (#$ . 296930) "p"]) #@37 Call one of the view mode commands. (defalias 'org-agenda-view-mode-dispatch #[0 "\301\302!\210\303 \211\304\267\202c\305\306!\207\305\307!\207\305\310!\207\305\311!\207\305\312!\207\305\313!\207\305\314!\207\314\315!\207\314\316!\207\305\317!\207\305\320!\207\320\321!\207\305\322!\207\305\323!\207\305\324!\207\305\325!\207\305\326!\207\327\330\327\331\"\210\332 \210)\333\334!\207\333\335!\207\336\337\"\207" [org-agenda-include-inactive-timestamps org-unlogged-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 #s(hash-table size 22 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (32 12 100 16 119 20 116 24 109 28 121 32 108 36 76 40 99 44 102 48 70 48 97 52 65 56 114 60 82 60 101 64 69 64 71 68 68 72 33 76 91 80 113 95)) call-interactively org-agenda-reset-view org-agenda-day-view org-agenda-week-view org-agenda-fortnight-view org-agenda-month-view org-agenda-year-view org-agenda-log-mode (4) clockcheck org-agenda-follow-mode org-agenda-archives-mode files org-agenda-clockreport-mode org-agenda-entry-text-mode org-agenda-toggle-time-grid org-agenda-toggle-diary org-agenda-toggle-deadlines t org-agenda-check-type agenda org-agenda-redo message "Display now includes inactive timestamps as well" "Abort" user-error "Invalid key: %s"] 4 (#$ . 297141) nil]) #@36 Switch to default view for agenda. (defalias 'org-agenda-reset-view #[0 "\301!\207" [org-agenda-span org-agenda-change-time-span] 2 (#$ . 298656) nil]) #@124 Switch to daily view for agenda. With argument DAY-OF-MONTH, switch to that day of the month. (fn &optional DAY-OF-MONTH) (defalias 'org-agenda-day-view #[256 "\300\301\"\207" [org-agenda-change-time-span day] 4 (#$ . 298816) "P"]) #@368 Switch to weekly view for agenda. With argument ISO-WEEK, switch to the corresponding ISO week. If ISO-WEEK has more then 2 digits, only the last two encode the week. Any digits before this encode a year. So 200712 means week 12 of year 2007. Years ranging from 70 years ago to 30 years in the future can also be written as 2-digit years. (fn &optional ISO-WEEK) (defalias 'org-agenda-week-view #[256 "\300\301\"\207" [org-agenda-change-time-span week] 4 (#$ . 299057) "P"]) #@373 Switch to fortnightly view for agenda. With argument ISO-WEEK, switch to the corresponding ISO week. If ISO-WEEK has more then 2 digits, only the last two encode the week. Any digits before this encode a year. So 200712 means week 12 of year 2007. Years ranging from 70 years ago to 30 years in the future can also be written as 2-digit years. (fn &optional ISO-WEEK) (defalias 'org-agenda-fortnight-view #[256 "\300\301\"\207" [org-agenda-change-time-span fortnight] 4 (#$ . 299544) "P"]) #@343 Switch to monthly view for agenda. With argument MONTH, switch to that month. If MONTH has more then 2 digits, only the last two encode the month. Any digits before this encode a year. So 200712 means December year 2007. Years ranging from 70 years ago to 30 years in the future can also be written as 2-digit years. (fn &optional MONTH) (defalias 'org-agenda-month-view #[256 "\300\301\"\207" [org-agenda-change-time-span month] 4 (#$ . 300046) "P"]) #@194 Switch to yearly view for agenda. With argument YEAR, switch to that year. Years ranging from 70 years ago to 30 years in the future can also be written as 2-digit years. (fn &optional YEAR) (defalias 'org-agenda-year-view #[256 "\211\203 \300!\262\301\302!\203\303\304\"\207\305\306!\207" [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 year error "Abort"] 4 (#$ . 300510) "P"]) #@113 Change the agenda view to SPAN. SPAN may be `day', `week', `fortnight', `month', `year'. (fn SPAN &optional N) (defalias 'org-agenda-change-time-span #[513 "\303\304\305\"\210\306dS`^\307\"\3108\204\211\232\203\311\312\"\210\313\306\314 \"\262\2060A@\2060\315#\306dS`^\316\"@E\317 \210\320 \210*\266\321 \210\322\323\"\207" [org-starting-day org-agenda-overriding-cmd org-agenda-overriding-arguments 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"] 9 (#$ . 300985)]) #@241 Compute starting date for agenda. SPAN may be `day', `week', `fortnight', `month', `year'. The return value is a cons cell with the starting date and the number of days, so that the date SD will be in that range. (fn SD SPAN &optional N) (defalias 'org-agenda-compute-starting-span #[770 "\301!\211@\3028\303=\203q\203\304E\211\3028\262\305\306U\203+\307\310!\266\203\202i\306V\203\241S\262\311\211\211@\262\211A@\262\3028\262\312S_\\\302V\203\214\211\313\314_\\\315\245Z\262\211\306W\203m\316!S\262\211\314\246\306U\205\203\211\317\246\306U?\206\203\211\320\246\306U\262\203\214\211T\262\266\204\321_\314\245\317\245[\320\245%\266\203\202i\316T!\262\322\211\211@\262\211A@\262\3028\262\312S_\\\302V\203\376\211\313\314_\\\315\245Z\262\211\306W\203\337\316!S\262\211\314\246\306U\205\365\211\317\246\306U?\206\365\211\320\246\306U\262\203\376\211T\262\266\204\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3028\262\312S_\\\302V\203c\211\313\314_\\\315\245Z\262\211\306W\203D\316!S\262\211\314\246\306U\205Z\211\317\246\306U?\206Z\211\320\246\306U\262\203c\211T\262\266\204&\266\203\\S\262\202\324=\204}\325=\203\327\326\301!!\203\215\211Z\202\216\306\305\306W\203\233\327\202\234\306\\Z\262 \203\322\330\331!\210\332V\203\300\333\317\245!\262\334\317\"\262\335\304\206\316\302\336 !8E!\262 \266\202\337\267\202\272\305\203\365\332V\203\365\333\317\245!\262\334\317\"\262\206\372\304\206E\211\3028\262\305\306U\203\307\310!\266\203\202T\306V\203\214S\262\311\211\211@\262\211A@\262\3028\262\312S_\\\302V\203w\211\313\314_\\\315\245Z\262\211\306W\203X\316!S\262\211\314\246\306U\205n\211\317\246\306U?\206n\211\320\246\306U\262\203w\211T\262\266\204\321_\314\245\317\245[\320\245%\266\203\202T\316T!\262\322\211\211@\262\211A@\262\3028\262\312S_\\\302V\203\351\211\313\314_\\\315\245Z\262\211\306W\203\312\316!S\262\211\314\246\306U\205\340\211\317\246\306U?\206\340\211\320\246\306U\262\203\351\211T\262\266\204\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3028\262\312S_\\\302V\203N\211\313\314_\\\315\245Z\262\211\306W\203/\316!S\262\211\314\246\306U\205E\211\317\246\306U?\206E\211\320\246\306U\262\203N\211T\262\266\204&\266\203\262\210\202\304\211\206aE\211\3028\262\305\306U\203w\307\310!\266\203\202\265\306V\203\355S\262\311\211\211@\262\211A@\262\3028\262\312S_\\\302V\203\330\211\313\314_\\\315\245Z\262\211\306W\203\271\316!S\262\211\314\246\306U\205\317\211\317\246\306U?\206\317\211\320\246\306U\262\203\330\211T\262\266\204\321_\314\245\317\245[\320\245%\266\203\202\265\316T!\262\322\211\211@\262\211A@\262\3028\262\312S_\\\302V\203J\211\313\314_\\\315\245Z\262\211\306W\203+\316!S\262\211\314\246\306U\205A\211\317\246\306U?\206A\211\320\246\306U\262\203J\211T\262\266\204\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3028\262\312S_\\\302V\203\257\211\313\314_\\\315\245Z\262\211\306W\203\220\316!S\262\211\314\246\306U\205\246\211\317\246\306U?\206\246\211\320\246\306U\262\203\257\211T\262\266\204&\266\203\262\202\324=\204\306\325=\203\326\301!!\203\326\211Z\202\327\306\305\306W\203\344\327\202\345\306\\Z\262 \203\330\331!\210\332V\203 \333\317\245!\262\334\317\"\262\335\304\206\302\336 !8E!\262 \266\207" [org-agenda-start-on-weekday 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) 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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (month 477 year 858))] 25 (#$ . 301719)]) #@79 Jump to the next line indicating a date in agenda buffer. (fn &optional ARG) (defalias 'org-agenda-next-date-line #[256 "\301\302\303\"\210\304\305!\210\306\302\307!)\262\203\305u\210\310\306\311\302$\204(\312u\210\313\314!\210\315\224b\207" [inhibit-changing-match-data org-agenda-check-type t agenda beginning-of-line 1 "^\\S-" looking-at re-search-forward nil -1 error "No next date after this line in this buffer" 0] 6 (#$ . 305687) "p"]) #@83 Jump to the previous line indicating a date in agenda buffer. (fn &optional ARG) (defalias 'org-agenda-previous-date-line #[256 "\300\301\302\"\210\303\304!\210\305\306\307\301$?\205\310\311!\207" [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"] 6 (#$ . 306144) "p"]) (defvar org-hl (byte-code "\300\301\211\"\207" [make-overlay 1] 3)) (overlay-put org-hl 'face 'highlight) #@67 Highlight a region with overlay. (fn BEGIN END &optional BUFFER) (defalias 'org-highlight #[770 "\301\206 p$\207" [org-hl move-overlay] 8 (#$ . 306620)]) #@23 Detach overlay INDEX. (defalias 'org-unhighlight #[0 "\301!\207" [org-hl delete-overlay] 2 (#$ . 306786)]) #@74 Remove the highlight from its position, and this function from the hook. (defalias 'org-unhighlight-once #[0 "\300\301\302\"\210\303 \207" [remove-hook pre-command-hook org-unhighlight-once org-unhighlight] 3 (#$ . 306900)]) (defvar org-agenda-pre-follow-window-conf nil) #@41 Toggle follow mode in an agenda buffer. (defalias 'org-agenda-follow-mode #[0 "\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 (#$ . 307178) nil]) #@65 Toggle entry text mode in an agenda buffer. (fn &optional ARG) (defalias 'org-agenda-entry-text-mode #[256 "\204 \204\n\204 \203\306\307!\207\211\250\206\f?\310 \210\f\2032\211\250\203,\211\202- \311 \210)\312 \210\313\314\f\203?\315\202@\316\f\204H\317\202U\320\321\250\203S\202T \"#\207" [org-agenda-tag-filter org-agenda-category-filter org-agenda-regexp-filter org-agenda-top-headline-filter org-agenda-entry-text-mode org-agenda-entry-text-maxlines 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)"] 7 (#$ . 307583) "P"]) #@45 Toggle clocktable mode in an agenda buffer. (defalias 'org-agenda-clockreport-mode #[0 "\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 (#$ . 308313) nil]) #@275 Toggle log mode in an agenda buffer. With argument SPECIAL, show all possible log items, not only the ones configured in `org-agenda-log-mode-items'. With a `\[universal-argument] \[universal-argument]' prefix, show *only* log items, nothing else. (fn &optional SPECIAL) (defalias 'org-agenda-log-mode #[256 "\301\302\303\"\210\211\304\267\202\305\202$\306=?\205$\306\202$\211\203\"\307\202$?\310 \210\311 \210\312\313\2035\314\2026\315\"\207" [org-agenda-show-log org-agenda-check-type t agenda #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((16) 11 clockcheck 15)) only clockcheck (closed clock state) org-agenda-set-mode-name org-agenda-redo message "Log mode is %s" "on" "off"] 4 (#$ . 308651) "P"]) #@157 Toggle inclusion of items in trees marked with :ARCHIVE:. When called with a prefix argument, include all archive files as well. (fn &optional WITH-FILES) (defalias 'org-agenda-archives-mode #[256 "\211\203\302=\203\303\202\211\203\302\202\203\303\202\304\305 \210\306 \210\307\310\311\267\202@\312\202A\313\314 \"\202A\313\315 \"\202A\303\"\207" [org-agenda-archives-mode org-archive-tag t nil 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 46 trees 50 t 57)) "No archives are included" format "Trees with :%s: tag are included" "Trees with :%s: tag and all active archive files are included"] 6 (#$ . 309420) "P"]) #@45 Toggle diary inclusion in an agenda buffer. (defalias 'org-agenda-toggle-diary #[0 "\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 (#$ . 310169) nil]) #@66 Toggle inclusion of entries with a deadline in an agenda buffer. (defalias 'org-agenda-toggle-deadlines #[0 "\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 (#$ . 310503) nil]) #@39 Toggle time grid in an agenda buffer. (defalias 'org-agenda-toggle-time-grid #[0 "\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 (#$ . 310870) nil]) #@60 Set the mode name to indicate all the small mode settings. (defalias 'org-agenda-set-mode-name #[0 "\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\330 \203r\313\202s\312\204~\331\332N\203\202\333\202\203\312\204\216\334\332N\203\222\335\202\223\312\204\236\336\332N\203\242\337\202\243\312 \204\256\340\332N\203\262\341\202\263\312)\203\313)\342=\203\303\343\202\314\344\345*\"\202\314\312+\203\325\346\202\326\312\257,\347 \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-filter-any 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 (lambda (x) (concat (substring x 0 1) "/" (substring x 1) "/")) (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] 19 (#$ . 311196)]) #@44 Update the agenda type after each command. (defalias 'org-agenda-update-agenda-type #[0 "\301`\300\"\206\301e`S]\300\"\211\207" [org-agenda-type get-text-property] 3 (#$ . 313447)]) #@66 Move cursor to the next line, and show if follow mode is active. (defalias 'org-agenda-next-line #[0 "\300\301!\210\302 \207" [call-interactively next-line org-agenda-do-context-action] 2 (#$ . 313638) nil]) #@70 Move cursor to the previous line, and show if follow-mode is active. (defalias 'org-agenda-previous-line #[0 "\300\301!\210\302 \207" [call-interactively previous-line org-agenda-do-context-action] 2 (#$ . 313852) nil]) #@42 Move cursor to next agenda item. (fn N) (defalias 'org-agenda-next-item #[257 "i\300\211W\203#\301\302\303 \304\"\203\305\306!\210\302`\304\"b\210\210\211T\262\202\210\307!\266\310 \207" [0 nil next-single-property-change point-at-eol org-marker move-end-of-line 1 org-move-to-column org-agenda-do-context-action] 7 (#$ . 314078) "p"]) #@42 Move cursor to next agenda item. (fn N) (defalias 'org-agenda-previous-item #[257 "\300\211W\203&\301i\212\302\300!\210\303`\304\")\211\203\211b\210\305!\266\211T\262\202\210\306 \207" [0 nil move-end-of-line previous-single-property-change org-marker org-move-to-column org-agenda-do-context-action] 7 (#$ . 314430) "p"]) #@51 Show outline path and, maybe, follow mode window. (defalias 'org-agenda-do-context-action #[0 "\303\304\305 \"\262\306!\205E\307!\205E\203& \203#\310\311!\210\202&\312 \210\n\205E\212\306!\2036\307!q\210\212\214~\210\211\206?`b\210\313\314!+\207" [org-agenda-follow-mode org-agenda-follow-indirect org-agenda-show-outline-path 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 (#$ . 314769)]) #@47 Show the tags applicable to the current item. (defalias 'org-agenda-show-tags #[0 "\301\302\303 \"\262\211\2030\304\305\306\307\310#\311\211\203#\312\313G$\210\202+\314\313G\311$\210\266\202\"\207\304\315!\207" [org-rm-props tags 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 (#$ . 315282) nil]) #@83 Go to the entry at point in the corresponding Org file. (fn &optional HIGHLIGHT) (defalias 'org-agenda-goto #[256 "\302\303\304 \"\262\206 \305 \306!\307!\310!\210~\210\311 \210\211b\210\312\313!\203C\314\315!\210\316\317 \320\245!\210\321\322!\210\323\324 \323\322#\203B\325\224b\210)\326\327!\210\205Q\330\304 \331 \"\207" [case-fold-search org-complex-heading-regexp 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] 8 (#$ . 315717) nil]) #@113 Normal hook run after an item has been shown from the agenda. Point is in the buffer where the item originated. (defvar org-agenda-after-show-hook nil (#$ . 316441)) (defvar org-agenda-loop-over-headlines-in-active-region nil) #@290 Between region BEG and END, call agenda command CMD. When optional argument ARG is non-nil or FORCE-ARG is t, pass ARG to CMD. When optional argument DELETE is non-nil, assume CMD deletes the agenda entry and don't move to the next entry. (fn BEG END CMD &optional ARG FORCE-ARG DELETE) (defalias 'org-agenda-do-in-region #[1539 "\212b\210\302 \303\223\304=;\205\305=\205 \306\307\310 \"\262`W\205\201\311`\312 \"\204T\203?\304\313!)\262\204T\306\307\310 \"\262=\204T\314\315!\266\202 \316\317\320#\210\204d\203m!\210\202q \210\204y\314\315!\210\321!\266\202 \266\204)\207" [org-agenda-loop-over-headlines-in-active-region inhibit-changing-match-data make-marker nil t start-level level get-text-property point-at-bol make-overlay point-at-eol looking-at org-agenda-next-item 1 overlay-put face region delete-overlay] 16 (#$ . 316675)]) #@158 Maybe loop over agenda entries and perform CMD. Pass ARG, FORCE-ARG, DELETE and BODY to `org-agenda-do-in-region'. (fn CMD ARG FORCE-ARG DELETE &rest BODY) (defalias 'org-agenda-maybe-loop '(macro . #[1156 "\300\301\302\303\304    \257BBB\207" [if (and (called-interactively-p 'any) org-agenda-loop-over-headlines-in-active-region (org-region-active-p)) org-agenda-do-in-region (region-beginning) (region-end)] 14 (#$ . 317568)])) (put 'org-agenda-maybe-loop 'edebug-form-spec t) #@66 Kill the entry or subtree belonging to the current agenda entry. (defalias 'org-agenda-kill #[0 "\306=\204\n\307\310!\210\311\312!\203% \203%\313 \203%\314\315 \316 \317\320\211\321&\207\322 \323\324\325 \"\262\2064\326 \327!\330!\331\324\325 \"\262\320\211\332\320\212\211\203N\211b\210n\203V\333\202W\332\334\333`\"\\)\262\np r q\210 )\320\211r\fq\210\212 b\210\335\336!\203\222\n\337\235\204\222\340\321!\210`\262\n\341\321\211\"\262 \202\235\325 \262\nd\342 T^\262  b\210\343\344\n\321#\203\262T\262\202\241*\f\321=\204\305\f\247\203\351\fV\203\351\345 \346\347\"\216\350\320!\210\351\352\353 \322!#!?\354 !\210\203\347\355\356!\210)\2104\357   #\210)r\fq\210  |\210)\360\361!\2105\205V\362rq\210 )\"\262\362rq\210 )\"\262\204,\211\205V\2038rq\210\363 \210)\211\203Er\fq\210\363 \210)\2576B\2116\207" [major-mode org-agenda-loop-over-headlines-in-active-region this-command buffer-undo-list org-agenda-confirm-kill org-last-indirect-buffer org-agenda-mode user-error "Not in agenda" called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-kill nil t buffer-name org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position type 0 1 count-lines derived-mode-p org-mode ("sexp") org-back-to-heading org-end-of-subtree point-at-eol re-search-forward "^[ ]*\\S-" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-agenda-tree-to-indirect-buffer y-or-n-p format "Delete entry with %d lines in buffer \"%s\"? " kill-buffer error "Abort" org-remove-subtree-entries-from-agenda message "Agenda item and source killed" org-verify-change-for-undo undo-boundary org-agenda-buffer-name org-agenda-allow-remote-undo org-agenda-undo-list] 22 (#$ . 318061) nil]) #@69 Archive the entry or subtree belonging to the current agenda entry. (defalias 'org-agenda-archive-default #[0 "\301\302!\210\303\304\"\207" [org-archive-default-command require org-archive funcall-interactively org-agenda-archive-with] 3 (#$ . 319930) nil]) #@69 Archive the entry or subtree belonging to the current agenda entry. (defalias 'org-agenda-archive-default-with-confirmation #[0 "\301\302!\210\303\304\305#\207" [org-archive-default-command require org-archive funcall-interactively org-agenda-archive-with confirm] 4 (#$ . 320195) nil]) #@69 Archive the entry or subtree belonging to the current agenda entry. (defalias 'org-agenda-archive #[0 "\300\301\302\"\207" [funcall-interactively org-agenda-archive-with org-archive-subtree] 3 (#$ . 320489) nil]) #@40 Move the entry to the archive sibling. (defalias 'org-agenda-archive-to-archive-sibling #[0 "\300\301\302\"\207" [funcall-interactively org-agenda-archive-with org-archive-to-archive-sibling] 3 (#$ . 320708) nil]) #@68 Move the entry to the archive sibling. (fn CMD &optional CONFIRM) (defalias 'org-agenda-archive-with #[513 "\306=\204\n\307\310!\210\311\312!\203% \203%\313 \203%\314\315 \316 \317\320\321&\207\322 \323\324\325 \"\262\2064\326 \327!\330!\320\212\211\203C\211b\210n\203K\331\202L\332\333\331`\"\\)\262\np rq\210 )\320\211rq\210\334\335!\203\235 \203|\336\337!\204|\340\341!\210\202\241\342 \343\344\"\216b\210 \345 \210)\346\321!\210\321 \210*\210\202\241\340\347!\210)*\205\361\350rq\210 )\"\262\350r\nq\210 )\"\262\204\307\211\205\361\203\323rq\210\351 \210)\211\203\340rq\210\351 \210)\f\257+B\211+\207" [major-mode org-agenda-loop-over-headlines-in-active-region this-command buffer-undo-list org-agenda-buffer-name org-archive-from-agenda org-agenda-mode user-error "Not in agenda" called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-archive-with nil t buffer-name org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position 1 0 count-lines derived-mode-p org-mode y-or-n-p "Archive this subtree or entry? " error "Abort" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-remove-subtree-entries-from-agenda org-back-to-heading "Archiving works only in Org files" org-verify-change-for-undo undo-boundary org-agenda-allow-remote-undo org-agenda-undo-list] 19 (#$ . 320928) nil]) #@240 Remove all lines in the agenda that correspond to a given subtree. The subtree is the one in buffer BUF, starting at BEG and ending at END. If this information is not given, the function uses the tree at point. (fn &optional BUF BEG END) (defalias 'org-remove-subtree-entries-from-agenda #[768 "\206p\302\211\212\203\204\303\304!\210`\262\305\304!\210`\262\306!q\210\212db\210\307\310!\210o?\205l\311\312\313 \"\262\211\262\203e\314!\232\203e\315!\211\262\203e\211Y\203e\211W\203e\304\313 \316 T|\210)\307\317!\210\202+*\207" [org-agenda-buffer-name inhibit-read-only 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] 10 (#$ . 322416)]) #@429 Refile the item at point. When called with `\[universal-argument] \[universal-argument]', go to the location of the last refiled item. When called with `\[universal-argument] \[universal-argument] \[universal-argument]' prefix or when GOTO is 0, clear the refile cache. RFLOC can be a refile location obtained in a different way. When NO-UPDATE is non-nil, don't redo the agenda buffer. (fn &optional GOTO RFLOC NO-UPDATE) (defalias 'org-agenda-refile #[768 "\302\267\202\f\303 \207\304 \207\305 \306\307\310 \"\262\206\311 \312!\2060\313\203,\314\202-\315#rq\210\212\214~\210b\210\316 \210)\317#\210+\266\211?\205R\320 \207" [org-refile-allow-creating-parent-nodes org-agenda-buffer-name #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 6 (64) 6 (16) 9)) org-refile-cache-clear org-refile-goto-last-stored buffer-name org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer org-refile-get-location "Goto" "Refile to" org-remove-subtree-entries-from-agenda org-refile org-agenda-redo] 11 (#$ . 323204) "P"]) #@174 Open the link(s) in the current entry, if any. This looks for a link in the displayed line in the agenda. It also looks at the text of the entry itself. (fn &optional ARG) (defalias 'org-agenda-open-link #[256 "\301\302\303 \"\262\206\304\302\303 \"\262\211\205\305!\303 \306 {\205*\307$\211@\211;\2036\211C\2027\211A\310C\203S\203S\311\312\313\n\n%\"\207\314\315\316Q!\204k\212\317\320!\210\321\322\316Q!)\203q\323\324\320!!\207\325\326!\207" [org-link-bracket-re org-hd-marker get-text-property point-at-bol org-marker marker-buffer point-at-eol org-offer-links-in-entry nil mapcar make-closure #[257 "r\301q\210\303\306\f\"\205\307\310\"\240\210\303\242\203\306 \303\242\"\2037\214~\210\300b\210\311\312\302#\2053\313\224b\210\314 )\202N\315\301!\210~\210\300b\210\311\312\302#\205N\313\224b\210\314 )\207" [V0 V1 V2 V3 org-link-bracket-re org-link-any-re string-match match-string 1 search-forward nil 0 org-open-at-point switch-to-buffer-other-window] 5 "\n\n(fn L)"] org-in-regexp "\\(" "\\)" beginning-of-line 1 looking-at ".*?\\(" org-link-open-from-string match-string message "No link to open here"] 16 (#$ . 324311) "P"]) #@72 Get a variable from a referenced buffer and install it here. (fn VAR) (defalias 'org-agenda-copy-local-variable #[257 "\300\301\302 \"\262\211\205!\303\304!!\205!\305!r\304!q\210J)L\207" [org-marker get-text-property point-at-bol buffer-live-p marker-buffer make-local-variable] 5 (#$ . 325498)]) #@192 Go to the Org mode file which contains the item at point. When optional argument DELETE-OTHER-WINDOWS is non-nil, the displayed Org file fills the frame. (fn &optional DELETE-OTHER-WINDOWS) (defalias 'org-agenda-switch-to #[256 "\203\302\303\304 \"\262\204\305 !\203\306\307\310!!\207\302\303\304 \"\262\206(\311 \312!\313!\2046\314\315!\210\316!\210\203A\317 \210~\210\211b\210\320\321!\205S\322\323!\210\324\325!\207" [org-return-follows-link org-link-bracket-re org-marker get-text-property point-at-bol org-in-regexp org-link-open-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 delete-other-windows derived-mode-p org-mode org-show-context agenda run-hooks org-agenda-after-show-hook] 6 (#$ . 325811) nil]) #@73 Go to the Org file which contains the item at the mouse click. (fn EV) (defalias 'org-agenda-goto-mouse #[257 "\300!\210\301 \207" [mouse-set-point org-agenda-goto] 3 (#$ . 326655) "e"]) #@179 Display the Org file which contains the item at point. With prefix argument FULL-ENTRY, make the entire entry visible if it was hidden in the outline. (fn &optional FULL-ENTRY) (defalias 'org-agenda-show #[256 "\300 \301\302!\210\203 \303 \210\304!\207" [selected-window org-agenda-goto t org-show-entry select-window] 4 (#$ . 326851) "P"]) (defvar org-agenda-show-window nil) #@235 Display the Org file which contains the item at point. When called repeatedly, scroll the window that is displaying the buffer. With a `\[universal-argument]' prefix argument, display the item, but fold drawers. (fn &optional ARG) (defalias 'org-agenda-show-and-scroll-up #[256 "\303 \304!\203! \n=\203!\305!\210\3061\307 0\210\202N\210\202N\310\311!\210\312 \210\2033\313\314!\210\202K\212\214~\210\212\315\311!\210`)\212\316 \210`)}\210\317\320!\210*\303 \305!\207" [org-agenda-show-window this-command last-command selected-window window-live-p select-window (error) scroll-up org-agenda-goto t org-show-entry org-cycle-hide-drawers children org-back-to-heading outline-next-heading org-show-all (drawers)] 4 (#$ . 327239) "P"]) #@44 Scroll down the window showing the agenda. (defalias 'org-agenda-show-scroll-down #[0 "\301 \302!\205\303!\210\3041\305 0\210\202\210\303!\207" [org-agenda-show-window selected-window window-live-p select-window (error) scroll-down] 3 (#$ . 327993) nil]) #@400 Display the Org file which contains the item at point. The prefix arg selects the amount of information to display: 0 hide the subtree 1 just show the entry according to defaults. 2 show the children view 3 show the subtree view 4 show the entire subtree and any drawers With prefix argument FULL-ENTRY, make the entire entry visible if it was hidden in the outline. (fn &optional MORE) (defalias 'org-agenda-show-1 #[256 "\300 \301\302!\210\303 \210\304\300 \305 \"\210\306U\203+\307\302!\210\212\303 \210\310\311\312\"\210)\313\314!\210\202\202\315\316!\203>\317U\203>\313\320!\210\202\202\321U\203[\322 \210\323 \210\212\303 \210\310\311\324\"\210)\313\325!\210\202\202\326U\203u\327 \210\212\303 \210\310\311\330\"\210)\313\331!\210\202\202\326V\203\202\327 \210\313\332!\210\333!\207" [selected-window org-agenda-goto t org-back-to-heading set-window-start point-at-bol 0 org-flag-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" "Remote: SUBTREE AND ALL DRAWERS" select-window] 5 (#$ . 328264) "p"]) (defvar org-agenda-cycle-counter nil) #@450 Show the current entry in another window, with default settings. Default settings are taken from `org-show-context-detail'. When use repeatedly in immediate succession, the remote entry will cycle through visibility children -> subtree -> folded When called with a numeric prefix arg, that arg will be passed through to `org-agenda-show-1'. For the interpretation of that argument, see the docstring of `org-agenda-show-1'. (fn &optional N) (defalias 'org-agenda-cycle-show #[256 "\211\250\203\n\211\202+ \n=\204\303\202+\304=\203 \305\202+T\211\306V\203+\304\307!\207" [org-agenda-cycle-counter last-command this-command 1 0 2 3 org-agenda-show-1] 4 (#$ . 329550) "P"]) #@79 Display the Org file which contains the item at point and recenter. (fn ARG) (defalias 'org-agenda-recenter #[257 "\300 \301\302!\210\303!\210\304!\207" [selected-window org-agenda-goto t recenter select-window] 4 (#$ . 330251) "P"]) #@75 Display the Org file which contains the item at the mouse click. (fn EV) (defalias 'org-agenda-show-mouse #[257 "\300!\210\301 \207" [mouse-set-point org-agenda-show] 3 (#$ . 330494) "e"]) #@54 Check if the entry is a diary link and abort if yes. (defalias 'org-agenda-check-no-diary #[0 "\300\301\302 \"\262\205 \303 \207" [org-agenda-diary-link get-text-property point-at-bol org-agenda-error] 4 (#$ . 330691)]) #@61 Throw an error when a command is not allowed in the agenda. (defalias 'org-agenda-error #[0 "\300\301!\207" [user-error "Command not allowed in this line"] 2 (#$ . 330920)]) #@414 Show the subtree corresponding to the current entry in an indirect buffer. This calls the command `org-tree-to-indirect-buffer' from the original buffer. With a numerical prefix ARG, go up to this level and then take that tree. With a negative numeric ARG, go up by this number of levels. With a `\[universal-argument]' prefix, make a separate frame for this tree, i.e. don't use the dedicated frame. (fn ARG) (defalias 'org-agenda-tree-to-indirect-buffer #[257 "\203\304!\207\305 \306 \205\307 !C\310 \311\312\"\216\304!\210)\210\n\313=\204E\n\314=\204E\311\315\"\216\211\242\203>\316\242!\204D\211\317!\240\210)\320\307!!\210 \211\207" [current-prefix-arg org-last-indirect-buffer org-indirect-buffer-display org-agenda-last-indirect-buffer org-agenda-do-tree-to-indirect-buffer buffer-name selected-window get-buffer-window current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] new-frame dedicated-frame #[0 "\300\242\203\n\302\300\242!\210\303 \304\"\210\305\300\242!\207" [V0 org-last-indirect-buffer select-window switch-to-buffer :norecord fit-window-to-buffer] 3] window-live-p split-window select-window] 8 (#$ . 331101) "P"]) #@79 Same as `org-agenda-tree-to-indirect-buffer' without saving window. (fn ARG) (defalias 'org-agenda-do-tree-to-indirect-buffer #[257 "\300 \210\301\302\303 \"\262\206\304 \305!\306!rq\210\212\211b\210\307!*\207" [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] 6 (#$ . 332306)]) #@103 Marker pointing to the headline that last changed its TODO state by a remote command from the agenda. (defvar org-last-heading-marker (make-marker) (#$ . 332696)) #@37 Switch TODO entry to next sequence. (defalias 'org-agenda-todo-nextset #[0 "\300\301!\207" [org-agenda-todo nextset] 2 (#$ . 332865) nil]) #@41 Switch TODO entry to previous sequence. (defalias 'org-agenda-todo-previousset #[0 "\300\301!\207" [org-agenda-todo previousset] 2 (#$ . 333010) nil]) #@220 Cycle TODO state of line at point, also in Org file. This changes the line at point, all other lines in the agenda referring to the same tree node, and the headline of the tree node in the Org file. (fn &optional ARG) (defalias 'org-agenda-todo #[256 "\306 \210\307\310!\203\203\311 \203\312\313 \314 \315\316\211&\207i\317\320\321 \"\262\206,\322 \323!\324!\325\320\321 \"\262\326\327\320\321 \"\262!\330\316\211\316\211\211\212\211\203U\211b\210n\203]\331\202^\332\333\331`\"\\)\262\fp r q\210 )\316\211r\fq\210~\210 b\210\334\335!\2104\336\337!\2105\203\2306\340=\204\230\341 \210)n\203\240\331u\210\342 \262 \203\272  \232\204\272 \203\272 \262 \330\262\212\343 \2107`\316\223\210*\344\331!\210\345 \346\347\"\216\350\n \351\f$\210)\210\352\353!\203\365+\203\365\354\355\3568!P\n\"\210\357 \210\360!\210\361 \2109\205L\362rq\210 )\"\262\362rq\210 )\"\262\204\"\211\205L\203.rq\210\363 \210)\211\203;r\fq\210\363 \210)\257:B\211:\266\207+\207" [org-agenda-loop-over-headlines-in-active-region inhibit-read-only org-loop-over-headlines-in-active-region org-agenda-headline-snapshot-before-repeat this-command buffer-undo-list org-agenda-check-no-diary called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-todo nil org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position org-hd-marker org-agenda-today-p day t 1 0 count-lines org-show-context agenda call-interactively org-todo note org-add-log-note org-get-heading org-back-to-heading beginning-of-line current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-agenda-change-all-lines fixface boundp 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 current-prefix-arg org-log-setup org-log-note-how org-last-heading-marker org-done-keywords-for-agenda org-agenda-allow-remote-undo org-agenda-undo-list] 23 (#$ . 333168) "P"]) #@68 Add a time-stamped note to the entry at point. (fn &optional ARG) (defalias 'org-agenda-add-note #[256 "\301 \210\302\303\304 \"\262\206\305 \306!\307!\310\303\304 \"\266\311\312rq\210~\210b\210\313\314!\210\315 *\207" [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 nil t org-show-context agenda org-add-note] 8 (#$ . 335294) nil]) #@506 Change all lines in the agenda buffer which match HDMARKER. The new content of the line will be NEWHEAD (as modified by `org-agenda-format-item'). HDMARKER is checked with `equal' against all `org-hd-marker' text properties in the file. If FIXFACE is non-nil, the face of each item is modified according to the new TODO state. If JUST-THIS is non-nil, change just the current line, not all. If FORCE-TAGS is non-nil, the car of it returns the new tags. (fn NEWHEAD HDMARKER &optional FIXFACE JUST-THIS) (defalias 'org-agenda-change-all-lines #[1026 "\304\305\212\211\203 \211b\210n\203\306\202\307\310\306`\"\\)\262pr\311!q\210\312!)\305\211\211\211\211\211\211\211\211\211\212db\210\313\306!\210?\205\206o\262\314\315\316 \"\262\211\262\n\203\f\203u\305\212\211\203^\211b\210n\203f\306\202g\307\310\306`\"\\)\262\fU\203\232\203\317`!\262\n\320\315\316 \"\262\262\321\315\316 \"\262\262\322\315\316 \"\262\262\n\262\315dS`^\323\"\206\257\n\324\315\316 \"\262r\311!q\210\212\214~\210\325 &,\266\202\262\326\315\316 \"\262\262\327\315\316 \"\262\262\313\306!\210\330\232\203\376`\331\332!|\210\202t\333\334!\203p\3352,\336`\332`\\\"\211\205)\211@\337\340\"\341=\203\"\342\335\"\210A\266\202\202\2620\343\304\211#\210\313 \210\211\203B\344`\332`\\#\210\210\345\316 \346 \f#\210 \203e\345\316 \346 \347 \203` \202b\nD#\210\350\351!\210\313\306!\210\202t\352\353!\210\214\316 \346 }\210\354 \210)\313\307!\210\202:+\207" [inhibit-read-only org-agenda-buffer org-prefix-format-compiled org-last-todo-state-is-todo t nil 1 0 count-lines marker-buffer org-get-tags beginning-of-line org-hd-marker get-text-property point-at-bol text-properties-at dotime org-category level format extra org-agenda-format-item 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 point-at-eol face org-agenda-highlight-todo line error "Line update did not work" org-agenda-finalize] 25 (#$ . 335746)]) #@159 Align all tags in agenda items to `org-agenda-tags-column'. When optional argument LINE is non-nil, align tags only on the current line. (fn &optional LINE) (defalias 'org-agenda-align-tags #[256 "\303\304=\203 \305 [\202\205\306 \307\211\212\203$\310 \202%eb\210\311\n\303#\203\226\312\313\224\313\225\314\315\307\316\313\224\314\"\211<\204E\211C\262\317>\203O\211\202R\317B\262\"D#\210\320\321\313!!\262\322W\203m\323!Z\202n\262\313\224b\210\212\324\307x\210`)`|\210\325\326\313iZ]\327\"\330\331\332`!!\314\307#\"c\210\202'eb\210\333d!+\207" [org-agenda-tags-column inhibit-read-only org-tag-group-re t auto window-text-width line-end-position nil line-beginning-position re-search-forward add-text-properties 1 face delq get-text-property org-tag string-width match-string 0 abs " " org-add-props make-string 32 plist-put copy-sequence text-properties-at org-font-lock-add-tag-faces] 15 (#$ . 337855)]) #@59 Increase the priority of line at point, also in Org file. (defalias 'org-agenda-priority-up #[0 "\300\301!\207" [org-agenda-priority up] 2 (#$ . 338803) nil]) #@59 Decrease the priority of line at point, also in Org file. (defalias 'org-agenda-priority-down #[0 "\300\301!\207" [org-agenda-priority down] 2 (#$ . 338968) nil]) #@403 Set the priority of line at point, also in Org file. This changes the line at point, all other lines in the agenda referring to the same tree node, and the headline of the tree node in the Org file. Called with one universal prefix arg, show the priority instead of setting it. When called programmatically, FORCE-DIRECTION can be `set', `up', `down', or a character. (fn &optional FORCE-DIRECTION) (defalias 'org-agenda-priority #[256 "\204\306\307!\210\310 \210i\311\312\313 \"\262\314!\315!\316\317\211\212\211\203&\211b\210n\203.\320\202/\321\322\320`\"\\)\262\np rq\210 )\317\211r q\210~\210b\210\323\324!\210\325 !\210\320\210\326 \262)\327\f\"\210\330\f!\210\f\205\267\331rq\210 )\"\262\331r q\210 )\"\262\204\217\211\205\267\203\233rq\210\332 \210)\211\203\250r q\210\332 \210) \257 B\211\266\207)\207" [org-priority-enable-commands inhibit-read-only this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list user-error "Priority commands are disabled" org-agenda-check-no-diary org-hd-marker get-text-property point-at-bol 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] 19 (#$ . 339138) "P"]) #@62 Set tags for the current headline. (fn &optional TAG ONOFF) (defalias 'org-agenda-set-tags #[512 "\305 \210\306 \203\307\310!\203\311\312!\207\313\314\315 \"\262\206\316 \317!\320!\321\322\211\212\211\2031\211b\210n\2039\323\202:\324\325\323`\"\\)\262 p\nrq\210\n)\322\211r q\210~\210b\210\326\327!\210\f\203l\330  \"\210\202p\311\331!\210\323\210\332 \262)\333\f\"\210\334\323!\210 \205\317\335rq\210\n)\"\262\335r q\210\n)\"\262\204\247\211\205\317\203\263rq\210\336 \210)\211\203\300r q\210\336 \210) \257\fB\211\266\207)\207" [inhibit-read-only this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list 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-command org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary] 19 (#$ . 340468) nil]) #@42 Set a property for the current headline. (defalias 'org-agenda-set-property #[0 "\306 \210\307\310!\203\203\311 \203\312\313 \314 \315\316\211\211&\207\317\320\321 \"\262\206+\322 \323!\324!\325\316\212\211\203<\211b\210n\203D\326\202E\327\330\326`\"\\)\262\np rq\210 )\316\211rq\210~\210b\210\331\332!\210\333\334!\210)\f\205\270\335rq\210 )\"\262\335r\nq\210 )\"\262\204\220\211\205\270\203\234rq\210\336 \210)\211\203\251rq\210\336 \210)\f\257 B\211\266\207)\207" [org-agenda-loop-over-headlines-in-active-region inhibit-read-only this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list org-agenda-check-no-diary called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-set-property nil org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position t 1 0 count-lines org-show-context agenda call-interactively org-set-property org-verify-change-for-undo undo-boundary] 16 (#$ . 341578) nil]) #@51 Set the effort property for the current headline. (defalias 'org-agenda-set-effort #[0 "\306 \210\307\310!\203\203\311 \203\312\313 \314 \315\316\211\211&\207\317\320\321 \"\262\206+\322 \323!\324!\325\316\211\212\211\203=\211b\210n\203E\326\202F\327\330\326`\"\\)\262\np rq\210 )\316\211r q\210~\210b\210\331\332!\210\333\334!\210\326\210\335 \262)\336\f\"\210\f\205\310\337rq\210 )\"\262\337r q\210 )\"\262\204\240\211\205\310\203\254rq\210\340 \210)\211\203\271r q\210\340 \210) \257 B\211\266\207)\207" [org-agenda-loop-over-headlines-in-active-region inhibit-read-only this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list org-agenda-check-no-diary called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-set-effort nil org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position t 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] 17 (#$ . 342636) nil]) #@47 Toggle the archive tag for the current entry. (defalias 'org-agenda-toggle-archive-tag #[0 "\306 \210\307\310!\203\203\311 \203\312\313 \314 \315\316\211\211&\207\317\320\321 \"\262\206+\322 \323!\324!\325\316\211\212\211\203=\211b\210n\203E\326\202F\327\330\326`\"\\)\262\np rq\210 )\316\211r q\210~\210b\210\331\332!\210\333\334!\210\326\210\335 \262)\336\f\"\210\337\326!\210\f\205\314\340rq\210 )\"\262\340r q\210 )\"\262\204\244\211\205\314\203\260rq\210\341 \210)\211\203\275r q\210\341 \210) \257 B\211\266\207)\207" [org-agenda-loop-over-headlines-in-active-region inhibit-read-only this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list org-agenda-check-no-diary called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-toggle-archive-tag nil org-hd-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position t 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] 17 (#$ . 343778) nil]) #@12 (fn ARG) (defalias 'org-agenda-do-date-later #[257 "\211\302\232\204\f\303>\203\304\211\305!\207\211\306\232\204\307>\203$\310\211\305!\207\311\312!!\207" [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] 5 (#$ . 344971) "P"]) #@12 (fn ARG) (defalias 'org-agenda-do-date-earlier #[257 "\211\302\232\204\f\303>\203\304\211\305!\207\211\306\232\204\307>\203$\310\211\305!\207\311\312!!\207" [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] 5 (#$ . 345431) "P"]) #@76 Change the date of this item to ARG day(s) later. (fn ARG &optional WHAT) (defalias 'org-agenda-date-later #[513 "\306\307\310\"\210\311 \210\312\313\314 \"\262\206\315 \316!\317!\320\211\211\212\211\203&\211b\210n\203.\321\202/\322\323\321`\"\\)\262p rq\210 )\320\211r\nq\210~\210 b\210\324\325!\204X\326\327!\210\n\203\373 \321=\203\373\f\203o\f\330=\203\373\331 \332\333\"\216\334 )\262\204\373\335\336\322!\337\"\262 \340 8\341\n8\342 8E\211\3438\262\320\322U\203\250\344\345!\266\203\202\346\322V\203S\262\346\211\211@\262\211A@\262\3438\262\347S_\\\343V\203 \211\350\340_\\\351\245Z\262\211\322W\203\352\352!S\262\211\340\246\322U\205\211\353\246\322U?\206\211\354\246\322U\262\203 \211T\262\266\204\355_\340\245\353\245[\354\245%\266\203\202\346\352T!\262\356\211\211@\262\211A@\262\3438\262\347S_\\\343V\203{\211\350\340_\\\351\245Z\262\211\322W\203\\\352!S\262\211\340\246\322U\205r\211\353\246\322U?\206r\211\354\246\322U\262\203{\211T\262\266\204\355_\340\245\353\245[\354\245\357\211\211@\262\211A@\262\3438\262\347S_\\\343V\203\340\211\350\340_\\\351\245Z\262\211\322W\203\301\352!S\262\211\340\246\322U\205\327\211\353\246\322U?\206\327\211\354\246\322U\262\203\340\211T\262\266\204&\266\203\262 \360 \262 V\203\373 Z\262\361\206\330\"\210\334 \203%\362 \314 \"\203%\f\361\206\330\"\210\f\363Q\210)\364\f\f\"\210 \203y\365rq\210 )\"\262\365r\fq\210 )\"\262\204P\211\203y\203\\rq\210\366 \210)\211\203ir\nq\210\366 \210)\2579B9\266\367\370\f\"\207" [this-command buffer-undo-list org-agenda-move-date-from-past-immediately-to-today org-tr-regexp-both org-last-changed-timestamp org-agenda-allow-remote-undo 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 make-closure #[0 "\301\300\302\"\207" [V0 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" org-agenda-undo-list] 32 (#$ . 345899) "p"]) #@78 Change the date of this item to ARG day(s) earlier. (fn ARG &optional WHAT) (defalias 'org-agenda-date-earlier #[513 "\300[\"\207" [org-agenda-date-later] 5 (#$ . 348358) "p"]) #@88 Change the time of this item, in units of `org-time-stamp-rounding-minutes'. (fn ARG) (defalias 'org-agenda-date-later-minutes #[257 "\211A@_\262\301\302\"\207" [org-time-stamp-rounding-minutes org-agenda-date-later minute] 4 (#$ . 348544) "p"]) #@88 Change the time of this item, in units of `org-time-stamp-rounding-minutes'. (fn ARG) (defalias 'org-agenda-date-earlier-minutes #[257 "\211A@_\262\301\302\"\207" [org-time-stamp-rounding-minutes org-agenda-date-earlier minute] 4 (#$ . 348800) "p"]) #@56 Change the time of this item, in hour steps. (fn ARG) (defalias 'org-agenda-date-later-hours #[257 "\300\301\"\207" [org-agenda-date-later hour] 4 (#$ . 349060) "p"]) #@56 Change the time of this item, in hour steps. (fn ARG) (defalias 'org-agenda-date-earlier-hours #[257 "\300\301\"\207" [org-agenda-date-earlier hour] 4 (#$ . 349235) "p"]) #@78 Show new date stamp via text properties. (fn MARKER STAMP &optional PREFIX) (defalias 'org-agenda-show-new-time #[770 "\301\211\302\303R\262\212db\210o?\205[\304\305\306 \"\262\232\203T\307\310 \311 \312#\210\313\314\315!\2038\316\317\301\"\315 \245\202:\316 GZ\301\"\210\320`S\321 \322\323\317\324\325$D#\210\326\327!\210\326\330!\210\202 *\207" [inhibit-read-only t " => " " " org-marker get-text-property point-at-bol remove-text-properties line-beginning-position line-end-position (display nil) org-move-to-column fboundp window-font-width window-width nil add-text-properties point-at-eol display org-add-props face (secondary-selection default) beginning-of-line 1 0] 12 (#$ . 349414)]) #@216 Change the date of this item. Date is prompted for, with default today. The prefix ARG is passed to the `org-time-stamp' command and can therefore be used to request time specification in the time stamp. (fn ARG) (defalias 'org-agenda-date-prompt #[257 "\306\307\310\"\210\311 \210\312\313!\203#\203#\314 \203#\315\316 \317 \320\307\321&\207\322\323\324 \"\262\2060\325 \326!\327!\321\212\211\203?\211b\210n\203G\330\202H\331\332\330`\"\\)\262 p\nrq\210\n)\321\211rq\210~\210b\210\333\334!\204p\335\336!\210\337 \331\224f\340=\"\210)\341\n \"\210\f\203\314\342rq\210\n)\"\262\342r\nq\210\n)\"\262\204\245\211\203\314\203\261rq\210\343 \210)\211\203\276rq\210\343 \210)\f\257 B\266\344\345 \"\207" [org-agenda-loop-over-headlines-in-active-region this-command buffer-undo-list org-last-changed-timestamp org-agenda-allow-remote-undo org-agenda-undo-list org-agenda-check-type t agenda org-agenda-check-no-diary called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-date-prompt nil org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position 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"] 17 (#$ . 350130) "P"]) #@95 Schedule the item at point. ARG is passed through to `org-schedule'. (fn ARG &optional TIME) (defalias 'org-agenda-schedule #[513 "\305\306\307\310\311\312%\210\313 \210\314\315!\203&\203&\316 \203&\317\320 \321 \322\306\323&\207\324\325\326 \"\262\2063\327 \330!\331!\323\332\306\"\210\323\212\211\203H\211b\210n\203P\333\202Q\334\335\333`\"\\)\262 p\nrq\210\n)\323\211r q\210~\210b\210\336  \"\262)\337  \340#\210 \203\314\341rq\210\n)\"\262\341r q\210\n)\"\262\204\245\211\203\314\203\261rq\210\342 \210)\211\203\276r q\210\342 \210) \257\fB\266\343\344\"\207" [org-agenda-loop-over-headlines-in-active-region this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list org-agenda-check-type t agenda todo tags search org-agenda-check-no-diary called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-schedule nil org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position 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"] 19 (#$ . 351527) "P"]) #@95 Schedule the item at point. ARG is passed through to `org-deadline'. (fn ARG &optional TIME) (defalias 'org-agenda-deadline #[513 "\305\306\307\310\311\312%\210\313 \210\314\315!\203&\203&\316 \203&\317\320 \321 \322\306\323&\207\324\325\326 \"\262\2063\327 \330!\331!\323\211\212\211\203C\211b\210n\203K\332\202L\333\334\332`\"\\)\262 p\nrq\210\n)\323\211r q\210~\210b\210\335  \"\262)\336  \337#\210 \203\307\340rq\210\n)\"\262\340r q\210\n)\"\262\204\240\211\203\307\203\254rq\210\341 \210)\211\203\271r q\210\341 \210) \257\fB\266\342\343\"\207" [org-agenda-loop-over-headlines-in-active-region this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list org-agenda-check-type t agenda todo tags search org-agenda-check-no-diary called-interactively-p any org-region-active-p org-agenda-do-in-region region-beginning region-end org-agenda-deadline nil org-marker get-text-property point-at-bol org-agenda-error marker-buffer marker-position 1 0 count-lines org-deadline org-agenda-show-new-time " D" org-verify-change-for-undo undo-boundary message "%s"] 19 (#$ . 352730) "P"]) #@69 Start the clock on the currently selected item. (fn &optional ARG) (defalias 'org-agenda-clock-in #[256 "\304 \210\211\305\232\203 \306!\207\307\310\311 \"\262\206\312 \313\310\311 \"\262\206&\211\314!i\315\211\212\211\2034\211b\210n\203<\316\202=\317\320\316`\"\\)\262p\321! r\321\n!q\210 )\315\211r\321 !q\210~\210\nb\210\322\323!\210\306!\210\324 \262 )\325  \"\210\n\203\304\326rq\210 )\"\262\326rq\210 )\"\262\204\235\211\203\304\203\251rq\210\327 \210)\211\203\265rq\210\327 \210)\257 B\266\330!\207" [this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list 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-get-heading org-agenda-change-all-lines org-verify-change-for-undo undo-boundary org-move-to-column] 20 (#$ . 353892) "P"]) #@35 Stop the currently running clock. (defalias 'org-agenda-clock-out #[0 "\305!\204\n\306\307!\210\310 i\311\211\212\211\203\211b\210n\203\312\202 \313\314\312`\"\\)\262 p\305!\nr\305!q\210\n)\311\211r\305!q\210\212\214~\210b\210\315\316!\210\n`\311\223\210\317 \210\320 \262 + \203\242\321rq\210\n)\"\262\321rq\210\n)\"\262\204{\211\203\242\203\207rq\210\322 \210)\211\203\223rq\210\322 \210)\257\fB\266\323\"\210\311\211\223\210\324!\210\325 \207" [org-clock-marker this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list marker-buffer user-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] 17 (#$ . 354860) nil]) #@57 Cancel the currently running clock. (fn &optional ARG) (defalias 'org-agenda-clock-cancel #[256 "\305!\204\n\306\307!\210\310\212\211\203\211b\210n\203\311\202\312\313\311`\"\\)\262 p\305!\nr\305!q\210\n)\310\211\314 \210 \205\203\315rq\210\n)\"\262\315rq\210\n)\"\262\204[\211\205\203\203grq\210\316 \210)\211\203srq\210\316 \210)\257\fB\211\207" [org-clock-marker this-command buffer-undo-list org-agenda-allow-remote-undo org-agenda-undo-list marker-buffer user-error "No running clock" nil 1 0 count-lines org-clock-cancel org-verify-change-for-undo undo-boundary] 15 (#$ . 355730) nil]) #@157 Jump to the currently clocked in task within the agenda. If the currently clocked in task is not listed in the agenda buffer, display it in another window. (defalias 'org-agenda-clock-goto #[0 "\301C\302\303\304\"\305ed\"\"\210\211\242\203\211\242b\207\306\300!\203%\203%\307\310 !\207\311\312!\207" [org-clock-current-task nil mapc make-closure #[257 "\301\302\"\303=\205\300\304!\240\207" [V0 overlay-get type org-agenda-clocking overlay-start] 4 "\n\n(fn O)"] 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"] 6 (#$ . 356370) nil]) #@57 Make a diary entry in the file `org-agenda-diary-file'. (defalias 'org-agenda-diary-entry-in-org-file #[0 "\303\211\211\304\303\211\305 \306\232\203\307\310!\262@\262\202U\311\312 \313\"\262\204(\314\315!\210\316!\262\31717\320 0\202<\210\303\202S\205S\212\320 b\210\311\312 \313\"\211\262)\205S\316!\262\321\322!\210\323 \262\324\267\202\342\325\326!\262\327\313#\210\305 \232\205\346\330 \207@A@\331\332\333\334 8\"\334\n8\"E\262\325\335!\262\327\336#\210\305 \232\205\346\330 \207\325\337!\262\203\270\203\270\232\203\274\314\340!\210\327\341$\210\305 \232\205\346\330 \207\342\343\n!!\210\344\345!\210\346!\210\347\310!\207\314\350\"\207" [calendar-mark-ring org-agenda-buffer-name org-agenda-diary-file 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 eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (100 99 97 121 98 165 106 207)) 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'"] 13 (#$ . 357017)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\315\316\310\317& \210\300\320\302\303\321DD\322\306\307\315\316\310\323& \207" [custom-declare-variable org-agenda-insert-diary-strategy funcall function #[0 "\300\207" [date-tree] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "Non-nil means extract any time specification from the diary entry." :version "24.1" boolean org-agenda-bulk-mark-char #[0 "\300\207" [">"] 1 #1#] "A single-character string to be used as the bulk mark." string] 10) #@296 Add a diary entry with TYPE to `org-agenda-diary-file'. If TEXT is not empty, it will become the headline of the new entry, and the resulting entry will not be shown. When TEXT is empty, switch to `org-agenda-diary-file' and let the user finish the entry there. (fn TYPE TEXT &optional D1 D2) (defalias 'org-agenda-add-entry-to-org-agenda-diary-file #[1026 "\305 \306\307!!\210~\210eb\210\310\267\202\311\312\313\314#\204+\315\314!\204+\316 \210\317c\210\320\321!\210\316 \210\322 \210\321u\210\323c\210\324\325\3268@A@%c\210\202\220\314\211\313\211\211 \203\201\327\313\n\313\211\211\314&\262\330\331\332#\262G\331V\205x\333\334\335\"@P\262\330\331\336#\262 \f\337=\203\217\340 !\210\202\235\341\342!\210\343!\210\344 !\210\345\346 \211\3268\262\313\331U\203\266\347\350!\266\203\202\364\331V\203,S\262\351\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\211\353\354_\\\355\245Z\262\211\331W\203\370\356!S\262\211\354\246\331U\205\211\357\246\331U?\206\211\360\246\331U\262\203\211T\262\266\204\361_\354\245\357\245[\360\245%\266\203\202\364\356T!\262\362\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\211\211\353\354_\\\355\245Z\262\211\331W\203j\356!S\262\211\354\246\331U\205\200\211\357\246\331U?\206\200\211\360\246\331U\262\203\211\211T\262\266\204\361_\354\245\357\245[\360\245\363\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\356\211\353\354_\\\355\245Z\262\211\331W\203\317\356!S\262\211\354\246\331U\205\345\211\357\246\331U?\206\345\211\360\246\331U\262\203\356\211T\262\266\204&\266\203!\313\211\211\211&\210*\266\331\210\202\220\364=\203\220\211\3268\262\313\331U\203#\347\350!\266\203\202a\331V\203\231S\262\351\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\204\211\353\354_\\\355\245Z\262\211\331W\203e\356!S\262\211\354\246\331U\205{\211\357\246\331U?\206{\211\360\246\331U\262\203\204\211T\262\266\204\361_\354\245\357\245[\360\245%\266\203\202a\356T!\262\362\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\366\211\353\354_\\\355\245Z\262\211\331W\203\327\356!S\262\211\354\246\331U\205\355\211\357\246\331U?\206\355\211\360\246\331U\262\203\366\211T\262\266\204\361_\354\245\357\245[\360\245\363\211\211@\262\211A@\262\3268\262\352S_\\\326V\203[\211\353\354_\\\355\245Z\262\211\331W\203<\356!S\262\211\354\246\331U\205R\211\357\246\331U?\206R\211\360\246\331U\262\203[\211T\262\266\204&\266\203\211\3268\262\313\331U\203w\347\350!\266\203\202\265\331V\203\355S\262\351\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\330\211\353\354_\\\355\245Z\262\211\331W\203\271\356!S\262\211\354\246\331U\205\317\211\357\246\331U?\206\317\211\360\246\331U\262\203\330\211T\262\266\204\361_\354\245\357\245[\360\245%\266\203\202\265\356T!\262\362\211\211@\262\211A@\262\3268\262\352S_\\\326V\203J\211\353\354_\\\355\245Z\262\211\331W\203+\356!S\262\211\354\246\331U\205A\211\357\246\331U?\206A\211\360\246\331U\262\203J\211T\262\266\204\361_\354\245\357\245[\360\245\363\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\257\211\353\354_\\\355\245Z\262\211\331W\203\220\356!S\262\211\354\246\331U\205\246\211\357\246\331U?\206\246\211\360\246\331U\262\203\257\211T\262\266\204&\266\203V\203\277\262\262\f\337=\203\314\340!\210\202\330\341\342!\210\343!\210\344!\210\345\346\211\3268\262\313\331U\203\360\347\350!\266\203\202.\331V\203fS\262\351\211\211@\262\211A@\262\3268\262\352S_\\\326V\203Q\211\353\354_\\\355\245Z\262\211\331W\2032\356!S\262\211\354\246\331U\205H\211\357\246\331U?\206H\211\360\246\331U\262\203Q\211T\262\266\204\361_\354\245\357\245[\360\245%\266\203\202.\356T!\262\362\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\303\211\353\354_\\\355\245Z\262\211\331W\203\244\356!S\262\211\354\246\331U\205\272\211\357\246\331U?\206\272\211\360\246\331U\262\203\303\211T\262\266\204\361_\354\245\357\245[\360\245\363\211\211@\262\211A@\262\3268\262\352S_\\\326V\203(\211\353\354_\\\355\245Z\262\211\331W\203 \356!S\262\211\354\246\331U\205\211\357\246\331U?\206\211\360\246\331U\262\203(\211T\262\266\204&\266\203!!\210\365c\210\345\346\211\3268\262\313\331U\203L\347\350!\266\203\202\212\331V\203\302S\262\351\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\255\211\353\354_\\\355\245Z\262\211\331W\203\216\356!S\262\211\354\246\331U\205\244\211\357\246\331U?\206\244\211\360\246\331U\262\203\255\211T\262\266\204\361_\354\245\357\245[\360\245%\266\203\202\212\356T!\262\362\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\211\353\354_\\\355\245Z\262\211\331W\203\356!S\262\211\354\246\331U\205\211\357\246\331U?\206\211\360\246\331U\262\203\211T\262\266\204\361_\354\245\357\245[\360\245\363\211\211@\262\211A@\262\3268\262\352S_\\\326V\203\204\211\353\354_\\\355\245Z\262\211\331W\203e\356!S\262\211\354\246\331U\205{\211\357\246\331U?\206{\211\360\246\331U\262\203\204\211T\262\266\204&\266\203!!\210\331\210\366\367\"\203\250\370!\210\371\372\373\374!!\375!#\207\376\314!\210\371\377!\207" [org-agenda-diary-file org-agenda-time-leading-zero org-prefix-has-time org-agenda-insert-diary-extract-time org-agenda-insert-diary-strategy current-window-configuration org-switch-to-buffer-other-window find-file-noselect #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (anniversary 19 day 74)) 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) block "--" string-match "\\S-" set-window-configuration message "%s entry added to %s" capitalize symbol-name abbreviate-file-name org-reveal "Please finish entry here"] 30 (#$ . 359606)]) #@177 Make new entry as a top-level entry at the end of the file. Add TEXT as headline, and position the cursor in the second line so that a timestamp can be added there. (fn TEXT) (defalias 'org-agenda-insert-diary-as-top-level #[257 "~\210db\210n\204\f\301c\210\302\303\304\211#\210\211c\210\305 \210n\204\301c\210\205%\306j\207" [org-adapt-indentation "\n" org-insert-heading nil t org-end-of-meta-data 2] 5 (#$ . 366032)]) #@166 Make a new entry with TEXT as a child of the current subtree. Position the point in the heading's first body line so that a timestamp can be added there. (fn TEXT) (defalias 'org-agenda-insert-diary-make-new-entry #[257 "\303=\203\304\210\305\306\307\"\210\310 \210\202-\311 \210\312 \210\313\314!\204%\212\315c\210)\305\304\307\"\210\310 \210ic\210\316 \210n\204;\315c\210\317\307\313!)\262\204L\212\315c\210)\n\203S\211j\210\210\320\321!\207" [org-agenda-insert-diary-strategy inhibit-changing-match-data org-adapt-indentation date-tree-last 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] 5 (#$ . 366466)]) #@250 Make a diary entry, like the `i' command from the calendar. All the standard commands work: block, weekly etc. When `org-agenda-diary-file' points to a file, `org-agenda-diary-entry-in-org-file' is called instead to create entries in that Org file. (defalias 'org-agenda-diary-entry #[0 "\302=\204 \303 \207\304\305!\210\306\307!\310\311\"A\312K`\313\314!\206`\204)\315\316\"\210\317\320\"\203=\321=\203A\317\320\"\204A\315\322!\210\323\317\320\"\206M\317\320\"!C\324\325\"\216\312\324\326\"M\210\327!*\207" [org-agenda-diary-file calendar-mark-ring diary-file org-agenda-diary-entry-in-org-file require diary-lib read-char-exclusive "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic" 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 mark 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 make-closure #[0 "\301\300M\207" [V0 calendar-cursor-to-date] 2] #[512 "\301\302\300\303\"!\207" [V0 calendar-gregorian-from-absolute get-text-property day] 6 "\n\n(fn &optional ERROR DUMMY)"] call-interactively] 9 (#$ . 367228) nil]) #@77 Execute a calendar command from the agenda with date from cursor. (fn CMD) (defalias 'org-agenda-execute-calendar-command #[257 "\302\303\304\"\210\305\306!\210\307dS`^\310\"\204\311\312!\210\313K`\314\307\310\"!\211@\3158\316\317\"\216\313\316\320\"M\210\321!+\207" [displayed-month displayed-year 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 make-closure #[0 "\301\300M\207" [V0 calendar-cursor-to-date] 2] #[512 "\301\302\300\303\"!\207" [V0 calendar-gregorian-from-absolute get-text-property day] 6 "\n\n(fn &optional ERROR DUMMY)"] call-interactively] 8 (#$ . 368627)]) #@73 Display the phases of the moon for the 3 months around the cursor date. (defalias 'org-agenda-phases-of-moon #[0 "\300\301!\207" [org-agenda-execute-calendar-command calendar-lunar-phases] 2 (#$ . 369370) nil]) #@63 Display the holidays for the 3 months around the cursor date. (defalias 'org-agenda-holidays #[0 "\300\301!\207" [org-agenda-execute-calendar-command calendar-list-holidays] 2 (#$ . 369587) nil]) #@244 Display sunrise and sunset for the cursor date. Latitude and longitude can be specified with the variables `calendar-latitude' and `calendar-longitude'. When called with prefix argument, latitude and longitude will be prompted for. (fn ARG) (defalias 'org-agenda-sunrise-sunset #[257 "\303\304!\210\211?\205\n?\205 \203\305\202\n\306\307!+\207" [calendar-longitude calendar-latitude calendar-location-name require solar "the given coordinates" org-agenda-execute-calendar-command calendar-sunrise-sunset] 4 (#$ . 369790) "P"]) #@54 Open the Emacs calendar with the date at the cursor. (defalias 'org-agenda-goto-calendar #[0 "\303\304\305\"\210\306dS`^\307\"\206\310\311!\312!\313\211\313\314 \210\315!+\207" [calendar-move-hook calendar-view-holidays-initially-flag calendar-view-diary-initially-flag org-agenda-check-type t agenda get-text-property day user-error "Don't know which date to open in calendar" calendar-gregorian-from-absolute nil calendar calendar-goto-date] 5 (#$ . 370338) nil]) #@138 Compute the Org agenda for the calendar date displayed at the cursor. This is a command that has to be installed in `calendar-mode-map'. (defalias 'org-calendar-goto-agenda #[0 "\302\303\304\303\305 \211\3068\262\303\307U\203\310\311!\266\203\202[\307V\203\223S\262\312\211\211@\262\211A@\262\3068\262\313S_\\\306V\203~\211\314\315_\\\316\245Z\262\211\307W\203_\317!S\262\211\315\246\307U\205u\211\320\246\307U?\206u\211\321\246\307U\262\203~\211T\262\266\204\322_\315\245\320\245[\321\245%\266\203\202[\317T!\262\323\211\211@\262\211A@\262\3068\262\313S_\\\306V\203\360\211\314\315_\\\316\245Z\262\211\307W\203\321\317!S\262\211\315\246\307U\205\347\211\320\246\307U?\206\347\211\321\246\307U\262\203\360\211T\262\266\204\322_\315\245\320\245[\321\245\324\211\211@\262\211A@\262\3068\262\313S_\\\306V\203U\211\314\315_\\\316\245Z\262\211\307W\2036\317!S\262\211\315\246\307U\205L\211\320\246\307U?\206L\211\321\246\307U\262\203U\211T\262\266\204&\266\203\303#*\207" [org-agenda-sticky org-agenda-buffer-tmp-name "*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)] 20 (#$ . 370818) nil]) (defalias 'org-agenda-convert-date #[0 "\306\307\310\"\210\311dS`^\312\"\313\211\204\314\315!\210\316!\262\317\320!\321\322!\323\324!\325\326 !\327\330 !\331\332 !\333\334!\335\336!\337\340!\341\342!\343\344!\345\346!\347\350!\351\352!\353\260\262r\354\355!q\210p\356 \210\313\211\307\211\307\357 \210\360\361!\210+\2116\362!\210\363!\210)\266\364\365\355!!\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only org-agenda-check-type t agenda get-text-property day nil user-error "Don't know which date to convert" calendar-gregorian-from-absolute "Gregorian: " calendar-date-string "\nISO: " calendar-iso-date-string "\nDay of Yr: " calendar-day-of-year-string "\nJulian: " calendar-julian-date-string "\nAstron. JD: " calendar-astro-date-string " (Julian date number at noon UTC)\nHebrew: " calendar-hebrew-date-string " (until sunset)\nIslamic: " calendar-islamic-date-string " (until sunset)\nFrench: " calendar-french-date-string "\nBahá’í: " calendar-bahai-date-string " (until sunset)\nMayan: " calendar-mayan-date-string "\nCoptic: " calendar-coptic-date-string "\nEthiopic: " calendar-ethiopic-date-string "\nPersian: " calendar-persian-date-string "\nChinese: " calendar-chinese-date-string "\n" 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 standard-output] 33 nil nil]) #@55 Non-nil when current entry is marked for bulk action. (defalias 'org-agenda-bulk-marked-p #[0 "\300\301 \302\"\303=\207" [get-char-property point-at-bol type org-marked-entry-overlay] 3 (#$ . 373671)]) #@265 Mark entries for future bulk action. When ARG is nil or one and region is not active then mark the entry at point. When ARG is nil or one and region is active then mark the entries in the region. When ARG is greater than one mark ARG lines. (fn &optional ARG) (defalias 'org-agenda-bulk-mark #[256 "\211\203\n\211\302U\203\303 \203\304\305 \306 \"\262\305 b\210\307 \210\211\206#\302\310\211W\203\242\311\312\313\314 \"\262\204\232\315\313\314 \"\262\311\316 \204k\204L\317\320!\210B\321\314 \322\314 \\\"\262\323 \324P\325\326!\327$\210\330\331\332#\210\302\210\3331{\334`\315\"b0\202\210\202\202\204\206\335\322!\210\336`\337\"\203\230m\204\230\335\322!\210\202\206\266\210\211T\262\202$\266\340\341G\"\207" [org-agenda-bulk-marked-entries org-agenda-bulk-mark-char 1 use-region-p count-lines region-beginning region-end deactivate-mark 0 nil org-agenda-diary-link get-text-property point-at-bol org-hd-marker 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"] 11 (#$ . 373880) "p"]) #@49 Mark all entries for future agenda bulk action. (defalias 'org-agenda-bulk-mark-all #[0 "\300\301!\207" [org-agenda-bulk-mark-regexp "."] 2 (#$ . 375168) nil]) #@74 Mark entries matching REGEXP for future agenda bulk action. (fn REGEXP) (defalias 'org-agenda-bulk-mark-regexp #[257 "\301\302\212eb\210\303`\304\"b\210\305\302\306#\203H\307\301\224\310\"\211\262\203H\311`\312\"\203-\313\314!\210\202\f\302\306\315#)\266\203\203\fT\262\316\317!\210\202\f)?\205Q\320\321!\207" [inhibit-changing-match-data 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."] 10 (#$ . 375334) "sMark entries matching regexp: "]) #@71 Unmark the entry at point for future bulk action. (fn &optional ARG) (defalias 'org-agenda-bulk-unmark #[256 "\211\203\301 \207\302 \203T\303\304 \305\304 \\\"\210\306\307\310\304 \"\262\"\311\210\31211\313`\314\"b0\2025\210\2028\204<\315\305!\210\316`\317\"\203Nm\204N\315\305!\210\202<\320\321G\"\207\320\322!\207" [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"] 6 (#$ . 375984) "P"]) #@35 Toggle all marks for bulk action. (defalias 'org-agenda-bulk-toggle-all #[0 "\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 (#$ . 376680) nil]) #@43 Toggle the mark at point for bulk action. (defalias 'org-agenda-bulk-toggle #[0 "\300 \203\301 \207\302 \207" [org-agenda-bulk-marked-p org-agenda-bulk-unmark org-agenda-bulk-mark] 1 (#$ . 376942) nil]) #@249 Remove the mark overlays between BEG and END in the agenda buffer. BEG and END default to the buffer limits. This only removes the overlays, it does not remove the markers from the list in `org-agenda-bulk-marked-entries'. (fn &optional BEG END) (defalias 'org-agenda-bulk-remove-overlays #[512 "\300\301\302\206e\206 d\"\"\207" [mapc #[257 "\300\301\"\302=\205\f\303!\207" [overlay-get type org-marked-entry-overlay delete-overlay] 4 "\n\n(fn OV)"] overlays-in] 7 (#$ . 377154) nil]) #@87 Remove all marks in the agenda buffer. This will remove the markers and the overlays. (defalias 'org-agenda-bulk-unmark-all #[0 "\204\301\302!\207\303\304ed\"\207" [org-agenda-bulk-marked-entries message "No entry to unmark" nil org-agenda-bulk-remove-overlays] 3 (#$ . 377655) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\312\317\310\320\321\322\306\307& \207" [custom-declare-variable org-agenda-persistent-marks funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means marked items will stay marked after a bulk action.\nYou can toggle this interactively by typing `p' when prompted for a\nbulk action." :group org-agenda :version "24.1" :type boolean org-agenda-loop-over-headlines-in-active-region #[0 "\300\207" [t] 1 #1#] "Shall some commands act upon headlines in the active region?\n\nWhen set to t, some commands will be performed in all headlines\nwithin the active region.\n\nWhen set to `start-level', some commands will be performed in all\nheadlines within the active region, provided that these headlines\nare of the same level than the first one.\n\nWhen set to a regular expression, those commands will be\nperformed on the matching headlines within the active region.\n\nThe list of commands is: `org-agenda-schedule',\n`org-agenda-deadline', `org-agenda-date-prompt',\n`org-agenda-todo', `org-agenda-archive*', `org-agenda-kill'.\n\nSee `org-loop-over-headlines-in-active-region' for the equivalent\noption for Org buffers." (choice (const :tag "Don't loop" nil) (const :tag "All headlines in active region" t) (const :tag "In active region, headlines at the same level than the first one" start-level) (regexp :tag "Regular expression matcher")) "27.1" :package-version (Org . "9.4")] 12) #@138 Execute an remote-editing action on all marked entries. The prefix arg is passed through to the command if possible. (fn &optional ARG) (defalias 'org-agenda-bulk-action #[256 "\204 \212\306 \210)\211\2036\211@\307!\203*\310!\203*\311\310!!\203*\312!\204/\313\314\"\210A\266\202\202\n\210\315\316 \203A\317\202B\320\321\n\205O\322\323\324\325\n\317#\"R!\210\3262\262 \205[\327\330!\331`\332\"\205h\333 \334\211\335 \211\336\267\202\263 ?\337 \210\340\326\334\"\210)\210\202 \266\341\202 \266\342\202 \343\344\310@! #\3458\203\274\345\233\346 \3458\347A@!\206\271\350A@!\206\271\351\352!\223\240\210\353\354\"\262\355\262\266\202 \356\357r\310@!q\210\360\361@\")\"\353\362\"\266\203\202 \211\356\322\363\364=\203\362\365\202\363\366\"r\310@!q\210\367\334\360\370A\"\")\"\353\371#\266\204\202 \211\372=\211\203\373\202\374?\205C\375\334\211\211\f%\376B\334\355C\377#)\266\203\203@B\202A\211\262\203T\353\201H #\266\205\202 \353\201I #\266\205\202 \201J\334\201K\201L#\204w\313\201MD\"\210\201N\322\201O\203\211\201P\202\212\317\"\201Q\"\353\201R#\266\203\202 \201S\356\201TE\201U\355\334\211&!\266\202\202 \201V\n\"\211:\203\211\243\211:\203\211\242\243\211\204\323\266\202\202 \211:\203\373\211\242\243\211\204\357\201W\201X #\266\204\202 \313\201Y\"\266\204\202 \313\201Y\"\266\202\202 \313\201Y\"\262\202\313\201Y\"\262\262\355\262\210\201Z\201[\"\262\201\\\211\211\203t\211@\201]ed\201^$\211\204T\201_\201`\"\210T\262\210\202m\211b\210\334F \210)G\203h\201a \210T\262\210A\266\202\202/\210\203~\201b \210 \204\207\201c \210\201_\201d\201\\U\203\232\317\202\240\322\201e\" \204\250\317\202\253\201f$\266\202*\266\2030\207" [org-agenda-bulk-marked-entries org-agenda-persistent-marks org-agenda-bulk-custom-functions org-log-refile org-overriding-default-time org-refile-allow-creating-parent-nodes org-agenda-bulk-mark markerp marker-buffer buffer-live-p marker-position user-error "Marker %s for bulk command is invalid" org-unlogged-message "Bulk (" "" "don't " "[p]ersist marks): [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [d]eadline [r]efile [S]catter [f]unction " format " Custom: [%s]" mapconcat #[257 "\300@!\207" [char-to-string] 3 "\n\n(fn F)"] exit time reverse get-text-property org-agenda-date-header org-get-cursor-date nil read-char-exclusive #s(hash-table size 12 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (112 115 36 131 65 137 119 143 114 143 116 202 43 228 45 228 100 272 115 272 83 353 102 412)) org-agenda-bulk-action throw org-agenda-archive org-agenda-archive-to-archive-sibling org-refile-get-location "Refile to" 3 make-marker get-file-buffer find-buffer-visiting error "This should not happen" make-closure #[0 "\301\302\300\303#\207" [V0 org-agenda-refile nil t] 4] t completing-read "Todo state: " mapcar list #[0 "\303\304\305\300!*\207" [V0 org-inhibit-logging org-inhibit-blocking t note org-agenda-todo] 2] "Tag to %s: " 43 "add" "remove" delq #[257 "\211@;\205\211\207" [] 2 "\n\n(fn X)"] #[0 "\302\301\300\303=\203\f\304\202 \305\"\207" [V0 V1 org-agenda-set-tags 43 on off] 4] 115 "(Re)Schedule to" "(Re)Set Deadline to" org-read-date "\\`[ ]*\\+\\+" string-match org-todo-keywords-1 org-current-tag-alist org-read-date-final-answer inhibit-changing-match-data org-agenda-type obarray org-loop-over-headlines-in-active-region org-log-setup #[0 "\n\205\303\304\300\301\")\207" [V0 V1 org-log-reschedule time org-agenda-schedule] 3] #[0 "\n\205\303\304\300\301\")\207" [V0 V1 org-log-redeadline time org-agenda-deadline] 3] org-agenda-check-type agenda todo "Can't scatter tasks in \"%s\" agenda view" read-number "Scatter tasks across how many %sdays: " "week" 7 #[0 "\303\301!T\300\203J\211\304\305\306 !!T\307\211W\203H\310\n\235\2033T\262T\262\311U\203\307\262\202T\262\311U\203@\307\262\210\211T\262\202\266\3121k\305\306 \\!\313\307\211\211A@@\3148&\315\310\"\266\2020\207\210\310\207" [V0 V1 org-agenda-weekend-days random calendar-day-of-week calendar-gregorian-from-absolute org-today 0 nil 7 (error) encode-time 2 org-agenda-schedule] 10] intern "Function: " fboundp assoc apply apply-partially "Invalid bulk action: %c" sort #[514 "\300!\300!=\203\301!\301!W\207\302\300!!\302\300!!\231\207" [marker-buffer marker-position buffer-name] 6 "\n\n(fn A B)"] 0 text-property-any org-hd-marker message "Skipping removed entry at %s" org-add-log-note org-agenda-redo org-agenda-bulk-unmark-all "Acted on %d entries%s%s" ", skipped %d (disappeared before their turn)" " (kept marked)"] 15 (#$ . 379437) "P"]) #@156 Call `org-capture' with the date at point. With a `C-1' prefix, use the HH:MM value at point (if any) or the current HH:MM time. (fn &optional WITH-TIME) (defalias 'org-agenda-capture #[256 "\302=\204\n\303\304!\207\305\306=!\307\310!)\207" [major-mode 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] 4 (#$ . 384161) "P"]) #@30 Re-apply all agenda filters. (defalias 'org-agenda-reapply-filters #[0 "\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 #[257 "\211@\205 \300@A@\301#\207" [org-agenda-filter-apply t] 5 "\n\n(fn F)"] (tag) (category) (regexp) (effort) :preset-filter (tag) (category) (effort) (regexp)] 11 (#$ . 384603)]) #@137 Drag an agenda line forward by ARG lines. When the optional argument `backward' is non-nil, move backward. (fn ARG &optional BACKWARD) (defalias 'org-agenda-drag-line-forward #[513 "\301\302\211\303`\304\"\203=\212\305\211W\2034\302\306\203 \305\202!\307!\210\303`\304\"?B\262\210\211T\262\202\210\310\302\")\203C\311\312!\202t\212\306\307!\210`)\306\313!\210`{\262`|\210\306\203`\314\202a\315!!\210c\210\316 \210\317 \210\306\305!\262)\207" [inhibit-read-only 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] 10 (#$ . 385078) "p"]) #@54 Drag an agenda line backward by ARG lines. (fn ARG) (defalias 'org-agenda-drag-line-backward #[257 "\300\301\"\207" [org-agenda-drag-line-forward t] 4 (#$ . 385758) "p"]) #@163 Display the flagging note in the other window. When called a second time in direct sequence, offer to remove the FLAGGING tag and (if present) the flagging note. (defalias 'org-agenda-show-the-flagging-note #[0 "\302\303\304 \"\262\305 \306\204\307\310!\210 =\2033\311\312!\2033\313!\210\314\315!\211\203.\316!\210\210\317\320!\207\321\322\"\262\211\204A\307\323!\210\324!\210\325\315!\210\326 \210\211c\210eb\210\327\330\306\331#\203c\332\333\331\211#\210\202Reb\210\334!\210\317\335\336\337!\"\207" [this-command last-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"] 7 (#$ . 385938) nil]) #@73 Remove the FLAGGED tag and any flagging note in the entry. (fn MARKER) (defalias 'org-agenda-remove-flag #[257 "\212\300!\203\f\301!q\210\212\214~\210\211\206`b\210\302\303\304\"\210\305\306\307\"\210\310 +\311\"\210\312\313!\207" [markerp marker-buffer org-toggle-tag "FLAGGED" off org-entry-delete nil "THEFLAGGINGNOTE" org-get-heading org-agenda-change-all-lines message "Entry unflagged"] 5 (#$ . 387078)]) #@22 (fn &optional POS) (defalias 'org-agenda-get-any-marker #[256 "\300\206\301 \302\"\206\300\206\301 \303\"\207" [get-text-property point-at-bol org-hd-marker org-marker] 4 (#$ . 387503)]) #@1186 Activate appointments found in `org-agenda-files'. With a `\[universal-argument]' prefix, refresh the list of appointments. If FILTER is t, interactively prompt the user for a regular expression, and filter out entries that don't match it. If FILTER is a string, use this string as a regular expression for filtering entries out. If FILTER is a function, filter out entries against which calling the function returns nil. This function takes one argument: an entry from `org-agenda-get-day-entries'. FILTER can also be an alist with the car of each cell being either `headline' or `category'. For example: \='((headline "IMPORTANT") (category "Work")) will only add headlines containing IMPORTANT or headlines belonging to the "Work" category. ARGS are symbols indicating what kind of entries to consider. By default `org-agenda-to-appt' will use :deadline*, :scheduled* (i.e., deadlines and scheduled items with a hh:mm specification) and :timestamp entries. See the docstring of `org-diary' for details and examples. If an entry has a APPT_WARNTIME property, its value will be used to override `appt-message-warning-time'. (fn &optional REFRESH FILTER &rest ARGS) (defalias 'org-agenda-to-appt #[640 "C\203\305\211\242\306=\203\211\307\310!\240\210\311C\206\312\305\311\313\314\305!!\305\315\316!\305\211\211\317!\210\211A\262\242\211\262\203R\320\305\321\322\323\n\f$\"\"\262\2022\324\325\326  #\"\210\327 !\210\242\311=\203n\330\331!\202\201\330\332\242\242\333V\203\334\202\200\335#,\207" [appt-time-msg-list org-agenda-new-buffers org-deadline-warning-days org-agenda-restrict org-agenda-buffer nil t read-from-minibuffer "Regexp filter: " 0 (:deadline* :scheduled* :timestamp) org-date-to-gregorian time-to-days org-agenda-files unrestricted org-agenda-prepare-buffers delq append apply org-agenda-get-day-entries mapc make-closure #[257 "\303\n\304\305\306\307#\206 \310#\311\303\203\312\202\313\310\303\314\310##\266\202\305GS\315#\305\306\316#\300\242?\206{\300\242;\203C\317\300\242\"\206{\320\300\242!\203Q\300\242!\206{\300\242<\205{\321\300\242\236A@\322\300\242\236A@;\203o\317\"\206y\211;\205y\317\"\266\202\305\306\323#\205\273\205\273\317\324\"?\205\273\325\326!P\262\317\327\"\205\253\330\306\"\331\330\332\"Q\262\333#\205\273\301\211\242T\240\207" [V0 V1 org-link-bracket-re replace-regexp-in-string "\\2" 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] 11 "\n\n(fn X)"] org-release-buffers message "No event to add" "Added %d event%s for today" 1 "s" #1#] 19 (#$ . 387708) "P"]) #@251 Non-nil when DATE means today. DATE is either a list of the form (month day year) or a number of days as returned by `calendar-absolute-from-gregorian' or `org-today'. This function considers `org-extend-today-until' when defining today. (fn DATE) (defalias 'org-agenda-today-p #[257 "\300 :\203^\211\3018\262\302\303U\203\304\305!\266\203\202_\303V\203\223S\262\306\211\211@\262\211A@\262\3018\262\307S_\\\301V\203~\211\310\311_\\\312\245Z\262\211\303W\203_\313!S\262\211\311\246\303U\205u\211\314\246\303U?\206u\211\315\246\303U\262\203~\211T\262\266\204\316_\311\245\314\245[\315\245%\266\203\202_\313T!\262\317\211\211@\262\211A@\262\3018\262\307S_\\\301V\203\360\211\310\311_\\\312\245Z\262\211\303W\203\321\313!S\262\211\311\246\303U\205\347\211\314\246\303U?\206\347\211\315\246\303U\262\203\360\211T\262\266\204\316_\311\245\314\245[\315\245\320\211\211@\262\211A@\262\3018\262\307S_\\\301V\203U\211\310\311_\\\312\245Z\262\211\303W\2036\313!S\262\211\311\246\303U\205L\211\314\246\303U?\206L\211\315\246\303U\262\203U\211T\262\266\204&\266\203\202_=\207" [org-today 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 20 (#$ . 390551)]) #@95 Like `org-agenda-todo' but the time of change will be 23:59 of yesterday. (fn &optional ARG) (defalias 'org-agenda-todo-yesterday #[256 "\302\303\304\305 !8\211T\306!*\207" [org-use-effective-time org-extend-today-until t 2 decode-time org-current-time org-agenda-todo] 4 (#$ . 391835) "P"]) #@28 Set tags in agenda buffer. (defalias 'org-agenda-ctrl-c-ctrl-c #[0 "\300 \207" [org-agenda-set-tags] 1 (#$ . 392137) nil]) (provide 'org-agenda)