;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 12:11:50 2008 ;;; from file /mnt/gmirror/ports/deskutils/etask/work/etask-0.3.91a/etask-event.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-event.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@42 Add a new event to event category EVCAT. (defalias 'etask-ev-insert-elements #[(evcat ixlist) "\303 \"\205 \304 \305 \n#\207" [etask-category-eventid evcat ixlist etask-cat-is-item-p etask-ev-get-initial-elementdata etask-get-labels] 4 (#$ . 639)]) #@76 Return true if ELEMENT's bar is to insert into Gantt chart, nil otherwise. (defalias 'etask-ev-insert-elementbar-p #[(element) "\301!\207" [element etask-proj-insert-elementbar-p] 2 (#$ . 896)]) #@287 Insert '[----' part of an event including leading spaces. BEGINTIME is the start of the event in (hr min sec). ADJUSTBEG is a non-negative integer representing the width in characters that is to add to the full hour position of the event's start when displaying it in the Gantt chart. (defalias 'etask-ev-insert-head #[(begintime adjustbeg) "\306!\307 \310 \n _ @ Z_\\\fV\2057\311\312\"c\210\313c\210\311\fZ\314Z^\315\"c-\207" [etask-stateid-chartstarttime chstarthr hrs hrwidth daywidth adjustbeg etask-state-get etask-todo-get-hrnum etask-todo-get-hrwidth make-string 32 "[" 1 45 begintime leadingspc evwidth] 4 (#$ . 1099)]) (defalias 'etask-ev-insert-tail #[(endtime adjustend) "\306!\307\n \f@ Z_\\S]\310 \311\"c\210\312c*\207" [etask-stateid-chartstarttime chstarthr adjustend hrwidth endtime dashnum etask-state-get 1 make-string 45 "]"] 5]) #@40 Insert EV's bar when time unit = hour. (defalias 'etask-ev-insert-daybar #[(ev) "\306!\306\n!\306\f!\307 \306\f!\306 !!\310\"#\"$\310\"%\"&\311 $\"'\311 &\"(\310\")\"*'\203K*\202P+\312\211E,\310\"-\".(\203d.\202o\313,@/\\^\312\211E0,@ Z1\314$,\315#2\314&0\315#3\316 4\317\"4\"\2115G^6\320,4\"7\32004\"8'\203\3422\203\342(\203\3423\203\34214_7\\9\3219\322\"c\210\3235\3244!6]\325#)\202\3142\204\372(\203\3723\203\372\32608\"\202\314'\2032\2033\204\327,7\"\202\3142\204]3\204]\311 $\"\203,,@ W\2046\330 C$C\"\203]\311 &\"\203G!0@W\204Q\330 C&C\"\203]\3214_\331\"c\202\3142\204\2133\204\213\311 &\"\203\213,@ W\203\2130@!W\203\213\317\"\332\333\334$c\202\3142\204\3133\204\313\311 $\"\203\313,@ V\203\3130@!V\203\313\317\"\332\333\332\335%:\321\312 :GZ]\322\"c\210:c)\202\314\332.\207" [etask-stateid-chartstart chstart etask-stateid-chartstarttime chstarthr etask-stateid-maxbarlen daywidth etask-state-get etask-todo-get-hrnum etask-db-get calendar-date-equal 0 24 etask-todo-is-visible-time-p event etask-todo-get-hrwidth etask-ev-get-eventstr etask-todo-adjust-tododuetime make-string 32 etask-format-insert round "left" etask-ev-insert-tail etask-ev-insert-head calendar-date-compare 45 nil effort "<" ">" hrs maxbarlen etask-stateid-chartendtime chendhr ev etask-db-attr-taskbegin begindate etask-db-attr-taskend enddate currdate-is-first-day-p currdate-is-last-day-p etask-db-attr-taskbegintime rawbegintime etask-first-workinghour begintime etask-db-attr-taskendtime rawendtime etask-workinghours-per-day endtime earlierhrs visbegintimep visendtimep hrwidth evstr evwidth adjustbeg adjustend leadingspc str] 7 (#$ . 1977)]) #@78 Return EV's bar as a string. HRWIDTH is the width of an hour in characters. (defalias 'etask-ev-get-bar #[(ev hrwidth) "\306!\205N\307V\205N\310\311 \n\"!\310\311 \f\"!\312\313\310 _!!\314Z]\315 !\2035\316\317\"\202M \247\203H \307V\203H\316\320\"\202M\316\321\"+\207" [hrwidth ev etask-db-attr-peffort planned-hours etask-db-attr-eeffort expended-hours natnump 0 etask-simplify-number etask-db-get 1 round 2 etask-todo-is-completed-p make-string 61 126 45 barlen] 5 (#$ . 3761)]) #@307 Return EV string for Gantt chart. Optional HRWIDTH is the width of an hour in characters. If optional EFFORT is non-nil, HRWIDTH is not used and EV's effort is inserted instead of a bar. If optional STRBEG or STREND is non-nil, this character is used to define the string's begin and end, respectively. (defalias 'etask-ev-get-eventstr #[(ev &optional hrwidth effort strbeg strend) "\203\202 \306 \203\307\310\n \"!\202\311\n\f\" \203\" \202#\312Q\207" [strbeg effort ev etask-db-attr-peffort hrwidth strend "[" etask-get-effort-str etask-db-get etask-ev-get-bar "]"] 5 (#$ . 4270)]) #@87 Return true if EV is at least partially visible between calendar dates START and END. (defalias 'etask-ev-is-visible-day-p #[(ev start end) "\306 \"\306\n\"\307\f \"\206L\307 \"\206L\307\f \"\206L\307  \"\206L\310 C\fC\"\203;\310\fC C\"\206L\310\fC C\"\205L\310 C C\"*\207" [ev etask-db-attr-taskbegin etask-db-attr-taskend evend evstart start etask-db-get calendar-date-equal calendar-date-compare end] 4 (#$ . 4874)]) #@133 Insert EV'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-ev-insert-bar #[(ev chstart chend daylen) "\306 \n#\205z\307 \203\310!\207\311 \"\312 C\fC\"\203&\313 \f\"\202'\314\315\316\245\317#\211GY\203G\320 _!\202S\320 _ZZ!\211\314W\203f\314\321\314\322#\323\324\"c\210\325\320!]\326#-\207" [ev chstart chend etask-db-attr-taskbegin evdate earlierdays etask-ev-is-visible-day-p etask-todo-unit-is-hr-p etask-ev-insert-daybar etask-db-get calendar-date-compare etask-days-between 0 etask-ev-get-eventstr 24.0 effort round store-substring "<" make-string 32 etask-format-insert "left" daylen evstr evstrlen leadingspc] 5 (#$ . 5318)]) #@118 Print event status after `etask-statusheader'. If REPORTINGP is non-nil, output goes to the reporting file instead. (defalias 'etask-ev-show-elementstatus #[(ev &optional reportingp) "\306 \"\306 \"\307\f\310\"\306\"\311@!\311A@!\306\"\307\310\"\306\"\311@!\311A@!G\312U\203W\313PG\312U\203e\313P\314\315\n\315Q\316\"\317\320\f\"\203\207 \321\322\323\322\260 \202\231 \321\322\323\321\322\260 Q. \207" [ev etask-db-attr-taskname name etask-db-attr-taskbegin bdate begindate etask-db-get calendar-date-string t number-to-string 1 "0" etask-apply-face "'" etask-face-statusheader-onscreen " " calendar-date-equal ", " ":" " - " etask-db-attr-taskbegintime begintime beginhr beginmin etask-db-attr-taskend edate enddate etask-db-attr-taskendtime endtime endhr endmin] 13 (#$ . 6096)]) #@53 Edit EV data not covered by etask-cat-edit-element. (defalias 'etask-ev-edit-element #[(ev) "\207" [ev] 1 (#$ . 6964)]) #@64 Get EV's planned effort from minibuffer and return changed EV. (defalias 'etask-ev-get-peffort #[(ev) "\305!\306\n #\307 \"\306\f #+\207" [ev peffort etask-db-attr-peffort due etask-db-attr-taskend etask-todo-get-peffort etask-db-set etask-ev-get-due] 4 (#$ . 7091)]) #@53 Get EV begin date from minibuffer and return value. (defalias 'etask-ev-get-begindate #[(ev) "\301\302\"\207" [ev etask-todo-get-duedate begin] 3 (#$ . 7372)]) #@137 Return event due date and time. BEGIN is a list consisting of begin date and begin time list. PEFFORT is the planned effort in hours. (defalias 'etask-ev-get-due #[(ev peffort) "\304!\305 \n\"\306 !\307 !*D\207" [ev begin peffort end etask-make-begindatetime etask-datetime-add-time etask-extract-date etask-extract-time] 3 (#$ . 7540)]) #@73 Edit EV's begin date via minibuffer. Change its end date if necessary. (defalias 'etask-ev-edit-begindate #[(ev) "\306 \307!#\310\n\"\311 \"\306 \f#+\207" [ev etask-db-attr-taskbegin etask-db-attr-peffort peffort due etask-db-attr-taskend etask-db-set etask-ev-get-begindate etask-db-get etask-ev-get-due] 5 (#$ . 7889)]) #@52 Get all initial event data and store it at IXLIST. (defalias 'etask-ev-get-initial-elementdata #[(evcat evnames ixlist) "\205\305 @\"\306\n \307\n!#\310\n!\311\n\f\312#)\207" [evnames evcat event etask-db-attr-taskbegin ixlist etask-cat-generate-default-element etask-db-set etask-ev-get-begindate etask-ev-get-peffort etask-cat-insert-element checkuniqueness] 5 (#$ . 8226)]) #@93 Link marked events according to lead or lag time values entered by the user via minibuffer. (defalias 'etask-ev-link-elements #[(markedevings) "\300\207" ["Link marked events according to lead or lag time values entered by\nthe user via minibuffer."] 1 (#$ . 8616)]) (byte-code "\301\302\303!\207" [etask-ev-loaded-p t provide etask-event] 2)