[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Agenda in the mode-line?
Re: [O] Agenda in the mode-line?
Sat, 03 Aug 2013 01:27:14 -0400
Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux)
Kyle Sexton <address@hidden> writes:
> Nick Dokos <address@hidden> writes:
>> I don't think the feature exists but it should be buildable - although I
>> think it is not exactly simple.
>> It should be easy to write a function that uses the org mapping API to
>> produce a string of the form "[Work: 3/10 Home: 2/20]" and assign it to
>> a variable, say mode-line-org-tasks. The variable can be added to
> That part is beyond my elisp ability, but good to know that the feature
> doesn't currently exist.
Here is an implementation of the above. If you paste the code into a
buffer, change the paths appropriately and M-x eval-buffer, you should
get a mode line with the stats. mode-line-format is buffer-local so you
can get rid of the modified mode-line-format by just killing the buffer.
(defun org-agenda-mode-line (&optional files)
"Construct a string of the form [<file>:<todo-today>/<todo> ...]
for all the files in the argument list (or all the agenda files if the
argument is nil)."
(if (not files)
(mapconcat (function org-mode-line-stats) afiles " ")
(defun org-count-todo ()
"If the current headline is SCHEDULED and its scheduled date is on or before
then count it in todo-today. Count it unconditionally in todo-total."
(let ((sched (org-entry-get (point) "SCHEDULED")))
(if (and sched
(<= (time-to-days (org-time-string-to-time sched)) (org-today)))
(defun org-mode-line-stats (file)
"Use org-map-entries to step through the TODO headlines. Apply the
function on each headline and return a string of the form
(let ((buffer (get-file-buffer file))
;; do the org mapping API dance
(concat (file-name-base file) (format ":%d/%d" todo-today todo-total))))
(setq mode-line-org-agenda-stats (org-agenda-mode-line
(nconc mode-line-format '(mode-line-org-agenda-stats))
The code assumes that the relevant files are already visited
(e.g. you've already done C-c a a or M-x org-agenda-list). Otherwise,
get-file-buffer will return nil and the counting will be skipped: you'll
get 0/0 values. Also, what to search for is hardwired but it should be
clear how to change it to use different criteria.
The update problem below is still TBD.
>> The problem is to force mode-line redisplay when things change,
>> e.g. when you mark a TODO task DONE, or add another task to work.org.
>> If the file gets modified, then filenotify.el can be used, but since the
>> agenda files are kept open, the buffer is modified but the file is not
>> (until the buffer is saved) and I'm not sure how to detect such changes
>> and propagate them to the mode line. I thought there must be a hook to
>> allow this, but I haven't found one yet.
>> The rather yucky alternative is to poll the relevant buffers (say once a
>> minute) to see if they are modified and if so, run the function to set
>> the variable and force mode-line redisplay.
> I already have a function for org-mobile to sync, could something like
> that be hooked into?
> #+BEGIN_SRC emacs-lisp
> ;; Push to mobile-org
> ;; moble sync
> (defvar org-mobile-sync-timer nil)
> (defvar org-mobile-sync-idle-secs (* 60 10))
> (defun org-mobile-sync ()
> (defun org-mobile-sync-enable ()
> "enable mobile org idle sync"
> (setq org-mobile-sync-timer
> (run-with-idle-timer org-mobile-sync-idle-secs t
> (defun org-mobile-sync-disable ()
> "disable mobile org idle sync"
> (cancel-timer org-mobile-sync-timer))