From: Nick Dokos <ndokos@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Re: Agenda in the mode-line?
Date: Sat, 03 Aug 2013 01:27:14 -0400 [thread overview]
Message-ID: <87ehabl4y5.fsf@gmail.com> (raw)
In-Reply-To: m21u6c7zlf.fsf@unknown28cfe95504ff.gateway.2wire.net
Kyle Sexton <ks@mocker.org> writes:
> Nick Dokos <ndokos@gmail.com> 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
>> mode-line-format.
>
> 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.
--8<---------------cut here---------------start------------->8---
(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)."
(let ((afiles))
(setq afiles
(if (not files)
(org-agenda-files)
files))
(concat "["
(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 today
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)))
(incf todo-today))
(incf todo-total)))
(defun org-mode-line-stats (file)
"Use org-map-entries to step through the TODO headlines. Apply the org-count-todo
function on each headline and return a string of the form <file>:<todo-today>/<todo>."
(let ((buffer (get-file-buffer file))
(todo-today 0)
(todo-total 0))
(if buffer
(save-excursion
(set-buffer buffer)
;; do the org mapping API dance
(org-map-entries
(function org-count-todo)
"/+TODO" 'file)))
(concat (file-name-base file) (format ":%d/%d" todo-today todo-total))))
(setq mode-line-org-agenda-stats (org-agenda-mode-line '("/home/nick/lib/org/home.org" "/home/nick/lib/org/work.org")))
(nconc mode-line-format '(mode-line-org-agenda-stats))
--8<---------------cut here---------------end--------------->8---
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 ()
> (interactive)
> (org-mobile-pull)
> (org-mobile-push))
> (defun org-mobile-sync-enable ()
> "enable mobile org idle sync"
> (interactive)
> (setq org-mobile-sync-timer
> (run-with-idle-timer org-mobile-sync-idle-secs t
> 'org-mobile-sync)))
> (defun org-mobile-sync-disable ()
> "disable mobile org idle sync"
> (interactive)
> (cancel-timer org-mobile-sync-timer))
> (org-mobile-sync-enable)
> #+END_SRC
--
Nick
next prev parent reply other threads:[~2013-08-03 5:27 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-08-01 13:30 Agenda in the mode-line? Kyle Sexton
2013-08-02 14:36 ` Bastien
2013-08-02 14:59 ` Kyle Sexton
2013-08-02 17:07 ` Nick Dokos
2013-08-02 17:49 ` Kyle Sexton
2013-08-03 5:27 ` Nick Dokos [this message]
2013-08-03 3:48 ` Eric Abrahamsen
2013-08-04 18:18 ` Daniel Clemente
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ehabl4y5.fsf@gmail.com \
--to=ndokos@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).