;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 12:11:53 2008 ;;; from file /mnt/gmirror/ports/deskutils/etask/work/etask-0.3.91a/etask-todo.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; 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 "`etask-todo.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@116 If non-nil the default begin time (full hour) for the Gantt chart ToDo view is about one hour before current time. (custom-declare-variable 'etask-todo-day-begin-near-now-p 't '(#$ . 638) :type 'boolean :group 'finetuning) #@128 Default begin time (full hour) for the Gantt chart ToDo view. Only used if variable `etask-todo-day-begin-near-now-p' is nil. (custom-declare-variable 'etask-todo-day-begin '8 '(#$ . 868) :type 'integer :group 'finetuning) #@55 Default maximum effort in minutes for trivial todo's. (custom-declare-variable 'etask-todo-trivial-todo '15 '(#$ . 1098) :type 'integer :group 'finetuning) #@62 Default maximum effort in minutes for not so trivial todo's. (custom-declare-variable 'etask-todo-notsotrivial-todo '60 '(#$ . 1260) :type 'integer :group 'finetuning) #@50 Marker for a time within todo view, e.g. ^12:00. (defconst etask-todo-time-marker "^" (#$ . 1434)) #@115 Minimum width in characters needed to insert time and its marker, e.g '^12:00 '. Should be 8 or a multiple of 8. (defconst etask-todo-timewidth 8 (#$ . 1540)) #@100 Add a new todo to category TODOCAT at IXLIST. Return inserted element or nil if operation failed. (defalias 'etask-todo-insert-elements #[(todocat ixlist) "\303 \"\205 \304 \305 \n#\207" [etask-category-todoid todocat ixlist etask-cat-is-item-p etask-todo-get-initial-elementdata etask-get-labels] 4 (#$ . 1707)]) #@76 Return true if ELEMENT's bar is to insert into Gantt chart, nil otherwise. (defalias 'etask-todo-insert-elementbar-p #[(element) "\301!\207" [element etask-proj-insert-elementbar-p] 2 (#$ . 2030)]) #@50 Return true if TODO is completed, nil otherwise. (defalias 'etask-todo-is-completed-p #[(todo) "\305\306 \"!\305\306 \"!\n\247\205\f\247\205\n\fZ\307U*\207" [todo etask-db-attr-peffort planned-hours etask-db-attr-eeffort expended-hours etask-simplify-number etask-db-get 0] 4 (#$ . 2235)]) #@133 Return true if TODO's deadline can still be met. This is the case when the remaining time to the deadline is the still open part. (defalias 'etask-todo-is-onschedule-p #[(todo) "\304\305!\306 \"\306\n\"Z\307]\"\310\311\312 ! \"\206\"\313\311\312 ! \")\207" [todo etask-db-attr-peffort etask-db-attr-eeffort date etask-datetime-subtract-time etask-make-duedatetime etask-db-get 0 etask-datetime-less-p decode-time current-time etask-datetime-equal-p] 6 (#$ . 2540)]) #@48 Return true if TODO's deadline is in the past. (defalias 'etask-todo-afterdeadline-p #[(todo) "\302!\303 \304 \")\207" [todo date etask-make-duedatetime etask-datetime-less-p current-time] 3 (#$ . 3019)]) #@33 Return TODO's head as a string. (defalias 'etask-todo-get-head #[(todo) "\303\304 \"!\305!\204\306!\204\307\n\310\"\202\n)\207" [todo etask-db-attr-priority priostr number-to-string etask-db-get etask-todo-is-onschedule-p etask-todo-is-completed-p etask-apply-face etask-face-status-behindschedule] 4 (#$ . 3232)]) #@32 Return TODO's bar as a string. (defalias 'etask-todo-get-bar #[(todo) "\306\307 \"!\306\307 \"!\310\n\311_!\211X\203\312\202L X\203*\313\202L X\2035\314\202L X\203@\315\202L X\203K\316\202L\317\320!\203\\\321\322\"\202t\f\247\203o\f\323V\203o\321\324\"\202t\321\325\",\207" [todo etask-db-attr-peffort planned-hours etask-db-attr-eeffort expended-hours min etask-simplify-number etask-db-get round 60 1 2 3 4 5 6 etask-todo-is-completed-p make-string 61 0 126 45 etask-todo-no-effort etask-todo-little-effort etask-todo-standard-effort etask-todo-significant-effort etask-todo-huge-effort barlen] 5 (#$ . 3563)]) #@37 Return TODO string for Gantt chart. (defalias 'etask-todo-get-todostr #[(todo) "\301!\302\303!\304R\207" [todo etask-todo-get-bar ">(" etask-todo-get-head ")"] 4 (#$ . 4222)]) #@45 Return TODO's effort indicator as a string. (defalias 'etask-todo-get-effort-char #[(todo) "\306\307 \"!\306\307 \"!\310\n\311_!\211 W\203\312\2022  U\203*\313\2022  V\2052\314+\207" [todo etask-db-attr-peffort planned-hours etask-db-attr-eeffort expended-hours min etask-simplify-number etask-db-get round 60 "<" "" ">" etask-todo-standard-effort] 5 (#$ . 4406)]) #@137 Return number of characters to be added to leading characters if todo is not due at full hour and hour width is `etask-todo-timewidth'. (defalias 'etask-todo-adjust-tododuetime #[(tododuetime hrwidth) "A@\211\303U\203\303\202Y \304W\203\305\n\306_!\202Y \307W\203*\305\n\310_!\202Y \311W\2038\305\n\312_!\202Y \313W\203F\305\n\314_!\202Y \315W\203T\305\n\316_!\202Y\305\n\317_!)\207" [tododuetime duemin hrwidth 0 8 floor 0.125 16 0.25 23 0.375 31 0.5 46 0.75 0.875] 4 (#$ . 4792)]) #@86 Return true if DAY is within START and END. START, END, and DAY are calendar dates. (defalias 'etask-todo-is-visible-day-p #[(start end day) "\303C C\"\203\303 C\nC\"\206\304 \"\206\304 \n\"\207" [start day end calendar-date-compare calendar-date-equal] 3 (#$ . 5297)]) #@262 Return true if date DATE TIME is within the displayed Gantt chart ]chstarthr chendhr]. The structure of DATE is (month day year), and the structure of TIME is (hr min sec). If optional EVENT is non-nil then return true if date is between [chstarthr chendhr]. (defalias 'etask-todo-is-visible-time-p #[(date time &optional event) "\306!\205\215\307 !\205\215\310\n!\310 !\310\f!\310 !\311\211E\311\211E\312 8 A@ @E\306!\205\213\306!\205\213\307\311\211E!\205\213\307\311\211E!\205\213\313#\205\213\314\"\203w\314\"\206\213\203\205\315\"\206\213\315\".\207" [date time etask-stateid-chartstart etask-stateid-chartstarttime etask-stateid-chartend etask-stateid-chartendtime etask-calendardate-is-legal-p etask-time-is-legal-p etask-state-get 0 2 etask-todo-is-visible-day-p etask-time-less-p etask-time-equal-p chstarthr chendhr timet chendt chstartt chend chstart event] 9 (#$ . 5583)]) #@2  (defalias 'etask-todo-calc-hrwidth #[(daywidth) "\302 \303\304\305\306 \245!\306\304!\245!\")\207" [hrs daywidth etask-todo-get-hrnum expt 2 floor log] 6 (#$ . 6537)]) #@73 Return width of an hour. DAYWIDTH is the width of a day in characters. (defalias 'etask-todo-get-hrwidth #[nil "\303 \203\207\304 !\305\n!)\207" [etask-todo-timewidth etask-stateid-maxbarlen daywidth etask-todo-organizer-view-p etask-state-get etask-todo-calc-hrwidth] 2 (#$ . 6714)]) #@50 Return number of hours displayed in Gantt chart. (defalias 'etask-todo-get-hrnum #[nil "\305!\306 \203\n\307V\203 \n\245\202&\307\202& \fV\203% \fZ\202&\307)\207" [etask-stateid-maxbarlen daywidth etask-todo-timewidth etask-last-workinghour etask-first-workinghour etask-state-get etask-todo-organizer-view-p 0] 2 (#$ . 7010)]) #@42 Insert TODO's bar when time unit = hour. (defalias 'etask-todo-insert-daybar #[(todo) "\306 \307 !\307 !\307 !\211\nZ\310\"\310\"\211@\nZ\2038\311\"\204=?\205\320\312 \313!\211 G!\314\315 \"\"\316\"#@\nZ_#\\\211$!W\203y\317 \"\320#c\202\316@V\204\237@U\203\224A@\321V\204\237_!W\203\263\322\f!Z\323\"c\210\317 \"\320#c\202\316$!Z%\322%\323\"c\210\324 \325!!]\326#)..\207" [organizerp etask-stateid-chartstarttime chstarthr etask-stateid-maxbarlen daywidth etask-stateid-chartendtime etask-todo-organizer-view-p etask-state-get etask-db-get etask-todo-is-visible-time-p etask-todo-get-hrwidth etask-todo-get-todostr string-match ">" etask-todo-adjust-tododuetime store-substring "<" 0 make-string 32 etask-format-insert round "left" chendhr hrs todo etask-db-attr-taskend tododate etask-db-attr-taskendtime todotime earlierhrs hrwidth todostr todowidth arrowpos adjust space leadingspc] 5 (#$ . 7354)]) #@135 Insert TODO's bar in chart where CHSTART is the chart's start date, CHEND its end date, and DAYLEN the length of a day in characters. (defalias 'etask-todo-insert-bar #[(todo chstart chend daylen) "\306 \"\307 \f\n#\205\256\310 \203\311!\202\256\312 C\nC\"\203(\313 \n\"\202)\314\315!\211G\316\317\"Y\203K\320 _!\202h _ZV\203g\320 _ZZ!\202h\314\211\314W\203|\314\321\322#W\203\232 _ZW\203\232\321\322#\323\324\"c\210\325\320!]\326#-)\207" [todo etask-db-attr-taskend tododate chstart chend earlierdays etask-db-get etask-todo-is-visible-day-p etask-todo-unit-is-hr-p etask-todo-insert-daybar calendar-date-compare etask-days-between 0 etask-todo-get-todostr string-match ">" round store-substring "<" make-string 32 etask-format-insert "left" todostr todostrlen arrowpos daylen leadingspc] 5 (#$ . 8350)]) #@127 Return specific todo status for screen output. If REPORTINGP is non-nil, output is formatted for the reporting file instead. (defalias 'etask-todo-show-elementstatus #[(todo &optional reportingp) "\306 \"\307\306 \"!\307\306 \"!!\f!Z\310V\203&\307\f!Z!\202'\310\"!\310U\2038\311\312#\"\202^!\310V\203N\"\310V\203N\311\313#\"\202^\"\310U\203]\311\314#\"\202^\315$\316\306%\"\317\"&\306'\"(\320(@!)\320(A@!*\321\322\n\322Q\323\"\324\311\325#\"\326&\327)\330*G\331U\203\243\332*P\202\245*\333$\324\311\334#\"\326\335\f!\324\311\336#\"\326!\310U\203\304\337\202\310\335!!\324\311\340#\"\326\320\306+\"!\260. \207" [todo etask-db-attr-taskname name etask-db-attr-peffort planned-hours etask-db-attr-eeffort etask-db-get etask-simplify-number 0 etask-lang-msg 714 715 713 "" calendar-date-string t number-to-string etask-apply-face "'" etask-face-statusheader-onscreen " " 451 ": " ", " ":" 1 "0" "\n\n" 121 etask-get-effort-str 122 "---" 450 expended-hours open-hours etask-language statusstr etask-db-attr-taskend date etask-db-attr-taskendtime time hr min etask-db-attr-priority] 26 (#$ . 9241)]) #@47 Continue `etask-cat-edit-element' operations. (defalias 'etask-todo-edit-element #[(todo) "\301!\211\207" [todo etask-todo-edit-priority] 2 (#$ . 10400)]) #@23 Edit TODO's priority. (defalias 'etask-todo-edit-priority #[(todo) "\302 \303!#\207" [todo etask-db-attr-priority etask-db-set etask-todo-get-priority] 5 (#$ . 10563)]) #@22 Edit TODO's duedate. (defalias 'etask-todo-edit-duedate #[(todo) "\305!\306\n #\306 \307 \310\f\"\"#)\207" [todo duedate etask-db-attr-taskend etask-db-attr-taskbegin etask-db-attr-peffort etask-todo-get-duedate etask-db-set etask-todo-get-begin etask-db-get] 8 (#$ . 10740)]) #@53 Get TODO priority from minibuffer and return value. (defalias 'etask-todo-get-priority #[(todo) "\305\306\307\310 \"\n\"\"\311\312 \"\313Q\314\315\f\316\"!)\207" [todo etask-db-attr-taskname etask-longer-taskname-len-minibuf etask-language prompt format "'%s': " etask-shorten-string etask-db-get etask-lang-msg 450 " (>= 0): " string-to-number etask-read #[(x) "\302 \"\207" [etask-wholenumber-regexp x string-match] 3]] 6 (#$ . 11029)]) #@223 Return effort choice list. EEFFORT is the effort already expended. If TODOCATP or EVCATP are non-nil, then the corresponding category is the current one. If optional VAL is non-nil, then return effort value list in hrs. (defalias 'etask-todo-get-effort-choicelist #[(eeffort todocatp evcatp &optional val) "\306\307\245!\306 \310\245!\306\n\311\245!\306 \312\245!\306\f\313\245!\314\247\203KX\203K\203K\203D B\202J\315! B\247\203qX\203q\203q\203j B\202p\315! B\247\203\222X\203\222\203\213 B\202\221\315! B\247\203\263X\203\263\203\254 B\202\262\315! B\247\203\324X\203\324\203\315 B\202\323\315! B\247\203\372X\203\372\203\372\203\363 B\202\371\315! B\247\203 X\203 \203 \203 B\202\315! B\247\203FX\203F\203F\203? B\202E\315! B\247\203lX\203l\203l\203e B\202k\315! B\204y\316\317\" B \237.\207" [etask-todo-no-effort etask-todo-little-effort etask-todo-standard-effort etask-todo-significant-effort etask-todo-huge-effort choicelist etask-simplify-number 60.0 60.0 60.0 60.0 60.0 nil etask-get-effort-str etask-lang-msg 512 hugeeff sigeff stdeff littleeff noeff eeffort todocatp val etask-event-little-effort evcatp etask-event-standard-effort etask-event-significant-effort etask-event-huge-effort etask-language] 7 (#$ . 11478)]) #@73 Get planned TODO effort choice from minibuffer and return value in hrs. (defalias 'etask-todo-get-peffort #[(todo) "\306 @\211 U U\307 \"\310\n\f#\211G\311\311\312!\313P\314\315\316\"!\317!\203KU\203K\320 !\202h\317!\203g\321V\203gS\310\n\f\322$8\202h\321.\207" [currcatid etask-category-todoid todocatp etask-category-eventid evcatp todo etask-cat-get-current-item etask-db-get etask-todo-get-effort-choicelist nil etask-get-list-prompt " ? " string-to-number etask-read #[(x) "\303 \"\205\304 !\305Y\205\304 !\nX\207" [etask-wholenumber-regexp x len string-match string-to-number 1] 3] natnump etask-get-planned-effort 0 values etask-db-attr-eeffort eeffort choicelist len prompt choice] 7 (#$ . 12911)]) #@50 Extract time from STR and return list (hh mm 0). (defalias 'etask-todo-get-time #[(str) "\305\211\211\306\307\"\203\305\211\224O\202\306\310\"\2032\311 \305\211\224O!\311 \305\224T\312O!\2026\311!\306\313\"\203J\f\314W\203J\f\314\\\202Y\306\315\"\203Y\f\314U\203Y\305\f \305E,\207" [str timestr s min hr 0 string-match "\\(am\\|pm\\)" ":" string-to-int nil "pm" 12 "am"] 6 (#$ . 13677)]) #@125 Get TODO begin time from minibuffer and return as list (h m s). If optional BEGIN is non-nil, get TODO begin time instead. (defalias 'etask-todo-get-duetime #[(todo &optional begin) "\203 \304\305 \"\202\304\306 \"\307P\310\n\311\"\312 !*\207" [begin etask-language prompt choice etask-lang-msg 562 560 " ? " etask-read #[(x) "\303 \"\206 \303\n \"\207" [etask-time-raw-regexp x etask-time-ampm-regexp string-match] 3] etask-todo-get-time] 3 (#$ . 14099)]) #@113 Get TODO due date from minibuffer and return value. If optional BEGIN is non-nil, get TODO begin date instead. (defalias 'etask-todo-get-duedate #[(todo &optional begin) "\306\307\"\306\310\"\306\311\"\306\312\"\306\313\"\257\n\203\"\306\314\"\202&\306\315\"\316\317 !\320R\321\322 \323\"!\324\f\325U\203B\326 \202\207\f\327U\203Q\330\326 \325\"\202\207\f\331U\203`\330\326 \327\"\202\207\f\332U\203o\330\326 \333\"\202\207\f\334U\203\204\335\336\337!\"\"\336Q!\202\207\326  \340!\n\",D\207" [etask-language listprompt begin prompt choice begindate etask-lang-msg 540 542 544 546 512 305 451 ": " etask-get-list-prompt " ? " string-to-number etask-read #[(x) "\303 \"\205\304 !\305Y\205\304 !\nGX\207" [etask-wholenumber-regexp x listprompt string-match string-to-number 1] 3] nil 1 calendar-current-date 2 etask-add-days-to-date 3 4 7 5 etask-get-taskdate "'" etask-db-get etask-todo-get-duetime todo etask-db-attr-taskname] 7 (#$ . 14573)]) #@132 Return ToDo begin date and time. DUE is a list consisting of due date and due time list. PEFFORT is the planned effort in hours. (defalias 'etask-todo-get-begin #[(due peffort) " X\205_\n@\nA@\211@\fA@ \306 \307_ \\!\306\307_!\310Y\203;Z\202K\311 \312\"\313\314\\ZZ\307\245\307\246  \314E.D\207" [peffort etask-workinghours-per-day due date time hr round 60 nil etask-add-days-to-date -1 1440 0 min duemin fwdmin newmin] 5 (#$ . 15563)]) #@51 Get all initial todo data and store it at IXLIST. (defalias 'etask-todo-get-initial-elementdata #[(todocat todonames ixlist) "\205@\306 @\"\307\211\211\310 \311 !#\312 !\310 \f#\313 !\310  #\310 \314 \f\"#\315 \316#,\207" [todonames todocat begin due peffort todo etask-cat-generate-default-element nil etask-db-set etask-todo-get-priority etask-todo-get-peffort etask-todo-get-duedate etask-todo-get-begin etask-cat-insert-element checkuniqueness etask-db-attr-priority etask-db-attr-peffort etask-db-attr-taskend etask-db-attr-taskbegin ixlist] 6 (#$ . 16052)]) #@92 Link marked todos according to lead or lag time values entered by the user via minibuffer. (defalias 'etask-todo-link-elements #[(markedtodos) "\300\207" ["Link marked todos according to lead or lag time values entered by\nthe user via minibuffer."] 1 (#$ . 16645)]) #@42 Return true if chart's width is one day. (defalias 'etask-todo-one-day-chart-p #[nil "\304!\304 !\211\205 \n\205 \305 !\205 \305\n!\205 \306 \n\"*\207" [etask-stateid-chartstart etask-stateid-chartend end start etask-state-get calendar-date-is-legal-p calendar-date-equal] 4 (#$ . 16918)]) #@59 Return true if day view with scrolling enabled is active. (defalias 'etask-todo-organizer-view-p #[nil "\301 \205\n\302!\303\230\207" [etask-stateid-zoommodus etask-todo-one-day-chart-p etask-state-get "p"] 2 (#$ . 17221)]) #@43 Return true if chart's time unit is hour. (defalias 'etask-todo-unit-is-hr-p #[nil "\302!\303 \205 \304\230\206 \305\230\206 \306\230)\207" [etask-stateid-zoommodus zoommod etask-state-get etask-todo-one-day-chart-p "p" "d" "a"] 2 (#$ . 17453)]) #@100 Return true if ITEM is a ToDo item. ToDo items start and end at the same day and have a priority. (defalias 'etask-is-todo-item-p #[(item) "\302!\205\303!\205\304 \"\207" [item etask-db-attr-priority etask-element-is-valid-p etask-is-milestone-p etask-db-get] 3 (#$ . 17714)]) #@43 Scroll todo view to or near current hour. (defalias 'etask-todo-current-hour #[nil "\300\301!\207" [etask-todo-scroll-hours "current"] 2 (#$ . 18005) nil]) #@37 Scroll todo view to the first hour. (defalias 'etask-todo-first-hour #[nil "\300\301!\207" [etask-todo-scroll-hours "first"] 2 (#$ . 18167) nil]) #@36 Scroll todo view to the last hour. (defalias 'etask-todo-last-hour #[nil "\300\301!\207" [etask-todo-scroll-hours "last"] 2 (#$ . 18319) nil]) #@41 Scroll todo view one hour to the right. (defalias 'etask-todo-previous-hour #[nil "\300\301!\207" [etask-todo-scroll-hours "previous"] 2 (#$ . 18468) nil]) #@40 Scroll todo view one hour to the left. (defalias 'etask-todo-next-hour #[nil "\300\301!\207" [etask-todo-scroll-hours "next"] 2 (#$ . 18630) nil]) #@26 Scroll according to CMD. (defalias 'etask-todo-scroll-hours #[(cmd) "\306 \205\200\307!\307\n!\310  \311\230\203\312\313 !\202V \314\230\203)\312\315!\202V \316\230\2035\312\317!\202V \320\230\203D\307!S\315]\202V \321\230\203U\307!T\322\fZ^\202V \211 V\203g  Z\\\202m ZZ\323\"\210\323\n\f\\\"\210\324 -\207" [etask-stateid-chartstarttime currbeg etask-stateid-chartendtime currend dist cmd etask-todo-organizer-view-p etask-state-get etask-todo-get-hrnum "current" etask-todo-validate-begintime etask-todo-get-current-hour "first" 0 "last" 23 "previous" "next" 24 etask-state-set etask-cat-show-elements newbeg newend] 5 (#$ . 18783) nil]) #@98 Return Todo view begin TIME as full hour if it is valid, otherwise the closest valid begin time. (defalias 'etask-todo-validate-begintime #[(time) "\303V\203\304\305 \245^\202\306\307\n!\203#\n\304 ZX\203#\n\202&\304 Z)\207" [etask-todo-timewidth hours time 0 24 etask-get-maxbarlen 2 natnump] 3 (#$ . 19464)]) (defalias 'etask-todo-get-current-hour #[nil "\300\301\302 !8\207" [2 decode-time current-time] 3]) #@36 Insert todo timeline for day DATE. (defalias 'etask-todo-insert-timelinelabels #[(date) "\306 ?\307 !\205\310 \fZ]\205\n \245#\203;\311#!\203;#\312V\203;\313\314\315$!#\245!]\202<\313%\316 &\307'!(\311(!\203T(\202U\f\211)\317 \\\320^*\203g\321\202h\322+\307,!T-\323-\324\".\325/\3250\3251\204\212\3262!\210)*X\203\370/3)*W\205\247\323$3GZ\324\"Q/)*W\203\355)\327W\205\272\330\331)!\332Q01&)U\204\325&T)U\203\335\3330\334\"\202\3370\323\312$0GZ]\324\"Q1)%\\\211)\202\214.c\210/c\210\335c\210\336+-\337#\2101c\210\335c\210.c\210\336\340\341 4\"\203*\333\3424!\334\"\202.\3424!\n\337#\210\335c.\207" [fixedp etask-stateid-maxbarlen daylen etask-last-workinghour etask-first-workinghour hrsnum etask-todo-organizer-view-p etask-state-get 3 natnump 0 1 ceiling float etask-todo-get-current-hour etask-todo-get-hrnum 24 "" "" make-string 32 nil etask-state-clear 10 "0" number-to-string ":00 " etask-apply-face etask-face-today "\n" etask-format-insert "center" calendar-date-equal calendar-current-date calendar-date-string hrwidth etask-todo-timewidth step currhour etask-stateid-chartstarttime cstime time lasthr hint etask-stateid-maxtasklen leadingspclen leadingspc marker currtimestr timestr etask-stateid-todostate etask-todo-time-marker date] 7 (#$ . 19891)]) (byte-code "\301\302\303!\207" [etask-todo-loaded-p t provide etask-todo] 2)