[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emacs-wiki-discuss] Re: determine at a glance whether you're "clocked-i
From: |
Sacha Chua |
Subject: |
[emacs-wiki-discuss] Re: determine at a glance whether you're "clocked-in" to a task in planner-timeclock? |
Date: |
Thu, 04 Aug 2005 14:56:13 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux) |
Guy Berliner <address@hidden> writes:
> Is there a way to determine at a glance whether one is "clocked-in" to a
> task when using planner-timeclock, and if so, which one? Ideally, it
> would be something that would appear in the modeline, say.
Not quite at-a-glance, but this might be a useful segment from my
config. <grin> It tells you what you're supposed to be working on, and
lets you jump back and forth.
;; I've bound sacha/planner-what-am-i-supposed-to-be-doing to F9 F9. I
;; start out by clocking into the task (use planner-timeclock.el and
;; C-c TAB to mark a task as in progress). Then, when I find myself
;; getting distracted, I hit F9 F9 to see my current task in the
;; minibuffer. C-u F9 F9 jumps back to the task so that I can either
;; mark it as postponed. M-x planner-task-pending (bound to C-c C-p in
;; my local config) and M-x planner-task-done (C-c C-x) both clock out
;; of the task. If I want to jump back to the previous window
;; configuration from that planner page, I can just hit F9 F9 again.
(defvar sacha/window-register "w"
"Register for jumping back and forth between planner and wherever I am.")
(defvar sacha/planner-current-task nil
"Current task info.")
(defadvice planner-task-in-progress (after sacha activate)
"Keep track of the task info."
(setq sacha/planner-current-task (planner-current-task-info)))
(defun sacha/planner-what-am-i-supposed-to-be-doing (&optional prefix)
"Make it easy to keep track of what I'm supposed to be working on.
If PREFIX is non-nil, jump to the current task, else display it
in a message. If called from the plan page, jump back to whatever
I was looking at."
(interactive "P")
(if planner-timeclock-current-task
(if (string= (planner-task-page sacha/planner-current-task)
(planner-page-name))
(jump-to-register sacha/window-register)
(if (null prefix)
(message "%s" planner-timeclock-current-task)
(frame-configuration-to-register sacha/window-register)
(planner-find-file (planner-task-page sacha/planner-current-task))
(planner-find-task sacha/planner-current-task)))
(if prefix
(planner-goto-today)
(message "No current task. HEY!"))))
(global-set-key (kbd "<f9> <f9>") 'sacha/planner-what-am-i-supposed-to-be-doing)
--
Sacha Chua <address@hidden> - open source geekette
http://sacha.free.net.ph/ - PGP Key ID: 0xE7FDF77C
interests: emacs, gnu/linux, personal information management, juggling
sachac on irc.freenode.net#emacs . YM: sachachua83