;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 12:11:48 2008 ;;; from file /mnt/gmirror/ports/deskutils/etask/work/etask-0.3.91a/etask-cat.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-cat.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@22 Project category ID. (defconst etask-category-projectid 1000 (#$ . 635)) #@19 ToDo category ID. (defconst etask-category-todoid 1001 (#$ . 714)) #@20 Event category ID. (defconst etask-category-eventid 1002 (#$ . 787)) #@30 Current project category ID. (defconst etask-category-currprojectid 1004 (#$ . 862)) #@27 Current ToDo category ID. (defconst etask-category-currtodoid 1005 (#$ . 953)) #@28 Current event category ID. (defconst etask-category-curreventid 1006 (#$ . 1038)) #@2  (defvar etask-cat-alist nil (#$ . 1125)) #@228 Show ELEMENTS of ITEM and the status of the current element in Gantt chart. If optional LEVEL is non-nil, show only ELEMENTS with levels not greater than LEVEL. One means top level, 2 is the first subelement level and so on. (defalias 'etask-cat-show-elements #[(&optional level) "\306 \211@A@\307 t\203\"\310\f\311\"\203\"\312\f\313\311#\210\313\202&\310\f\311\"\314 \210\313,\315 \210\316 \n\"\203\366\313-\313.\317/!\3170!\\\320\\1\321 !2\322\3233\"\324P4\322\3253\"\326P5\3176!7\3138\3139\327 8\330 9\331:!\203\215:\332V\203\215\3336:\"\210\202\236\3317!\203\2337:\202\236\320:\334\335 \332:S#\210\3369!\210\337c\2108\34018GZ2GZ\341\"2\342 \205\332\34014GZ5GZ\343Z\341\"5\3444R\342\260c\210\345;\346\"c\210\347 \210\350 !\210\351\352 !. \202\375\315 \210\353\211,-\207" [curritem catid item line etask-ctrl-onlinehelp helpp etask-cat-get-current-item etask-current-line etask-get-control-item main etask-set-control-item nil etask-states-update erase-buffer etask-cat-civalid-p etask-state-get 1 etask-generate-helpshortcut etask-lang-msg 782 ": x" 783 ": r" etask-generate-item-info etask-get-daylen natnump 0 etask-state-set etask-generate-chart etask-cat-get-current-elementlist etask-insert-datelabels "\n\n" make-string 32 "\n" 2 " " etask-apply-face etask-face-statusheader-onscreen etask-fit-window etask-goto-line etask-cat-show-elementstatus etask-cat-get-current-elementindex t buffer-read-only maxnamelen maxbarlen etask-stateid-maxtasklen etask-stateid-maxbarlen maxwidth helpkeys etask-language executekey repeatkey etask-stateid-level currlevel msg daylen level etask-statusheader] 9 (#$ . 1174) "P"]) #@93 Show ELEMENTS of ITEM in Gantt chart and display help information below status information. (defalias 'etask-cat-show-elements-with-help #[nil "\301\302\303#\210\304 \207" [etask-ctrl-onlinehelp etask-set-control-item t main etask-cat-show-elements] 4 (#$ . 2860) nil]) #@32 Sort elements of current item. (defalias 'etask-cat-sort-elements #[nil "\306 \205[\307 @\211 U\205Z\310 \311\312 \"\311\313 \"\314\f D\311\315 \"\"\316\f\230\203<\317\320\n\321\"\202K \230\203K\317\320\n\322\"\205Y\323\n\316\211\324$\210\325 -)\207" [catid etask-category-todoid elements etask-language prio-date date-prio etask-interactive-preconditions etask-cat-get-current-item etask-cat-get-current-elementlist etask-lang-msg 650 655 etask-get-chosen-list-element 640 nil t sort etask-cat-sortfunc-priority-taskendtime etask-cat-sortfunc-taskendtime-priority etask-write-elements erase etask-cat-show-elements s sortedp] 6 (#$ . 3137) nil]) #@27 Edit the current element. (defalias 'etask-cat-edit-element #[nil "\306 \205\236\307!?\205\236\310 \311 \211\n<\205\235\312 @\312 A@\313 \f\"\205\234\314\315\n\"!\316\n# U\203H\317\n!\202a U\203V\320\n!\202a  U\203a\321\n!\322 !\210\323\n \"\210\324 \f #\203\225\325 \f #\325 \f\n#!\"\326\"!\203\224\327\"!\330#\210\331\"!\210*\332 !\210\333 )*+\207" [etask-stateid-archive currix element elementtodelete item catid etask-interactive-preconditions etask-state-get etask-cat-get-current-elementindex etask-cat-get-current-element etask-cat-get-current-item etask-cat-civalid-p etask-get-taskname etask-db-get etask-db-set etask-proj-edit-element etask-todo-edit-element etask-ev-edit-element etask-cat-delete-element etask-cat-store-element etask-cat-elementnotes-p etask-cat-get-elementnotes-filename file-readable-p copy-file 1 delete-file etask-cat-goto-elementindex etask-cat-show-elements etask-db-attr-taskname name etask-category-projectid etask-category-todoid etask-category-eventid newfname oldfname] 6 (#$ . 3816) nil]) #@298 Link marked elements according to lead or lag time values entered by the user via minibuffer. A negative number it is interpreted as lead time. LEAD TIME: successor element overlaps with its predecessor element LAG TIME: waiting period after an element before the next linked element can begin (defalias 'etask-cat-link-elements #[nil "\306 \205N\307!?\205N\310 \211<\205M\311 \211@\nA@\312 \f\"\205L U\2031\313 !\202L U\203>\314 !\202L U\203K\315 !\202L\316+)\207" [etask-stateid-archive marked curritem catid item etask-category-projectid etask-interactive-preconditions etask-state-get etask-cat-get-marked-elements etask-cat-get-current-item etask-cat-civalid-p etask-proj-link-elements etask-todo-link-elements etask-ev-link-elements nil etask-category-todoid etask-category-eventid] 4 (#$ . 4893) nil]) #@35 Add notes to the current element. (defalias 'etask-cat-elementnotes #[nil "\302 \205\303!?\205r\304 \211\205\305 !q*\207" [etask-stateid-archive filename etask-interactive-preconditions etask-state-get etask-cat-get-elementnotes-filename find-file] 3 (#$ . 5731) nil]) #@35 Add, delete, or rename a project. (defalias 'etask-cat-admin-categories #[(&optional prompt) "\306 \210\307\310 \311\312 \"P\"\313\n!\314 !G\315 !\316P\f\317U\203' \202<\315 !\320\311\321 \"\322\311\323 \"\324\311\325 \"\326\260\260\3275!\203I\330 \210\f\317U\203S\331\202Y\332\333\334\"!\2116\331U\203\217\333 \335\"7\336 7\"\203\204\337 7\"\210\340 \203\341 \202\213\342 \202\213\343\344\311\345 \"\")\2026\346U\203\321\314 !8\3478!\350P\351 \332\333\352\"!S88\"\203\302\342 \210\353 A@?\205\315\354 \202\315\343\344\315 !\311\355 \"P\")\2026\356U\203\357 \210\314 !\36098\3478!\350P\332\333\361\"!9\362 9S88\333 \363\"#\203\342 \202\343\344\315 !\311\364 \"P\"*\202\360.\207" [prompt etask-language catname catid itemnum promptforname etask-states-save etask-get-chosen-list-element etask-cat-get-catnamelist etask-lang-msg 380 etask-cat-get-catid etask-cat-get-itemlist etask-cat-get-catitemname " [ a-zA-Z0-9_?!-]: " 0 " (1) " 300 " (2) " 301 " (3) " 299 " ? " etask-state-get etask-cat-toggle-archive 1 string-to-number etask-read #[(x) "\301!\302Y\205 \301!\303X\207" [x string-to-number 1 3] 2] #[(x) "\301\302\"\207" [x string-match "^[ a-zA-Z0-9_?!-]+$"] 3] etask-cat-insert-item etask-cat-set-current-item etask-cat-is-current-elementlist-empty-p etask-cat-insert-elements etask-cat-show-elements error "%s" 1006 2 etask-get-list-prompt " ? " etask-cat-delete-item-p #[(x) "\302!\303Y\205 \302! X\207" [x itemnum string-to-number 1] 2] etask-cat-get-current-item etask-cat-switch-item 1007 3 save-some-buffers nil #[(x) "\302!\303Y\205 \302! X\207" [x itemnum string-to-number 1] 2] etask-cat-rename-item-p #[(x) "\301\302\"\207" [x string-match "^[ a-zA-Z0-9_?!-]+$"] 3] 1011 etask-stateid-archive cmd name itemlist input] 10 (#$ . 6014) nil]) #@34 Switch to another category item. (defalias 'etask-cat-switch-item #[(&optional prompt) "\306 \210\307\310 \311\312 \"P\"\313\n!\314 !\211\205!\307\f\311\312 \"\"\fG ;\203Q\315V\203Q\316 \"\210\317!\203D\320 \210\202G\321 \210\322 \205X\323 \202X\324\325\311\326 \"\"-\207" [prompt etask-language catname catid itemlist item etask-states-save etask-get-chosen-list-element etask-cat-get-active-categorynames etask-lang-msg 380 etask-cat-get-catid etask-cat-get-itemlist 0 etask-cat-set-current-item etask-state-get etask-cat-toggle-archive etask-cat-show-elements etask-cat-is-current-elementlist-empty-p etask-cat-insert-elements error "%s" 1005 len etask-stateid-archive] 7 (#$ . 7853) nil]) #@93 Switch to current archive or, if archive is already displayed, switch back to current item. (defalias 'etask-cat-toggle-archive #[nil "\305!\306 \211@\nA@ \203&\307!\210\310\311\f\"\203/\f\312\211\224O\202/\313\314\"\210\f\315P\316 \f\"\210\317 ,\207" [etask-stateid-archive archivep curritem catid item etask-state-get etask-cat-get-current-item etask-state-clear string-match "\\." 0 etask-state-set "archive" ".archive" etask-cat-set-current-item etask-cat-show-elements] 4 (#$ . 8571) nil]) #@199 Set planned effort for current element according to values collected via minibuffer. If project category is current and if there are marked tasks, a new planned effort is set for all marked tasks. (defalias 'etask-cat-set-planned-effort #[nil "\306 \205d\307!?\205d\310 \211@ A@\311 \312\nU\203J\313\f!\314\f #\314\f\315\316\f\"\316\f\"D \"#\317\f\320 \"\210\202a\nU\203^\321\f!\322\f\320 \"\210\202a\323 \210\324 -\207" [etask-stateid-archive curritem catid item element peffort etask-interactive-preconditions etask-state-get etask-cat-get-current-item etask-cat-get-current-element nil etask-todo-get-peffort etask-db-set etask-todo-get-begin etask-db-get etask-write-element etask-cat-get-current-elementindex etask-ev-get-peffort etask-cat-insert-element etask-proj-set-peffort etask-cat-show-elements etask-category-todoid etask-db-attr-peffort etask-db-attr-taskbegin etask-db-attr-taskend etask-db-attr-taskendtime etask-category-eventid] 9 (#$ . 9085) nil]) #@166 Create associated list of different categories EtaskMode supports. Structure: ( categoryid . ( filename categoryname newelementstr itemname elementname) ) (defalias 'etask-cat-create-cat-alist #[nil " \306\307\n\310#\306\311\n\310#\306\312\n\310#\306\313\n\310#\257B \f\306\314\n\310#\306\315\n\310#\306\316\n\310#\306\317\n\310#\257B \306\320\n\310#\306\321\n\310#\306\322\n\310#\306\323\n\310#\257BE\211\207" [etask-category-projectid etask-tasks-filename etask-language etask-category-todoid etask-todos-filename etask-category-eventid etask-lang-msg 400 init 410 420 430 401 411 421 431 402 412 422 432 etask-events-filename etask-cat-alist] 11 (#$ . 10088)]) #@84 Return true if CATID is a valid category identifier and ITEM is a valid item name. (defalias 'etask-cat-civalid-p #[(catid item) "\302!\205 \303 !\207" [catid item etask-cat-is-valid-catid-p etask-cat-is-valid-item-p] 2 (#$ . 10776)]) #@69 Return true if CATID is a valid category identifier, nil otherwise. (defalias 'etask-cat-is-valid-catid-p #[(catid) "\305!\205& \306\211\211\203$\307\f@!U\203\310\306\fA\211\204 +\207" [catid etask-cat-alist cat valid list natnump nil etask-cat-get-catid-alist t] 4 (#$ . 11019)]) #@58 Return true if ITEM is a valid item name, nil otherwise. (defalias 'etask-cat-is-valid-item-p #[(item) ";\205\302 !\203\303\304\305!\"\207\303\306\305!\"\207" [item etask-stateid-archive etask-state-get string-match "^[ \\.a-zA-Z0-9_?!-]+$" etask-cat-trim-current-id "^[ a-zA-Z0-9_?!-]+$"] 4 (#$ . 11320)]) #@87 Return the category id in ALISTEL, the alist element of a category returned by assoc. (defalias 'etask-cat-get-catid-alist #[(alistel) "<\205@\207" [alistel] 1 (#$ . 11640)]) #@85 Return the file name in ALISTEL, the alist element of a category returned by assoc. (defalias 'etask-cat-get-catfile-alist #[(alistel) "<\205A@\207" [alistel] 1 (#$ . 11825)]) #@89 Return the category name in ALISTEL, the alist element of a category returned by assoc. (defalias 'etask-cat-get-catname-alist #[(alistel) "<\205 AA@\207" [alistel] 1 (#$ . 12011)]) #@95 Return the category name query in ALISTEL, the alist element of a category returned by assoc. (defalias 'etask-cat-get-catnamequery-alist #[(alistel) "<\205\nAAA@\207" [alistel] 1 (#$ . 12202)]) #@113 Return the general name of an item in a category in ALISTEL, the alist element of a category returned by assoc. (defalias 'etask-cat-get-catitemname-alist #[(alistel) "<\205 AAAA@\207" [alistel] 1 (#$ . 12407)]) #@116 Return the general name of an element in a category in ALISTEL, the alist element of a category returned by assoc. (defalias 'etask-cat-get-catelementname-alist #[(alistel) "<\205\fAAAAA@\207" [alistel] 1 (#$ . 12629)]) #@42 Return list containing all category IDs. (defalias 'etask-cat-get-catidlist #[nil "\303\211\203\304\n@! B\nA\211\204 \237*\207" [etask-cat-alist catlist list nil etask-cat-get-catid-alist] 3 (#$ . 12858)]) #@56 Return string list containing all category file names. (defalias 'etask-cat-get-catfilelist #[nil "\303\211\203\304\n@! B\nA\211\204 \237*\207" [etask-cat-alist catlist list nil etask-cat-get-catfile-alist] 3 (#$ . 13079)]) #@51 Return string list containing all category names. (defalias 'etask-cat-get-catnamelist #[nil "\303\211\203\304\n@! B\nA\211\204 \237*\207" [etask-cat-alist catlist list nil etask-cat-get-catname-alist] 3 (#$ . 13318)]) #@58 Return string list containing all category name queries. (defalias 'etask-cat-get-catnamequerylist #[nil "\303\211\203\304\n@! B\nA\211\204 \237*\207" [etask-cat-alist catlist list nil etask-cat-get-catnamequery-alist] 3 (#$ . 13552)]) #@89 Return string list containing all general item names of their corresponding categories. (defalias 'etask-cat-get-catitemnamelist #[nil "\303\211\203\304\n@! B\nA\211\204 \237*\207" [etask-cat-alist catlist list nil etask-cat-get-catitemname-alist] 3 (#$ . 13803)]) #@102 Return string list containing all general element names of their corresponding items and categories. (defalias 'etask-cat-get-catelementnamelist #[nil "\303\211\203\304\n@! B\nA\211\204 \237*\207" [etask-cat-alist catlist list nil etask-cat-get-catelementname-alist] 3 (#$ . 14084)]) #@75 Return category ID for category name CATNAME or nil as failure indicator. (defalias 'etask-cat-get-catid #[(catname) ";\2053 \305\211\211\2031\306\f@!\211;\203*\n\230\203*\307\f@!\305\211\202\f\fA\211\204 +\207" [catname etask-cat-alist listname catid list nil etask-cat-get-catname-alist etask-cat-get-catid-alist] 4 (#$ . 14383)]) #@83 Return category control file name for category CATID or nil if no category found. (defalias 'etask-cat-get-catfilename #[(catid) "\303!\205\304\305 \"!\211;\205\nG\306V\205\n)\207" [catid etask-cat-alist file etask-cat-is-valid-catid-p etask-cat-get-catfile-alist assoc 0] 5 (#$ . 14738)]) #@76 Return category name query for category CATID or nil if no category found. (defalias 'etask-cat-get-catfilenamequery #[(catid) "\303!\205\304\305 \"!\211;\205\nG\306V\205\n)\207" [catid etask-cat-alist query etask-cat-is-valid-catid-p etask-cat-get-catnamequery-alist assoc 0] 5 (#$ . 15043)]) #@74 Return general item name for category CATID or nil if no category found. (defalias 'etask-cat-get-catitemname #[(catid) "\303!\205\304\305 \"!\211;\205\nG\306V\205\n)\207" [catid etask-cat-alist itemname etask-cat-is-valid-catid-p etask-cat-get-catitemname-alist assoc 0] 5 (#$ . 15352)]) #@77 Return general element name for category CATID or nil if no category found. (defalias 'etask-cat-get-catelementname #[(catid) "\303!\205\304\305 \"!\211;\205\nG\306V\205\n)\207" [catid etask-cat-alist elementname etask-cat-is-valid-catid-p etask-cat-get-catelementname-alist assoc 0] 5 (#$ . 15656)]) #@70 Return category name for category CATID or nil if no category found. (defalias 'etask-cat-get-catname #[(catid) "\304!\205)\305 \306 \307 \203' @U\203\n@\307 A\nA\202 +\207" [catid catname catnamelist catidlist etask-cat-is-valid-catid-p etask-cat-get-catidlist etask-cat-get-catnamelist nil] 3 (#$ . 15972)]) #@86 Return list of category IDs that have active items, nil if no such categories exist. (defalias 'etask-cat-get-active-categories #[nil "\304\211\211\203 \305 @!\306 !\204 \nB A\211\204\n\n+\207" [etask-cat-alist catid catlist list nil etask-cat-get-catid-alist etask-cat-is-itemlist-empty-p] 4 (#$ . 16303)]) #@88 Return list of category names that have active items, nil if no such categories exist. (defalias 'etask-cat-get-active-categorynames #[nil "\302 \303\211\203\304 @!B A\211\204 *\207" [names list etask-cat-get-active-categories nil etask-cat-get-catname] 3 (#$ . 16628)]) #@82 Return string list containing all items of CATEGORY or nil as failure indicator. (defalias 'etask-cat-get-itemlist #[(catid) "\304!\205;\305!\211;\205: G\306V\205:\307r\310 P!q\210\311 \306V\205-\312e\313\314!\"\211G\306V\2059\315\n!@*)\207" [catid filename filecontent etask-working-dir etask-cat-is-valid-catid-p etask-cat-get-catfilename 0 nil find-file-noselect buffer-size buffer-substring-no-properties search-forward-regexp "$" read-from-string] 5 (#$ . 16914)]) #@81 Return current item in a list: (category item) or nil if no current item found. (defalias 'etask-cat-get-current-item #[nil "\304!\304 !\305 \n\"\205 \nD*\207" [etask-stateid-currcat etask-stateid-curritem item catid etask-state-get etask-cat-civalid-p] 3 (#$ . 17401)]) #@81 Return file name that contains current ITEMs or nil if category item not found. (defalias 'etask-cat-get-current-itemfilename #[nil "\302 @\302 A@\303 \"*\207" [item catid etask-cat-get-current-item etask-cat-get-itemfilename] 3 (#$ . 17683)]) #@90 Return file name that contains category CATID's ITEMs or nil if category item not found. (defalias 'etask-cat-get-itemfilename #[(catid item) "\303 \"\205\304!\211;\205\nG\305V\205\n\306 Q)\207" [catid item catfile etask-cat-civalid-p etask-cat-get-catfilename 0 "."] 4 (#$ . 17936)]) #@59 Return true if current item list is empty, nil otherwise. (defalias 'etask-cat-is-current-itemlist-empty-p #[nil "\301\302\303\304!!\305\"!\207" [etask-ctrl-curritem > length etask-cat-get-itemlist etask-state-get 0] 5 (#$ . 18236)]) #@69 Return true if item list of category CATID is empty, nil otherwise. (defalias 'etask-cat-is-itemlist-empty-p #[(catid) "\302!\205\303!\211G\304U)\207" [catid itemlist etask-cat-is-valid-catid-p etask-cat-get-itemlist 0] 3 (#$ . 18477)]) #@54 Return true if ITEM is in itemlist or nil otherwise. (defalias 'etask-cat-is-item-p #[(catid item) "\304 \"\205.\305!\306\211\203, \307 @!\240\210 @\307 !\230\203%\310\306 A\211\204\n*\207" [catid item itemp itemlist etask-cat-civalid-p etask-cat-get-itemlist nil etask-cat-trim-current-id t] 4 (#$ . 18725)]) #@52 Make category ITEM with id CATID the current item. (defalias 'etask-cat-set-current-item #[(catid item) "\306 \"\205X\307!\310 !\311\312\f\"\210\312 \"\210\313\314#\210\313 \314#\210 \203R \310 @!\240\210 @\310 !\230\203F\315 !\nB\202K @\nB A\211\204-\316\n\237\"+\207" [catid item newitemlist itemlist etask-stateid-currcat etask-stateid-curritem etask-cat-civalid-p etask-cat-get-itemlist etask-cat-trim-current-id nil etask-state-set etask-set-control-item main etask-cat-get-current-itemstr etask-cat-set-itemlist-p etask-ctrl-currcategory etask-ctrl-curritem] 5 (#$ . 19053)]) #@37 Add ITEM to category with id CATID. (defalias 'etask-cat-insert-item #[(catid item) "\302 \"\205\303 \"?\205\304 \305!B\"\207" [catid item etask-cat-civalid-p etask-cat-is-item-p etask-cat-set-itemlist-p etask-cat-get-itemlist] 5 (#$ . 19662)]) #@42 Delete ITEM from category with ID CATID. (defalias 'etask-cat-delete-item-p #[(catid item) "\306 \"\205D\307!\310 !\311 !\211\205C\312 \"\205C\n\203<\313 !\314\f!\210\314 !\210\315\316\317#\210\315\316\317#\210\320\321 \"\"+\207" [catid item currp itemlist etask-stateid-currcat etask-stateid-curritem etask-cat-civalid-p etask-cat-get-itemlist etask-is-current-str etask-cat-trim-current-id etask-cat-is-item-p etask-cat-get-current-itemstr etask-state-clear etask-set-control-item nil main etask-cat-set-itemlist-p remove etask-ctrl-currcategory etask-ctrl-curritem] 6 (#$ . 19921)]) #@114 Delete category-item-link between category with ID CATID and item OLDITEM and copy all item contents to NEWITEM. (defalias 'etask-cat-rename-item-p #[(catid olditem newitem) "\306 \"\205\206\307\n!\205\206\310!\311 !\211\205\205\312 \"\205\205\312\n\"?\205\205\313 \"\314\211\315\n\"\210\203]\316@\n#B\317\320 \n@%\210A\211\204=\317\321 \n$\210\317\322 \n$\210\323 \"\210\324\237\n\325$\210 \203\202\326\n\"\210\327 +*\207" [catid olditem newitem currp itemlist el etask-cat-civalid-p etask-cat-is-valid-item-p etask-cat-get-itemlist etask-is-current-str etask-cat-is-item-p etask-cat-get-elementlist nil etask-cat-insert-item etask-db-set etask-cat-copy-file "notes" "archive" "etaskctrl" etask-cat-delete-item-p etask-write-elements erase etask-cat-set-current-item etask-cat-show-elements newelements elements etask-db-attr-projname] 7 (#$ . 20531)]) #@57 Store items of category with id CATID provided in LIST. (defalias 'etask-cat-set-itemlist-p #[(catid list) "\304!\205- <\205-r\305!\211;\205,\nG\306V\205,\307 \nP!q\210\310 \210\311 p\"\210\312*\207" [catid list filename etask-working-dir etask-cat-is-valid-catid-p etask-cat-get-catfilename 0 find-file-noselect erase-buffer prin1 t] 4 (#$ . 21436)]) #@50 Read file of current item and return its buffer. (defalias 'etask-cat-get-current-itembuffer #[nil "\303 \211@A@\304 \n\"+\207" [curritem catid item etask-cat-get-current-item etask-cat-get-itembuffer] 4 (#$ . 21801)]) #@70 Read file of ITEM belonging to category CATID and return its buffer. (defalias 'etask-cat-get-itembuffer #[(catid item) "\304 \"\211;\205\nG\305V\205\306 \nP\307\")\207" [catid item filename etask-working-dir etask-cat-get-itemfilename 0 find-file-noselect t] 4 (#$ . 22030)]) #@71 Read archive file of current non-archived item and return its buffer. (defalias 'etask-cat-get-current-itemarchivebuffer #[nil "\301 \211;\205G\302V\205\303\304\")\207" [filename etask-cat-get-current-itemarchivefile 0 find-file-noselect t] 4 (#$ . 22319)]) #@194 Return list containing all elements of current or specified ITEM in CATEGORY or nil as failure indicator. If optional NAMES is non-nil, return a list with all top level element names instead. (defalias 'etask-cat-get-elementlist #[(&optional catid item names) "\203 \204\306 \211@\nA@)\307 \"\205}\310 !\311 \"\211;\205| G\312V\205|\313\211\211\211r\314 P!q\210db\210\315\313\316#\203y`\312\224\317\320!{\321!@\203n\322 \"\fB\202q \fBb\210\202E)\f,*\207" [catid item curritem filename elementlist element etask-cat-get-current-item etask-cat-civalid-p etask-cat-trim-current-id etask-cat-get-itemfilename 0 nil find-file-noselect re-search-backward t search-forward-regexp "$" read-from-string etask-db-get line pos etask-working-dir etask-elementfind-regexp names etask-db-attr-taskname] 5 (#$ . 22591)]) #@58 Return true if current element is marked, nil otherwise. (defalias 'etask-cat-is-element-marked-p #[nil "`\302\303y\210\304\302f!\305\230? b\210*\207" [markp pos nil 0 char-to-string " "] 2 (#$ . 23447)]) #@151 Return list of all marked elements in buffer. Return nil if no marked elements found. If optional IXLIST is non-nil return list of all index lists. (defalias 'etask-cat-get-marked-elements #[(&optional ixlist) "`\304 \305eb\210 \306V\2030\307 \203& \203!\310 B\202&\311 B\312y\210 S\211\202 \nb\210\237+\207" [marked elnum pos ixlist etask-cat-get-elementnum nil 0 etask-cat-is-element-marked-p etask-cat-get-current-elementindex etask-cat-get-current-element 1] 4 (#$ . 23663)]) #@79 Return all current elements in ixlist structure or nil if a failure occurred. (defalias 'etask-cat-get-current-elementlist #[nil "\302 @\302 A@\303 \"*\207" [item catid etask-cat-get-current-item etask-cat-get-elementlist] 3 (#$ . 24165)]) #@195 Return ELEMENT with all its subelements appended at top level and subelement list set to nil. If optional NAMES is non-nil return just the names. The result is in the car of the return value. (defalias 'etask-cat-transform-elt-top #[(element &optional names) "\205# \203\304\n\"C\305\304 \" \"\244\207\306 \307#C\305\304 \"!\244\207" [element names etask-db-attr-taskname etask-db-attr-subtasklist etask-db-get etask-cat-transform-elements-top etask-db-set nil] 5 (#$ . 24415)]) #@148 Return ELEMENT with all its subelements appended at top level and subelement list set to nil. If optional NAMES is non-nil return just the names. (defalias 'etask-cat-transform-elements-top #[(elements &optional names) "\303 \203\"\n\203\304 @\n\"\244\202\304 @!\244 A\211\204)\207" [ret elements names nil etask-cat-transform-elt-top] 4 (#$ . 24911)]) #@129 Return all current elements and its subelements as top level list, ie (1). If optional NAMES is non-nil, return the name list. (defalias 'etask-cat-get-current-elts #[(&optional names) "\301\302 \"\207" [names etask-cat-transform-elements-top etask-cat-get-current-elementlist] 3 (#$ . 25285)]) #@212 Return index list of ELEMENT. The index list contains the ELEMENT's index of all levels: ( ix-level1 ix-level2 ix-level3 ...). Example: (1 2 3) is the 3rd subelement of the 2nd subelement of the first element. (defalias 'etask-cat-get-elementindex #[(element) "\306 \"\307 @\307 A@\310 \f\"\311 \n\",\207" [element etask-db-attr-taskname elementname catid item elements etask-db-get etask-cat-get-current-item etask-cat-get-elementlist etask-cat-get-ixlist] 3 (#$ . 25589)]) #@39 Return index list of current element. (defalias 'etask-cat-get-current-elementindex #[nil "\300\301 !\207" [etask-cat-get-ixlist-buf etask-current-line] 2 (#$ . 26076)]) #@64 Return index list of (sub)element named NAME in list ELEMENTS. (defalias 'etask-cat-get-ixlist #[(elements name &optional sublevel ixlist) "\205r\306 !\203 \202\307\310\n\311 T# \n8\306 !\203% \202&\307\312@ \"\f\312@ \"\310\n\311 #\fTC\244 T\n\233\244\f\230\203Q\n\202p\n\313 T\n$\211\203f\n\202o\313A $).\207" [elements sublevel ixlist craw curr etask-db-attr-taskname natnump 0 etask-get-sublist 1 etask-db-get etask-cat-get-ixlist elname etask-db-attr-subtasklist subelements name ixlisttmp] 6 (#$ . 26252)]) #@58 Return index list for element in LINE in current buffer. (defalias 'etask-cat-get-ixlist-buf #[(line) "\306!\205|`\307 G\310\211\211\211\211\211eb\210\311V\203u`\312\310\313#\306!\203n\314 \\\"\315\316\"\317\f\320 T# \f8\306 !\203Z \202[\311\317\f\320 #\nTC\244 T\f\233\244\320y\210S\211\202b\210\f.\207" [line p curr craw ixlist i natnump etask-get-infostring nil 0 search-forward-regexp t buffer-substring-no-properties etask-leading-char-num 32 etask-get-sublist 1 str prefixlen pos etask-delimiter-regexp endstr] 9 (#$ . 26810)]) #@85 Return element in list ELEMENTS with index list IXLIST or nil if element not found. (defalias 'etask-cat-get-nth-element #[(elements ixlist) "\2050 <\2050\303 @!\2050 @\304V\2050 G\305U\203$ @S8\207\306\307 @S8\n\" A\"\207" [elements ixlist etask-db-attr-subtasklist natnump 0 1 etask-cat-get-nth-element etask-db-get] 4 (#$ . 27395)]) #@70 Return element list specified by IXLIST or nil if element not found. (defalias 'etask-cat-get-element #[(ixlist) "\301\302 \"\207" [ixlist etask-cat-get-nth-element etask-cat-get-current-elementlist] 3 (#$ . 27745)]) #@241 Return ELEMENTS with element ELT at position specified by IXLIST. If position is already occupied by another element, replace it with ELT. If optional INSERT is non-nil, do not overwrite existing data but move it instead to another index. (defalias 'etask-cat-set-nth-element #[(elements ixlist elt &optional insert) "<\205_\306@!\205_@\307V\205_@S\211\n8G\310U\203B\311\n\310 #\312\f!\205/\fC\244 \203: \n\233\202> T\n\233\244\202^\311\n\310 #\313 \314\315 \"A\f $#C\244 T\n\233\244*\207" [ixlist pos elements currel elt insert natnump 0 1 etask-get-sublist etask-element-is-valid-p etask-db-set etask-cat-set-nth-element etask-db-get etask-db-attr-subtasklist] 10 (#$ . 27970)]) #@202 Store ELEMENT at the position specified by IXLIST. Overwrite existing data unless optional INSERT is non-nil. If optional BUF is non-nil, store element in buffer BUF. Return nil if operation fails. (defalias 'etask-cat-store-element #[(element &optional ixlist insert buf) "\306!\2059\307!\n<\203\nG\310V\203\n\202# \203\" \202#\311\312\313 \n $\314\n@S\f8\n@\315\211 %+\207" [element elix ixlist insert newel buf etask-element-is-valid-p etask-cat-get-elementindex 0 (1) etask-cat-set-nth-element etask-cat-get-current-elementlist etask-write-element nil] 6 (#$ . 28679)]) #@265 Store ELEMENT at the position specified by IXLIST. Move existing data to new position if necessary - do not overwrite existing data. If optional CHECKP is non-nil, uniqueness of element's name is checked. If optional BUF is non-nil, store element in buffer BUF. (defalias 'etask-cat-insert-element #[(element ixlist &optional checkp buf) "\203\305 \n\"\306\307!\235?\205\310 \311\f$\207" [checkp element etask-db-attr-taskname ixlist buf etask-db-get etask-cat-get-current-elts names etask-cat-store-element insert] 5 (#$ . 29277)]) #@55 Delete the element and all its subelements at IXLIST. (defalias 'etask-cat-delete-element #[(ixlist) "\304  <\2030 G\305U\2030\306 @!\2030r\307\310 @C!\n\"\311 q\210eb\210\312\313 !!*\202=\314 @S\315 \316#8 @\")\207" [elements ixlist etask-db-attr-taskname elementname etask-cat-get-current-elementlist 1 natnump etask-db-get etask-cat-get-element etask-cat-get-current-itembuffer flush-lines etask-get-elementregexp etask-write-element etask-cat-set-nth-element nil] 6 (#$ . 29824)]) #@56 Archive the element and all its subelements at IXLIST. (defalias 'etask-cat-archive-element #[(ixlist) "<\205#G\302U\205#\303@!\205#\304!\305!\210\306 \307\310\311 $)\207" [ixlist elt 1 natnump etask-cat-get-element etask-cat-delete-element etask-cat-insert-element (1) nil etask-cat-get-current-itemarchivebuffer] 5 (#$ . 30322)]) #@78 Return current element list: (name ...) or nil if current element not found. (defalias 'etask-cat-get-current-element #[nil "\300\301 \302 \"\207" [etask-cat-get-nth-element etask-cat-get-current-elementlist etask-cat-get-current-elementindex] 3 (#$ . 30669)]) #@63 Return element NAME of current item or nil if NAME not found. (defalias 'etask-cat-get-named-element #[(name) "\304 \305!\205<rq\210eb\210 G\306V\205;\307\310 !\311\312#\205;\311\211\306y\210\313`\314\315!\"\211G\306V\205:\316 !@*))\207" [buf name task line etask-cat-get-current-itembuffer bufferp 0 search-forward etask-get-elementregexp nil t buffer-substring-no-properties re-search-forward "$" read-from-string] 5 (#$ . 30936)]) #@99 Return the number of top elements in `etask-buffer'. Note that the length of a top element is 1. (defalias 'etask-cat-get-topelementnum #[nil "r\300 q\210\301ed\")\207" [etask-cat-get-current-itembuffer count-lines] 3 (#$ . 31386)]) #@60 Return the number of elements displayed in `etask-buffer'. (defalias 'etask-cat-get-elementnum #[nil "`\303eb\210\304\n\305\306#\203T\202 b\210*\207" [num pos etask-delimiter-regexp 0 re-search-forward nil t] 4 (#$ . 31626)]) #@171 Return number of subelements of current element displayed after current line. If optional L is a positive integer then number of subelements after line L is calculated. (defalias 'etask-cat-get-subelement-num-after #[(&optional l) "\306!\203\307V\203\310 W\203\202\311 \312 !G`\307\310 Z\313y\210\n\314 GW\203E \307V\203E\fT S\313y\210\202+ b\210\f-\207" [l line currlevel pos num i natnump 0 etask-cat-get-elementnum etask-current-line etask-cat-get-ixlist-buf 1 etask-cat-get-current-elementindex] 2 (#$ . 31868)]) #@145 Return distance in number of lines from current element to the preceding element with the same level or, if LEVEL is non-nil, with level LEVEL. (defalias 'etask-cat-get-elementnum-samelevel-before #[(&optional level) "\305 \306V\203V\305  \203 \202\307!G`\310\311y\210\310V\203F\312 G\nY\203F\fT\312 G\nU\203=\311\211\202S\311y\210\202 b\210\311U\203S\f\202T\310,\207\310\207" [i level currlevel pos num etask-current-line 1 etask-cat-get-ixlist-buf 0 -1 etask-cat-get-current-elementindex] 3 (#$ . 32416)]) #@103 Return distance in number of lines from current element to the following element with the same level. (defalias 'etask-cat-get-elementnum-samelevel-after #[nil "\305 \306!G`\307\310 Z\311y\210\f\307V\203<\312 G Y\203< T\312 G U\2033\313\211\202\fS\311y\210\202\nb\210\f\313U\203I \202J\307-\207" [line currlevel pos num i etask-current-line etask-cat-get-ixlist-buf 0 etask-cat-get-elementnum 1 etask-cat-get-current-elementindex -1] 3 (#$ . 32956)]) #@93 Return distance in number of lines from current element to the preceding top level element. (defalias 'etask-cat-get-elementnum-currenttop #[nil "\300\301!\207" [etask-cat-get-elementnum-samelevel-before 1] 2 (#$ . 33432)]) #@59 Return true if current item list is empty, nil otherwise. (defalias 'etask-cat-is-current-elementlist-empty-p #[nil "\300 G\301U\207" [etask-cat-get-current-elementlist 0] 2 (#$ . 33662)]) #@69 Return true if item list of category CATID is empty, nil otherwise. (defalias 'etask-cat-is-elementlist-empty-p #[(catid item) "\303 \"\205\304 \"\211G\305U)\207" [catid item elementlist etask-cat-civalid-p etask-cat-get-elementlist 0] 4 (#$ . 33857)]) #@56 Return t if ELEMENT is behind schedule, nil otherwise. (defalias 'etask-cat-is-element-behind-schedule-p #[(element) "\305 @\305 A@\306 \"\205*\nU\203\307 !?\202*\fU\203)\310 !\202*\311*\207" [catid item etask-category-todoid element etask-category-projectid etask-cat-get-current-item etask-cat-civalid-p etask-todo-is-onschedule-p etask-is-task-behind-schedule-p t] 3 (#$ . 34121)]) #@153 Return true if current ELEMENT's notes file exists, nil otherwise. If CATID, ITEM and ELEMENT are non-nil, look for this specific ELEMENT's notes file. (defalias 'etask-cat-elementnotes-p #[(&optional catid item element) "\203 \203\n\203\306 \"\203\307 \n#\202\307 \310 \fG\311O!\211\2036\312 !\313V\205C\314\202C\315 !\205C\316\317 !8\313V*\207" [catid item element filename etask-working-dir buf etask-cat-civalid-p etask-cat-get-elementnotes-filename get-buffer nil buffer-size 0 t file-readable-p 7 file-attributes] 5 (#$ . 34524)]) #@54 Move point to delimiter in line specified by IXLIST. (defalias 'etask-cat-goto-elementindex #[(ixlist) "\303\211eb\210\304 \210\n\205- \303U\203\n@S\202\n@\305 \"\210 T\nA\211\204\306*\207" [num sublevel ixlist 0 etask-goto-delimiter etask-cat-fwd-levels nil] 4 (#$ . 35086)]) #@55 Return true if L1 is a sublevel of L2, nil otherwise. (defalias 'etask-cat-is-sublevel-p #[(l1 l2) "<\205 <\205G G\211\nV\205\304\305\n# \232*\207" [l1 l2 len2 len1 etask-get-sublist 1] 5 (#$ . 35382)]) #@42 Return maximum sublevel shown in buffer. (defalias 'etask-cat-get-sublevelnum-buf #[nil "`\306 G\307\310\211eb\210\311 \310\312#\2031\307y\210`\313 \\\307\225\"\n\314 \315\"]\316y\210\202\fb\210\n-\207" [p substr maxsub prefixlen pos etask-subelements-prefix etask-get-infostring 0 nil search-forward-regexp t buffer-substring-no-properties etask-leading-char-num 32 1] 5 (#$ . 35602)]) #@128 Return line number of ix1 in a list. If IX2 or other optional parameters are non-nil, include their line numbers in the list. (defalias 'etask-cat-get-line #[(ix1 &optional ix2 ix3 ix4) "\306 \307\211?\205\n\310 ?\205\310\n?\205\310\311\211\211\211\211 \f X\203\254\312!\f\204P\232\203P\310\f \204b\232\203b\310\204t \232\203t\310 \204\206\n\232\203\206\310 \f\203\243\203\243\203\243 \203\243T\211\2020T\211\2020 \f F. \207" [ix2 ix3 ix4 l4 l3 l2 etask-cat-get-elementnum 1 t nil etask-cat-get-ixlist-buf l1 f1 f4 f3 f2 i line max currix ix1] 12 (#$ . 36008)]) #@58 Return true if L1 is before L2 on screen, nil otherwise. (defalias 'etask-cat-compare-sublevels-p #[(l1 l2) "\303 \"\211@\nA@W)\207" [l1 l2 lines etask-cat-get-line] 4 (#$ . 36673)]) #@250 Add new elements to current item of current category. Insert before current element at the same level. If there are marked elements, move first marked element to current ixlist. If optional SUB is non-nil, create a subelement of current element. (defalias 'etask-cat-insert-elements #[(&optional sub) "\306 @\306 A@\307\305!@\211\205\310\n!\f\203!\311 \312\244\202#\311  \203n\313 \n\"\204n \n\232\204n\314\315\n\f\203B\316 !\202C \"\317\n!\210\203\\\320\321 #\n\"\210\320 \"\210\203j\317\n!\210*\202\243 \204\243\322 \"\203\243U\203\210\323 \"\210\202\243U\203\227\324 \"\210\202\243U\203\243\325 \"\210\326 -\207" [catid item fmeltix fmelt sub ixlist etask-cat-get-current-item etask-cat-get-marked-elements etask-cat-get-element etask-cat-get-current-elementindex (1) etask-cat-is-sublevel-p "!!!!DummY!!!!" etask-cat-compare-sublevels-p butlast etask-cat-delete-element etask-cat-insert-element etask-db-set etask-cat-civalid-p etask-proj-insert-elements etask-todo-insert-elements etask-ev-insert-elements etask-cat-show-elements insp dummy etask-db-attr-taskname etask-category-projectid etask-category-todoid etask-category-eventid] 6 (#$ . 36865) "P"]) #@405 Delete the current ELEMENT or, if there are marked elements, all marked elements from current ITEM. If called interactively (then optional parameter ELEMENT is nil) the user must confirm the deletion. UPDATE, if non-nil, indicates that the task is just updated - only possible if taskname not changed. However, its old data must still be deleted but the deletion confirmation messages must not appear. (defalias 'etask-cat-delete-elements #[(&optional element update) "\306 @\306 A@\307 \"\205\243\310 \205\243\n\203\nC\202 \311 \312\312\312 \312! \203\235\313 @\"\"\314 !#\315#!\210\316 \210$\203L\317\202Y\320\321\322%\"\323\324 \"\325Q!\211\205`\326  \f\205i\327 !!\f\203\226r q\210eb\210\330!!\210)t\203\226\316 \210\331\323\332 \"\321\333%\"\334Q!\210\335\336!\210 A\211\204/\337 \210\316 -*\207" [item catid element deletelist reallydelete elementname etask-cat-get-current-item etask-cat-civalid-p etask-interactive-preconditions etask-get-ixlist-to-be-edited nil etask-db-get etask-cat-get-elementindex etask-cat-goto-elementindex etask-cat-show-elements t yes-or-no-p etask-lang-msg 260 format " -- '%s' " "? " etask-cat-get-current-itembuffer etask-get-elementregexp flush-lines message "'%s': " 270 "!" sit-for 1 etask-goto-delimiter buf regexp etask-db-attr-taskname elementix update etask-language] 6 (#$ . 38086) nil]) #@142 Return file name for current ELEMENT's notes. If CATID, ITEM and ELEMENT are non-nil, return the notes file name of this specified element. (defalias 'etask-cat-get-elementnotes-filename #[(&optional catid item element) "\203' \203'\n\203'\305 \"\203'\306\n!\203' \307\310 !\"\311\312\n\f\"R\207 \313 \311\312\314 \f\"R\207" [catid item element etask-working-dir etask-db-attr-taskname etask-cat-civalid-p etask-element-is-valid-p etask-cat-get-itemfilename etask-cat-trim-current-id "." etask-db-get etask-cat-get-current-itemfilename etask-cat-get-current-element] 6 (#$ . 39462)]) #@2  (defalias 'etask-cat-get-itemarchivefile #[(catid item) "\304\305 !\"\211;\205\nG\306V\205 \n\307Q)\207" [catid item filename etask-working-dir etask-cat-get-itemfilename etask-cat-trim-current-id 0 ".archive"] 5 (#$ . 40060)]) #@2  (defalias 'etask-cat-get-current-itemarchivefile #[nil "\301 \302@A@\")\207" [curritem etask-cat-get-current-item etask-cat-get-itemarchivefile] 3 (#$ . 40300)]) #@132 Copy file specified by ID, CATID, and optionally ELEMENT, from item FROMITEM to item TOITEM. ID is in {notes, archive, etaskctrl} (defalias 'etask-cat-copy-file #[(id catid fromitem toitem &optional element) "\306\230\203\307 \n #\202)\310\230\203\311 \n\"\202)\312\230\203(\313 \n\"\202)\314\306\230\2037\307 \f #\202R\310\230\203D\311 \f\"\202R\312\230\203Q\313 \f\"\202R\314\315!\205b\316 \317#*\207" [id catid fromitem element toitem newfname "notes" etask-cat-get-elementnotes-filename "archive" etask-cat-get-itemarchivefile "etaskctrl" etask-get-item-ctrl-filename nil file-readable-p copy-file 1 oldfname] 5 (#$ . 40473)]) #@107 Print element status - at the bottom of the window or, if optional REPORTINGP is non-nil, in report file. (defalias 'etask-cat-show-elementstatus #[(ixlist &optional reportingp) "<\205gG\306V\205g\307 \211@ A@\310\n \"\205f\311!\312`\nU\2037\313\"\202V\nU\203H\314\"\202V\nU\203V\315\"\203_ \202e\316 !\210\fb++\207" [ixlist curritem catid item pos status 0 etask-cat-get-current-item etask-cat-civalid-p etask-cat-get-element "" etask-proj-show-elementstatus etask-todo-show-elementstatus etask-ev-show-elementstatus etask-insert-status element etask-category-projectid reportingp etask-category-todoid etask-category-eventid] 4 (#$ . 41140) nil]) #@70 Return true if ELEMENT's bar is to insert into chart, nil otherwise. (defalias 'etask-cat-insert-elementbar-p #[(catid element) "\305!\205% U\203\306\n!\207 U\203\307\n!\207\fU\203$\310\n!\207\311\207" [catid etask-category-projectid element etask-category-todoid etask-category-eventid etask-cat-is-valid-catid-p etask-proj-insert-elementbar-p etask-todo-insert-elementbar-p etask-ev-insert-elementbar-p nil] 2 (#$ . 41838)]) #@64 Return todo NAME of todo category TODOCAT with default values. (defalias 'etask-cat-generate-default-element #[(item name) "\306\307 \n#\307 \f#\307 \n#\307 \f#\307 \310#\307\310#\307\311 #\307\311 #\307#\307#\307\306#\307\306#\307\306#\307\306#\307\306#\211)\207" [element etask-db-attr-taskname name etask-db-attr-projname item etask-db-attr-tracking nil etask-db-set 0 calendar-current-date etask-default-tracking etask-db-attr-tasktype etask-default-type etask-db-attr-peffort etask-db-attr-eeffort etask-db-attr-taskbegin etask-db-attr-taskend etask-db-attr-mark etask-unmarkedtask-string etask-db-attr-priority etask-default-priority etask-db-attr-category etask-db-attr-policy etask-db-attr-people etask-db-attr-arglist etask-db-attr-subtasklist] 5 (#$ . 42281)]) #@130 Return true if ELT1's priority < ELT2's priority. If optional EQUAL is non-nil return true if ELT1's priority = ELT2's priority (defalias 'etask-cat-sortfunc-priority #[(elt1 elt2 &optional equal) "\306 \"\306\n \" \203\f U\202\f W*\207" [elt1 etask-db-attr-priority elt2 prio2 prio1 equal etask-db-get] 4 (#$ . 43118)]) #@80 Return true if ELT1's due date and time earlier than ELT2's due date and time. (defalias 'etask-cat-sortfunc-taskendtime #[(elt1 elt2 &optional equal) "\305!\305\n!\f\203\306 \"\202\307 \"*\207" [elt1 end1 elt2 end2 equal etask-make-duedatetime etask-datetime-equal-p etask-datetime-less-p] 3 (#$ . 43453)]) #@168 Return true if ELT1's priority < ELT2's priority. If ELT1's priority = ELT2's priority return true if ELT1's due date and time earlier than ELT2's due date and time. (defalias 'etask-cat-sortfunc-priority-taskendtime #[(elt1 elt2) "\302 \"\206\302 \303#\205\304 \"\207" [elt1 elt2 etask-cat-sortfunc-priority equal etask-cat-sortfunc-taskendtime] 4 (#$ . 43777)]) #@174 Return true if ELT1's due date and time < ELT2's due date and time. If ELT1's due date and time = ELT2's due date and time return true if ELT1's priority < ELT2's priority. (defalias 'etask-cat-sortfunc-taskendtime-priority #[(elt1 elt2) "\302 \"\206\302 \303#\205\304 \"\207" [elt1 elt2 etask-cat-sortfunc-taskendtime equal etask-cat-sortfunc-priority] 4 (#$ . 44156)]) #@57 Return ITEM with enclosing `etask-current-category-id'. (defalias 'etask-cat-get-current-itemstr #[(item) " Q\207" [etask-current-category-id item] 3 (#$ . 44540)]) #@116 Return STR without enclosing `etask-current-category-id'. If STR is not enclosed by this id return STR unchanged. (defalias 'etask-cat-trim-current-id #[(str) "\302!\203 G G[O\207\207" [str etask-current-category-id etask-is-current-str] 3 (#$ . 44714)]) #@84 Return true if CATEGORY is enclosed by `etask-current-category-id', nil otherwise. (defalias 'etask-is-current-str #[(str) ";\205!G G\302_V\205!\303 GO \230\205! G[\304O \230\207" [str etask-current-category-id 2 0 nil] 3 (#$ . 44981)]) #@57 Return number of leading characters CHAR of string STR. (defalias 'etask-leading-char-num #[(str char) "\303 H\n=\203T\202)\207" [ix str char 0] 2 (#$ . 45231)]) #@138 Move point to delimiter in line containing NUMth LEVEL. SUBLEVEL zero = no sublevel. If there are less than NUM sublevels do not move. (defalias 'etask-cat-fwd-levels #[(sublevel num) "\306!\205e\306 !\205e \307V\205e\310 G`\311\211 \307V\203\\\312y\210`\313\311\314#\306\n!\203P\315 \\\n\"\316\317\"U\203 S`Sb\210\202\fb\210\320 \210\321\211\202 \321W?\205d\307,\207" [sublevel num endstr p pos prefixlen natnump 0 etask-get-infostring nil 1 search-forward-regexp t buffer-substring-no-properties etask-leading-char-num 32 etask-goto-delimiter -1 etask-delimiter-regexp str] 5 (#$ . 45409)]) (byte-code "\301\302\303!\207" [etask-cat-loaded-p t provide etask-cat] 2)