;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:46 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-agenda.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\300\302!\207" [require org org-macs] 2)
(defvar org-clock-current-task nil)
(defvar org-agenda-buffer-name "*Org Agenda*")
(defvar org-agenda-overriding-header nil)
(defvar org-agenda-title-append nil)
#@63 List of undoable operations in the agenda since last refresh.
(defvar org-agenda-undo-list nil (#$ . 785))
#@73 In a series of undo commands, this is the list of remaining undo items.
(defvar org-agenda-pending-undo-list nil (#$ . 898))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\210\320\321\311\322\323\324\304\305&\210\300\325\326\327\304\321\306\313&\210\300\330\311\331\304\321\306\332&\210\300\333\334\335\304\321\306\336\337\340&	\210\300\341\342\343\304\305\306\344&\210\300\345\326\346\304\305\306\313&\210\300\347\311\350\304\321\304\351\306\352&	\210\300\353\311\354\304\305\306\313&\210\320\355\311\356\323\357\304\305&\207" [custom-declare-variable org-agenda-confirm-kill 1 "When set, remote killing from the agenda buffer needs confirmation.\nWhen t, a confirmation is always needed.  When a number N, confirmation is\nonly needed when the text to be killed contains more than N non-white lines." :group org-agenda :type (choice (const :tag "Never" nil) (const :tag "Always" t) (integer :tag "When more than N lines")) org-agenda-compact-blocks nil "Non-nil means make the block agenda more compact.\nThis is done globally by leaving out lines like the agenda span\nname and week number or the separator lines." boolean org-agenda-block-separator 61 "The separator between blocks in the agenda.\nIf this is a string, it will be used as the separator, with a newline added.\nIf it is a character, it will be repeated to fill the window width.\nIf nil the separator is disabled.  In `org-agenda-custom-commands' this\naddresses the separator between the current and the previous block." (choice (const :tag "Disabled" nil) (character) (string)) custom-declare-group org-agenda-export "Options concerning exporting agenda views in Org-mode." :tag "Org Agenda Export" org-agenda-with-colors t "Non-nil means use colors in agenda views." org-agenda-exporter-settings "Alist of variable/value pairs that should be active during agenda export.\nThis is a good place to set options for ps-print and for htmlize.\nNote that the way this is implemented, the values will be evaluated\nbefore assigned to the variables.  So make sure to quote values you do\n*not* want evaluated, for example\n\n   (setq org-agenda-exporter-settings\n         '((ps-print-color-p 'black-white)))" (repeat (list (variable) (sexp :tag "Value"))) org-agenda-before-write-hook '(org-agenda-add-entry-text) "Hook run in a temporary buffer before writing the agenda to an export file.\nA useful function for this hook is `org-agenda-add-entry-text'." hook :options (org-agenda-add-entry-text) org-agenda-add-entry-text-maxlines 0 "Maximum number of entry text lines to be added to agenda.\nThis is only relevant when `org-agenda-add-entry-text' is part of\n`org-agenda-before-write-hook', which is the default.\nWhen this is 0, nothing will happen.  When it is greater than 0, it\nspecifies the maximum number of lines that will be added for each entry\nthat is listed in the agenda view.\n\nNote that this variable is not used during display, only when exporting\nthe agenda.  For agenda display, see the variables `org-agenda-entry-text-mode'\nand `org-agenda-entry-text-maxlines'." integer org-agenda-add-entry-text-descriptive-links "Non-nil means export org-links as descriptive links in agenda added text.\nThis variable applies to the text added to the agenda when\n`org-agenda-add-entry-text-maxlines' is larger than 0.\nWhen this variable nil, the URL will (also) be shown." org-agenda-export-html-style "The style specification for exported HTML Agenda files.\nIf this variable contains a string, it will replace the default <style>\nsection as produced by `htmlize'.\nSince there are different ways of setting style information, this variable\nneeds to contain the full HTML structure to provide a style, including the\nsurrounding HTML tags.  The style specifications should include definitions\nthe fonts used by the agenda, here is an example:\n\n   <style type=\"text/css\">\n       p { font-weight: normal; color: gray; }\n       .org-agenda-structure {\n          font-size: 110%;\n          color: #003399;\n          font-weight: 600;\n       }\n       .org-todo {\n          color: #cc6666;\n          font-weight: bold;\n       }\n       .org-agenda-done {\n          color: #339933;\n       }\n       .org-done {\n          color: #339933;\n       }\n       .title { text-align: center; }\n       .todo, .deadline { color: red; }\n       .done { color: green; }\n    </style>\n\nor, if you want to keep the style in a file,\n\n   <link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\">\n\nAs the value of this option simply gets inserted into the HTML <head> header,\nyou can \"misuse\" it to also add other text to the header." org-export-html string org-agenda-persistent-filter "When set, keep filters from one agenda view to the next." org-agenda-custom-commands "Options concerning agenda views in Org-mode." "Org Agenda Custom Commands"] 10)
#@18 Sorting choices.
(defconst org-sorting-choice '(choice (const time-up) (const time-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)) (#$ . 5838))
(byte-code "\300\301!\203\301\302\303\"\210\202\301\304\305\"\210\300\207" [fboundp defvaralias org-agenda-filter-preset org-agenda-tag-filter-preset org-agenda-filter org-agenda-tag-filter] 3)
#@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 "\301\302\303\304\302\305\306\307\310\302\311\312\310\313\301DE\257\314BBBBBBF\207" [org-sorting-choice 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) (choice (const :tag "Day" 'day) (const :tag "Week" 'week) (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 "Set daily/weekly entry types" (const org-agenda-entry-types) (list (const :format #1# quote) (set :greedy t :value (:deadline :scheduled :timestamp :sexp) (const :deadline) (const :scheduled) (const :timestamp) (const :sexp)))) (list :tag "Standard skipping condition" :value (org-agenda-skip-function '(org-agenda-skip-entry-if)) (const org-agenda-skip-function) (list (const :format #1# quote) (list (choice :tag "Skipping range" (const :tag "Skip entry" org-agenda-skip-entry-if) (const :tag "Skip subtree" org-agenda-skip-subtree-if)) (repeat :inline t :tag "Conditions for skipping" (choice :tag "Condition type" (list :tag "Regexp matches" :inline t (const :format #1# 'regexp) (regexp)) (list :tag "Regexp does not match" :inline t (const :format #1# 'notregexp) (regexp)) (list :tag "TODO state is" :inline t (const 'todo) (choice (const :tag "any not-done state" 'todo) (const :tag "any done state" 'done) (const :tag "any state" 'any) (list :tag "Keyword list" (const :format #1# quote) (repeat (string :tag "Keyword"))))) (list :tag "TODO state is not" :inline t (const 'nottodo) (choice (const :tag "any not-done state" 'todo) (const :tag "any done state" 'done) (const :tag "any state" 'any) (list :tag "Keyword list" (const :format #1# quote) (repeat (string :tag "Keyword"))))) (const :tag "scheduled" 'scheduled) (const :tag "not scheduled" 'notscheduled) (const :tag "deadline" 'deadline) (const :tag "no deadline" 'notdeadline) (const :tag "timestamp" 'timestamp) (const :tag "no timestamp" 'nottimestamp)))))) (list :tag "Non-standard skipping condition" :value (org-agenda-skip-function) (const org-agenda-skip-function) (sexp :tag "Function or form (quoted!)")) (list :tag "Any variable" (variable :tag "Variable") (sexp :tag "Value (sexp)")))] 16) (#$ . 6490))
(byte-code "\301\302\303\304\305\302\306\307\310\311\312\313\314\315\316\317\320\321\322BBBBBBBB\313\314\323\324\325\307\314\326\310\313\314\327\330\331\257\313\314\332\333\334\257\313\314\335\336\337\257\313\314\340\341\342\257\313\314\343\344\345\257\313\314\346\347\350\257\313\314\351\352\353\257\313\314\354\355\356\257\257	F\357BBBBBB\360BBBBBD&\210\301\361\362\363\305\302\306\364&\210\301\365\366\367\305\302\306\370&\210\301\371\372\373\305\302\306\374&\210\375\376\377\201@\314\201A\305\201B&\210\301\201C\377\201D\305\376\306\201E&\210\375\201F\377\201G\314\201H\305\201B&\210\375\201I\377\201J\314\201K\305\201B&\210\375\201L\377\201M\314\201N\305\201B&\210\375\201O\377\201M\314\201N\305\201B&\207" [org-agenda-custom-commands-local-options custom-declare-variable org-agenda-custom-commands '(("n" "Agenda and all TODO's" ((agenda #1="") (alltodo)))) "Custom commands for the agenda.\nThese commands will be offered on the splash screen displayed by the\nagenda dispatcher \\[org-agenda].  Each entry is a list like this:\n\n   (key desc type match settings files)\n\nkey      The key (one or more characters as a string) to be associated\n         with the command.\ndesc     A description of the command, when omitted or nil, a default\n         description is built using MATCH.\ntype     The command type, any of the following symbols:\n          agenda      The daily/weekly agenda.\n          todo        Entries with a specific TODO keyword, in all agenda files.\n          search      Entries containing search words entry or headline.\n          tags        Tags/Property/TODO match in all agenda files.\n          tags-todo   Tags/P/T match in all agenda files, TODO entries only.\n          todo-tree   Sparse tree of specific TODO keyword in *current* file.\n          tags-tree   Sparse tree with all tags matches in *current* file.\n          occur-tree  Occur sparse tree for *current* file.\n          ...         A user-defined function.\nmatch    What to search for:\n          - a single keyword for TODO keyword searches\n          - a tags match expression for tags searches\n          - a word search expression for text searches.\n          - a regular expression for occur searches\n          For all other commands, this should be the empty string.\nsettings  A list of option settings, similar to that in a let form, so like\n          this: ((opt1 val1) (opt2 val2) ...).   The values will be\n          evaluated at the moment of execution, so quote them when needed.\nfiles     A list of files file to write the produced agenda buffer to\n          with the command `org-store-agenda-views'.\n          If a file name ends in \".html\", an HTML version of the buffer\n          is written out.  If it ends in \".ps\", a postscript version is\n          produced.  Otherwise, only the plain text is written to the file.\n\nYou can also define a set of commands, to create a composite agenda buffer.\nIn this case, an entry looks like this:\n\n  (key desc (cmd1 cmd2 ...) general-settings-for-whole-set files)\n\nwhere\n\ndesc   A description string to be displayed in the dispatcher menu.\ncmd    An agenda command, similar to the above.  However, tree commands\n       are not allowed, but instead you can get agenda and global todo list.\n       So valid commands for a set are:\n       (agenda \"\" settings)\n       (alltodo \"\" settings)\n       (stuck \"\" settings)\n       (todo \"match\" settings files)\n       (search \"match\" settings files)\n       (tags \"match\" settings files)\n       (tags-todo \"match\" settings files)\n\nEach command can carry a list of options, and another set of options can be\ngiven for the whole set of commands.  Individual command options take\nprecedence over the general options.\n\nWhen using several characters as key to a command, the first characters\nare prefix commands.  For the dispatcher to display useful information, you\nshould provide a description for the prefix, like\n\n (setq org-agenda-custom-commands\n   '((\"h\" . \"HOME + Name tag searches\") ; describe prefix \"h\"\n     (\"hl\" tags \"+HOME+Lisa\")\n     (\"hp\" tags \"+HOME+Peter\")\n     (\"hk\" tags \"+HOME+Kim\")))" :group :type repeat choice :value ("x" "Describe command here" tags #1# nil) list :tag "Single command" (string :tag "Access Key(s) ") (option (string :tag "Description")) (choice (const :tag "Agenda" agenda) (const :tag "TODO list" alltodo) (const :tag "Search words" search) (const :tag "Stuck projects" stuck) (const :tag "Tags/Property match (all agenda files)" tags) (const :tag "Tags/Property match of TODO entries (all agenda files)" tags-todo) (const :tag "TODO keyword search (all agenda files)" todo) (const :tag "Tags sparse tree (current buffer)" tags-tree) (const :tag "TODO keyword tree (current buffer)" todo-tree) (const :tag "Occur tree (current buffer)" occur-tree) (sexp :tag "Other, user-defined function")) (string :tag "Match (only for some commands)") ((option (repeat :tag "Export" (file :tag "Export to")))) "Command series, all agenda files" (string :tag "Access Key(s)") (string :tag "Description  ") "Component" "Agenda" (const :format #1# agenda) (const :tag #1# :format #1# #1#) "TODO list (all keywords)" (const :format #1# alltodo) (const :tag #1# :format #1# #1#) "Search words" (const :format #1# search) (string :tag "Match") "Stuck projects" (const :format #1# stuck) (const :tag #1# :format #1# #1#) "Tags search" (const :format #1# tags) (string :tag "Match") "Tags search, TODO entries only" (const :format #1# tags-todo) (string :tag "Match") "TODO keyword search" (const :format #1# todo) (string :tag "Match") "Other, user-defined function" (symbol :tag "function") (string :tag "Match") ((repeat :tag "Settings for entire command set" (list (variable :tag "Any variable") (sexp :tag "Value"))) (option (repeat :tag "Export" (file :tag "Export to")))) ((cons :tag "Prefix key documentation" (string :tag "Access Key(s)") (string :tag "Description  "))) org-agenda-query-register 111 "The register holding the current query string.\nThe purpose of this is that if you construct a query string interactively,\nyou can then use it to define a custom command." character org-stuck-projects '("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") nil #1#) "How to identify stuck projects.\nThis is a list of four items:\n1. A tags/todo/property matcher string that is used to identify a project.\n   See the manual for a description of tag and property searches.\n   The entire tree below a headline matched by this is considered one project.\n2. A list of TODO keywords identifying non-stuck projects.\n   If the project subtree contains any headline with one of these todo\n   keywords, the project is considered to be not stuck.  If you specify\n   \"*\" as a keyword, any TODO keyword will mark the project unstuck.\n3. A list of tags identifying non-stuck projects.\n   If the project subtree contains any headline with one of these tags,\n   the project is considered to be not stuck.  If you specify \"*\" as\n   a tag, any tag will mark the project unstuck.  Note that this is about\n   the explicit presence of a tag somewhere in the subtree, inherited\n   tags do not count here.  If inherited tags make a project not stuck,\n   use \"-TAG\" in the tags part of the matcher under (1.) above.\n4. An arbitrary regular expression matching non-stuck projects.\n\nIf the project turns out to be not stuck, search continues also in the\nsubtree to see if any of the subtasks have project status.\n\nSee also the variable `org-tags-match-list-sublevels' which applies\nto projects matched by this search as well.\n\nAfter defining this variable, you may use \\[org-agenda-list-stuck-projects]\nor `C-c a #' 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")) org-agenda-filter-effort-default-operator "<" "The default operator for effort estimate filtering.\nIf you select an effort estimate limit without first pressing an operator,\nthis one will be used." (choice (const :tag "less or equal" "<") (const :tag "greater or equal" ">") (const :tag "equal" "=")) custom-declare-group org-agenda-skip nil "Options concerning skipping parts of agenda files." "Org Agenda Skip" org-agenda org-agenda-skip-function-global "Function to be called at each match during agenda construction.\nIf this function returns nil, the current match should not be skipped.\nIf the function decided to skip an agenda match, is must return the\nbuffer position from which the search should be continued.\nThis may also be a Lisp form, which will be evaluated.\n\nThis variable will be applied to every agenda match, including\ntags/property searches and TODO lists.  So try to make the test function\ndo its checking as efficiently as possible.  To implement a skipping\ncondition just for specific agenda commands, use the variable\n`org-agenda-skip-function' which can be set in the options section\nof custom agenda commands." sexp org-agenda-daily/weekly "Options concerning the daily/weekly agenda." "Org Agenda Daily/Weekly" org-agenda-todo-list "Options concerning the global todo list agenda view." "Org Agenda Todo List" org-agenda-match-view "Options concerning the general tags/property/todo match agenda view." "Org Agenda Match View" org-agenda-search-view] 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 (#$ . 19605))
(byte-code "\302\303\304\305\306\307\310\311&\210\302\312\304\313\306\307\306\314\310\311&	\210\302\315\316\317\306\307\306\314\310\311&	\210\302\320\316\321\306\307\306\314\322\323\310\324&\210\302\325\316\326\306\307\306\314\310\327&	\210\302\330\316\331\306\307\306\314\310\332&	\210\302\333\316\334\306\307\306\314\306\335\310\311&\210\302\336\316\337\306\307\306\340\310\311&	\210\302\341\316\342\306\307\306\340\310\343&	\210\302\344\316\345\306\307\306\340\322\323\310\346&\210\302\347\316\350\306\307\306\340\310\311&	\210\302\351\316\352\306\307\306\340\322\323\310\353&\210\302\354\316\355\306\307\310\311&\210\302\356\316\357\306\307\306\340\310\311&	\210\302\360\316\361\306\340\306\314\322\362\310\363&\210\302\364\365\366\306\307\310\367&\210\370\371\316\372\373\374\306\375&\210\302\376\304\377\306\375\322\323\310\311&	\210\201@\201A\201B\316#\210\201C\316\211\203*
	@\201AN\203#
\201BN\204#
\201D\201B\201AN#\210	A\211\204
*\201E\201A\201B\362#\210\302\201B\316\201F\306\375\322\323\310\311&	\210\201@\201G\201H\316#\210\201C\316\211\203\206
	@\201GN\203
\201HN\204
\201D\201H\201GN#\210	A\211\204^
*\201E\201G\201H\362#\210\302\201H\316\201I\306\371\310\201J&\210\302\201K\316\201L\306\371\310\311&\210\302\201M\316\201N\306\371\310\311&\210\302\201O\316\201P\306\375\322\323\310\311&	\210\302\201Q\304\201R\306\371\310\311&\210\302\201S\316\201T\306\371\310\311&\210\302\201U\201V\201W\306\375\310\201X&\210\302\201Y\316\201Z\306\375\310\201[&\207" [prop --dolist-tail-- custom-declare-variable org-agenda-skip-comment-trees t "Non-nil means skip trees that start with the COMMENT keyword.\nWhen nil, these trees are also scanned by agenda commands." :group org-agenda-skip :type boolean org-agenda-todo-list-sublevels "Non-nil means check also the sublevels of a TODO entry for TODO entries.\nWhen nil, the sublevels of a TODO entry are not checked, resulting in\npotentially much shorter TODO lists." org-agenda-todo-list org-agenda-todo-ignore-with-date nil "Non-nil means don't show entries with a date in the global todo list.\nYou can use this if you prefer to mark mere appointments with a TODO keyword,\nbut don't want them to show up in the TODO list.\nWhen this is set, it also covers deadlines and scheduled items, the settings\nof `org-agenda-todo-ignore-scheduled' and `org-agenda-todo-ignore-deadlines'\nwill be ignored.\nSee also the variable `org-agenda-tags-todo-honor-ignore-options'." org-agenda-todo-ignore-timestamp "Non-nil means don't show entries with a timestamp.\nThis applies when creating the global todo list.\nValid values are:\n\npast     Don't show entries for today or in the past.\n\nfuture   Don't show entries with a timestamp in the future.\n         The idea behind this is that if it has a future\n         timestamp, you don't want to think about it until the\n         date.\n\nall      Don't show any entries with a timestamp in the global todo list.\n         The idea behind this is that by setting a timestamp, you\n         have already \"taken care\" of this item.\n\nThis variable can also have an integer as a value.  If positive (N),\ntodos with a timestamp N or more days in the future will be ignored.  If\nnegative (-N), todos with a timestamp N or more days in the past will be\nignored.  If 0, todos with a timestamp either today or in the future will\nbe ignored.  For example, a value of -1 will exclude todos with a\ntimestamp in the past (yesterday or earlier), while a value of 7 will\nexclude todos with a timestamp a week or more in the future.\n\nSee also `org-agenda-todo-ignore-with-date'.\nSee also the variable `org-agenda-tags-todo-honor-ignore-options' if you want\nto make his option also apply to the tags-todo list." :version "24.1" (choice (const :tag "Ignore future timestamp todos" future) (const :tag "Ignore past or present timestamp todos" past) (const :tag "Ignore all timestamp todos" all) (const :tag "Show timestamp todos" nil) (integer :tag "Ignore if N or more days in past(-) or future(+).")) org-agenda-todo-ignore-scheduled "Non-nil means, ignore some scheduled TODO items when making TODO list.\nThis applies when creating the global todo list.\nValid values are:\n\npast     Don't show entries scheduled today or in the past.\n\nfuture   Don't show entries scheduled in the future.\n         The idea behind this is that by scheduling it, you don't want to\n         think about it until the scheduled date.\n\nall      Don't show any scheduled entries in the global todo list.\n         The idea behind this is that by scheduling it, you have already\n         \"taken care\" of this item.\n\nt        Same as `all', for backward compatibility.\n\nThis variable can also have an integer as a value.  See\n`org-agenda-todo-ignore-timestamp' for more details.\n\nSee also `org-agenda-todo-ignore-with-date'.\nSee also the variable `org-agenda-tags-todo-honor-ignore-options' if you want\nto make his option also apply to the tags-todo list." (choice (const :tag "Ignore future-scheduled todos" future) (const :tag "Ignore past- or present-scheduled todos" past) (const :tag "Ignore all scheduled todos" all) (const :tag "Ignore all scheduled todos (compatibility)" t) (const :tag "Show scheduled todos" nil) (integer :tag "Ignore if N or more days in past(-) or future(+).")) org-agenda-todo-ignore-deadlines "Non-nil means ignore some deadlined TODO items when making TODO list.\nThere are different motivations for using different values, please think\ncarefully when configuring this variable.\n\nThis applies when creating the global todo list.\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        the deadline is not near.  This is useful if you don't want to\n        use 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-tags-todo-honor-ignore-options "Non-nil means honor todo-list ...ignore options also in tags-todo search.\nThe variables\n   `org-agenda-todo-ignore-with-date',\n   `org-agenda-todo-ignore-timestamp',\n   `org-agenda-todo-ignore-scheduled',\n   `org-agenda-todo-ignore-deadlines'\nmake the global TODO list skip entries that have time stamps of certain\nkinds.  If this option is set, the same options will also apply for the\ntags-todo search, which is the general tags/property matcher\nrestricted to unfinished TODO entries only." org-agenda-match-view org-agenda-skip-scheduled-if-done "Non-nil means don't show scheduled items in agenda when they are done.\nThis is relevant for the daily/weekly agenda, not for the TODO list.  And\nit applies only to the actual date of the scheduling.  Warnings about\nan item with a past scheduling dates are always turned off when the item\nis DONE." org-agenda-daily/weekly org-agenda-skip-scheduled-if-deadline-is-shown "Non-nil means skip scheduling line if same entry shows because of deadline.\nIn the agenda of today, an entry can show up multiple times because\nit is both scheduled and has a nearby deadline, and maybe a plain time\nstamp as well.\nWhen this variable is t, then only the deadline is shown and the fact that\nthe entry is scheduled today or was scheduled previously is not shown.\nWhen this variable is nil, the entry will be shown several times.  When\nthe variable is the symbol `not-today', then skip scheduled previously,\nbut not scheduled today." (choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "Not when scheduled today" not-today)) org-agenda-skip-timestamp-if-deadline-is-shown "Non-nil means skip timestamp line if same entry shows because of deadline.\nIn the agenda of today, an entry can show up multiple times\nbecause it has both a plain timestamp and has a nearby deadline.\nWhen this variable is t, then only the deadline is shown and the\nfact that the entry has a timestamp for or including today is not\nshown.  When this variable is nil, the entry will be shown\nseveral times." (choice (const :tag "Never" nil) (const :tag "Always" t)) org-agenda-skip-deadline-if-done "Non-nil means don't show deadlines when the corresponding item is done.\nWhen nil, the deadline is still shown and should give you a happy feeling.\nThis is relevant for the daily/weekly agenda.  And it applied only to the\nactually date of the deadline.  Warnings about approaching and past-due\ndeadlines are always turned off when the item is DONE." org-agenda-skip-deadline-prewarning-if-scheduled "Non-nil means skip deadline prewarning when entry is also scheduled.\nThis will apply on all days where a prewarning for the deadline would\nbe shown, but not at the day when the entry is actually due.  On that day,\nthe deadline will be shown anyway.\nThis variable may be set to nil, t, or a number which will then give\nthe number of days before the actual deadline when the prewarnings\nshould resume.\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 if entry is scheduled" t) (integer :tag "Restart prewarning N days before deadline")) org-agenda-skip-additional-timestamps-same-entry "When nil, multiple same-day timestamps in entry make multiple agenda lines.\nWhen non-nil, after the search for timestamps has matched once in an\nentry, the rest of the entry will not be searched." org-agenda-skip-timestamp-if-done "Non-nil means don't select item by timestamp or -range if it is DONE." org-agenda-dim-blocked-tasks "Non-nil means dim blocked tasks in the agenda display.\nThis causes some overhead during agenda construction, but if you\nhave turned on `org-enforce-todo-dependencies',\n`org-enforce-todo-checkbox-dependencies', or any other blocking\nmechanism, this will create useful feedback in the agenda.\n\nInstead of t, this variable can also have the value `invisible'.\nThen blocked tasks will be invisible and only become visible when\nthey become unblocked.  An exemption to this behavior is when a task is\nblocked because of unchecked checkboxes below it.  Since checkboxes do\nnot show up in the agenda views, making this task invisible you remove any\ntrace from agenda views that there is something to do.  Therefore, a task\nthat is blocked because of checkboxes will never be made invisible, it\nwill only be dimmed." "24.3" (choice (const :tag "Do not dim" nil) (const :tag "Dim to a gray face" t) (const :tag "Make invisible" invisible)) org-timeline-show-empty-dates 3 "Non-nil means `org-timeline' also shows dates without an entry.\nWhen nil, only the days which actually have entries are shown.\nWhen t, all days between the first and the last date are shown.\nWhen an integer, show also empty dates, but if there is a gap of more than\nN days, just insert a special line indicating the size of the gap." (choice (const :tag "None" nil) (const :tag "All" t) (integer :tag "at most")) custom-declare-group org-agenda-startup "Options concerning initial settings in the Agenda in Org Mode." :tag "Org Agenda Startup" org-agenda org-agenda-menu-show-matcher "Non-nil means show the match string in the agenda dispatcher menu.\nWhen nil, the matcher string is not shown, but is put into the help-echo\nproperty so than moving the mouse over the command shows it.\nSetting it to nil is good if matcher strings are very long and/or if\nyou want to use two-columns display (see `org-agenda-menu-two-columns')." defvaralias org-agenda-menu-two-column org-agenda-menu-two-columns (saved-value saved-variable-comment) put make-obsolete-variable "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-finalize-agenda-hook org-agenda-finalize-hook "Hook run just before displaying an agenda buffer.\nThe buffer is still writable when the hook is called.\n\nYou can modify some of the buffer substrings but you should be\nextra careful not to modify the text properties of the agenda\nheadlines as the agenda display heavily relies on them." hook org-agenda-mouse-1-follows-link "Non-nil means mouse-1 on a link will follow the link in the agenda.\nA longer mouse click will still set point.  Does not work on XEmacs.\nNeeds to be set before org.el is loaded." org-agenda-start-with-follow-mode "The initial value of follow mode in a newly created agenda window." org-agenda-follow-indirect "Non-nil means `org-agenda-follow-mode' displays only the\ncurrent item's tree, in an indirect buffer." org-agenda-show-outline-path "Non-nil means show outline path in echo area after line motion." org-agenda-start-with-entry-text-mode "The initial value of entry-text-mode in a newly created agenda window." org-agenda-entry-text-maxlines 5 "Number of text lines to be added when `E' is pressed in the agenda.\n\nNote that this variable only used during agenda display.  Add add entry text\nwhen exporting the agenda, configure the variable\n`org-agenda-add-entry-ext-maxlines'." integer org-agenda-entry-text-exclude-regexps "List of regular expressions to clean up entry text.\nThe complete matches of all regular expressions in this list will be\nremoved from entry text before it is shown in the agenda." (repeat (regexp))] 13)
#@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 (#$ . 34487))
#@88 Non-nil means include inactive time stamps in agenda and timeline.
Dynamically scoped.
(defvar org-agenda-include-inactive-timestamps nil (#$ . 34939))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315&\210\310\316\317\320\306\301\314\321&\210\310\322\302\323\306\301\314\324&\210\310\325\302\326\306\327\314\330&\210\331\325\332\333#\210\310\332\334\335\306\327\314\336&\210\310\337\340\341\306\327\314\342&\210\310\343\344\345\306\327\314\324&\210\310\346\347\350\306\327\314\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 'reorganize-frame "How the agenda buffer should be displayed.\nPossible values for this option are:\n\ncurrent-window    Show agenda in the current window, keeping all other windows.\nother-window      Use `switch-to-buffer-other-window' to display agenda.\nreorganize-frame  Show only two windows on the current frame, the current\n                  window and the agenda.\nother-frame       Use `switch-to-buffer-other-frame' to display agenda.\n                  Also, when exiting the agenda, kill that frame.\nSee also the variable `org-agenda-restore-windows-after-quit'." :type (choice (const current-window) (const other-frame) (const other-window) (const reorganize-frame)) org-agenda-window-frame-fractions '(0.5 . 0.75) "The min and max height of the agenda window as a fraction of frame height.\nThe value of the variable is a cons cell with two numbers between 0 and 1.\nIt only matters if `org-agenda-window-setup' is `reorganize-frame'." (cons (number :tag "Minimum") (number :tag "Maximum")) org-agenda-restore-windows-after-quit "Non-nil means restore window configuration upon exiting agenda.\nBefore the window configuration is changed for displaying the agenda,\nthe current status is recorded.  When the agenda is exited with\n`q' or `x' and this option is set, the old state is restored.  If\n`org-agenda-window-setup' is `other-frame', the value of this\noption will be ignored." boolean org-agenda-ndays "Number of days to include in overview display.\nShould be 1 or 7.\nObsolete, see `org-agenda-span'." org-agenda-daily/weekly integer make-obsolete-variable org-agenda-span "24.1" 'week "Number of days to include in overview display.\nCan be day, week, month, year, or any number of days.\nCustom commands can set this variable in the options section." (choice (const :tag "Day" day) (const :tag "Week" week) (const :tag "Month" month) (const :tag "Year" year) (integer :tag "Custom")) org-agenda-start-on-weekday 1 "Non-nil means start the overview always on the specified weekday.\n0 denotes Sunday, 1 denotes Monday etc.\nWhen nil, always start on the current day.\nCustom commands can set this variable in the options section." (choice (const :tag "Today" nil) (integer :tag "Weekday No.")) org-agenda-show-all-dates t "Non-nil means `org-agenda' shows every day in the selected range.\nWhen nil, only the days which actually have entries are shown." org-agenda-format-date 'org-agenda-format-date-aligned "Format string for displaying dates in the agenda.\nUsed by the daily/weekly agenda and by the timeline.  This should be\na format string understood by `format-time-string', or a function returning\nthe formatted date as a string.  The function must take a single argument,\na calendar-style date list like (month day year)." (choice (string :tag "Format string") (function :tag "Function"))] 8)
#@141 Format a date string for display in the daily/weekly agenda, or timeline.
This function makes sure that dates are aligned for easy reading.
(defalias 'org-agenda-format-date-aligned #[(date) "\306\307!\210\310!\211A@)\311!@\312
!$\3138%\314\211\3138)\315&%\316%!\203;\317\320!\202\263
%\321V\203\306%S&\322\211\211@)\211\211A@*\3138)%
S\323_\\'
\313V\203\256'\324
\325_\\\326\245Z'%\211%\321W\203\214\327%!S%\316%\325\246!\205\245\316%\330\246!?\206\245\316%\331\246!)\203\256'T''-&\332_&\325\245&\330\245[&\331\245%\202\263
\327%T!&\333\211\211@)\211\211A@*\3138)%
S\323_\\'
\313V\2034
'\324
\325_\\\326\245Z'%\211%\321W\203
\327%!S%\316%\325\246!\205+
\316%\330\246!?\206+
\316%\331\246!)\2034
'T''-&\332_&\325\245&\330\245[&\331\245\334\211\334@)\211\211A@*\3138)%
S\323_\\'
\313V\203\256
'\324
\325_\\\326\245Z'%\211%\321W\203\214
\327%!S%\316%\325\246!\205\245
\316%\330\246!?\206\245
\316%\331\246!)\203\256
'T''-&+!(
\335U\203\312
(\336Y\203\312
%S\202\337

\337U\203\335
(\335X\203\335
%T\202\337
%)\f\335U\203\357
\340\341(\"\202\360
\342*\340\343	$%*&.	\207" [date dayname x day day-of-week month require cal-iso calendar-day-name calendar-day-of-week calendar-month-name 2 org-days-to-iso-week nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 52 12 format " W%02d" "" "%-10s %2d %s %4d%s" monthname year offset-years day-of-year iso-week weekyear weekstring] 12 (#$ . 38511)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\304\314\306\307\310\311&	\207" [custom-declare-variable org-agenda-time-leading-zero nil "Non-nil means use leading zero for military times in agenda.\nFor example, 9:30am would become 09:30 rather than  9:30." :group org-agenda-daily/weekly :version "24.1" :type boolean org-agenda-timegrid-use-ampm "When set, show AM/PM style timestamps on the timegrid." org-agenda] 10)
#@70 Convert TIME of a string like '13:45' to an AM/PM style time string.
(defalias 'org-agenda-time-of-day-to-ampm #[(time) "\305\306\307O!\310\311O\312	\313\232\203\314\202%	\313V\203%\314	\313Z\f\2030\315\316	\"\2026\315\317\320	!\"\321\nR+\207" [time hour-number minute ampm org-agenda-time-leading-zero string-to-number 0 -3 -2 nil "am" 12 "pm" format "%02d" "%02s" number-to-string ":"] 4 (#$ . 40524)])
#@84 Conditionally convert TIME to AM/PM format
based on `org-agenda-timegrid-use-ampm'
(defalias 'org-agenda-time-of-day-to-ampm-maybe #[(time) "\203\302	!\207	\207" [org-agenda-timegrid-use-ampm time org-agenda-time-of-day-to-ampm] 2 (#$ . 40950)])
(byte-code "\301\302\303\304\305\306\307\310&\210\301\311\312\313\305\306\314\315\307\316&	\210\301\317\320\321\305\306\307\316&\210\301\322\312\323\305\306\314\315\307\316&	\210\301\324\312\325\305\306\307\326&\210\301\327\330\331\305\306\307\332&\210\301\333\334\335\305\306\307\336&\210\301\337\340\341\305\306\305\342\314\315\307\343&\210\301\344\312\345\305\306\307\316&\210\301\346\320\347\305\350\305\306\307\351&	\210\301\352\320\353\305\350\305\306\307\316&	\210\301\354\355\356\305\306\307\343&\210\301\357\320\360\305\361\314\315\307\316&	\210\362\363!\203\250\363\364\357\"\210\301\365\320\366\305\361\314\315\307\316&	\210\367\370\320\371\372\373\305\374&\210\301\375\312\376\305\370\307\316&\210\301\377\312\201@\305\370\307\316&\210\301\370\201A\201B\305\370\307\201C&\210\301\201D\312\201E\305\370\314\315\307\316&	\210\301\201F\201G\201H\305\370\314\315\307\201I&	\210\367\201J\320\201K\372\201L\305\374&\210\301\201M\201N\201O\305\201J\307\201P\201Q\372\201RF\201S\372\201T\201U\201V\201QDE\201U\201W\201QDE\201U\201X\201QDE\201U\201Y\201QDE\257E&\210\301\201Z\320\201[\305\201J\307\201\\&\210\301\201]\312\201^\305\201J\307\316&\210\301\201_\312\201`\305\201J\307\316&\210\367\201a\320\201b\372\201c\305\374&\210\301\201d\201e\201f\307\201g\305\201a&\207" [org-sorting-choice custom-declare-variable org-agenda-weekend-days '(6 0) "Which days are weekend?\nThese days get the special face `org-agenda-date-weekend' in the agenda\nand timeline buffers." :group org-agenda-daily/weekly :type (set :greedy t (const :tag "Monday" 1) (const :tag "Tuesday" 2) (const :tag "Wednesday" 3) (const :tag "Thursday" 4) (const :tag "Friday" 5) (const :tag "Saturday" 6) (const :tag "Sunday" 0)) org-agenda-move-date-from-past-immediately-to-today t "Non-nil means jump to today when moving a past date forward in time.\nWhen using S-right in the agenda to move a a date forward, and the date\nstamp currently points to the past, the first key press will move it\nto today.  WHen nil, just move one day forward even if the date stays\nin the past." :version "24.1" boolean org-agenda-include-diary nil "If non-nil, include in the agenda entries from the Emacs Calendar's diary.\nCustom commands can set this variable in the options section." org-agenda-include-deadlines "If non-nil, include entries within their deadline warning period.\nCustom commands can set this variable in the options section." org-agenda-repeating-timestamp-show-all "Non-nil means show all occurrences of a repeating stamp in the agenda.\nWhen set to a list of strings, only show occurrences of repeating\nstamps for these TODO keywords.  When nil, only one occurrence is\nshown, either today or the nearest into the future." (choice (const :tag "Show repeating stamps" t) (repeat :tag "Show repeating stamps for these TODO keywords" (string :tag "TODO Keyword")) (const :tag "Don't show repeating stamps" nil)) org-scheduled-past-days 10000 "No. of days to continue listing scheduled items that are not marked DONE.\nWhen an item is scheduled on a date, it shows up in the agenda on this\nday and will be listed until it is marked done for the number of days\ngiven here." integer org-agenda-log-mode-items '(closed clock) "List of items that should be shown in agenda log mode.\nThis 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 `C-u l' in\nthe agenda to display all available LOG items temporarily." (set :greedy t (const closed) (const clock) (const state)) org-agenda-clock-consistency-checks '(:max-duration "10:00" :min-duration 0 :max-gap "0:05" :gap-ok-around ("4:00") :default-face ((:background "DarkRed") (:foreground "white")) :overlap-face nil :gap-face nil :no-end-time-face nil :long-face nil :short-face nil) "This is a property list, with the following keys:\n\n:max-duration    Mark clocking chunks that are longer than this time.\n                 This is a time string like \"HH:MM\", or the number\n                 of minutes as an integer.\n\n:min-duration    Mark clocking chunks that are shorter that this.\n                 This is a time string like \"HH:MM\", or the number\n                 of minutes as an integer.\n\n:max-gap         Mark gaps between clocking chunks that are longer than\n                 this duration.  A number of minutes, or a string\n                 like \"HH:MM\".\n\n:gap-ok-around   List of times during the day which are usually not working\n                 times.  When a gap is detected, but the gap contains any\n                 of these times, the gap is *not* reported.  For example,\n                 if this is (\"4:00\" \"13:00\") then gaps that contain\n                 4:00 in the morning (i.e. the night) and 13:00\n                 (i.e. a typical lunch time) do not cause a warning.\n                 You should have at least one time during the night in this\n                 list, or otherwise the first task each morning will trigger\n                 a warning because it follows a long gap.\n\nFurthermore, the following properties can be used to define faces for\nissue display.\n\n:default-face         the default face, if the specific face is undefined\n:overlap-face         face for overlapping clocks\n:gap-face             face for gaps between clocks\n:no-end-time-face     face for incomplete clocks\n:long-face            face for clock intervals that are too long\n:short-face           face for clock intervals that are too short" org-clock plist org-agenda-log-mode-add-notes "Non-nil means add first line of notes to log entries in agenda views.\nIf a log item like a state change or a clock entry is associated with\nnotes, the first line of these notes will be added to the entry in the\nagenda display." org-agenda-start-with-log-mode "The initial value of log-mode in a newly created agenda window.\nSee `org-agenda-log-mode' and `org-agenda-log-mode-items' for further\nexplanations on the possible values." org-agenda-startup (choice (const :tag "Don't show log items" nil) (const :tag "Show only log items" 'only) (const :tag "Show all possible log items" 'clockcheck) (repeat :tag "Choose among possible values for `org-agenda-log-mode-items'" (choice (const :tag "Show closed log items" 'closed) (const :tag "Show clocked log items" 'clock) (const :tag "Show all logged state changes" 'state)))) org-agenda-start-with-clockreport-mode "The initial value of clockreport-mode in a newly created agenda window." org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2) "Property list with parameters for the clocktable in clockreport mode.\nThis is the display mode that shows a clock table in the daily/weekly\nagenda, the properties for this dynamic block can be set here.\nThe usual clocktable parameters are allowed here, but you cannot set\nthe properties :name, :tstart, :tend, :block, and :scope - these will\nbe overwritten to make sure the content accurately reflects the\ncurrent display in the agenda." org-agenda-search-view-always-boolean "Non-nil means the search string is interpreted as individual parts.\n\nThe search string for search view can either be interpreted as a phrase,\nor as a list of snippets that define a boolean search for a number of\nstrings.\n\nWhen this is non-nil, the string will be split on whitespace, and each\nsnippet will be searched individually, and all must match in order to\nselect an entry.  A snippet is then a single string of non-white\ncharacters, or a string in double quotes, or a regexp in {} braces.\nIf a snippet is preceded by \"-\", the snippet must *not* match.\n\"+\" is syntactic sugar for positive selection.  Each snippet may\nbe found as a full word or a partial word, but see the variable\n`org-agenda-search-view-force-full-words'.\n\nWhen this is nil, search will look for the entire search phrase as one,\nwith each space character matching any amount of whitespace, including\nline breaks.\n\nEven when this is nil, you can still switch to Boolean search dynamically\nby preceding the first snippet with \"+\" or \"-\".  If the first snippet\nis a regexp marked with braces like \"{abc}\", this will also switch to\nboolean search." org-agenda-search-view fboundp defvaralias org-agenda-search-view-search-words-only org-agenda-search-view-force-full-words "Non-nil means, search words must be matches as complete words.\nWhen nil, they may also match part of a word." custom-declare-group org-agenda-time-grid "Options concerning the time grid in the Org-mode Agenda." :tag "Org Agenda Time Grid" org-agenda org-agenda-search-headline-for-time "Non-nil means search headline for a time-of-day.\nIf the headline contains a time-of-day in one format or another, it will\nbe used to sort the entry into the time sequence of items for a day.\nSome people have time stamps in the headline that refer to the creation\ntime or so, and then this produces an unwanted side effect.  If this is\nthe case for your, use this variable to turn off searching the headline\nfor a time." org-agenda-use-time-grid "Non-nil means show a time grid in the agenda schedule.\nA time grid is a set of lines for specific times (like every two hours between\n8:00 and 20:00).  The items scheduled for a day at specific times are\nsorted in between these lines.\nFor details about when the grid will be shown, and what it will look like, see\nthe variable `org-agenda-time-grid'." '((daily today require-timed) "----------------" (800 1000 1200 1400 1600 1800 2000)) "The settings for time grid for agenda display.\nThis is a list of three 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\nThe second item is a string which will be placed behind the grid time.\n\nThe third item is a list of integers, indicating the times that should have\na grid line." (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)) (string :tag "Grid String") (repeat :tag "Grid Times" (integer :tag "Time"))) org-agenda-show-current-time-in-grid "Non-nil means show the current time in the time grid." org-agenda-current-time-string "now - - - - - - - - - - - - - - - - - - - - - - - - -" "The string for the current time marker in the agenda." string org-agenda-sorting "Options concerning sorting in the Org-mode Agenda." "Org Agenda Sorting" org-agenda-sorting-strategy '((agenda habit-down time-up priority-down category-keep) (todo priority-down category-keep) (tags priority-down category-keep) (search category-keep)) "Sorting structure for the agenda items of a single day.\nThis is a list of symbols which will be used in sequence to determine\nif an entry should be listed before another entry.  The following\nsymbols are recognized:\n\ntime-up            Put entries with time-of-day indications first, early first\ntime-down          Put entries with time-of-day indications first, late first\ncategory-keep      Keep the default order of categories, corresponding to the\n		   sequence in `org-agenda-files'.\ncategory-up        Sort alphabetically by category, A-Z.\ncategory-down      Sort alphabetically by category, Z-A.\ntag-up             Sort alphabetically by last tag, A-Z.\ntag-down           Sort alphabetically by last tag, Z-A.\npriority-up        Sort numerically by priority, high priority last.\npriority-down      Sort numerically by priority, high priority first.\ntodo-state-up      Sort by todo state, tasks that are done last.\ntodo-state-down    Sort by todo state, tasks that are done first.\neffort-up          Sort numerically by estimated effort, high effort last.\neffort-down        Sort numerically by estimated effort, high effort first.\nuser-defined-up    Sort according to `org-agenda-cmp-user-defined', high last.\nuser-defined-down  Sort according to `org-agenda-cmp-user-defined', high first.\nhabit-up           Put entries that are habits first\nhabit-down         Put entries that are habits last\nalpha-up           Sort headlines alphabetically\nalpha-down         Sort headlines alphabetically, reversed\n\nThe different possibilities will be tried in sequence, and testing stops\nif one comparison returns a \"not-equal\".  For example, the default\n    '(time-up category-keep priority-down)\nmeans: Pull out all entries having a specified time of day and sort them,\nin order to make a time schedule for the current day the first thing in the\nagenda listing for the day.  Of the entries without a time indication, keep\nthe grouped in categories, don't sort the categories, but keep them in\nthe sequence given in `org-agenda-files'.  Within each category sort by\npriority.\n\nLeaving out `category-keep' would mean that items will be sorted across\ncategories by priority.\n\nInstead of a single list, this can also be a set of list for specific\ncontents, with a context symbol in the car of the list, any of\n`agenda', `todo', `tags', `search' for the corresponding agenda views.\n\nCustom commands can bind this variable in the options section." choice repeat "General" list "Individually" cons (const :tag "Strategy for Weekly/Daily agenda" agenda) (const :tag "Strategy for TODO lists" todo) (const :tag "Strategy for Tags matches" tags) (const :tag "Strategy for search matches" search) org-agenda-cmp-user-defined "A function to define the comparison `user-defined'.\nThis function must receive two arguments, agenda entry a and b.\nIf a>b, return +1.  If a<b, return -1.  If they are equal as seen by\nthe user comparison, return nil.\nWhen this is defined, you can make `user-defined-up' and `user-defined-down'\npart of an agenda sorting strategy." symbol org-sort-agenda-notime-is-late "Non-nil means items without time are considered late.\nThis is only relevant for sorting.  When t, items which have no explicit\ntime like 15:30 will be considered as 99:01, i.e. later than any items which\ndo have a time.  When nil, the default time is before 0:00.  You can use this\noption to decide if the schedule for today should come before or after timeless\nagenda entries." org-sort-agenda-noeffort-is-high "Non-nil means items without effort estimate are sorted as high effort.\nThis also applies when filtering an agenda view with respect to the\n< or > effort operator.  Then, tasks with no effort defined will be treated\nas tasks with high effort.\nWhen nil, such items are sorted as 0 minutes effort." org-agenda-line-format "Options concerning the entry prefix in the Org-mode agenda display." "Org Agenda Line Format" org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s") (timeline . "  % s") (todo . " %i %-12:c") (tags . " %i %-12:c") (search . " %i %-12:c")) "Format specifications for the prefix of items in the agenda views.\nAn alist with five entries, each for the different agenda types.  The\nkeys of the sublists are `agenda', `timeline', `todo', `search' and `tags'.\nThe values are 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  %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  %(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 final\nformat letter, this character will be appended to the field value if\nthe value is not empty.  For example, the format \"%-12:c\" leads to\n\"Diary: \" if the category is \"Diary\".  If the category were be\nempty, no additional colon would be 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 timeline) (string :tag "Format")) (cons (const todo) (string :tag "Format")) (cons (const tags) (string :tag "Format")) (cons (const search) (string :tag "Format"))))] 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 (#$ . 59429))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\210\300\320\321\322\304\305\306\323&\210\300\324\325\326\304\305\327\330\306\331&	\210\300\332\333\334\304\305\306\335&\210\300\336\337\340\304\305\306\341&\210\300\342\311\343\304\305\327\330\306\344&	\210\300\345\311\346\304\305\306\347&\210\300\350\337\351\304\305\304\352\327\353\306\354&\210\300\355\356\357\304\352\327\353\306\360&	\210\300\361\311\362\304\305\306\363&\210\300\364\311\365\304\305\306\366&\210\367\370!\203\244\370\371\364\"\210\300\372\373\374\304\305\306\375&\210\367\370!\203\272\370\376\372\"\210\300\377\201@\201A\304\305\306\201B&\210\300\201C\311\201D\304\305\327\330\306\201E&	\210\300\201F\311\201G\304\305\327\330\306\201H&	\210\201I\201J\311\201K\201L\201M\304\352&\210\300\201N\337\201O\304\201J\306\344&\210\300\201P\337\201Q\304\201J\306\344&\210\300\201R\311\201S\304\201J\306\344&\210\300\201T\311\201U\304\352\306\201E&\210\300\201V\311\201W\306\201X\327\330\304\352&	\207" [custom-declare-variable org-agenda-todo-keyword-format "%-1s" "Format for the TODO keyword in agenda lines.\nSet this to something like \"%-12s\" if you want all TODO keywords\nto occupy a fixed space in the agenda display." :group org-agenda-line-format :type string org-agenda-diary-sexp-prefix nil "A regexp that matches part of a diary sexp entry\nwhich should be treated as scheduling/deadline information in\n`org-agenda'.\n\nFor example, you can use this to extract the `diary-remind-message' from\n`diary-remind' entries." (choice (const :tag "None" nil) (regexp :tag "Regexp")) org-agenda-timerange-leaders '("" "(%d/%d): ") "Text preceding timerange entries in the agenda view.\nThis is a list with two strings.  The first applies when the range\nis entirely on one day.  The second applies if the range spans several days.\nThe strings may have two \"%d\" format specifiers which will be filled\nwith the sequence number of the days, and the total number of days in the\nrange, respectively." (list (string :tag "Deadline today   ") (choice :tag "Deadline relative" (string :tag "Format string") (function))) org-agenda-scheduled-leaders '("Scheduled: " "Sched.%2dx: ") "Text preceding scheduled items in the agenda view.\nThis is a list with two strings.  The first applies when the item is\nscheduled on the current day.  The second applies when it has been scheduled\npreviously, it may contain a %d indicating that this is the nth time that\nthis item is scheduled, due to automatic rescheduling of unfinished items\nfor the following day.  So this number is one larger than the number of days\nthat passed since this item was scheduled first." (list (string :tag "Scheduled today     ") (string :tag "Scheduled previously")) org-agenda-inactive-leader "[" "Text preceding item pulled into the agenda by inactive time stamps.\nThese entries are added to the agenda when pressing \"[\"." :version "24.1" (list (string :tag "Scheduled today     ") (string :tag "Scheduled previously")) org-agenda-deadline-leaders '("Deadline:  " "In %3d d.: ") "Text preceding deadline items in the agenda view.\nThis is a list with two strings.  The first applies when the item has its\ndeadline on the current day.  The second applies when it is in the past or\nin the future, it may contain %d to capture how many days away the deadline\nis (was)." (list (string :tag "Deadline today   ") (choice :tag "Deadline relative" (string :tag "Format string") (function))) org-agenda-remove-times-when-in-prefix t "Non-nil means remove duplicate time specifications in agenda items.\nWhen the format `org-agenda-prefix-format' contains a `%t' specifier, a\ntime-of-day specification in a headline or diary entry is extracted and\nplaced into the prefix.  If this option is non-nil, the original specification\n(a timestamp or -range, or just a plain time(range) specification like\n11:30-4pm) will be removed for agenda display.  This makes the agenda less\ncluttered.\nThe option can be t or nil.  It may also be the symbol `beg', indicating\nthat the time should only be removed when it is located at the beginning of\nthe headline/diary entry." (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When at beginning of entry" beg)) org-agenda-remove-timeranges-from-blocks "Non-nil means remove time ranges specifications in agenda\nitems that span on several days." boolean org-agenda-default-appointment-duration "Default duration for appointments that only have a starting time.\nWhen nil, no duration is specified in such cases.\nWhen non-nil, this must be the number of minutes, e.g. 60 for one hour." (choice (integer :tag "Minutes") (const :tag "No default duration")) org-agenda-show-inherited-tags "Non-nil means show inherited tags in each agenda line.\n\nWhen this option is set to 'always, it take precedences 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' has been taken into account.\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, 'search and 'timeline.\n\nWhen set to nil, never show inherited tags in agenda lines." org-agenda "24.3" (choice (const :tag "Show inherited tags when available" t) (const :tag "Always show inherited tags" 'always) (repeat :tag "Show inherited tags only in selected agenda types" (symbol :tag "Agenda type"))) org-agenda-use-tag-inheritance '(todo search timeline agenda) "List of agenda view types where to use tag inheritance.\n\nIn tags/tags-todo/tags-tree agenda views, tag inheritance is\ncontrolled by `org-use-tag-inheritance'.  In other agenda types,\n`org-use-tag-inheritance' is not used for the selection of the\nagenda entries.  Still, you may want the agenda to be aware of\nthe inherited tags anyway, e.g. for later tag filtering.\n\nAllowed value are 'todo, 'search, 'timeline 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." (choice (const :tag "Use tag inheritance in all agenda types" t) (repeat :tag "Use tag inheritance in selected agenda types" (symbol :tag "Agenda type"))) org-agenda-hide-tags-regexp "Regular expression used to filter away specific tags in agenda views.\nThis means that these tags will be present, but not be shown in the agenda\nline.  Secondary filtering will still work on the hidden tags.\nNil means don't hide any tags." (choice (const :tag "Hide none" nil) (string :tag "Regexp   ")) org-agenda-remove-tags "Non-nil means remove the tags from the headline copy in the agenda.\nWhen this is the symbol `prefix', only remove tags when\n`org-agenda-prefix-format' contains a `%T' specifier." (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When prefix format contains %T" prefix)) fboundp defvaralias org-agenda-remove-tags-when-in-prefix org-agenda-tags-column (if (featurep 'xemacs) -79 -80) "Shift tags in agenda items to this column.\nIf this number is positive, it specifies the column.  If it is negative,\nit means that the tags should be flushright to that column.  For example,\n-80 works well for a normal 80 character screen." integer org-agenda-align-tags-to-column org-agenda-fontify-priorities 'cookies "Non-nil means highlight low and high priorities in agenda.\nWhen t, the highest priority entries are bold, lowest priority italic.\nHowever, settings in `org-priority-faces' will overrule these faces.\nWhen this variable is the symbol `cookies', only fontify the\ncookies, not the entire task.\nThis may also be an association list of priority faces, whose\nkeys are the character values of `org-highest-priority',\n`org-default-priority', and `org-lowest-priority' (the default values\nare ?A, ?B, and ?C, respectively).  The face may be a named face, a\ncolor as a string, or a list like `(:background \"Red\")'.\nIf it is a color, the variable `org-faces-easy-properties'\ndetermines if it is a foreground or a background color." (choice (const :tag "Never" nil) (const :tag "Defaults" t) (const :tag "Cookies only" cookies) (repeat :tag "Specify" (list (character :tag "Priority" :value 65) (choice :tag "Face    " (string :tag "Color") (sexp :tag "Face"))))) org-agenda-day-face-function "Function called to determine what face should be used to display a day.\nThe only argument passed to that function is the day.  It should\nreturns a face, or nil if does not want to specify a face and let\nthe normal rules apply." function org-agenda-category-icon-alist "Alist of category icon to be displayed in agenda views.\n\nEach entry should have the following format:\n\n  (CATEGORY-REGEXP FILE-OR-DATA TYPE DATA-P PROPS)\n\nWhere CATEGORY-REGEXP is a regexp matching the categories where\nthe icon should be displayed.\nFILE-OR-DATA either a file path or a string containing image data.\n\nThe other fields can be omitted safely if not needed:\nTYPE indicates the image type.\nDATA-P is a boolean indicating whether the FILE-OR-DATA string is\nimage data.\nPROPS are additional image attributes to assign to the image,\nlike, e.g. `:ascent center'.\n\n   (\"Org\" \"/path/to/icon.png\" nil nil :ascent center)\n\nIf you want to set the display properties yourself, just put a\nlist as second element:\n\n  (CATEGORY-REGEXP (MY PROPERTY LIST))\n\nFor example, to display a 16px horizontal space for Emacs\ncategory, you can use:\n\n  (\"Emacs\" '(space . (:width (16))))" (alist :key-type (string :tag "Regexp matching category") :value-type (choice (list :tag "Icon" (string :tag "File or data") (symbol :tag "Type") (boolean :tag "Data?") (repeat :tag "Extra image properties" :inline t symbol)) (list :tag "Display properties" sexp))) custom-declare-group org-agenda-column-view "Options concerning column view in the agenda." :tag "Org Agenda Column View" org-agenda-columns-show-summaries "Non-nil means show summaries for columns displayed in the agenda view." org-agenda-columns-compute-summary-properties "Non-nil means recompute all summary properties before column view.\nWhen column view in the agenda is listing properties that have a summary\noperator, it can go to all relevant buffers and recompute the summaries\nthere.  This can mean overhead for the agenda column view, but is necessary\nto have thing up to date.\nAs a special case, a CLOCKSUM property also makes sure that the clock\ncomputations are current." org-agenda-columns-add-appointments-to-effort-sum "Non-nil means the duration of an appointment will add to day effort.\nThe property to which appointment durations will be added is the one given\nin the option `org-effort-property'.  If an appointment does not have\nan end time, `org-agenda-default-appointment-duration' will be used.  If that\nis not set, an appointment without end time will not contribute to the time\nestimate." org-agenda-auto-exclude-function "A function called with a tag to decide if it is filtered on '/ RET'.\nThe sole argument to the function, which is called once for each\npossible tag, is a string giving the name of the tag.  The\nfunction should return either nil if the tag should be included\nas normal, or \"-<TAG>\" to exclude the tag.\nNote that for the purpose of tag filtering, only the lower-case version of\nall tags will be considered, so that this function will only ever see\nthe lower-case version of all tags." org-agenda-bulk-custom-functions "Alist of characters and custom functions for bulk actions.\nFor example, this value makes those two functions available:\n\n  '((?R set-category)\n    (?C bulk-cut))\n\nWith selected entries in an agenda buffer, `B R' will call\nthe custom function `set-category' on the selected entries.\nNote that functions in this alist don't need to be quoted." alist] 12)
#@238 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.
(defalias 'org-agenda-with-point-at-orig-entry '(macro . #[(string &rest body) "\303\304!\305\306\307\310	FDC\311\312D\313\314D\nBBEE)\207" [marker string body make-symbol "--marker" let get-text-property (if string 0 (point-at-bol)) 'org-hd-marker with-current-buffer marker-buffer save-excursion goto-char] 7 (#$ . 71833)]))
(put 'org-agenda-with-point-at-orig-entry 'edebug-form-spec '(form body))
#@206 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.
(defalias 'org-add-agenda-custom-command #[(entry) "\303@	\"\211\203\nA\241\202	B\211)\207" [entry org-agenda-custom-commands ass assoc] 4 (#$ . 72482)])
#@31 Keymap for `org-agenda-mode'.
(defvar org-agenda-mode-map (make-sparse-keymap) (#$ . 72856))
(byte-code "\300\301!\203\301\302\303\"\210\300\207" [fboundp defvaralias org-agenda-keymap org-agenda-mode-map] 3)
(defvar org-agenda-restrict nil)
(defvar org-agenda-follow-mode nil)
(defvar org-agenda-entry-text-mode nil)
(defvar org-agenda-clockreport-mode nil)
(defvar org-agenda-show-log nil)
(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 (#$ . 73331))
(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 (#$ . 73557))
#@183 Non-nil means agenda q key will bury agenda buffers.
Agenda commands will then show existing buffer instead of generating new ones.
When nil, `q' will kill the single agenda buffer.
(custom-declare-variable 'org-agenda-sticky nil '(#$ . 73681) :group 'org-agenda :version "24.3" :type 'boolean)
#@29 Toggle `org-agenda-sticky'.
(defalias 'org-toggle-sticky-agenda #[(&optional arg) "\203\f\303!\304V\202	?\211	\232\203*\305\306!\205A\307\310	\203%\311\202&\312\"\202A\n\313 \210\305\306!\205A\307\314	\203?\311\202@\312\")\207" [arg org-agenda-sticky new-value prefix-numeric-value 0 called-interactively-p interactive message "Sticky agenda was already %s" "enabled" "disabled" org-agenda-kill-all-agenda-buffers "Sticky agenda was %s"] 4 (#$ . 73982) "P"])
#@42 Agenda buffer currently being generated.
(defvar org-agenda-buffer nil (#$ . 74462))
(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)
#@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-tag-filter-overlays org-agenda-cat-filter-overlays org-agenda-pre-window-conf org-agenda-columns-active org-agenda-tag-filter org-agenda-category-filter org-agenda-markers org-agenda-last-search-view-search-was-boolean org-agenda-filtered-by-category org-agenda-filter-form org-agenda-cycle-counter org-agenda-last-prefix-arg) (#$ . 74722))
#@125 Mode for time-sorted view on action items in Org-mode files.

The following commands are available:

\{org-agenda-mode-map}
(defalias 'org-agenda-mode #[nil "\203D\306 \307 \210\310\311\n\"\210	\312\211\2039\f@\211@A0
\20310\n\235\20310
L\210*\fA\211\204+\311\313!\210\314\202e1\203[\307 \210\310\311\n\"\210\311\313!\210\314\202e\307 \210\311\313!\210\312\312\21123\3124\3155\316\3175D60\3110!6L\210*\3207\3218!\210\3229!\210:\203\230\314;\323\31260\3110!6L\210*\324\325\326\312\327$\210\324\330\331\312\327$\210\311\332!\210\333\332\334\"\210<\204\323=>?@ABCD\335\336\337\340\341\342\343N\203\342\344\202\343\345\346\342\343N?#\347D\350\351\342 \"\"#\210\352 \210\353\354\355!\203

\355\202
\356\357C\"\207" [org-agenda-doing-sticky-redo save org-agenda-local-vars elem --dolist-tail-- val buffer-local-variables kill-all-local-variables mapc make-local-variable nil org-agenda-this-buffer-is-sticky t org-agenda-mode font-lock-global-modes not "Org-Agenda" use-local-map easy-menu-add line-move-visual org-add-hook post-command-hook org-agenda-update-agenda-type local pre-command-hook org-unhighlight filter-buffer-substring-functions add-hook #[(fun start end delete) "\304	\n#!\207" [fun start end delete substring-no-properties] 5] easy-menu-change ("Agenda") "Agenda Files" append vector org-agenda-files org-restrict "Restricted to single file" "Edit File List" (org-edit-agenda-file-list) "--" mapcar org-file-menu-entry org-agenda-set-mode-name apply fboundp run-mode-hooks run-hooks org-agenda-mode-hook var org-agenda-sticky org-agenda-undo-list org-agenda-pending-undo-list org-agenda-bulk-marked-entries major-mode value mode-name org-agenda-mode-map org-agenda-menu org-startup-truncated truncate-lines org-agenda-keep-modes org-agenda-start-with-follow-mode org-agenda-follow-mode org-agenda-start-with-entry-text-mode org-agenda-entry-text-mode org-agenda-start-with-clockreport-mode org-agenda-clockreport-mode org-agenda-start-with-log-mode org-agenda-show-log] 10 (#$ . 75507) nil])
(byte-code "\304\305\306	$\210\307\310\311#\210\307\312\311#\210\307\313\314#\210\307\315\316#\210\307\317\320#\210\307\321\322#\210\307\323\324#\210\307\325\326#\210\307\327\330#\210\307\331\332#\210\307\333\334#\210\307\335\336#\210\307\337\340#\210\307\341\342#\210\307\343\344#\210\307\345\346#\210\307\347\350#\210\307\351\352#\210\307\353\354#\210\307\355\354#\210\307\356\354#\210\307\357\360#\210\307\361\362#\210\307\363\364#\210\307\365\364#\210\307\366\367#\210\307\370\371#\210\307\372\373#\210\307\374\375#\210\307\376\377#\210\307\201@\201A#\210\307\201B\201A#\210\307\201C\201D#\210\307\201E\201F#\210\307\201G\201F#\210\307\201H\201I#\210\307\201J\201K#\210\307\201L\201M#\210\307\201N\201O#\210\307\201P\201Q#\210\307\201R\201S#\210\307\201T\201S#\210\307\201U\201V#\210\307\201W\201X#\210\307\201Y\201V#\210\307\201Z\201X#\210\307\201[\201\\#\210\307\201]\201^#\210\307\201_\201`#\210\201a\n\203\224
\307\201b\n\211A@!\201c#\210\202}
)\307\201d\201e#\210\307\201f\201g#\210\307\201h\201i#\210\307\201j\201k#\210\307\201l\201m#\210\307\201n\201o#\210\307\201p\201q#\210\307\201r\201s#\210\307\201t\201u#\210\307\201v\201w#\210\307\201x\201y#\210\307\201z\201y#\210\307\201{\201|#\210\307\201}\201~#\210\307\201\201\200#\210\307\201\201\201\202#\210\307\201\203\201\204#\210\307\201\205\201\206#\210\307\201\207\201\210#\210\307\201\211\201\210#\210\307\201\212\201\213#\210\307\201\214\201\215#\210\307\201\216\201\217#\210\307\201\220\201\221#\210\307\201\222\201\223#\210\304\201\224\201\215	$\210\304\201\225\201\217	$\210\307\201\226\201\227#\210\307\201\230\201\231#\210\307\201\232\201\233#\210\307\201\234\201\235#\210\307\201\236\201\235#\210\307\201\237\201\240#\210\307\201\241\201\242#\210\307\201\243\201\244#\210\307\201\245\201\246#\210\307\201\247\201\250#\210\307\201\251\201\252#\210\307\201\253\201\252#\210\307\201\254\201\255#\210\307\201\256\201\255#\210\307\201\257\201\260#\210\307\201\261\201\260#\210\307\201\262\201\263#\210\307\201\264\201\263#\210\307\201\265\201\266#\210\307\201\267\201\270#\210\307\201\271\201\272#\210\307\201\273\201\274#\210\307\201\275\201\272#\210\307\201\276\201\274#\210\307\201\277\201\272#\210\307\201\300\201\274#\210\307\201\301\201\302#\210\307\201\303\201\304#\210\307\201\305\201\306#\210\307\201\307\201\310#\210\307\201\311\201\312#\210\307\201\313\201\314#\210\307\201\315\201\316#\210\307\201\317\201\320#\210\307\201\321\201\322#\210\307\201\323\201\324#\210\307\201\325\201\326#\210\307\201\327\201\330#\210\307\201\331\201\332#\210\201\333\201\334\201\335#\210\307\201\336\201\337#\210\307\201\340\201\341#\210\307\201\342\201\343#\210\307\201\344\201\345#\210\203m\307\201\346\201\347#\210\304\207" [org-agenda-mode-map global-map l org-agenda-mouse-1-follows-link substitute-key-definition undo org-agenda-undo org-defkey "	" org-agenda-goto [(tab)] "
" org-agenda-switch-to "" org-agenda-kill "" org-agenda-refile "m" org-agenda-bulk-mark "*" org-agenda-bulk-mark-all "#" org-agenda-dim-blocked-tasks "%" org-agenda-bulk-mark-regexp "u" org-agenda-bulk-unmark "U" org-agenda-bulk-unmark-all "B" org-agenda-bulk-action "k" org-agenda-capture "A" org-agenda-append-agenda "!" org-reload "
" org-agenda-archive-default "a" org-agenda-toggle-archive-tag "A" org-agenda-archive-to-archive-sibling "" org-agenda-archive "$" "$" "" org-agenda-open-link " " org-agenda-show-and-scroll-up [backspace] org-agenda-show-scroll-down "" [(control shift right)] org-agenda-todo-nextset [(control shift left)] org-agenda-todo-previousset "b" org-agenda-tree-to-indirect-buffer "o" delete-other-windows "L" org-agenda-recenter "" org-agenda-todo "t" "a" org-agenda-archive-default-with-confirmation ":" org-agenda-set-tags "" "." org-agenda-goto-today "j" org-agenda-goto-date "d" org-agenda-day-view "w" org-agenda-week-view "y" org-agenda-year-view "" org-agenda-add-note "z" [(shift right)] org-agenda-do-date-later [(shift left)] org-agenda-do-date-earlier [3 24 (right)] [3 24 (left)] ">" org-agenda-date-prompt "" org-agenda-schedule "" org-agenda-deadline (1 2 3 4 5 6 7 8 9 0) int-to-string digit-argument "F" org-agenda-follow-mode "R" org-agenda-clockreport-mode "E" org-agenda-entry-text-mode "l" org-agenda-log-mode "v" org-agenda-view-mode-dispatch "D" org-agenda-toggle-diary "!" org-agenda-toggle-deadlines "G" org-agenda-toggle-time-grid "r" org-agenda-redo "g" #[nil "\300\301!\207" [org-agenda-redo t] 2 nil nil] "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-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-tag-refine "<" org-agenda-filter-by-category "^" org-agenda-filter-by-top-category ";" org-timer-set-timer define-key "?" org-agenda-show-the-flagging-note "
g" org-mobile-pull "
p" org-mobile-push [mouse-2] org-agenda-goto-mouse [mouse-3] org-agenda-show-mouse [follow-link] mouse-face] 5)
#@13 Agenda menu
(defvar org-agenda-menu nil (#$ . 83855))
(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 'timeline)] ["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  (or just w)"] ["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 'timeline) :keys "v l (or just l)"] ["Include archived trees" org-agenda-archives-mode :style toggle :selected org-agenda-archives-mode :active t :keys "v a"] ["Include archive files" (org-agenda-archives-mode t) :style toggle :selected (eq org-agenda-archives-mode t) :active t :keys "v A"] "--" ["Remove Restriction" org-agenda-remove-restriction-lock org-agenda-restrict]) ["Write view to file" org-agenda-write t] ["Rebuild buffer" org-agenda-redo t] ["Save all Org-mode 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] ["Mark matching regexp" org-agenda-bulk-mark-regexp t] ["Unmark entry" org-agenda-bulk-unmark t] ["Unmark all entries" org-agenda-bulk-unmark-all :active t :keys "U"]) ["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 'timeline)] ["Change Date -1 day" org-agenda-date-earlier (org-agenda-check-type nil 'agenda 'timeline)] ["Change Time +1 hour" org-agenda-do-date-later :active (org-agenda-check-type nil 'agenda 'timeline) :keys "C-u S-right"] ["Change Time -1 hour" org-agenda-do-date-earlier :active (org-agenda-check-type nil 'agenda 'timeline) :keys "C-u S-left"] ["Change Time +  min" org-agenda-date-later :active (org-agenda-check-type nil 'agenda 'timeline) :keys "C-u C-u S-right"] ["Change Time -  min" org-agenda-date-earlier :active (org-agenda-check-type nil 'agenda 'timeline) :keys "C-u C-u S-left"] ["Change Date to ..." org-agenda-date-prompt (org-agenda-check-type nil 'agenda 'timeline)]) ("Clock and Effort" ["Clock in" org-agenda-clock-in t] ["Clock out" org-agenda-clock-out t] ["Clock cancel" org-agenda-clock-cancel t] ["Goto running clock" org-clock-goto t] "--" ["Set Effort" org-agenda-set-effort t] ["Change clocked effort" org-clock-modify-effort-estimate (org-clock-is-active)]) ("Priority" ["Set Priority" org-agenda-priority t] ["Increase Priority" org-agenda-priority-up t] ["Decrease Priority" org-agenda-priority-down t] ["Show Priority" org-show-priority t]) ("Calendar/Diary" ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda 'timeline)] ["Goto Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda 'timeline)] ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda 'timeline)] ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda 'timeline)] ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda 'timeline)] ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda 'timeline)] "--" ["Create iCalendar File" org-export-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 "C-c a ?"] ["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 (#$ . 90147))
#@75 Buffers that have already seen `undo-start' in the current undo sequence.
(defvar org-agenda-undo-has-started-in nil (#$ . 90262))
#@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 #[nil "\204\306\307!\210	\n=\204\310\f
\204\306\311!\210
\211A@\310\211\310\211\211A@\211A@\3128\310\212\203Rb\210n\203Z\313\202[\314\315\313`\"\\*	prq\210)\310\211 !\"#$%&'\316\211A@\211!\203\335\211A@\203\201rq\210\317()>\204\271B\320\321!\210\322 \210\203\325<\203\325@\204\325\211A@\210\202\271\323\313!\210+\202\201\2034
\324#r%q\210)\"!\324\"r$q\210)\" !\204
 \2034
!\203
r%q\210\325 \210) \203#
r$q\210\325 \210)&'%!$ \257\fB.*\214~\210eb\210*Sy\210*\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 error "Check the variable `org-agenda-allow-remote-undo' to activate remote undo" nil "No further undo information" 2 1 0 count-lines bufferp t make-local-variable pending-undo-list undo-start undo-more org-verify-change-for-undo undo-boundary message "`%s' undone (buffer %s)" buffer-name entry buf line cmd rembuf pos buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline inhibit-read-only last-undo-buffer N] 9 (#$ . 90400) nil])
#@70 Verify that a real change occurred between the undo lists L1 and L2.
(defalias 'org-verify-change-for-undo #[(l1 l2) "\203<\203@\204\211A@\210\202	\203.	<\203.	@\204.	\211A@\210\202	=?\207" [l1 l2] 2 (#$ . 91819)])
(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)
#@966 Alist of custom agenda keys and contextual rules.

For example, if you have a custom agenda command "p" and you
want this command to be accessible only from plain text files,
use this:

   '(("p" ((in-file . "\.txt"))))

Here are the available contexts definitions:

      in-file: command displayed only in matching files
      in-mode: command displayed only in matching modes
  not-in-file: command not displayed in matching files
  not-in-mode: command not displayed in matching modes
   [function]: a custom function taking no argument

If you define several checks, the agenda command will be
accessible if there is at least one valid check.

You can also bind a key to another agenda custom command
depending on contextual rules.

    '(("p" "q" ((in-file . "\.txt"))))

Here it means: in .txt files, use "p" as the key for the
agenda command otherwise associated with "q".  (The command
originally associated with "q" is not displayed to avoid
duplicates.)
(custom-declare-variable 'org-agenda-custom-commands-contexts nil '(#$ . 92249) :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 mode" in-mode) (const :tag "Not in mode" not-in-mode)) (regexp)) (function :tag "Custom function"))))))
(defvar org-keys nil)
(defvar org-match nil)
#@1685 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.
L     Create a timeline for the current buffer.
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).
(defalias 'org-agenda #[(&optional arg org-keys restriction) "\300\301\215\207" [exit (byte-code "\306	\307 	\232\203\310\202\n\311\306\312\313\"\"\314
\"p@\315\316 !A\306\211BC\306\211DE\306\211FGH\204`\317\320!\203K\204Q\321\322\323\306#\210\306IJ\306\211\223\210K\306\211\223\210\321\324\325\306#\210\321\324\326\306#\210pLM\204\202\327!\211G@MGANO\203\215\330\331M\"H\204\330N\203\330\321\322\323AC#\210N\332=\203\272\333IJ\334 \306\223\210K\335 \306\223\210\202\330N\336=\203\330\212\333I\337\333!\210J`\306\223\210K\340\333!\306\223\210)\341M\"\211B\203\342B89\204\364\343\342B8!\203\365
\342B8D\344\345B8!E\346B8FO\203#
E;\203
\330\347ME#\206\"
\330\331M\"\321\324\325F#\210D\350=\2039
\351F\352\"\202\215D\353=\203H
\351F\354\"\202\215D\355=\203W
\351F\356\"\202\215D\357=\203f
\351F\360\"\202\215D\361=\203u
\351F\362\"\202\215D\363=\203\204
\351F\364\"\202\215D\365=\203\223
\351F\366\"\202\215D\367=\203\245
\370 \210\351F\371\"\202\215D\372=\203\267
\370 \210\351F\373\"\202\215D\374=\203\311
\370 \210\351F\375\"\202\215\343D!\203\330
\351F\376\"\202\215\377D!\203\351
\351F\201T\"\202\215\201U\201VD\"\202\215\201WBA@B\211PAA)\"\202\215M\201X\232\203\f\201Y\303!\202\215M\201Z\232\203.\201[\201\\!\202\215M\201]\232\203A\201[\201^!\202\215M\201_\232\203g\201^Q\206U\201`QRQS\201[R!+\202\215M\201a\232\203z\201[\201b!\202\215M\201c\232\203\240\201bQ\206\216\201dQRQS\201[R!+\202\215M\201e\232\203\263\201[\201f!\202\215M\201g\232\203\331\201fQ\206\307\201hQRQS\201[R!+\202\215M\201i\232\203\354\201[\201j!\202\215M\201k\232\203
\201f\306\201l\"\210\201m\201n\201o\333\211$\202\215M\201p\232\203M\201q\201r!\204(\201U\201s!\210N?\205\215\321\322\323AC#\210\201tQQRQS\201[R!+\202\215M\201u\232\203`\201[\201v!\202\215M\201w\232\203s\201[\201x!\202\215M\201y\232\203\206\201Y\201z!\202\215\201U\201{!.\207" [prefix-descriptions org-agenda-buffer-name org-agenda-window-setup org-agenda-custom-commands org-agenda-custom-commands-orig org-agenda-custom-commands-contexts nil buffer-name current-window delq mapcar #[(x) "A;\203\f	B\302\207A@;\203\207A@\204'@\303\211AA)BB\207@\303ABB\207" [x prefix-descriptions nil ""] 4] org-contextualize-keys buffer-file-name buffer-base-buffer boundp org-agenda-keep-restricted-file-list put org-agenda-files org-restrict org-agenda-redo-command org-lprops last-args org-agenda-get-restriction-and-command format "*Org Agenda(%s)*" region t region-beginning region-end subtree org-back-to-heading org-end-of-subtree assoc 2 functionp eval 3 4 "*Org Agenda(%s:%s)*" agenda org-let (org-agenda-list current-prefix-arg) alltodo (org-todo-list current-prefix-arg) search (org-search-view current-prefix-arg org-match nil) stuck (org-agenda-list-stuck-projects current-prefix-arg) tags (org-tags-view current-prefix-arg org-match) tags-todo (org-tags-view '(4) org-match) todo (org-todo-list org-match) tags-tree org-check-for-org-mode (org-match-sparse-tree current-prefix-arg org-match) todo-tree (org-occur (concat "^" org-outline-regexp "[ 	]*" (regexp-quote org-match) "\\>")) occur-tree (org-occur org-match) (funcall type org-match) fboundp buf bfn entry key type org-match lprops ans org-agenda-overriding-restriction org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end org-agenda-last-dispatch-buffer org-keys restriction org-agenda-sticky x arg command current-prefix-arg (funcall type org-match) error "Invalid custom agenda command type %s" org-agenda-run-series "C" customize-variable "a" call-interactively org-agenda-list "s" org-search-view "S" (4) "t" org-todo-list "T" (4) "m" org-tags-view "M" (4) "e" org-store-agenda-views "?" "+FLAGGED" org-add-hook post-command-hook #[nil "\302 ?\205'\303 \211\205\304\305\"\211\205&\306\307\310\311\312\313\314	!#\315\316\317$P!*\207" [m note current-message org-agenda-get-any-marker org-entry-get "THEFLAGGINGNOTE" message "FLAGGING-NOTE ([?] for more info): " org-add-props replace-regexp-in-string "\\\\n" "//" copy-sequence nil face org-warning] 9] "L" derived-mode-p org-mode "This is not an Org-mode file" org-timeline "#" org-agenda-list-stuck-projects "/" org-occur-in-agenda-files "!" org-stuck-projects "Invalid agenda key"] 6)] 2 (#$ . 93760) "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 #[nil "\301\302!\204\n\303\304!\210\305\306 \210~\210\307 \210\310 )\207" [org-agenda-multi derived-mode-p org-agenda-mode error "Can only append from within agenda buffer" t org-agenda org-agenda-finalize org-agenda-fit-window-to-buffer] 2 (#$ . 99907) nil])
(defalias 'org-agenda-normalize-custom-commands #[(cmds) "\301\302\303\304\"\"\207" [cmds delq nil mapcar #[(x) "A;\203\301\207A@;\203\207A@\204#@\302\211AA)BB\207@\302ABB\207" [x nil ""] 4]] 5])
#@53 The user interface for selecting an agenda command.
(defalias 'org-agenda-get-restriction-and-command #[(prefix-descriptions) "\300\301\215\207" [exit (byte-code "\306\307 !\211\205\f\310\311!\312 \313\314\211@A\314\211BC\314\211DE\314\211F \314\211GH\314\211IJ\314\211KL\314\211MN\314\211OP\315 Q\316\216\317 \210\320\321!\210\322 \210\323c\210\324 H\fIG\325=\203\232\326R\214~\210eb\210RSy\210*\327\330\314\325#\210\331\225\332 |\210\326u\210\333\334!\210\331\225\332 |\210H\331\225\314\223\210Hb\210`d|\210\314LI\211AI@\211C\203\336
C@DCA@J\335C8E\336C8FDG\326V\203\334\337\340\341D!\"\210\202\245\342\343\344\345D!\346\"\347\350J\"\203\362J\202{
E\351=\203\375\352\202{
E\353=\203
\354\202{
E\355=\203
\356\202{
E\357=\203
\360\202{
E\361=\203)
\362\202{
E\363=\2034
\364\202{
E\365=\203?
\366\202{
E\367=\203J
\370\202{
E\371=\203U
\372\202{
E\373=\203`
\374\202{
\375E!\203x
E9\203t
\376E!\202{
\377\202{
\201W#KS\203\266
K\201XF;\203\242
\345F!F\344F\314\201Y\201Z$\202\260
E<\205\260
\342\201[EG\"QK\202\324
\201\\F!\203\324
\201]\331KG\201^\201_FPDK$\210KLBL\202\245L\237L \203\362
\201`\201a \"\210T\203!LG\211O\335\245\201bO\335\"\\\211PL\233N\345L!MPSM\233\314\241\210\202(LM\314NM\203d\201cM\211AM@\261\210N\203(i\201dW\203S\201e\201d\325\"\210\202X\201fc\210N\211AN@c\210\202(eb\210A\203|\201gd!\204\204\201h \210\202\204\325A\201h \210\201i\201j	\204\223U\203\263U\203\236\201k\202\264@\203\255\342\201l@\"\202\264\201m\202\264\313\"\210\201n B\201i\313!\210\201o\201pB!\f\"\203\350
\201pB!P\201q\201r
@B\"\210\202aB >\203
\201pB!P\314 G\206\325G\201s\314\201t\201u\f\"\"\211\202bB\201v=\2030\201w\201x!\210\201y\335!\210\202a	\204SB\201z>\203S\201i\201{!\210\201| \210\201y\326!\210\202aB\201}=\203l\201~\201!\210\201\200@\202aB\201\201=\203\217\201~\201!\210\n\203\207\201\202\202\212\201\203@\202aB\201\204=\203\316\201~\201!\210@\201\200=\203\271\n\203\263\201\202\202\311\201\203\202\311@\201\205>\203\306\314\202\311\201\200@\202aB\201\206=\203\345\201~\201!\210\314@\202a
\313\232\203\nB\201\207>\203\n\201q\201r\201pB!\211@B\"\210\202a
G\331V\203)B\201\210=\203)\201\211 \210\201\212V!\210\202aB\201\213\232\203=\201\214\201\215!\210\202a\201\214\201\216B\"\210\202a" [bfn restrict-ok region-p org-agenda-custom-commands custom selstring buffer-file-name buffer-base-buffer derived-mode-p org-mode org-region-active-p "" nil current-window-configuration ((set-window-configuration #1=#:wconfig)) delete-other-windows org-switch-to-buffer-other-window " *Agenda Commands*" erase-buffer #("Press key for an agenda command:        <   Buffer, subtree/region restriction\n--------------------------------        >   Remove restriction\na   Agenda for current week or day      e   Export agenda views\nt   List of all TODO entries            T   Entries with special TODO kwd\nm   Match a TAGS/PROP/TODO query        M   Like m, but only TODO entries\ns   Search for keywords                 S   Like s, but only TODO entries\nL   Timeline for current buffer         #   List stuck projects (!=configure)\n/   Multi-occur                         C   Configure custom agenda commands\n?   Find :FLAGGED: entries              *   Toggle sticky agenda views\n" 40 41 (face bold) 119 120 (face bold) 142 143 (face bold) 182 183 (face bold) 206 207 (face bold) 246 247 (face bold) 280 281 (face bold) 320 321 (face bold) 354 355 (face bold) 394 395 (face bold) 428 429 (face bold) 468 469 (face bold) 493 494 (face bold) 506 507 (face bold) 546 547 (face bold) 583 584 (face bold) 623 624 (face bold)) point-marker t 1 re-search-forward ":" 0 point-at-eol looking-at "-+" 2 3 add-to-list prefixes string-to-char format "%-4s%-14s" org-add-props copy-sequence (face bold) string-match "\\S-" agenda "Agenda for current week or day" alltodo "List of all TODO entries" search "Word search" stuck "List of stuck projects" todo "TODO keyword" tags "Tags query" tags-todo "Tags (TODO)" tags-tree "Tags tree" todo-tree "TODO kwd tree" occur-tree "Occur tree" functionp symbol-name "Lambda expression" restriction second-time c entry key type match rmheader header-end custom1 desc line lines left right n n1 #1# N org-agenda-menu-show-matcher org-agenda-menu-two-columns org-agenda-overriding-restriction prefix-descriptions "???" ": " face org-warning "set of %d commands" org-string-nw-p add-text-properties help-echo "Matcher: " mapc #[(x) "\304\305\306\307!\310\311\312$\313	\307!P\n\"A\206\314#B\211\207" [x selstring prefix-descriptions lines format "%s   %s" org-add-props char-to-string nil face bold assoc "Prefix key"] 7] mod "\n" 40 move-to-column "   " pos-visible-in-window-p org-fit-window-to-buffer message "Press key for agenda command%s:" " (restriction lock active)" " (restricted to %s)" " (unrestricted)" read-char-exclusive assoc char-to-string throw exit delq mapcar #[(x) "@G\302U\206\303@!	U??\205@\302\304OAB\207" [x c 1 string-to-char nil] 3] 42 call-interactively org-toggle-sticky-agenda sit-for (49 48 60) "Restriction is only possible in Org-mode buffers" ding 49 org-agenda-remove-restriction-lock noupdate buffer 48 region subtree 60 (subtree region) 62 (115 83 97 116 109 76 67 101 84 77 35 33 47 63) 127 delete-window org-agenda-get-restriction-and-command 113 error "Abort" "Invalid key %c"] 8)] 2 (#$ . 100589)])
#@36 Fit the window to the buffer size.
(defalias 'org-agenda-fit-window-to-buffer #[nil "\302>\205\303\304!\205\305\306\307\310 	A_!\307\310 	@_!#\207" [org-agenda-window-setup org-agenda-window-frame-fractions (reorganize-frame) fboundp fit-window-to-buffer org-fit-window-to-buffer nil floor frame-height] 6 (#$ . 106152)])
(defvar org-cmd nil)
(defvar org-agenda-overriding-cmd nil)
(defvar org-agenda-overriding-arguments nil)
(defvar org-agenda-overriding-cmd-arguments nil)
(defalias 'org-agenda-run-series #[(name series) "\306A@\307\"\210\310 \210\311\312\n\313DE@A@\314\211'(\314\211)*\f\211A@\211(\203\345(@)\315(A@!'\316(8*+(=\205S,\206S-,)\317=\203f\320
*\321#\210\202\341)\322=\203w\320
*\323#\210\202\341)\324=\203\210\320
*\325#\210\202\341)\326=\203\231\320
*\327#\210\202\341)\330=\203\252\320
*\331#\210\202\341)\332=\203\273\320
*\333#\210\202\341)\334=\203\314\320
*\335#\210\202\341\336)!\203\335\320
*\337#\210\202\341\340\341!\210)\202&~\210\311.\342ed\343\311\344F#\210)/eb\210.\345 \210\306A@\346\"\207" [series org-agenda-multi name redo cmds gprops org-let (org-agenda-prepare name) org-agenda-reset-markers t org-agenda-run-series quote nil eval 2 agenda org-let2 (call-interactively 'org-agenda-list) alltodo (call-interactively 'org-todo-list) search (org-search-view current-prefix-arg match nil) stuck (call-interactively 'org-agenda-list-stuck-projects) tags (org-tags-view current-prefix-arg match) tags-todo (org-tags-view '(4) match) todo (org-todo-list match) fboundp (funcall type match) error "Invalid type in command series" add-text-properties org-series org-series-redo-cmd org-agenda-fit-window-to-buffer (org-agenda-finalize) match org-cmd type lprops org-agenda-overriding-cmd org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments inhibit-read-only org-agenda-redo-command] 8])
#@356 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.
(defalias 'org-batch-agenda '(macro . #[(cmd-key &rest parameters) "\302\303\304!\305E!\210	q\210\306\307 !\207" [parameters org-agenda-buffer-name eval let org-make-parameter-alist (if (> (length cmd-key) 2) (org-tags-view nil cmd-key) (org-agenda nil cmd-key)) princ buffer-string] 4 (#$ . 108064)]))
(defvar org-agenda-info nil)
#@1696 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        Sting 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
(defalias 'org-batch-agenda-csv '(macro . #[(cmd-key &rest parameters) "\304\305\306\307\310!\"\311E!\210	q\210\312\313 \314\"\315\n\211A@\211\205(\316\317\215\210\202*\207" [parameters org-agenda-buffer-name lines line eval let append ((org-agenda-remove-tags t)) org-make-parameter-alist (if (> (length cmd-key) 2) (org-tags-view nil cmd-key) (org-agenda nil cmd-key)) org-split-string buffer-string "\n" nil next (byte-code "\302\303\304#\204
\305\306\307\"\210\310\311\303\"!\312\313\314\315\316#!\210\312\317!\207" [line org-agenda-info get-text-property 0 org-category throw next nil 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) "," "\n"] 5)] 6 (#$ . 108760)]))
#@119 Make sure all properties on an agenda item have a canonical form.
This ensures the export commands can easily use it.
(defalias 'org-fix-agenda-info #[(props) "\304\211\305\n\306\"\211\203\307\n\306\310\311	\312##\305\n\313\"\211\2036	\250\203)\314	!\315\316	!)\307\n\313	#\305\n\317\"\211\203[	\250\203H\314	!\320\316	!)\307\n\317	#\307\n\321	#\305\n\322\"\211\203\252\323\324	\"\203{\307\n\325\326\327	\"#\210\330\331\332\211	$\305\n\333\"\211\203\244\334\335Q\211\203\244\323	\"\203\244\307\n\336\326\327	\"#\210\330\331\332\211	$\307\n\322	#\210*\n\207" [re tmp props calendar-date-display-form nil plist-get tags plist-put mapconcat identity ":" date calendar-gregorian-from-absolute (year "-" month "-" day) calendar-date-string day (year "-" month "-" day) agenda-day txt string-match "\\[#\\([A-Z0-9]\\)\\] ?" priority-letter match-string 1 replace-match "" t org-todo-regexp "\\`\\.*" " ?" todo] 7 (#$ . 111267)])
(defalias 'org-agenda-export-csv-mapper #[(prop) "\303	\"\211\204
\304\202\n;\203\n\202\305\n!\306\307\n\"\203+\310\311\312\211\n$\202\313\n!)\207" [org-agenda-info prop res plist-get "" prin1-to-string string-match "," replace-match ";" t org-trim] 6])
(defalias 'org-store-agenda-views #[(&rest parameters) "\300\301C!\207" [eval org-batch-store-agenda-views] 2 nil nil])
#@59 Run all custom agenda commands that have a file argument.
(defalias 'org-batch-store-agenda-views '(macro . #[(&rest parameters) "\306!\307	\310\n!\307\211\211\211\211\211\211\211 !\311 \"\312\216!\205\313!\211A!@\211@A\3138#\203e;\203]\314\315#\206g\314\316\"\202g$\3138\211<\203v\317\202w\3208\f<\203\204\320\202\205\3218\211;\203\224C\203+\322\323\324%
#\325E!\210q\210\203\276\322\323\324%
#\326E!\210\202\251\327!\203+\330!\210\202+.\207" [org-agenda-custom-commands default-directory parameters bufname cmd-or-set opts org-agenda-normalize-custom-commands nil org-make-parameter-alist current-window-configuration ((set-window-configuration #1=#:wconfig)) 2 format "*Org Agenda(%s:%s)*" "*Org Agenda(%s)*" 3 4 5 eval let append (org-agenda nil thiscmdkey) (org-agenda-write (expand-file-name (pop files) dir) nil t bufname) get-buffer kill-buffer files match thiscmdcmd thiscmdkey cmd pars dir pop-up-frames cmds #1# org-agenda-sticky org-agenda-buffer-name org-agenda-exporter-settings] 13 (#$ . 112617)]))
#@43 The current span used in the agenda view.
(defvar org-agenda-current-span nil (#$ . 113727))
#@53 Mark the line at POS as an agenda structure header.
(defalias 'org-agenda-mark-header-line #[(pos) "\212b\210\302\303 \304 \305\306$\210	\205\302\303 \304 \301	$)\207" [pos org-agenda-title-append put-text-property point-at-bol point-at-eol org-agenda-structural-header t] 5 (#$ . 113826)])
(defvar org-agenda-write-buffer-name "Agenda View")
#@686 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) or Postscript (.ps) is produced.
If the extension is .ics, run icalendar export over all files used
to construct the agenda and limit the export to entries listed in the
agenda now.
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, use this as the buffer name for the agenda to write.
(defalias 'org-agenda-write #[(file &optional open nosettings agenda-bufname) "\306!\204\307\310\"\210\311	?\205\n\312\206#\313\314!\203\"\315 \206#\fq#\210
\205-\316!\207" [file nosettings org-agenda-exporter-settings agenda-bufname org-agenda-buffer-name open file-writable-p error "Cannot write agenda to file %s" org-let (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (let ((bs (copy-sequence (buffer-string))) beg) (org-agenda-unmark-filtered-text) (with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) (set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 'org-filtered) (while (setq beg (text-property-any (point-min) (point-max) 'org-filtered t)) (delete-region beg (or (next-single-property-change beg 'org-filtered) (point-max)))) (run-hooks 'org-agenda-before-write-hook) (cond ((org-bound-and-true-p org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) ((string-match "\\.html?\\'" file) (require 'htmlize) (set-buffer (htmlize-buffer (current-buffer))) (when org-agenda-export-html-style (goto-char (point-min)) (kill-region (- (search-forward "<style") 6) (search-forward "</style>")) (insert org-agenda-export-html-style)) (write-file file) (kill-buffer (current-buffer)) (message "HTML written to %s" file)) ((string-match "\\.ps\\'" file) (require 'ps-print) (ps-print-buffer-with-faces file) (message "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file) (require 'ps-print) (ps-print-buffer-with-faces (concat (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name (concat (file-name-sans-extension file) ".ps")) (expand-file-name file)) (delete-file (concat (file-name-sans-extension file) ".ps")) (message "PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require 'org-icalendar) (let ((org-agenda-marker-table (org-create-marker-find-array (org-agenda-collect-markers))) (org-icalendar-verify-function 'org-check-agenda-marker-table) (org-combined-agenda-icalendar-file file)) (apply 'org-export-icalendar 'combine (org-agenda-files nil 'ifmode)))) (t (let ((bs (buffer-string))) (find-file file) (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer (current-buffer)) (message "Plain text written to %s" file)))))))) called-interactively-p any buffer-name org-open-file] 5 (#$ . 114179) "FWrite agenda to file: \nP"])
(defvar org-agenda-tag-filter-overlays nil)
(defvar org-agenda-cat-filter-overlays nil)
#@57 Mark all text hidden by filtering with a text property.
(defalias 'org-agenda-mark-filtered-text #[nil "\303\304\305\306	\n\"\")\207" [inhibit-read-only org-agenda-tag-filter-overlays org-agenda-cat-filter-overlays t mapc #[(o) "\301!p\232\205\302\303!\304!\305\306$\207" [o overlay-buffer put-text-property overlay-start overlay-end org-filtered t] 5] append] 5 (#$ . 117346)])
#@37 Remove the filtering text property.
(defalias 'org-agenda-unmark-filtered-text #[nil "\301\302ed\303#)\207" [inhibit-read-only t remove-text-properties (org-filtered t)] 4 (#$ . 117737)])
#@69 Delete all text marked with VALUE of PROPERTY.
VALUE defaults to t.
(defalias 'org-agenda-remove-marked-text #[(property &optional value) "\303	\206\304\305ed\n	$\211\205!\306\307\"\206d|\210\202)\207" [beg value property nil t text-property-any next-single-property-change org-filtered] 5 (#$ . 117932)])
#@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 #[nil "\304V\205O\305\301!\205
	?\205O\306\211eb\210m?\205N\307\310!\211\204,\311\312!\210\202\313\314#\315\210\316\317\n\"\203D\320\n\261\210\202m\204\315u\210\202*\207" [org-agenda-add-entry-text-maxlines org-mobile-creating-agendas txt m 0 boundp nil org-get-at-bol org-hd-marker beginning-of-line 2 org-agenda-get-some-entry-text "    > " 1 string-match "\\S-" "\n"] 4 (#$ . 118257)])
#@315 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.
(defalias 'org-agenda-get-some-entry-text #[(marker n-lines &optional indent &rest keep) "\306\211\211\211\212r\307\f!q\210\310\311!\204\312\202\226
\212\214~\210\fb\210\313\210`Td^\314 \210`{
\315-\316Q\317\320!.r.q\210\321\216c\210/\203^eb\210\322d!\203^\323\324\224\324\225\325#\210\202Meb\210\3260d\327#\203u\330\324\224\324\225\306#\210\202aeb\210\326\n\306\327#\203\216\324\224\326\331\306\332#\210`|\210\202x\3331\235\204\247eb\210\326	\306\327#\203\247\334\312!\210\202\230eb\2102\203\3272\306344\211A4@\2113\203\326eb\210\3263\306\327#\203\266\334\312!\210\202\306*db\210\335\306x\210\336\337!\203\350\334\312!\210eb\210\340ed\"\210\341 m\204	
\336\342!\204
\341 ^\343\344!\210\202\363eb\210m\204&
\336\342!\204
\345!\210\346 `|\210\343\344!\210\202\f
\347\350!\210eb\2105\203H
m\204H
\326\351\306\327#\203H
\3345\327\211#\210\2022
eb\210\336\352!\203X
\334\312!\210\202K
db\210\3066\2126\203h
6b\210n\203p
\313\202q
\324\353\313`\"\\*7V\203\221
7T8\214~\210eb\2108Sy\210*\354u\210e`{-*,\207" [ind kwd-time-re drawer-re txt marker org-drawer-regexp nil marker-buffer derived-mode-p org-mode "" 1 outline-next-heading "^[ 	]*" ".*\n?" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) org-activate-bracket-links add-text-properties 0 (face org-link) re-search-forward t set-text-properties "^[ 	]*:END:.*\n?" move planning replace-match " 	\n" looking-at "[ 	\n]+\\'" untabify org-get-indentation "[ 	]*$" beginning-of-line 2 move-to-column point-at-bol run-hooks org-agenda-entry-text-cleanup-hook "^" "[ 	]*\n" count-lines -1 org-keyword-time-regexp #1# org-agenda-add-entry-text-descriptive-links org-bracket-link-regexp keep org-agenda-entry-text-exclude-regexps re re-list indent pos n-lines N] 5 (#$ . 118944)])
#@63 Collect the markers pointing to entries in the agenda buffer.
(defalias 'org-agenda-collect-markers #[nil "\302\211\212eb\210m\204%\303\304!\206\303\305!\211\203	B\306\307!\210\202)\237*\207" [markers m nil org-get-at-bol org-hd-marker org-marker beginning-of-line 2] 2 (#$ . 121122)])
#@71 Create a alist of files names with all marker positions in that file.
(defalias 'org-create-marker-find-array #[(marker-list) "\306\211\211\211\211
\211A@\211\203M\307\n!\310\311\312\n!!\206$\312\n!!\313\f\"\211\203D\307\n!	\211AB\241\210*\202\n\fDB\202\n\314\315\"-\207" [p a m tbl f marker-list nil marker-position buffer-file-name buffer-base-buffer marker-buffer assoc mapcar #[(x) "\301\302A!\303\"\241\210\207" [x sort copy-sequence <] 4] #1=#:v #2=#:v] 6 (#$ . 121427)])
(defvar org-agenda-marker-table nil)
#@51 Check of the current entry is on the marker list.
(defalias 'org-check-agenda-marker-table #[nil "\304\305 \206p!\306\307	\n\"\211\205#\310 \311\216\212\312\313!\210`A\235+*\207" [a file org-agenda-marker-table save-match-data-internal buffer-file-name buffer-base-buffer nil assoc match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-back-to-heading t] 3 (#$ . 121979)])
#@57 Make sure current buffer is in org-mode.  Error if not.
(defalias 'org-check-for-org-mode #[nil "\301\302!\206\n\303\304\"\207" [major-mode derived-mode-p org-mode error "Cannot execute org-mode agenda command on buffer in %s"] 3 (#$ . 122413)])
(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-top-category-filter nil)
(defvar org-agenda-tag-filter-while-redo nil)
#@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 (#$ . 122971))
#@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 (#$ . 123549))
#@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 #[nil "\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 (#$ . 124141)])
#@36 Setup agenda buffer in the window.
(defalias 'org-agenda-prepare-window #[(abuf) "\305!\306p\232\204R	\203\307	!\210\202R\310 \211\203R\311\232\203+\312!\210\202R\313\232\2038\314!\210\202R\315\232\203E\316!\210\202R\317\232\203R\320 \210\314!\210p\232\204\\\312!\210\f\206a\n\211*\207" [abuf awin wconf org-agenda-window-setup org-agenda-pre-window-conf get-buffer-window nil select-window current-window-configuration current-window org-pop-to-buffer-same-window other-window org-switch-to-buffer-other-window other-frame switch-to-buffer-other-frame reorganize-frame delete-other-windows] 2 (#$ . 124545)])
(defalias 'org-agenda-prepare #[(&optional name) "\306 \203\307\310!!\210\311\312!\210	\204\313 \210\314\315\312\"\207\316\211\f\204(\316\211\317\305\320 #\210\317\321\320!#\210	\203k\316\"db\210o\204d#\204d$\203d\322$;\203Z$\202`\323\324 $\"\322\261\210`d}\210\202\303\316%\307\325!!\210\316\"\326 \210\327&\330 \210)\331 \210p'\316\211()\332\333\316\334\"!\210\335\n!\335%!%\335!*+,-\203\303\204\303\336-./\337/!.L\210*\316\211\"\207" [org-agenda-buffer-name org-agenda-multi org-todo-keywords-for-agenda org-drawers-for-agenda org-agenda-persistent-filter org-agenda-tag-filter org-agenda-use-sticky-p org-agenda-prepare-window get-buffer message "Sticky Agenda buffer, use `r' to refresh" org-agenda-fit-window-to-buffer throw exit nil put :preset-filter org-agenda-category-filter "\n" make-string window-width get-buffer-create org-agenda-reset-markers t erase-buffer org-agenda-mode org-agenda-prepare-buffers org-agenda-files ifmode org-uniquify org-agenda-name make-local-variable org-agenda-tag-filter-preset org-agenda-category-filter-preset buffer-read-only org-agenda-compact-blocks org-agenda-block-separator org-done-keywords-for-agenda inhibit-read-only org-agenda-buffer org-agenda-contributing-files org-agenda-columns-active current-prefix-arg org-agenda-last-prefix-arg org-agenda-this-buffer-name name value var] 5])
#@74 Finishing touch for the agenda buffer, called just before displaying it.
(defalias 'org-agenda-finalize #[nil "?\205X
\212\306eb\210\212\307d!\203\310\311\224\311\225\312#\210\202\f)\212\313d!\2030\310\311\224\311\225\314#\210\202)\n\306=\204:\315 \210\204D\316ed\317#\210\320\304!\203[\f\203[\304\f:\321:!
L\210*\320\322!\203i\203i\323 \210\203q\324 \210\203~;\203~\325 \210<\203\212\214~\210\326 \210)=\203\225\327 \210\330 \210\331\332!\203\247\212\333e\334\")\203\247\332 \210\335\336!>\337=\204+
><\203\301>>\204+
>\306=\203\335?\306=\204+
?<\203\335?>\203+
\340@\212eb\210\340y\311\232\203*
\341`\342\"\206\366\341`\342\"\211@\203\344\343\344 \345 \346@A\212\347A!\203
\350A!q\210\212A\206
`b\210\351\352\353\354 \"!+$\210\202\344*\355\356!\210/\204:
\357\360N\203@
\361/\362\"\2103\204K
\363\360N\203Q
\3613\364\"\210\365\366\367\370\371$*\207" [org-agenda-multi inhibit-read-only org-agenda-remove-tags org-agenda-with-colors org-agenda-overriding-columns-format value t org-activate-bracket-links add-text-properties 0 (face org-link) org-activate-plain-links (face org-link) org-agenda-align-tags remove-text-properties (face nil) boundp make-local-variable org-agenda-view-columns-initially org-agenda-columns org-agenda-fontify-priorities org-agenda-dim-blocked-tasks org-agenda-mark-clocking-task org-agenda-entry-text-hide org-agenda-entry-text-show functionp org-habit-insert-consistency-graphs next-single-property-change org-habit-p org-get-at-bol org-agenda-type always nil get-text-property org-hd-marker put-text-property point-at-bol point-at-eol tags markerp marker-buffer delete-dups mapcar downcase org-get-tags-at run-hooks org-agenda-finalize-hook org-agenda-tag-filter :preset-filter org-agenda-filter-apply tag org-agenda-category-filter category org-add-hook kill-buffer-hook org-agenda-reset-markers append local var org-blocker-hook org-clock-current-task org-agenda-entry-text-mode org-agenda-show-inherited-tags org-agenda-use-tag-inheritance mrk #1=#:--mpom] 8 (#$ . 126583)])
#@62 Mark the current clock entry in the agenda if it is present.
(defalias 'org-agenda-mark-clocking-task #[nil "\303\304\305ed\"\"\210\306!\205H\212eb\210\307\211\310`\311\"\211\205G\nb\210\312\311!\232\203\313\314 \315 T\"\316	\317\320#\210\316	\321\320#\210\316	\322\323#\210\202+\207" [org-clock-hd-marker ov s mapc #[(o) "\301\302\"\303=\205\f\304!\207" [o overlay-get type org-agenda-clocking delete-overlay] 3] overlays-in marker-buffer nil next-single-property-change org-hd-marker org-get-at-bol make-overlay point-at-bol point-at-eol overlay-put type org-agenda-clocking face help-echo "The clock is running in this item"] 5 (#$ . 128666)])
#@54 Make highest priority lines bold, and lowest italic.
(defalias 'org-agenda-fontify-priorities #[nil "\306\307\310ed\"\"\210\212\311\312\211\211\211\211\211 eb\210\313\314\312\311#\205\223\315`\316\"\206,\315`\317\"\2066\320\321\322!!\323\224!\324=\203L\323\225\202N\325 \326
\f\"\327\n\330\331\332\312\333\"\"A#\206\210!<\203w\331\332\312\333!\"A#\206\210\232\203\201\334\202\210	\232\205\210\335#\210\327\n\336\337#\210\202.\207" [l h ov p e b mapc #[(o) "\301\302\"\303=\205\f\304!\207" [o overlay-get org-type org-priority delete-overlay] 3] overlays-in t nil re-search-forward "\\[#\\(.\\)\\]" get-char-property org-highest-priority org-lowest-priority string-to-char match-string 1 0 cookies point-at-eol make-overlay overlay-put face org-face-from-face-or-color priority assoc italic bold org-type org-priority inhibit-read-only org-agenda-fontify-priorities org-priority-faces] 9 (#$ . 129334) nil])
(defalias 'org-agenda-dim-blocked-tasks #[(&optional invisible) "\306\307!\210\310\311\312ed\"\"\210\212\313\314??\206	\300=\314\211\211\211\211\211\211\211 !\"eb\210\315`\316\"\211#\205C#Tb)\203\253\314 \317\320!\211$\203\247r\321$!q\210\212$b\210\322 *\203\247\203q\314\203~e\323 S]\202\200\323 \324 \325\"\203\233\326\f\300\313#\210\202\241\326\f\327\330#\210\326\f\331\332#\210)\2025.\f\306\333!\207" [invisible org-agenda-dim-blocked-tasks l h ov p message "Dim or hide blocked tasks..." mapc #[(o) "\301\302\"\303=\205\f\304!\207" [o overlay-get org-type org-blocked-todo delete-overlay] 3] overlays-in t nil next-single-property-change todo-state org-get-at-bol org-hd-marker marker-buffer org-entry-blocked-p point-at-bol point-at-eol make-overlay overlay-put face org-agenda-dimmed-todo-face org-type org-blocked-todo "Dim or hide blocked tasks...done" e b invis1 org-blocked-by-checkboxes invis org-depend-tag-blocked inhibit-read-only pos marker] 12 nil "P"])
#@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 (#$ . 131320))
#@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 #[nil "\306 \307\212	b\210\310\n!)\204Q\203%\f\204%\311	\312\"\203%\313\314!\204Q
\2036\311	\315\"\2036\313\314!\204Q\316!\206A\316!\211\203Kb\204Q\317\314!\205U\320\321\314\"*\207" [to p comment-start-skip org-agenda-skip-archived-trees org-agenda-archives-mode org-agenda-skip-comment-trees point-at-bol nil looking-at get-text-property :org-archived org-end-of-subtree t :org-comment org-agenda-skip-eval org-in-src-block-p throw :skip org-agenda-skip-function-global org-agenda-skip-function] 3 (#$ . 132070)])
#@233 If FORM is a function or a list, call (or eval) is and return 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.
(defalias 'org-agenda-skip-eval #[(form) "\303	\205&\304	!\211\204	:\205&\212\305 \306\216\203\"	 \202%\307	!+)\207" [fp form save-match-data-internal nil functionp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) eval] 2 (#$ . 132782)])
#@63 List of all currently active markers created by `org-agenda'.
(defvar org-agenda-markers nil (#$ . 133316))
#@42 Creation time of the last agenda marker.
(defvar org-agenda-last-marker-time (org-float-time) (#$ . 133430))
#@116 Return a new agenda marker.
Org-mode keeps a list of these markers and resets them when they are
no longer in use.
(defalias 'org-agenda-new-marker #[(&optional pos) "\305\206`!\306 \203rq\210	\fB)\202	\fB	)\207" [pos m org-agenda-last-marker-time org-agenda-buffer org-agenda-markers copy-marker org-float-time] 2 (#$ . 133546)])
#@40 Reset markers created by `org-agenda'.
(defalias 'org-agenda-reset-markers #[nil "\205\211A@\301\211\223\210\202\207" [org-agenda-markers nil] 3 (#$ . 133896)])
#@117 Save relative positions of markers in region.
This check for agenda markers in all agenda buffers currently active.
(defalias 'org-agenda-save-markers-for-cut-and-paste #[(beg end) "\304 \305\211\205$	@rq\210\n\306=\203\307\310\"\210)	A\211\204	\305*\207" [buf --dolist-tail-- major-mode org-agenda-markers buffer-list nil org-agenda-mode mapc #[(m) "\303	\n#\207" [m beg end org-check-and-save-marker] 4]] 4 (#$ . 134071)])
#@62 Add some text from the entry as context to the current line.
(defalias 'org-agenda-entry-text-show-here #[nil "\306\211\211\307\310!\311\n!\204\312\313!\210\314\315\n\316#\306\317\320!\203.\320\321
G\306
$\210\202F\f\203>\322\321
G
$\210\202F\320\321
G\306
$\210
*P\323\324	\"\205i\325\326 \327 \"\330\331\332#\210\330\333\334#\210\330\335	#+\207" [o txt m org-agenda-entry-text-maxlines restricted s nil org-get-at-bol org-hd-marker marker-buffer error "No marker points to an entry here" "\n" org-agenda-get-some-entry-text "    > " fboundp set-text-properties 0 remove-text-properties string-match "\\S-" make-overlay point-at-bol point-at-eol overlay-put evaporate t org-overlay-type agenda-entry-content after-string org-rm-props] 6 (#$ . 134513)])
#@41 Add entry context for all agenda lines.
(defalias 'org-agenda-entry-text-show #[nil "\212db\210\300\301!\210o?\205\302\303!\203\304 \210\300\305!\210\202)\207" [beginning-of-line 1 org-get-at-bol org-hd-marker org-agenda-entry-text-show-here 0] 2 (#$ . 135294) nil])
#@33 Remove any shown entry context.
(defalias 'org-agenda-entry-text-hide #[nil "\300\301\302\303\304ed\"\"\"\207" [delq nil mapcar #[(o) "\301\302\"\303=\205\304!\210\305\207" [o overlay-get org-overlay-type agenda-entry-content delete-overlay t] 3] overlays-in] 7 (#$ . 135573)])
#@48 Return the face DATE should be displayed with.
(defalias 'org-agenda-get-day-face #[(date) "\303!\203\f	!\206\304	!\203\305\207\306	!\n\235\203\307\207\310\207" [org-agenda-day-face-function date org-agenda-weekend-days functionp org-agenda-todayp org-agenda-date-today calendar-day-of-week org-agenda-date-weekend org-agenda-date] 2 (#$ . 135861)])
(defvar org-agenda-only-exact-dates nil)
#@310 Show a time-sorted view of the entries in the current org file.
Only entries with a time stamp of today or later will be listed.  With
\[universal-argument] prefix, all unfinished TODO items will also be shown,
under the current date.
If the buffer contains an active region, only check the region for
dates.
(defalias 'org-timeline #[(&optional dotodo) "\306	\307\310p!\206\fp!\311 \312 \203\313 \202e\312 \203'\314 \202(d?\315
?\316\306\n@&A\317B\306C\320 D\306E\321\211FG\321\211HI\321\211JK\322\323pD\324\325LDDEM\204q\326\321\327\330A\"\"A\331\332\333!P!\210\334\335!\210\336\335!\210\n\203\213\337FBF\340FBF\341FBF\342FBF\343FBFL\203\256\344FBF\345\346\261\210\347e`\350\351D#\210\352e!\210A\211AA@\211J\203\252
J<\203\362J@\353=\203\362`G\354\355JA\"c\210\356G`S\350\351$\210\202\300J<\203
J@J\306K\202
\321KJDY\203\"
\203\"
E\203\"
\321E\357\360\361\"\346\261\210\362J!`GK?\2057
\363\364\fF$\211I\204J
JD\232\204J
@\203\300N;\203Z
\365N\366\f!\"\202^
N\f!\346\261\210\356G`S\350\367\f!$\210\356G`S\370\306$\210\356G`S\371\306$\210JD\232\203\220
\356G`S\320\306$\210I\203\235
\372I!\346\261\210\356G`S\373J$\210\202\300eb\210\374ed\320\306$\206\267
eb\210\347ed\375#\210\376 \210\306\211O.\207" [dopast org-agenda-show-log org-agenda-show-log-scoped entry date beg t buffer-file-name buffer-base-buffer calendar-current-date org-region-active-p region-beginning region-end org-get-all-dates no-ranges 0 org-today nil progn org-switch-to-buffer-other-window org-timeline quote delq mapcar #[(x) "	Y\205\207" [x today] 2] org-agenda-prepare "Timeline " file-name-nondirectory org-compile-prefix-format timeline org-set-sorting-strategy :closed :timestamp :deadline :scheduled :sexp :todo "Timeline of file " "\n" add-text-properties face org-agenda-structure org-agenda-mark-header-line :omitted format "\n[... %d empty days omitted]\n\n" put-text-property make-string 79 45 calendar-gregorian-from-absolute apply org-agenda-get-day-entries format-time-string org-time-from-absolute org-agenda-get-day-face org-date-line org-agenda-date-header org-agenda-finalize-entries day text-property-any (org-agenda-type timeline) org-agenda-finalize end org-timeline-show-empty-dates day-numbers org-deadline-warning-days org-agenda-only-exact-dates today past args s e rtn d emptyp dotodo org-agenda-redo-command org-agenda-format-date buffer-read-only] 8 (#$ . 136268) "P"])
#@414 Return a list of all relevant day numbers from BEG to END buffer positions.
If NO-RANGES is non-nil, include only the start and end dates of a range,
not every single day in the range.  If FORCE-TODAY is non-nil, make
sure that TODAY is included in the list.  If INACTIVE is non-nil, also
inactive time stamps (those in square brackets) are included.
When EMPTY is non-nil, also include days without any entries.
(defalias 'org-get-all-dates #[(beg end &optional no-ranges force-today inactive empty pre-re) "\203\202	\306	\203\n\202P\307\211\211\211\211\211\211\211\211\2038\310 C\212b\210\311\312#\203g\313\314\315\316!\317\320Op\317\224#!\211>\204=B\202= \204\275b\210\311!\312#\203\275\317\224\315\316!\317\320O\315\321!\317\320O\313\314p\f#!\313\314
p\f#!T\211W\203p>\204\237B\202\237\322\323\"\"\203/
\211A@\211\203*
@B\203\311\"\203\311\"\312=\204
\"\247\203
Z\"X\203
T\211W\203\311CB\202
\324ZBB\202\311\237.\207" [pre-re inactive org-ts-regexp-both org-ts-regexp pos ts2 "" nil org-today re-search-forward t time-to-days org-time-string-to-time match-string 1 0 10 2 sort < :omitted ts1 day2 day1 day date dates1 dates re force-today beg end no-ranges org-tr-regexp empty] 11 (#$ . 138756)])
#@94 Start day for the agenda view.
Custom commands can set this variable in the options section.
(defvar org-agenda-start-day nil (#$ . 140118))
(defvar org-starting-day nil)
(defvar org-arg-loc nil)
#@1462 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 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' must appear before
                 `:scheduled' if the setting of
                 `org-agenda-skip-scheduled-if-deadline-is-shown' is to have
                 any effect.

   :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.

By default, all four types are turned on.

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) (#$ . 140322))
(defvar org-agenda-buffer-tmp-name nil)
#@506 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'.
(defalias 'org-agenda-list #[(&optional arg start-day span) "\203@A@\3048	\250\203	\305V\203	\306\307\310\215\207" [org-agenda-overriding-arguments arg start-day span 2 0 nil exit (byte-code "\206)	\203(\n\203;\203\306\307\n#\202%\n\203$\306\310\n\"\202%\311\206)\f\312\313!\210
\2064@\211;\203B\314\315\316\317
#!\320\321!\210\322\321!\210\323A\206WB\206WC!A\324 D
\206dDE\325AE\"\211F\326=\205vGG\327\316\330\"\211HIG\203\215F\326W\203\222E\202\270\331\332E!!JGKJKZLEL\333W\203\262\326\202\263\333L\\Z+\211MCN\333OP?QRS\316\211TU\316\211VW\316\211XY\316\211LZ\316\211[\\\316\211]^\316_\334\335`D
\335ADFaFS\333bcbcW\203 
N@TNBNbT\211b\202
*N\237\211N@]Nd\336d!@)\2068
\333T^\337N@ef\340f!eL\210*\341`ef\340f!eL\210*\342\323A!ef\340f!eL\210*g\204\350
N@hNd\336d!@)i\343h!j\343i!k`Tl\203\250
\344\345l!\316\346\347$\350\261\210\202\326
\351A!\352ihZ\353W\203\321
jkU\203\307
\306\354j\"\202\322
\306\355jk#\202\322
\356\357\261\210,\360T`S\346\347\361\317F#\210\362T!\210N\211AN@\211L\203\357\332L!Y`TLDU\211\\\204Z\204LEU\203`Z\202)Z\203)[\204)`[HI\316WI\211AI@\211X\203D\363\364\215\210\2020m\203_\317n\365\366!\210\367Y!V\370WV\"W)W\204io\203\350
OTOp;\203\371p\372Y!\"\202\204pY!\350\261\210\373T`S\346\374Y!$\210\373T`S\361\317$\210\373T`S\375\317$\210\373T`S\376O$\210\\\203\276\373T`S\324\317$\210\377WF\\#\211W\203\326\201yW!\350\261\210\373T`S\201zL$\210\373T`S\376O$\210\202\350
q\203x]\203x\327\316\330\"\345r!\316st\201{t\201|\"t\201}t\201~]#t\201}t\201^#t\201}t\201\200\321#tq\201\201=\203iu\206N\201\202\201\203N\211_\203i\201}t\201\204\201\205\201\206_\356##t\201\207\201\210t\"\211sc\210+eb\210v\204\205\201\211 \210\201\212e!\203\225\201\212d!\204\302dSb\210\201\213\201\214!\210\201\212Z\206\254\201\215!\204\302Z\206\270\201\215b\210\201\213\201\215!\210Z\206\312\201\215b\210\360ed\201\216\321\201\217`
AE\201\220a\201\221w\257#\210S\201\222=\203\370\201\223 \210\201\224 \210\317x\201\225\356!.\207" [org-agenda-buffer-tmp-name org-agenda-sticky org-keys org-match org-agenda-buffer-name start-day format "*Org Agenda(%s:%s)*" "*Org Agenda(%s)*" "*Org Agenda(a)*" org-agenda-prepare "Day/Week" time-to-days org-read-date nil t org-compile-prefix-format agenda org-set-sorting-strategy org-agenda-ndays-to-span org-today org-agenda-span-to-ndays 7 org-agenda-files ifmode calendar-day-of-week calendar-gregorian-from-absolute 0 org-agenda-list quote last org-starting-day make-local-variable org-arg-loc org-agenda-current-span org-days-to-iso-week org-add-props copy-sequence face org-agenda-structure "\n" org-agenda-span-name "-agenda" 350 " (W%02d)" " (W%02d-W%02d)" #1="" ":\n" add-text-properties org-date-line org-agenda-mark-header-line nextfile (byte-code "\306!\210	\n\204\307\310	\"\311>\203\312\f\313#\2026\203/\314\312\f\315\316	\"$\2026\314\312\f	$)\315
\"\306\207" [file org-agenda-entry-types org-agenda-include-deadlines org-agenda-show-log-scoped date rtn org-check-agenda-file delq :deadline (only clockcheck) org-agenda-get-day-entries :closed apply append (:closed) rtnall] 7) require diary-lib org-get-entries-from-diary append 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-start-day span org-agenda-ndays org-agenda-span today sd ndays org-agenda-start-on-weekday thefiles files nt n1 d start day-numbers day-cnt debug-on-error inhibit-redisplay org-agenda-show-log org-agenda-show-log-scoped s e rtn rtnall file date start-pos end-pos todayp clocktable-start clocktable-end filter arg org-agenda-redo-command n --dotimes-limit-- list value var org-agenda-compact-blocks d1 d2 w1 w2 org-agenda-overriding-header org-agenda-include-diary org-agenda-search-headline-for-time org-agenda-show-all-dates org-agenda-format-date org-agenda-clockreport-mode org-agenda-clockreport-parameter-plist tbl p org-agenda-tag-filter-while-redo org-agenda-multi org-cmd buffer-read-only org-agenda-finalize-entries day org-plist-delete :block plist-put :tstart :tend :scope with-filter org-agenda-tag-filter :preset-filter :tags mapconcat #[(x) "\301\302\"\203	\303\207\207" [x string-match "[<>=]" #1#] 3] apply org-clock-get-clocktable org-agenda-fit-window-to-buffer pos-visible-in-window-p recenter -1 1 org-agenda-type org-last-args org-redo-cmd org-series-cmd clockcheck org-agenda-show-clocking-issues org-agenda-finalize message] 12)] 2 (#$ . 141917) "P"])
#@66 Return a span symbol for a span of N days, or N if none matches.
(defalias 'org-agenda-ndays-to-span #[(n) "9\203\207\301U\203\302\207\303U\203\304\207\207" [n 1 day 7 week] 2 (#$ . 147176)])
#@57 Return ndays from SPAN, possibly starting at START-DAY.
(defalias 'org-agenda-span-to-ndays #[(span &optional start-day) "\247\203\207\305=\203\306\207\307=\203\310\207\304=\203`\311	!\211@\nAA@\211\312U\203Z\211\313W\203<\314!S\315\316\246!\205R\315\317\246!?\206R\315\320\246!)\203Z\321\202^\322\fSH+\207\303=\205\232\311	!\211AA@\211\313W\203z\314!S\315\316\246!\205\220\315\317\246!?\206\220\315\320\246!)\203\230\323\202\231\324)\207" [span start-day date year month day 1 week 7 calendar-gregorian-from-absolute 2 0 abs zerop 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] 366 365] 4 (#$ . 147385)])
#@21 Return a SPAN name.
(defalias 'org-agenda-span-name #[(span) "\204\301\2079\203\302\303!!\207\304\305\"\207" [span "" capitalize symbol-name format "%d days"] 3 (#$ . 148043)])
(defvar org-agenda-search-history nil)
#@180 Special syntax table for org-mode 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 (#$ . 148274))
(defalias 'org-search-syntax-table #[nil "\204\302	!\303\304\305#\210\303\306\305#\210\207" [org-search-syntax-table org-mode-syntax-table copy-syntax-table modify-syntax-entry 39 "." 96] 4])
(defvar org-agenda-last-search-view-search-was-boolean nil)
#@2225 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'.
(defalias 'org-search-view #[(&optional todo-only string edit-at) "\203@A@\3068\307\310\311\312\304\f\305
\313\314\315\316\317\320!\257\310\211\310\211 \310\211!\"\310\211#$\310\211%&\310\211'(\310\211)*\310\211+,\310\211-.\310\211/0\310\21112\310\21134\310\21156\204\212\n;\203\212\321\322\n\"\204\250\3237\203\224\324\202\225\325\250\203\240\nB\202\245\205\245\n\326#\327\330\215.\207" [org-agenda-overriding-arguments todo-only string edit-at org-not-done-regexp org-todo-regexp 2 face nil done-face org-agenda-done org-complex-heading-regexp mouse-face highlight help-echo format "mouse-2 or RET jump to location" string-match "\\S-" read-string "[+-]Word/{Regexp} ...: " "Phrase or [+-]Word/{Regexp} ...: " org-agenda-search-history exit (byte-code "\203*	;\203\306\307\n\206\203\310\202\311	#\202)\306\312\203'\310\202(\311\"\313\314!\210\315\316!\210\317\316!\210\320\205<\321\322\323\324	FE	@\325	!\326\232\203Z\321A	\327\324OB\202]	B\325B!\330\232\203o\321B\327\324OB\325B!\331\232\203\202\321CB\327\324OBD\204\220\325B!\332\235\203\223\321E\333B!B\324\211FGB\211AB@\211F\203\326\334\335F\"\203\314B\203\314F\336\337O\340B\211AB@QF\202\254FGBG\202\237G\237B\324GB\211AB@\211F\2030
\334\341F\"\203&
\334\342F\"\204&
B\203
\334\342B@\"\204
F\340B\211AB@QF\202\373F\340B\211AB@QFFGBG\202\336G\237B*EHE\203\311
\324\211FIB\211AB@\211F\203\303
F\336\327O\343\232\204x
FG\327V\203\227
F\336\327O\344\235\203\227
F\327\345O\343\232\203\227
B\203\227
F\337\324O\343\232\204\227
F\340B\211AB@QF\202x
\334\346F\"\203\250
\347\350\324\211F$FF\337\324O\343\232\203\271
F\336\337OFFIBI\202E
I\237B*E\203\327
\351\352B\"\210\202\342
\353\354B\355#JBJ\356J\357\"\211J\204\364
KL\202\nJ\211AJ@LA\203\nK\360LQL\361\324\362\"MN@\363=\203&N\210NAN\364M!M\365MN\"M\324OM\211AM@\211P\203U\324Q\366\367\215\210Q\237R\365OR\"O\2021S\203j\370\371S!\324\372\373$\374\261\210\202\237\375c\210\376e`S\372\373D#\210`T	\374\261\210\376T`S\372\377D#\210`TU\204\237\201Yc\210\376T`S\372\373D#\210\201Ze!\210O\203\264\201[O!\374\261\210eb\210U\204\301\201\\ \210\376ed\201]\316\201^	VE\201_
\201`W\257#\210\201a \210\321\211X\207" [org-agenda-sticky string org-keys todo-only org-agenda-buffer-name org-agenda-redo-command 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 nil string-to-char 42 1 33 58 (45 43 123) org-split-string string-match "\\\\\\'" 0 -1 " " "\\`[-+]?{" "}\\'" "\"" ("+" "-") 2 "\\`\\([-+]?\\)\"" replace-match "\\1" mapc #[(w) "\306!\211\307\232\203\310\311\312O\202&	\313\232\203$\312\311\312O\202&\312\314\315\"\2035\311\316O\202I\f\203D\317\320\227!\321Q\202I\320\227!\n\203S
B\211\207B\211\207" [w c neg re full-words regexps- string-to-char 45 t 1 nil 43 string-match "\\`{.*}\\'" -1 "\\<" regexp-quote "\\>" regexps+] 4] mapconcat #[(w) "\301!\207" [w regexp-quote] 2] "\\s-+" sort #[(a b) "G	GV\207" [a b] 2] ".*?" org-agenda-files ifmode agenda-archives org-add-archive-files append nextfile (byte-code "\306!\210\307!\203\310!\202\311\312\"\211\204\313\314\"Cr	q\210\315 p\316\216\317\320 !\210\321\322!\204:\311\323\"\210\324\212\214 \203L!\"}\210\202N~\210eb\210\325 \204`\326 \204`\327\330\324\"\210e`S]b\210\331#\332\324#\203\213\333\324!\210\334\332w\210\335 $`%\326 \210`&\336\337\215\210\202f.\332\207" [file buffer rtn #1=#:buffer #2=#:table case-fold-search org-check-agenda-file file-exists-p org-get-agenda-file-buffer error "No such file %s" format "ORG-AGENDA-ERROR: No such org-file %s" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table org-search-syntax-table derived-mode-p org-mode "Agenda file %s is not in `org-mode'" t org-at-heading-p outline-next-heading throw nextfile re-search-forward nil org-back-to-heading "* " point-at-bol :skip (byte-code "b\210\306 \210\307\310 	\203\311 \202\n\"\312\313\f\"\210\312\314
\203*\315#P$B\202,$\"\210b\210\316`!%\317 &\320`\321\"'(\322=\206f(<\203T\323(>\206f(\324=\205f)\324=\206f\323)>*\325\326*?\"+\327\330\307,\311 \"&+\324%-\331-.\332%\333%\334\335\336\337\340&\321'\341\342&\210-/B/\nSb\207" [beg hdl-only end str regexps- todo-only org-agenda-skip buffer-substring-no-properties point-at-bol point-at-eol mapc #[(wr) "\303	\"\205\nSb\210\304\305\306\"\207" [wr str end string-match throw :skip t] 3] #[(wr) "\303	\"?\205\nSb\210\304\305\306\"\207" [wr str end string-match throw :skip t] 3] "^*+[ 	]+" org-agenda-new-marker org-get-category get-text-property org-category-position always todo t org-get-tags-at nil org-agenda-format-item "" org-add-props org-marker org-hd-marker org-todo-regexp org-complex-heading-regexp priority 1000 org-category type "search" org-not-done-regexp regexps+ marker category category-pos org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags beg1 txt props ee] 19) org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end regexp beg beg1 end] 5) org-add-props copy-sequence face org-agenda-structure "\n" "Search words: " add-text-properties org-warning org-agenda-query-string hdl-only words full-words org-agenda-search-view-always-boolean boolean w www org-agenda-last-search-view-search-was-boolean wds regexps+ org-outline-regexp-bol regexp files org-agenda-text-search-extra-files rtnall file ee rtn org-agenda-overriding-header pos org-agenda-multi edit-at org-cmd buffer-read-only "Press `[', `]' to add/sub word, `{', `}' to add/sub regexp, `C-u r' to edit\n" org-agenda-mark-header-line org-agenda-finalize-entries org-agenda-fit-window-to-buffer org-agenda-type org-last-args org-redo-cmd org-series-cmd org-agenda-finalize] 12) props org-agenda-search-view-force-full-words full-words org-agenda-text-search-extra-files regexp rtn rtnall files file pos inherited-tags marker category category-pos tags c neg re boolean ee txt beg end words regexps+ regexps- hdl-only buffer beg1 str org-agenda-search-view-always-boolean] 16 (#$ . 148771) "P"])
(defvar org-select-this-todo-keyword nil)
(defvar org-last-arg nil)
#@311 Show all (not done) TODO entries from all agenda file 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'.
(defalias 'org-todo-list #[(&optional arg) "\203	;\203\306\307	\"\204\310\311 \312\n!\f\313	;\203)	\202<	\205<	\250\205<	\314V\205<	S
8\310\211\310\211\310	\315\232\203^\316\317\320\321
\"\310\211$	\314\232\203g\310\322\323\215.\n\207" [org-agenda-overriding-arguments arg today date org-todo-keywords-for-agenda kwds string-match "\\S-" nil org-today calendar-gregorian-from-absolute t 0 (4) org-icompleting-read "Keyword (or KWD1|K2D2|...): " mapcar list exit (byte-code "\203	;\203\306\307\n\206\310	#\202\306\311\n\206\310\"\312\313!\210\314\315!\210\316\315!\210\317\320\321	\322\f\257D\323\324\325\"0\32410\211A0@\2112\203Q\326\327\215\210\202=3\203f\330\3313!\324\332\333$\334\261\210\202\271\335c\210\336e`S\332\333\337\340	\206v\341PF#\210\342e!\210`4	\206\206\341\334\261\210\3364`S\332\343D#\210`45\204\257\344c\210\345\32467\346\3478\"\210*\334c\210\3364`S\332\333D#\210\342e!\2101\203\312\3501!\334\261\210eb\2105\204\325\351 \210\336ed\352\315\353\f\354
\3559\257#\210\356 \210\357\211:\207" [org-agenda-sticky org-select-this-todo-keyword org-keys org-agenda-buffer-name arg org-agenda-redo-command format "*Org Agenda(%s:%s)*" "t" "*Org Agenda(%s)*" org-agenda-prepare "TODO" org-compile-prefix-format todo org-set-sorting-strategy org-todo-list or (and (numberp current-prefix-arg) current-prefix-arg) current-prefix-arg org-agenda-files nil ifmode nextfile (byte-code "\304!\210\305	\306#\307\n\"\304\207" [file date rtn rtnall org-check-agenda-file org-agenda-get-day-entries :todo append] 4) org-add-props copy-sequence face org-agenda-structure "\n" "Global list of TODO items of type: " add-text-properties short-heading "ToDo: " "ALL" org-agenda-mark-header-line org-warning "Available with `N r': (0)[ALL]" 0 mapc #[(x) "\303\304T\211	#\305i\306\n!\307#\310 V\203\311c\210\312\n\261\207" [n x s format "(%d)%s" + string-width 1 frame-width "\n                     " " "] 4] org-agenda-finalize-entries org-agenda-fit-window-to-buffer org-agenda-type org-last-args org-redo-cmd org-series-cmd org-agenda-finalize t files rtnall file org-agenda-overriding-header pos org-agenda-multi s n kwds org-cmd buffer-read-only] 11) completion-ignore-case org-select-this-todo-keyword rtn rtnall files file pos] 6 (#$ . 157439) "P"])
#@134 Show all headlines for all `org-agenda-files' matching a TAGS criterion.
The prefix arg TODO-ONLY limits the search to TODO entries.
(defalias 'org-tags-view #[(&optional todo-only match) "\203@A@\306\307\211
\307\211\307\211\307\n;\2031\310\311\n\"\2041\307\312\n!\211@A\313\314\215.	\207" [org-agenda-overriding-arguments todo-only match org-tags-match-list-sublevels completion-ignore-case rtn t nil string-match "\\S-" org-make-tags-matcher exit (byte-code "\203*	;\203\306\307\n\206\203\310\202\311	#\202)\306\312\203'\310\202(\311\"\313\314	P!\210\315\316!\210\317\316!\210	\320\321D\322\323\324\321
DFE-\325\324\326\".\324/.\211A.@\2110\203e\327\330\215\210\202Q1\203z\331\3321!\324\333\334$\335\261\210\202\261\336c\210\337e`S\333\334\340\341	PF#\210`2	\335\261\210\3372`S\333\342D#\210`23\204\247\343c\210\3372`S\333\334D#\210\344e!\210/\203\302\345/!\335\261\210eb\2103\204\315\346 \210\337ed\347\316\350	D\351-\3524\257#\210\353 \210\354\2115\207" [org-agenda-sticky match org-keys todo-only org-agenda-buffer-name org-agenda-query-string format "*Org Agenda(%s:%s)*" "M" "m" "*Org Agenda(%s)*" org-agenda-prepare "TAGS " org-compile-prefix-format tags org-set-sorting-strategy org-tags-view quote if current-prefix-arg nil org-agenda-files ifmode nextfile (byte-code "\306!\210\307!\203\310!\202\311\312\"\211\204'\313\314\"C\315\n\"\202Tr	q\210\316\317!\2046\311\320\"\210\212\214\f\203D
}\210\202F~\210\321\322#\315\n\"+\306\207" [file buffer rtn rtnall org-agenda-restrict org-agenda-restrict-begin org-check-agenda-file file-exists-p org-get-agenda-file-buffer error "No such file %s" format "ORG-AGENDA-ERROR: No such org-file %s" append derived-mode-p org-mode "Agenda file %s is not in `org-mode'" org-scan-tags agenda org-agenda-restrict-end matcher todo-only] 5) org-add-props copy-sequence face org-agenda-structure "\n" "Headlines with TAGS match: " add-text-properties short-heading "Match: " org-warning "Press `C-u r' to search again with new search string\n" org-agenda-mark-header-line org-agenda-finalize-entries org-agenda-fit-window-to-buffer org-agenda-type org-last-args org-redo-cmd org-series-cmd org-agenda-finalize t org-agenda-redo-command files rtnall file org-agenda-overriding-header pos org-agenda-multi org-cmd buffer-read-only] 11) rtnall files file pos matcher buffer] 4 (#$ . 160098) "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 (#$ . 162550))
#@170 When set during agenda, todo and tags searches it replaces the header.
This variable should not be set directly, but custom commands can bind it
in the options section.
(defvar org-agenda-overriding-header nil (#$ . 162805))
#@307 Check if the current entry contains match for `org-agenda-skip-regexp'.
If yes, it returns the end position of this entry, causing agenda commands
to skip the entry but continuing the search in the subtree.  This is a
function that can be put into `org-agenda-skip-function' for the duration
of a command.
(defalias 'org-agenda-skip-entry-when-regexp-matches #[nil "\212\303\304!)\305\212\306\n	\304#)\205	*\207" [skip end org-agenda-skip-regexp org-end-of-subtree t nil re-search-forward] 4 (#$ . 163037)])
#@270 Check if the current subtree contains match for `org-agenda-skip-regexp'.
If yes, it returns the end position of this tree, causing agenda commands
to skip this subtree.  This is a function that can be put into
`org-agenda-skip-function' for the duration of a command.
(defalias 'org-agenda-skip-subtree-when-regexp-matches #[nil "\212\303\304!)\305\212\306\n	\304#)\205	*\207" [skip end org-agenda-skip-regexp org-end-of-subtree t nil re-search-forward] 4 (#$ . 163558)])
#@397 Check if the current subtree contains match for `org-agenda-skip-regexp'.
If yes, it returns the end position of the current entry (NOT the tree),
causing agenda commands to skip the entry but continuing the search in
the subtree.  This is a function that can be put into
`org-agenda-skip-function' for the duration of a command.  An important
use of this function is for the stuck project list.
(defalias 'org-agenda-skip-entry-when-regexp-matches-in-subtree #[nil "\212\304\305!)\212\306 \210`S)\307\212\310\n\305#)\205	+\207" [skip entry-end end org-agenda-skip-regexp org-end-of-subtree t outline-next-heading nil re-search-forward] 4 (#$ . 164044)])
#@80 Skip entry if any of CONDITIONS is true.
See `org-agenda-skip-if' for details.
(defalias 'org-agenda-skip-entry-if #[(&rest conditions) "\301\302\"\207" [conditions org-agenda-skip-if nil] 3 (#$ . 164713)])
#@80 Skip entry if any of CONDITIONS is true.
See `org-agenda-skip-if' for details.
(defalias 'org-agenda-skip-subtree-if #[(&rest conditions) "\301\302\"\207" [conditions org-agenda-skip-if t] 3 (#$ . 164927)])
#@1614 Checks 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.
(defalias 'org-agenda-skip-if #[(subtree conditions) "\306\211\211\307\310!\210`\203\311\310!\210`\202\312 \210`S\nb\210\313\f>\203/\314
	\310#\204\322\315\f>\203=\314
	\310#\203\322\316\f>\203L\314	\310#\204\322\317\f>\203[\314	\310#\203\322\320\f>\203j\314	\310#\204\322\321\f>\203y\314	\310#\203\322\322\f>\211\203\222A@;\203\222\314A@	\310#\204\322\323\f>\211\203\253A@;\203\253\314A@	\310#\203\322\324\f>\211\204\313\325\f>\211\204\313\326\f>\211\204\313\327\f>\211\205\323\330	\"\205\323	+\207" [m end beg subtree conditions org-scheduled-time-regexp nil org-back-to-heading t org-end-of-subtree outline-next-heading scheduled re-search-forward notscheduled deadline notdeadline timestamp nottimestamp regexp notregexp nottodo todo-unblocked nottodo-unblocked todo org-agenda-skip-if-todo org-deadline-time-regexp org-ts-regexp] 4 (#$ . 165143)])
#@263 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'.
(defalias 'org-agenda-skip-if-todo #[(args end) "@\211A@)\306\211\307\f<\203&\310\f\235\203\"\311\312\"\202S\f\202S\f9\205S\f\313=\203=\314\311\312\"\"\202S\f\315=\203H\202S\f\316=\205S\311\312\"!\317\320\321\322#\323Q
\313=\203m\324\n\325#\202\222
\326=\203}\324\n\325#?\202\222
\327=\203\211\330\331\215\202\222
\332=\205\222\330\333\215,\207" [args x todo-re todo-wds arg kw nil org-uniquify "*" mapcar substring-no-properties todo org-delete-all done any "^\\*+[ 	]+\\<\\(" mapconcat identity "\\|" "\\)\\>" re-search-forward t nottodo todo-unblocked unblocked (byte-code "\302	\303#\203\304 \204\305\306\303\"\210\202\307\207" [todo-re end re-search-forward t org-entry-blocked-p throw unblocked nil] 4) nottodo-unblocked (byte-code "\302	\303#\203\304 \204\305\306\307\"\210\202\303\207" [todo-re end re-search-forward t org-entry-blocked-p throw unblocked nil] 4) org-todo-keywords-1 org-done-keywords end] 7 (#$ . 167668)])
#@220 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'.
(defalias 'org-agenda-list-stuck-projects #[(&rest ignore) "\306	\206\307\n@\nA@\310\f\235\203&\311\312\313\314\"!\210\315
\316 !\"\202'\f!\317\320\321!\322#\323Q\"\324\n8#\310#\235\203G$\325P\202W#\205W$\326\320\321#\322#\327R%\330\n8&\331\313\f\205f\"#\205m%&\205\202&;\205\202\332\333&\"\205\202&E\"\211'\203\223\320\321'\322#\202\226\334\335!(\336\313\"\210r)q\210\337*D\211+.\207" [org-agenda-skip-function org-agenda-overriding-header org-stuck-projects matcher todo org-done-keywords-for-agenda org-agenda-skip-entry-when-regexp-matches-in-subtree "List of stuck projects: " "*" org-agenda-prepare-buffers org-agenda-files nil ifmode org-delete-all copy-sequence "^\\*+[ 	]+\\(" mapconcat identity "\\|" "\\)\\>" 2 ".*:[[:alnum:]_@#%]+:[ 	]*$" ".*:\\(" "\\):[[:alnum:]_@#%:]*[ 	]*$" 3 delq string-match "\\S-" error "No information how to identify unstuck projects" org-tags-view org-agenda-list-stuck-projects org-todo-keywords-for-agenda todo-wds todo-re tags org-outline-regexp-bol tags-re gen-re re-list org-agenda-skip-regexp org-agenda-buffer-name current-prefix-arg org-agenda-redo-command] 8 (#$ . 168924) nil])
(defvar org-disable-agenda-to-diary nil)
#@50 Get the (Emacs Calendar) diary entries for DATE.
(defalias 'org-get-entries-from-diary #[(date) "\306\307!\210\310\311\312\313\314\fB\313\315+\313,\316-\212\317 .\320\216\321\322!\203,\322\202-\323/\324\"\210+\325!\204?\313,\202\256rq\210\3130\326\327 !\203S\313,\202\245\330 \210\326\327 !\203c\313,\202\245edS{,\331\332!1r1q\210\333\216,c\210eb\210\334\335\313\316#\203\240\336 2\337\216\3403\341\324!\"*\204|\342\343\341\324!P!\210\202|\344 +,\345\313!\210\346!\210),\205\302\347,\350\",\351\352,\"\211,.	\207" [diary-fancy-buffer diary-display-hook diary-display-function pop-up-frames diary-list-entries-hook diary-file-name-prefix require diary-lib "*temporary-fancy-diary-buffer*" (fancy-diary-display) fancy-diary-display nil org-diary-default-entry org-modify-diary-entry-string t current-window-configuration ((set-window-configuration #1=#:wconfig)) fboundp diary-list-entries list-diary-entries 1 get-buffer zerop buffer-size org-agenda-cleanup-fancy-diary generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) re-search-forward "\n[ 	]+\\(.+\\)$" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match match-string replace-match "; " buffer-string set-buffer-modified-p kill-buffer org-split-string "\n" mapcar #[(x) "\302\303\304\305\306%\307\310GS\"\311\312\301	\313\314&\207" [x date org-agenda-format-item "" "Diary" nil time org-add-props text-properties-at type "diary" face org-agenda-diary] 9] diary-modify-entry-list-string-function entries org-disable-agenda-to-diary #1# date buffer-read-only #2# save-match-data-internal diary-time-regexp] 4 (#$ . 170362)])
#@53 Hook run when the fancy diary buffer is cleaned up.
(defvar org-agenda-cleanup-fancy-diary-hook nil (#$ . 172123))
#@262 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 #[nil "eb\210\300\301!\203&\302\303!\210\304\305\306\307#\210\302\303!\210\310\311\306\307#\2034\302\303!\210\202\304\305\306\307#\210ed\312\225T^|\210eb\210\304\313\306\307#\203F\302\303!\210\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 (#$ . 172245)])
(eval-after-load "diary-lib" '(if (boundp 'diary-modify-entry-list-string-function) nil (defadvice add-to-diary-list (before org-mark-diary-entry activate) "Make the position visible." (if (and org-disable-agenda-to-diary (stringp string) buffer-file-name) (setq string (org-modify-diary-entry-string string))))))
#@64 Add text properties to string, allowing org-mode to act on it.
(defalias 'org-modify-diary-entry-string #[(string) "\302\303\304\305\306	\203\307\310\311	!\"\202\312\313\314\315\316\317 !&\n\207" [string buffer-file-name org-add-props nil mouse-face highlight help-echo format "mouse-2 or RET jump to diary file %s" abbreviate-file-name "" org-agenda-diary-link t org-marker org-agenda-new-marker point-at-bol] 12 (#$ . 173325)])
#@92 Add a dummy entry to the diary.
Needed to avoid empty dates which mess up holiday display.
(defalias 'org-diary-default-entry #[nil "\205\301\302\303\217\207" [org-disable-agenda-to-diary nil (org-add-to-diary-list original-date "Org-mode dummy" #1="") ((error (org-add-to-diary-list original-date "Org-mode dummy" #1# nil)))] 3 (#$ . 173766)])
(defalias 'org-add-to-diary-list #[(&rest args) "\301\302!\203\303\302\"\207\303\304\"\207" [args fboundp diary-add-to-list apply add-to-diary-list] 3])
(defvar org-diary-last-run-time nil)
#@1074 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
arguments (:deadline :scheduled :timestamp :sexp) are used.
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.
(defalias 'org-diary #[(&rest args) "\306 Z\307V\203\f\310 \210\311\312!\210\313\312!\210	\206\314\n\203/\n;\203/\315\316\n\"\203/\nC\2022\317\320!\306 \321\211\321\203L\fZ\322V\203P\323!\210\f\203Z\321\211A@\211\203x\324\325
	$\326\"\202Z\205\203\327!\330P-\207" [org-agenda-last-marker-time args entry files time file org-float-time 5 org-agenda-reset-markers org-compile-prefix-format agenda org-set-sorting-strategy (:deadline :scheduled :timestamp :sexp) string-match "\\S-" org-agenda-files t nil 3 org-agenda-prepare-buffers apply org-agenda-get-day-entries append org-agenda-finalize-entries "\n" rtn results org-diary-last-run-time org-disable-agenda-to-diary date] 6 (#$ . 174316)])
#@303 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'.
(defalias 'org-agenda-get-day-entries #[(file date &rest args) "\206\306\307\211\310!\203\311!\202\312\313\"\307\211\"\307\211#$\f\2042\314\315\"C\202\n
r\fq\210\316\317!\204A\312\320\"\210%\206G\f%\307&\212\214'\203\\()}\210\202^~\210\211A@\211\203

\321=\203\207*\322\323 !\232\203\207\324 #\325\"#\"\"\202^
\326=\203\252\327 #\325\"#\"\"\330$!#\325\"#\"\"\202^
\331=\203\277\332 #\325\"#\"\"\202^
\333=\203\326\334$!#\325\"#\"\"\202^
\335=\203\353\336 #\325\"#\"\"\202^
\337=\203^\340 #\341#!$\325\"#\"\"\202^+\").\207" [args org-startup-folded org-startup-align-all-tables file buffer arg (:deadline :scheduled :timestamp :sexp) 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'" :todo calendar-gregorian-from-absolute org-today org-agenda-get-todos append :timestamp org-agenda-get-blocks org-agenda-get-timestamps :sexp org-agenda-get-sexps :scheduled org-agenda-get-scheduled :closed org-agenda-get-progress :deadline org-agenda-get-deadlines copy-sequence results rtn deadline-results org-agenda-buffer case-fold-search org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end date] 4 (#$ . 176138)])
#@49 Return the TODO information for agenda display.
(defalias 'org-agenda-get-todos #[nil "\306\307\310\311\300\301	\302\n\312\313\314\315\316\317!\"\257\315
\203(\320\232\203(	\202=\203<\321\322\323\324\325\"\326#\327Q\202=\"\307\211\307\211 !\307\211\"#\307\211$%\307\211&'\307(eb\210\330\307\331#\203t\332\333\215\210\202d$\237.
\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props 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 (byte-code "\306 \307\216\310 \210\311 \210`\212\312 \210`)\313\n!\203+	Tb\210\204&\314\315!\210\316\317\320\"\210*\321\224b\210\322\323\224!\324 \325`\326\"(\327\321\224\323\225{!)*\330=\206m*<\203[\331*>\206m*\332=\205m+\332=\206m\331+>,\333\320,?\"-\334\335)
-\332%)\336)!T#\337 '\340).\341\f\342\f\343#\344
\326(\345\346\347'&\210)/B/\203\270\321\225b\210\202\274\314\315!\210\320\207" [save-match-data-internal beg end org-agenda-todo-list-sublevels marker category match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) beginning-of-line org-agenda-skip outline-next-heading org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item org-end-of-subtree invisible throw :skip nil 2 org-agenda-new-marker 0 org-get-category get-text-property org-category-position org-trim always todo t org-get-tags-at org-agenda-format-item "" org-get-priority org-get-todo-state org-add-props org-marker org-hd-marker priority org-category type "todo" todo-state category-pos txt org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags props ee] 17) org-select-this-todo-keyword regexp marker priority category category-pos tags todo-state ee txt beg end inherited-tags] 18 (#$ . 177778)])
#@223 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.
(defalias 'org-agenda-todo-custom-ignore-p #[(time n) "\303!\n\304Y\203	\nY\202	\nX)\207" [time days n org-days-to-time 0] 2 (#$ . 179789)])
#@76 Do we have a reason to ignore this TODO entry because it has a time stamp?
(defalias 'org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item #[(&optional end) "\204	\204\n\204\205;
\f\206\212\306 \210`)\212\203(\307
\f\310#\206:
	\203g\307\f\310#\203g	\311=\203E\312\313\314!!\315V\202d	\316=\203U\312\313\314!!\315X\202d	\247\203c\317\313\314!	\"\202d\310\206:
\n\203\303\307\f\310#\203\303\n\320>\203~\310\202:
\n\321=\203\215\322\313\314!!?\202\300\n\311=\203\235\312\313\314!!\315V\202\300\n\316=\203\255\312\313\314!!\315X\202\300\n\247\203\273\317\313\314!\n\"\202\300\322\313\314!!\206:
\205:
p\323Q`\324\325!rq\210\326\216\327\f#\210eb\210\307\f\310#\203\376\315\224\315\225|\210\202\354eb\210\307
\330\310#\2058
\311=\203
\312\313\314!!\315V\2028
\316=\203)
\312\313\314!!\315X\2028
\247\2037
\317\313\314!\"\2028
\310.)\207" [org-agenda-todo-ignore-with-date org-agenda-todo-ignore-scheduled org-agenda-todo-ignore-deadlines org-agenda-todo-ignore-timestamp end org-ts-regexp outline-next-heading re-search-forward t future org-days-to-time match-string 1 0 past org-agenda-todo-custom-ignore-p (t all) far org-deadline-close "\\|" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring nil org-scheduled-time-regexp org-deadline-time-regexp start regexp buffer #1#] 4 (#$ . 180164)])
#@55 Return the date stamp information for agenda display.
(defalias 'org-agenda-get-timestamps #[(&optional deadline-results) "\306\307\300\301	\302\n\310\311\312\313\314\315!\"\257\f
\211\316
8)\31778\3208!\203.\321\322!\202\273
8\323V\203\3008S7\324
\211\211@)9
\211\211:A@*;
\316
8)8;9S\325_\\<9\316V\203\250<\3269\327_\\\330\245Z<8\2118\323W\203\206\3318!S8\3208\327\246!\205\237\3208\332\246!?\206\237\3208\333\246!)\203\250<T<<-7\334_7\327\2457\332\245[7\333\245%\202\273
\3318T!7\335
\211\211@)9
\211\211:A@*;
\316
8)8;9S\325_\\<9\316V\2035
<\3269\327_\\\330\245Z<8\2118\323W\203
\3318!S8\3208\327\246!\205,
\3208\332\246!?\206,
\3208\333\246!)\2035
<T<<-7\334_7\327\2457\332\245[7\333\245\336\211\336@)9
\211\211:A@*;
\316
8)8;9S\325_\\<9\316V\203\266
<\3269\327_\\\330\245Z<8\2118\323W\203\224
\3318!S8\3208\327\246!\205\255
\3208\332\246!?\206\255
\3208\333\246!)\203\266
<T<<-&+=\317>\337\340?\"@ABC\203\325
\341\202\326
\342\343\344D@\345\346\323\211\211
A@
@\316
8\257\"\"\347\350O!\351\352RE\317\211FG\317\211HI\317\211JK\317\211LM\317\211NO\317\211PQ\317\211RS\317\211TU\317\211VW\317\211XY\317\211Z[\317\211\\]\317\211^_eb\210\353E\317\354#\211[\203\221\323\224V\355\224W\355\225X\356 `\357\216\317\360\361\217*Z\362\363!\205z\356 `\364\216\363 *^a\354=\206\210Za\235\\\365\366\215\210\202FR\237. \207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props date face org-agenda-calendar-event mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) mapcar #[(a) "\302\303\304#\211\205\305	!B\207" [a mm get-text-property 0 org-hd-marker marker-position] 4] "[[<]" "<" regexp-quote format-time-string apply encode-time 1 11 "\\|\\(<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[hdwmy]>\\)" "\\|\\(<%%\\(([^>\n]+)\\)>\\)" re-search-forward t 3 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) (org-get-todo-state) ((error)) functionp org-is-habit-p ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) :skip (byte-code "\306 \203\n\307\310\311\"\210\312 \210\313\225\203'\314\315\313!\311	p\n&U\204'\307\310\311\"\210\203:\316\f{\317
#\204:\307\310\311\"\210e\n/Z]\n{0\f\203L\317\202P\n\320 {1\nf\321U2\32230\"4\32250\"67\205s\32280\"97\205\210\322:0\"\206\210\322\3230\";\324`\325\"+*<\235=6\204\2654\204\2659\204\265;\204\265=\203\272>\203\272\307\310\326\"\210\322\3271\"\203\3121\330\211\225O1\331\n!?\332\n!@\324\n\333\"A\212\334B\311\326#\204\354\307\310\311\"\210\202]
\330\224b\210C\326=\203
\335`D\"\203
\307\310\311\"\210\331 EF\336=\206.
F<\203
\337F>\206.
F\326=\205.
G\326=\206.
\337G>H\340\311H?\"I\341\342!\210\315\313!\206C
\317J\3432\205M
KJ@I1LM&N\344N!(\345NO\346?\347E&\210\345N\311\350(\351@\305
\333A\352*\353+\354\355&\210NPBP)Q\203\236
\356 \210\202\242
Rb\210\311\207" [d1 show-all b0 e3 b3 date org-at-date-range-p throw :skip nil org-agenda-skip 1 org-time-string-to-absolute match-string org-diary-sexp-entry "" point-at-eol 91 string-match "]-+\\'" get-text-property org-appt-warntime t ">" 0 org-agenda-new-marker org-get-category org-category-position re-search-backward assoc always agenda org-get-tags-at looking-at "\\*+[ 	]+\\([^
\n]+\\)" org-agenda-format-item org-get-priority org-add-props org-marker org-hd-marker priority org-category todo-state warntime type "timestamp" outline-next-heading org-ds-keyword-length tmp timestr inactivep org-deadline-regexp deadlinep org-scheduled-regexp scheduledp org-agenda-include-inactive-timestamps org-closed-string closedp org-clock-string clockp org-done-keywords donep org-agenda-skip-timestamp-if-done marker category category-pos org-outline-regexp-bol org-agenda-skip-timestamp-if-deadline-is-shown deadline-position-alist hdmarker org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags head org-agenda-inactive-leader remove-re habitp txt props ee org-agenda-skip-additional-timestamps-same-entry end-of-match] 17) offset-years year month x day day-of-year d1 mm deadline-results deadline-position-alist org-ts-regexp remove-re org-agenda-include-inactive-timestamps org-time-stamp-formats regexp marker hdmarker deadlinep scheduledp clockp closedp inactivep donep tmp priority category category-pos ee txt timestr tags b0 b3 e3 head todo-state end-of-match show-all warntime habitp inherited-tags save-match-data-internal org-agenda-repeating-timestamp-show-all] 16 (#$ . 181628)])
#@49 Return the sexp information for agenda display.
(defalias 'org-agenda-get-sexps #[nil "\306\307!\210\310\311\312\313\314\315\316\317!\"\257\320\321\211\321\211\321\211\321\211\321\211\321\211\321\211 \321\211!\"eb\210\322\n\321\323#\203S\324\325\215\210\202D\237.\207" [buffer-file-name props regexp marker category extra require diary-lib face org-agenda-calendar-sexp mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name "^&?%%(" nil re-search-forward t :skip (byte-code "\306 \210\307\224\307\225Sb\210`\310\311!\210	`{\312\313!\203#\314\315\311!!\202$\316\317\n\f#\211\203
\320!)\321!*\322\323\"+,\324=\206e,<\203S\325,>\206e,\326=\205e-\326=\206e\325->.\327\330.?\"%\331 $\322`\332\"(\330/
;\203\206
C\202\207
\3300\2111\203
1@02\203\263\33320\"\203\263\315\3070\"/\334\316\330\2110$0\333\3350\"\203\30203\202\305\3363\337/3*%\340%3\34134\342)$\210\3413\330\343*\304\f\344$\323+\345%\346\347\350(&\21035B51A\2111\204\220*\330\207" [beg b sexp sexp-entry date result org-agenda-skip 0 forward-sexp 1 looking-at "[ 	]*\\(\\S-.*\\)" org-trim match-string "" org-diary-sexp-entry org-agenda-new-marker org-get-category get-text-property org-category-position always agenda t org-get-tags-at nil org-get-todo-state org-appt-warntime string-match replace-match "\\S-" "SEXP entry returned empty string" org-agenda-format-item time org-add-props org-marker org-category todo-state tags type "sexp" warntime marker category category-pos org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags extra r --dolist-tail-- org-agenda-diary-sexp-prefix txt props ee] 18) category-pos ee txt tags entry result beg b sexp sexp-entry todo-state warntime inherited-tags] 10 (#$ . 186442)])
#@68 Like `diary-anniversary', but with fixed (ISO) order of arguments.
(defalias 'org-anniversary #[(year month day &optional mark) "\306\307\310\n\f
$*\207" [european-calendar-style calendar-date-style day month year mark european t diary-anniversary] 5 (#$ . 188298)])
#@63 Like `diary-cyclic', but with fixed (ISO) order of arguments.
(defalias 'org-cyclic #[(N year month day &optional mark) "\306\307\310\n\f
	%*\207" [european-calendar-style calendar-date-style N day month year european t diary-cyclic mark] 6 (#$ . 188574)])
#@62 Like `diary-block', but with fixed (ISO) order of arguments.
(defalias 'org-block #[(Y1 M1 D1 Y2 M2 D2 &optional mark) "\306\307\310\n\f
	\n&*\207" [european-calendar-style calendar-date-style D1 M1 Y1 D2 european t diary-block M2 Y2 mark] 8 (#$ . 188841)])
#@61 Like `diary-date', but with fixed (ISO) order of arguments.
(defalias 'org-date #[(year month day &optional mark) "\306\307\310\n\f
$*\207" [european-calendar-style calendar-date-style day month year mark european t diary-date] 5 (#$ . 189113)])
#@377 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.
(defalias 'org-class #[(y1 m1 d1 y2 m2 d2 dayname &rest skip-weeks) "	\nE\211\3068)\307\310
!\203\311\312!\202\202

\313V\203\235
S\314\211\211@)\211\211A@*\3068)S\315_\\ \306V\203\211 \316\317_\\\320\245Z 
\211\313W\203j\321
!S\310
\317\246!\205\200\310
\322\246!?\206\200\310
\323\246!)\203\211 T  -\f\324_\f\317\245\f\322\245[\f\323\245%\202\202
\321
T!\325\211\211@)\211\211A@*\3068)S\315_\\ \306V\203
 \316\317_\\\320\245Z 
\211\313W\203\351\321
!S\310
\317\246!\205\377\310
\322\246!?\206\377\310
\323\246!)\203
 T  -\f\324_\f\317\245\f\322\245[\f\323\245\326\211\326@)\211\211A@*\3068)S\315_\\ \306V\203}
 \316\317_\\\320\245Z 
\211\313W\203^
\321
!S\310
\317\246!\205t
\310
\322\246!?\206t
\310
\323\246!)\203}
 T  -&+!\"#$E\211\3068)\307\310
!\203\242
\311\312!\202\n
\313V\203%
S\314\211\211@)\211\211A@*\3068)S\315_\\ \306V\203 \316\317_\\\320\245Z 
\211\313W\203\362
\321
!S\310
\317\246!\205\310
\322\246!?\206\310
\323\246!)\203 T  -\f\324_\f\317\245\f\322\245[\f\323\245%\202\n\321
T!\325\211\211@)\211\211A@*\3068)S\315_\\ \306V\203\220 \316\317_\\\320\245Z 
\211\313W\203q\321
!S\310
\317\246!\205\207\310
\322\246!?\206\207\310
\323\246!)\203\220 T  -\f\324_\f\317\245\f\322\245[\f\323\245\326\211\326@)\211\211A@*\3068)S\315_\\ \306V\203 \316\317_\\\320\245Z 
\211\313W\203\346\321
!S\310
\317\246!\205\374\310
\322\246!?\206\374\310
\323\246!)\203 T  -&+%\211\3068)\307\310
!\203$\311\312!\202\214
\313V\203\247
S\314\211\211@)\211\211A@*\3068)S\315_\\ \306V\203\223 \316\317_\\\320\245Z 
\211\313W\203t\321
!S\310
\317\246!\205\212\310
\322\246!?\206\212\310
\323\246!)\203\223 T  -\f\324_\f\317\245\f\322\245[\f\323\245%\202\214\321
T!\325\211\211@)\211\211A@*\3068)S\315_\\ \306V\203 \316\317_\\\320\245Z 
\211\313W\203\363\321
!S\310
\317\246!\205	\310
\322\246!?\206	\310
\323\246!)\203 T  -\f\324_\f\317\245\f\322\245[\f\323\245\326\211\326@)\211\211A@*\3068)S\315_\\ \306V\203\207 \316\317_\\\320\245Z 
\211\313W\203h\321
!S\310
\317\246!\205~\310
\322\246!?\206~\310
\323\246!)\203\207 T  -&+&!&X\205\315&%X\205\315\327!'U\205\315(\203\275\330\331!\210\332&!@(\235?\205\315\333(>\205\307\334!?\205\315)+\207" [m1 d1 y1 date offset-years year 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-day-of-week require cal-iso calendar-iso-from-absolute holidays calendar-check-holidays month x day day-of-year date1 m2 d2 y2 date2 d dayname skip-weeks entry] 11 (#$ . 189369)])
#@581 Like `org-class', but honor `calendar-date-style'.
The order of the first 2 times 3 arguments depends on the variable
`calendar-date-style' or, if that is not defined, on `european-calendar-style'.
So for American calendars, give this as MONTH DAY YEAR, for European as
DAY MONTH YEAR, and for ISO as YEAR MONTH DAY.
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.

This function is here only for backward compatibility and it is deprecated,
please use `org-class' instead.
(defalias 'org-diary-class #[(m1 d1 y1 m2 d2 y2 dayname &rest skip-weeks) "\306	\n#\306\f
	#\n\307\3108@A@\310\n8\n@\nA@\f&*\207" [m1 d1 y1 date1 m2 d2 org-order-calendar-date-args org-class 2 y2 date2 dayname skip-weeks] 9 (#$ . 192582)])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [make-obsolete org-diary-class org-class "" defalias org-get-closed org-agenda-get-progress] 4)
#@52 Return the logged TODO entries for agenda display.
(defalias 'org-agenda-get-progress #[nil "\306\307\300\301	\302\n\310\311\312\313!\"\257\n
:\203
\202'
\314=\203%\315\202')*\316\317\320*>\2056\321+P\322*>\205A\321,P\323*>\205I\324E\"\211-\203Z\325\326-\327#\202]\330\331!.\332.\333\334\335\336/@\337\340\341\211\2110A@0@\34208\257\"\"\343\344O!\2601\317\21123\317\21145\317\21167\317\21189\317\211:;\317\211<\317\211=>\317\211?@\317\211ABeb\210\3451\317\346#\203\316\347\350\215\210\202\276<\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props org-agenda-show-log-scoped mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name clockcheck (clock) delq nil closed "\\<" clock state "- State \"\\([a-zA-Z0-9]+\\)\".*?" mapconcat identity "\\|" error "`org-agenda-log-mode-items' is empty" "\\(" "\\)" " *\\[" regexp-quote format-time-string apply encode-time 0 2 1 11 re-search-forward t :skip (byte-code "\306 \210\307\310\224!\311\312!	\232\313\311\312!!\314\232\n\206?\205$\311\315!\316\310\224!:\317\310\224\320\";\310\224\321 {<\322\323<\"\203}<\310\225\324O=<\310\211\225O<\n\204z\204z\322\325=\"\203z<\310\326O\327\311\312=\"\330R<\311\315=\">\202}\327>\212?\204\207\324\202\244\203\227\331\332!\205\244\311\312!\202\244\f\205\244\331\333!\205\244\311\312!@\334A\324\335#\204\267\336\337\324\"\210\202G
\310\224b\210\307 BC\340=\206\345C<\203\323\341C>\206\345C\335=\205\345D\335=\206\345\341D>E\342\324E?\"F\331\343!\210\311\312!G@\203#
\322\344G\"\203
G\310\312\224O\345@\346\311\315G\"\260G\202#
G\345@QG\347\n\203,
\350\202<
\2037
\351
\352Q\202<
\353>\352QG:F<%G\3542\355GH\356\357B\360\361\3622\363:\320;\364\365\3666\367\370\371\361&\210GIBI)\321 b\207" [marker org-closed-string closedp statep clockp state org-agenda-skip org-agenda-new-marker 0 match-string 1 string-to-char 45 2 org-get-category get-text-property org-category-position point-at-eol string-match "\\]" nil "\\([0-9]\\{1,2\\}:[0-9]\\{2\\}\\)\\].*?\\([0-9]\\{1,2\\}:[0-9]\\{2\\}\\)" -1 "-" "]" looking-at ".*\\\\\n[ 	]*\\([^-\n 	].*?\\)[ 	]*$" ".*\n[ 	]*-[ 	]+\\([^-\n 	].*?\\)[ 	]*$" re-search-backward t throw :skip always todo org-get-tags-at "\\*+[ 	]+\\([^
\n]+\\)" "\\([ 	]+\\)\\(:[^ \n	]*?:\\)[ 	]*$" " - " " " org-agenda-format-item "Closed:    " "State:     (" ")" "Clocked:   (" 100000 org-add-props org-marker org-hd-marker face org-agenda-done priority org-category type "closed" date undone-face org-warning done-face category category-pos timestr rest clocked org-agenda-log-mode-add-notes extra org-outline-regexp-bol hdmarker org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags txt props ee] 23) org-agenda-log-mode-items items org-closed-string org-clock-string parts parts-re org-time-stamp-formats date regexp org-agenda-search-headline-for-time marker hdmarker priority category category-pos tags closedp statep clockp ee txt extra timestr rest clocked inherited-tags] 17 (#$ . 193571)])
#@109 Add overlays, showing issues with clocking.
See also the user option `org-agenda-clock-consistency-checks'.
(defalias 'org-agenda-show-clocking-issues #[nil "\306\n\307\310\311\260\312\211\313\314	\315\"\206\316!(\313\314	\317\"\206#\312!)\313\314	\320\"\206/\321!*\322\313\314	\323\"\"+\314	\324\"\206C\325,\326\211-%\326\211./\326\21101\3262eb\210\327\330\326\331#\205\252\326-,%\332\333\215\210/\206v
0\206}\f-\203]\334\335 \336 \"2\3372\340\341\342\343\344-P\"\326\345%$\346P#\210\3372\347\331#\210\202].\207" [org-agenda-clock-consistency-checks pl org-clock-string re tlstart tlend "^[ 	]*" "[ 	]+" "\\(\\[.*?\\]\\)" "\\(-\\{1,3\\}\\(\\[.*?\\]\\)\\)?" 0 org-hh:mm-string-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 (byte-code "\306\307!\310\211\203\311!\204\312\313\314\315\"\210\212\311\f!\203'\316\f!q\210\212\f\206-`b\210\212\317 b\210\320
!\204C\321\322!\210\313\314\315\"\210\323\225\204[\324\325,\326\"\206T--\313\314\315\"\210\327\330!\327\323!\331\332\333\334\n!\"!\331\332\333\334	!\"!\211\nZ.,./\335_V\203\242\336\337\340\341\342.!\335\245!!\"\325,\343\"\206\235--\202#
.0\335_W\203\311\336\344\340\341\342.!\335\245!!\"\325,\345\"\206\304--\202#
1\346V\203\360\n1W\203\360\336\3471\nZ\335\245\"\325,\350\"\206\353--\202#
1\346V\203#
\n12\335_\\V\203#
\3511\n3#\204#
\336\352\n1Z\335\245\"\325,\353\"\206!
--\310\207" [m te ts issue #1=#:--mpom re org-get-at-bol org-marker nil markerp "No valid clock line" throw next t marker-buffer point-at-bol looking-at error "No valid Clock line" 3 "No end time" plist-get :no-end-time-face match-string 1 org-float-time apply encode-time org-parse-time-string 60 format "Clocking interval is very long: %s" org-minutes-to-hh:mm-string floor float :long-face "Clocking interval is very short: %s" :short-face 0 "Clocking overlap: %d minutes" :overlap-face org-agenda-check-clock-gap "Clocking gap: %d minutes" :gap-face pl face dt maxtime mintime tlend maxgap gapok] 7) make-overlay point-at-bol point-at-eol overlay-put before-string org-add-props format "%-43s" " " face "\n" evaporate maxtime mintime maxgap gapok def-face issue m te ts dt ov] 9 (#$ . 196727) nil])
#@71 Check if gap T1 -> T2 contains one of the OK-LIST time-of-day values.
(defalias 'org-agenda-check-clock-gap #[(t1 t2 ok-list) "\300\301\215\207" [exit (byte-code "\204	\306\307\310\"\210	\311\245\n\311\245Z\312V\203\306\307\313\"\210\314\315\n!!\314\315	!!A@\3168\317_\\\fA@\316\f8\317_\\\211
W\203G\320\\\321\322\"\210,\310\207" [ok-list t2 t1 t1dec t2dec min1 throw exit nil 36000 24 t decode-time seconds-to-time 2 60 1440 mapc #[(x) "	W\203\n\303\\	X\205\nY\205\304\305\306\"\207" [x min1 min2 1440 throw exit t] 3] min2] 4)] 2 (#$ . 199146)])
#@53 Return the deadline information for agenda display.
(defalias 'org-agenda-get-deadlines #[nil "\306\307\300\301	\302\n\310\311\312\313!\"\257\n
\"\314#!$#\211##\315#8)\316%&\317&!\2039\320\321!\202\335
&\322V\203\323&S%\323#\211#\211#@)'#\211#\211(A@*)##\315#8)&)'S\324_\\*'\315V\203\273*\325'\326_\\\327\245Z*&\211&\322W\203\231\330&!S&\317&\326\246!\205\262\317&\331\246!?\206\262\317&\332\246!)\203\273*T**-%\333_%\326\245%\331\245[%\332\245%\202\335
\330&T!%\334#\211#\211#@)'#\211#\211(A@*)##\315#8)&)'S\324_\\*'\315V\203P
*\325'\326_\\\327\245Z*&\211&\322W\203.
\330&!S&\317&\326\246!\205G
\317&\331\246!?\206G
\317&\332\246!)\203P
*T**-%\333_%\326\245%\331\245[%\332\245\335\211##\335@)'#\211#\211(A@*)##\315#8)&)'S\324_\\*'\315V\203\330
*\325'\326_\\\327\245Z*&\211&\322W\203\266
\330&!S&\317&\326\246!\205\317
\317&\331\246!?\206\317
\317&\332\246!)\203\330
*T**-&++\316\211,-\316\211./\316\21101\316\21123\316\21145\316\21167\316\21189\316\211:;\316\211<=\316\211>?\316\211@Aeb\210\336\"\316\337#\2038\3165\340\341\215\210\202%6\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props org-deadline-time-regexp mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name org-agenda-todayp 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) re-search-forward t :skip (byte-code "\306 \210\203#\307 \310\216\311\n\312 \313 {\"*\203#\250\203!\202\"\314\315\316!\317\316\224S;\307 \320\216\321 *2<\322=\206D2<\235=\323\315\316!>\324=p;&\211?>Z@\203jA\325\f!)\202m\325\f!B\316\326@_B\316]\245ZCD\205\205@\314VE@BX\203\231D\203\231F\203\240@\314U\203\320
\2122G\235\211H\203\275I\204\270@\314U\204\275\317\202q
\327 J\330`\331\"-\330`\332\"K\333\334\317\322#\204\335\335\336\317\"\210\202q
\314\225b\210\314\224LM\337=\206
M<\203\371\340M>\206
M\322=\205
N\322=\206
\340N>O\341LO?\"P`\342\317w\210`{Q\311\343\f\"\2032
\f\316\224\317O\344PR\2025
\345R\346@\314U\203C
S@\202`
\347SA@!\203X
SA@@6\"\202`
\350SA@@\"QJP@\314U\205o
R%
\203\317
\351C!7\352
T\353\354;!\355-\356\354L!\357@[\360
!\\\361J\332K\3622\363E\203\247
\364\202\250
\365\366E\203\263
6\202\265
?\367H\203\277
\370\202\301
7\3717\372\370&\210
UBU)\317\207" [org-agenda-skip-deadline-prewarning-if-scheduled save-match-data-internal org-scheduled-time-regexp suppress-prewarning s txt org-agenda-skip match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match point-at-bol point-at-eol 0 match-string 1 nil ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-get-todo-state t org-time-string-to-absolute past org-get-wdays 1.0 org-get-category get-text-property org-appt-warntime org-category-position re-search-backward "^\\*+[ 	]+" throw :skip always agenda org-get-tags-at "^
\n" " \\([012]?[0-9]:[0-9][0-9]\\)" " " time org-agenda-format-item functionp format org-agenda-deadline-face org-add-props org-marker org-agenda-new-marker warntime org-hd-marker priority org-get-priority org-category todo-state type "upcoming-deadline" "deadline" date face org-agenda-done undone-face done-face pos org-agenda-repeating-timestamp-show-all show-all d1 d2 diff org-deadline-warning-days wdays dfrac todayp upcomingp org-agenda-only-exact-dates org-done-keywords donep org-agenda-skip-deadline-if-done category category-pos pos1 org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags head timestr org-agenda-deadline-leaders props ee] 28) regexp date todayp offset-years year month x day day-of-year d1 d2 diff dfrac wdays pos pos1 category category-pos tags suppress-prewarning ee txt head face s todo-state show-all upcomingp donep timestr warntime inherited-tags] 14 (#$ . 199727)])
#@111 Return the face to displaying a deadline item.
FRACTION is what fraction of the head-warning time has passed.
(defalias 'org-agenda-deadline-face #[(fraction) "\303\304\305\215*\207" [org-agenda-deadline-faces f faces nil exit (byte-code "\211A@\211\205\n	@Y\203\303\304	A\"\210\202\207" [faces f fraction throw exit] 3)] 2 (#$ . 203773)])
#@54 Return the scheduled information for agenda display.
(defalias 'org-agenda-get-scheduled #[(&optional deadline-results) "\300\301	\302\n\306\307\310\311\312\313\314\315!\"\257\f
&\316'!('\211''\317'8)\320)*\321*!\203;\322\323!\202\337
*\324V\203\325*S)\325'\211'\211'@)+'\211'\211,A@*-''\317'8)*-+S\326_\\.+\317V\203\275.\327+\330_\\\331\245Z.*\211*\324W\203\233\332*!S*\321*\330\246!\205\264\321*\333\246!?\206\264\321*\334\246!)\203\275.T..-)\335_)\330\245)\333\245[)\334\245%\202\337
\332*T!)\336'\211'\211'@)+'\211'\211,A@*-''\317'8)*-+S\326_\\.+\317V\203R
.\327+\330_\\\331\245Z.*\211*\324W\2030
\332*!S*\321*\330\246!\205I
\321*\333\246!?\206I
\321*\334\246!)\203R
.T..-)\335_)\330\245)\333\245[)\334\245\337\211''\337@)+'\211'\211,A@*-''\317'8)*-+S\326_\\.+\317V\203\332
.\327+\330_\\\331\245Z.*\211*\324W\203\270
\332*!S*\321*\330\246!\205\321
\321*\333\246!?\206\321
\321*\334\246!)\203\332
.T..-&+/\3200\340\3411\"2\320\21134\320\21156\320\21178\320\2119:\320\211;<\320\211=>\320\211?@\320\211AB\320\211CD\320\211EF\320Geb\210\342&\320\343#\203>\344\345\215\210\202.;\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props 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-agenda-todayp 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) mapcar #[(a) "\302\303\304#\211\205\305	!B\207" [a mm get-text-property 0 org-hd-marker marker-position] 4] re-search-forward t :skip (byte-code "\306 \210\307\310!\311\310\224S\312 \313\216\314 *
\315=\206\f
\235@\316\307\310!A\317@p\n&\211BAZC\320`\321\"9D\205EC\322WE\311FC\322W\203e\323C!GW\203eD\203eH\203\221C\322U\204\221D\203>\324\325!\203>\203>\315\211F\203>\326\327!\205\213\327 \211I\203>\212\fJ\235\211K\203\270L\204\263C\322U\203\263\326\327!\203\270\327 \203\270\311\202\256
F\203\302I\202\312\326\327!\205\312\327 I\330 M\320`\331\"N\332\333\311\315#\204\346\334\335\311\"\210\202\256
\322\225b\210\322\224OI\203
P\203
D\2042
\324\336!\2032
\2032
\334\335\311\"\210\2022
Q\315=\204!
Q\2032
E\2032
\337OR\"\211S\2032
\334\335\311\"\210T\340=\206X
T<\203F
\341T>\206X
T\315=\205X
U\315=\206X
\341U>V\342\311V?\"W`\343\311w\210`{X\344\345\"\203~
\310\224\311O\346PY\202\201
\347Y\350C\322U\203\217
Z@\202\231
\351ZA@\310CZ\"XMWC\322U\205\250
Y\311I&	\203=I\204\300
E\203\300
\352\202\312
D\203\311
\353\202\312
\3540I\205\323
\355 I\356	[\3570\360K\203\346
\361\202\350
0\362\363\n!\364\363O!\365E\203\373
\366\202\374
\367\370E\203B\202	8\3719\372I\203\373I!\202#\374\375\376CZ\377	!#\201]M\201^N\201_I\304\f&\210	\\B\\)\311\207" [s txt pos save-match-data-internal todo-state org-agenda-repeating-timestamp-show-all org-agenda-skip match-string 1 nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-get-todo-state t org-time-string-to-absolute past get-text-property org-appt-warntime 0 abs boundp org-habit-show-all-today functionp org-is-habit-p org-get-category org-category-position re-search-backward "^\\*+[ 	]+" throw :skip org-habit-show-habits-only-for-today assoc always agenda org-get-tags-at "^
\n" string-match " \\([012]?[0-9]:[0-9][0-9]\\)" " " time org-agenda-format-item format org-scheduled-previously org-scheduled-today org-scheduled org-habit-parse-todo org-add-props undone-face face org-agenda-done org-marker org-agenda-new-marker org-hd-marker type "past-scheduled" "scheduled" date warntime priority org-habit-get-priority + 94 5 org-get-priority show-all d1 d2 diff todayp pastschedp did-habit-check-p org-scheduled-past-days org-agenda-only-exact-dates habitp org-done-keywords donep org-agenda-skip-scheduled-if-done category category-pos pos1 org-habit-show-habits org-agenda-skip-scheduled-if-deadline-is-shown deadline-position-alist mm org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags head timestr org-agenda-scheduled-leaders props ee org-category category-position org-habit-p] 28) regexp date todayp offset-years year month x day day-of-year d1 mm deadline-results deadline-position-alist d2 diff pos pos1 category category-pos tags donep ee txt head pastschedp todo-state face timestr s habitp show-all did-habit-check-p warntime inherited-tags] 16 (#$ . 204131)])
#@55 Return the date-range information for agenda display.
(defalias 'org-agenda-get-blocks #[nil "\306\307\300\301	\302\n\310\311\312\313\314\315!\"\257\f
\"#\211##\316#8)\307$%\317%!\2035\320\321!\202\331
%\322V\203\317%S$\323#\211#\211#@)&#\211#\211'A@*(##\316#8)%(&S\324_\\)&\316V\203\267)\325&\326_\\\327\245Z)%\211%\322W\203\225\330%!S%\317%\326\246!\205\256\317%\331\246!?\206\256\317%\332\246!)\203\267)T))-$\333_$\326\245$\331\245[$\332\245%\202\331
\330%T!$\334#\211#\211#@)&#\211#\211'A@*(##\316#8)%(&S\324_\\)&\316V\203L
)\325&\326_\\\327\245Z)%\211%\322W\203*
\330%!S%\317%\326\246!\205C
\317%\331\246!?\206C
\317%\332\246!)\203L
)T))-$\333_$\326\245$\331\245[$\332\245\335\211##\335@)&#\211#\211'A@*(##\316#8)%(&S\324_\\)&\316V\203\324
)\325&\326_\\\327\245Z)%\211%\322W\203\262
\330%!S%\317%\326\246!\205\313
\317%\331\246!?\206\313
\317%\332\246!)\203\324
)T))-&+*\307\211+,\307\211-.\307\211/0\307\21112\307\21134\307\21156\307\21178\307\2119:eb\210\336\"\307\337#\203\340\341\215\210\202-\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp buffer-file-name props org-tr-regexp face nil mouse-face highlight help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name 2 zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) re-search-forward t :skip (byte-code "\306 \210`\307\310!\307\311!\307\310!\307\311!\312\313p#!\312\313\fp#!/0
Z\314V\203M
/0Z\314V\203M
\212\315 \211+1\235\2112\203R3\203R\316\317\320\"\210\321`!4\322 5\323`\324\"6\3257\326\320#\204r\316\317\326\"\210\202$
\327\224b\210\321`!89\330=\206\2419<\203\217\3319>\206\2419\320=\205\241:\320=\206\241\331:>;\332\326;?\"<\333\334!\210\307\310!=>\205\306\335\336!\337\340\335\336\f!\337\260?\341\342
/U\203\325\327\202\326\310@80
ZT/
ZT#=5<
0U\203
/0U\203
\335\n\343	\344\260\202

0U\203
\335\n\344Q\202
/0U\205
\335	\344Q?&A)\345AB\3464\3478\350\351\352*\353+\354\355A!\3565\3246&\210ACBC)*b\207" [pos end-time start-time s1 s2 d1 org-agenda-skip match-string 1 2 time-to-days org-time-string-to-time -1 org-get-todo-state throw :skip t org-agenda-new-marker org-get-category get-text-property org-category-position re-search-backward nil 0 always agenda org-get-tags-at looking-at "\\*+[ 	]+\\([^
\n]+\\)" "<" regexp-quote ".*?>" "--" org-agenda-format-item format ">--<" ">" org-add-props org-marker org-hd-marker type "block" date todo-state priority org-get-priority org-category d2 d0 org-done-keywords donep org-agenda-skip-timestamp-if-done marker category category-pos org-outline-regexp-bol hdmarker org-agenda-show-inherited-tags org-agenda-use-tag-inheritance inherited-tags tags head org-agenda-remove-timeranges-from-blocks remove-re org-agenda-timerange-leaders txt props ee] 20) regexp date offset-years year month x day day-of-year d0 marker hdmarker ee txt d1 d2 s1 s2 category category-pos todo-state tags pos head donep inherited-tags] 16 (#$ . 208758)])
#@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 (#$ . 211909))
#@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 (#$ . 212073))
#@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 (#$ . 212236))
#@75 Used by `org-compile-prefix-format' to remember the category field width.
(defvar org-prefix-category-length nil (#$ . 212401))
#@75 Used by `org-compile-prefix-format' to remember the category field width.
(defvar org-prefix-category-max-length nil (#$ . 212535))
#@77 Return an image for CATEGORY according to `org-agenda-category-icon-alist'.
(defalias 'org-agenda-get-category-icon #[(category) "\300\301\215\207" [--cl-block-nil-- (byte-code "\306\211\205J\n@\211@\306
\307\310

\f#,\203B	\211A@)<\2039\311\312	\211A@)\"\210\202B\311\312\313\314	A\"\"\210\nA\211\204\306*\207" [org-agenda-category-icon-alist entry --dolist-tail-- category start string nil t string-match throw --cl-block-nil-- apply create-image regexp inhibit-changing-match-data x] 6)] 2 (#$ . 212673)])
#@681 Format TXT to be inserted into the agenda buffer.
In particular, it adds the prefix and corresponding text properties.  EXTRA
must be a string and replaces the `%s' specifier in the prefix format.
CATEGORY (string, 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.
(defalias 'org-agenda-format-item #[(extra txt &optional category tags dotime remove-re habitp) "@\211A@)	\306\211@\306A\f:\2034\f@\211\211A@@
@A@AL\210\fA\211\202,\307 B\310\216\311\312C\"\203L\313\314\306\211C$C\315CDEF$CG\206\203H;\203hH\202qH\203t\316H!\206\203I\203\202\317\320I!!\202\203\314G\321G!\211J\203\230\322\323\324J#\202\231\314JD\203\252DGSD8\202\253\314K\306\211LM\306NO\205\317O;\203\306O\202\307\314P\205\316CPQO\205\332\325Q!R\306\211ST\306\211UV\306\211WX\306\211YZ\306\211[\\\326\327!\203
I\203
\330\331I\"\210O\203\363
R\203\363
\311]Q\"\211S\204-
\311^Q\"\211T\203\257
\332\333Q\"US\205;
\334\225Y\332T\203G
\335\202H
\336Q\"V\332T\203W
\337\202a
Y\203`
\340\202a
\341Q\"W_\203\257
`\203\257
S\204z
T\203\257
\311\342U!\343PC\"\203\257
\344C\333\225\306O!\345\232\204\257
`\346=\203\242
\333\224\333U\202\243
\347\203\257
\313\314\306\211C$CV\203\274
\325V\350\347#VW\203\311
\325W\350\347#WV\203\343
W\204\343
a\203\343
\351\352V!a\\!WW\203\363
\352W!\352V!Z[\311\353C\"\2030b\347=\204\fb\203c\203\313\314\347\211C$C\2020\313\354\355CGZ\335]\356\"\332\336C\"P\347\211C$C\326\327!\203P\306\357\360\217\211M\203P\361M!N\362M\363Q\211MMM\204X\314Md\203r\311dC\"\203r\313\314\347\211C$C\202]\364\333CG\365C$\210W\203\224\366V!\367\366W!e\205\220\323R\202\254V\203\253\366V!e\203\246\370\202\247\371P\202\254\314Lf\204\270g\206\271\314gG9\203\310\316G!\202\312GG\372G!\\\311hG\"\203\334\225\203\350\334\225\334\224Z\202\355\335\225\335\224Z\211Zi\206\366\333W\203+\372G!G\373G\306\374\354\375iZ\335#\356\"$\210\202+j\203+GGjY\203+G\333jSOG\376!CPX\377\333XG\201mX$\210\373X\306\201H\\\203Q\\\227\202SG\201D\201n\201oD\"\201kk\201ll\201RR\201[[\201MM\201pN\201CC\201LL\201gg\201q\201OO&.\207" [org-prefix-format-compiled bindings x formatter #1=#:--cl-var-- #2=#:--cl-var-- nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^ +" replace-match "" org-agenda-fix-displayed-tags symbol-name file-name-sans-extension file-name-nondirectory org-agenda-get-category-icon propertize " " display org-get-time-of-day derived-mode-p org-mode add-to-list org-agenda-contributing-files match-string 0 3 1 2 8 4 6 regexp-quote " *" string-to-char 93 beg t string org-minutes-to-hh:mm-string org-hh:mm-string-to-minutes "\\([ 	]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$" make-string 50 32 (byte-code "\301\302\303#\207" [txt get-text-property 0 org-effort] 4) ((error)) org-duration-string-to-minutes "[" "]" add-text-properties (org-heading t) org-agenda-time-of-day-to-ampm-maybe "-" "........ " "......" copy-sequence org-add-props extra-space - eval remove-text-properties var value save-match-data-internal txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp category org-category buffer-file-name category-icon tag time effort neffort dotime org-agenda-search-headline-for-time ts time-of-day stamp plain s0 s1 s2 rtn srp l duration thecategory org-stamp-time-of-day-regexp org-plain-time-of-day-regexp org-prefix-has-time org-agenda-remove-times-when-in-prefix org-agenda-default-appointment-duration org-agenda-remove-tags org-prefix-has-tag remove-re org-agenda-timegrid-use-ampm habitp extra org-bracket-link-regexp org-prefix-category-length org-prefix-category-max-length org-highest-priority org-lowest-priority (line-prefix t wrap-prefix t) mapcar org-downcase-keep-props effort-minutes format] 30 (#$ . 213211)])
#@176 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.
(defalias 'org-agenda-fix-displayed-tags #[(txt tags add-inherited hide-re) "\204	\203=\306\307\n\"\203\n\310\211\224O\311\312\313\314\"\"\211\203=\315\310\316@#\312\n\317\320\321\322#
\2039\323\202:\322R*\n\207" [add-inherited hide-re txt tags i have-i string-match "\\([ 	]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$" 0 delq nil mapcar #[(tg) "\203\303	\"\206\n?\205\304\305\306	#?\205	\207" [hide-re tg add-inherited string-match get-text-property 0 inherited] 4] get-text-property inherited " :" mapconcat #[(x) "\303\304\305#\n\203	\204\306\307P\207\207" [x i have-i get-text-property 0 inherited nil ":"] 4] ":" "::"] 7 (#$ . 217570)])
(defalias 'org-downcase-keep-props #[(s) "\302\303\"\227\304\303G	$\210)\207" [s props text-properties-at 0 add-text-properties] 5])
(defvar org-agenda-sorting-strategy-selected nil)
(defalias 'org-agenda-add-time-grid-maybe #[(list ndays todayp) "\300\301\215\207" [exit (byte-code "\204\f\306\307	\"\210\2020\n\203\310@\235\2040\f\311U\203$\312@\235\2040\313@\235\2040\306\307	\"\210\314\315\316\317	\"\"A@%\3208&@'\321'\235(\315\211)*\322'\235\203b
\204b\306\307	\"\210&\211A&@\211*\203\256(\203{*
\235\204b\323\324\325\326\327*\"#*\330\315%\331\315*\332\333O\334*\333\315OQ%)B)\335\320)@G\336\337)@%\210\202b\n\203\323+\203\323\330\315,\331\315\340\341!%)B)\335\320)@G\336\342)@%\210\343-\235\203\342\344)	\"\202\347\344	)\".\207" [org-agenda-use-time-grid list todayp org-agenda-time-grid ndays have throw exit today 1 daily weekly delq nil mapcar #[(x) "\301\302\303#\207" [x get-text-property 1 time-of-day] 4] 2 remove-match require-timed replace-regexp-in-string " " "0" format "%04s" org-agenda-format-item "" 0 -2 ":" put-text-property face org-time-grid format-time-string "%H:%M " org-agenda-current-time time-up append string gridtimes req remove new time org-agenda-show-current-time-in-grid org-agenda-current-time-string org-agenda-sorting-strategy-selected] 11)] 2])
#@188 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'.
(defalias 'org-compile-prefix-format #[(key) "\306\211\306\211\f;\203\f\202
\f\236\203
\f\236A\202\307\310\306\211\211\211\211\211\211,-./01234\311\31243#\203+
\313\314\3154\"\316\"A\206P\3170\314\3204\"\206[\321.\322\224,\310\224T30\323\232\203o\3240\325\232\203x\3240\326\232\203\201\324\327\314\3304\"\331Q-0\332\232\203\300\333\334\335\314\3304\"!!!\314\3304\"5\336 6\337\216\311\3405\"\205\275\335\314\3105\"\322\306O!+70\317=\203\331\341-\342\343\314\3154\"!DE2\202
,\203\375\344\345\3210E\321\341-\344\345\3210E\321\3460.EFEF2\202
\341-\344\3450\347BB\321\3460.\350\310\3510FFFE2\352\353\324\3064$421B1\20291\2371r8\2067
pq\210\300D\301	D\302\nD\303DF\34141BBD\2119.\n\207" [org-prefix-has-time org-prefix-has-tag org-prefix-category-length org-prefix-has-effort org-agenda-prefix-format key nil "  %-12:c%?-12t% s" 0 string-match "%\\(\\?\\)?\\([-+]?[0-9.]*\\)\\([ .;,:!?=|/<>]?\\)\\([ctsei]\\|(.+)\\)" assoc match-string 4 (("c" . category) ("t" . time) ("s" . extra) ("i" . category-icon) ("T" . tag) ("e" . effort)) eval 3 #1="" 1 time t tag effort "%" 2 "s" category floor abs string-to-number match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "\\.[0-9]+" format org-eval read if equal concat (#1#) get-text-property 'extra-space replace-match "%s" opt f c e var vars varform start s x save-match-data-internal org-prefix-category-max-length org-agenda-buffer org-prefix-format-compiled] 13 (#$ . 219773)])
(defalias 'org-set-sorting-strategy #[(key) "@9\203\n\211\207\n\236A\206\303\236A\206\304\211\207" [org-agenda-sorting-strategy org-agenda-sorting-strategy-selected key agenda (time-up category-keep priority-down)] 2])
#@212 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.
(defalias 'org-get-time-of-day #[(s &optional string mod24) "\306 \307\216\310\311	\"\204\310\312	\"\205\337\313\314\315	\"!\316\225\203(\313\314\316	\"!\202)\317\320\225\2054\314\320	\"\227\211\321\232\f\204A\n\202^\n\322U\203S
\203O\317\202^\322\202^\n
\203\\\317\202]\322\\!\"\203#\203\317U\203w!\323U\204\324!\323\"\202\201!\211$\325_\\%!\323Y\203\225\326\202\226\327&\203\246%\330W\203\246\331\202\247\332%\325W\203\262\331\202\263\332%\333W\203\276\331\202\277\332\334%!\260'\"\203\333'\335\336O\337'\336\340OQ\202\335%.*\207" [save-match-data-internal s h m ampm am-p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)?\\> *" "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\)\\> *" string-to-number match-string 1 3 0 4 "am" 12 24 mod 100 "+" " " 1000 "0" "" 10 int-to-string -4 -2 ":" nil h1 string mod24 h2 t0 org-agenda-time-leading-zero t1] 7 (#$ . 221751)])
#@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 (#$ . 223032))
#@40 Sort and concatenate the agenda items.
(defalias 'org-agenda-finalize-entries #[(list &optional nosort) "\303\304\"	\203\207\n\203\305\306\303\n\"\"\307\310\311\312\"\313#\207" [list nosort org-agenda-before-sorting-filter-function mapcar org-agenda-highlight-todo delq nil mapconcat identity sort org-entries-lessp "\n"] 5 (#$ . 223992)])
(defalias 'org-agenda-highlight-todo #[(x) "\306\211\f\307=\203T\212\310\311!\210\312\313!\314\315 \316 \317\320$\206!`b\210\321\322	\323Q!\205P\324\325\224\311\225\326\327\311!D#\210\311\224\311\225{\311\224\325\225S|\210\311\224b\210\330#
\"c))\202\263\314\325\fG\317\320\f%$\331\325\313\f#\211\203\261$\203\261\332\333	\334Q\f$#$\232\203\261\324\311\225\206\204\325\225\325\225\326\327\335\336\f\"!D\f$\210\311\225\203\261\f\325\311\225O\330#\335\336\f\"\"\337\340\341\325\f\"\"\f\342\225\306OR)\f+\207" [org-done-keywords-for-agenda re case-fold-search org-done-keywords x s nil line beginning-of-line 1 org-get-at-bol org-todo-regexp text-property-any point-at-bol point-at-eol org-heading t looking-at "[ 	]*\\.*\\(" "\\) +" add-text-properties 0 face org-get-todo-face format get-text-property string-match "\\(\\.*\\)" "\\( +\\)" match-string 2 org-add-props " " text-properties-at 3 org-agenda-todo-keyword-format pl] 9])
#@43 Compare the priorities of string A and B.
(defalias 'org-cmp-priority #[(a b) "\304\305\306#\206	\307\304\305\306	#\206\307\211\nV\203\305\202%\nW\205%\310*\207" [a b pb pa get-text-property 1 priority 0 -1] 6 (#$ . 225302)])
(put 'org-cmp-priority 'byte-optimizer 'byte-compile-inline-expand)
#@46 Compare the effort values of string A and B.
(defalias 'org-cmp-effort #[(a b) "\203\306\202	\307\310\311\312\n#\206	\310\311\312\f#\206	
V\203(\311\202/
W\205/\307+\207" [org-sort-agenda-noeffort-is-high def a ea b eb 32767 -1 get-text-property 1 effort-minutes] 4 (#$ . 225613)])
(put 'org-cmp-effort 'byte-optimizer 'byte-compile-inline-expand)
#@61 Compare the string values of categories of strings A and B.
(defalias 'org-cmp-category #[(a b) "\304\305\306#\206	\307\304\305\306	#\206\307\211\n\231\203\310\202%\n\231\205%\305*\207" [a b cb ca get-text-property 1 org-category "" -1] 6 (#$ . 225983)])
(put 'org-cmp-category 'byte-optimizer 'byte-compile-inline-expand)
#@45 Compare the todo states of strings A and B.
(defalias 'org-cmp-todo-state #[(a b) "\306\307\310#\206
\306\307\311#\306\307\310\n#\206\306\307\311\n#	\205#\312	!\205+\312!\f\203:r\fq\210)\206E
\205Er
q\210)\306\307\313#\206P\314\306\307\313\n#\206[\314\235G[\235G[\235\235\203\213\204\213\315\202\256\204\231\203\231\307\202\256W\203\245\315\202\256W\205\256\307.\207" [a ma b mb fa fb get-text-property 1 org-marker org-hd-marker marker-buffer todo-state "" -1 org-todo-keywords-1 todo-kwds ta tb la lb org-done-keywords-for-agenda donepa donepb] 4 (#$ . 226323)])
(put 'org-cmp-todo-state 'byte-optimizer 'byte-compile-inline-expand)
#@40 Compare the headlines, alphabetically.
(defalias 'org-cmp-alpha #[(a b) "\306\307G\310\311%\306\307\nG\310\311\n%	\205	\312O\205#\n\312O	\203C\313\314\315\307\316#\2063\317\320Q\f\"\203@\f\307\225\312O\f\227\203b\313\314\315\307\316\n#\206R\317\320Q
\"\203_
\307\225\312O
\227\f\204j\321\202\203
\204r\322\202\203\f
\231\203|\322\202\203
\f\231\205\203\321,\207" [a pla b plb ta tb text-property-any 0 org-heading t nil string-match "\\`[ 	]*" get-text-property org-todo-regexp "" "\\([ 	]*\\[[a-zA-Z0-9]\\]\\)? *" 1 -1] 6 (#$ . 227043)])
(put 'org-cmp-alpha 'byte-optimizer 'byte-compile-inline-expand)
#@57 Compare the string values of the first tags of A and B.
(defalias 'org-cmp-tag #[(a b) "\304\305\306\307#!@\304\305\306\307	#!@\211\204\306\2023\n\204\"\310\2023\n\231\203,\310\2023\n\231\2053\306*\207" [a b tb ta last get-text-property 1 tags -1] 7 (#$ . 227684)])
(put 'org-cmp-tag 'byte-optimizer 'byte-compile-inline-expand)
#@52 Compare the time-of-day values of strings A and B.
(defalias 'org-cmp-time #[(a b) "\203\306\202	\307\310\311\312\n#\206	\310\311\312\f#\206	
W\203(\307\202/
W\205/\311+\207" [org-sort-agenda-notime-is-late def a ta b tb 9901 -1 get-text-property 1 time-of-day] 4 (#$ . 228032)])
(put 'org-cmp-time 'byte-optimizer 'byte-compile-inline-expand)
#@45 Compare the todo states of strings A and B.
(defalias 'org-cmp-habit-p #[(a b) "\304\305\306#\304\305\306	#\211\203\n\204\307\202\"?\205\"\n\205\"\305*\207" [a b hb ha get-text-property 1 org-habit-p -1] 6 (#$ . 228398)])
(put 'org-cmp-habit-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-em #[(x y list) "	>\206	\n	>\207" [x list y] 2])
(put 'org-em 'byte-optimizer 'byte-compile-inline-expand)
#@39 Predicate for sorting agenda entries.
(defalias 'org-entries-lessp #[(a b) "\306\307	\211\n>\206\n>+\205V
889\203$\310\202%\311:\312\313\314
#\2061:;\312\313\3148#\206>:<;<W\203L\311\202U<;W\205U\313-\211\205_[\315\316	\211\n>\206p\n>+\205\246
88\312\313\317
#\206\203\320\312\313\3178#\206\215\320=\211>=V\203\234\313\202\245>=W\205\245\311,\211
\205\257
[\321\322	\211\n>\206\300\n>+\205

88?\203\323\323\202\324\311:\312\313\324
#\206\340:@\312\313\3248#\206\355:A@AV\203\373\313\202
@AW\205
\311-\211\205
[\325\326	\211\n>\206
\n>+\204)
\327	>\205[

88\312\313\330
#\2068
\331\312\313\3308#\206B
\331B\211CB\231\203Q
\311\202Z
BC\231\205Z
\313,\211\205d
[\205l
\313\332\333	\211\n>\206}
\n>+\205\303

88\334\312\313\335
#!@\334\312\313\3358#!@<\211;\204\244
\313\202\302
<\204\255
\311\202\302
;<\231\203\271
\311\202\302
<;\231\205\302
\313,\211\205\314
[\336\337	\211\n>\206\335
\n>+\205\246
88\312\313\340
#\206\364
\312\313\341
#D\312\313\3408#\206\312\313\3418#ED\205\342D!FE\205\342E!GF\203-rFq\210H)\206:G\205:rGq\210H)I\312\313\343
#\206E\331;\312\313\3438#\206Q\331<;I\235G[J<I\235G[K;L\235M<L\235NM\203\201N\204\201\311\202\244M\204\217N\203\217\313\202\244JKW\203\233\311\202\244KJW\205\244\313.
\211\205\257[\344\345	\211\n>\206\300\n>+\205\363
88\312\313\346
#\312\313\3468#O\211P\203\346O\204\346\311\202\362P?\205\362O\205\362\313,\211$\205\374$[%\347\350	\211\n>\206
\n>+\205\272
88\351\320
G\352\353
%Q\351\3208G\352\3538%RQ\2057
Q\354O;R\205D8R\354O<Q\203k\355\356\312\320\357
#\206V\331\360Q;\"\203f;\320\225\354O;;\227;R\203\221\355\356\312\320\3578#\206|\331\360Q<\"\203\214<\320\225\354O<<\227<;\204\232\313\202\270<\204\243\311\202\270;<\231\203\257\311\202\270<;\231\205\270\313.\211'\205\303'[(\361\362	\211\n>\206\324\n>+S\354\21112S\203\377T\203\377\363T!\203\377T
8\"\2111\205\3751[2\364\365\366B!\367\"A.\207" [org-agenda-sorting-strategy-selected ss list y x a time-up time-down 9901 -1 get-text-property 1 time-of-day priority-up priority-down priority 0 effort-up effort-down 32767 effort-minutes category-up category-down category-keep org-category "" tag-up tag-down last tags todo-state-up todo-state-down org-marker org-hd-marker marker-buffer todo-state habit-up habit-down org-habit-p alpha-up alpha-down text-property-any org-heading t nil string-match "\\`[ 	]*" org-todo-regexp "\\([ 	]*\\[[a-zA-Z0-9]\\]\\)? *" user-defined-up user-defined-down functionp assoc eval or ((-1 . t) (1) (nil)) b org-sort-agenda-notime-is-late def ta tb pb pa org-sort-agenda-noeffort-is-high ea eb cb ca ma mb fa fb org-todo-keywords-1 todo-kwds la lb org-done-keywords-for-agenda donepa donepb hb ha pla plb need-user-cmp org-agenda-cmp-user-defined] 7 (#$ . 228828)])
#@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) (#$ . 231851))
(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." org-detach-overlay] 4)
#@266 Set restriction lock for agenda, to current subtree or file.
Restriction will be the file if TYPE is `file', or if type is the
universal prefix '(4), or if the cursor is before the first headline
in the file.  Otherwise, restriction will be to the current subtree.
(defalias 'org-agenda-set-restriction-lock #[(&optional type) "\306\232\203\307\203\202%\310 \203\311\202%\312\313\314\217\203$\311\202%\307\211\311=\203Z\315\311\316\317\320\321\322 !C#\210\323\315!\210\324`\325 #\210\f`\312\223\210
\212\326\315!)\312\223\210\327\330!\210\202v\316\317\320\321\322 !C#\210\312\307\f\312\211\223\210
\312\211\223\210\327\331!\210\312\332 \207" [type org-agenda-restrict org-agenda-overriding-restriction org-agenda-restriction-lock-overlay org-agenda-restrict-begin org-agenda-restrict-end (4) file org-at-heading-p subtree nil (org-back-to-heading t) ((error)) t put org-agenda-files org-restrict buffer-file-name buffer-base-buffer org-back-to-heading move-overlay point-at-eol org-end-of-subtree message "Locking agenda restriction to subtree" "Locking agenda restriction to file" org-agenda-maybe-redo current-prefix-arg] 6 (#$ . 232263) "P"])
#@37 Remove the agenda restriction lock.
(defalias 'org-agenda-remove-restriction-lock #[(&optional noupdate) "\306!\210\306	!\210\307\211\310\311\312\307#\210\f\307\211\223\210
\307\211\223\210\307\313\314!\210\206*\315 \207" [org-agenda-restriction-lock-overlay org-speedbar-restriction-lock-overlay org-agenda-overriding-restriction org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end org-detach-overlay nil put org-agenda-files org-restrict message "Agenda restriction lock removed" org-agenda-maybe-redo current-prefix-arg noupdate] 5 (#$ . 233439) "P"])
#@60 If there is any window showing the agenda view, update it.
(defalias 'org-agenda-maybe-redo #[nil "\304\305\"\306 \211\205%\307\n!\210\310 \210\307	!\210\203\"\311\312\"\202%\311\313!*\207" [org-agenda-buffer-name w0 w org-agenda-overriding-restriction get-buffer-window t selected-window select-window org-agenda-redo message "Agenda view shifted to new %s restriction" "Agenda restriction lock removed"] 4 (#$ . 234026)])
#@165 Check if agenda buffer is of allowed type.
If ERROR is non-nil, throw an error, otherwise just return nil.
Allowed types are 'agenda 'timeline 'todo 'tags 'search.
(defalias 'org-agenda-check-type #[(error &rest types) "\204\302\303!\207	>\203\304\207\n\205\302\305\"\207" [org-agenda-type types error "No Org agenda currently displayed" t "Not allowed in %s-type agenda buffers"] 3 (#$ . 234465)])
#@51 Exit agenda by removing the window or the buffer.
(defalias 'org-agenda-Quit #[(&optional arg) "\203\306 \207p\n\307=\203!\310 \210\311	!\210\312 \210\313\314 \210\202;\n\315=\204/\316 \204/\317 \210\310 \210\311	!\210\312 \210\313)\f\205T\n\307=?\205T
\205T\320
!\205T\313\211\207" [org-agenda-columns-active buf org-agenda-window-setup org-agenda-archives-mode org-agenda-restore-windows-after-quit org-agenda-pre-window-conf org-columns-quit other-frame org-agenda-reset-markers kill-buffer org-columns-remove-overlays nil delete-frame current-window one-window-p delete-window set-window-configuration] 2 (#$ . 234879) nil])
#@88 Exit agenda by killing agenda buffer or burying it when
`org-agenda-sticky' is non-NIL
(defalias 'org-agenda-quit #[nil "\306=\203	\203\307	!\211\203\310\n!\210)\203\311 \207\f\203fp\312=\2031\313 \210\202@\314=\204@\315 \204@\310 \210r
q\210\316 \210\205d\312=?\205d\205d\317!\205d\320\211*\207\321 \207" [org-indirect-buffer-display org-last-indirect-buffer org-last-indirect-window org-agenda-columns-active org-agenda-sticky buf other-window get-buffer-window delete-window org-columns-quit other-frame delete-frame current-window one-window-p bury-buffer set-window-configuration nil org-agenda-Quit org-agenda-window-setup org-agenda-restore-windows-after-quit org-agenda-pre-window-conf] 3 (#$ . 235529) nil])
#@189 Exit agenda by removing the window or the buffer.
Also kill all Org-mode buffers which have been loaded by `org-agenda'.
Org-mode buffers visited directly by the user will not be touched.
(defalias 'org-agenda-exit #[nil "\301!\210\302\303 \207" [org-agenda-new-buffers org-release-buffers nil org-agenda-Quit] 2 (#$ . 236288) nil])
#@136 Kill all buffers in `org-agenda-mode'.
This is used when toggling sticky agendas.  You can also explicitly invoke it
with `C-c a C-k'.
(defalias 'org-agenda-kill-all-agenda-buffers #[nil "\304\305 \304\211\203$\n@r	q\210)\306=\203	B\nA\211\204*\307\310\")\207" [blist buf --dolist-tail-- major-mode nil buffer-list org-agenda-mode mapc kill-buffer] 4 (#$ . 236630) nil])
#@140 Execute another agenda command, keeping same window.
So this is just a shortcut for \<global-map>`\[org-agenda]', available
in the agenda.
(defalias 'org-agenda-execute #[(arg) "\302\303	!)\207" [org-agenda-window-setup arg current-window org-agenda] 2 (#$ . 237022) "P"])
#@60 Rebuild possibly ALL agenda view(s) in the current buffer.
(defalias 'org-agenda-redo #[(&optional all) "\306\307!\203`S\206\f`	\310=?\205\n\f\311(\206!))\310*\n+\312\313N,-.\f/\314\313N0+\206C,123\3114\2124\203V4b\210n\203^\315\202_\316\317\315`\"\\*\2115\320 4\2124\203v4b\210n\203~\315\202\316\317\315`\"\\*Z6\321\322N7\323\324\"8\323\325\"9\323\326\":	\310=?\205\3029<\203\272\206\2639@9AB\202\3029;\205\3029;\323\327\"<\330\312\313\311#\210\330\314\313\311#\2103\203\336\331 \210\332\333!\210<\203\357\334<!\210\202\365\3357\336\"\210\311\211=>\332\337!\210\330\312\313,#\210\330\314\3130#\210+\204
,\203
\340+\341\"\210/\204'
0\203-
\340/\342\"\210.\2037
\343.!\2103\203E
\344\345!\203E
\346 \2105?\214~\210eb\210?Sy\210*\3476!.\207" [p all current-prefix-arg cpa org-agenda-sticky org-agenda-doing-sticky-redo looking-at "\\'" t nil org-agenda-tag-filter :preset-filter org-agenda-category-filter 1 0 count-lines window-start org-agenda-redo-command org-lprops get-text-property org-redo-cmd org-last-args org-series-cmd org-series-redo-cmd put org-columns-quit message "Rebuilding agenda buffer..." eval org-let (eval redo-cmd) "Rebuilding agenda buffer...done" org-agenda-filter-apply tag category org-agenda-filter-top-category-apply called-interactively-p any org-agenda-columns recenter org-agenda-this-buffer-name org-agenda-buffer-name org-agenda-keep-modes tag-filter tag-preset org-agenda-top-category-filter top-cat-filter cat-filter cat-preset org-agenda-tag-filter-while-redo org-agenda-columns-active cols pos line window-line lprops redo-cmd last-args org-agenda-overriding-cmd org-agenda-overriding-cmd-arguments series-redo-cmd org-agenda-undo-list org-agenda-pending-undo-list N] 6 (#$ . 237302) "P"])
(defvar org-global-tags-completion-table nil)
(defvar org-agenda-filter-form nil)
(defvar org-agenda-filtered-by-category nil)
#@117 Keep only those lines in the agenda buffer that have a specific category.
The category is that of the current line.
(defalias 'org-agenda-filter-by-category #[(strip) "\203	\203\306 \207\307`\310\"\311\312\313!\203#\313\314G\311$\210\202:\n\2032\315\314G\f$\210\202:\313\314G\311$\210*\211\203T\316\203K\317\202L\320
PC\321\"\202W\322\323!)\207" [org-agenda-filtered-by-category org-agenda-category-filter restricted s org-rm-props cat org-agenda-filter-show-all-cat get-text-property org-category nil fboundp set-text-properties 0 remove-text-properties org-agenda-filter-apply "-" "+" category error "No category at point" strip] 6 (#$ . 239253) "P"])
(defalias 'org-find-top-category #[(&optional pos) "\212r\203\f\301!\202
pq\210\203b\210\302\303\304\217\204\302\305\306\217*\207" [pos marker-buffer nil (byte-code "\300\301!\210\302\207" [outline-up-heading 1 t] 2) ((error)) (byte-code "\300\301 8\207" [4 org-heading-components] 2) ((error))] 3])
(defvar org-agenda-filtered-by-top-category nil)
#@117 Keep only those lines in the agenda buffer that have a specific category.
The category is that of the current line.
(defalias 'org-agenda-filter-by-top-category #[(strip) "\203\304\211\305 \207\306\307\310!!\211\203\311\n\"\202\312\313!)\207" [org-agenda-filtered-by-top-category org-agenda-top-category-filter cat strip nil org-agenda-filter-show-all-cat org-find-top-category org-get-at-bol org-hd-marker org-agenda-filter-top-category-apply error "No top-level category at point"] 4 (#$ . 240298) "P"])
#@376 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 prefix argument STRIP, remove all lines that do have the tag.
A lisp caller can specify CHAR.  NARROW means that the new tag should be
used to narrow the search - the interactive user can also press `-' or `+'
to switch to narrowing.
(defalias 'org-agenda-filter-by-tag #[(strip &optional char narrow) "\306\307	\310#\311\312\313P\f\"A\206\314!@A\310B\315C2D\316\211EF\316\211G0H\204R\317\320I\203@\321\202A\322\nJ\203K\323\202L\310$\210\324 HH\325\235\203H\326\232\203i\315\211KI\202vH\327\232\203v\316K\315I\317\330\n\"\210\324 HH\331\235\203\341\332H!A\316H\333\232\204\341\334\211L\335X\203\303B\336L\335U\203\254\337\202\261\340LT!\341L
8\260BLT\211L\202\231)\317\342AB#\210\324 \211H\343W\204\335H\344V\203\341\345\346!\210H\335\232\203\n
\347\350p\"\204\377\350\211 MN\351N!ML\210*\315O\352\353(\"0)H\354\232\203Z
\355 \210J\203T
\3162\356 \3160\211P\203H
P@0J0!\211Q\203>
Q2B2)PA\211P\204'
*2\203T
\3572\360\"\210\315E\2022H\361\232\203v
\355 \210\362\363N\203p
\3572\360\"\210\315E\2022H\364\232\203\221
\365\366\367\370!\"2\3572\360\"\210\315E\2022H\371\232\204\377
\372H	\"\211F\204\377
H\343Y\203\326
H\344X\203\326
H\343U\203\274
\335\202\302
\373H\343\374#GAG
8P\2110\316B\211F\204\377
H\333U\203\360
\375\2110\203\360
F\203\360
0\316B\204\377
0\203*0\316B\211F\203*\355 \210F@0K\203\376\202\3770PI\205DB2\3572\360\"\210\315E\2022\345\201SH\"\210E\205DR\201T=\205D\201U .\207" [org-tag-alist-for-agenda alist tag-chars org-effort-property org-global-properties efforts mapconcat #[(x) "@9\204A\203\301A!\207\302\207" [x char-to-string #1=""] 2] #1# org-split-string assoc "_ALL" "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00 8:00" t nil message "%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: " "Narrow" "Filter" "[RET], " read-char-exclusive (43 45) 45 43 "Narrow by tag [%s ], [TAB], [/]:off, [>=<]:effort: " (60 62 61 63) char-to-string 63 0 9 " [" "0" int-to-string "]" "Effort%s: %s " 48 57 error "Need 1-9,0 to select effort" local-variable-p org-global-tags-completion-table make-local-variable org-icompleting-read "Tag: " 13 org-agenda-filter-show-all-tag org-agenda-get-represented-tags org-agenda-filter-apply tag 47 org-agenda-tag-filter :preset-filter 46 mapcar #[(tag) "\301P\207" [tag "+"] 2] org-get-at-bol tags 32 rassoc - 1 "?eff" "-" "+" org-agenda-filter-effort-default-operator effort-op effort-prompt inhibit-read-only current maybe-refresh a n char narrow org-agenda-auto-exclude-function strip i value var completion-ignore-case --dolist-tail-- modifier org-agenda-clockreport-mode "Invalid tag selection character %c" with-filter org-agenda-redo] 7 (#$ . 240822) "P"])
#@61 Get a list of all tags currently represented in the agenda.
(defalias 'org-agenda-get-represented-tags #[nil "\302\211\212eb\210\303`\300\"\211\203	b\210\304\305\306`\300\"\"\210\202)*\207" [tags p nil next-single-property-change mapc #[(x) "\301\302\"\207" [x add-to-list tags] 3] get-text-property] 5 (#$ . 243751)])
#@61 Refine the current filter.  See `org-agenda-filter-by-tag'.
(defalias 'org-agenda-filter-by-tag-refine #[(strip &optional char) "\302	\303#\207" [strip char org-agenda-filter-by-tag refine] 4 (#$ . 244085) "P"])
#@54 Create the form that tests a line for agenda filter.
(defalias 'org-agenda-filter-make-matcher #[nil "\306\211\307\310\302\311N\n\"!\306\211\203Y\f@\211\312\235\203+\313\232\203&\314\202'\315\202N\316\317\"\2039\320!\202B\321\322\306O\227\314E\323!\324\232\203N\325D	B\fA\211\204*\307\310\305\311N
\"!\306\211\203\225\f@\211\326\322O\313\232\203\202\325\327\322\306O\330ED\202\212\327\322\306O\330E	B\fA\211\204i*\331	\237*B\207" [f1 f org-agenda-tag-filter x --dolist-tail-- org-agenda-category-filter nil delete-dups append :preset-filter ("-" "+") "-" tags (not tags) string-match "[<=>?]" org-agenda-filter-effort-form member 1 string-to-char 45 not 0 equal cat and] 6 (#$ . 244304)])
#@100 Return the form to compare the effort of the current line with what E says.
E looks like "+<2:25".
(defalias 'org-agenda-filter-effort-form #[(e) "\302	\303\302O\304	!	\303\302O\305\232\203\306\202/\307\232\203$\310\202/\311\232\203.\202/\312\313\314D\315	!E)\207" [op e nil 1 string-to-char 60 <= 62 >= 63 = org-agenda-compare-effort quote org-duration-string-to-minutes] 4 (#$ . 245042)])
#@119 Compare the effort of the current line with VALUE, using OP.
If the line does not have an effort defined, return nil.
(defalias 'org-agenda-compare-effort #[(op value) "\304\305!	\306\232\203?\202	\206\n\203\307\202\310\")\207" [eff op org-sort-agenda-noeffort-is-high value org-get-at-bol effort-minutes 63 32767 0] 3 (#$ . 245457)])
#@51 Set FILTER as the new agenda filter and apply it.
(defalias 'org-agenda-filter-apply #[(filter type) "\306\211\n\307=\203\202\310 \n\311=\203(@\312\313O\314\232\204(\315\316 \210\212eb\210m\204[\317\320!\203T\317\301!\321`\322\"\323!\204M\324\n!\210\325\326!\210\202/\325\326!\210\202/)\327`\330\"\205g\306\331\332\217*\207" [cat tags type filter org-agenda-tag-filter org-agenda-category-filter nil tag org-agenda-filter-make-matcher category 0 1 "-" t org-agenda-set-mode-name org-get-at-bol org-marker get-text-property org-category eval org-agenda-filter-hide-line beginning-of-line 2 get-char-property invisible (org-agenda-previous-line) ((error)) org-agenda-filter-form org-agenda-filtered-by-category] 3 (#$ . 245812)])
#@51 Set FILTER as the new agenda filter and apply it.
(defalias 'org-agenda-filter-top-category-apply #[(category &optional negative) "\306 \210\212eb\210m\2047\307\310!\211\205\311!\211\203/\n\203#\312\202$\313	\230!\203/\314\303!\210*\315\316!\210\202)\317`\320\"\203B\321 \210\322\211\207" [pos topcat negative category org-agenda-top-category-filter org-agenda-filtered-by-top-category org-agenda-set-mode-name org-get-at-bol org-hd-marker org-find-top-category identity not org-agenda-filter-hide-line beginning-of-line 2 get-char-property invisible org-agenda-previous-line t] 4 (#$ . 246573)])
(defalias 'org-agenda-filter-hide-line #[(type) "\304\305e\306 S]\307 \"\310\311\312#\210\310\301	#\210	\313=\203&\nB\211\202+B\211)\207" [ov type org-agenda-tag-filter-overlays org-agenda-cat-filter-overlays nil make-overlay point-at-bol point-at-eol overlay-put invisible t tag] 4])
(defalias 'org-agenda-fix-tags-filter-overlays-at #[(&optional pos) "\206`\212\303!\304\211\205A\n@\305	\306\"\2039\305	\307\"\310=\2039b\210\311	!\312 W\2039\313	\312 \314	!#\210\nA\211\204\304+\207" [pos ov --dolist-tail-- overlays-at nil overlay-get invisible type tag overlay-start point-at-eol move-overlay overlay-end] 6])
(defalias 'org-agenda-filter-show-all-tag #[nil "\303\304\"\210\305\211\305\306 \207" [org-agenda-tag-filter-overlays org-agenda-tag-filter org-agenda-filter-form mapc delete-overlay nil org-agenda-set-mode-name] 4])
(defalias 'org-agenda-filter-show-all-cat #[nil "\304\305\"\210\306\211\306\211\307 \207" [org-agenda-cat-filter-overlays org-agenda-filtered-by-category org-agenda-category-filter org-agenda-filter-form mapc delete-overlay nil org-agenda-set-mode-name] 4])
#@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 #[nil "\300\301!\207" [org-agenda-manipulate-query 91] 2 (#$ . 248319) 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 #[nil "\300\301!\207" [org-agenda-manipulate-query 93] 2 (#$ . 248593) 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 #[nil "\300\301!\207" [org-agenda-manipulate-query 123] 2 (#$ . 248872) 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 #[nil "\300\301!\207" [org-agenda-manipulate-query 125] 2 (#$ . 249149) nil])
(defalias 'org-agenda-manipulate-query #[(char) "\306>\203\307\310 \210)\311\312!\207\313=\203O\314\304\n\203$\315\316\"A\202%\317\"\210\320\321dS`^\322\"@\f\211G\323\235\203=\324\202>\325\\F\326\f\"\210
A\310 )\207\327\330\"\207" [org-agenda-type org-agenda-include-inactive-timestamps org-agenda-last-search-view-search-was-boolean char org-agenda-query-string org-agenda-redo-command (timeline agenda) t org-agenda-redo message "Display now includes inactive timestamps as well" search org-add-to-string assoc ((91 . " +") (93 . " -") (123 . " +{}") (125 . " -{}")) " " org-search-view get-text-property org-last-args (123 125) 0 1 set-register error "Cannot manipulate query for %s-type agenda buffers" org-agenda-query-register org-agenda-overriding-arguments] 6])
(defalias 'org-add-to-string #[(var string) "\211J	PL\207" [var string] 3])
#@25 Jump to DATE in agenda.
(defalias 'org-agenda-goto-date #[(span) "\306!\307 \310 \311dS`^\312\"\206@\3138\314\n\315!F\211A\316\317\320\316\321\"\204F\322\323!\202[\324ed\325\312F#\210\326 \210\f\211\211.\207" [org-agenda-jump-prefer-future org-read-date-prefer-future date org-agenda-sticky org-agenda-sticky-orig org-agenda-buffer-tmp-name eval org-read-date buffer-name get-text-property org-last-args 2 org-agenda-list org-agenda-span-to-ndays t nil org-agenda-check-type agenda error "Not available in non-agenda blocks" add-text-properties org-redo-cmd org-agenda-redo args current-prefix-arg 0-arg 2-arg newcmd newargs inhibit-read-only org-agenda-this-buffer-is-sticky] 8 (#$ . 250295) "P"])
#@14 Go to today.
(defalias 'org-agenda-goto-today #[nil "\306\307\310\311#\210\312dS`^\313\"\3148\315ed\316\307$\211\203\"\nb\202P\311=\203M\317\316 	\2064\f\2064
\"\211A\211\240\210)\320 \210\321 *\202P\322\323!+\207" [args curspan tdpos org-agenda-type org-agenda-ndays org-agenda-span org-agenda-check-type t timeline 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" sd org-agenda-overriding-arguments #1=#:c] 6 (#$ . 251041) nil])
(defalias 'org-agenda-find-same-or-today-or-agenda #[(&optional cnt) "\203
\301ed\302$\206/\301ed\303\304$\206/\301ed\305\306$\206/\307dS`^\310\"\203.\311 \206/eb\207" [cnt text-property-any org-day-cnt org-today t org-agenda-type agenda get-text-property org-series org-agenda-goto-block-beginning] 5])
#@32 Go the agenda block beginning.
(defalias 'org-agenda-goto-block-beginning #[nil "\304\305!\204\n\306\307!\207\310\212\311\312!\204\310u\210\313\314`	\"\315\311\316!\203(\317\202*`S	\"\211\320 =\2039S\202?\n\205?\nS,\204K\306\321!\202Qb\210\322\317!)\207" [dest prop p n derived-mode-p org-agenda-mode error "Cannot execute this command outside of org-agenda-mode buffers" nil looking-at "\\'" org-agenda-structural-header previous-single-property-change next-single-property-change "\\`" 1 point-at-eol "Cannot find the beginning of the blog" move-beginning-of-line] 4 (#$ . 251945) nil])
#@103 Go forward in time by the current span.
With prefix ARG, go forward that many times the current span.
(defalias 'org-agenda-later #[(arg) "\306\307\310\"\210\311dS`^\312\"\3138\206	A@\206\"\314\315!\206\"\316\f!\314\317!'\320(\n\247\203>\n)_\f\\\202)\n\315=\203L)\f\\\202)\n\321=\203\\)\322_\f\\\202)\n\323=\203=
@)\\
A@\313
8E\211(\211**\313*8)\320+#\324#!\203\215\325\326!\2021#\327V\203'
#S+\330*\211*\211*@)*\211*\211,A@*
**\313*8)#
S\331_\\-\313V\203
-\332\333_\\\334\245Z-#\211#\327W\203\355\335#!S#\324#\333\246!\205
\324#\336\246!?\206
\324#\337\246!)\203
-T---+\340_+\333\245+\336\245[+\337\245%\2021\335#T!+\341*\211*\211*@)*\211*\211,A@*
**\313*8)#
S\331_\\-\313V\203\244
-\332\333_\\\334\245Z-#\211#\327W\203\202
\335#!S#\324#\333\246!\205\233
\324#\336\246!?\206\233
\324#\337\246!)\203\244
-T---+\340_+\333\245+\336\245[+\337\245\342\211**\342@)*\211*\211,A@*
**\313*8)#
S\331_\\-\313V\203,-\332\333_\\\334\245Z-#\211#\327W\203\n\335#!S#\324#\333\246!\205#\324#\336\246!?\206#\324#\337\246!)\203,-T---&+(\211@T\240\210\202)\n\343=\203\"
@
A@)\313
8\\E\211(\211**\313*8)\320+#\324#!\203n\325\326!\202#\327V\203#S+\330*\211*\211*@)*\211*\211,A@*
**\313*8)#
S\331_\\-\313V\203\360-\332\333_\\\334\245Z-#\211#\327W\203\316\335#!S#\324#\333\246!\205\347\324#\336\246!?\206\347\324#\337\246!)\203\360-T---+\340_+\333\245+\336\245[+\337\245%\202\335#T!+\341*\211*\211*@)*\211*\211,A@*
**\313*8)#
S\331_\\-\313V\203\205-\332\333_\\\334\245Z-#\211#\327W\203c\335#!S#\324#\333\246!\205|\324#\336\246!?\206|\324#\337\246!)\203\205-T---+\340_+\333\245+\336\245[+\337\245\342\211**\342@)*\211*\211,A@*
**\313*8)#
S\331_\\-\313V\203
-\332\333_\\\334\245Z-#\211#\327W\203\353\335#!S#\324#\333\246!\205\324#\336\246!?\206\324#\337\246!)\203
-T---&+(AA\313(8T\240\210\202)\n)_\f\\\311dS`^\344\"@\f\nE./\345 \210\346'!.\207" [args org-agenda-current-span span org-starting-day sd greg org-agenda-check-type t agenda get-text-property org-last-args 2 org-get-at-bol day calendar-gregorian-from-absolute org-day-cnt nil week 7 month zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) year org-series-cmd org-agenda-redo org-agenda-find-same-or-today-or-agenda cnt greg2 arg date offset-years x day-of-year org-agenda-overriding-arguments org-agenda-overriding-cmd] 11 (#$ . 252559) "p"])
#@105 Go backward in time by the current span.
With prefix ARG, go backward that many times the current span.
(defalias 'org-agenda-earlier #[(arg) "\301[!\207" [arg org-agenda-later] 2 (#$ . 255196) "p"])
#@37 Call one of the view mode commands.
(defalias 'org-agenda-view-mode-dispatch #[nil "\302\303!\210\304 \305\306\"\203\307\310!\202
\305\311\"\203!\307\312!\202
\305\313\"\203.\307\314!\202
\305\315\"\203;\307\316!\202
\305\317\"\203H\307\320!\202
\305\321\"\203U\307\322!\202
\305\323\"\203b\322\324!\202
\305\325\"\203o\322\326!\202
\327\330\"\203|\307\331!\202
\305\332\"\203\211\307\333!\202
\305\334\"\203\226\333\335!\202
\327\336\"\203\243\307\337!\202
\327\340\"\203\260\307\341!\202
\305\342\"\203\275\307\343!\202
\305\344\"\203\312\307\345!\202
\305\346\"\203\327\307\347!\202
\305\350\"\203\360\351\352\351\353\354#\210\355 \210)\302\356!\202
\305\357\"\203\375\302\360!\202
\361\362!)\207" [a org-agenda-include-inactive-timestamps message "View: [d]ay        [w]eek       [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 eql 32 call-interactively org-agenda-reset-view 100 org-agenda-day-view 119 org-agenda-week-view 109 org-agenda-month-view 121 org-agenda-year-view 108 org-agenda-log-mode 76 (4) 99 clockcheck memql (70 102) org-agenda-follow-mode 97 org-agenda-archives-mode 65 files (82 114) org-agenda-clockreport-mode (69 101) org-agenda-entry-text-mode 71 org-agenda-toggle-time-grid 68 org-agenda-toggle-diary 33 org-agenda-toggle-deadlines 91 t org-agenda-check-type timeline agenda org-agenda-redo "Display now includes inactive timestamps as well" 113 "Abort" error "Invalid key"] 4 (#$ . 255403) nil])
#@36 Switch to default view for agenda.
(defalias 'org-agenda-reset-view #[nil "\302\206	!\207" [org-agenda-ndays org-agenda-span org-agenda-change-time-span] 2 (#$ . 257075) nil])
#@93 Switch to daily view for agenda.
With argument DAY-OF-YEAR, switch to that day of the year.
(defalias 'org-agenda-day-view #[(&optional day-of-year) "\301\302\"\207" [day-of-year org-agenda-change-time-span day] 3 (#$ . 257260) "P"])
#@313 Switch to daily 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 in the range 1938-2037 can also be
written as 2-digit years.
(defalias 'org-agenda-week-view #[(&optional iso-week) "\301\302\"\207" [iso-week org-agenda-change-time-span week] 3 (#$ . 257502) "P"])
#@79 Switch to monthly view for agenda.
With argument MONTH, switch to that month.
(defalias 'org-agenda-month-view #[(&optional month) "\301\300\"\207" [month org-agenda-change-time-span] 3 (#$ . 257959) "P"])
#@289 Switch to yearly view for agenda.
With argument YEAR, switch to that year.
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 in the range 1938-2037 can also be
written as 2-digit years.
(defalias 'org-agenda-year-view #[(&optional year) "\203\301!\302\303!\203\304\300\"\207\305\306!\207" [year org-small-year-to-year y-or-n-p "Are you sure you want to compute the agenda for an entire year? " org-agenda-change-time-span error "Abort"] 3 (#$ . 258173) "P"])
#@77 Change the agenda view to SPAN.
SPAN may be `day', `week', `month', `year'.
(defalias 'org-agenda-change-time-span #[(span &optional n) "\306\307\310\"\210\311dS`^\312\"\3138\n\204 	\232\203 \314\315\"\210\316\317!\206-A@\206-\f\320
\n#\311dS`^\321\"@
E\322 \210\323 \210,\324 \210\325\326\"*\207" [args curspan n span org-starting-day sd org-agenda-check-type t agenda get-text-property org-last-args 2 error "Viewing span is already \"%s\"" org-get-at-bol day org-agenda-compute-starting-span org-series-cmd org-agenda-redo org-agenda-find-same-or-today-or-agenda org-agenda-set-mode-name message "Switched to %s view" org-agenda-overriding-cmd org-agenda-overriding-arguments] 4 (#$ . 258748)])
#@202 Compute starting date for agenda.
SPAN may be `day', `week', `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.
(defalias 'org-agenda-compute-starting-span #[(sd span &optional n) "\306!\211A@	@\307	8
\310=\203\350
'\203\311\312\fE\211((\307(8)\313)&\314&!\203;\315\316!\202\337
&\317V\203\325&S)\311(\211(\211(@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203\275+\321%\322_\\\323\245Z+&\211&\317W\203\233\324&!S&\314&\322\246!\205\264\314&\325\246!?\206\264\314&\326\246!)\203\275+T++-)\327_)\322\245)\325\245[)\326\245%\202\337
\324&T!)\330(\211(\211(@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203R
+\321%\322_\\\323\245Z+&\211&\317W\2030
\324&!S&\314&\322\246!\205I
\314&\325\246!?\206I
\314&\326\246!)\203R
+T++-)\327_)\322\245)\325\245[)\326\245\331\211((\331@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203\332
+\321%\322_\\\323\245Z+&\211&\317W\203\270
\324&!S&\314&\322\246!\205\321
\314&\325\246!?\206\321
\314&\326\246!)\203\332
+T++-&+'\332#\202
\333=\203N\334\306!!,-\203,-Z\202\317.\313/.\317W\203\335\202\317.\\Z'\203J\336\337!\210'\340V\2039\341'\325\245!/\342'\325\"'\343'\312/\206G\307\344!8E!+\202
\345=\203F\313/'\203r'\340V\203r\341'\325\245!/\342'\325\"''\206x\312/\206\fE\211((\307(8)\313)&\314&!\203\234\315\316!\202@&\317V\2036&S)\311(\211(\211(@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203+\321%\322_\\\323\245Z+&\211&\317W\203\374\324&!S&\314&\322\246!\205\314&\325\246!?\206\314&\326\246!)\203+T++-)\327_)\322\245)\325\245[)\326\245%\202@\324&T!)\330(\211(\211(@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203\263+\321%\322_\\\323\245Z+&\211&\317W\203\221\324&!S&\314&\322\246!\205\252\314&\325\246!?\206\252\314&\326\246!)\203\263+T++-)\327_)\322\245)\325\245[)\326\245\331\211((\331@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203;+\321%\322_\\\323\245Z+&\211&\317W\203\324&!S&\314&\322\246!\2052\314&\325\246!?\2062\314&\326\246!)\203;+T++-&+)\202
\346=\203\312\211'\206T\fE\211((\307(8)\313)&\314&!\203q\315\316!\202&\317V\203&S)\311(\211(\211(@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203\363+\321%\322_\\\323\245Z+&\211&\317W\203\321\324&!S&\314&\322\246!\205\352\314&\325\246!?\206\352\314&\326\246!)\203\363+T++-)\327_)\322\245)\325\245[)\326\245%\202\324&T!)\330(\211(\211(@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203\210+\321%\322_\\\323\245Z+&\211&\317W\203f\324&!S&\314&\322\246!\205\314&\325\246!?\206\314&\326\246!)\203\210+T++-)\327_)\322\245)\325\245[)\326\245\331\211((\331@)%(\211(\211*A@*((\307(8)&%S\320_\\+%\307V\203+\321%\322_\\\323\245Z+&\211&\317W\203\356\324&!S&\314&\322\246!\205\314&\325\246!?\206\314&\326\246!)\203+T++-&+,\207" [sd greg dg mg yg span calendar-gregorian-from-absolute 2 day + 1 nil zerop error "There was no year zero" 0 31 23 4 10 abs 100 400 365 - (12 31 -1) -1 week calendar-day-of-week 7 require cal-iso 99 org-small-year-to-year mod calendar-absolute-from-iso calendar-iso-from-absolute month year n date offset-years x day-of-year nt org-agenda-start-on-weekday d y1] 12 (#$ . 259473)])
#@59 Jump to the next line indicating a date in agenda buffer.
(defalias 'org-agenda-next-date-line #[(&optional arg) "\301\302\303\304#\210\305\306!\210\307\310!\203\306u\210\311\310\312\302$\204#\313u\210\314\315!\210\316\224b\207" [arg org-agenda-check-type t agenda timeline beginning-of-line 1 looking-at "^\\S-" re-search-forward nil -1 error "No next date after this line in this buffer" 0] 5 (#$ . 263005) "p"])
#@63 Jump to the previous line indicating a date in agenda buffer.
(defalias 'org-agenda-previous-date-line #[(&optional arg) "\301\302\303\304#\210\305\306!\210\307\310\311\302$?\205\312\313!\207" [arg org-agenda-check-type t agenda timeline beginning-of-line 1 re-search-backward "^\\S-" nil error "No previous date before this line in this buffer"] 5 (#$ . 263430) "p"])
(defvar org-hl (byte-code "\300\301\211\"\207" [make-overlay 1] 3))
(overlay-put org-hl 'face 'highlight)
#@34 Highlight a region with overlay.
(defalias 'org-highlight #[(begin end &optional buffer) "\304	\n\206	p$\207" [org-hl begin end buffer move-overlay] 5 (#$ . 263914)])
#@23 Detach overlay INDEX.
(defalias 'org-unhighlight #[nil "\301!\207" [org-hl org-detach-overlay] 2 (#$ . 264090)])
#@74 Remove the highlight from its position, and this function from the hook.
(defalias 'org-unhighlight-once #[nil "\300\301\302\"\210\303 \207" [remove-hook pre-command-hook org-unhighlight-once org-unhighlight] 3 (#$ . 264210)])
(defvar org-agenda-pre-follow-window-conf nil)
#@41 Toggle follow mode in an agenda buffer.
(defalias 'org-agenda-follow-mode #[nil "\204\302 ?\211\204\303	!\210\304 \210\305 \210\306\307\203\"\310\202#\311\"\207" [org-agenda-follow-mode org-agenda-pre-follow-window-conf current-window-configuration set-window-configuration org-agenda-set-mode-name org-agenda-do-context-action message "Follow mode is %s" "on" "off"] 4 (#$ . 264490) nil])
#@45 Toggle entry text mode in an agenda buffer.
(defalias 'org-agenda-entry-text-mode #[(&optional arg) "\250\206	?\303 \210	\203\250\203\202\n\304 \210)\305 \210\306\307	\203+\310\202,\311\250\2035\2026\n#\207" [arg org-agenda-entry-text-mode org-agenda-entry-text-maxlines org-agenda-entry-text-hide org-agenda-entry-text-show org-agenda-set-mode-name message "Entry text mode is %s.  Maximum number of lines is %d" "on" "off"] 4 (#$ . 264897) "P"])
#@129 Toggle clocktable mode in an agenda buffer.
With prefix arg WITH-FILTER, make the clocktable respect the current
agenda filter.
(defalias 'org-agenda-clockreport-mode #[(&optional with-filter) "\302\303\304\"\210\203\300\202	?\305 \210\306 \210\307\310	\203!\311\202\"\312\"\207" [with-filter 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 (#$ . 265371) "P"])
#@220 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 double `C-u' prefix arg, show *only* log items, nothing else.
(defalias 'org-agenda-log-mode #[(&optional special) "\302\303\304\305#\210\306\232\203\307\202+\310=\203!	\310=?\205+\310\202+\203)\311\202+	?\312 \210\313 \210\314\315	\203<\316\202=\317\"\207" [special org-agenda-show-log org-agenda-check-type t agenda timeline (16) only clockcheck (closed clock state) org-agenda-set-mode-name org-agenda-redo message "Log mode is %s" "on" "off"] 4 (#$ . 265846) "P"])
#@130 Toggle inclusion of items in trees marked with :ARCHIVE:.
When called with a prefix argument, include all archive files as well.
(defalias 'org-agenda-archives-mode #[(&optional with-files) "\203\303\202	?\205\304\305 \210\306 \210\307\310	\311=\203!\312\2028	\304=\203.\313\314\n\"\2028	\303=\2058\313\315\n\"\"\207" [with-files org-agenda-archives-mode org-archive-tag t trees org-agenda-set-mode-name org-agenda-redo message "%s" nil "No archives are included" format "Trees with :%s: tag are included" "Trees with :%s: tag and all active archive files are included"] 5 (#$ . 266493) "P"])
#@45 Toggle diary inclusion in an agenda buffer.
(defalias 'org-agenda-toggle-diary #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203\310\202\311\"\207" [org-agenda-include-diary org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Diary inclusion turned %s" "on" "off"] 3 (#$ . 267105) nil])
#@66 Toggle inclusion of entries with a deadline in an agenda buffer.
(defalias 'org-agenda-toggle-deadlines #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203\310\202\311\"\207" [org-agenda-include-deadlines org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Deadlines inclusion turned %s" "on" "off"] 3 (#$ . 267441) nil])
#@39 Toggle time grid in an agenda buffer.
(defalias 'org-agenda-toggle-time-grid #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203\310\202\311\"\207" [org-agenda-use-time-grid org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Time-grid turned %s" "on" "off"] 3 (#$ . 267810) nil])
#@60 Set the mode name to indicate all the small mode settings.
(defalias 'org-agenda-set-mode-name #[nil "\306\307\310N\203\311\202\f\312\313\314\203\315\202\312	\203\316\202 \312\n\203(\317\202)\312\2031\320\2022\312\f\203:\321\202;\312\322\305!\203I
\203I\323\202J\312%:\203T\324\202i%\325=\203_\326\202i%\203h\327\202i\312\204t\330\331N\203x\332\202y\312\204\204\333\331N\203\210\334\202\211\312&\203\241&\335=\203\231\336\202\242\337\340'\"\202\242\312(\203\266(\341=\203\262\342\202\267\343\202\267\312\257)\344 \207" [org-agenda-follow-mode org-agenda-entry-text-mode org-agenda-include-diary org-agenda-include-deadlines org-agenda-use-time-grid org-habit-show-habits "Org-Agenda" org-agenda-files org-restrict " []" #1="" " " (:eval (org-agenda-span-name org-agenda-current-span)) " Follow" " ETxt" " Diary" " Ddl" " Grid" boundp " Habit" " LogAll" clockcheck " ClkCk" " Log" org-agenda-category-filter :preset-filter (:eval (org-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 (org-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")) t " Archives" format " :%s:" with-filter " Clock{}" " Clock" force-mode-line-update org-agenda-show-log org-agenda-archives-mode org-archive-tag org-agenda-clockreport-mode mode-name] 16 (#$ . 268138)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias org-agenda-post-command-hook org-agenda-update-agenda-type nil make-obsolete "24.3"] 4)
#@44 Update the agenda type after each command.
(defalias 'org-agenda-update-agenda-type #[nil "\301`\300\"\206\301e`S]\300\"\211\207" [org-agenda-type get-text-property] 3 (#$ . 269938)])
#@66 Move cursor to the next line, and show if follow mode is active.
(defalias 'org-agenda-next-line #[nil "\300\301!\210\302 \207" [call-interactively next-line org-agenda-do-context-action] 2 (#$ . 270131) nil])
#@70 Move cursor to the previous line, and show if follow-mode is active.
(defalias 'org-agenda-previous-line #[nil "\300\301!\210\302 \207" [call-interactively previous-line org-agenda-do-context-action] 2 (#$ . 270347) nil])
#@34 Move cursor to next agenda item.
(defalias 'org-agenda-next-item #[(n) "i	\304\nW\203%\305\306 \307\"\203\310\311!\210\305`\307\"b\210\nT\211\202*\312!\210)\313 \207" [col n c --dotimes-limit-- 0 next-single-property-change point-at-eol org-marker move-end-of-line 1 org-move-to-column org-agenda-do-context-action] 4 (#$ . 270575) "p"])
#@34 Move cursor to next agenda item.
(defalias 'org-agenda-previous-item #[(n) "\305	\nW\203*i\212\306\305!\210\307`\310\")\203b\210\311\f!\210*	T\211\202*\312 \207" [n c --dotimes-limit-- goto col 0 move-end-of-line previous-single-property-change org-marker org-move-to-column org-agenda-do-context-action] 5 (#$ . 270930) "p"])
#@51 Show outline path and, maybe, follow mode window.
(defalias 'org-agenda-do-context-action #[nil "\305\306!\307!\205@\310!\205@	\203\"\n\203\311\312!\210\202\"\313 \210\205@\212\307\f!\2034\310\f!q\210\212\f\206:`b\210\314\315!+)\207" [m org-agenda-follow-mode org-agenda-follow-indirect org-agenda-show-outline-path #1=#:--mpom org-get-at-bol org-marker markerp marker-buffer org-agenda-tree-to-indirect-buffer nil org-agenda-show org-display-outline-path t] 2 (#$ . 271276)])
#@47 Show the tags applicable to the current item.
(defalias 'org-agenda-show-tags #[nil "\304\300!\211\203@\305\306\307\310\311#\312\313\314!\203#\314\315\nG\312\n$\210\202:	\2032\316\315\nG\n$\210\202:\314\315\nG\312\n$\210\n*\"\202C\305\317!)\207" [tags restricted s org-rm-props org-get-at-bol message "Tags are :%s:" mapconcat identity ":" nil fboundp set-text-properties 0 remove-text-properties "No tags associated with this line"] 8 (#$ . 271774) nil])
#@59 Go to the Org-mode file which contains the item at point.
(defalias 'org-agenda-goto #[(&optional highlight) "\304\305!\206\306 \307!\310!\311	!\210~\210\312 \210\nb\210\313\314!\2032\315\316!\210\212\317 \2031\320\321!\210)\321\322\n\206:`\323\")\203C\324 \210\325\326 \327\245!\210\330\331!\210\205X\332\333 \334 \"+\207" [marker buffer pos highlight org-get-at-bol org-marker org-agenda-error marker-buffer marker-position switch-to-buffer-other-window push-mark derived-mode-p org-mode org-show-context agenda outline-next-heading org-flag-heading nil get-char-property invisible show-entry recenter window-height 2 run-hooks org-agenda-after-show-hook org-highlight point-at-bol point-at-eol] 3 (#$ . 272247) 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 (#$ . 272988))
#@66 Kill the entry or subtree belonging to the current agenda entry.
(defalias 'org-agenda-kill #[nil "\306=\204\n\307\310!\210\311 \312\313!\206\314 \315\n!\316\n!\312\305!\317\211&'\320(\317\211)\212\f\2038\fb\210n\203@\321\202A\320\322\321`\"\\**p+rq\210+)\317\211,-./0123rq\210\212\fb\210\323\324!\203\212
\325\235\204\212\326\327!\210`&\330\327\211\"'\202\225\331 &d\332 T^'&b\210\333\334'\327#\203\252(T(\202\231*4\327=\206\2754\247\205\275(4V\211)\203\324\335\336\337(\311!#!\204\324\307\340!\210	5\341&'#\210)rq\210&'|\210)\342\343!\2106\205J
\344/r1q\210+)\"-\344.r0q\210+)\",-\204
,\205J
-\203(
r1q\210\345 \210),\2036
r0q\210\345 \210)231-0,\2577B\2117.\207" [major-mode bufname-orig marker buffer pos type org-agenda-mode error "Not in agenda" buffer-name org-get-at-bol org-marker org-agenda-error marker-buffer marker-position nil 0 1 count-lines derived-mode-p org-mode ("sexp") org-back-to-heading t org-end-of-subtree point-at-bol point-at-eol re-search-forward "^[ 	]*\\S-" y-or-n-p format "Delete entry with %d lines in buffer \"%s\"? " "Abort" org-remove-subtree-entries-from-agenda message "Agenda item and source killed" org-verify-change-for-undo undo-boundary dbeg dend n conf this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-confirm-kill org-agenda-buffer-name org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 273160) nil])
#@69 Archive the entry or subtree belonging to the current agenda entry.
(defalias 'org-agenda-archive-default #[nil "\301\302!\210\303!\207" [org-archive-default-command require org-archive org-agenda-archive-with] 2 (#$ . 274695) nil])
#@69 Archive the entry or subtree belonging to the current agenda entry.
(defalias 'org-agenda-archive-default-with-confirmation #[nil "\301\302!\210\303\304\"\207" [org-archive-default-command require org-archive org-agenda-archive-with confirm] 3 (#$ . 274935) nil])
#@69 Archive the entry or subtree belonging to the current agenda entry.
(defalias 'org-agenda-archive #[nil "\300\301!\207" [org-agenda-archive-with org-archive-subtree] 2 (#$ . 275206) nil])
#@40 Move the entry to the archive sibling.
(defalias 'org-agenda-archive-to-archive-sibling #[nil "\300\301!\207" [org-agenda-archive-with org-archive-to-archive-sibling] 2 (#$ . 275400) nil])
#@40 Move the entry to the archive sibling.
(defalias 'org-agenda-archive-with #[(cmd &optional confirm) "\306=\204\n\307\310!\210\311 \312\313!\206\314 \315\n!\316\n!\317\212\f\203(\fb\210n\2030\320\2021\321\322\320`\"\\*
prq\210)\317\211 !\"#$%&rq\210\323\324!\203\210'\203q\325\326!\204q\307\327!\210\202\214\212\fb\210	(\330 \210)\331\332!\210) \210)\202\214\307\333!\210)*\205\350\334\"r$q\210)\" \334!r#q\210)\" \204\270\205\350 \203\306r$q\210\335 \210)\203\324r#q\210\335 \210)%&$ #\257+B\211+.\f\207" [major-mode bufname-orig marker buffer pos this-command org-agenda-mode error "Not in agenda" buffer-name org-get-at-bol org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines derived-mode-p org-mode y-or-n-p "Archive this subtree or entry? " "Abort" org-remove-subtree-entries-from-agenda org-back-to-heading t "Archiving works only in Org-mode files" org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline confirm org-agenda-buffer-name cmd org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 275595) nil])
#@212 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.
(defalias 'org-remove-subtree-entries-from-agenda #[(&optional buf beg end) "\206p\306\211\212\203\f\204\307\310!\210`\311\310!\210`\312
!q\210\212db\210\313\314!\210o?\205g\315\316!\211\203`\317\n!\232\203`\320\n!\211\203`	Y\203`	\fW\203`\310\321 \322 T|\210)\313\323!\210\202,-\207" [buf p m beg end org-agenda-buffer-name nil org-back-to-heading t org-end-of-subtree get-buffer beginning-of-line 1 org-get-at-bol org-marker marker-buffer marker-position point-at-bol point-at-eol 0 inhibit-read-only] 3 (#$ . 276814)])
#@27 Refile the item at point.
(defalias 'org-agenda-refile #[(&optional goto rfloc no-update) "\306\232\203	\307 \207\310 \311\312!\206\313 \314\n!\315\n!
\206/\316\203*\317\202+\320#rq\210\212\214~\210\nb\210	\321 \210)\322
#\210.?\205R\323 \207" [goto buffer-orig marker buffer pos rfloc (16) org-refile-goto-last-stored buffer-name org-get-at-bol org-hd-marker org-agenda-error marker-buffer marker-position org-refile-get-location "Goto" "Refile to" org-remove-subtree-entries-from-agenda org-refile org-agenda-redo org-refile-allow-creating-parent-nodes org-agenda-buffer-name no-update] 4 (#$ . 277579) "P"])
#@154 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.
(defalias 'org-agenda-open-link #[(&optional arg) "\306\307!\206	\306\310!\211\205\311!\312 \313 {\314	\n$\211@\211;\203,
C\202-
\fA\315	\203G\203G\316\317\"\202l\320\321\322Q!\204a\212\323\324!\210\325\326\322Q!)\203i\327\330\324!!\202l\331\332!.\207" [marker buffer prefix arg lkall lk0 org-get-at-bol org-hd-marker org-marker marker-buffer point-at-bol point-at-eol org-offer-links-in-entry nil mapcar #[(l) "rq\210\306	\n\"\205\307\310\n\"\211\203\306\f\"\2035\212\214~\210
b\210\311\n\312#\2051\313\224b\210\314 *\202M\315!\210~\210
b\210\311\n\312#\205M\313\224b\210\314 )\207" [buffer org-bracket-link-regexp l trg org-any-link-re marker string-match match-string 1 search-forward nil 0 org-open-at-point switch-to-buffer-other-window lkend] 5] org-in-regexp "\\(" "\\)" beginning-of-line 1 looking-at ".*?\\(" org-open-link-from-string match-string message "No link to open here" lk lkend trg org-bracket-link-regexp] 6 (#$ . 278222) "P"])
#@62 Get a variable from a referenced buffer and install it here.
(defalias 'org-agenda-copy-local-variable #[(var) "\303\304!\211\205\"\305\306!!\205\"	r\306!q\210	J)\307	!\nL*)\207" [m var value org-get-at-bol org-marker buffer-live-p marker-buffer make-local-variable] 4 (#$ . 279379)])
#@59 Go to the Org-mode file which contains the item at point.
(defalias 'org-agenda-switch-to #[(&optional delete-other-windows) "\203\306\307!\204\310	!\203\311\312\313!!\207\306\307!\206\314 \315\n!\316\n!\317!\210
\2032\305 \210~\210\fb\210\320\321!\205`\322\323!\210\212\324 \203K\325\326!\210)\326\327\f\206T`\330\")\203]\331 \210\332\333!+\207" [org-return-follows-link org-bracket-link-regexp marker buffer pos delete-other-windows org-get-at-bol org-marker org-in-regexp org-open-link-from-string match-string 0 org-agenda-error marker-buffer marker-position org-pop-to-buffer-same-window derived-mode-p org-mode org-show-context agenda outline-next-heading org-flag-heading nil get-char-property invisible show-entry run-hooks org-agenda-after-show-hook] 3 (#$ . 279677) nil])
#@69 Go to the Org-mode file which contains the item at the mouse click.
(defalias 'org-agenda-goto-mouse #[(ev) "\301!\210\302 \207" [ev mouse-set-point org-agenda-goto] 2 (#$ . 280484) "e"])
#@157 Display the Org-mode file which contains the item at point.
With prefix argument FULL-ENTRY, make the entire entry visible
if it was hidden in the outline.
(defalias 'org-agenda-show #[(&optional full-entry) "\303 	\203\304\305\304!\210)\202\305\304!\210\306!)\207" [win full-entry org-show-entry-below selected-window t org-agenda-goto select-window] 2 (#$ . 280680) "P"])
(defvar org-agenda-show-window nil)
#@281 Display the Org-mode file which contains the item at point.
When called repeatedly, scroll the window that is displaying the buffer.
With a \[universal-argument] prefix, use `org-show-entry' instead of
`show-subtree' to display the item, so that drawers and logbooks stay
folded.
(defalias 'org-agenda-show-and-scroll-up #[(&optional arg) "\305 \306	!\203\n=\203\307	!\210\310\311\312\217\210\202/\313\314!\210\f\203)\315 \210\202,\316 \210\305 \307!)\207" [win org-agenda-show-window this-command last-command arg selected-window window-live-p select-window nil (scroll-up) ((error)) org-agenda-goto t org-show-entry show-subtree] 3 (#$ . 281104) "P"])
#@44 Scroll down the window showing the agenda.
(defalias 'org-agenda-show-scroll-down #[nil "\302 \303	!\205\304	!\210\305\306\307\217\210\304!)\207" [win org-agenda-show-window selected-window window-live-p select-window nil (scroll-down) ((error))] 3 (#$ . 281775) nil])
#@436 Display the Org-mode 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 LOGBOOK drawers
5   show the entire subtree and any drawers
With prefix argument FULL-ENTRY, make the entire entry visible
if it was hidden in the outline.
(defalias 'org-agenda-show-1 #[(&optional more) "\304 \305\306!\210\307\310!\210	\311U\203%\312 \210\212\313 \210\314\315\316\"\210)\317\320!\210\202\245\321\322!\2038	\310U\2038\317\323!\210\202\245	\324U\203U\325 \210\326 \210\212\313 \210\314\315\327\"\210)\317\330!\210\202\245	\331U\203o\332 \210\212\313 \210\314\315\333\"\210)\317\334!\210\202\245	\335U\203\230\336\337\340\n!\"\341\342\343\n\344#\345Q\332 \210\212\313 \210\346\333!\210+\317\347!\210\202\245	\335V\203\245\332 \210\317\350!\210\351!)\207" [win more org-drawers org-drawer-regexp selected-window org-agenda-goto t org-recenter-heading 1 0 hide-subtree org-back-to-heading run-hook-with-args org-cycle-hook folded message "Remote: FOLDED" called-interactively-p any "Remote: show with default settings" 2 show-entry show-children children "Remote: CHILDREN" 3 show-subtree subtree "Remote: SUBTREE" 4 delete "LOGBOOK" copy-sequence "^[ 	]*:\\(" mapconcat regexp-quote "\\|" "\\):[ 	]*$" org-cycle-hide-drawers "Remote: SUBTREE AND LOGBOOK" "Remote: SUBTREE AND ALL DRAWERS" select-window] 5 (#$ . 282055) "p"])
(defalias 'org-recenter-heading #[(n) "\212\301 \210\302!)\207" [n org-back-to-heading recenter] 2])
(defvar org-agenda-cycle-counter nil)
#@442 Show the current entry in another window, with default settings.
Default settings are taken from `org-show-hierarchy-above' and siblings.
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'.
(defalias 'org-agenda-cycle-show #[(&optional n) "\250\203\n\202+\n=\204\304\202+	\305\232\203 \306\202+	T\211\307V\203+\305\310	!\207" [n org-agenda-cycle-counter last-command this-command 1 0 2 3 org-agenda-show-1] 3 (#$ . 283737) "P"])
#@74 Display the Org-mode file which contains the item at point and recenter.
(defalias 'org-agenda-recenter #[(arg) "\302 \303\304!\210\305	!\210\306!)\207" [win arg selected-window org-agenda-goto t recenter select-window] 2 (#$ . 284439) "P"])
#@71 Display the Org-mode file which contains the item at the mouse click.
(defalias 'org-agenda-show-mouse #[(ev) "\301!\210\302 \207" [ev mouse-set-point org-agenda-show] 2 (#$ . 284689) "e"])
#@54 Check if the entry is a diary link and abort if yes.
(defalias 'org-agenda-check-no-diary #[nil "\300\301!\205\302 \207" [org-get-at-bol org-agenda-diary-link org-agenda-error] 2 (#$ . 284886)])
(defalias 'org-agenda-error #[nil "\300\301!\207" [error "Command not allowed in this line"] 2])
#@402 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).
(defalias 'org-agenda-tree-to-indirect-buffer #[(arg) "\203\306	!\207\307 \310 \n\205\311\n!\312 \313\216\306	!\210*\314=\204@\315=\204@\316\216\203;\317!\204?\320\f!)\321\311
!!+\207" [current-prefix-arg arg org-last-indirect-buffer indirect-window agenda-window agenda-buffer org-agenda-do-tree-to-indirect-buffer buffer-name selected-window get-buffer-window current-window-configuration ((set-window-configuration #1=#:wconfig)) new-frame dedicated-frame ((byte-code "\203\302!\210\303	\304\"\210\305!\207" [indirect-window org-last-indirect-buffer select-window switch-to-buffer :norecord fit-window-to-buffer] 3)) window-live-p split-window select-window #1# org-indirect-buffer-display] 4 (#$ . 285187) "P"])
#@69 Same as `org-agenda-tree-to-indirect-buffer' without saving window.
(defalias 'org-agenda-do-tree-to-indirect-buffer #[(arg) "\304 \210\305\306!\206\307 \310!\311!r	q\210\212\nb\210\312!-\207" [marker buffer pos arg org-agenda-check-no-diary org-get-at-bol org-marker org-agenda-error marker-buffer marker-position org-tree-to-indirect-buffer] 2 (#$ . 286336)])
#@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) (#$ . 286713))
#@37 Switch TODO entry to next sequence.
(defalias 'org-agenda-todo-nextset #[nil "\300\301!\207" [org-agenda-todo nextset] 2 (#$ . 286882) nil])
#@41 Switch TODO entry to previous sequence.
(defalias 'org-agenda-todo-previousset #[nil "\300\301!\207" [org-agenda-todo previousset] 2 (#$ . 287029) nil])
#@210 Cycle TODO state of line at point, also in Org-mode 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-mode file.
(defalias 'org-agenda-todo #[(&optional arg) "\306 \210i\307\310!\206
\311 \312	!\313	!\307\314!\315\307\316!!\317$\320\211%\320\211&\212\2036b\210n\203>\321\202?\322\323\321`\"\\*'p\n(r\nq\210()\320\211)*+,-./0r\nq\210~\210b\210\324\325!\210\212\326 \203{\327\320!\210)12\330\331!\210)n\203\214\321u\210\332 %\333\334!\203\256\203\256%\232\204\256
\203\256%\317&\212\335 \2103`\320\223\210*\336\321!\210\212\337%\f\340&$\210)\341!\2104\205'
\342,r.q\210()\"*\342+r-q\210()\")*\204\367)\205'
*\203
r.q\210\343 \210))\203
r-q\210\343 \210)/0.*-)\2575B\2115.\207" [col marker buffer pos hdmarker todayp org-agenda-check-no-diary org-get-at-bol org-marker org-agenda-error marker-buffer marker-position org-hd-marker org-agenda-todayp day t nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading call-interactively org-todo org-get-heading boundp org-agenda-headline-snapshot-before-repeat org-back-to-heading beginning-of-line org-agenda-change-all-lines fixface org-move-to-column org-verify-change-for-undo undo-boundary inhibit-read-only newhead just-one this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline arg current-prefix-arg org-last-heading-marker org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 287189) "P"])
#@48 Add a time-stamped note to the entry at point.
(defalias 'org-agenda-add-note #[(&optional arg) "\305 \210\306\307!\206\310 \311!\312!\306\313!\314r	q\210~\210\nb\210\315\316!\210\212\317 \2031\320\321!\210)\322 .\207" [marker buffer pos hdmarker inhibit-read-only org-agenda-check-no-diary org-get-at-bol org-marker org-agenda-error marker-buffer marker-position org-hd-marker t org-show-context agenda outline-next-heading org-flag-heading nil org-add-note] 2 (#$ . 288811) "P"])
#@455 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.
(defalias 'org-agenda-change-all-lines #[(newhead hdmarker &optional fixface just-this) "\306\307\212	\203\f	b\210n\203\310\202\311\312\310`\"\\*pr\313\f!q\210\212\214~\210\fb\210\314 +\307\211()\307\211*\307\211+\307\211,\307\211-.\212db\210\315\310!\210+?\205P
o+\316\317!\211)\203I
/\203\212\307\212	\203v	b\210n\203~\310\202\311\312\310`\"\\*\nU\203I
)\f\232\203I
\320`!(\316\321!\316\322!-
.\323dS`^\324\"\206\2570\316\325!0r\313\f!q\210\212\214~\210\3261-.%-,\327\330 \331 \332\306$*\316\333!\316\334!\315\310!\210,\335\232\203\373\336\337!\203>
\340\335!\210\202>
\336\341!\203:
\340,\306\211#\210\315\310!\210\342\330 \331 (#\2102\203/
\342\330 \331 \3433\203*
\202,
D#\210\344\302!\210\315\310!\210\202>
\345\346!\210\214\330 \331 }\210\347 \210)\315\311!\210\202U.\207" [inhibit-read-only pos line org-agenda-buffer hdmarker thetags t nil 1 0 count-lines marker-buffer org-get-tags-at beginning-of-line org-get-at-bol org-hd-marker text-properties-at dotime org-category get-text-property format extra org-agenda-format-item text-property-any point-at-bol point-at-eol org-heading undone-face done-face "" looking-at ".*\n?" replace-match ".*" add-text-properties face org-agenda-highlight-todo error "Line update did not work" org-agenda-finalize props m pl finish new cat tags just-this org-prefix-format-compiled newhead fixface org-last-todo-state-is-todo] 7 (#$ . 289311)])
#@61 Align all tags in agenda items to `org-agenda-tags-column'.
(defalias 'org-agenda-align-tags #[(&optional line) "\306\307\211\212\203\310 \202eb\210\311\312\205\313 \306#\203\200\314\315\224\315\225\316\317\307\320\315\224\316\"\211<\2046\fC\321\f>\203@\f\202C\321\fB)\"D#\210\315\225\315\224Z
\322W\203\\\323
!	Z\202]
\324\224\324\225|\210\324\224b\210\325\326\324iZ]\327\"\330\331\332`!!\316\307#\"c\210\202eb\210\333d!,\207" [c l inhibit-read-only line prop org-agenda-tags-column t nil point-at-bol re-search-forward "\\([ 	]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$" point-at-eol add-text-properties 2 face delq get-text-property org-tag 0 abs 1 org-add-props make-string 32 plist-put copy-sequence text-properties-at org-font-lock-add-tag-faces] 10 (#$ . 291229)])
#@64 Increase the priority of line at point, also in Org-mode file.
(defalias 'org-agenda-priority-up #[nil "\300\301!\207" [org-agenda-priority up] 2 (#$ . 292024) nil])
#@64 Decrease the priority of line at point, also in Org-mode file.
(defalias 'org-agenda-priority-down #[nil "\300\301!\207" [org-agenda-priority down] 2 (#$ . 292196) nil])
#@287 Set the priority of line at point, also in Org-mode 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-mode file.
Called with a universal prefix arg, show the priority instead of setting it.
(defalias 'org-agenda-priority #[(&optional force-direction) "\306\232\203	\307 \207	\204\310\311!\210\312 \210\313\314!\206\315 \313\316!\317!\320!\321 \322\211!\212
\2039
b\210n\203A\323\202B\324\325\323`\"\\*\"p\f#r\fq\210#)\322\211$%&'()*+r\fq\210~\210
b\210\326\327!\210\212\330 \203~\331\322!\210)\332!\210\323\210\333 !)\334!\"\210\335\323!\210,\205\360\336'r)q\210#)\"%\336&r(q\210#)\"$%\204\300$\205\360%\203\316r)q\210\337 \210)$\203\334r(q\210\337 \210)*+)%($\257-B\211-.\207" [force-direction org-enable-priority-commands marker hdmarker buffer pos (4) org-show-priority error "Priority commands are disabled" org-agenda-check-no-diary org-get-at-bol org-marker org-agenda-error org-hd-marker marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading org-priority org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary inhibit-read-only newhead this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 292373) "P"])
#@36 Set tags for the current headline.
(defalias 'org-agenda-set-tags #[(&optional tag onoff) "\306 \210\307 \203\310\311!\203\312\313!\207\314\315!\206\316 \317!\320!\321\322\211\212\n\2031\nb\210n\2039\323\202:\324\325\323`\"\\*
p	!r	q\210!)\322\211\"#$%&'()r	q\210~\210\nb\210\212\326\327!\210)\212\330 \203w\331\322!\210)\nb\210*\203\212\332*+\"\210\202\216\312\333!\210\323\210\334 )\335\f\"\210\336\323!\210,\205\371\337%r'q\210!)\"#\337$r&q\210!)\"\"#\204\311\"\205\371#\203\327r'q\210\340 \210)\"\203\345r&q\210\340 \210)()'#&\"\257-B\211-.
\207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-region-active-p called-interactively-p any call-interactively org-change-tag-in-region org-get-at-bol org-hd-marker org-agenda-error marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading org-toggle-tag org-set-tags org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline tag onoff org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 293888) nil])
#@42 Set a property for the current headline.
(defalias 'org-agenda-set-property #[nil "\306 \210\307\310!\206\311 \312!\313!\314\315\211\212\n\203\"\nb\210n\203*\316\202+\317\320\316`\"\\*
p	r	q\210)\315\211 !r	q\210~\210\nb\210\212\321\322!\210)\212\323 \203h\324\315!\210)\nb\210\325\326!\210)\"\205\314\327rq\210)\"\327rq\210)\"\204\234\205\314\203\252rq\210\330 \210)\203\270rq\210\330 \210) !\257#B\211#.
\207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-get-at-bol org-hd-marker org-agenda-error marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading call-interactively org-set-property org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 295172) nil])
#@51 Set the effort property for the current headline.
(defalias 'org-agenda-set-effort #[nil "\306 \210\307\310!\206\311 \312!\313!\314\315\211\212\n\203\"\nb\210n\203*\316\202+\317\320\316`\"\\*
p	r	q\210)\315\211 !\"#r	q\210~\210\nb\210\212\321\322!\210)\212\323 \203h\324\315!\210)\nb\210\325\326!\210\316\210\327 )\330\f\"\210$\205\327\331r!q\210)\"\331r q\210)\"\204\247\205\327\203\265r!q\210\332 \210)\203\303r q\210\332 \210)\"#! \257%B\211%.
\207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-get-at-bol org-hd-marker org-agenda-error marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading call-interactively org-set-effort org-get-heading org-agenda-change-all-lines org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 296176) nil])
#@47 Toggle the archive tag for the current entry.
(defalias 'org-agenda-toggle-archive-tag #[nil "\306 \210\307\310!\206\311 \312!\313!\314\315\211\212\n\203\"\nb\210n\203*\316\202+\317\320\316`\"\\*
p	r	q\210)\315\211 !\"#$r	q\210~\210\nb\210\321\322!\210\212\323 \203f\324\315!\210)\325\326!\210\316\210\327 )\330\f\"\210\331\316!\210%\205\326\332 r\"q\210)\"\332r!q\210)\"\204\246\205\326\203\264r\"q\210\333 \210)\203\302r!q\210\333 \210)#$\"!\257&B\211&.
\207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-get-at-bol org-hd-marker org-agenda-error marker-buffer marker-position t nil 1 0 count-lines org-show-context agenda outline-next-heading org-flag-heading call-interactively org-toggle-archive-tag org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 297258) nil])
(defalias 'org-agenda-do-date-later #[(arg) "\303\232\204\f	\304>\203\305\211\306!\207\307\232\204	\310>\203$\311\211\306!\207\312\313!!\207" [arg last-command this-command (16) (org-agenda-date-later-minutes org-agenda-date-earlier-minutes) org-agenda-date-later-minutes 1 (4) (org-agenda-date-later-hours org-agenda-date-earlier-hours) org-agenda-date-later-hours org-agenda-date-later prefix-numeric-value] 4 nil "P"])
(defalias 'org-agenda-do-date-earlier #[(arg) "\303\232\204\f	\304>\203\305\211\306!\207\307\232\204	\310>\203$\311\211\306!\207\312\313!!\207" [arg last-command this-command (16) (org-agenda-date-later-minutes org-agenda-date-earlier-minutes) org-agenda-date-earlier-minutes 1 (4) (org-agenda-date-later-hours org-agenda-date-earlier-hours) org-agenda-date-earlier-hours org-agenda-date-earlier prefix-numeric-value] 4 nil "P"])
#@51 Change the date of this item to ARG day(s) later.
(defalias 'org-agenda-date-later #[(arg &optional what) "\306\307\310\311#\210\312 \210\313\314!\206\315 \316!\317!\320\211\320\212\n\203(\nb\210n\2030\321\2021\322\323\321`\"\\*
p	8r	q\2108)\320\2119:;<=>?@r	q\210~\210\nb\210\324 \204g\325\326!\210A\203lB\321\232\203lC\203C\327=\203l\330 D\331\216\332 *\204l\333\334\322!\335\"\3368\3378\3408E\211EE\341E8)\320FG\342G!\203\270\325\343!\202\\G\322V\203R
GSF\344E\211E\211E@)HE\211E\211IA@*EE\341E8)GHS\345_\\JH\341V\203:
J\346H\336_\\\347\245ZJG\211G\322W\203
\350G!SG\342G\336\246!\2051
\342G\351\246!?\2061
\342G\352\246!)\203:
JTJJ-F\353_F\336\245F\351\245[F\352\245%\202\\\350GT!F\354E\211E\211E@)HE\211E\211IA@*EE\341E8)GHS\345_\\JH\341V\203\317
J\346H\336_\\\347\245ZJG\211G\322W\203\255
\350G!SG\342G\336\246!\205\306
\342G\351\246!?\206\306
\342G\352\246!)\203\317
JTJJ-F\353_F\336\245F\351\245[F\352\245\355\211EE\355@)HE\211E\211IA@*EE\341E8)GHS\345_\\JH\341V\203WJ\346H\336_\\\347\245ZJG\211G\322W\2035\350G!SG\342G\336\246!\205N\342G\351\246!?\206N\342G\352\246!)\203WJTJJ-&+\356 \211V\203l\fZB\357BC\206u\327\"\210\332 \203\235\360K\361 \"\203\235LM\357BC\206\222\327\"\210L\362MQL))\363L\"\210N\203\376\364<r>q\2108)\":\364;r=q\2108)\"9:\204\3179\203\376:\203\335r>q\210\365 \210)9\203\353r=q\210\365 \210)?@>:=9\257OBO.\366\367L\"-\207" [marker buffer pos cdate today this-command org-agenda-check-type t agenda timeline org-agenda-check-no-diary org-get-at-bol org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-at-timestamp-p error "Cannot find time stamp" day match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-at-date-range-p org-parse-time-string match-string nodefault 4 3 5 2 zerop "There was no year zero" + 31 23 10 abs 100 400 365 - (12 31 -1) org-today org-timestamp-change re-search-backward point-at-bol "--" org-agenda-show-new-time org-verify-change-for-undo undo-boundary message "Time stamp changed to %s" buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-move-date-from-past-immediately-to-today arg what save-match-data-internal date offset-years year month x day-of-year org-tr-regexp-both org-last-changed-timestamp end org-agenda-allow-remote-undo org-agenda-undo-list] 11 (#$ . 299247) "p"])
#@53 Change the date of this item to ARG day(s) earlier.
(defalias 'org-agenda-date-earlier #[(arg &optional what) "\302[	\"\207" [arg what org-agenda-date-later] 3 (#$ . 301850) "p"])
#@78 Change the time of this item, in units of `org-time-stamp-rounding-minutes'.
(defalias 'org-agenda-date-later-minutes #[(arg) "	\211A@)_\303\304\"\207" [arg org-time-stamp-rounding-minutes x org-agenda-date-later minute] 4 (#$ . 302037) "p"])
#@78 Change the time of this item, in units of `org-time-stamp-rounding-minutes'.
(defalias 'org-agenda-date-earlier-minutes #[(arg) "	\211A@)_\303\304\"\207" [arg org-time-stamp-rounding-minutes x org-agenda-date-earlier minute] 4 (#$ . 302290) "p"])
#@46 Change the time of this item, in hour steps.
(defalias 'org-agenda-date-later-hours #[(arg) "\301\302\"\207" [arg org-agenda-date-later hour] 3 (#$ . 302547) "p"])
#@46 Change the time of this item, in hour steps.
(defalias 'org-agenda-date-earlier-hours #[(arg) "\301\302\"\207" [arg org-agenda-date-earlier hour] 3 (#$ . 302718) "p"])
#@42 Show new date stamp via text properties.
(defalias 'org-agenda-show-new-time #[(marker stamp &optional prefix) "\304	\305\n\306R\212db\210o?\205@\307\310!\232\2039\311\312 \nGZ\304\"\210\313`!\210\314`S\315 \316\317\n\320\321\322$D#\210\323\324!\210\323\325!\210\202\f*\207" [inhibit-read-only prefix stamp marker t " => " " " org-get-at-bol org-marker org-move-to-column window-width org-agenda-fix-tags-filter-overlays-at add-text-properties point-at-eol display org-add-props nil face secondary-selection beginning-of-line 1 0] 9 (#$ . 302893)])
#@206 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.
(defalias 'org-agenda-date-prompt #[(arg) "\306\307\310\311#\210\312 \210\313\314!\206\315 \316!\317!\320\212\n\203$\nb\210n\203,\321\202-\322\323\321`\"\\*p	\fr	q\210\f)\320\211 !\"#$r	q\210~\210\nb\210\324\307!\204a\325\326!\210\327%\322\224f\330\232\"\210)\331&\"\210'\203\306\332 r\"q\210\f)\"\332r!q\210\f)\"\204\231
\203\306\203\247r\"q\210\333 \210)
\203\264r!q\210\333 \210)#$\"!
\257(B(.\334\335&\"+\207" [marker buffer pos this-command buffer-undo-list #1=#:--c2 org-agenda-check-type t agenda timeline org-agenda-check-no-diary org-get-at-bol org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-at-timestamp-p error "Cannot find time stamp" org-time-stamp 91 org-agenda-show-new-time org-verify-change-for-undo undo-boundary message "Time stamp changed to %s" #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline arg org-last-changed-timestamp org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 303455) "P"])
#@70 Schedule the item at point.
ARG is passed through to `org-schedule'.
(defalias 'org-agenda-schedule #[(arg &optional time) "\306\307\310\311\312\313\314&\210\315 \210\316\317!\206\320 \321!\322!\323!\324\211\325\307\"\210\324\212\2035b\210n\203=\326\202>\327\330\326`\"\\* p\n!r\nq\210!)\324\211\"#$%&'()r\nq\210~\210b\210\331*+\")\332
\333#\210,\203\324\334%r'q\210!)\"#\334$r&q\210!)\"\"#\204\245\"\203\324#\203\263r'q\210\335 \210)\"\203\301r&q\210\335 \210)()'#&\"\257-B-.\336\337
\".\207" [marker type buffer pos org-insert-labeled-timestamps-at-point ts org-agenda-check-type t agenda timeline todo tags search org-agenda-check-no-diary org-get-at-bol org-marker org-agenda-error marker-insertion-type marker-buffer marker-position nil set-marker-insertion-type 1 0 count-lines org-schedule org-agenda-show-new-time " S" org-verify-change-for-undo undo-boundary message "%s" this-command buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline arg time org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 304712) "P"])
#@70 Schedule the item at point.
ARG is passed through to `org-deadline'.
(defalias 'org-agenda-deadline #[(arg &optional time) "\306\307\310\311\312\313\314&\210\315 \210\316\317!\206\320 \321!\322!\323\211\323\212\n\203,\nb\210n\2034\324\2025\325\326\324`\"\\*
p	r	q\210)\323\211 !\"#$%&r	q\210~\210\nb\210\327'(\")\330\f\331#\210)\203\312\332\"r$q\210)\" \332!r#q\210)\" \204\233\203\312 \203\251r$q\210\333 \210)\203\267r#q\210\333 \210)%&$ #\257*B*.\334\335\f\"-\207" [marker buffer pos org-insert-labeled-timestamps-at-point ts this-command org-agenda-check-type t agenda timeline todo tags search org-agenda-check-no-diary org-get-at-bol org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-deadline org-agenda-show-new-time " D" org-verify-change-for-undo undo-boundary message "%s" buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline arg time org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 305871) "P"])
#@49 Start the clock on the currently selected item.
(defalias 'org-agenda-clock-in #[(&optional arg) "\306 \210\307\232\203
\310!\207\311\312!\206\313 \311\314!\206	\315	!\316\211\212\203.b\210n\2036\317\2027\320\321\317`\"\\*
p\322	!r\322	!q\210)\316\211 !\"#$r\322	!q\210~\210b\210\323\324!\210\325 \210\326\327!\210\310!\210\330 )\331\f\n\"\210%\205\335\332 r\"q\210)\"\332r!q\210)\"\204\255\205\335\203\273r\"q\210\333 \210)\203\311r!q\210\333 \210)#$\"!\257&B\211&.\f\207" [arg marker hdmarker pos newhead this-command org-agenda-check-no-diary (4) org-clock-in org-get-at-bol org-marker org-agenda-error org-hd-marker marker-position nil 1 0 count-lines marker-buffer org-show-context agenda org-show-entry org-cycle-hide-drawers children org-get-heading org-agenda-change-all-lines org-verify-change-for-undo undo-boundary buffer-undo-list #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 306952) "P"])
#@35 Stop the currently running clock.
(defalias 'org-agenda-clock-out #[nil "\306!\204\n\307\310!\210\311 \312\312\212\203b\210n\203!\313\202\"\314\315\313`\"\\*\fp\306!
r\306!q\210
)\312\211r\306!q\210\212\214~\210b\210\316\317!\210\n`\312\223\210\320 \210\321 +\203\275\322rq\210
)\"\322rq\210
)\"\204\216\203\275\203\234rq\210\323 \210)\203\252rq\210\323 \210)\257B.\324	\n\"\210\n\312\211\223*\207" [org-clock-marker newhead marker pos this-command buffer-undo-list marker-buffer error "No running clock" make-marker nil 1 0 count-lines org-back-to-heading t org-clock-out org-get-heading org-verify-change-for-undo undo-boundary org-agenda-change-all-lines #1=#:--c2 #2=#:--c1 #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 308043) nil])
#@37 Cancel the currently running clock.
(defalias 'org-agenda-clock-cancel #[(&optional arg) "\306!\204\n\307\310!\210\311\212	\203	b\210n\203\312\202\313\314\312`\"\\*\np\306!r\306!q\210)\311\211\315 \210\205\225\316rq\210)\"\316rq\210)\"
\204i\f\205\225
\203vrq\210\317 \210)\f\203\203rq\210\317 \210)
\f\257B\211.\207" [org-clock-marker pos this-command buffer-undo-list #1=#:--c2 #2=#:--c1 marker-buffer error "No running clock" nil 1 0 count-lines org-clock-cancel org-verify-change-for-undo undo-boundary #3=#:--undo2 #4=#:--undo1 #5=#:--buf2 #6=#:--buf1 #7=#:--cmd #8=#:--cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 308955) "P"])
#@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 #[nil "\302\303\304\305ed\"\"\210\203b\202!	\203\306\307 !\202!\310\311!)\207" [pos org-clock-current-task nil mapc #[(o) "\302\303\"\304=\205\305!\211\207" [o pos overlay-get type org-agenda-clocking overlay-start] 3] overlays-in org-switch-to-buffer-other-window org-clock-goto message "No running clock, use `C-c C-x C-j' to jump to the most recent one"] 5 (#$ . 309680) nil])
#@57 Make a diary entry in the file `org-agenda-diary-file'.
(defalias 'org-agenda-diary-entry-in-org-file #[nil "\306\211\211\307\306\211\310 \311\232\203\312\313!0@\202K\314\315 \316\"\211\204,\317\320!\210\321	!\306\322\323\217\205J\212\324 b\210\314\315 \316\"\211)\205J\321!\325\326!\210\327 \211\330\232\203o\331\332!\333\316\n
#\210\310 1\232\205\355\334 \202\355\335\232\203\236
@
A@\336\337\340\341
8\"\341
8\"E\331\342!\333\343\n
#\210\310 1\232\205\355\334 \202\355\344\232\203\316\331\345!
\203\266\f\203\266
\f\232\203\272\317\346!\210\333\347\n
\f$\210\310 1\232\205\355\334 \202\355\350\232\203\351\351\3522!!\210\353\354!\210\355
!\210\356\313!\202\355\317\357\".\207" [dp2 dp1 text char d2 d1 nil "" buffer-name "*Calendar*" calendar-cursor-to-date t get-text-property point-at-bol day error "No date defined in current line" calendar-gregorian-from-absolute (mark) ((error)) mark message "Diary entry: [d]ay [a]nniversary [b]lock [j]ump to date tree" read-char-exclusive 100 read-string "Day entry: " org-agenda-add-entry-to-org-agenda-diary-file org-agenda-redo 97 read-number format "Reference year [%d]: " 2 "Anniversary (use %d to show years): " anniversary 98 "Block entry: " "No block of days selected" block 106 org-switch-to-buffer-other-window find-file-noselect require org-datetree org-datetree-find-date-create org-reveal "Invalid selection character `%c'" calendar-mark-ring org-agenda-buffer-name org-agenda-diary-file] 8 (#$ . 310269)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\313\314\306\315&	\210\300\316\317\320\304\305\313\314\306\321&	\207" [custom-declare-variable org-agenda-insert-diary-strategy 'date-tree "Where in `org-agenda-diary-file' should new entries be added?\nValid values:\n\ndate-tree    in the date tree, as child of the date\ntop-level    as top-level entries at the end of the file." :group org-agenda :type (choice (const :tag "in a date tree" date-tree) (const :tag "as top level at end of file" top-level)) org-agenda-insert-diary-extract-time nil "Non-nil means extract any time specification from the diary entry." :version "24.1" boolean org-agenda-bulk-mark-char ">" "A single-character string to be used as the bulk mark." string] 10)
#@264 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.
(defalias 'org-agenda-add-entry-to-org-agenda-diary-file #[(type text &optional d1 d2) "\306 \307\310	!!\210~\210eb\210\n\311=\203I\312\313\314\315#\204,\316\315!\204,\317 \210\320c\210\321\322!\210\317 \210\323 \210\322u\210\324c\210\325\326\3278@A@\f%c\210\202\274	\n\330=\203x\315\211\314\211\211@ABC\203\212\331\314\f\314\211\315%@\332\333\334@#\211G\333V\205\202\335\336\337\"@P\332\333\340@#D\341=\203\230\342\f!\210\202\244\343\344!\210\345!\210\346\f!\210\347\350\211EE\327E8)\314FG\351G!\203\303\352\353!\202gG\333V\203]
GSF\354E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203E
J\356H\357_\\\360\245ZJG\211G\333W\203#
\361G!SG\351G\357\246!\205<
\351G\362\246!?\206<
\351G\363\246!)\203E
JTJJ-F\364_F\357\245F\362\245[F\363\245%\202g\361GT!F\365E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203\332
J\356H\357_\\\360\245ZJG\211G\333W\203\270
\361G!SG\351G\357\246!\205\321
\351G\362\246!?\206\321
\351G\363\246!)\203\332
JTJJ-F\364_F\357\245F\362\245[F\363\245\366\211EE\366@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203bJ\356H\357_\\\360\245ZJG\211G\333W\203@\361G!SG\351G\357\246!\205Y\351G\362\246!?\206Y\351G\363\246!)\203bJTJJ-&+!\314\211\211\211
&\210-\333\210\202\274	\n\367=\203\274	\211EE\327E8)\314FG\351G!\203\233\352\353!\202?G\333V\2035GSF\354E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203J\356H\357_\\\360\245ZJG\211G\333W\203\373\361G!SG\351G\357\246!\205\351G\362\246!?\206\351G\363\246!)\203JTJJ-F\364_F\357\245F\362\245[F\363\245%\202?\361GT!F\365E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203\262J\356H\357_\\\360\245ZJG\211G\333W\203\220\361G!SG\351G\357\246!\205\251\351G\362\246!?\206\251\351G\363\246!)\203\262JTJJ-F\364_F\357\245F\362\245[F\363\245\366\211EE\366@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203:J\356H\357_\\\360\245ZJG\211G\333W\203\361G!SG\351G\357\246!\2051\351G\362\246!?\2061\351G\363\246!)\203:JTJJ-&+K\211EE\327E8)\314FG\351G!\203^\352\353!\202G\333V\203\370GSF\354E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203\340J\356H\357_\\\360\245ZJG\211G\333W\203\276\361G!SG\351G\357\246!\205\327\351G\362\246!?\206\327\351G\363\246!)\203\340JTJJ-F\364_F\357\245F\362\245[F\363\245%\202\361GT!F\365E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203uJ\356H\357_\\\360\245ZJG\211G\333W\203S\361G!SG\351G\357\246!\205l\351G\362\246!?\206l\351G\363\246!)\203uJTJJ-F\364_F\357\245F\362\245[F\363\245\366\211EE\366@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203\375J\356H\357_\\\360\245ZJG\211G\333W\203\333\361G!SG\351G\357\246!\205\364\351G\362\246!?\206\364\351G\363\246!)\203\375JTJJ-&+V\203
KKD\341=\203\342\f!\210\202'\343\344!\210\345!\210\346\f!\210\347\350\211EE\327E8)\314FG\351G!\203F\352\353!\202\352G\333V\203\340GSF\354E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203\310J\356H\357_\\\360\245ZJG\211G\333W\203\246\361G!SG\351G\357\246!\205\277\351G\362\246!?\206\277\351G\363\246!)\203\310JTJJ-F\364_F\357\245F\362\245[F\363\245%\202\352\361GT!F\365E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203]J\356H\357_\\\360\245ZJG\211G\333W\203;\361G!SG\351G\357\246!\205T\351G\362\246!?\206T\351G\363\246!)\203]JTJJ-F\364_F\357\245F\362\245[F\363\245\366\211EE\366@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203\345J\356H\357_\\\360\245ZJG\211G\333W\203\303\361G!SG\351G\357\246!\205\334\351G\362\246!?\206\334\351G\363\246!)\203\345JTJJ-&+!!\210\370c\210\347\350K\211EE\327E8)\314FG\351G!\203\352\353!\202\265	G\333V\203\253GSF\354E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203\223J\356H\357_\\\360\245ZJG\211G\333W\203q\361G!SG\351G\357\246!\205\212\351G\362\246!?\206\212\351G\363\246!)\203\223JTJJ-F\364_F\357\245F\362\245[F\363\245%\202\265	\361GT!F\365E\211E\211E@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203(	J\356H\357_\\\360\245ZJG\211G\333W\203	\361G!SG\351G\357\246!\205	\351G\362\246!?\206	\351G\363\246!)\203(	JTJJ-F\364_F\357\245F\362\245[F\363\245\366\211EE\366@)HE\211E\211IA@*EE\327E8)GHS\355_\\JH\327V\203\260	J\356H\357_\\\360\245ZJG\211G\333W\203\216	\361G!SG\351G\357\246!\205\247	\351G\362\246!?\206\247	\351G\363\246!)\203\260	JTJJ-&+!!\210\333\210\371\372\f\"\203\327	\373!\210\374\375\376\377\n!!\201L	!#\202\342	\201M\315!\210\374\201N!)\207" [cw org-agenda-diary-file type d1 text time2 current-window-configuration org-switch-to-buffer-other-window find-file-noselect anniversary 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 day 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 zerop 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 fmt org-agenda-time-leading-zero org-prefix-has-time org-agenda-insert-diary-extract-time org-agenda-insert-diary-strategy date offset-years year month x day-of-year d2 abbreviate-file-name org-reveal "Please finish entry here"] 13 (#$ . 312554)])
#@166 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.
(defalias 'org-agenda-insert-diary-as-top-level #[(text) "~\210db\210n\204\f\302c\210\303\302\261\210	\205\304\305!\207" [text org-adapt-indentation "\n" "* " org-indent-to-column 2] 3 (#$ . 318776)])
#@153 Make new entry as last child of current entry.
Add TEXT as headline, and position the cursor in the second line so that
a timestamp can be added there.
(defalias 'org-agenda-insert-diary-make-new-entry #[(text) "\306\211\211\211\307\310 \210\311 \210\312\313!\204\314c\210\315u\210\316\307\306\"\210\317 \210i
\314\261\210\2034\320!\210\306\211\211\211\321 .	\207" [col org-show-entry-below org-show-hierarchy-above org-show-siblings org-show-following-heading text t nil outline-next-heading org-back-over-empty-lines looking-at "[ 	]*$" "\n" -1 org-insert-heading org-do-demote org-indent-to-column org-show-context org-adapt-indentation] 5 (#$ . 319154)])
#@255 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-mode file.
(defalias 'org-agenda-diary-entry #[nil "\306=\204	\307 \207\310\311!\210\312\313!\210\314 \315	\316\"A\317K`\305\320!\206&`\n\2040\321\322	\"\210\323\f\324\"\203D	\325\232\203H\323
\324\"\204H\321\326!\210\327\323
\324\"\206T\323\f\324\"!C\330\216\317\331M\210\332\n!.\207" [org-agenda-diary-file char cmd oldf point mark diary-file org-agenda-diary-entry-in-org-file require diary-lib message "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic" read-char-exclusive assoc ((100 . insert-diary-entry) (119 . insert-weekly-diary-entry) (109 . insert-monthly-diary-entry) (121 . insert-yearly-diary-entry) (97 . insert-anniversary-diary-entry) (98 . insert-block-diary-entry) (99 . insert-cyclic-diary-entry)) calendar-cursor-to-date t 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 ((byte-code "\301M\207" [oldf calendar-cursor-to-date] 2)) #[(&optional error dummy) "\301\302\303\"!\207" [point calendar-gregorian-from-absolute get-text-property day] 4] call-interactively calendar-mark-ring] 4 (#$ . 319837) nil])
#@67 Execute a calendar command from the agenda with date from cursor.
(defalias 'org-agenda-execute-calendar-command #[(cmd) "\306\307\310\311#\210\312\313!\210\314dS`^\315\"\204\316\317!\210\320K`\321\314	\315\"!\211@\322\n8\323\216\320\324M\210\325
!.\207" [oldf point date displayed-month displayed-year cmd org-agenda-check-type t agenda timeline require diary-lib get-text-property day error "Don't know which date to use for the calendar command" calendar-cursor-to-date calendar-gregorian-from-absolute 2 ((byte-code "\301M\207" [oldf calendar-cursor-to-date] 2)) #[(&optional error dummy) "\301\302\303\"!\207" [point calendar-gregorian-from-absolute get-text-property day] 4] call-interactively] 5 (#$ . 321256)])
#@73 Display the phases of the moon for the 3 months around the cursor date.
(defalias 'org-agenda-phases-of-moon #[nil "\300\301!\207" [org-agenda-execute-calendar-command calendar-phases-of-moon] 2 (#$ . 321991) nil])
#@63 Display the holidays for the 3 months around the cursor date.
(defalias 'org-agenda-holidays #[nil "\300\301!\207" [org-agenda-execute-calendar-command list-calendar-holidays] 2 (#$ . 322212) nil])
#@234 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.
(defalias 'org-agenda-sunrise-sunset #[(arg) "\304\305!\210?\205\n	?\205\n\203\306\202\307\310!+\207" [arg calendar-longitude calendar-latitude calendar-location-name require solar "the given coordinates" org-agenda-execute-calendar-command calendar-sunrise-sunset] 3 (#$ . 322417) "P"])
#@54 Open the Emacs calendar with the date at the cursor.
(defalias 'org-agenda-goto-calendar #[nil "\305\306\307\310#\210\311dS`^\300\"\206\312\313!\314!\315\211\315\316 \210\317	!-\207" [day date calendar-move-hook calendar-view-holidays-initially-flag calendar-view-diary-initially-flag org-agenda-check-type t agenda timeline get-text-property error "Don't know which date to open in calendar" calendar-gregorian-from-absolute nil calendar calendar-goto-date] 5 (#$ . 322958) nil])
#@143 Compute the Org-mode 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 #[nil "\306\307\310 \211\3118)\307\312\n!\203\313\314!\202m
\n\315V\203\226\nS\316\211\211@)\211\211A@*\3118)
S\317_\\\311V\203\202\320\321_\\\322\245Z\n\211\315W\203c\323\n!S\312\n\321\246!\205y\312\n\324\246!?\206y\312\n\325\246!)\203\202T-	\326_	\321\245	\324\245[	\325\245%\202m
\323\nT!\327\211\211@)\211\211A@*\3118)
S\317_\\\311V\203\372\320\321_\\\322\245Z\n\211\315W\203\333\323\n!S\312\n\321\246!\205\361\312\n\324\246!?\206\361\312\n\325\246!)\203\372T-	\326_	\321\245	\324\245[	\325\245\330\211\330@)\211\211A@*\3118)
S\317_\\\311V\203h
\320\321_\\\322\245Z\n\211\315W\203I
\323\n!S\312\n\321\246!\205_
\312\n\324\246!?\206_
\312\n\325\246!)\203h
T-&+\307#\207" [date offset-years year month x day org-agenda-list nil calendar-cursor-to-date 2 zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) day-of-year] 13 (#$ . 323454) nil])
(defalias 'org-agenda-convert-date #[nil "\306\307\310\311#\210\312dS`^\302\"\313\211\211\204\314\315!\210\316\n!\317\320	!\321\322\323	!\321\324\325	!\321\326\327	!\321\330\331	!\332\333\334	!\335\336\337	!\335\340\341	!\321\342\343	!\335\344\345	!\321\346\347	!\321\350\351	!\321\352\353	!\321\354\355	!\321\260*r\356\357!q\210p\360 \210\f\313\2118\307\2119\307:;\361 \210\362\363!\210+\211<=\364!\210\365<!\210+\366\367\357!!+\207" [s date day default-directory #1=#:old-dir buffer-read-only org-agenda-check-type t agenda timeline get-text-property nil error "Don't know which date to convert" calendar-gregorian-from-absolute "Gregorian:  " calendar-date-string "\n" "ISO:        " calendar-iso-date-string "Day of Yr:  " calendar-day-of-year-string "Julian:     " calendar-julian-date-string "Astron. JD: " calendar-astro-date-string " (Julian date number at noon UTC)\n" "Hebrew:     " calendar-hebrew-date-string " (until sunset)\n" "Islamic:    " calendar-islamic-date-string "French:     " calendar-french-date-string "Baha'i:     " calendar-bahai-date-string "Mayan:      " calendar-mayan-date-string "Coptic:     " calendar-coptic-date-string "Ethiopic:   " calendar-ethiopic-date-string "Persian:    " calendar-persian-date-string "Chinese:    " calendar-chinese-date-string get-buffer-create "*Dates*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show org-fit-window-to-buffer get-buffer-window buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 43 nil nil])
(defalias 'org-agenda-bulk-marked-p #[nil "\300\301 \302\"\303=\207" [get-char-property point-at-bol type org-marked-entry-overlay] 3])
#@49 Mark the entry at point for future bulk action.
(defalias 'org-agenda-bulk-mark #[(&optional arg) "\206\306\307	\nW\205j\310\311!\204c\310\312!\313\314 \204F\204'\315\316!\210
B\317\320 \321\320 \\\"\322\f\323P\324\325!\326$\210\327\f\330\331#\210\332\321!\210\333`\334\"\203\\m\204\\\332\321!\210\202J\335\336
G\"\210*	T\211\202	*\207" [arg i --dotimes-limit-- m ov org-agenda-bulk-marked-entries 1 0 org-get-at-bol org-agenda-diary-link org-hd-marker nil org-agenda-bulk-marked-p error "Nothing to mark at point" make-overlay point-at-bol 2 org-overlay-display " " org-get-todo-face "TODO" evaporate overlay-put type org-marked-entry-overlay beginning-of-line get-char-property invisible message "%d entries marked for bulk action" org-agenda-bulk-mark-char] 6 (#$ . 326360) "p"])
#@49 Mark all entries for future agenda bulk action.
(defalias 'org-agenda-bulk-mark-all #[nil "\300\301!\207" [org-agenda-bulk-mark-regexp "."] 2 (#$ . 327171) nil])
#@61 Mark entries matching REGEXP for future agenda bulk action.
(defalias 'org-agenda-bulk-mark-regexp #[(regexp) "\302\212eb\210\303`\304\"b\210\305	\306\307#\203(\310	\311`\304\"\"\203\fT\312\313!\210\202\f)?\2051\314\315!)\207" [entries-marked regexp 0 next-single-property-change txt re-search-forward nil t string-match get-text-property call-interactively org-agenda-bulk-mark message "No entry matching this regexp."] 5 (#$ . 327339) "sMark entries matching regexp: "])
#@51 Unmark the entry at point for future bulk action.
(defalias 'org-agenda-bulk-unmark #[(&optional arg) "\203\302 \207\303 \2038\304\305 \306\305 \\\"\210\307\310\311!	\"\312\306!\210\313`\314\"\2032m\2042\312\306!\210\202 \315\316	G\"\207\315\317!\207" [arg org-agenda-bulk-marked-entries org-agenda-bulk-unmark-all org-agenda-bulk-marked-p org-agenda-bulk-remove-overlays point-at-bol 2 delete org-get-at-bol org-hd-marker beginning-of-line get-char-property invisible message "%d entries left marked for bulk action" "No entry to unmark here"] 4 (#$ . 327826) "P"])
#@52 Toggle marking the entry at point for bulk action.
(defalias 'org-agenda-bulk-toggle #[nil "\300 \203\301 \207\302 \207" [org-agenda-bulk-marked-p org-agenda-bulk-unmark org-agenda-bulk-mark] 1 (#$ . 328407) nil])
#@225 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'.
(defalias 'org-agenda-bulk-remove-overlays #[(&optional beg end) "\302\303\304\206e	\206
d\"\"\207" [beg end mapc #[(ov) "\301\302\"\303=\205\f\304!\207" [ov overlay-get type org-marked-entry-overlay delete-overlay] 3] overlays-in] 5 (#$ . 328630) nil])
#@87 Remove all marks in the agenda buffer.
This will remove the markers and the overlays.
(defalias 'org-agenda-bulk-unmark-all #[nil "\204\301\302!\207\303\304\"\210\305\306ed\"\207" [org-agenda-bulk-marked-entries message "No entry to unmark" mapc #[(m) "\301\211\223\207" [m nil] 3] nil org-agenda-bulk-remove-overlays] 3 (#$ . 329121) nil])
#@147 Non-nil means marked items will stay marked after a bulk action.
You can toggle this interactively by typing `p' when prompted for a
bulk action.
(custom-declare-variable 'org-agenda-persistent-marks nil '(#$ . 329475) :group 'org-agenda :version "24.1" :type 'boolean)
#@118 Execute an remote-editing action on all marked entries.
The prefix arg is passed through to the command if possible.
(defalias 'org-agenda-bulk-action #[(&optional arg) "\204\304\305!\210\306\307\"\210	\203\310\202\311\312\n\313\314\205'\315\316\317\320#\321QR!\210\322\323\215)\207" [org-agenda-bulk-marked-entries org-agenda-persistent-marks msg org-agenda-bulk-custom-functions error "No entries are marked" mapc #[(m) "\301!\205\302!\205\303\302!!\205\304!?\205\305\306\"\207" [m markerp marker-buffer buffer-live-p marker-position error "Marker %s for bulk command is invalid"] 3] "Bulk (persistent): " "Bulk: " message "[$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [d]eadline [r]efile " "[S]catter [f]unction    " " Custom: [" mapconcat #[(f) "\301@!\207" [f char-to-string] 2] #1="" "]" exit (byte-code "\306 	\205\307\310\n!\311`\312\"\205\313 \314\211@\314\211AB\314\211CD\314E\315\211FG\316\232\203HH?H\317 \210\320\321\314\"\210)\202\343
\322\232\203T\323@\202\343
\324\232\203`\325@\202\343
\326\235\203\251\327\330\331@!I#A\332A8\203\232\332A\233\333 \332A8\334AA@!\206\227\335AA@!\206\227\336\337!\223\240\210\340\314\341AD\342F@\342\202\343
\343\232\203\315\344\345r\331@!q\210\346\347J\")\"B\350\351\352BDE@\202\343
\353>\203	
\344\354\355\356=\203\340\357\202\341\360\"r\331@!q\210\361\314\346\362K\"\")\"D\363D\356=\203
\364\202
\365E@\202\343
\366>\203E
>?\205&
\367\314\211\211\370=\203#
\371\202$
\372\f%\370=\2032
\373\2023
\374L\375\341L\376EDD@*\202\343
\377\232\203\236
\201S\314\201T\201U\201V$\204g
\336\201WM\"\210\202\343
\201X\354\201Y>\203y
\201Z\202|
\201[\"\201\\\"N\350\201]\201^\201_NDDDC\201`BB@)\202\343
\201aO\"\203\275
\201aO\"\211PA@)C@\342\202\343
\201b\232\203\335
\201c\344\201dQ\201e\342\314\211&!C@\202\343
\336\201f!\210\201g\201h\"\211A@\211C\203/\201ied\201jC$\211E\204\201k\201lC\"\210GTG\202\354
Eb\210\314R\375@!\210)FTF\202\354

\2038\201m \210H\204B\201n \210\201k\201oFG\315U\203W\201[\202^\354\201pG\"H\204i\201[\202l\201q$.
\207" [action org-log-refile org-agenda-bulk-marked-entries entries org-overriding-default-time redo-at-end read-char-exclusive time reverse get-text-property org-agenda-date-header org-get-cursor-date nil 0 112 org-agenda-bulk-action throw exit 36 (org-agenda-archive) 65 (org-agenda-archive-to-archive-sibling) (114 119) org-refile-get-location "Refile to" marker-buffer 3 make-marker get-file-buffer find-buffer-visiting error "This should not happen" org-agenda-refile quote t 116 org-icompleting-read "Todo state: " mapcar list let ((org-inhibit-blocking t) (org-inhibit-logging 'note)) org-agenda-todo (45 43) format "Tag to %s: " 43 "add" "remove" delq #[(x) "@;\205\207" [x] 1] org-agenda-set-tags 'on 'off (115 100) org-read-date 115 "(Re)Schedule to" "(Re)Set Deadline to" org-agenda-schedule org-agenda-deadline eval arg 83 cmd rfloc state e tag pos cnt cntskip org-agenda-persistent-marks org-refile-allow-creating-parent-nodes org-todo-keywords-1 org-tag-alist c1 org-agenda-type days org-agenda-bulk-custom-functions x obarray org-loop-over-headlines-in-active-region org-agenda-check-type agenda timeline todo "Can't scatter tasks in \"%s\" agenda view" read-number "Scatter tasks across how many %sdays: " "week" #1# 7 distance 1+ random ((if arg (let ((dist distance) (day-of-week (calendar-day-of-week (calendar-gregorian-from-absolute (org-today))))) (dotimes (i (1+ dist)) (while (member day-of-week org-agenda-weekend-days) (incf distance) (incf day-of-week) (if (= day-of-week 7) (setq day-of-week 0))) (incf day-of-week) (if (= day-of-week 7) (setq day-of-week 0))))) (condition-case nil (let* ((date (calendar-gregorian-from-absolute (+ (org-today) distance))) (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date)))) (org-agenda-schedule nil time)) (error nil))) assoc 102 intern "Function: " fboundp "Invalid bulk action" sort #[(a b) "\302!\302	!\232\203\303!\303	!W\207\304\302!!\304\302	!!\231\207" [a b marker-buffer marker-position buffer-name] 4] text-property-any org-hd-marker message "Skipping removed entry at %s" org-agenda-redo org-agenda-bulk-unmark-all "Acted on %d entries%s%s" ", skipped %d (disappeared before their turn)" " (kept marked)"] 9)] 9 (#$ . 329752) "P"])
#@44 Call `org-capture' with the date at point.
(defalias 'org-agenda-capture #[nil "\302=\204\n\303\304!\207\305 \306\307!)\207" [major-mode org-overriding-default-time org-agenda-mode error "You cannot do this outside of agenda buffers" org-get-cursor-date call-interactively org-capture] 2 (#$ . 334145) nil])
#@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 #[nil "\306\307!\310 \311\211\211\211\204\312\313!\210
!=\2039\314\315!\2039\316\f!\210\317\320!\211\2032\321!\210)\322\323!\202r\324\f\325\"\211\204F\312\326!\210\327\n!\210\330\320!\210\331 \210\nc\210eb\210\332\333\311\334#\203h\335\336\334\211#\210\202Web\210\337!\210\322\340!-\207" [newhead heading note win hdmarker this-command org-get-at-bol org-hd-marker selected-window nil 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 "Flagging note pushed to kill ring.  Press [?] again to remove tag and note" last-command] 6 (#$ . 334463) nil])
#@60 Remove the FLAGGED tag and any flagging note in the entry.
(defalias 'org-agenda-remove-flag #[(marker) "\303	\212\304\n!\203\305\n!q\210\212\n\206`b\210\306\307\310\"\210\311\303\312\"\210\313 +\314	\"\210\315\316!)\207" [newhead marker #1=#:--mpom nil markerp marker-buffer org-toggle-tag "FLAGGED" off org-entry-delete "THEFLAGGINGNOTE" org-get-heading org-agenda-change-all-lines message "Entry unflagged"] 3 (#$ . 335546)])
(defalias 'org-agenda-get-any-marker #[(&optional pos) "\301\206\302 \303\"\206\301\206\302 \304\"\207" [pos get-text-property point-at-bol org-hd-marker org-marker] 3])
#@1070 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
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'.
(defalias 'org-agenda-to-appt #[(&optional refresh filter &rest args) "\203\306\n\307=\203\310\311!\312\f\206\313\306\312 \314\315\316 !!!\306\"\317\320!#\306\211$%\306&\321#!\210#\211A#@\211%\203]\322\306\323$\324\325%!
$\"\"$\202<\326\327$\"\210\330!\210\312=\203t\331\332!\202\203\331\333\211\334V\203\201\335\202\202\336#.\n\207" [refresh appt-time-msg-list filter cnt args scope nil t read-from-minibuffer "Regexp filter: " 0 (:deadline :scheduled :timestamp) org-date-to-gregorian time-to-days current-time org-agenda-files unrestricted org-agenda-prepare-buffers delq append apply org-agenda-get-day-entries mapc #[(x) "\306\307\310\311#\206\n\312!\307\310\313#\307\310\314#\f?\206f\f;\203)\315\f	\"\206f\316\f!\2035\f!\206f\f<\205f\317\320\f\"\211A@)\317\321\f\"\211A@)\211;\203\\\315\n\"\206e
;\205e\315
	\"*\307\310\322#\205\255\205\255\323\324!P\315\325\"\205\217\326\310\"\327\326\330\"Q\331\332\"\203\240\333	\"\210\202\247\333	#\210 T\211 -\207" [x evt cat tod filter evt-filter org-trim get-text-property 1 txt #1="" org-category time-of-day string-match functionp assoc category headline warntime "00" number-to-string "\\([0-9]\\{1,2\\}\\)\\([0-9]\\{2\\}\\)\\'" match-string ":" 2 version< "23.3" appt-add cat-filter ok wrn emacs-version cnt] 6] org-release-buffers message "No event to add" "Added %d event%s for today" 1 "s" #1# org-agenda-new-buffers org-deadline-warning-days today org-agenda-restrict files entries file org-agenda-buffer] 10 (#$ . 336169) "P"])
#@66 Does DATE mean today, when considering `org-extend-today-until'?
(defalias 'org-agenda-todayp #[(date) "\306 \203y
<\203y
\211\3078)\310\311\n!\203\"\312\313!\202u
\n\314V\203\236\nS\315\211\211@)\211\211A@*\3078)
S\316_\\\307V\203\212\317\320_\\\321\245Z\n\211\314W\203k\322\n!S\311\n\320\246!\205\201\311\n\323\246!?\206\201\311\n\324\246!)\203\212T-	\325_	\320\245	\323\245[	\324\245%\202u
\322\nT!\326\211\211@)\211\211A@*\3078)
S\316_\\\307V\203
\317\320_\\\321\245Z\n\211\314W\203\343\322\n!S\311\n\320\246!\205\371\311\n\323\246!?\206\371\311\n\324\246!)\203
T-	\325_	\320\245	\323\245[	\324\245\327\211\327@)\211\211A@*\3078)
S\316_\\\307V\203p
\317\320_\\\321\245Z\n\211\314W\203Q
\322\n!S\311\n\320\246!\205g
\311\n\323\246!?\206g
\311\n\324\246!)\203p
T-&+\202z
*=\207" [date offset-years year month x day org-today 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) day-of-year today] 12 (#$ . 338818)])
#@75 Like `org-agenda-todo' but the time of change will be 23:59 of yesterday.
(defalias 'org-agenda-todo-yesterday #[(&optional arg) "\303\304 !AA@\211T\305\n!*\207" [hour org-extend-today-until arg decode-time org-current-time org-agenda-todo] 3 (#$ . 339892) "P"])
(provide 'org-agenda)