Gecko [ 122.154.134.11 ]

Name	Size	Permission
org-agenda.elc	214.7 KB	-rw-r--r--
org-archive.elc	11.75 KB	-rw-r--r--
org-attach.elc	14.21 KB	-rw-r--r--
org-bbdb.elc	7.37 KB	-rw-r--r--
org-bibtex.elc	4.13 KB	-rw-r--r--
org-clock.elc	35.05 KB	-rw-r--r--
org-colview.elc	41.45 KB	-rw-r--r--
org-compat.elc	7.48 KB	-rw-r--r--
org-exp.elc	149.66 KB	-rw-r--r--
org-export-latex.elc	44.23 KB	-rw-r--r--
org-faces.elc	20.18 KB	-rw-r--r--
org-footnote.elc	13.77 KB	-rw-r--r--
org-gnus.elc	5.74 KB	-rw-r--r--
org-id.elc	16.92 KB	-rw-r--r--
org-info.elc	1.68 KB	-rw-r--r--
org-install.elc	635 B	-rw-r--r--
org-irc.elc	5.89 KB	-rw-r--r--
org-jsinfo.elc	5.39 KB	-rw-r--r--
org-list.elc	32.5 KB	-rw-r--r--
org-mac-message.elc	2.27 KB	-rw-r--r--
org-macs.elc	7.83 KB	-rw-r--r--
org-mew.elc	2.92 KB	-rw-r--r--
org-mhe.elc	5.16 KB	-rw-r--r--
org-mouse.elc	32.83 KB	-rw-r--r--
org-plot.elc	10.28 KB	-rw-r--r--
org-publish.elc	20.43 KB	-rw-r--r--
org-remember.elc	31.7 KB	-rw-r--r--
org-rmail.elc	2.82 KB	-rw-r--r--
org-table.elc	136.62 KB	-rw-r--r--
org-timer.elc	7.61 KB	-rw-r--r--
org-vm.elc	2.91 KB	-rw-r--r--
org-w3m.elc	3.88 KB	-rw-r--r--
org-wl.elc	2.82 KB	-rw-r--r--
org.elc	505.8 KB	-rw-r--r--

Code Editor : org-agenda.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:39 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-agenda.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`org-agenda.el' was compiled for Emacs 19.29 or later"))

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

(require 'org)
#@221 When set, remote killing from the agenda buffer needs confirmation.
When t, a confirmation is always needed.  When a number N, confirmation is
only needed when the text to be killed contains more than N non-white lines.
(custom-declare-variable 'org-agenda-confirm-kill '1 '(#$ . 631) :group 'org-agenda :type '(choice (const :tag "Never" nil) (const :tag "Always" t) (number :tag "When more than N lines")))
#@99 Non-nil means, make the block agenda more compact.
This is done by leaving out unnecessary lines.
(custom-declare-variable 'org-agenda-compact-blocks 'nil '(#$ . 1046) :group 'org-agenda :type 'boolean)
#@190 The separator between blocks in the agenda.
If this is a string, it will be used as the separator, with a newline added.
If it is a character, it will be repeated to fill the window width.
(custom-declare-variable 'org-agenda-block-separator '61 '(#$ . 1256) :group 'org-agenda :type '(choice (character) (string)))
(custom-declare-group 'org-agenda-export nil "Options concerning exporting agenda views in Org-mode." :tag "Org Agenda Export" :group 'org-agenda)
#@44 Non-nil means, use colors in agenda views.
(custom-declare-variable 'org-agenda-with-colors 't '(#$ . 1725) :group 'org-agenda-export :type 'boolean)
#@141 Alist of variable/value pairs that should be active during agenda export.
This is a good place to set options for ps-print and for htmlize.
(custom-declare-variable 'org-agenda-exporter-settings 'nil '(#$ . 1882) :group 'org-agenda-export :type '(repeat (list (variable) (sexp :tag "Value"))))
#@1228 The style specification for exported HTML Agenda files.
If this variable contains a string, it will replace the default <style>
section as produced by `htmlize'.
Since there are different ways of setting style information, this variable
needs to contain the full HTML structure to provide a style, including the
surrounding HTML tags.  The style specifications should include definitions
the fonts used by the agenda, here is an example:

or, if you want to keep the style in a file,

As the value of this option simply gets inserted into the HTML <head> header,
you can "misuse" it to also add other text to the header.  However,
<style>...</style> is required, if not present the variable will be ignored.
(custom-declare-variable 'org-agenda-export-html-style '"" '(#$ . 2184) :group 'org-agenda-export :group 'org-export-html :type 'string)
(custom-declare-group 'org-agenda-custom-commands nil "Options concerning agenda views in Org-mode." :tag "Org Agenda Custom Commands" :group 'org-agenda)
#@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)) (#$ . 3709))
#@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 "Any variable" (variable :tag "Variable") (sexp :tag "Value")) (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-ndays) (integer :value 1)) (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) (number :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 "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)) (const :tag "scheduled" 'scheduled) (const :tag "not scheduled" 'notscheduled) (const :tag "deadline" 'deadline) (const :tag "no deadline" 'notdeadline)))))) (list :tag "Non-standard skipping condition" :value (org-agenda-skip-function) (const org-agenda-skip-function) (sexp :tag "Function or form (quoted!)")))] 16) (#$ . 4041))
#@3218 Custom commands for the agenda.
These commands will be offered on the splash screen displayed by the
agenda dispatcher \[org-agenda].  Each entry is a list like this:

(key desc type match settings files)

key      The key (one or more characters as a string) to be associated
         with the command.
desc     A description of the command, when omitted or nil, a default
         description is built using MATCH.
type     The command type, any of the following symbols:
          agenda      The daily/weekly agenda.
          todo        Entries with a specific TODO keyword, in all agenda files.
          search      Entries containing search words entry or headline.
          tags        Tags/Property/TODO match in all agenda files.
          tags-todo   Tags/P/T match in all agenda files, TODO entries only.
          todo-tree   Sparse tree of specific TODO keyword in *current* file.
          tags-tree   Sparse tree with all tags matches in *current* file.
          occur-tree  Occur sparse tree for *current* file.
          ...         A user-defined function.
match    What to search for:
          - a single keyword for TODO keyword searches
          - a tags match expression for tags searches
          - a word search expression for text searches.
          - a regular expression for occur searches
          For all other commands, this should be the empty string.
settings  A list of option settings, similar to that in a let form, so like
          this: ((opt1 val1) (opt2 val2) ...).   The values will be
          evaluated at the moment of execution, so quote them when needed.
files     A list of files file to write the produced agenda buffer to
          with the command `org-store-agenda-views'.
          If a file name ends in ".html", an HTML version of the buffer
          is written out.  If it ends in ".ps", a postscript version is
          produced.  Otherwise, only the plain text is written to the file.

You can also define a set of commands, to create a composite agenda buffer.
In this case, an entry looks like this:

(key desc (cmd1 cmd2 ...) general-settings-for-whole-set files)

where

desc   A description string to be displayed in the dispatcher menu.
cmd    An agenda command, similar to the above.  However, tree commands
       are no allowed, but instead you can get agenda and global todo list.
       So valid commands for a set are:
       (agenda "" settings)
       (alltodo "" settings)
       (stuck "" settings)
       (todo "match" settings files)
       (search "match" settings files)
       (tags "match" settings files)
       (tags-todo "match" settings files)

Each command can carry a list of options, and another set of options can be
given for the whole set of commands.  Individual command options take
precedence over the general options.

When using several characters as key to a command, the first characters
are prefix commands.  For the dispatcher to display useful information, you
should provide a description for the prefix, like

(setq org-agenda-custom-commands
   '(("h" . "HOME + Name tag searches") ; describe prefix "h"
     ("hl" tags "+HOME+Lisa")
     ("hp" tags "+HOME+Peter")
     ("hk" tags "+HOME+Kim")))
(custom-declare-variable 'org-agenda-custom-commands 'nil '(#$ . 6171) :group 'org-agenda-custom-commands :type (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314BBBBBBBB\305\306\315\316\317\301\306\320\302\305\306\321\322\323\257\305\306\324\325\326\257\305\306\327\330\331\257\305\306\332\333\334\257\305\306\335\336\337\257\305\306\340\341\342\257\305\306\343\344\345\257\305\306\346\347\350\257\257	F\351BBBBBB\352BBBBBD\207" [org-agenda-custom-commands-local-options 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 search (all agenda files)" tags) (const :tag "Tags search 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  ")))] 27))
#@171 The register holding the current query string.
The purpose of this is that if you construct a query string interactively,
you can then use it to define a custom command.
(custom-declare-variable 'org-agenda-query-register '111 '(#$ . 11668) :group 'org-agenda-custom-commands :type 'character)
#@894 How to identify stuck projects.
This is a list of four items:
1. A tags/todo matcher string that is used to identify a project.
   The entire tree below a headline matched by this is considered one project.
2. A list of TODO keywords identifying non-stuck projects.
   If the project subtree contains any headline with one of these todo
   keywords, the project is considered to be not stuck.  If you specify
   "*" as a keyword, any TODO keyword will mark the project unstuck.
3. A list of tags identifying non-stuck projects.
   If the project subtree contains any headline with one of these tags,
   the project is considered to be not stuck.  If you specify "*" as
   a tag, any tag will mark the project unstuck.
4. An arbitrary regular expression matching non-stuck projects.

After defining this variable, you may use \[org-agenda-list-stuck-projects]
or `C-c a #' to produce the list.
(custom-declare-variable 'org-stuck-projects ''("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") nil "") '(#$ . 11969) :group 'org-agenda-custom-commands :type '(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\ninside the subtree")))
#@151 The default operator for effort estimate filtering.
If you select an effort estimate limit without first pressing an operator,
this one will be used.
(custom-declare-variable 'org-agenda-filter-effort-default-operator '"<" '(#$ . 13364) :group 'org-agenda-custom-commands :type '(choice (const :tag "less or equal" "<") (const :tag "greater or equal" ">") (const :tag "equal" "=")))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\210\300\313\302\314\304\315\306\307&\210\300\316\302\317\304\320\306\307&\207" [custom-declare-group org-agenda-skip nil "Options concerning skipping parts of agenda files." :tag "Org Agenda Skip" :group org-agenda 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"] 8)
#@296 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 (#$ . 14372))
#@123 Non-nil means, skip trees that start with the COMMENT keyword.
When nil, these trees are also scanned by agenda commands.
(custom-declare-variable 'org-agenda-skip-comment-trees 't '(#$ . 14725) :group 'org-agenda-skip :type 'boolean)
#@182 Non-nil means, check also the sublevels of a TODO entry for TODO entries.
When nil, the sublevels of a TODO entry are not checked, resulting in
potentially much shorter TODO lists.
(custom-declare-variable 'org-agenda-todo-list-sublevels 't '(#$ . 14967) :group 'org-agenda-skip :group 'org-agenda-todo-list :type 'boolean)
#@370 Non-nil means, don't show entries with a date in the global todo list.
You can use this if you prefer to mark mere appointments with a TODO keyword,
but don't want them to show up in the TODO list.
When this is set, it also covers deadlines and scheduled items, the settings
of `org-agenda-todo-ignore-scheduled' and `org-agenda-todo-ignore-deadlines'
will be ignored.
(custom-declare-variable 'org-agenda-todo-ignore-with-date 'nil '(#$ . 15298) :group 'org-agenda-skip :group 'org-agenda-todo-list :type 'boolean)
#@204 Non-nil means, don't show scheduled entries in the global todo list.
The idea behind this is that by scheduling it, you have already taken care
of this item.
See also `org-agenda-todo-ignore-with-date'.
(custom-declare-variable 'org-agenda-todo-ignore-scheduled 'nil '(#$ . 15821) :group 'org-agenda-skip :group 'org-agenda-todo-list :type 'boolean)
#@250 Non-nil means, don't show near deadline entries in the global todo list.
Near means closer than `org-deadline-warning-days' days.
The idea behind this is that such items will appear in the agenda anyway.
See also `org-agenda-todo-ignore-with-date'.
(custom-declare-variable 'org-agenda-todo-ignore-deadlines 'nil '(#$ . 16178) :group 'org-agenda-skip :group 'org-agenda-todo-list :type 'boolean)
#@455 Non-nil means, honor todo-list ...ignore options also in tags-todo search.
The variables
   `org-agenda-todo-ignore-with-date',
   `org-agenda-todo-ignore-scheduled' 
   `org-agenda-todo-ignore-deadlines'
make the global TODO list skip entries that have time stamps of certain
kinds.  If this option is set, the same options will also apply for the
tags-todo search, which is the general tags/property matcher
restricted to unfinished TODO entries only.
(custom-declare-variable 'org-agenda-tags-todo-honor-ignore-options 'nil '(#$ . 16581) :group 'org-agenda-skip :group 'org-agenda-todo-list :group 'org-agenda-match-view :type 'boolean)
#@298 Non-nil means don't show scheduled items in agenda when they are done.
This is relevant for the daily/weekly agenda, not for the TODO list.  And
it applies only to the actual date of the scheduling.  Warnings about
an item with a past scheduling dates are always turned off when the item
is DONE.
(custom-declare-variable 'org-agenda-skip-scheduled-if-done 'nil '(#$ . 17228) :group 'org-agenda-skip :group 'org-agenda-daily/weekly :type 'boolean)
#@349 Non-nil means don't show deadlines when the corresponding item is done.
When nil, the deadline is still shown and should give you a happy feeling.
This is relevant for the daily/weekly agenda.  And it applied only to the
actually date of the deadline.  Warnings about approaching and past-due
deadlines are always turned off when the item is DONE.
(custom-declare-variable 'org-agenda-skip-deadline-if-done 'nil '(#$ . 17683) :group 'org-agenda-skip :group 'org-agenda-daily/weekly :type 'boolean)
#@71 Non-nil means don't select item by timestamp or -range if it is DONE.
(custom-declare-variable 'org-agenda-skip-timestamp-if-done 'nil '(#$ . 18187) :group 'org-agenda-skip :group 'org-agenda-daily/weekly :type 'boolean)
#@405 Non-nil means, dim blocked tasks in the agenda display.
This causes some overhead during agenda construction, but if you have turned
on `org-enforce-todo-dependencies' or any other blocking mechanism, this
will create useful feedback in the agenda.
Instead ot t, this variable can also have the value `invisible'.  Then
blocked tasks will be invisible and only become visible when they
become unblocked.
(custom-declare-variable 'org-agenda-dim-blocked-tasks 't '(#$ . 18415) :group 'org-agenda-daily/weekly :group 'org-agenda-todo-list :type '(choice (const :tag "Do not dim" nil) (const :tag "Dim to a grey face" t) (const :tag "Make invisibe" invisible)))
#@335 Non-nil means, `org-timeline' also shows dates without an entry.
When nil, only the days which actually have entries are shown.
When t, all days between the first and the last date are shown.
When an integer, show also empty dates, but if there is a gap of more than
N days, just insert a special line indicating the size of the gap.
(custom-declare-variable 'org-timeline-show-empty-dates '3 '(#$ . 19081) :group 'org-agenda-skip :type '(choice (const :tag "None" nil) (const :tag "All" t) (number :tag "at most")))
(custom-declare-group 'org-agenda-startup nil "Options concerning initial settings in the Agenda in Org Mode." :tag "Org Agenda Startup" :group 'org-agenda)
#@51 Hook run just before displaying an agenda buffer.
(custom-declare-variable 'org-finalize-agenda-hook 'nil '(#$ . 19761) :group 'org-agenda-startup :type 'hook)
#@180 Non-nil means, mouse-1 on a link will follow the link in the agenda.
A longer mouse click will still set point.  Does not work on XEmacs.
Needs to be set before org.el is loaded.
(custom-declare-variable 'org-agenda-mouse-1-follows-link 'nil '(#$ . 19928) :group 'org-agenda-startup :type 'boolean)
#@68 The initial value of follow-mode in a newly created agenda window.
(custom-declare-variable 'org-agenda-start-with-follow-mode 'nil '(#$ . 20233) :group 'org-agenda-startup :type 'boolean)
#@69 Non-nil means, include inactive time stamps in agenda and timeline.
(defvar org-agenda-include-inactive-timestamps nil (#$ . 20428))
(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)
#@485 How the agenda buffer should be displayed.
Possible values for this option are:

current-window    Show agenda in the current window, keeping all other windows.
other-frame       Use `switch-to-buffer-other-frame' to display agenda.
other-window      Use `switch-to-buffer-other-window' to display agenda.
reorganize-frame  Show only two windows on the current frame, the current
                  window and the agenda.
See also the variable `org-agenda-restore-windows-after-quit'.
(custom-declare-variable 'org-agenda-window-setup ''reorganize-frame '(#$ . 20725) :group 'org-agenda-windows :type '(choice (const current-window) (const other-frame) (const other-window) (const reorganize-frame)))
#@219 The min and max height of the agenda window as a fraction of frame height.
The value of the variable is a cons cell with two numbers between 0 and 1.
It only matters if `org-agenda-window-setup' is `reorganize-frame'.
(custom-declare-variable 'org-agenda-window-frame-fractions ''(0.5 . 0.75) '(#$ . 21432) :group 'org-agenda-windows :type '(cons (number :tag "Minimum") (number :tag "Maximum")))
#@353 Non-nil means, restore window configuration open exiting agenda.
Before the window configuration is changed for displaying the agenda,
the current status is recorded.  When the agenda is exited with
`q' or `x' and this option is set, the old state is restored.  If
`org-agenda-window-setup' is `other-frame', the value of this
option will be ignored..
(custom-declare-variable 'org-agenda-restore-windows-after-quit 'nil '(#$ . 21836) :group 'org-agenda-windows :type 'boolean)
#@66 Number of days to include in overview display.
Should be 1 or 7.
(custom-declare-variable 'org-agenda-ndays '7 '(#$ . 22320) :group 'org-agenda-daily/weekly :type 'number)
#@151 Non-nil means, start the overview always on the specified weekday.
0 denotes Sunday, 1 denotes Monday etc.
When nil, always start on the current day.
(custom-declare-variable 'org-agenda-start-on-weekday '1 '(#$ . 22499) :group 'org-agenda-daily/weekly :type '(choice (const :tag "Today" nil) (number :tag "Weekday No.")))
#@131 Non-nil means, `org-agenda' shows every day in the selected range.
When nil, only the days which actually have entries are shown.
(custom-declare-variable 'org-agenda-show-all-dates 't '(#$ . 22829) :group 'org-agenda-daily/weekly :type 'boolean)
#@321 Format string for displaying dates in the agenda.
Used by the daily/weekly agenda and by the timeline.  This should be
a format string understood by `format-time-string', or a function returning
the formatted date as a string.  The function must take a single argument,
a calendar-style date list like (month day year).
(custom-declare-variable 'org-agenda-format-date ''org-agenda-format-date-aligned '(#$ . 23083) :group 'org-agenda-daily/weekly :type '(choice (string :tag "Format string") (function :tag "Function")))
#@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\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''-&+!(
\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] 14 (#$ . 23612)])
#@119 Which days are weekend?
These days get the special face `org-agenda-date-weekend' in the agenda
and timeline buffers.
(custom-declare-variable 'org-agenda-weekend-days ''(6 0) '(#$ . 25177) :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)))
#@76 If non-nil, include in the agenda entries from the Emacs Calendar's diary.
(custom-declare-variable 'org-agenda-include-diary 'nil '(#$ . 25605) :group 'org-agenda-daily/weekly :type 'boolean)
#@240 Set  means weekly/daily agenda will always contain all TODO entries.
The TODO entries will be listed at the top of the agenda, before
the entries for specific days.
This option is deprecated, it is better to define a block agenda instead.
(custom-declare-variable 'org-agenda-include-all-todo 'nil '(#$ . 25805) :group 'org-agenda-daily/weekly :type 'boolean)
#@158 Non-nil means, show all occurrences of a repeating stamp in the agenda.
When nil, only one occurrence is shown, either today or the
nearest into the future.
(custom-declare-variable 'org-agenda-repeating-timestamp-show-all 't '(#$ . 26172) :group 'org-agenda-daily/weekly :type 'boolean)
#@228 No. of days to continue listing scheduled items that are not marked DONE.
When an item is scheduled on a date, it shows up in the agenda on this
day and will be listed until it is marked done for the number of days
given here.
(custom-declare-variable 'org-scheduled-past-days '10000 '(#$ . 26467) :group 'org-agenda-daily/weekly :type 'number)
#@275 List of items that should be shown in agenda log mode.
This list may contain the following symbols:

closed    Show entries that have been closed on that day.
  clock     Show entries that have received clocked time on that day.
  state     Show all logged state changes.
(custom-declare-variable 'org-agenda-log-mode-items ''(closed clock) '(#$ . 26819) :group 'org-agenda-daily/weekly :type '(set :greedy t (const closed) (const clock) (const state)))
#@73 The initial value of clockreport-mode in a newly created agenda window.
(custom-declare-variable 'org-agenda-start-with-clockreport-mode 'nil '(#$ . 27281) :group 'org-agenda-startup :group 'org-agenda-daily/weekly :type 'boolean)
#@438 Property list with parameters for the clocktable in clockreport mode.
This is the display mode that shows a clock table in the daily/weekly
agenda, the properties for this dynamic block can be set here.
The usual clocktable parameters are allowed here, but you cannot set
the properties :name, :tstart, :tend, :block, and :scope - these will
be overwritten to make sure the content accurately reflects the
current display in the agenda.
(custom-declare-variable 'org-agenda-clockreport-parameter-plist ''(:link t :maxlevel 2) '(#$ . 27519) :group 'org-agenda-daily/weekly :type 'plist)
(custom-declare-group 'org-agenda-time-grid nil "Options concerning the time grid in the Org-mode Agenda." :tag "Org Agenda Time Grid" :group 'org-agenda)
#@353 Non-nil means, show a time grid in the agenda schedule.
A time grid is a set of lines for specific times (like every two hours between
8:00 and 20:00).  The items scheduled for a day at specific times are
sorted in between these lines.
For details about when the grid will be shown, and what it will look like, see
the variable `org-agenda-time-grid'.
(custom-declare-variable 'org-agenda-use-time-grid 't '(#$ . 28267) :group 'org-agenda-time-grid :type 'boolean)
#@605 The settings for time grid for agenda display.
This is a list of three items.  The first item is again a list.  It contains
symbols specifying conditions when the grid should be displayed:

daily         if the agenda shows a single day
 weekly        if the agenda shows an entire week
 today         show grid on current date, independent of daily/weekly display
 require-timed show grid only if at least one item has a time specification

The second item is a string which will be placed behind the grid time.

The third item is a list of integers, indicating the times that should have
a grid line.
(custom-declare-variable 'org-agenda-time-grid ''((daily today require-timed) "----------------" (800 1000 1200 1400 1600 1800 2000)) '(#$ . 28739) :group 'org-agenda-time-grid :type '(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"))))
(custom-declare-group 'org-agenda-sorting nil "Options concerning sorting in the Org-mode Agenda." :tag "Org Agenda Sorting" :group 'org-agenda)
#@1952 Sorting structure for the agenda items of a single day.
This is a list of symbols which will be used in sequence to determine
if an entry should be listed before another entry.  The following
symbols are recognized:

time-up         Put entries with time-of-day indications first, early first
time-down       Put entries with time-of-day indications first, late first
category-keep   Keep the default order of categories, corresponding to the
		sequence in `org-agenda-files'.
category-up     Sort alphabetically by category, A-Z.
category-down   Sort alphabetically by category, Z-A.
tag-up          Sort alphabetically by last tag, A-Z.
tag-down        Sort alphabetically by last tag, Z-A.
priority-up     Sort numerically by priority, high priority last.
priority-down   Sort numerically by priority, high priority first.
todo-state-up   Sort by todo state, tasks that are done last.
todo-state-down Sort by todo state, tasks that are done first.
effort-up       Sort numerically by estimated effort, high effort last.
effort-down     Sort numerically by estimated effort, high effort first.

The different possibilities will be tried in sequence, and testing stops
if one comparison returns a "not-equal".  For example, the default
    '(time-up category-keep priority-down)
means: Pull out all entries having a specified time of day and sort them,
in order to make a time schedule for the current day the first thing in the
agenda listing for the day.  Of the entries without a time indication, keep
the grouped in categories, don't sort the categories, but keep them in
the sequence given in `org-agenda-files'.  Within each category sort by
priority.

Leaving out `category-keep' would mean that items will be sorted across
categories by priority.

Instead of a single list, this can also be a set of list for specific
contents, with a context symbol in the car of the list, any of
`agenda', `todo', `tags' for the corresponding agenda views.
(custom-declare-variable 'org-agenda-sorting-strategy ''((agenda time-up priority-down category-keep) (todo priority-down category-keep) (tags priority-down category-keep) (search category-keep)) '(#$ . 30123) :group 'org-agenda-sorting :type (byte-code "\301\302\303\304F\305\303\306\307\310\302DE\307\311\302DE\307\312\302DE\257E\207" [org-sorting-choice choice repeat :tag "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)] 11))
#@380 Non-nil means, items without time are considered late.
This is only relevant for sorting.  When t, items which have no explicit
time like 15:30 will be considered as 99:01, i.e. later than any items which
do have a time.  When nil, the default time is before 0:00.  You can use this
option to decide if the schedule for today should come before or after timeless
agenda entries.
(custom-declare-variable 'org-sort-agenda-notime-is-late 't '(#$ . 32648) :group 'org-agenda-sorting :type 'boolean)
#@126 Non-nil means, items without effort estimate are sorted as high effort.
When nil, such items are sorted as 0 minutes effort.
(custom-declare-variable 'org-sort-agenda-noeffort-is-high 't '(#$ . 33151) :group 'org-agenda-sorting :type 'boolean)
(custom-declare-group 'org-agenda-line-format nil "Options concerning the entry prefix in the Org-mode agenda display." :tag "Org Agenda Line Format" :group 'org-agenda)
#@2358 Format specifications for the prefix of items in the agenda views.
An alist with four entries, for the different agenda types.  The keys to the
sublists are `agenda', `timeline', `todo', and `tags'.  The values
are format strings.
This format works similar to a printf format, with the following meaning:

%c   the category of the item, "Diary" for entries from the diary, or
       as given by the CATEGORY keyword or derived from the file name.
  %T   the *last* tag of the item.  Last because inherited tags come
       first in the list.
  %t   the time-of-day specification if one applies to the entry, in the
       format HH:MM
  %s   Scheduling/Deadline information, a short string

All specifiers work basically like the standard `%s' of printf, but may
contain two additional characters:  A question mark just after the `%' and
a whitespace/punctuation character just before the final letter.

If the first character after `%' is a question mark, the entire field
will only be included if the corresponding value applies to the
current entry.  This is useful for fields which should have fixed
width when present, but zero width when absent.  For example,
"%?-12t" will result in a 12 character time field if a time of the
day is specified, but will completely disappear in entries which do
not contain a time.

If there is punctuation or whitespace character just before the final
format letter, this character will be appended to the field value if
the value is not empty.  For example, the format "%-12:c" leads to
"Diary: " if the category is "Diary".  If the category were be
empty, no additional colon would be interted.

The default value of this option is "  %-12:c%?-12t% s", meaning:
- Indent the line with two space characters
- Give the category in a 12 chars wide field, padded with whitespace on
  the right (because of `-').  Append a colon if there is a category
  (because of `:').
- If there is a time-of-day, put it into a 12 chars wide field.  If no
  time, don't put in an empty field, just skip it (because of '?').
- Finally, put the scheduling information and append a whitespace.

As another example, if you don't want the time-of-day of entries in
the prefix, you could use:

(setq org-agenda-prefix-format "  %-11:c% s")

See also the variables `org-agenda-remove-times-when-in-prefix' and
`org-agenda-remove-tags'.
(custom-declare-variable 'org-agenda-prefix-format ''((agenda . "  %-12:c%?-12t% s") (timeline . "  % s") (todo . "  %-12:c") (tags . "  %-12:c") (search . "  %-12:c")) '(#$ . 33573) :type '(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")))) :group 'org-agenda-line-format)
#@108 The compiled version of the most recently used prefix format.
See the variable `org-agenda-prefix-format'.
(defvar org-prefix-format-compiled nil (#$ . 36461))
#@158 Format for the TODO keyword in agenda lines.
Set this to something like "%-12s" if you want all TODO keywords
to occupy a fixed space in the agenda display.
(custom-declare-variable 'org-agenda-todo-keyword-format '"%-1s" '(#$ . 36628) :group 'org-agenda-line-format :type 'string)
#@362 Text preceding timerange entries in the agenda view.
This is a list with two strings.  The first applies when the range
is entirely on one day.  The second applies if the range spans several days.
The strings may have two "%d" format specifiers which will be filled
with the sequence number of the days, and the total number of days in the
range, respectively.
(custom-declare-variable 'org-agenda-timerange-leaders ''("" "(%d/%d): ") '(#$ . 36917) :group 'org-agenda-line-format :type '(list (string :tag "Deadline today   ") (choice :tag "Deadline relative" (string :tag "Format string") (function))))
#@473 Text preceeding scheduled items in the agenda view.
This is a list with two strings.  The first applies when the item is
scheduled on the current day.  The second applies when it has been scheduled
previously, it may contain a %d indicating that this is the nth time that
this item is scheduled, due to automatic rescheduling of unfinished items
for the following day.  So this number is one larger than the number of days
that passed since this item was scheduled first.
(custom-declare-variable 'org-agenda-scheduled-leaders ''("Scheduled: " "Sched.%2dx: ") '(#$ . 37528) :group 'org-agenda-line-format :type '(list (string :tag "Scheduled today     ") (string :tag "Scheduled previously")))
#@287 Text preceeding deadline items in the agenda view.
This is a list with two strings.  The first applies when the item has its
deadline on the current day.  The second applies when it is in the past or
in the future, it may contain %d to capture how many days away the deadline
is (was).
(custom-declare-variable 'org-agenda-deadline-leaders ''("Deadline:  " "In %3d d.: ") '(#$ . 38229) :group 'org-agenda-line-format :type '(list (string :tag "Deadline today   ") (choice :tag "Deadline relative" (string :tag "Format string") (function))))
#@625 Non-nil means, remove duplicate time specifications in agenda items.
When the format `org-agenda-prefix-format' contains a `%t' specifier, a
time-of-day specification in a headline or diary entry is extracted and
placed into the prefix.  If this option is non-nil, the original specification
(a timestamp or -range, or just a plain time(range) specification like
11:30-4pm) will be removed for agenda display.  This makes the agenda less
cluttered.
The option can be t or nil.  It may also be the symbol `beg', indicating
that the time should only be removed what it is located at the beginning of
the headline/diary entry.
(custom-declare-variable 'org-agenda-remove-times-when-in-prefix 't '(#$ . 38777) :group 'org-agenda-line-format :type '(choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When at beginning of entry" beg)))
#@189 Default duration for appointments that only have a starting time.
When nil, no duration is specified in such cases.
When non-nil, this must be the number of minutes, e.g. 60 for one hour.
(custom-declare-variable 'org-agenda-default-appointment-duration 'nil '(#$ . 39633) :group 'org-agenda-line-format :type '(choice (integer :tag "Minutes") (const :tag "No default duration")))
#@57 Non-nil means, show inherited tags in each agenda line.
(custom-declare-variable 'org-agenda-show-inherited-tags 't '(#$ . 40020) :group 'org-agenda-line-format :type 'boolean)
#@180 Non-nil means, remove the tags from the headline copy in the agenda.
When this is the symbol `prefix', only remove tags when
`org-agenda-prefix-format' contains a `%T' specifier.
(custom-declare-variable 'org-agenda-remove-tags 'nil '(#$ . 40204) :group 'org-agenda-line-format :type '(choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "When prefix format contains %T" prefix)))
(byte-code "\300\301!\203�\301\302\303\"\210\300\207" [fboundp defvaralias org-agenda-remove-tags-when-in-prefix org-agenda-remove-tags] 3)
#@240 Shift tags in agenda items to this column.
If this number is positive, it specifies the column.  If it is negative,
it means that the tags should be flushright to that column.  For example,
-80 works well for a normal 80 character screen.
(custom-declare-variable 'org-agenda-tags-column '(if (featurep 'xemacs) -79 -80) '(#$ . 40749) :group 'org-agenda-line-format :type 'integer)
(byte-code "\300\301!\203�\301\302\303\"\210\300\207" [fboundp defvaralias org-agenda-align-tags-to-column org-agenda-tags-column] 3)
#@424 Non-nil means, highlight low and high priorities in agenda.
When t, the highest priority entries are bold, lowest priority italic.
This may also be an association list of priority faces, whose
keys are the character values of `org-highest-priority',
`org-default-priority', and `org-lowest-priority' (the default values
are ?A, ?B, and ?C, respectively). The face may be a names face,
or a list like `(:background "Red")'.
(custom-declare-variable 'org-agenda-fontify-priorities 't '(#$ . 41273) :group 'org-agenda-line-format :type '(choice (const :tag "Never" nil) (const :tag "Defaults" t) (repeat :tag "Specify" (list (character :tag "Priority" :value 65) (sexp :tag "face")))))
(custom-declare-group 'org-agenda-column-view nil "Options concerning column view in the agenda." :tag "Org Agenda Column View" :group 'org-agenda)
#@73 Non-nil means, show summaries for columns displayed in the agenda view.
(custom-declare-variable 'org-agenda-columns-show-summaries 't '(#$ . 42110) :group 'org-agenda-column-view :type 'boolean)
#@425 Non-nil means, remove the prefix from a headline for agenda column view.
The special ITEM field in the columns format contains the current line, with
all information shown in other columns (like the TODO state or a tag).
When this variable is non-nil, also the agenda prefix will be removed from
the content of the ITEM field, to make sure as much as possible of the
headline can be shown in the limited width of the field.
(custom-declare-variable 'org-agenda-columns-remove-prefix-from-item 't '(#$ . 42313) :group 'org-agenda :type 'boolean)
#@412 Non-nil means, recompute all summary properties before column view.
When column view in the agenda is listing properties that have a summary
operator, it can go to all relevant buffers and recompute the summaries
there.  This can mean overhead for the agenda column view, but is necessary
to have thing up to date.
As a special case, a CLOCKSUM property also makes sure that the clock
computations are current.
(custom-declare-variable 'org-agenda-columns-compute-summary-properties 't '(#$ . 42865) :group 'org-agenda-column-view :type 'boolean)
#@380 Non-nil means, the duration of an appointment will add to day effort.
The property to which appointment durations will be added is the one given
in the option `org-effort-property'.  If an appointment does not have
an end time, `org-agenda-default-appointment-duration' will be used.  If that
is not set, an appointment without end time will not contribute to the time
estimate.
(custom-declare-variable 'org-agenda-columns-add-appointments-to-effort-sum 'nil '(#$ . 43419) :group 'org-agenda-column-view :type 'boolean)
(require 'org)
#@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 (#$ . 43962)])
#@31 Keymap for `org-agenda-mode'.
(defvar org-agenda-mode-map (make-sparse-keymap) (#$ . 44336))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\304\"\210\310B\302\310!\204K�\303\310\304\"\210\304\207" [current-load-list org-agenda-follow-mode default-boundp set-default nil org-agenda-clockreport-mode org-agenda-show-log org-agenda-redo-command org-agenda-query-string] 3)
#@60 Hook for org-agenda-mode, run after the mode is turned on.
(defvar org-agenda-mode-hook nil (#$ . 44830))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list org-agenda-type default-boundp set-default nil org-agenda-force-single-file] 3)
#@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 "\306 \210\307\211\310\311\312\nD\313\f!L\210*\314\315,!\210\316-!\210.\203*�\317/\320\321\322\307\323$\210\320\324\325\307\323$\210\326\327!\203L�\327\330B\313\f!L\210*0\204\\�1234\3075\331\332\333\334\335\336\337N\203k�\340\202l�\341\342\336\337N?#\343D\344\345\336 \"\"#\210\346 \210\347\350\351!\203\212�\351\202\213�\352\353C\"\207" [org-agenda-undo-list org-agenda-pending-undo-list major-mode value var mode-name kill-all-local-variables nil org-agenda-mode font-lock-global-modes not make-variable-buffer-local "Org-Agenda" use-local-map easy-menu-add t org-add-hook post-command-hook org-agenda-post-command-hook local pre-command-hook org-unhighlight boundp buffer-substring-filters #[(x) "\301\302G\303$\210\207" [x set-text-properties 0 nil] 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 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-clockreport-mode org-agenda-clockreport-mode org-agenda-show-log] 10 (#$ . 45144) nil])
(byte-code "\303\304\305	$\210\306\307\310#\210\306\311\310#\210\306\312\313#\210\306\314\315#\210\306\316\317#\210\306\320\317#\210\306\321\317#\210\306\322\323#\210\306\324\325#\210\306\326\327#\210\306\330\331#\210\306\332\333#\210\306\334\335#\210\306\336\337#\210\306\340\337#\210\306\341\342#\210\306\343\344#\210\306\345\331#\210\306\346\347#\210\306\350\351#\210\306\352\351#\210\306\353\354#\210\306\355\356#\210\306\357\360#\210\306\361\362#\210\306\363\364#\210\306\365\366#\210\306\367\370#\210\306\371\370#\210\306\372\373#\210\306\374\373#\210\306\375\376#\210\306\377\201@�#\210\306\201A�\376#\210\306\201B�\201@�#\210\306\201C�\201D�#\210\306\201E�\201F�#\210\306\201G�\201H�#\210\201I�\n\203\306\201J�\n\211A@!\201K�#\210\202)\306\201L�\201M�#\210\306\201N�\201O�#\210\306\201P�\201Q�#\210\306\201R�\201S�#\210\306\201T�\201U�#\210\306\201V�\201W�#\210\306\201X�\201Y�#\210\306\201Z�\201Y�#\210\306\201[�\201\\�#\210\306\201]�\201^�#\210\306\201_�\201`�#\210\306\201a�\201b�#\210\306\201c�\201d�#\210\306\201e�\201d�#\210\306\201f�\201g�#\210\306\201h�\201i�#\210\306\201j�\201k�#\210\306\201l�\201m�#\210\306\201n�\201o�#\210\306\201p�\201q�#\210\306\201r�\201s�#\210\306\201t�\201u�#\210\306\201v�\201u�#\210\306\201w�\201x�#\210\306\201y�\201z�#\210\306\201{�\201|�#\210\306\201}�\201~�#\210\306\201�\201\200�#\210\306\201\201�\201\202�#\210\306\201\203�\201\202�#\210\306\201\204�\201\205�#\210\306\201\206�\201\205�#\210\306\201\207�\201\210�#\210\306\201\211�\201\210�#\210\306\201\212�\201\213�#\210\306\201\214�\201\213�#\210\306\201\215�\201\216�#\210\306\201\217�\201\216�#\210\306\201\220�\201\221�#\210\306\201\222�\201\223�#\210\306\201\224�\201\221�#\210\306\201\225�\201\223�#\210\306\201\226�\201\221�#\210\306\201\227�\201\223�#\210\306\201\230�\201\231�#\210\306\201\232�\201\233�#\210\306\201\234�\201\235�#\210\306\201\236�\201\237�#\210\306\201\240�\201\241�#\210\306\201\242�\201\243�#\210\306\201\244�\201\245�#\210\306\201\246�\201\247�#\210\306\201\250�\201\251�#\207" [org-agenda-mode-map global-map l substitute-key-definition undo org-agenda-undo org-defkey "	" org-agenda-goto [(tab)] "
" org-agenda-switch-to "" org-agenda-kill "$" org-agenda-archive "" "$" "A" org-agenda-archive-to-archive-sibling "" org-agenda-open-link " " org-agenda-show "" org-agenda-todo [(control shift right)] org-agenda-todo-nextset [(control shift left)] org-agenda-todo-previousset "b" org-agenda-tree-to-indirect-buffer "b" "o" delete-other-windows "L" org-agenda-recenter "t" "a" org-agenda-toggle-archive-tag ":" org-agenda-set-tags "" "." org-agenda-goto-today "j" org-agenda-goto-date "d" org-agenda-day-view "w" org-agenda-week-view "m" org-agenda-month-view "y" org-agenda-year-view "" org-agenda-add-note "z" "k" org-agenda-action "" [(shift right)] org-agenda-date-later [(shift left)] org-agenda-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 "l" org-agenda-log-mode "v" org-agenda-archives-mode "D" org-agenda-toggle-diary "G" org-agenda-toggle-time-grid "r" org-agenda-redo "g" "e" org-agenda-execute "q" org-agenda-quit "x" org-agenda-exit "" org-write-agenda "s" org-save-all-org-buffers "" "P" org-agenda-show-priority "T" org-agenda-show-tags "n" next-line "p" 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-priority-up "-" org-agenda-priority-down [(shift up)] [(shift down)] [3 24 (up)] [3 24 (down)] [(right)] org-agenda-later [(left)] org-agenda-earlier "" org-agenda-columns "[" 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] 5)
#@48 Local keymap for agenda entries from Org-mode.
(defvar org-agenda-keymap (copy-keymap org-agenda-mode-map) (#$ . 50974))
(byte-code "\302\303\304#\210\302\305\306#\210	\203�\302\307\310#\210\302\207" [org-agenda-keymap org-agenda-mouse-1-follows-link org-defkey [(mouse-2)] org-agenda-goto-mouse [(mouse-3)] org-agenda-show-mouse [follow-link] mouse-face] 4)
#@13 Agenda menu
(defvar org-agenda-menu nil (#$ . 51343))
(easy-menu-do-define 'org-agenda-menu org-agenda-mode-map "Agenda menu" '("Agenda" ("Agenda Files") "--" ["Show" org-agenda-show t] ["Go To (other window)" org-agenda-goto t] ["Go To (this window)" org-agenda-switch-to t] ["Follow Mode" org-agenda-follow-mode :style toggle :selected org-agenda-follow-mode :active t] ["Tree to indirect frame" org-agenda-tree-to-indirect-buffer t] "--" ["Cycle TODO" org-agenda-todo t] ("Archive" ["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]) ["Delete subtree" org-agenda-kill t] ["Add note" org-agenda-add-note t] "--" ["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)] "--" ("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]) ("Date/Schedule" ["Schedule" org-agenda-schedule t] ["Set Deadline" org-agenda-deadline t] "--" ["Mark item" org-agenda-action :active t :keys "k m"] ["Show mark item" org-agenda-action :active t :keys "k v"] ["Schedule marked item" org-agenda-action :active t :keys "k s"] ["Set Deadline for marked item" org-agenda-action :active t :keys "k d"] "--" ["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 Date to ..." org-agenda-date-prompt (org-agenda-check-type nil 'agenda 'timeline)]) ("Clock" ["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]) ("Priority" ["Set Priority" org-agenda-priority t] ["Increase Priority" org-agenda-priority-up t] ["Decrease Priority" org-agenda-priority-down t] ["Show Priority" org-agenda-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]) "--" ("View" ["Day View" org-agenda-day-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (equal org-agenda-ndays 1)] ["Week View" org-agenda-week-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (equal org-agenda-ndays 7)] ["Month View" org-agenda-month-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (member org-agenda-ndays '(28 29 30 31))] ["Year View" org-agenda-year-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (member org-agenda-ndays '(365 366))] "--" ["Include Diary" org-agenda-toggle-diary :style toggle :selected org-agenda-include-diary :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 Logbook entries" org-agenda-log-mode :style toggle :selected org-agenda-show-log :active (org-agenda-check-type nil 'agenda 'timeline)] ["Include archived trees" org-agenda-archives-mode :style toggle :selected org-agenda-archives-mode :active t] ["Include archive files" (org-agenda-archives-mode t) :style toggle :selected (eq org-agenda-archives-mode t) :active t :keys "C-u v"]) ["Write view to file" org-write-agenda t] ["Rebuild buffer" org-agenda-redo t] ["Save all Org-mode Buffers" org-save-all-org-buffers t] "--" ["Undo Remote Editing" org-agenda-undo org-agenda-undo-list] "--" ["Quit" org-agenda-quit t] ["Exit and Release Buffers" org-agenda-exit t]))
#@58 Non-nil means, allow remote undo from the agenda buffer.
(defvar org-agenda-allow-remote-undo t (#$ . 55888))
#@63 List of undoable operations in the agenda since last refresh.
(defvar org-agenda-undo-list nil (#$ . 56004))
#@75 Buffers that have already seen `undo-start' in the current undo sequence.
(defvar org-agenda-undo-has-started-in nil (#$ . 56119))
#@73 In a series of undo commands, this is the list of remaining undo items.
(defvar org-agenda-pending-undo-list nil (#$ . 56256))
#@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\203R�b\210n\203Z�\313\202[�\314\315\313`\"\\*	p rq\210 )\310\211!\"#$%&'(\316\211A@\211!\203\335�\211A@\203\201�rq\210\317)*>\204\271�B\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\"\203r&q\210\325 \210)!\203#r%q\210\325 \210)'(&\"%!\257\fB.\326!\210\327\330\331!#-\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 goto-line message "`%s' undone (buffer %s)" buffer-name entry buf line cmd rembuf pos buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline inhibit-read-only last-undo-buffer] 9 (#$ . 56390) 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 (#$ . 57756)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306 \"\210\307B\302\307!\204/�\303\307\306 \"\210\310B\302\310!\204>�\303\310\304\"\210\311B\302\311!\204M�\303\311\304\"\210\304\207" [current-load-list org-agenda-restrict default-boundp set-default nil org-agenda-restrict-begin make-marker org-agenda-restrict-end org-agenda-last-dispatch-buffer org-agenda-overriding-restriction] 3)
#@1222 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.

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 #[(arg &optional keys restriction) "\300\301\215\207" [exit (byte-code "\306	\307\306\310\311	\"\"p\312\313 !\306\211@\306\211AB\306\211CDE\204>�\314\315\316\306#\210\306FG\306\211\223\210H\306\211\223\210\314\317\320\306#\210pIJ\204Z�\321!\211D@JDAKE\204\244�K\203\244�\314\315\316\fC#\210K\322=\203\206�\323FG\324 \306\223\210H\325 \306\223\210\202\244�K\326=\203\244�\212\323F\327\323!\210G`\306\223\210H\330\323!\306\223\210)\331\332!\210\333J	\"\211\203\253\334
89\204\301�\335\334
8!\203\234\334
8A\336
8B\337
8C\314\317\320C#\210A\340=\203\346�\341C\342\"\202\307A\343=\203\365�\341C\344\"\202\307A\345=\203\341C\346\"\202\307A\347=\203\341C\350\"\202\307A\351=\203\"\341C\352\"\202\307A\353=\2031\341C\354\"\202\307A\355=\203@\341C\356\"\202\307A\357=\203R\360 \210\341C\361\"\202\307A\362=\203d\360 \210\341C\363\"\202\307A\364=\203v\360 \210\341C\365\"\202\307\335A!\203\205\341C\366\"\202\307\367A!\203\224\341C\370\"\202\307\371\372A\"\202\307\373
A@
\211LAA)\"\202\307J\374\232\203\272\n\375\301!\202\307J\376\232\203\311\377\201Q�!\202\307J\201R�\232\203\332\377\201S�!\202\307J\201T�\232\203\353\377\201U�!\202\307J\201V�\232\203\201U�M\206\377\201W�MNMO\377N!+\202\307J\201X�\232\203 \377\201Y�!\202\307J\201Z�\232\203D\201Y�M\2064\201[�MNMO\377N!+\202\307J\201\\�\232\203U\377\201]�!\202\307J\201^�\232\203\217P\201_�=\204m\371\201`�!\210K?\205\307\314\315\316\fC#\210\201a�MMNMO\377N!+\202\307J\201b�\232\203\240\377\201c�!\202\307J\201d�\232\203\261\377\201e�!\202\307J\201f�\232\203\302\375\201g�!\202\307\371\201h�!.\207" [prefix-descriptions org-agenda-custom-commands org-agenda-custom-commands-orig buf bfn entry nil delq mapcar #[(x) "A;\203\f�	B\302\207A@;\203�\207A@\204'�@\303\211AA)BB\207@\303ABB\207" [x prefix-descriptions nil ""] 4] buffer-file-name buffer-base-buffer put org-agenda-files org-restrict org-agenda-redo-command org-lprops org-agenda-get-restriction-and-command region t region-beginning region-end subtree org-back-to-heading org-end-of-subtree require calendar assoc 2 functionp 3 4 agenda org-let (org-agenda-list current-prefix-arg) alltodo (org-todo-list current-prefix-arg) search (org-search-view current-prefix-arg match nil) stuck (org-agenda-list-stuck-projects current-prefix-arg) tags (org-tags-view current-prefix-arg match) tags-todo (org-tags-view '(4) match) todo (org-todo-list match) tags-tree org-check-for-org-mode (org-tags-sparse-tree current-prefix-arg match) todo-tree (org-occur (concat "^" outline-regexp "[ 	]*" (regexp-quote match) "\\>")) occur-tree (org-occur match) (funcall type match) fboundp (funcall type match) error "Invalid custom agenda command type %s" org-run-agenda-series "C" customize-variable "a" call-interactively key type match lprops ans org-agenda-overriding-restriction org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end org-agenda-last-dispatch-buffer keys restriction x arg command current-prefix-arg major-mode org-agenda-list "s" org-search-view "t" org-todo-list "T" (4) "m" org-tags-view "M" (4) "e" org-store-agenda-views "L" 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 (#$ . 58425) "P"])
(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 \f\312
\313\211\313\211\313\211\313\211\313\211\313\211\314\213.\207" [bfn major-mode restrict-ok region-p org-agenda-custom-commands custom buffer-file-name buffer-base-buffer org-mode org-region-active-p #1="" nil ((byte-code "\306 \210\307\310!\210\311 \210\312c\210\313 `\314\223	\315=\203>�\316\317!\210\320\321\314\315#\210\322\225\323 |\210\317u\210\324\325!\210\322\225\323 |\210\322\225\314\223\210b\210`d|\210\n\211A@\211\2033\f@\fA@@\326\f8A\327\f8B
G\317V\203r�\330\331\332
!\"\210\202E�\333\334\335\336
!\337\"\340\341@\"\203\207�@\202A\342=\203\222�\343\202A\344=\203\235�\345\202A\346=\203\250�\347\202A\350=\203\263�\351\202A\352=\203\276�\353\202A\354=\203\311�\355\202A\356=\203\324�\357\202A\360=\203\337�\361\202A\362=\203\352�\363\202A\364=\203\365�\365\202\366A!\203
A9\203	\367A!\202\370\202\371B;\203\335B\314\372\373$\202-B\203,\333\374BG\"\202-\375$c\210\202E�\203>\376\377\"\210eb\210C\203V\201K�d!\204^\201L� \210\202^\315C\201L� \210\201M�\201N�D\204nE\203\216E\203y\201O�\202\217F\203\210\333\201P�F\"\202\217\201Q�\202\217\375\"\210\201R� G\201M�\375!\210\201S�\201T�G!	\"\203\306H\201T�G!PH\201U�\201V�HFB\"\210\202�G>\203\364H\201T�G!PH\314\206\341\315\201W�\314\201X�\201Y�	\"\"\211\202�D\204G\201Z�>\203\201M�\201[�!\210\201\\� \210\201]�\317!\210\202�G\201^�=\2031\201_�\201`�!\210\201a�F\202�G\201b�=\203U\201_�\201`�!\210I\203M\201c�\202P\201d�F\202�G\201e�=\203\225\201_�\201`�!\210F\201a�=\203\200I\203z\201c�\202\220\201d�\202\220F\201f�>\203\215\314\202\220\201a�F\202�G\201g�=\203\254\201_�\201`�!\210\314F\202�H\375\232\203\323G\201h�>\203\323\201U�\201V�\201T�G!\211HFB\"\210\202�HG\322V\203\363G\201i�=\203\363\201j� \210\201k�J!\210\202�G\201l�\232\203\201m�\201n�!\210\202�\201m�\201o�G\"\210\202�" [header-end custom custom1 rmheader entry key delete-other-windows org-switch-to-buffer-other-window " *Agenda Commands*" erase-buffer #("\nPress 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\nL   Timeline for current buffer         #   List stuck projects (!=configure)\ns   Search for keywords                 C   Configure custom agenda commands\n/   Multi-occur\n" 41 42 (face bold) 120 121 (face bold) 143 144 (face bold) 183 184 (face bold) 207 208 (face bold) 247 248 (face bold) 281 282 (face bold) 321 322 (face bold) 355 356 (face bold) 395 396 (face bold) 420 421 (face bold) 433 434 (face bold) 473 474 (face bold) 510 511 (face bold)) make-marker nil t goto-line 1 re-search-forward ":" 0 point-at-eol looking-at "-+" 2 3 add-to-list prefixes string-to-char format "\n%-4s%-14s: %s" 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" "???" face org-warning "set of %d commands" #1# mapc #[(x) "\303\304\305\306!\307\310\311$\312	\306!P\n\"A\206�\313#c\207" [x selstring prefix-descriptions format "\n%s   %s" org-add-props char-to-string nil face bold assoc "Prefix key"] 7] desc type match second-time restrict-ok org-agenda-overriding-restriction restriction c selstring region-p prefix-descriptions 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] (49 48 60) "Restriction is only possible in Org-mode buffers" ding sit-for 49 org-agenda-remove-restriction-lock noupdate buffer 48 region subtree 60 (subtree region) 62 (115 97 116 109 76 67 101 84 77 35 33 47) 127 delete-window org-agenda-get-restriction-and-command 113 error "Abort" "Invalid key %c"] 10)) selstring restriction second-time c entry key type match prefixes rmheader header-end custom1 desc] 3)] 2 (#$ . 63290)])
(defalias 'org-run-agenda-series #[(name series) "\306!\210\307\310\311\nDE\n@\nA@\312\211!\"\312\211#$\f\211A@\211\"\203\313�\"@#\"A@!\313\"8$#\314=\203M�\315
$\316#\210\202 �#\317=\203^�\315
$\320#\210\202 �#\321=\203o�\315
$\322#\210\202 �#\323=\203\200�\315
$\324#\210\202 �#\325=\203\221�\315
$\326#\210\202 �#\327=\203\242�\315
$\330#\210\202 �#\331=\203\263�\315
$\332#\210\202 �\333#!\203\304�\315
$\334#\210\202 �\335\336!\210\202 �~\210%eb\210.\337\nA@\340\"\207" [name org-agenda-multi series redo cmds gprops org-prepare-agenda t org-run-agenda-series quote nil 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" org-let (org-finalize-agenda) match cmd type lprops org-agenda-redo-command] 5])
#@355 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.
Paramters are alternating variable names and values that will be bound
before running the agenda command.
(defalias 'org-batch-agenda '(macro . #[(cmd-key &rest parameters) "\304	\203�	\211A@	\205�	\211A@DB\202�\nG\305V\2030�\306\307\237\310\304\nEE!\210\202;�\306\307\237\311\304\nEE!\210q\210\312\313\314 !!)\207" [pars parameters cmd-key org-agenda-buffer-name nil 2 eval let org-tags-view org-agenda princ org-encode-for-stdout buffer-string] 6 (#$ . 69095)]))
(defalias 'org-encode-for-stdout #[(string) "\302\303!\203�\303	\"\207\207" [string buffer-file-coding-system fboundp encode-coding-string] 3])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-agenda-info default-boundp set-default nil] 3)
#@1695 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.
Paramters 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) "\306	\203�	\211A@	\205�	\211A@DB\202�\307\310DB\nG\311V\2036�\312\313\237\314\306\nEE!\210\202A�\312\313\237\315\306\nEE!\210q\210\316\317 \320\"\306\f\211A@\211\205]�\321\322\215\210\202L�+\207" [pars parameters cmd-key org-agenda-buffer-name lines line nil org-agenda-remove-tags t 2 eval let org-tags-view org-agenda org-split-string buffer-string "\n" next (byte-code "\302\303\304#\204
�\305\306\307\"\210\310\311\303\"!\312\313\314\315\316\317#!!\210\312\320!\207" [line org-agenda-info get-text-property 0 org-category throw next nil org-fix-agenda-info text-properties-at princ org-encode-for-stdout mapconcat org-agenda-export-csv-mapper (org-category txt type todo tags date time-of-day extra priority-letter priority agenda-day) "," "\n"] 6)] 6 (#$ . 70106)]))
#@109 Make sure all properties on an agenda item have a canonical form,
so 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 (#$ . 72671)])
(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	\307\211\211\211\211\211\n\f
\203:�\211A@\2051�\211A@DB\202�\310!\311\213.	\207" [org-agenda-custom-commands default-directory cmd-or-set opts files thiscmdkey org-agenda-normalize-custom-commands nil reverse ((byte-code "\205y�\211A@\211@\306	8\211<\203�\307\202�\310	8<\203'�\310\202(�\311	8\211;\2033�
C
\203��\312\313\314\f#\315\316\nEE!\210q\210
\203j�\312\313\314\f#\317\320
\211A@\"\321EE!\210\202K�\322!\203��\323!\210\202��\207" [cmds cmd thiscmdkey cmd-or-set opts files 2 3 4 5 eval let append org-agenda nil org-write-agenda expand-file-name t get-buffer kill-buffer org-agenda-exporter-settings pars org-agenda-buffer-name dir] 8)) cmd pars dir pop-up-frames cmds parameters] 9 (#$ . 74010)]))
#@552 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.
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.
(defalias 'org-write-agenda #[(file &optional nosettings) "\304!\204�\305\306\"\210\307\310\"\203�\311\312!\210\202$�\307\313\"\203$�\311\314!\210\315	?\205+�\n\316q#\207" [file nosettings org-agenda-exporter-settings org-agenda-buffer-name file-writable-p error "Cannot write agenda to file %s" string-match "\\.html?\\'" require htmlize "\\.ps\\'" ps-print 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 (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)))) (cond ((string-match "\\.html?\\'" file) (set-buffer (htmlize-buffer (current-buffer))) (when (and org-agenda-export-html-style (string-match "<style>" 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) (ps-print-buffer-with-faces file) (message "Postscript written to %s" file)) ((string-match "\\.ics\\'" file) (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))))))))] 4 (#$ . 74926) "FWrite agenda to file: "])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-agenda-filter-overlays default-boundp set-default nil] 3)
#@57 Mark all text hidden by filtering with a text property.
(defalias 'org-agenda-mark-filtered-text #[nil "\302\303\304	\")\207" [inhibit-read-only org-agenda-filter-overlays t mapc #[(o) "\301!p\232\205�\302\303!\304!\305\306$\207" [o org-overlay-buffer put-text-property org-overlay-start org-overlay-end org-filtered t] 5]] 3 (#$ . 77426)])
#@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 (#$ . 77778)])
#@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\"\206�d|\210\202�)\207" [beg value property nil t text-property-any next-single-property-change org-filtered] 5 (#$ . 77972)])
#@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 get-text-property org-hd-marker org-marker beginning-of-line 2] 3 (#$ . 78295)])
#@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\203I�\307\n!\310\311\312\n!!\206$�\312\n!!\313\f\"\211\203@�\307\n!		AB\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=#:--cl-arg1--] 5 (#$ . 78606)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-agenda-marker-table default-boundp set-default nil] 3)
#@51 Check of the current entry is on the marker list.
(defalias 'org-check-agenda-marker-table #[nil "\304\305 \206�p!\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 (#$ . 79256)])
#@57 Make sure current buffer is in org-mode.  Error if not.
(defalias 'org-check-for-org-mode #[nil "\301=\206\n�\302\303\"\207" [major-mode org-mode error "Cannot execute org-mode agenda command on buffer in %s."] 3 (#$ . 79689)])
#@36 Fit the window to the buffer size.
(defalias 'org-fit-agenda-window #[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 (#$ . 79925)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\304\"\210\310B\302\310!\204<�\303\310\304\"\210\311B\302\311!\204K�\303\311\304\"\210\312B\302\312!\204Z�\303\312\304\"\210\304\207" [current-load-list org-agenda-multi default-boundp set-default nil org-agenda-buffer-name "*Org Agenda*" org-pre-agenda-window-conf org-agenda-columns-active org-agenda-name org-agenda-filter] 3)
(defalias 'org-prepare-agenda #[(&optional name) "\306\211\306\2034�\306db\210o\204-�
\204-�\307 ;\203#� \202)�\310\311  \"\307\261\210`d}\210\202\327�\312 \210\306\211!\"\313\314\306\315\"!\210\316!\316	!\317#!$\320$!%p$\232\204\260�%\203l�\321%!\210\202\260�\322 \211&\203\260�'\323\232\203\203�\324$!\210\202\260�'\325\232\203\222�\326$!\210\202\260�'\327\232\203\241�\330$!\210\202\260�'\331\232\203\260�\332 \210\326$!\210*\306\333(\334 \210)\335 \210)\203\327�\204\327�\336)*+\337+!*L\210*\306\211\207" [org-todo-keywords-for-agenda org-done-keywords-for-agenda org-agenda-filter org-agenda-multi buffer-read-only org-agenda-compact-blocks nil "\n" make-string window-width org-agenda-reset-markers org-prepare-agenda-buffers org-agenda-files ifmode org-uniquify get-buffer-create get-buffer-window select-window current-window-configuration current-window switch-to-buffer other-window org-switch-to-buffer-other-window other-frame switch-to-buffer-other-frame reorganize-frame delete-other-windows t erase-buffer org-agenda-mode org-agenda-name make-variable-buffer-local org-agenda-block-separator org-agenda-contributing-files org-agenda-columns-active org-agenda-buffer-name abuf awin org-pre-agenda-window-conf org-agenda-window-setup inhibit-read-only name value var] 5])
#@74 Finishing touch for the agenda buffer, called just before displaying it.
(defalias 'org-finalize-agenda #[nil "?\205n�\212\306eb\210\307d!\203�\310\311\224\311\225\312#\210\202�\313 \210\n\204)�\314ed\315#\210)\316\303!\203?�\203?�\303\317
!\fL\210*\316\320!\203M�\203M�\321 \210\203U�\322 \210\203b�\203b�\323 \210\324\325!\210\326`\327\"\211)\207" [org-agenda-multi inhibit-read-only org-agenda-with-colors org-agenda-overriding-columns-format value var t org-activate-bracket-links add-text-properties 0 (face org-link) org-agenda-align-tags remove-text-properties (face nil) boundp make-variable-buffer-local org-agenda-view-columns-initially org-agenda-columns org-fontify-priorities org-agenda-dim-blocked-tasks run-hooks org-finalize-agenda-hook get-text-property org-agenda-type org-agenda-fontify-priorities org-blocker-hook] 4 (#$ . 82031)])
#@54 Make highest priority lines bold, and lowest italic.
(defalias 'org-fontify-priorities #[nil "\306\307\310ed\"\"\210\212\311\312\211\211\211\211\211eb\210\313\314\312\311#\205v�\315`\316\"\206,�\315`\317\"\2066�\320\321\322!!\323\224\324 \325
\f\"\326\n\327<\203Z�\330\"A\202k�\232\203d�\331\202k�	\232\205k�\332#\210\326\n\333\334#\210\202�.\207" [l h ov p e b mapc #[(o) "\301\302\"\303=\205\f�\304!\207" [o org-overlay-get org-type org-priority org-delete-overlay] 3] org-overlays-in t nil re-search-forward "\\[#\$.\$\\]" get-char-property org-highest-priority org-lowest-priority string-to-char match-string 1 0 point-at-eol org-make-overlay org-overlay-put face assoc italic bold org-type org-priority inhibit-read-only org-agenda-fontify-priorities] 7 (#$ . 82907) nil])
#@53 Dim currently blocked TODO's in the agenda display.
(defalias 'org-agenda-dim-blocked-tasks #[nil "\306\307\310ed\"\"\210\212\311\312\313=\312\211\211\211\211\211!\"#$eb\210\314`\315\"\211%\2052�%Tb)\205\224�\316`\317\"\211&\203\220�r\320&!q\210\212&b\210\321\322\323\324\325&\326\327\330\331\257\"*\204\220�\"\203j�e`S]\202k�`!\332 \333!
\"\"\203\204�\334\313\311#\210\202\212�\334\335\336#\210\334\337\340#\210)\202$�.\n\207" [org-agenda-dim-blocked-tasks l h ov p e mapc #[(o) "\301\302\"\303=\205\f�\304!\207" [o org-overlay-get org-type org-blocked-todo org-delete-overlay] 3] org-overlays-in t nil invisible next-single-property-change todo-state get-text-property org-hd-marker marker-buffer run-hook-with-args-until-failure org-blocker-hook :type todo-state-change :position :from todo :to done point-at-eol org-make-overlay org-overlay-put face org-agenda-dimmed-todo-face org-type org-blocked-todo b invis org-depend-tag-blocked inhibit-read-only pos marker] 11 (#$ . 83723)])
#@543 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.  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.
(defvar org-agenda-skip-function nil (#$ . 84745))
#@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\211\203!�\f\204!�\310\n\311\"\203!�\312\313!\203!�\314\315\313\"\210
\2037�\310\n\316\"\2037�\312\313!\2037�\314\315\313\"\210\nf\317\232\203C�\314\315\313\"\210\320!\211\204R�:\205t�\212\321 \322\216\203c� \202g�\323!+\211\205t�	b\210\314\315\313\"+\207" [fp to p org-agenda-skip-archived-trees org-agenda-archives-mode org-agenda-skip-comment-trees point-at-bol nil get-text-property :org-archived org-end-of-subtree t throw :skip :org-comment 35 functionp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) eval org-agenda-skip-function save-match-data-internal] 3 (#$ . 85345)])
#@63 List of all currently active markers created by `org-agenda'.
(defvar org-agenda-markers nil (#$ . 86183))
#@42 Creation time of the last agenda marker.
(defvar org-agenda-last-marker-time (byte-code "\300\301 !\207" [time-to-seconds current-time] 2) (#$ . 86296))
#@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) "\304\206�`!\305\306 !	B	)\207" [pos m org-agenda-last-marker-time org-agenda-markers copy-marker time-to-seconds current-time] 2 (#$ . 86456)])
#@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 (#$ . 86779)])
#@47 Save relative positions of markers in region.
(defalias 'org-agenda-save-markers-for-cut-and-paste #[(beg end) "\301\302\"\207" [org-agenda-markers mapc #[(m) "\303	\n#\207" [m beg end org-check-and-save-marker] 4]] 3 (#$ . 86952)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-agenda-only-exact-dates default-boundp set-default nil] 3)
#@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 include-all) "\306\307!\210\310\311!\210\312\311!\210\313	
@\314 A\315 \203#�\316 \202$�eB\315 \2030�\317 \2021�dC\320BC\321\313\fD&E\322F\313G\323\324 !H\313I\325\211JK\325\211LM\325\211NO\325P\326\327pD\330\331	DDEQ\204�\332\325\333\334E\"\"E\335\336\337
!P!\210\f\203\221�\340JBJ\341JBJ\342JBJ\343JBJ\344JBJ\n\203\263�\345JBJE\211AE@\211N\203\251N<\203\345�N@\346=\203\345�`K\347\350NA\"c\210\351K`S\352\353$\210\202\263�N<\203\366�N@N\313O\202\371�\325ONHY\203\203I\203\325I\354\355\356\"\357\261\210\360N!A\361A!P`KO?\2053\362\363@AJ$\211M\204FNH\232\204FD\203\263�R;\203W\364R\365A!\"\202\\RA!\357\261\210\351K`S\352PS\235\203r\366\202s\367$\210\351K`S\370\313$\210NH\232\203\217\351K`S\371\313$\210M\203\234\372M!\357\261\210\351K`S\373N$\210\202\263�eb\210\374ed\371\313$\206\266eb\210\375ed\376#\210\377 \210\313\211T.\207" [dopast include-all dotodo org-agenda-show-log doclosed buffer-file-name require calendar org-compile-prefix-format timeline org-set-sorting-strategy t calendar-current-date org-region-active-p region-beginning region-end org-get-all-dates no-ranges 0 time-to-days current-time nil progn org-switch-to-buffer-other-window org-timeline quote delq mapcar #[(x) "	Y\205�\207" [x today] 2] org-prepare-agenda "Timeline " file-name-nondirectory :closed :timestamp :deadline :scheduled :sexp :todo :omitted format "\n[... %d empty days omitted]\n\n" put-text-property face org-agenda-structure make-string 79 45 "\n" calendar-gregorian-from-absolute calendar-day-of-week apply org-agenda-get-day-entries format-time-string org-time-from-absolute org-agenda-date-weekend org-agenda-date org-date-line org-today org-finalize-agenda-entries day text-property-any add-text-properties (org-agenda-type timeline) org-finalize-agenda entry date beg 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 wd org-agenda-redo-command org-agenda-format-date org-agenda-weekend-days buffer-read-only] 8 (#$ . 87338) "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\202�P\307\211\211\211\211\211\211\211\2037�\310\311 !C\212b\210\312\313#\203c�\310\314\315\316!\317\320O!!\211>\204<�B\202<�\204\260�b\210\312 \313#\203\260�\315\316!\317\320O\315\321!\317\320O\310\314
!!\310\314\f!!T\211W\203l�>\204\222�B\202\222�\322\323\"!\203\"\211A@\211\203@B\203\274�!\203\274�!\313=\204\367�!\247\203Z!X\203T\211W\203\274�CB\202\367�\324ZBB\202\274�\237.\n\207" [pre-re inactive org-ts-regexp-both org-ts-regexp ts2 ts1 "" nil time-to-days current-time re-search-forward t org-time-string-to-time match-string 1 0 10 2 sort < :omitted day2 day1 day date dates1 dates re force-today beg end no-ranges org-tr-regexp empty] 10 (#$ . 89819)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list org-agenda-overriding-arguments default-boundp set-default nil org-agenda-start-day] 3)
#@50 The arguments of the previous call to org-agenda
(defvar org-agenda-last-arguments nil (#$ . 91365))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\304\"\210\304\207" [current-load-list org-starting-day default-boundp set-default nil org-agenda-span org-include-all-loc org-agenda-remove-date] 3)
#@732 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 one \[universal-argument] prefix argument INCLUDE-ALL,
all unfinished TODO items will also be shown, before the agenda.
This feature is considered obsolete, please use the TODO list or a block
agenda instead.

With a numeric prefix argument in an interactive call, the agenda will
span INCLUDE-ALL days.  Lisp programs should instead specify NDAYS to change
the number of days.  NDAYS defaults to `org-agenda-ndays'.

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 include-all start-day ndays) "\250\203�\306V\203�\307	\206�\n\206�\f
\203*�
@
A@\310
8;\2037�\311\312\307\313#!	E@\314\315!\210\316\315!\210\317\320!\210	\321\232\204Z�	?\205\\�\n\321\232\205\\�AA\322\307\323\"\211BC\311\324\325 \306D\326_\306E\"!E\206|�EFA\203\211�\n\321W\203\216�F\202\264�\327\330F!!GAHGHZIFI\306W\203\256�\321\202\257�\306I\\Z+\211JCK\306LM?N\307\211OP\307\211QR\307\211ST\307\211IU\307\211VW\307\211XY\307\211Z[\331\332D	F\\	\206\372�\n\211X	\333V\203K@TKBK	S\211\202\377�K\237\211K@ZK]\334]!@)\206+\306T[\335\336!\210\337K@^_\340_!^L\210*\341^_\340_!^L\210*\342\343X!^_\340_!^L\210*\204m`\203\251EK\235\203\251BC\307RC\211AC@\211S\203\220\344\345\215\210\202|R\203\251\346c\210\347e`S\350\351D#\210\352R!\353\261\210a\204
K@bK]\334]!@)c\354b!d\354c!e`O\355\356\343X!!!\357cbZ\360W\203\373deU\203\361\361\362d\"\202\374\361\363de#\202\374\364\365\261\210,\347O`S\350\351\366\313F#\210K\211AK@\211I\203\330I!T\327T!Y`OIEU\211W\204AU\204GIFU\203G`U\202TU\203TV\204T`VBC\307RC\211AC@\211S\203o\344\367\215\210\202[f\203\206\317\370!\210\371T!Q\372RQ\"RR\204\220g\203
LTLh;\203\246\373h\374T!\"\202\253hT!\353\261\210\375O`S\350Yi\235\203\301\376\202\302\377$\210\375O`S\366\313$\210\375O`S\201o�L$\210W\203\351\375O`S\201p�\313$\210R\203\376\352\201q�RXW#!\353\261\210\375O`S\201r�I$\210\375O`S\201o�L$\210\202
j\203pZ\203p\322\307\323\"k\307lm\201s�m\201t�\"m\201u�m\201v�Z#m\201u�m\201w�[#m\201u�m\201x�\315#m\201y�\201z�m\"\211lc\210+eb\210\201{� \210\201|�e!\203\210\201|�d!\204\257dSb\210\201}�\201~�!\210\201|�U\206\235\333!\204\257U\206\247\333b\210\201}�\333!\210U\206\265\333b\210\347ed\201�#\210\201\200� \210\313n\201\201�\364!.\207" [include-all ndays org-agenda-ndays start-day org-agenda-start-day org-agenda-overriding-arguments 0 nil 2 time-to-days org-read-date t org-compile-prefix-format agenda org-set-sorting-strategy require calendar 7 org-agenda-files ifmode time-subtract current-time 3600 calendar-day-of-week calendar-gregorian-from-absolute org-agenda-list quote 1 last org-prepare-agenda "Day/Week" org-starting-day make-variable-buffer-local org-include-all-loc org-agenda-span org-agenda-ndays-to-span nextfile (byte-code "\305!\210\306	!\307\n\310#\311\f\"\305\207" [file today date rtn rtnall org-check-agenda-file calendar-gregorian-from-absolute org-agenda-get-day-entries :todo append] 4) "ALL CURRENTLY OPEN TODO ITEMS:\n" add-text-properties face org-agenda-structure org-finalize-agenda-entries "\n" org-days-to-iso-week capitalize symbol-name "-agenda" 350 format " (W%02d)" " (W%02d-W%02d)" "" ":\n" org-date-line (byte-code "\305!\210	\306=\203�\307\n\310#\202/�	\203%�\307\n\311\312\313\314\310&\202/�\307\n\311\312\314\313&\315\f\"\305\207" [file org-agenda-show-log date rtn rtnall org-check-agenda-file only org-agenda-get-day-entries :closed :deadline :scheduled :timestamp :sexp append] 8) diary-lib org-get-entries-from-diary append format-time-string org-time-from-absolute put-text-property org-agenda-date-weekend org-agenda-date org-agenda-last-arguments org-agenda-start-on-weekday thefiles files org-extend-today-until today sd nt n1 d start day-numbers day-cnt debug-on-error inhibit-redisplay s e rtn rtnall file date start-pos end-pos todayp nd wd clocktable-start clocktable-end org-agenda-redo-command list value var org-agenda-include-all-todo org-agenda-compact-blocks d1 d2 w1 w2 org-agenda-include-diary org-agenda-show-all-dates org-agenda-format-date org-agenda-weekend-days org-agenda-clockreport-mode org-agenda-clockreport-parameter-plist tbl p buffer-read-only org-day-cnt org-today org-agenda-add-time-grid-maybe day org-plist-delete :block plist-put :tstart :tend :scope apply org-get-clocktable org-fit-agenda-window pos-visible-in-window-p recenter -1 (org-agenda-type agenda) org-finalize-agenda message] 8 (#$ . 91785) "P"])
(defalias 'org-agenda-ndays-to-span #[(n) "\301W\203�\302\207\301U\203�\303\207\304W\203�\305\207\306\207" [n 7 day week 32 month year] 2])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list org-agenda-search-history default-boundp set-default nil org-todo-only] 3)
#@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 (#$ . 96993))
(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])
#@1297 Show all entries that contain words or regular expressions.
If the first character of the search string is an asterisks,
search only the headlines.

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 is broken into "words" by splitting at whitespace.
The individual words are then interpreted as a boolean expression with
logical AND.  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 and the words are enclosed by word delimiters.

Words enclosed by curly braces are interpreted as regular expressions
that must or must not match in the entry.

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.

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) "\306\307!\210\310\307!\210\311\312!\210\313\314\315\316\300\301	\302\n\317\320\321\322\323\324!\257\314\211=\314\211>?\314\211@A\314\211BC\314\211DE\314\211FG\314\211HI\314\211JK\314\211LM\314\211NO\314\211PQ\314RS\204x�T;\203x�\325\326T\"\204\223�\327\330S\250\203\210�TSB\202\217�S\205\217�T\331#T\332UVW\333W!VL\210*\334U\205\252�\335T\336FXTY\337T!\340\232\203\312�\335OT\341\314OL\202\316�TL\337L!\342\232\203\341�\335UL\341\314OL\343L!L\344\345L\"\210\346M\347\"\211M\204�\350ZP\202M\211AM@O\203\350Z\351
R\352\314\353\"?[@\354=\2030[\210[A[\355?!?\356?[\"?\314>?\211A?@\211@\203_\314H\357\360\215\210H\237=\356>=\">\202;\\\203t\361\362\\!\314\313\363$\364\261\210\202\250\365c\210\366e`S\313\363D#\210`AT\364\261\210\366A`S\313\367D#\210`A]\204\250\370c\210\366A`S\313\363D#\210>\203\265\371>!\364\261\210eb\210\372 \210\366ed\373#\210\374 \210\335\211^.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp org-agenda-keymap props regexp org-compile-prefix-format search org-set-sorting-strategy org-prepare-agenda "SEARCH" face nil done-face org-done mouse-face highlight keymap help-echo format "mouse-2 or RET jump to location" string-match "\\S-" read-string "[+-]Word/{Regexp} ...: " org-agenda-search-history org-todo-only make-variable-buffer-local org-search-view t (if current-prefix-arg 1 nil) string-to-char 42 1 33 org-split-string mapc #[(w) "\306!\211\307\232\203�\310\311\312O\202&�	\313\232\203$�\312\311\312O\202&�\312\314\315\"\2035�\311\316O\202=�\317\320\227!\321Q\n\203G�\fB\211\207
B\211\207" [w c neg re regexps- regexps+ string-to-char 45 t 1 nil 43 string-match "\\`{.*}\\'" -1 "\\<" regexp-quote "\\>"] 4] 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=\204:�\311\322\"\210\323\212\214 \203M�!\"}\210\202O�~\210eb\210\324 \204a�\325 \204a�\326\327\323\"\210e`S]b\210\330#\331\323#\203\214�\332\323!\210\333\331w\210\334 $`%\325 \210`&\335\336\215\210\202g�.\331\207" [file buffer rtn #1=#:buffer #2=#:table major-mode 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 org-mode "Agenda file %s is not in `org-mode'" t org-on-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*�\315PB\202,�\"\210b\210\316`!\317  \320`!!\321\322\307\"\311 \" !$#\323#$\324\325\326\327\330\331\332 \333\334&\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 org-get-tags-at org-format-agenda-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 tags beg1 txt props ee] 17) case-fold-search org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end regexp beg beg1 end] 5) org-add-props copy-sequence org-agenda-structure "\n" "Search words: " add-text-properties org-warning "Press `[', `]' to add/sub word, `{', `}' to add/sub regexp, `C-u r' to edit\n" org-finalize-agenda-entries org-fit-agenda-window (org-agenda-type search) org-finalize-agenda rtn rtnall files file pos marker category tags c neg re ee txt beg end words regexps+ regexps- hdl-only buffer beg1 str edit-at string todo-only value var org-agenda-redo-command org-agenda-query-string org-outline-regexp org-agenda-text-search-extra-files org-agenda-overriding-header org-agenda-multi buffer-read-only] 18 (#$ . 97429) "P"])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list org-select-this-todo-keyword default-boundp set-default nil org-last-arg] 3)
#@300 Show all 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 #[(arg) "\306\307!\210\310\311!\210\312\311!\210\313\314!\210\315\316 !\317!\n\320
;\203&�
\2029�
\2059�
\250\2059�
\321V\2059�
S8/\322\21101\322\21123\3224
\323\232\203[�\324\325\326\327\"\322\211$/
\321\232\203d�\322/\330
56\3316!5L\210*\3327\333\322\334\"2\32212\211A2@\2113\203\223�\335\336\215\210\202�8\203\250�\337\3408!\322\341\342$\343\261\210\202\357�\344c\210\345e`S\341\342D#\210`4/\206\275�\346\343\261\210\3454`S\341\347D#\210`49\204\345�\350c\210\321\322:;\351\352\"\210*\343c\210\3454`S\341\342D#\2101\203\374�\3531!\343\261\210eb\210\354 \210\345ed\355#\210\356 \210\320\211<.\n\207" [today date org-todo-keywords-for-agenda kwds completion-ignore-case arg require calendar org-compile-prefix-format todo org-set-sorting-strategy org-prepare-agenda "TODO" time-to-days current-time calendar-gregorian-from-absolute t 0 nil (4) org-ido-completing-read "Keyword (or KWD1|K2D2|...): " mapcar list org-last-arg make-variable-buffer-local (org-todo-list (or current-prefix-arg org-last-arg)) org-agenda-files 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 "ALL" org-warning "Available with `N r': (0)ALL" mapc #[(x) "\303\304T\211	#\305i\306\n!\307#\310 V\203�\311c\210\312\n\261\207" [n x s format "(%d)%s" + string-width 1 frame-width "\n                     " " "] 4] org-finalize-agenda-entries org-fit-agenda-window (org-agenda-type todo) org-finalize-agenda org-select-this-todo-keyword rtn rtnall files file pos value var org-agenda-redo-command org-agenda-overriding-header org-agenda-multi s n buffer-read-only] 6 (#$ . 103313) "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) "\306\307!\210\310\307!\210\203�\311\202�	\311\312\211\312\211$\312\211%&\312'\313(!\211&@(&A&\314\315(P!\210(\316\317D\320\321\312\322FE)\323\312\324\"\312
\211A@\211$\203e�\325\326\215\210\202S�*\203z�\327\330*!\312\331\332$\333\261\210\202\256�\334c\210\335e`S\331\332D#\210`%(\333\261\210\335%`S\331\336D#\210`%+\204\244�\337c\210\335%`S\331\332D#\210\f\203\271�\340\f!\333\261\210eb\210\341 \210\335ed\342#\210\343 \210\311\211,.	\207" [todo-only org-tags-match-list-sublevels completion-ignore-case rtn rtnall files org-compile-prefix-format tags org-set-sorting-strategy t nil org-make-tags-matcher org-prepare-agenda "TAGS " org-tags-view quote if current-prefix-arg org-agenda-query-string org-agenda-files ifmode nextfile (byte-code "\306!\210\307!\203�\310!\202�\311\312\"\211\204'�\313\314\"C\315\n\"\202U�r	q\210\f\316=\2046�\311\317\"\210\212\214
\203E�}\210\202G�~\210\320\321#\315\n\"+\306\207" [file buffer rtn rtnall major-mode org-agenda-restrict 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 org-mode "Agenda file %s is not in `org-mode'" org-scan-tags agenda org-agenda-restrict-begin 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 org-warning "Press `C-u r' to search again with new search string\n" org-finalize-agenda-entries org-fit-agenda-window (org-agenda-type tags) org-finalize-agenda file pos matcher buffer match org-agenda-redo-command org-agenda-overriding-header org-agenda-multi buffer-read-only] 7 (#$ . 105475) "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 (#$ . 107390))
#@70 When this is set during todo and tags searches, will replace header.
(defvar org-agenda-overriding-header nil (#$ . 107644))
#@271 Checks 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 (#$ . 107776)])
#@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 (#$ . 108262)])
#@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 (#$ . 108476)])
#@905 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
regexp        Check if regexp matches
notregexp     Check if regexp does not match.

The regexp is taken from the conditions list, it must come right after
the `regexp' or `notregexp' element.

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\216�\315\f>\203=�\314
	\310#\203\216�\316\f>\203L�\314	\310#\204\216�\317\f>\203[�\314	\310#\203\216�\320\f>\211\203t�A@;\203t�\314A@	\310#\204\216�\321\f>\211\205\217�A@;\205\217�\314A@	\310#?\205\217�	+\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 regexp notregexp org-deadline-time-regexp] 4 (#$ . 108691)])
#@244 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'.
MATCH is being ignored.
(defalias 'org-agenda-list-stuck-projects #[(&rest ignore) "\306\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\203@�\325\202I�\326\320\321#\322#\327Q$\330\n8%\331\313\f\205X�\"#\205_�$%\205t�%;\205t�\332\333%\"\205t�%E\"\211&\203\205�\320\321&\322#\202\210�\334\335!'\336\313\"\210r(q\210\337\211).\207" [org-agenda-skip-function org-agenda-overriding-header org-stuck-projects matcher todo org-done-keywords-for-agenda org-agenda-skip-subtree-when-regexp-matches "List of stuck projects: " "*" org-prepare-agenda-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 (or current-prefix-arg org-last-arg)) org-todo-keywords-for-agenda todo-wds todo-re tags tags-re gen-re re-list org-agenda-skip-regexp org-agenda-buffer-name org-agenda-redo-command] 8 (#$ . 110226) nil])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-disable-agenda-to-diary default-boundp set-default nil] 3)
#@50 Get the (Emacs Calendar) diary entries for DATE.
(defalias 'org-get-entries-from-diary #[(date) "\306\307!\210\310\211\311\312\313\314
B\313\315\313\316\212\317\213\210)\320!\204/�\313\202b�rq\210\313\321\322 !\203C�\313\202Y�\323 \210\321\322 !\203S�\313\202Y�edS{\324\313!\210\325!\210)\205v�\326\327\"\330\331\"\211.\n\207" [diary-fancy-buffer fancy-diary-buffer diary-display-hook diary-display-function pop-up-frames list-diary-entries-hook require diary-lib "*temporary-fancy-diary-buffer*" (fancy-diary-display) fancy-diary-display nil org-diary-default-entry org-modify-diary-entry-string t ((byte-code "\301\302!\203\n�\302\202�\303\304\"\207" [date fboundp diary-list-entries list-diary-entries 1] 3)) get-buffer zerop buffer-size org-agenda-cleanup-fancy-diary set-buffer-modified-p kill-buffer org-split-string "\n" mapcar #[(x) "\302\303\304\305\306%\307\310GS\"\311\312\301	&\207" [x date org-format-agenda-item "" "Diary" nil time org-add-props text-properties-at type "diary"] 7] diary-file-name-prefix-function diary-modify-entry-list-string-function entries org-disable-agenda-to-diary buffer-read-only] 4 (#$ . 111756)])
#@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\2027�eb\210\304\314\306\307#\205T�\302\303!\207" [looking-at ".*?:[ 	]*" replace-match "" re-search-forward "\n=+$" nil t re-search-backward "^ +\n?" 0 "^ +\n" "^Org-mode dummy\n?"] 4 (#$ . 112948)])
(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) "\303\304\305\306\307	\310\n\203�\311\312\313\n!\"\202�\314\315\316\317\320\321 !&\f\207" [string org-agenda-keymap buffer-file-name org-add-props nil mouse-face highlight keymap 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] 14 (#$ . 113969)])
#@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 (#$ . 114442)])
(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])
#@1894 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.  The following arguments are allowed:

:timestamp    List the headlines of items containing a date stamp or
		 date range matching the selected date.  Deadlines will
		 also be listed, on the expiration day.

:sexp         List entries resulting from diary-like sexps.

:deadline     List any deadlines past due, or due within
		 `org-deadline-warning-days'.  The listing occurs only
		 in the diary for *today*, not at any other date.  If
		 an entry is marked DONE, it is no longer listed.

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

:todo         List all TODO items from the org-file.  This may be a
		 long list - so this is not turned on by default.
		 Like deadlines, these entries only show up in the
		 diary for *today*, not at any other date.

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\307 !Z\310V\203�\311 \210\312\313!\210\314\313!\210	\206�\315\n\2031�\n;\2031�\316\317\n\"\2031�\nC\2024�\320\321!\322\211\322\323!\210\203G�\322\211A@\211\203c�\324\325\f	$\326
\"\202G�\205n�\327!\330P,\207" [org-agenda-last-marker-time args entry files file rtn time-to-seconds current-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 org-prepare-agenda-buffers apply org-agenda-get-day-entries append org-finalize-agenda-entries "\n" results org-disable-agenda-to-diary date] 6 (#$ . 114955)])
#@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 \f\204/�\314\315\"C\202\364�r\fq\210!\316=\204?�\312\317\"\210\307\"\212\214#\203R�$%}\210\202T�~\210\211A@\211\203\360�
\320=\203{�&\321 \232\203{�\322  \323 \"\202T�
\324=\203\234�\325  \323 \"\326  \323 \"\202T�
\327=\203\261�\330  \323 \"\202T�
\331=\203\306�\332  \323 \"\202T�
\333=\203\333�\334  \323 \"\202T�
\335=\203T�\336  \323 \"\202T�+).\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" org-mode "Agenda file %s is not in `org-mode'" :todo calendar-current-date 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 results rtn major-mode case-fold-search org-agenda-restrict org-agenda-restrict-begin org-agenda-restrict-end date] 4 (#$ . 117545)])
#@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\320\f!\"\257\321\2038�\322\232\203)�	\2029�\323\324\325\326\327\"\330#\331Q\2029�\332Q \307\211!\"\307\211#$\307\211%&\307\211'(\307)eb\210\333 \307\334#\203k�\335\336\215\210\202[�&\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp org-agenda-keymap buffer-file-name props face nil done-face org-done mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name "^\\*+[ 	]+\$" "*" "\\<\\(" mapconcat identity org-split-string "|" "\\|" "\$\\>" "[^\n
]*\\)" re-search-forward t :skip (byte-code "\306 \307\216\310 \210`\212\311 \210`)\312\n!\203(�	Tb\210\204#�\313\314!\210\315\316\317\"\210*	b\210\320 \210\321\224b\210\322\323\224!\324 \325`!#\326\327\330\321!
#$$\331$!T\332 \"\333$%\334\f\335\f\336\337
\340\341\342\"&\210$&B&\203~�\321\225b\210\202\202�\313\314!\210\317\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 outline-next-heading org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item org-end-of-subtree invisible throw :skip nil org-agenda-skip 1 org-agenda-new-marker 0 org-get-category org-get-tags-at org-format-agenda-item "" match-string org-get-priority org-get-todo-state org-add-props org-marker org-hd-marker priority org-category type "todo" todo-state tags txt props ee] 15) org-select-this-todo-keyword regexp marker priority category tags todo-state ee txt beg end] 20 (#$ . 119056)])
#@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\f�	\204\f�\n\205C�\206�\212\306 \210`)\212\203$�\307\f\310#\206B�	\2030�\307
\310#\206B�\n\205B�\307\f\310#\205B�\311\312\313!!)\207" [org-agenda-todo-ignore-with-date org-agenda-todo-ignore-scheduled org-agenda-todo-ignore-deadlines end org-ts-regexp org-scheduled-time-regexp outline-next-heading re-search-forward t org-deadline-close match-string 1 org-deadline-time-regexp] 4 (#$ . 120793)])
(byte-code "\301B\302\303!\207" [current-load-list org-agenda-no-heading-message (lambda (#1=#:defconst-tmp-var) (defconst org-agenda-no-heading-message #1#)) "No heading for this item in buffer or region."] 2)
#@55 Return the date stamp information for agenda display.
(defalias 'org-agenda-get-timestamps #[nil "\306\307\300\301	\302\n\310\311\312\313\314\315\316\f!\"\2570\21100\31708)\30712\3202!\2034�\321\322!\202\3302\323V\203\316�2S1\3240\2110\2110@)30\2110\2114A@*500\31708)253S\325_\\63\317V\203\266�6\3263\327_\\\330\245Z62\2112\323W\203\224�\3312!S2\3202\327\246!\205\255�\3202\332\246!?\206\255�\3202\333\246!)\203\266�6T66-1\334_1\327\2451\332\245[1\333\245%\202\330\3312T!1\3350\2110\2110@)30\2110\2114A@*500\31708)253S\325_\\63\317V\203K6\3263\327_\\\330\245Z62\2112\323W\203)\3312!S2\3202\327\246!\205B\3202\332\246!?\206B\3202\333\246!)\203K6T66-1\334_1\327\2451\332\245[1\333\245\336\2110\2110@)30\2110\2114A@*500\31708)253S\325_\\63\317V\203\3236\3263\327_\\\330\245Z62\2112\323W\203\261\3312!S2\3202\327\246!\205\312\3202\332\246!?\206\312\3202\333\246!)\203\3236T66-&+7\337\340\341\342\323\211\2110A@0@\31708&\"!\343P89\203\376\344\202\377\345\337\340:@\346\342\323\211\2110A@0@\31708\257\"\"\347\350O!\351\352R;\307\211<=\307\211>?\307\211@A\307\211BC\307\211DE\307\211FG\307\211HI\307\211JK\307\211LM\307\211NOeb\210\353;\307\354#\203|\323\224K\355\224L\355\225M\356\357\215\210\202`G\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp org-agenda-keymap buffer-file-name props face nil mouse-face highlight keymap 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) regexp-quote format-time-string "<%Y-%m-%d" encode-time ".*?>" "[[<]" "<" apply 1 11 "\\|\$<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[dwmy]>\$" "\\|\$<%%\\(([^>\n]+)\$>\\)" re-search-forward t 3 :skip (byte-code "\306 \203\n�\307\310\311\"\210\312 \210\313\225\203$�\314\315\313!\311	$U\204$�\307\310\311\"\210\n\2037�\316\n{\317\f#\2047�\307\310\311\"\210\320
!+\321
!,e
-Z]
{.\203S�\317\202W�
\322 {/
f\323U0\3241.\"2\3243.\"45\205z�\3246.\"75\205\217�\3248.\"\206\217�\324\325.\"9\326 \211':\235;4\204\257�2\204\257�7\204\257�9\203\264�\307\310\327\"\210\324\330/\"\203\304�/\331\211\225O/\212\332\333\311\327#\203\n\331\224b\210\320 <\334 =\335\336!\210\315\313!>?\203\361�;\203\361�\307\310\327\"\210\3370\205\370�\340>,=/\311@&A\202BA\341A!%\342AC\343+\344<&\210\342A\311\345%\346,\304\f\347'\350\351&\f\210ADBD)\352 \207" [d1 org-agenda-repeating-timestamp-show-all e3 b3 date b0 org-at-date-range-p throw :skip nil org-agenda-skip 1 org-time-string-to-absolute match-string org-diary-sexp-entry "" org-agenda-new-marker org-get-category point-at-eol 91 string-match "]-+\\'" org-get-todo-state t ">" 0 re-search-backward "^\\*+ " org-get-tags-at looking-at "\\*+[ 	]+\$[^
\n]+\$" org-format-agenda-item "[" org-get-priority org-add-props org-marker org-hd-marker priority org-category todo-state type "timestamp" outline-next-heading marker category 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 hdmarker tags head org-agenda-skip-timestamp-if-done remove-re txt org-agenda-no-heading-message props ee] 14) date offset-years year month x day day-of-year d1 remove-re org-agenda-include-inactive-timestamps org-time-stamp-formats regexp marker hdmarker deadlinep scheduledp clockp closedp inactivep donep tmp priority category ee txt timestr tags b0 b3 e3 head todo-state] 18 (#$ . 121589)])
#@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\320	!\"\257\321\311\211\311\211\311\211\311\211\311\211\311eb\210\322\311\323#\203G�\324\325\215\210\2028�\237.
\207" [org-agenda-keymap buffer-file-name props regexp marker category require diary-lib face nil mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name "^&?%%(" 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\203t�\320!\321!\322\323
\"\203F�
\202I�\324\325\316 \326%\327!\330$\210\327\331\332\304\f\333\334&\210\"B\"\331\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 string-match "\\S-" "SEXP entry returned empty string" org-format-agenda-item time org-add-props org-marker nil org-category type "sexp" marker category txt tags props ee] 10) ee txt tags entry result beg b sexp sexp-entry] 12 (#$ . 125305)])
(defalias 'org-get-closed 'org-agenda-get-progress)
#@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\314\f!\"\257\f(:\203�(\202!�)*\315\316\317*>\2050�\320+P\321*>\205;�\320,P\322*>\205C�\323E\"\211-\203T�\324\325-\326#\202W�\327\330!.\331.\332\333\334\335/@\336\337\340\211\2110A@0@\34108\257\"\"\342\343O!\2601\316\21123\316\21145\316\21167\316\2118\316\2119:\316\211;<\316=eb\210\3441\316\345#\203\271�\346\347\215\210\202\251�9\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp org-agenda-keymap buffer-file-name props mouse-face highlight keymap help-echo format "mouse-2 or RET jump to org file %s" abbreviate-file-name 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\211\205�\311\315!\316\310\224!\310\224\317 {0\320\3210\"\203n�0\310\225\322O10\310\211\225O0\n\204k�\204k�\320\3231\"\203k�0\310\324O\325\311\3121\"\326R0\311\3151\"2\202n�\3252\212\327\330\322\331#\203\256�\310\224b\210\307 3\332 4\333\334!\210\335\n\203\220�\336\202\240�\203\233�\337\f\340Q\202\240�\3412\340Q\311\312!
40%5\202\262�65\342(\34357\344\3453\346\347\350(\351
\352\353\354,\355\356\357\347&\21058B8)\317 b\207" [marker org-closed-string closedp statep state category org-agenda-skip org-agenda-new-marker 0 match-string 1 string-to-char 45 2 org-get-category point-at-eol string-match "\\]" nil "\$[0-9]\\{1,2\\}:[0-9]\\{2\\}\$\\].*\$[0-9]\\{1,2\\}:[0-9]\\{2\\}\$" -1 "-" "]" re-search-backward "^\\*+ " t org-get-tags-at looking-at "\\*+[ 	]+\$[^
\n]+\$" org-format-agenda-item "Closed:    " "State:     (" ")" "Clocked:   (" 100000 org-add-props org-marker org-hd-marker face org-done priority org-category type "closed" date undone-face org-warning done-face timestr rest clocked hdmarker tags txt org-agenda-no-heading-message props ee] 22) org-agenda-show-log org-agenda-log-mode-items items org-closed-string org-clock-string parts parts-re org-time-stamp-formats date regexp marker hdmarker priority category tags closedp statep ee txt timestr rest clocked] 17 (#$ . 126565)])
#@53 Return the deadline information for agenda display.
(defalias 'org-agenda-get-deadlines #[nil "\306\307\300\301	\302\n\310\311\312\313\314\f!\"\257\f#$\315%!&%\211%%\316%8)\317'(\320(!\203<�\321\322!\202\340(\323V\203\326�(S'\324%\211%\211%@))%\211%\211*A@*+%%\316%8)(+)S\325_\\,)\316V\203\276�,\326)\327_\\\330\245Z,(\211(\323W\203\234�\331(!S(\320(\327\246!\205\265�\320(\332\246!?\206\265�\320(\333\246!)\203\276�,T,,-'\334_'\327\245'\332\245['\333\245%\202\340\331(T!'\335%\211%\211%@))%\211%\211*A@*+%%\316%8)(+)S\325_\\,)\316V\203S,\326)\327_\\\330\245Z,(\211(\323W\2031\331(!S(\320(\327\246!\205J\320(\332\246!?\206J\320(\333\246!)\203S,T,,-'\334_'\327\245'\332\245['\333\245\336\211%\211%@))%\211%\211*A@*+%%\316%8)(+)S\325_\\,)\316V\203\333,\326)\327_\\\330\245Z,(\211(\323W\203\271\331(!S(\320(\327\246!\205\322\320(\332\246!?\206\322\320(\333\246!)\203\333,T,,-&+-\317\211./\317\21101\317\21123\317\21145\317\21167\317\21189\317\211:;\317\211<=\317>eb\210\337$\317\340#\203)\341\342\215\210\2026\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp org-agenda-keymap buffer-file-name props mouse-face highlight keymap 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\307\310!\310\224S\311\307\310!\n\312$\211\nZ\313!/\314/
Z_/\310]\24501\2052�
\315V2
/X\203E�1\203E�3\203K�
\315U\203C\212\316 4\317 &\320\321\322\323#\203\343�\315\225b\210\315\2245\3245!6\325`\326\322w\210`\"7&8\2359\327\330\"\203\216�\310\224\322O\331P:\202\221�\332:9\203\247�;\204\241�
\315U\204\247�\322<\202\347�\333
\315U\203\264�=@\202\317�\334=A@!\203\310�=A@
*\"\202\317�\335=A@
\"746
\315U\205\335�:%<\202\347�><<\203B\3360/\"+\337<?\340\341	!\342\3415!\343
[\344<!\\\3454\346&\3472\203\350\202\351\3522\203&*\202'\f\3539\2031\354\2023+\355+\356\354&\210<@B@)\322\207" [s pos d1 org-agenda-repeating-timestamp-show-all d2 diff org-agenda-skip match-string 1 org-time-string-to-absolute past org-get-wdays 1.0 0 org-get-category org-get-todo-state re-search-backward "^\\*+[ 	]+" nil t org-get-tags-at buffer-substring-no-properties "^
\n" string-match " \$[012]?[0-9]:[0-9][0-9]\$" " " time org-format-agenda-item functionp format org-agenda-deadline-face org-add-props org-marker org-agenda-new-marker org-hd-marker priority org-get-priority org-category todo-state type "upcoming-deadline" "deadline" date face org-done undone-face done-face wdays dfrac todayp upcomingp org-agenda-only-exact-dates category pos1 tags head org-done-keywords donep timestr org-agenda-skip-deadline-if-done txt org-agenda-deadline-leaders org-agenda-no-heading-message props ee] 24) org-deadline-time-regexp regexp date todayp offset-years year month x day day-of-year d1 d2 diff dfrac wdays pos pos1 category tags ee txt head face s todo-state upcomingp donep timestr] 16 (#$ . 128952)])
#@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 &optional wdays) "\305\232\203�\306\n\307\310\311\215*\207" [wdays fraction org-agenda-deadline-faces f faces 0 1 nil exit (byte-code "\211A@\211\205�\n	@Y\203��\303\304	A\"\210\202��\207" [faces f fraction throw exit] 3)] 2 (#$ . 132145)])
#@54 Return the scheduled information for agenda display.
(defalias 'org-agenda-get-scheduled #[nil "\300\301	\302\n\306\307\310\311\312\313\314\315\316\f!\"\257%&\317'!('\211''\320'8)\321)*\322*!\203>�\323\324!\202\342*\325V\203\330�*S)\326'\211'\211'@)+'\211'\211,A@*-''\320'8)*-+S\327_\\.+\320V\203\300�.\330+\331_\\\332\245Z.*\211*\325W\203\236�\333*!S*\322*\331\246!\205\267�\322*\334\246!?\206\267�\322*\335\246!)\203\300�.T..-)\336_)\331\245)\334\245[)\335\245%\202\342\333*T!)\337'\211'\211'@)+'\211'\211,A@*-''\320'8)*-+S\327_\\.+\320V\203U.\330+\331_\\\332\245Z.*\211*\325W\2033\333*!S*\322*\331\246!\205L\322*\334\246!?\206L\322*\335\246!)\203U.T..-)\336_)\331\245)\334\245[)\335\245\340\211'\211'@)+'\211'\211,A@*-''\320'8)*-+S\327_\\.+\320V\203\335.\330+\331_\\\332\245Z.*\211*\325W\203\273\333*!S*\322*\331\246!\205\324\322*\334\246!?\206\324\322*\335\246!)\203\335.T..-&+/\321\21101\321\21123\321\21145\321\21167\321\21189\321\211:;\321\211<=\321>eb\210\341&\321\342#\203%\343\344\215\210\2027\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp org-agenda-keymap buffer-file-name props done-face org-done mouse-face highlight keymap 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\307\310!\310\224S\311\307\310!\n\312$\211\nZ1\205 �
\313W2
\313W\203;�\314
!3W\203;�1\203;�4\203A�
\313U\2033\212\315 5\316 0\317\320\321\322#\203\305�\313\225b\210\313\2246\323 7\324`\325\321w\210`\"809\235:\326\327\"\203\202�\310\224\321O\330P;\202\205�\331;:\203\233�<\204\225�
\313U\204\233�\321=\202\311�\332
\313U\203\250�>@\202\261�\333>A@\310
Z\"857
\313U\205\277�;%=\202\311�?==\20322\203\327�\334\202\341�1\203\340�\335\202\341�\336!\337=@\340!\341:\203\365�\342\202\367�!\343\344	!\345\3446!\3462\203\n\347\202\350\3512\203\f\202)\352\353\354\355
Z\356=!#\3575\3600&\210=ABA)\321\207" [s pos d1 org-agenda-repeating-timestamp-show-all d2 diff org-agenda-skip match-string 1 org-time-string-to-absolute past 0 abs org-get-category org-get-todo-state re-search-backward "^\\*+[ 	]+" nil t org-get-tags-at buffer-substring-no-properties "^
\n" string-match " \$[012]?[0-9]:[0-9][0-9]\$" " " time org-format-agenda-item format org-scheduled-previously org-scheduled-today org-scheduled org-add-props undone-face face org-done org-marker org-agenda-new-marker org-hd-marker type "past-scheduled" "scheduled" date priority + 94 5 org-get-priority org-category todo-state todayp pastschedp org-scheduled-past-days org-agenda-only-exact-dates category pos1 tags head org-done-keywords donep timestr org-agenda-skip-scheduled-if-done txt org-agenda-scheduled-leaders org-agenda-no-heading-message props ee] 22) org-scheduled-time-regexp regexp date todayp offset-years year month x day day-of-year d1 d2 diff pos pos1 category tags donep ee txt head pastschedp todo-state face timestr s] 18 (#$ . 132559)])
#@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\316\f!\"\257#$%\211%%\317%8)\307&'\320'!\2038�\321\322!\202\334'\323V\203\322�'S&\324%\211%\211%@)(%\211%\211)A@**%%\317%8)'*(S\325_\\+(\317V\203\272�+\326(\327_\\\330\245Z+'\211'\323W\203\230�\331'!S'\320'\327\246!\205\261�\320'\332\246!?\206\261�\320'\333\246!)\203\272�+T++-&\334_&\327\245&\332\245[&\333\245%\202\334\331'T!&\335%\211%\211%@)(%\211%\211)A@**%%\317%8)'*(S\325_\\+(\317V\203O+\326(\327_\\\330\245Z+'\211'\323W\203-\331'!S'\320'\327\246!\205F\320'\332\246!?\206F\320'\333\246!)\203O+T++-&\334_&\327\245&\332\245[&\333\245\336\211%\211%@)(%\211%\211)A@**%%\317%8)'*(S\325_\\+(\317V\203\327+\326(\327_\\\330\245Z+'\211'\323W\203\265\331'!S'\320'\327\246!\205\316\320'\332\246!?\206\316\320'\333\246!)\203\327+T++-&+,\307\211-.\307\211/0\307\21112\307\21134\307\21156\307\21178\307\2119:eb\210\337$\307\340#\203\341\342\215\210\202\f/\237.\207" [org-not-done-regexp org-todo-regexp org-complex-heading-regexp org-agenda-keymap buffer-file-name props face nil mouse-face highlight keymap 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\312!\313\314\n!!\313\314!!'\fZ\315V\203\302�
'Z\315V\203\302�\212\316`!(\317 )\320 #\321\322\323\324#\203\230�\310\224b\210\316`!*\325 +\326\327!\210\307\311!,-\203j�\330 \203j�\331\332\324\"\210\333\334\f
U\203v�\310\202w�\311.8'\fZT
\fZT#,)+'\fU\205\222�	%/\202\234�0/\335/1\336(\337*\340\341\342\"\343#\344\345/!\346)&\210/2B2)b\207" [pos timestr s1 s2 d1 d2 org-agenda-skip match-string 0 1 2 time-to-days org-time-string-to-time -1 org-agenda-new-marker org-get-category org-get-todo-state re-search-backward "^\\*+ " nil t org-get-tags-at looking-at "\\*+[ 	]+\$[^
\n]+\$" org-entry-is-done-p throw :skip org-format-agenda-item format org-add-props org-marker org-hd-marker type "block" date todo-state priority org-get-priority org-category d0 marker category hdmarker tags head org-agenda-skip-timestamp-if-done org-agenda-timerange-leaders txt org-agenda-no-heading-message props ee] 17) org-tr-regexp regexp date offset-years year month x day day-of-year d0 marker hdmarker ee txt d1 d2 s1 s2 timestr category todo-state tags pos head] 18 (#$ . 135782)])
#@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 (#$ . 138412))
#@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 (#$ . 138576))
#@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 (#$ . 138739))
#@821 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.  NOPREFIX is a flag and indicates that
only the correctly processes TXT should be returned - this is used by
`org-agenda-change-all-lines'.  TAGS can be the tags of the headline.
Any match of REMOVE-RE will be removed from TXT.
(defalias 'org-format-agenda-item #[(extra txt &optional category tags dotime noprefix remove-re) "\306 \307\216\310\311	\"\203�\312\313\314\211	$\n\203�\315	\"\f\2063�
\2063�@\2032�\316\317@!!\2023�\313\203@�GS8\202A�\313A\314\211B>\314CD\205_�D;\203\\�D\202]�\313	PED\205j�\320E!<\314\211FG\314\211HI\314\211JK\314\211LM\314\211N=O\321=\203\234�@\203\234�\322\323@\"\210D\203\242<\203\242\310PE\"\211F\204\276�\310QE\"\211G\203<\324\325E\"HF\205\314�\326\225N\324G\203\330�\327\202\331�\330E\"I\324G\203\350�\331\202\362�N\203\361�\332\202\362�\333E\"JR\203<S\203<F\204G\203<\310\334H!\335P	\"\203<\336	\325\225\314O!\337\232\204<S\340=\2031\325\224\325U\2022\341\203<\312\313\314\211	$I\203I\320I\342\341#IJ\203V\320J\342\341#JI\203\242\343I\325\330O!\344_\343I\326\314O!\\KJ\203\207\343J\325\330O!\344_\343J\326\314O!\\\202\225T\203\224KT\\\202\225\314\211L\205\240LKZ=I\203\352J\204\352T\203\352\310\345I\"\203\352\346\343\324\330I\"!\343\324\327I\"!\344_T#\314U\211V\344\245UVU\344_ZV\347\350UV#J*\310\351	\"\203 W\341=\204W\203\fX\203\f\312\313\341\211	$\202 \312\352\353	GZ\327]\354\"\324\330	\"P\341\211	$O\321=\203A\314\355\356\217\211>\203A\357>!C\360>\361Q\211>>Y\203X\310Y	\"\203X\312\313\341\211	$\202FZ\203c	M\202\235J\203qI\362JQ\202~I\203}I\363P\202~\313B[\206\206\313[\f9\203\223\364\f!\202\224\f\365\\!	PM\366M\314\305\f\227\303\367\370\"\3719\372:\373MG	GZ\374<\375=\376>\377C\301	\201B�B\201[�[\201D�D&.\207" [save-match-data-internal txt org-agenda-show-inherited-tags tags category org-category match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^ +" replace-match "" nil org-agenda-add-inherited-tags file-name-sans-extension file-name-nondirectory org-get-time-of-day 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 string-to-number 60 "\$[0-9]+\$:\$[0-9]+\$" + format "%02d:%02d" "\$[ 	]+\$\$:[[:alnum:]_@:]+:\$[ 	]*$" make-string 50 32 (byte-code "\301\302\303\304#\206�\302\303\305#!\207" [txt org-get-effort get-text-property 0 org-hd-marker org-marker] 5) ((error)) org-hh:mm-string-to-minutes "[" "]" "-" "......" symbol-name eval org-add-props mapcar org-downcase-keep-props org-highest-priority org-lowest-priority prefix-length time-of-day duration effort effort-minutes buffer-file-name tag time neffort dotime ts stamp plain s0 s1 s2 t1 t2 rtn srp major-mode 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 h m org-agenda-remove-tags org-prefix-has-tag remove-re noprefix extra org-prefix-format-compiled] 30 (#$ . 138905)])
#@192 Remove tags string from TXT, and add complete list of tags.
The new list includes inherited tags.  If any inherited tags are present,
a double colon separates inherited tags from local tags.
(defalias 'org-agenda-add-inherited-tags #[(txt tags) "\304\305\"\203
�\306\211\224O	\203-�\307\306\310	@#\311\312\313\314	\315#\203)�\316\202*�\315R*\207" [txt tags i have-i string-match "\$[ 	]+\$\$:[[:alnum:]_@:]+:\$[ 	]*$" 0 get-text-property inherited nil " :" mapconcat #[(x) "\303\304\305#\n\203�	\204�\306\307P\207\207" [x i have-i get-text-property 0 inherited nil ":"] 4] ":" "::"] 6 (#$ . 142637)])
(defalias 'org-downcase-keep-props #[(s) "\302\303\"\227\304\303G	$\210)\207" [s props text-properties-at 0 add-text-properties] 5])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-agenda-sorting-strategy-selected default-boundp set-default nil] 3)
(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\251�!\203{�#
\235\204b�\323#!#\324\315\325\315#\326\327O\330#\327\315OQ%\"B\"\331\311\"@G\332\333\"@%\210\202b�\334$\235\203\270�\335\"	\"\202\275�\335	\"\".\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 int-to-string org-format-agenda-item "" 0 -2 ":" put-text-property face org-time-grid time-up append string gridtimes req remove new time org-agenda-sorting-strategy-selected] 11)] 2])
#@155 Compile the prefix format into a Lisp form that can be evaluated.
The resulting form is returned and stored in the variable
`org-prefix-format-compiled'.
(defalias 'org-compile-prefix-format #[(key) "\306\211\306;\203�\202�\f\236\203�\f\236A\202�\307\310\306\211\211\211\211\211\211 !\"#$%&'\311\312'&#\203\316�\313\314\315'\"\316\"A#\314\317'\"\206T�\320!\321\224\310\224T&#\322\232\203g�\323#\324\232\203p�\323#\325\232\203y�\323\326\314\327'\"\330Q 
\203\246�\331\332\320#E\320\333 \331\332\320#E\320\334#!EFEF%\202\273�\333 \331\332#\335BB\320\334#!EFE%\336\337\323\306'$'%$B$\2026�$\237$\333'$BB\211(.	\207" [org-prefix-has-time org-prefix-has-tag org-prefix-has-effort org-agenda-prefix-format key opt nil "  %-12:c%?-12t% s" 0 string-match "%\$\\?\$?\$[-+]?[0-9.]*\$\$[ .;,:!?=|/<>]?\$\$[ctse]\$" assoc match-string 4 (("c" . category) ("t" . time) ("s" . extra) ("T" . tag) ("e" . effort)) 3 #1="" 1 time t tag effort "%" 2 "s" if equal format concat (#1#) replace-match "%s" f c e var vars varform start s org-prefix-format-compiled] 12 (#$ . 144472)])
(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\315�\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$\325W\203\241�\330\202\242�\331$\332W\203\255�\330\202\256�\331\333$!R%!\203\311�%\334\335O\336%\335\337OQ\202\313�$.*\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 "+" " " "0" "" 10 int-to-string -4 -2 ":" nil h1 string mod24 h2 t0 t1] 6 (#$ . 145836)])
#@40 Sort and concatenate the agenda items.
(defalias 'org-finalize-agenda-entries #[(list &optional nosort) "\302\303\"	\203�\207\304\305\306\307\"\310#\207" [list nosort mapcar org-agenda-highlight-todo mapconcat identity sort org-entries-lessp "\n"] 5 (#$ . 147033)])
(defalias 'org-agenda-highlight-todo #[(x) "\306\211\f\307=\203S�\212\310\311!\210\312`\313\"`\312`\314\"\206�\315\\b\210\316\317\n\320Q!\205O�\321\315\224\315\225\322\323\311!D#\210\311\224\311\225{\311\224\315\225S|\210\311\224b\210\324
\"c))\202\241�\312\315\313\f#\260\312\315\314\f#\n\203\240�\325\326\n\327Q\f	\206p�\315#	\232\203\240�\321\311\225\206~�\315\225\315\225\322\323\330\331\f\"!D\f$\210\f\315\311\225O\324\330\331\f\"\"\332\f\333\225\306OR\f+\207" [org-done-keywords-for-agenda pl re org-done-keywords x s nil line beginning-of-line 1 get-text-property org-todo-regexp prefix-length 0 looking-at "[ 	]*\\.*\$" "\$ +" add-text-properties face org-get-todo-face format string-match "\$\\.*\$" "\$ +\$" match-string 2 " " 3 org-agenda-todo-keyword-format] 8])
#@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\203(�\310\202)�\311*\207" [a b pb pa get-text-property 1 priority 0 -1 nil] 6 (#$ . 148106)])
(put 'org-cmp-priority 'byte-optimizer 'byte-compile-inline-expand)
#@43 Compare the priorities 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\2023�
W\2032�\307\2023�\313+\207" [org-sort-agenda-noeffort-is-high def a ea b eb 32767 -1 get-text-property 1 effort-minutes nil] 4 (#$ . 148431)])
(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\203(�\305\202)�\311*\207" [a b cb ca get-text-property 1 org-category "" -1 nil] 6 (#$ . 148812)])
(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	�\311\306\307\310\n#\206�\311	\f\235G[\f\235G[\f	
\235
\235\203;�\204;�\312\202`�\204I�\203I�\307\202`�
\fW\203T�\312\202`�\f
W\203_�\307\202`�\313.\207" [a ta b tb org-todo-keywords-for-agenda la get-text-property 1 todo-state "" -1 nil lb org-done-keywords-for-agenda donepa donepb] 4 (#$ . 149166)])
(put 'org-cmp-todo-state '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\2027�\n\204\"�\310\2027�\n\231\203,�\310\2027�\n\231\2036�\306\2027�\311*\207" [a b tb ta last get-text-property 1 tags -1 nil] 7 (#$ . 149671)])
(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\2023�
W\2032�\311\2023�\313+\207" [org-sort-agenda-notime-is-late def a ta b tb 9901 -1 get-text-property 1 time-of-day nil] 4 (#$ . 150033)])
(put 'org-cmp-time 'byte-optimizer 'byte-compile-inline-expand)
#@39 Predicate for sorting agenda entries.
(defalias 'org-entries-lessp #[(a b) "	\n\203\f�\306\202
�\307\310\311\312#\206�\310\311\312	#\206!�\f
W\203,�\307\2027�
\fW\2036�\311\2027�\313-\211\205A�[	\310\311\314#\206P�\315\310\311\314	#\206Y�\315\211V\203h�\311\202u�W\203t�\307\202u�\313,\211\205�[	\203\216�\316\202\217�\307\310\311\317#\206\231� \310\311\317	#\206\244�! !V\203\262�\311\202\277� !W\203\276�\307\202\277�\313-\211\"\205\311�\"[#	\310\311\320#\206\330�\321\310\311\320	#\206\341�\321$\211%$\231\203\360�\307\202\375�$%\231\203\374�\311\202\375�\313,\211&\205&['&\205\311(	\322\310\311\323#!@\322\310\311\323	#!@\211\204/\311\202L
\2047\307\202L\f
\231\203A\307\202L
\f\231\203K\311\202L\313,\211)\205V)[*	\310\311\324#\206e\321\310\311\324	#\206o\321\f+\235G[,
+\235G[-\f.\235/
.\2350/\203\2320\204\232\307\202\301/\204\2500\203\250\311\202\301,-W\203\264\307\202\301-,W\203\300\311\202\301\313.\2111\205\3141[2\325\326\3273B!\330\"A.
\207" [a b org-sort-agenda-notime-is-late def ta tb 9901 -1 get-text-property 1 time-of-day nil priority 0 32767 effort-minutes org-category "" last tags todo-state assoc eval or ((-1 . t) (1) (nil)) time-up time-down pb pa priority-up priority-down org-sort-agenda-noeffort-is-high ea eb effort-up effort-down cb ca category-up category-down category-keep tag-up tag-down org-todo-keywords-for-agenda la lb org-done-keywords-for-agenda donepa donepb todo-state-up todo-state-down org-agenda-sorting-strategy-selected] 8 (#$ . 150413)])
#@71 Overlay to mark the headline to which arenda commands are restricted.
(defvar org-agenda-restriction-lock-overlay (byte-code "\300\301\211\"\207" [org-make-overlay 1] 3) (#$ . 152036))
(byte-code "\301\302\303#\210\301\304\305#\210\306!\207" [org-agenda-restriction-lock-overlay org-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 org-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 (#$ . 152456) "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 (#$ . 153636) "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 (#$ . 154223)])
#@108 Check if agenda buffer is of allowed type.
If ERROR is non-nil, throw an error, otherwise just return nil.
(defalias 'org-agenda-check-type #[(error &rest types) "	>\203�\303\207\n\205�\302\304\"\207" [org-agenda-type types error t "Not allowed in %s-type agenda buffers"] 3 (#$ . 154662)])
#@51 Exit agenda by removing the window or the buffer.
(defalias 'org-agenda-quit #[nil "\203�\306 \207p\307 \204�\310 \210\311	!\210\312 \210\313 \210\314)\2050�\f\315=?\2050�
\2050�\316
!\207" [org-agenda-columns-active buf org-agenda-archives-mode org-agenda-restore-windows-after-quit org-agenda-window-setup org-pre-agenda-window-conf org-columns-quit one-window-p delete-window kill-buffer org-agenda-reset-markers org-columns-remove-overlays nil other-frame set-window-configuration] 2 (#$ . 154963) 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 (#$ . 155484) nil])
#@140 Execute another agenda command, keeping same window.\<global-map>
So this is just a shortcut for `\[org-agenda]', available in the agenda.
(defalias 'org-agenda-execute #[(arg) "\302\303	!)\207" [org-agenda-window-setup arg current-window org-agenda] 2 (#$ . 155826) "P"])
#@54 Save all Org-mode buffers without user confirmation.
(defalias 'org-save-all-org-buffers #[nil "\300\301!\210\302\303\304\"\210\300\305!\207" [message "Saving all Org-mode buffers..." save-some-buffers t org-mode-p "Saving all Org-mode buffers... done"] 3 (#$ . 156106) nil])
#@91 Rebuild Agenda.
When this is the global TODO list, a prefix argument will be interpreted.
(defalias 'org-agenda-redo #[nil "\306	\307\212
\203�
b\210n\203�\310\202�\311\312\310`\"\\*\211\313 \212
\203-�
b\210n\2035�\310\2026�\311\312\310`\"\\*Z\314\315N\f\203K�\316 \210\317\320!\210\321\322\"\210\307\211\317\323!\210\n\203g�\324\n!\210\f\203r�t\203r�\325 \210\326!\210\327!.\207" [org-agenda-keep-modes org-agenda-filter filter org-agenda-columns-active cols pos t nil 1 0 count-lines window-start org-agenda-redo-command org-lprops org-columns-quit message "Rebuilding agenda buffer..." org-let (eval org-agenda-redo-command) "Rebuilding agenda buffer...done" org-agenda-filter-apply org-agenda-columns goto-line recenter line window-line lprops org-agenda-undo-list org-agenda-pending-undo-list] 6 (#$ . 156388) nil])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list org-global-tags-completion-table default-boundp set-default nil org-agenda-filter-form] 3)
#@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!45\3106\315789\316\211:;\316\211<=:\204H�\317\320>\203@�\321\202A�\322\n#\210\323 ::\324\235\203u�:\325\232\203_�\315\211?>\202l�:\326\232\203l�\316?\315>\317\327\n\"\210\323 ::\330\235\203\320�\331:!5\332\211@\333X\203\260�6\334@\333U\203\231�\335\202\236�\336@T!\337@
8\2606@T\211@\202\206�)\316\317\34056#\210\323 \211:\341W\204\314�:\342V\203\320�\343\344!\210:\333\232\203\371�\345\346p\"\204\356�\346\211 AB\347B!AL\210*\315C\350\351&\"=):\352\232\203\353 \202\204:\354\232\204Y\355:	\"\211;\204Y:\341Y\203J:\342X\203J:\341U\2030\333\2026\356:\341\357#<5<
8P\211=\316B\211;\204Y=\203=\316B\211;\203\353 \210;@=?\203j\360\202k\361=P>\205u9B8\3628!\202\204\343\363:\".\207" [org-tag-alist-for-agenda alist tag-chars org-effort-property org-global-properties efforts mapconcat #[(x) "A\203\n�\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], [/]:off, [+-]:narrow, [>=<]:effort: " "Narrow" "Filter" read-char (43 45) 45 43 "Narrow by tag [%s ], [TAB], [/]:off, [>=<]:effort: " (60 62 61) char-to-string 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-variable-buffer-local org-ido-completing-read "Tag: " 47 org-agenda-filter-by-tag-show-all 32 rassoc - 1 "-" "+" org-agenda-filter-apply "Invalid tag selection character %c" org-agenda-filter-effort-default-operator effort-op effort-prompt inhibit-read-only org-agenda-filter current char a n tag narrow strip i value var completion-ignore-case] 8 (#$ . 157455) "P"])
#@60 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 (#$ . 159687) "P"])
#@58 Create the form that tests a line for the agenda filter.
(defalias 'org-agenda-filter-make-matcher #[nil "\305\211\n\305\211\203H�\f@\211\306\235\203�\307\202=�\310\311\"\203(�\312!\2021�\313\314\305O\227\315E\316!\317\232\203=�\320D	B\fA\211\204\f�*\321	\237*B\207" [f1 f org-agenda-filter x #1=#:--cl-dolist-temp-- nil ("-" "+") (not tags) string-match "[<=>]" org-agenda-filter-effort-form member 1 tags string-to-char 45 not and] 5 (#$ . 159905)])
#@100 Return the form to compare the effort of the current line with what E says.
E looks line "+<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\312\313D\314	!E)\207" [op e nil 1 string-to-char 60 <= 62 >= = org-agenda-compare-effort quote org-hh:mm-string-to-minutes] 4 (#$ . 160382)])
#@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) "\303`\304\"\211\204
�\305\202�	\n\")\207" [eff op value get-text-property effort-minutes 0] 4 (#$ . 160769)])
#@51 Set FILTER as the new agenda filter and apply it.
(defalias 'org-agenda-filter-apply #[(filter) "\304	\305 \306 \210\212eb\210m?\2056�\307`\310\"\203/�\307`\300\"\311!\204(�\312 \210\313\314!\210\202�\313\314!\210\202�*\207" [tags filter org-agenda-filter org-agenda-filter-form nil org-agenda-filter-make-matcher org-agenda-set-mode-name get-text-property org-marker eval org-agenda-filter-by-tag-hide-line beginning-of-line 2] 3 (#$ . 161057)])
(defalias 'org-agenda-filter-by-tag-hide-line #[nil "\302\303e\304 S]\305 \"\306\307\310#\210\306\311\312#\210	B\211)\207" [ov org-agenda-filter-overlays nil org-make-overlay point-at-bol point-at-eol org-overlay-put invisible t type tags-filter] 4])
(defalias 'org-agenda-fix-tags-filter-overlays-at #[(&optional pos) "\206�`\212\303!\304\211\203@�\n@\305	\306\"\2039�\305	\307\"\310=\2039�b\210\311	!\312 W\2039�\313	\312 \314	!#\210\nA\211\204�+\304\207" [pos ov #1=#:--cl-dolist-temp-- org-overlays-at nil org-overlay-get invisible type tags-filter org-overlay-start point-at-eol org-move-overlay org-overlay-end] 6])
(defalias 'org-agenda-filter-by-tag-show-all #[nil "\303\304\"\210\305\211\305\306 \207" [org-agenda-filter-overlays org-agenda-filter org-agenda-filter-form mapc org-delete-overlay nil org-agenda-set-mode-name] 4])
#@149 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 (#$ . 162376) nil])
#@149 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 (#$ . 162651) nil])
#@148 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 (#$ . 162931) nil])
#@148 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 (#$ . 163209) nil])
(defalias 'org-agenda-manipulate-query #[(char) "\306>\203�\307\310!\203�\311\312 )\207\313\314!\207\315=\203A�\316\304\317\n\320\"A\"\210\321\f\211G\n\322\235\2034�\323\2025�\324\\F\325\f\"\210\312 \207\313\326\"\207" [org-agenda-type org-agenda-include-inactive-timestamps char org-todo-only org-agenda-query-string org-agenda-redo-command (timeline agenda) y-or-n-p "Re-display with inactive time stamps included? " t org-agenda-redo error "Abort" search org-add-to-string assoc ((91 . " +") (93 . " -") (123 . " +{}") (125 . " -{}")) org-search-view (123 125) 0 1 set-register "Cannot manipulate query for %s-type agenda buffers" org-agenda-query-register] 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 #[(date) "\301\302\"\207" [date org-agenda-list nil] 3 (#$ . 164243) (list (org-read-date))])
#@14 Go to today.
(defalias 'org-agenda-goto-today #[nil "\306\307\310\311#\210\312ed\313\307$\211\203�b\202L�	\311=\203I�\314\315\316 \317\n\320_\317E\"!\321\f\"\211A
@\240\210AA
A\240\210\322 \210\323 +\202L�\324\325!)\207" [tdpos org-agenda-type org-extend-today-until sd org-agenda-span comp org-agenda-check-type t timeline agenda text-property-any org-today time-to-days time-subtract current-time 0 3600 org-agenda-compute-time-span org-agenda-redo org-agenda-find-same-or-today-or-agenda error "Cannot find today" org-agenda-last-arguments org-agenda-overriding-arguments] 7 (#$ . 164400) nil])
(defalias 'org-agenda-find-same-or-today-or-agenda #[(&optional cnt) "\203
�\301ed\302$\206 �\301ed\303\304$\206 �\301ed\305\306$\206 �eb\207" [cnt text-property-any org-day-cnt org-today t org-agenda-type agenda] 5])
#@104 Go forward in time by thee current span.
With prefix ARG, go forward that many times the current span.
(defalias 'org-agenda-later #[(arg) "\306\307\310\"\210\n\311!\312`\313\"\314\211%&	\315=\203)�'\\\316&\202\215	\317=\203<�'\320_\\\320&\202\215	\321=\203\344\f@'\\\fA@\322\f8E\211%\211((\322(8)\314)\"\323\"!\203m�\324\325!\202\"\326V\203\"S)\327(\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\357�+\331\332_\\\333\245Z+\"\211\"\326W\203\315�\334\"!S\"\323\"\332\246!\205\346�\323\"\335\246!?\206\346�\323\"\336\246!)\203\357�+T++-)\337_)\332\245)\335\245[)\336\245%\202\334\"T!)\340(\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\204+\331\332_\\\333\245Z+\"\211\"\326W\203b\334\"!S\"\323\"\332\246!\205{\323\"\335\246!?\206{\323\"\336\246!)\203\204+T++-)\337_)\332\245)\335\245[)\336\245\341\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\f+\331\332_\\\333\245Z+\"\211\"\326W\203\352\334\"!S\"\323\"\332\246!\205\323\"\335\246!?\206\323\"\336\246!)\203\f+T++-&+%\211@T\240\210%\211((\322(8)\314)\"\323\"!\2038\324\325!\202\334\"\326V\203\322\"S)\327(\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\272+\331\332_\\\333\245Z+\"\211\"\326W\203\230\334\"!S\"\323\"\332\246!\205\261\323\"\335\246!?\206\261\323\"\336\246!)\203\272+T++-)\337_)\332\245)\335\245[)\336\245%\202\334\334\"T!)\340(\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203O+\331\332_\\\333\245Z+\"\211\"\326W\203-\334\"!S\"\323\"\332\246!\205F\323\"\335\246!?\206F\323\"\336\246!)\203O+T++-)\337_)\332\245)\335\245[)\336\245\341\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\327+\331\332_\\\333\245Z+\"\211\"\326W\203\265\334\"!S\"\323\"\332\246!\205\316\323\"\335\246!?\206\316\323\"\336\246!)\203\327+T++-&+Z&\202\215	\342=\203\215\f@\fA@'\322\f8\\E\211%\211((\322(8)\314)\"\323\"!\203\324\325!\202\271\"\326V\203\257\"S)\327(\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\227+\331\332_\\\333\245Z+\"\211\"\326W\203u\334\"!S\"\323\"\332\246!\205\216\323\"\335\246!?\206\216\323\"\336\246!)\203\227+T++-)\337_)\332\245)\335\245[)\336\245%\202\271\334\"T!)\340(\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203,+\331\332_\\\333\245Z+\"\211\"\326W\203\n\334\"!S\"\323\"\332\246!\205#\323\"\335\246!?\206#\323\"\336\246!)\203,+T++-)\337_)\332\245)\335\245[)\336\245\341\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\264+\331\332_\\\333\245Z+\"\211\"\326W\203\222\334\"!S\"\323\"\332\246!\205\253\323\"\335\246!?\206\253\323\"\336\246!)\203\264+T++-&+%AA\322%8T\240\210%\211((\322(8)\314)\"\323\"!\203\344\324\325!\202\210\"\326V\203~\"S)\327(\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203f+\331\332_\\\333\245Z+\"\211\"\326W\203D\334\"!S\"\323\"\332\246!\205]\323\"\335\246!?\206]\323\"\336\246!)\203f+T++-)\337_)\332\245)\335\245[)\336\245%\202\210\334\"T!)\340(\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\373+\331\332_\\\333\245Z+\"\211\"\326W\203\331\334\"!S\"\323\"\332\246!\205\362\323\"\335\246!?\206\362\323\"\336\246!)\203\373+T++-)\337_)\332\245)\335\245[)\336\245\341\211(\211(@)(\211(\211*A@*
((\322(8)\"
S\330_\\+\322V\203\203+\331\332_\\\333\245Z+\"\211\"\326W\203a\334\"!S\"\323\"\332\246!\205z\323\"\335\246!?\206z\323\"\336\246!)\203\203+T++-&+Z&,@&\307F-\343 \210\344
!.\207" [org-agenda-span span org-starting-day sd greg cnt org-agenda-check-type t agenda calendar-gregorian-from-absolute get-text-property org-day-cnt nil day 1 week 7 month 2 zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) year org-agenda-redo org-agenda-find-same-or-today-or-agenda greg2 nd arg date offset-years x day-of-year org-agenda-last-arguments org-agenda-overriding-arguments] 13 (#$ . 165237) "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 (#$ . 169547) "p"])
#@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) "\302\303\304	\"\207" [org-agenda-ndays day-of-year 1 org-agenda-change-time-span day] 3 (#$ . 169754) "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) "\302\303\304	\"\207" [org-agenda-ndays iso-week 7 org-agenda-change-time-span week] 3 (#$ . 170020) "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 (#$ . 170501) "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 (#$ . 170715) "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\204�	\n\232\203�\311\312\n\"\210\313`\314\"\206�\315\f\n#@
@
A\307F\316 \210\317 \210+\320 \210\321\322\n\"\207" [n org-agenda-span span org-starting-day sd computed org-agenda-check-type t agenda error "Viewing span is already \"%s\"" get-text-property day org-agenda-compute-time-span org-agenda-redo org-agenda-find-same-or-today-or-agenda org-agenda-set-mode-name message "Switched to %s view" org-agenda-last-arguments org-agenda-overriding-arguments] 4 (#$ . 171290)])
#@221 Compute starting date and number of days 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-time-span #[(sd span &optional n) "\306!\211A@	@\307	8\310\211'\310\211()\310*+\311=\203\371,\203\364\312\313\fE\211--\307-8)\310.&\314&!\203J�\315\316!\202\356&\317V\203\344�&S.\312-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203\314�0\321%\322_\\\323\245Z0&\211&\317W\203\252�\324&!S&\314&\322\246!\205\303�\314&\325\246!?\206\303�\314&\326\246!)\203\314�0T00-.\327_.\322\245.\325\245[.\326\245%\202\356\324&T!.\330-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203a0\321%\322_\\\323\245Z0&\211&\317W\203?\324&!S&\314&\322\246!\205X\314&\325\246!?\206X\314&\326\246!)\203a0T00-.\327_.\322\245.\325\245[.\326\245\331\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203\3510\321%\322_\\\323\245Z0&\211&\317W\203\307\324&!S&\314&\322\246!\205\340\314&\325\246!?\206\340\314&\326\246!)\203\3510T00-&+,\332#\313\202\315	+\333=\203e\334\306!!12\20312Z\202\31733\317W\203#\335\202$\3173\\Z,\203_\336\337!\210\340!@*,\341V\203N\342,\325\245!(\343,\325\",\344,\313(\206\\\307\340!8E!\335*\202\315	+\345=\203-,\203\207,\341V\203\207\342,\325\245!(\343,\325\",,\206\215\313(\206\224\fE\211--\307-8)\310.&\314&!\203\261\315\316!\202U&\317V\203K&S.\312-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\20330\321%\322_\\\323\245Z0&\211&\317W\203\324&!S&\314&\322\246!\205*\314&\325\246!?\206*\314&\326\246!)\20330T00-.\327_.\322\245.\325\245[.\326\245%\202U\324&T!.\330-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203\3100\321%\322_\\\323\245Z0&\211&\317W\203\246\324&!S&\314&\322\246!\205\277\314&\325\246!?\206\277\314&\326\246!)\203\3100T00-.\327_.\322\245.\325\245[.\326\245\331\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203P0\321%\322_\\\323\245Z0&\211&\317W\203.\324&!S&\314&\322\246!\205G\314&\325\246!?\206G\314&\326\246!)\203P0T00-&+,\206]T\313(\206e\fE\211--\307-8)\310.&\314&!\203\202\315\316!\202&&\317V\203&S.\312-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\2030\321%\322_\\\323\245Z0&\211&\317W\203\342\324&!S&\314&\322\246!\205\373\314&\325\246!?\206\373\314&\326\246!)\2030T00-.\327_.\322\245.\325\245[.\326\245%\202&\324&T!.\330-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203\2310\321%\322_\\\323\245Z0&\211&\317W\203w\324&!S&\314&\322\246!\205\220\314&\325\246!?\206\220\314&\326\246!)\203\2310T00-.\327_.\322\245.\325\245[.\326\245\331\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203!0\321%\322_\\\323\245Z0&\211&\317W\203\377\324&!S&\314&\322\246!\205\314&\325\246!?\206\314&\326\246!)\203!0T00-&+Z\202\315	+\346=\203\315	\313\211,\206<\fE\211--\307-8)\310.&\314&!\203Y\315\316!\202\375&\317V\203\363&S.\312-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203\3330\321%\322_\\\323\245Z0&\211&\317W\203\271\324&!S&\314&\322\246!\205\322\314&\325\246!?\206\322\314&\326\246!)\203\3330T00-.\327_.\322\245.\325\245[.\326\245%\202\375\324&T!.\330-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203p0\321%\322_\\\323\245Z0&\211&\317W\203N\324&!S&\314&\322\246!\205g\314&\325\246!?\206g\314&\326\246!)\203p0T00-.\327_.\322\245.\325\245[.\326\245\331\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203\3700\321%\322_\\\323\245Z0&\211&\317W\203\326\324&!S&\314&\322\246!\205\357\314&\325\246!?\206\357\314&\326\246!)\203\3700T00-&+\313\211,\206\fTE\211--\307-8)\310.&\314&!\203%\315\316!\202\311	&\317V\203\277&S.\312-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203\2470\321%\322_\\\323\245Z0&\211&\317W\203\205\324&!S&\314&\322\246!\205\236\314&\325\246!?\206\236\314&\326\246!)\203\2470T00-.\327_.\322\245.\325\245[.\326\245%\202\311	\324&T!.\330-\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203<	0\321%\322_\\\323\245Z0&\211&\317W\203	\324&!S&\314&\322\246!\2053	\314&\325\246!?\2063	\314&\326\246!)\203<	0T00-.\327_.\322\245.\325\245[.\326\245\331\211-\211-@)%-\211-\211/A@*	--\307-8)&	%S\320_\\0%\307V\203\304	0\321%\322_\\\323\245Z0&\211&\317W\203\242	\324&!S&\314&\322\246!\205\273	\314&\325\246!?\206\273	\314&\326\246!)\203\304	0T00-&+Z
.	B\207" [sd greg dg mg yg nd calendar-gregorian-from-absolute 2 nil day + 1 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 calendar-iso-from-absolute 99 org-small-year-to-year mod calendar-absolute-from-iso month year w1 y1 m1 thisweek span n date offset-years x day-of-year nt org-agenda-start-on-weekday d] 14 (#$ . 171940)])
#@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 (#$ . 177292) "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 (#$ . 177717) "p"])
(byte-code "\301B\302\301!\204�\303\301\304\305\211\"\"\210\306	\307\310#\207" [current-load-list org-hl default-boundp set-default org-make-overlay 1 org-overlay-put face highlight] 5)
#@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 (#$ . 178284)])
#@23 Detach overlay INDEX.
(defalias 'org-unhighlight #[nil "\301!\207" [org-hl delete-overlay] 2 (#$ . 178460)])
#@75 Move the highlight overlay to BEG/END, remove it before the next command.
(defalias 'org-highlight-until-next-command #[(beg end &optional buffer) "\303	\n#\210\304\305\306\"\207" [beg end buffer org-highlight add-hook pre-command-hook org-unhighlight-once] 4 (#$ . 178576)])
#@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 (#$ . 178859)])
#@41 Toggle follow mode in an agenda buffer.
(defalias 'org-agenda-follow-mode #[nil "?\301 \210\302\303\203�\304\202�\305\"\207" [org-agenda-follow-mode org-agenda-set-mode-name message "Follow mode is %s" "on" "off"] 3 (#$ . 179092) nil])
#@45 Toggle clocktable mode in an agenda buffer.
(defalias 'org-agenda-clockreport-mode #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203�\310\202�\311\"\207" [org-agenda-clockreport-mode org-agenda-check-type t agenda org-agenda-set-mode-name org-agenda-redo message "Clocktable mode is %s" "on" "off"] 3 (#$ . 179339) nil])
#@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�\203�\310\202�	?\311 \210\312 \210\313\314	\203+�\315\202,�\316\"\207" [special org-agenda-show-log org-agenda-check-type t agenda timeline (16) only (closed clock state) org-agenda-set-mode-name org-agenda-redo message "Log mode is %s" "on" "off"] 4 (#$ . 179679) "P"])
#@38 Toggle log mode in an agenda buffer.
(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 (#$ . 180279) "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 (#$ . 180799) 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 (#$ . 181135) nil])
#@60 Set the mode name to indicate all the small mode settings.
(defalias 'org-agenda-set-mode-name #[nil "\306\307\232\203�\310\202\f�\311\312\232\203�\313\202�\311	\203�\314\202 �\311\n\203(�\315\202)�\311\2031�\316\2022�\311\f:\203;�\317\202D�\f\203C�\320\202D�\311
\203S�\321\322\323
\311#\324Q\202T�\311\203l�\325=\203d�\326\202m�\327\330\"\202m�\311\203v�\331\202w�\311\260\n\332 \207" [org-agenda-ndays org-agenda-follow-mode org-agenda-include-diary org-agenda-use-time-grid org-agenda-show-log org-agenda-filter "Org-Agenda" 1 " Day" "" 7 " Week" " Follow" " Diary" " Grid" " LogAll" " Log" " {" mapconcat identity "}" t " Archives" format " :%s:" " Clock" force-mode-line-update org-agenda-archives-mode org-archive-tag org-agenda-clockreport-mode mode-name] 12 (#$ . 181463)])
(defalias 'org-agenda-post-command-hook #[nil "l\203�n\204�\302u\210\303`\300\"\206�\303e`S]\300\"	\205'�\303`\304\"\205'�\305 \207" [org-agenda-type org-agenda-follow-mode -1 get-text-property org-marker org-agenda-show] 3])
#@187 Show the priority of the current item.
This priority is composed of the main priority given with the [#A] cookies,
and by additional input from the age of a schedules or deadline entry.
(defalias 'org-agenda-show-priority #[nil "\301\302 \303\"\304\305\203�\202�\306\")\207" [pri get-text-property point-at-bol priority message "Priority is %d" -1000] 3 (#$ . 182500) nil])
#@47 Show the tags applicable to the current item.
(defalias 'org-agenda-show-tags #[nil "\303\304 \300\"\211\2031�\305\306\307\310\311#\312\313!\203#�\313\314	G\315	$\210\202+�\316\314	G\n	$\210	)\"\2024�\305\317!)\207" [tags s org-rm-props get-text-property point-at-bol message "Tags are :%s:" mapconcat identity ":" fboundp set-text-properties 0 nil remove-text-properties "No tags associated with this line"] 8 (#$ . 182885) nil])
#@59 Go to the Org-mode file which contains the item at point.
(defalias 'org-agenda-goto #[(&optional highlight) "\305`\306\"\206	�\307 \310!\311!\312	!\210~\210\nb\210\313=\2030�\314\315!\210\212\316 \203/�\317\320!\210)\321\322 \323\245!\210\324\325!\210\f\205E�\326\327 \330 \"+\207" [marker buffer pos major-mode highlight get-text-property org-marker org-agenda-error marker-buffer marker-position switch-to-buffer-other-window org-mode org-show-context agenda outline-next-heading org-flag-heading nil recenter window-height 2 run-hooks org-agenda-after-show-hook org-highlight point-at-bol point-at-eol] 3 (#$ . 183325) 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 (#$ . 183967))
#@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\"\206�\313 \314	!\315	!\311`\304\"\316\211%\317&\316\211'\212\2036�b\210n\203>�\320\202?�\317\321\320`\"\\*(p\n)r\nq\210))\316\211*+,-./01r\nq\210\212b\210\322=\203\207�\f\323\235\204\207�\324\325!\210`\326\325\211\"%\202\221�\327 d\330 T^%
b\210\331\332%\325#\203\245�&T&\202\224�*2\325=\206\270�2\247\205\270�&2V\211'\203\317�\333\334\335&\336\n!#!\204\317�\307\337!\210\340\n
%#\210r\nq\210
%|\210)\341\342!\2103\205?\343-r/q\210))\"+\343,r.q\210))\"*+\204*\205?+\203r/q\210\344 \210)*\203+r.q\210\344 \210)01/+.*\2574B\2114.\207" [major-mode marker buffer pos type dbeg org-agenda-mode error "Not in agenda" get-text-property org-marker org-agenda-error marker-buffer marker-position nil 0 1 count-lines 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\"? " buffer-name "Abort" org-remove-subtree-entries-from-agenda message "Agenda item and source killed" org-verify-change-for-undo undo-boundary dend n conf this-command buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-confirm-kill org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 184139) nil])
#@69 Archive the entry or subtree belonging to the current agenda entry.
(defalias 'org-agenda-archive #[nil "\306=\204\n�\307\310!\210\311`\312\"\206�\313 \314	!\315	!\316\212\203&�b\210n\203.�\317\202/�\320\321\317`\"\\*\fp\n
r\nq\210
)\316\211 !r\nq\210\322=\203m�\212b\210\323 \210\324\325!\210\326 \210)\202q�\307\327!\210)\"\205\313�\330rq\210
)\"\330rq\210
)\"\204\233�\205\313�\203\251�rq\210\331 \210)\203\267�rq\210\331 \210) !\257#B\211#.\207" [major-mode marker buffer pos this-command buffer-undo-list org-agenda-mode error "Not in agenda" get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-mode org-remove-subtree-entries-from-agenda org-back-to-heading t org-archive-subtree "Archiving works only in Org-mode files" org-verify-change-for-undo undo-boundary _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 185565) nil])
#@40 Move the entry to the archive sibling.
(defalias 'org-agenda-archive-to-archive-sibling #[nil "\306=\204\n�\307\310!\210\311`\312\"\206�\313 \314	!\315	!\316\212\203&�b\210n\203.�\317\202/�\320\321\317`\"\\*\fp\n
r\nq\210
)\316\211 !r\nq\210\322=\203m�\212b\210\323 \210\324\325!\210\326 \210)\202q�\307\327!\210)\"\205\313�\330rq\210
)\"\330rq\210
)\"\204\233�\205\313�\203\251�rq\210\331 \210)\203\267�rq\210\331 \210) !\257#B\211#.\207" [major-mode marker buffer pos this-command buffer-undo-list org-agenda-mode error "Not in agenda" get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-mode org-remove-subtree-entries-from-agenda org-back-to-heading t org-archive-to-archive-sibling "Archiving works only in Org-mode files" org-verify-change-for-undo undo-boundary _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 186569) 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) "\206�p\306\211\212\203�\f\204�\307\310!\210`\311\310!\210`\312
!q\210\212db\210\313\314!\210o?\205h�\315`\316\"\211\203a�\317\n!\232\203a�\320\n!\211\203a�	Y\203a�	\fX\203a�\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 get-text-property org-marker marker-buffer marker-position point-at-bol point-at-eol 0 inhibit-read-only] 3 (#$ . 187575)])
#@46 Follow the link in the current line, if any.
(defalias 'org-agenda-open-link #[nil "\300\301!\210\212\214\302 \303 }\210\304 *\207" [org-agenda-copy-local-variable org-link-abbrev-alist-local point-at-bol point-at-eol org-open-at-point] 2 (#$ . 188345) nil])
#@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 get-text-property org-marker buffer-live-p marker-buffer make-variable-buffer-local] 4 (#$ . 188610)])
#@59 Go to the Org-mode file which contains the item at point.
(defalias 'org-agenda-switch-to #[(&optional delete-other-windows) "\305`\306\"\206	�\307 \310!\311!\312	!\210\203�\303 \210~\210\nb\210\f\313=\2056�\314\315!\210\212\316 \2055�\317\320!)+\207" [marker buffer pos delete-other-windows major-mode get-text-property org-marker org-agenda-error marker-buffer marker-position switch-to-buffer org-mode org-show-context agenda outline-next-heading org-flag-heading nil] 3 (#$ . 188918) 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 (#$ . 189425) "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 (#$ . 189621) "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 (#$ . 190008) "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 (#$ . 190258) "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" [get-text-property org-agenda-diary-link org-agenda-error] 3 (#$ . 190455)])
(defalias 'org-agenda-error #[nil "\300\301!\207" [error "Command not allowed in this line"] 2])
#@333 Show the subtree corresponding to the current entry in an indirect buffer.
This calls the command `org-tree-to-indirect-buffer' from the original
Org-mode buffer.
With numerical prefix arg ARG, go up to this level and then take that tree.
With a C-u prefix, make a separate frame for this tree (i.e. don't use the
dedicated frame).
(defalias 'org-agenda-tree-to-indirect-buffer #[nil "\303 \210\304`\305\"\206\f�\306 \307!\310!r	q\210\212\nb\210\311\312!-\207" [marker buffer pos org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position call-interactively org-tree-to-indirect-buffer] 3 (#$ . 190761) nil])
#@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) (#$ . 191425))
#@37 Switch TODO entry to next sequence.
(defalias 'org-agenda-todo-nextset #[nil "\300\301!\207" [org-agenda-todo nextset] 2 (#$ . 191594) nil])
#@41 Switch TODO entry to previous sequence.
(defalias 'org-agenda-todo-previousset #[nil "\300\301!\207" [org-agenda-todo previousset] 2 (#$ . 191741) 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\"\307`\315\"\316\317 !\232\320%\321\211&\321\211'\212\203<�b\210n\203D�\322\202E�\323\324\322`\"\\*(p\n)r\nq\210))\321\211*+,-./01r\nq\210~\210b\210\325\326!\210\212\327 \203\201�\330\321!\210)23\331\332!\210)n\203\222�\322u\210\333 &\334\335!\203\264�\203\264�&\232\204\264�
\203\264�&\320'\212\336 \2104`\321\223\210*\337\322!\210\212\340&\f\341'$\210)\342!\2105\205-\343-r/q\210))\"+\343,r.q\210))\"*+\204\375�*\205-+\203r/q\210\344 \210)*\203r.q\210\344 \210)01/+.*\2576B\2116.\207" [col marker buffer pos hdmarker todayp org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position org-hd-marker day time-to-days current-time 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 _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline arg current-prefix-arg org-last-heading-marker org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 191901) "P"])
#@48 Add a time-stamped note to the entry at point.
(defalias 'org-agenda-add-note #[(&optional arg) "\305 \210\306`\307\"\206\f�\310 \311!\312!\306`\313\"\314r	q\210~\210\nb\210\315\316!\210\212\317 \2033�\320\321!\210)\322 .\207" [marker buffer pos hdmarker inhibit-read-only org-agenda-check-no-diary get-text-property 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] 3 (#$ . 193504) "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-format-agenda-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`\"\\*r\313!q\210\212\214~\210b\210\314 +\307\211'\307\211(\307\211)\307\211*\307\211+,\212db\210\315\310!\210)\204(o)\316`\317\"\211'\203!-\203\207�\307\212	\203s�	b\210n\203{�\310\202|�\311\312\310`\"\\*\nU\203!'\232\203!\320`!\316`\321\"\316`\322\"+\f,\323\324.+,\325&*\316`\326\"(\316`\327\"\316`\330\"\331(!\210*\332\232\203\337�\315\310!\210\333\334!\203!\335\332!\210\202!\333\336!\203\335*\306\211#\210\315\310!\210\337\340 \341 
#\210/\203\337\340 \341 \3420\203
\202D#\210\343\302!\210\315\310!\210\202!\344\345!\210\315\311!\210\202R�)\346 .
\207" [inhibit-read-only pos line hdmarker thetags props t nil 1 0 count-lines marker-buffer org-get-tags-at beginning-of-line get-text-property org-hd-marker text-properties-at dotime org-category org-format-agenda-item "x" noprefix prefix-length undone-face done-face org-move-to-column "" looking-at ".*\n?" replace-match ".*" add-text-properties point-at-bol point-at-eol face org-agenda-highlight-todo error "Line update did not work" org-finalize-agenda m pl finish new cat tags just-this newhead fixface org-last-todo-state-is-todo] 8 (#$ . 194012)])
#@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 \202�eb\210\311\312\205�\313 \306#\203z�\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`!\"c\210\202�eb\210\331d!,\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 text-properties-at org-font-lock-add-tag-faces] 10 (#$ . 195793)])
#@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 (#$ . 196541) 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 (#$ . 196713) nil])
#@210 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.
(defalias 'org-agenda-priority #[(&optional force-direction) "\306 \210\307`\310\"\206\f�\311 \307`\312\"\313	!\314	!\315\316\211\212\203(�b\210n\2030�\317\2021�\320\321\317`\"\\*p\nr\nq\210)\316\211 !\"#$%r\nq\210~\210b\210\322\323!\210\212\324 \203m�\325\316!\210)\326&!\210\317\210\327 )\330
	\"\210\331\317!\210'\205\336�\332!r#q\210)\"\332 r\"q\210)\"\204\256�\205\336�\203\274�r#q\210\333 \210)\203\312�r\"q\210\333 \210)$%#\"\257(B\211(.\207" [marker hdmarker buffer pos inhibit-read-only newhead org-agenda-check-no-diary get-text-property 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 this-command buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline force-direction org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 196890) nil])
#@36 Set tags for the current headline.
(defalias 'org-agenda-set-tags #[nil "\306 \210\307 \203�t\203�\310\311!\207\312 \210\313`\314\"\206�\315 \316!\317!\320\321\211\212\n\2033�\nb\210n\203;�\322\202<�\323\324\322`\"\\*
p	r	q\210)\321\211 !\"#$%&'r	q\210~\210\nb\210\212\325\326!\210)\212\327 \203y�\330\321!\210)\nb\210\310\331!\210\322\210\332 )\333\f\"\210\334\322!\210(\205\354�\335#r%q\210)\"!\335\"r$q\210)\" !\204\274� \205\354�!\203\312�r%q\210\336 \210) \203\330�r$q\210\336 \210)&'%!$ \257)B\211).
\207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-region-active-p call-interactively org-change-tag-in-region org-agenda-show get-text-property 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-set-tags org-get-heading org-agenda-change-all-lines beginning-of-line org-verify-change-for-undo undo-boundary buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 198154) nil])
#@47 Toggle the archive tag for the current entry.
(defalias 'org-agenda-toggle-archive-tag #[nil "\306 \210\307 \210\310`\311\"\206�\312 \313!\314!\315\316\211\212\n\203&�\nb\210n\203.�\317\202/�\320\321\317`\"\\*
p	r	q\210)\316\211 !\"#$%r	q\210~\210\nb\210\322\323!\210\212\324 \203j�\325\316!\210)\326\327!\210\317\210\330 )\331\f\"\210\332\317!\210&\205\332�\333!r#q\210)\"\333 r\"q\210)\"\204\252�\205\332�\203\270�r#q\210\334 \210)\203\306�r\"q\210\334 \210)$%#\"\257'B\211'.
\207" [hdmarker buffer pos inhibit-read-only newhead this-command org-agenda-check-no-diary org-agenda-show get-text-property 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 _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 199305) nil])
#@48 Change the date of this item to one day later.
(defalias 'org-agenda-date-later #[(arg &optional what) "\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 \204a�\325\326!\210\327%&\206j�\330\"\210)\331'\"\210(\203\307�\332 r\"q\210\f)\"\332r!q\210\f)\"\204\232�
\203\307�\203\250�r\"q\210\333 \210)
\203\265�r!q\210\333 \210)#$\"!
\257)B).\334\335'\"+\207" [marker buffer pos this-command buffer-undo-list _c2 org-agenda-check-type t agenda timeline org-agenda-check-no-diary get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-at-timestamp-p error "Cannot find time stamp" org-timestamp-change day org-agenda-show-new-time org-verify-change-for-undo undo-boundary message "Time stamp changed to %s" _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline arg what org-last-changed-timestamp org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 200401) "p"])
#@50 Change the date of this item to one day earlier.
(defalias 'org-agenda-date-earlier #[(arg &optional what) "\302[	\"\207" [arg what org-agenda-date-later] 3 (#$ . 201474) "p"])
#@42 Show new date stamp via text properties.
(defalias 'org-agenda-show-new-time #[(marker stamp &optional prefix) "\305\306\307\n\310R\212db\210o?\205C�\f\311`\312\"\232\203<�\313\314 GZ\305\"\210\315`!\210\316`S\317 \320\321\306\322\323$D#\210\324\325!\210\324\326!\210\202�+\207" [buffer-invisibility-spec inhibit-read-only prefix stamp marker t nil " " " => " get-text-property 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 face secondary-selection beginning-of-line 1 0] 9 (#$ . 201658)])
#@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 \204a�\325\326!\210\327#!\210\330\331$\"\210)%\205\302�\332r q\210\f)\"\332rq\210\f)\"\204\224�
\205\302�\203\242�r q\210\333 \210)
\203\257�rq\210\333 \210)!\" 
\257&B\211&.\207" [marker buffer pos this-command buffer-undo-list _c2 org-agenda-check-type t agenda timeline org-agenda-check-no-diary get-text-property 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 message "Time stamp changed to %s" org-verify-change-for-undo undo-boundary _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline arg org-last-changed-timestamp org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 202253) "P"])
#@29 Schedule the item at point.
(defalias 'org-agenda-schedule #[(arg) "\306\307\310\311\312\313\314&\210\315 \210\316`\317\"\206�\320 \321!\322!\323!\324\211	\2034�\325\326	\"\210\327\330!\210\331\307\"\210\324\212\203C�b\210n\203K�\332\202L�\333\334\332`\"\\*#p\n$r\nq\210$)\324\211%&'()*+,r\nq\210~\210b\210\335-!)\336
\337#\210.\203\340�\340(r*q\210$)\"&\340'r)q\210$)\"%&\204\261�%\203\340�&\203\277�r*q\210\341 \210)%\203\315�r)q\210\341 \210)+,*&)%\257/B/.\325\342
\".\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 get-text-property org-marker org-agenda-error marker-insertion-type marker-buffer marker-position nil message "%s" sit-for 3 set-marker-insertion-type 1 0 count-lines org-schedule org-agenda-show-new-time "S" org-verify-change-for-undo undo-boundary "Item scheduled for %s" this-command buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline arg org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 203409) "P"])
#@29 Schedule the item at point.
(defalias 'org-agenda-deadline #[(arg) "\306\307\310\311\312\313\314&\210\315 \210\316`\317\"\206�\320 \321!\322!\323\211\323\212\n\203-�\nb\210n\2035�\324\2026�\325\326\324`\"\\*
p	r	q\210)\323\211 !\"#$%&r	q\210~\210\nb\210\327'!)\330\f\331#\210(\203\311�\332\"r$q\210)\" \332!r#q\210)\" \204\232�\203\311� \203\250�r$q\210\333 \210)\203\266�r#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 get-text-property org-marker org-agenda-error marker-buffer marker-position nil 1 0 count-lines org-deadline org-agenda-show-new-time "S" org-verify-change-for-undo undo-boundary message "Deadline for this item set to %s" buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline arg org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 204524) "P"])
#@513 Select entry for agenda action, or execute an agenda action.
This command prompts for another letter.  Valid inputs are:

m     Mark the entry at point for an agenda action
s     Schedule the marked entry to the date at the cursor
d     Set the deadline of the marked entry to the date at the cursor
r     Call `org-remember' with cursor date as the default date
SPC   Show marked entry in other window
TAB   Visit marked entry in other window

The cursor may be at a date in the calendar, or in the Org agenda.
(defalias 'org-agenda-action #[nil "\305\306\307!\210\310 \211\311\232\203A�	\312=\203;�\313`\314\"\206 �\313`\315\"\211\2034�\316\n!\317\n!\223\210\306\320!\2027�\321\322!)\202\234�\321\323!\202\234�\324\232\203M�\325\326!\202\234�\327\232\203Y�\325\330!\202\234�\331\232\203f�\325\332\333\"\202\234�\334\232\203\203�\335 \336\317!!\210b\210\337\340!\210\341\f!)\202\234�\342\232\203\230�\336\317!!\210b\210\337\340!\202\234�\321\343\")\207" [ans major-mode m org-agenda-action-marker cw nil message "Select action: [m]ark | [s]chedule [d]eadline [r]emember [ ]show" read-char-exclusive 109 org-agenda-mode get-text-property org-hd-marker org-marker marker-position marker-buffer "Entry marked for action; press `k' at desired date in agenda or calendar" error "Don't know which entry to mark" "This command works only in the agenda" 115 org-agenda-do-action (org-schedule nil org-overriding-default-time) 100 (org-deadline nil org-overriding-default-time) 114 (org-remember) t 32 selected-window org-switch-to-buffer-other-window org-show-context agenda select-window 9 "Invalid agenda action %c"] 5 (#$ . 205528) nil])
#@70 Evaluate FORM at the entry pointed to by `org-agenda-action-marker'.
(defalias 'org-agenda-do-action #[(form &optional current-buffer) "\304 	\203
�\305\n!\202*�\306!\204�\307\310!\202*�r\306!q\210\212\214~\210b\210\305\n!+)\207" [org-overriding-default-time current-buffer form org-agenda-action-marker org-get-cursor-date eval marker-buffer error "No entry has bee selected for agenda action"] 2 (#$ . 207183)])
#@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\2030�b\210n\2038�\317\2029�\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\332#\210&\205\340�\333!r#q\210)\"\333 r\"q\210)\"\204\260�\205\340�\203\276�r#q\210\334 \210)\203\314�r\"q\210\334 \210)$%#\"\257'B\211'.\f\207" [arg marker hdmarker pos newhead this-command org-agenda-check-no-diary (4) org-clock-in get-text-property 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 t org-verify-change-for-undo undo-boundary buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 9 (#$ . 207608) "P"])
#@35 Stop the currently running clock.
(defalias 'org-agenda-clock-out #[(&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�
\203v�rq\210\317 \210)\f\203\203�rq\210\317 \210)
\f\257B\211.\207" [org-clock-marker pos this-command buffer-undo-list _c2 _c1 marker-buffer error "No running clock" nil 1 0 count-lines org-clock-out org-verify-change-for-undo undo-boundary _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 208663) "P"])
#@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�
\203v�rq\210\317 \210)\f\203\203�rq\210\317 \210)
\f\257B\211.\207" [org-clock-marker pos this-command buffer-undo-list _c2 _c1 marker-buffer error "No running clock" nil 1 0 count-lines org-clock-cancel org-verify-change-for-undo undo-boundary _undo2 _undo1 _buf2 _buf1 _cmd _cline org-agenda-allow-remote-undo org-agenda-undo-list] 8 (#$ . 209331) "P"])
#@112 Make a diary entry, like the `i' command from the calendar.
All the standard commands work: block, weekly etc.
(defalias 'org-agenda-diary-entry #[nil "\306\307\310\311#\210\312\313!\210\314\315!\210\316 \317\320\"A\321K`\304\307!\206#�`	\204-�\322\323\"\210\324\325\"\203A�\326\232\203E�\324\f\325\"\204E�\322\327!\210\330\324\f\325\"\206Q�\324\325\"!C\331\216\321\332M\210\333	!.\207" [char cmd oldf point mark calendar-mark-ring org-agenda-check-type t agenda timeline 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 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] 4 (#$ . 210008) nil])
#@94 Execute a calendar command from the agenda, with the date associated to
the cursor position.
(defalias 'org-agenda-execute-calendar-command #[(cmd) "\306\307\310\311#\210\312\313!\210\314`\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 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 (#$ . 211251)])
#@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 (#$ . 212006) 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 (#$ . 212227) 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 (#$ . 212432) "P"])
#@54 Open the Emacs calendar with the date at the cursor.
(defalias 'org-agenda-goto-calendar #[nil "\306\307\310\311#\210\312`\300\"\206�\313\314!\315!\316\211\316\211\316\317 \210\320	!.\207" [day date calendar-move-hook calendar-view-holidays-initially-flag calendar-view-diary-initially-flag view-calendar-holidays-initially 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 view-diary-entries-initially] 5 (#$ . 212973) 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\202�T-	\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\372�T-	\326_	\321\245	\324\245[	\325\245\330\211\211@)\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!)\203hT-&+\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] 15 (#$ . 213540) nil])
(defalias 'org-agenda-convert-date #[nil "\303\304\305\306#\210\307`\302\"\310\211\211\204�\311\312!\210\313\n!\314\315	!\316\317\320	!\316\321\322	!\316\323\324	!\316\325\326	!\327\330\331	!\332\333\334	!\332\335\336	!\316\337\340	!\332\341\342	!\316\343\344	!\316\345\346	!\316\347\350	!\316\351\352	!\316\260*\353\220\354!\221\210\355\356\353!!+\207" [s date day 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 "*Dates*" princ org-fit-window-to-buffer get-buffer-window] 43 nil nil])
#@581 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.

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.
(defalias 'org-agenda-to-appt #[(&optional refresh filter) "\306\307!\210\203\n�\310\n\311=\203�\312\313!\314\310\314\315\316\317 !!\"\320\321!#\310\211$%\322#!\210#\211A#@\211%\203Q�\323$\324%\"\325\326\327%\"$\2022�\330\310$\"$\331\332$\"\210\333\f!\210\314=\203n�\334\335!\202}�\334\336\211\337V\203{�\340\202|�\341#.\207" [refresh appt-time-msg-list filter cnt org-agenda-new-buffers org-deadline-warning-days require calendar nil t read-from-minibuffer "Regexp filter: " 0 org-date-to-gregorian time-to-days current-time org-agenda-files unrestricted org-prepare-agenda-buffers append org-agenda-get-day-entries :timestamp :scheduled :deadline delq mapc #[(x) "\306\307\310\311#\206\n�\312!\307\310\313#\307\310\314#\f?\206I�\f;\203)�\315\f	\"\206I�\f<\205I�\315\316\317\f\"\211A@)\n\"\206I�\315\316\320\f\"\211A@)	\"\211\205u�\205u�\321\322!P\315\323\"\205i�\324\310\"\325\324\326\"Q\327	\"\210T\211,\207" [x evt cat tod filter ok org-trim get-text-property 1 txt #1="" org-category time-of-day string-match assoc category headline "00" number-to-string "\$[0-9]\\{1,2\\}\$\$[0-9]\\{2\\}\$\\'" match-string ":" 2 appt-add cnt] 6] org-release-buffers message "No event to add" "Added %d event%s for today" 1 "s" #1# today files entries file] 9 (#$ . 215944) "P"])
#@66 Does DATE mean today, when considering `org-extend-today-until'?
(defalias 'org-agenda-todayp #[(date) "\306\211\n<\203~\n\211\307\n8)\306\310\f!\203 �\311\312!\202|\f\313V\203\237�\fS\314\n\211\211@)\n\211\211A@*\n\307\n8)
S\315_\\
\307V\203\213�\316
\317_\\\320\245Z\f\211\313W\203l�\321\f!S\310\f\317\246!\205\202�\310\f\322\246!?\206\202�\310\f\323\246!)\203\213�T-\324_\317\245\322\245[\323\245%\202|\321\fT!\325\n\211\211@)\n\211\211A@*\n\307\n8)
S\315_\\
\307V\203\316
\317_\\\320\245Z\f\211\313W\203\347�\321\f!S\310\f\317\246!\205\375�\310\f\322\246!?\206\375�\310\f\323\246!)\203T-\324_\317\245\322\245[\323\245\326\211\211@)\n\211\211A@*\n\307\n8)
S\315_\\
\307V\203w\316
\317_\\\320\245Z\f\211\313W\203X\321\f!S\310\f\317\246!\205n\310\f\322\246!?\206n\310\f\323\246!)\203wT-&+\327 \211\307\n8)\306\310\f!\203\226\311\312!\202\362\f\313V\203\fS\314\n\211\211@)\n\211\211A@*\n\307\n8)
S\315_\\
\307V\203\316
\317_\\\320\245Z\f\211\313W\203\342\321\f!S\310\f\317\246!\205\370\310\f\322\246!?\206\370\310\f\323\246!)\203T-\324_\317\245\322\245[\323\245%\202\362\321\fT!\325\n\211\211@)\n\211\211A@*\n\307\n8)
S\315_\\
\307V\203|\316
\317_\\\320\245Z\f\211\313W\203]\321\f!S\310\f\317\246!\205s\310\f\322\246!?\206s\310\f\323\246!)\203|T-\324_\317\245\322\245[\323\245\326\211\211@)\n\211\211A@*\n\307\n8)
S\315_\\
\307V\203\355\316
\317_\\\320\245Z\f\211\313W\203\316\321\f!S\310\f\317\246!\205\344\310\f\322\246!?\206\344\310\f\323\246!)\203\355T-&+\307\330\331 !8\211Y\203\n	U\206W\205\n	SU*\207" [h today date offset-years year month nil 2 zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-current-date decode-time current-time x day day-of-year org-extend-today-until] 13 (#$ . 217849)])
(provide 'org-agenda)

${this.title}

Code Editor : org-agenda.elc