;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 12:11:51 2008 ;;; from file /mnt/gmirror/ports/deskutils/etask/work/etask-0.3.91a/etask-proj.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-proj.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@2  (defvar etask-task-alist nil (#$ . 636)) #@91 Add a new task to PROJECT at IXLIST. Return inserted element or nil if operation failed. (defalias 'etask-proj-insert-elements #[(project ixlist) "\303 \"\205 \304 \305 \n#\207" [etask-category-projectid project ixlist etask-cat-is-item-p etask-proj-get-initial-elementdata etask-get-labels] 4 (#$ . 684)]) #@55 Edit task data not covered by etask-cat-edit-element. (defalias 'etask-proj-edit-element #[(task) "\207" [task] 1 (#$ . 1000)]) #@76 Return true if ELEMENT's bar is to insert into Gantt chart, nil otherwise. (defalias 'etask-proj-insert-elementbar-p #[(element) "\306!\306 !\307\310\f \"C C\"\206\307\nC\310\f \"C\"*?\207" [etask-stateid-chartstart etask-stateid-chartend chartend chartstart element etask-db-attr-taskend etask-state-get calendar-date-compare etask-db-get etask-db-attr-taskbegin] 5 (#$ . 1135)]) #@63 Get all initial task data, store it at IXLIST, and return it. (defalias 'etask-proj-get-initial-elementdata #[(proj tasknames ixlist) "\205/\304 @\" \204\305\306\n \307#\210A\203-\n\310 A\311 !\312 !@TC\244#B\n)\207" [tasknames proj tasks ixlist etask-cat-generate-default-element (1) etask-cat-insert-element checkuniqueness etask-proj-get-initial-elementdata butlast last] 7 (#$ . 1528)]) #@92 Link marked tasks according to lead or lag time values entered by the user via minibuffer. (defalias 'etask-proj-link-elements #[(markedtasks) "A@\306\n \"\306\n \"\307 !!\310\"\310#\310$\310%\310&\310'\310( \203/\311\312\n!@!\210\313 \210 @\"\312\"!(\306\")\"#\306\" \"$!\203a\314#$\"\202g\315#$\"%\316\317!\203x\320\321*\"\202}\320\322*\"\323\324\325\f+\"\"\320\326*\"\323\327\325\306\" \"+\"\"R\330\331C#C\"\203\274\332!\203\262\314#\"\202\270\315#\"!\202\324\332!\203\314\314#\"[\202\323\315#\"[!#!&\333\211\")!\203\354\334&\"\202\362\335&\"# !\203\334&%\\\"\202\335&%\\\"#'\336'(\"\210'\306' \"\306' \" A\211\2040\313 .\f\207" [markedtasks linklist pretask etask-db-attr-taskname prename etask-db-attr-taskend etask-db-get etask-state-get nil etask-goto-elementline etask-cat-get-elementindex etask-cat-show-elements etask-business-days-between etask-days-between string-to-number etask-read etask-lang-msg 180 181 format " '%s' " etask-shorten-string 704 " '%s': " #[(x) "\302 \"\207" [etask-integernumber-regexp x string-match] 3] calendar-date-compare number-to-string etask-db-set etask-add-businessdays-to-date etask-add-days-to-date etask-cat-store-element preend etask-stateid-businessdays bizdaysp succtask succbegin succend succduration daysbetwtasks linktask linkix etask-db-attr-taskbegin etask-language etask-longer-taskname-len-minibuf] 12 (#$ . 1936)]) #@117 Print task status after `etask-statusheader'. If REPORTINGP is non-nil, output goes to the reporting file instead. (defalias 'etask-proj-show-elementstatus #[(task &optional reportingp) "\306 \"\307\306 \"!\307\306 \"!@\f@Z\310V\203&\307\f@Z!\202'\310AB\310U\2034\310\202<\311\312\f!B\245!CB\310U\203I\310\202R\311\312@!B\245!DB\310U\203_\310\202h\311\312A!B\245!EA@\\\310U\203x\310\202\206\311\312@!A@\\\245\313_!FA@\\\310U\203\226\310\202\244\311\312A!A@\\\245\313_!G\314\315\211F!G\315G!G]!\316QH\317\f!\203\310\fB\246\310U?\205\311\320I\317A!\203\335AB\246\310U?\205\336\320J\317@!\203\362@B\246\310U?\205\363\320KA@\\\310V\205\317\307\312@!A@\\\245\313_!!?\211LML\203\321\202(M\203'\322\202(\323NM\2033\321\202=L\203<\322\202=\323OI\203H\321\202WK\204RJ\203V\322\202W\323PJ\203b\321\202qK\204lI\203p\322\202q\323QK\203|\321\202\213J\204\206I\203\212\322\202\213\323R\314\315\324\325S\"G\324\326S\"G]\324\327S\"G]!\316QT\314\315\211\f!G\315@!G]\315A!G]!\316QU\314\315\211C!G\315D!G]\315E!G]!\316QV\330\331\332\"W\330\333\334\"X\335\f!\211Y?\205\375\335A!\204\373\335@!\205\375WZ\335@!\211[?\205\335A!\204\335\f!\205W\\\335A!\211]?\2055\335@!\2043\335\f!\2055W^\335C!_\335D!\211`?\205Q\335E!\205QXa\335E!\211b?\205g\335D!\205gXc\336!d\306e\"f\337g\324\340S\"G\324\341S\"G]\324\342S\"G]hi\203\245\343\324\344S\"\345P\346\"\343\n\346\"P\202\255\343\347\nP\350\"\260i\203\271\343\347\346\"\202\275\343\347\350\"i\205\303\351\352\306j\"k\230\203\350\343\324\340S\"\353hT\324\340S\"GZ\354\"P\355\"\2027\306j\"l\230\203\f\343\324\341S\"\353hT\324\341S\"GZ\354\"P\356\"\2027\306j\"m\230\2030\343\324\342S\"\353hT\324\342S\"GZ\354\"P\357\"\2027\353nGT\354\"\360!\203I\361\306o\"\320\211#\202p\361\306o\"\320\211#\362\361\306p\"\320\211#\363\364\306o\"\306p\"\"\365\366!\367\260\370f\371\230\203\220\372!\360!\203\205\323\202\214\373\324\374S\"PP\202\310f\375\230\203\257\376!\360!\203\244\323\202\253\373\324\377S\"PP\202\310\201r!\360!\203\276\323\202\307\373\324\201sS\"PP\370\360!\203\323\323\202\201tT\324\325S\"\"\201u\201tU\315\f!\"\322Y\203\370\324\332S\"\202\375\324\331S\"Z\201vP\201tV\315C!\"\322_\203\324\334S\"\202!\324\333S\"C\201wV\205:\365\315\307\312C!q\245!!\201xQ\367\351\201tT\324\326S\"\"\201u\201tU\315@!\"\322[\203b\324\332S\"\202g\324\331S\"\\\201vR\201tV\315D!\"\322`\203\206\324\334S\"\202\213\324\333S\"a\322\324\201yS\"\322N\201tH\315F!\"\201z\351\201tT\324\327S\"\"\201u\201tU\315A!\"\322]\203\314\324\332S\"\202\321\324\331S\"^\201vQ\201tV\315E!\"\322b\203\360\324\334S\"\202\365\324\333S\"c\322\324\201yS\"\322O\201tH\315G!\"\201{\2603d\201|V\204!d\310U\203b\315d!\322\324\201}S\"\201v\364\201~ \201\201~ d\"\201\200#\201\201\360!\203V\324\201\202S\"\202]\324\201\203S\"\260\202<d\201|U\203\254\315d!\322\324\201\204S\"\201v\364\201~ \201\201~ d\"\201\200#\201\201\360!\203\240\324\201\202S\"\202\247\324\201\203S\"\260\202<d\201\205U\203\372\315\201\206d!!\322\324\201\204S\"\201v\364\201~ \201\201~ d\"\201\200#\201\201\360!\203\356\324\201\207S\"\202\365\324\201\210S\"\260\202<\315\201\206d!!\322\324\201}S\"\201v\364\201~ \201\201~ d\"\201\200#\201\201\360!\2033\324\201\207S\"\202:\324\201\210S\"\260\360!\205Ki?\205K\201\211\260\f\211g.(\207" [task etask-db-attr-taskname taskname etask-db-attr-peffort planned-hours etask-db-attr-eeffort etask-db-get etask-simplify-number 0 round float 100 "%" number-to-string "s" natnump t "~" " " "" etask-lang-msg 760 765 767 etask-get-alignment-string 761 762 763 764 etask-num-plural-s etask-calculate-timetoplannedend nil 740 741 742 etask-apply-face 778 " '" etask-face-task-on-report "'" etask-face-statusheader-onscreen "\n" "\n " make-string 32 etask-face-normaltask etask-face-highrisktask etask-face-criticaltask etask-is-milestone-p calendar-date-string " -- " " (" etask-calculate-business-days-string ", " etask-calculate-fte-string ")" "\n\n" "s-shape-65" etask-calculate-taskstatus-s-shape-65 " " 600 "s-shape-70" etask-calculate-taskstatus-s-shape-70 601 expended-hours open-hours etask-workinghours-per-day planned-days expended-days open-days expendedpercent openpercent percentformatstr planned-days-rounded-p open-days-rounded-p expended-days-rounded-p expendedpercent-rounded-p openpercent-rounded-p expendedpercent-round-symbol openpercent-round-symbol planned-days-round-symbol open-days-round-symbol expended-days-round-symbol etask-language labelsformatstr hoursformatstr daysformatstr hoursalignmentstr daysalignmentstr planned-hours-plural-p planned-hours-align-spc expended-hours-plural-p expended-hours-align-spc open-hours-plural-p open-hours-align-spc planned-days-plural-p expended-days-plural-p expended-days-align-spc open-days-plural-p open-days-align-spc timeremaining etask-db-attr-tracking tracking status maxtypelen reportingp etask-db-attr-tasktype etask-normaltask-string etask-highrisktask-string etask-criticaltask-string etask-statusheader etask-db-attr-taskbegin etask-db-attr-taskend etask-workingdays-per-week etask-calculate-taskstatus-linear 602 format ": " " (" 4 " weeks" 766 "%)" "%)\n\n" 1 706 calendar-current-date etask-add-days-to-date between ") " 770 768 720 -1 abs 771 769 "\n\n\n\n "] 63 (#$ . 3418)]) #@135 Set planned effort for current task or, if there are marked tasks, for all marked tasks according to values collected via minibuffer. (defalias 'etask-proj-set-peffort #[nil "\306 \307\307\307\307\205S\310@!\311 \"\312V\205!\311 \"\313 \"\314\f\312U\203@\314\211 \311 \"#\312#\202A \315\f!#\316 !\210A\211\204\307-\207" [editlist element peffort oldpeffort newpeffort etask-db-attr-peffort etask-get-ixlist-to-be-edited nil etask-cat-get-element etask-db-get 0 etask-get-planned-effort etask-db-set etask-simplify-number etask-cat-store-element etask-db-attr-taskend etask-db-attr-taskbegin etask-db-attr-eeffort] 9 (#$ . 9007)]) #@67 Create associated list of task names used for completion reading. (defalias 'etask-proj-create-tasks-alist #[nil " P\211;\205G\nG\306V\205G\307\n!\205Gr\310\311\312\n!q\210eb\210m\204B\306y\210\313`\314\315!\"\316 ! D\fB T\310y\210\202#*\f\237\211)\207" [etask-working-dir etask-tasklist-filename file l etask-task-alist line 0 file-readable-p 1 nil find-file-noselect buffer-substring-no-properties re-search-forward "$" etask-string-trim] 5 (#$ . 9672)]) (byte-code "\301\302\303!\207" [etask-proj-loaded-p t provide etask-proj] 2)