Seen on gmane.editors.vim :

Is there a vim script that mimics the emacs planner mode?

There's a couple of wiki plugins, but nothing like planner.el sadly. One of the few things that sometimes makes me jealous of emacs users :)

Awwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww... =)

Thanks to Yann Hodique's totally awesome backend structure in hodique@lifl.fr--test/planner--merge--1.0, the distinction between planner/emacs-wiki and planner/muse is on the way to disappearing. Yann's Elisp-fu is far beyond mine, and it shows in the elegance and cleanliness of the backend code.

It's much, much better than my kludgy attempts when I wrote the first port of Planner to Muse. I kept running into problems thinking of an elegant way to combine both backends. I just wanted to get Planner out the door, so I tagged a new branch and replaced all the emacs-wiki code with muse equivalents.

That spurred a lot of development on the planner-muse front, and we blessed Michael Olson's tree as the canonical planner-muse branch. Keeping up with patches became a real headache, though, because of all the translation between branches.

I've tagged a new tree off Yann Hodique's branch and made emacs-wiki work again. I've also brought it up to the latest dev (I think!), and I'll be using it for the next few weeks. A number of modules still require emacs-wiki, and with the Planner community's help, we hope to open them up to Muse people as well!

You can grab the merged tree with

tla register-archive http://sacha.free.net.ph/notebook/arch
tla get sacha@free.net.ph--main/planner--merge--1.0 planner

Back up your plans and customize planner-backend. Have fun!

I've taken to tagging my tasks with times, and here's some code to automatically sort tasks by time, status, and priority. I use it on day pages. My plan pages are sorted differently. =)

I could go on and on about how powerful customizable task sorting functions are. Kudos to Jody Klymak and John Sullivan for suggesting this last December! It's one of the things I love about planner. =)

(defun sacha/planner-sort-tasks-basic ()
  "Sort tasks by time (@1030, etc), status (_P>XC) and priority (ABC)."
  (let* ((info (planner-current-task-info))
         (status (aref (planner-task-status info) 0)))      
    (concat
     ;; time
     (or (and (string-match "@[0-9][0-9][0-9][0-9]" (planner-task-description info))
              (match-string 0 (planner-task-description info)))
         "@9999")
     ;; status
     (cond
      ((eq status ?o) "1")
      ((eq status ?P) "2")
      ((eq status ?>) "3")
      ((eq status ?X) "4")
      ((eq status ?C) "5")
      (t "9"))
     (planner-task-priority info))))

See my planner-config.el for my complete task sorting code and lots of other config stuff. =)

I haven't posted a planning reflection in a while. I thought I'd think out loud again after rereading Covey's _First Things First_ and the Merrills' _Life Matters._ This isn't _the_ way to use Planner. In fact, I like thinking out loud about my planning style because I love getting suggestions and advice from others. (This community is amazing!)

Today I experimented with dividing my tasks according to roles. It's a little like planner-trunk.el, but I added the labels manually. This lets me make sure I'm doing something useful in the roles I wanted to concentrate on. I would like to eventually move to doing weekly role-based planning, but I haven't quite figured out a nice way to do a week plan.

Here are my thoughts on my planning method so far:

Roles

Bunching my tasks according to roles makes it easier for me to concentrate and prioritize. You can use planner-trunk to do that too, or just rearrange your tasks and add blank lines between them. Blank lines don't automatically get carried forward, though.

Weekly planning

The main reason I have a paper planner (8.5" x 11": weekly calendar + todo list + notes) is have that week-at-a-glance view. I like iCal's interface for planning tasks on a weekly basis, but I'm not entirely sure how to map that onto Emacs, and I like my daily notes and my day-view task list.

So now I'm trying to figure out how to do exactly what was discussed on the mailing list a week or two ago: good week planning. I don't think I've ever come across an Emacs PIM that made me go aha, yes, that's the way to do it, although howm's searching comes close and org's outlining can sort of do the trick. Well, so can Planner with new plan pages, I suppose.

As I was trying to figure out how to do weekly planning, I realized I didn't know a nice, easy Emacs function for finding the current week number. Would anyone happen to have that handy? Alternatively, I could use something like Week.2005.09.05 to signify the week starting on 2005.09.05 (depending on calendar-week-start-day).

Maybe I could vertically divide the screen between a week view, with tasks indicating my priorities, and a day view that shows the actual goods. Then I can use planner-multi to schedule tasks from the week view, and page forward and backward on the day view to check my load.

With planner-cyclic and planner-deadline in place, that would actually be better than my paper planner. =)

I keep wondering whether we should do what everyone else does and store a task once and only once. I don't know how to hack that so that it will let me manipulate the tasks as plain text, though. I like adding blank lines in the middle of things, or changing the sorting order, or doing other weird stuff. So I guess duplicated text works better for me.

Undated tasks

Undated tasks tend to get forgotten, but the sacha/planner-schedule-next-task code I had in my config was a bit annoying. When I caught myself unscheduling a task even before properly reading it, I turned that off in my config.

I think it's because I need to rearrange the tasks in my plan pages so that the important ones come out first. I've already tweaked sacha/planner-schedule-next-task to add a new task only when I've finished all scheduled tasks on that page for that particular project, but it seems that after I finish a sublist of tasks, I feel like changing contexts.

Maybe I can make a next-actions function that goes through a list of projects and tells me what the next action is. When I have unexpectedly free time, I can hit a shortcut to call that function, and it will list the most important task (and perhaps the least important as well? ;) ) in various pages.

Hey, that would be a low-cost thing to implement. We already have the pieces for that...

Publishing

One of the side-benefits of publishing your task list is that occasionally people will go and do the tasks for you. For example, one of my TODOs was to write the speaker at a recent convention. I liked his talk and I wanted to learn more about personal coaching. Because I've been busy these past few days (my mom's visiting, school's starting, etc.), I kept putting it off...

... until I got a note from him saying he searched for his name, found my TODO, and decided to write to me. ^_^ Yay!

Bob Erb wrote:

Reading Linux Journal at work today, I get to the article about todo lists, browsing through it, getting interested when it started talking about plain text files, then excited when planner-mode was mentioned, then thinking, "I'll have to tell emacs-wiki-discuss about this!" as the discussion of planner-mode continued, then, wow, it's you!

Waaaaaaaaaaaaaaaaaahooooooooooooooooo! I've been published! My article on Taming the TODO came out in Linux Journal #138, October 2005. Buy a copy!

Thanks in no small part to Travis Hartwell (who poked me into actually _doing_ something that had been on my TODO list for ages), Dominique Cimafranca (who helped me fix my absolutely horrible first draft), Jill Franklin and Don Marti of Linux Journal, and of course the absolutely wonderful Planner community...

Happy happy joy joy! Happy happy joy joy!

E-Mail from Bob Erb

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) ""))

../emacs/planner-config.el

ここのパソコンはシステムを変えることができないので何もできない。 Because the personal computer here cannot change the system, anything cannot be done.

action-lock.el is part of HOWM. The following code enables Planner-style links _anywhere_. Add it to your ~/.emacs and use M-x action-lock-mode to turn action locking on.

(add-to-list 'action-lock-default-rules
             (list (with-planner emacs-wiki-url-or-name-regexp)
                   'planner-action-lock-follow-name-at-point))
(setq action-lock-rules action-lock-default-rules)
(defvar planner-action-lock-default-directory planner-directory "Expand files relative to this directory.")
(defun planner-action-lock-follow-name-at-point (&optional other-window)
  (let ((link-name (match-string 0))
        (base-buffer (current-buffer))
        ;; the name of the buffer that contains the link.  check
        ;; whether buffer-name is a WikiName, else make it one
        (parent-name (or (emacs-wiki-page-name)
                         (concat "[[" (buffer-name) "]]"))))
    (with-planner 
      (let ((link (emacs-wiki-wiki-link-target link-name)))
        (if (emacs-wiki-wiki-url-p link)
            (emacs-wiki-browse-url link other-window)
          ;; The name list is current since the last time the buffer was
          ;; highlighted
          (let* ((base (emacs-wiki-wiki-base link-name))
                 (file (emacs-wiki-page-file base))
                 (tag  (and (not (emacs-wiki-wiki-url-p link))
                            (emacs-wiki-wiki-tag link)))
                 (find-file-function (if other-window
                                         'find-file-other-window
                                       'find-file))
                 (parent-allowed-backlink-p
                  (not (string-match
                        emacs-wiki-exclude-backlink-parent-regexp
                        parent-name)))
                 (parent-backlink (and parent-allowed-backlink-p
				   (emacs-wiki-get-current-backlink)))
                 (newbuf
                  (funcall find-file-function
                           (or file
                               (expand-file-name
                                       base
                                       (or planner-action-lock-default-directory
                                           (and (buffer-file-name)
                                                (file-name-directory 
                                                 (buffer-file-name)))
                                           default-directory)))))
                 (emacs-wiki-create-backlinks
                  (and emacs-wiki-create-backlinks parent-allowed-backlink-p))
                 (make-link-p (and emacs-wiki-create-backlinks
                                   ;; insert backlink only in new files
                                   (null file)
                                   (not (string-match
                                         emacs-wiki-exclude-backlink-regexp
                                         (emacs-wiki-page-name 
                                          (buffer-file-name newbuf)))))))
            (when tag
              (goto-char (point-min))
              (re-search-forward (concat "^\\.?#" tag) nil t))
            (when refresh-buffer
              (when make-link-p
                (emacs-wiki-insert-backlink parent-name parent-backlink))
              ;; todo: is with-current-buffer necessary here?
              (with-current-buffer newbuf
                (add-hook 'after-save-hook
                          'emacs-wiki-refresh-buffers-once t t)
                ;; save the new file to avoid another backlink if the
                ;; buffer is visited again before being saved
                (when (or make-link-p 
                          (and (null file)
                               (not parent-allowed-backlink-p)))
                  ;; set modified status to t: pages with excluded
                  ;; parents may not be modified, but we want to save
                  ;; anyway 
                  (set-buffer-modified-p t)
                  (save-buffer))))))))))

コンピュータの知識はすべての科学」にとって基本である。 Knowledge of computers is basic to all sciences.

action-lock.el is part of HOWM. The following code enables Planner-style links _anywhere_. Add it to your ~/.emacs and use M-x action-lock-mode to turn action locking on.

(add-to-list 'action-lock-default-rules
             (list (with-planner emacs-wiki-url-or-name-regexp)
                   'planner-action-lock-follow-name-at-point))
(setq action-lock-rules action-lock-default-rules)
(defvar planner-action-lock-default-directory planner-directory "Expand files relative to this directory.")
(defun planner-action-lock-follow-name-at-point (&optional other-window)
  (let ((link-name (match-string 0))
        (base-buffer (current-buffer))
        ;; the name of the buffer that contains the link.  check
        ;; whether buffer-name is a WikiName, else make it one
        (parent-name (or (emacs-wiki-page-name)
                         (concat "[[" (buffer-name) "]]"))))
    (with-planner 
      (let ((link (emacs-wiki-wiki-link-target link-name)))
        (if (emacs-wiki-wiki-url-p link)
            (emacs-wiki-browse-url link other-window)
          ;; The name list is current since the last time the buffer was
          ;; highlighted
          (let* ((base (emacs-wiki-wiki-base link-name))
                 (file (emacs-wiki-page-file base))
                 (tag  (and (not (emacs-wiki-wiki-url-p link))
                            (emacs-wiki-wiki-tag link)))
                 (find-file-function (if other-window
                                         'find-file-other-window
                                       'find-file))
                 (parent-allowed-backlink-p
                  (not (string-match
                        emacs-wiki-exclude-backlink-parent-regexp
                        parent-name)))
                 (parent-backlink (and parent-allowed-backlink-p
				   (emacs-wiki-get-current-backlink)))
                 (newbuf
                  (funcall find-file-function
                           (or file
                               (expand-file-name
                                       base
                                       (or planner-action-lock-default-directory
                                           (and (buffer-file-name)
                                                (file-name-directory 
                                                 (buffer-file-name)))
                                           default-directory)))))
                 (emacs-wiki-create-backlinks
                  (and emacs-wiki-create-backlinks parent-allowed-backlink-p))
                 (make-link-p (and emacs-wiki-create-backlinks
                                   ;; insert backlink only in new files
                                   (null file)
                                   (not (string-match
                                         emacs-wiki-exclude-backlink-regexp
                                         (emacs-wiki-page-name 
                                          (buffer-file-name newbuf)))))))
            (when tag
              (goto-char (point-min))
              (re-search-forward (concat "^\\.?#" tag) nil t))
            (when refresh-buffer
              (when make-link-p
                (emacs-wiki-insert-backlink parent-name parent-backlink))
              ;; todo: is with-current-buffer necessary here?
              (with-current-buffer newbuf
                (add-hook 'after-save-hook
                          'emacs-wiki-refresh-buffers-once t t)
                ;; save the new file to avoid another backlink if the
                ;; buffer is visited again before being saved
                (when (or make-link-p 
                          (and (null file)
                               (not parent-allowed-backlink-p)))
                  ;; set modified status to t: pages with excluded
                  ;; parents may not be modified, but we want to save
                  ;; anyway 
                  (set-buffer-modified-p t)
                  (save-buffer))))))))))

コンピュータの知識はすべての科学」にとって基本である。 Knowledge of computers is basic to all sciences.

Do you want all of your planner files to have a TXT extension so that they'll be searched by tools such as Google Desktop or Apple Spotlight?

Use the 'rename' tool to add .txt extensions to all of your files, or use the following code to rename all of your planner files from a running Planner setup:

(defun my-rename-planner-files ()
  "Rename all my planner files to .txt if they don't have that extension yet."
  (interactive)
  (mapcar
   (lambda (file)
     (unless (string-match "\\.txt$" (cdr file))
       (rename-file (cdr file) (concat (cdr file) ".txt"))
       (message "%s" (cdr file))))
   (planner-file-alist))
  (with-planner
    (emacs-wiki-refresh-file-alist)))

Then add this to your ~/.emacs before you load Planner:

(setq emacs-wiki-ignored-extensions-regexp "\\.txt")
    
(defadvice emacs-wiki-find-file (around extension activate)
  "Open the Emacs Wiki page WIKI by name.
If COMMAND is non-nil, it is the function used to visit the file.
If DIRECTORY is non-nil, it is the directory in which the Wiki
page will be created if it does not already exist."
  (unless (interactive-p)
    (setq wiki (cons wiki
                     (cdr (assoc wiki (emacs-wiki-file-alist))))))
  ;; At this point, `wiki' is (GIVEN-PAGE FOUND-FILE).
  (if (cdr wiki)
      (let ((buffer (funcall (or command 'find-file) (cdr wiki))))
        (if (= (prefix-numeric-value current-prefix-arg) 16)
            (with-current-buffer buffer
              (set (make-variable-buffer-local 'emacs-wiki-directories)
                   (cons (file-name-directory (cdr wiki))
                         emacs-wiki-directories))
              (set (make-variable-buffer-local 'emacs-wiki-file-alist)
                   nil)))
        buffer)
    (let* ((dirname (or directory
                        (emacs-wiki-maybe t)
                        (car emacs-wiki-directories)))
           (filename (expand-file-name (car wiki) dirname)))
      (unless (file-exists-p dirname)
        (make-directory dirname t))
      (funcall (or command 'find-file) (concat filename ".txt")))))

新しいパソコンを買うつもりで金を溜めているんだ。 I am saving money in order to buy a new personal computer.

According to Kathy Sierra at Creating Passionate Users (another must-read blog), this is what passion looks like:

I want to make Planner users more than just "satisfied and happy." I want them to get an "I totally rock!" experience every time they start up their Emacs, and I want them to do that every day. How can I help Planner users become even more passionate about planning and life?

Try out Planner today!

そのコンピューターは最新式だ。 The computer is up to date.

Announcing planner-el-3.29, available at http://sacha.free.net.ph/notebook/emacs/sacha-stable.tar.gz and deb http://sacha.free.net.ph/notebook/emacs/planner/ . =)

New

• dev/369: planner-annotation-symbol-string
• dev/369: planner-create-task-from-note
• dev/370: planner-timewarp
• dev/371: planner-annotation-from-dired
• dev/372: planner-psvn for version control

Updates

dryice/33-38, dev/365-379, jeho/50-60, johnsu01/0-3

Bugfixes

• dev/366: planner-multi read-only prompt, sort-task excursions, planner-appt advice
• dev/367: Always add menu to planner-mode buffers
• dev/368: planner-multi-read-name bugfix from jeho
• dev/369: planner-timeclock-summary-proj bugfix
• dev/370: Group .-? regexp to deal with possible XEmacs bug
• dev/372: planner-vm-browse-url and message IDs
• dev/376: planner-id bugfixes with completed/cancelled tasks
• dev/377: planner-gnus: pick up group name properly
• dev/380: planner-multi replace mapc with mapcar for emacs20

Docfixes

• dev/365: Update my sample configuration file
• dev/374: New URL for remind
• dev/375: Carrying over unfinished tasks
• dev/379: Document planner-trunk

E-Mail to emacs-wiki-discuss

猫はネズミを捕まえました。 The cat caught the rats.