|A||X||Attend SFD meeting online @2100 (2005.06.29 sfd)|
|A||X||Write letter to Canadian Embassy asking for early release (2005.06.29 MoveToCanada)|
|A||X||Call Canadian embassy and ask about my reference number (2005.06.29 MoveToCanada)|
|A||X||Ask Graduate House about arrangements if I arrive on Friday night (2005.06.29 MoveToCanada)|
|B||X||Restore Marcelle's computer again|
1. Really funky Planner sorting
The following code sorts completed tasks in reverse-chronological order and incomplete tasks in chronological order. This makes it easier to see the next action (top of list) and the last action (first completed task).
(defun sacha/planner-sort-tasks-by-date () "Sort tasks by date, status and priority." (skip-chars-forward "#ABC") (let ((ch (char-before)) status) (skip-chars-forward "0123456789 ") (setq status (char-after)) (goto-char (line-end-position)) (skip-chars-backward "]) ") (format "%1c%1c%10s" (cond ((= status ?o) ?1) ((= status ?X) ?3) ((= status ?C) ?4) (t ?2)) ch (let ((date (or (planner-task-date (planner-current-task-info)) planner-sort-undated-tasks-equivalent))) (if (or (= status ?X) (= status ?C)) (sacha/planner-invert-date date) date))))) (defun sacha/planner-invert-date (date) "Reverse the date in the sorting order." (mapconcat (lambda (ch) (if (string= ch ".") ch (number-to-string (- 9 (string-to-number ch))))) (split-string date "" t) ""))
ここのパソコンはシステムを変えることができないので何もできない。 Because the personal computer here cannot change the system, anything cannot be done.
I'd love to hear about any questions, comments, suggestions or links that you might have. Your comments will not be posted on this website immediately, but will be e-mailed to me first. You can use this form to get in touch with me, or e-mail me at firstname.lastname@example.org .