140 lines
4.9 KiB
Text
140 lines
4.9 KiB
Text
;;;;;
|
|
title: Different roles
|
|
date: 2013-01-10
|
|
tags: org-mode, emacs, todo
|
|
format: html
|
|
;;;;;
|
|
<p>
|
|
The other day I noticed that when I'm working I find it very annoying
|
|
to have tasks for my personal projects appear in either my agenda or
|
|
my todo list, so I was thinking if I couldn't make it somewhat more
|
|
flexible.
|
|
</p>
|
|
|
|
<p>
|
|
First I've added some separation between my org files, I've split
|
|
them into <code>personal-org-agenda-files</code>, <code>work-org-agenda-files</code> and
|
|
<code>common-org-agenda-files</code>, since there are also <i>some</i> tasks that I would
|
|
like to know about in either situation.
|
|
</p>
|
|
|
|
<div class="org-src-container">
|
|
<pre class="src src-emacs-lisp">(defvar oni:personal-agenda-files
|
|
(list (expand-file-name "~/documents/org/tasks"))
|
|
"My personal agenda, should only show up at times I don't have
|
|
to work.")
|
|
|
|
(defvar oni:work-agenda-files
|
|
(list (expand-file-name "~/documents/org/work"))
|
|
"My work agenda, should only show up at times I work.")
|
|
|
|
(defvar oni:common-agenda-files
|
|
(list (expand-file-name "~/documents/org/misc"))
|
|
"Agenda files that are work-agnostic, should always show up.")
|
|
</pre>
|
|
</div>
|
|
|
|
<p>
|
|
At first I only seperated them with <code>org-agenda-custom-commands</code>:
|
|
</p>
|
|
|
|
<div class="org-src-container">
|
|
<pre class="src src-emacs-lisp">(setq org-agenda-custom-commands
|
|
'(("P" . "Personal only")
|
|
("Pa" "Personal agenda" agenda ""
|
|
((org-agenda-files (append oni:personal-agenda-files
|
|
oni:common-agenda-files))))
|
|
("Pt" "Personal todo" agenda ""
|
|
((org-agenda-files (append oni:personal-agenda-files
|
|
oni:common-agenda-files))))
|
|
("W" . "Work only")
|
|
("Wa" "Work agenda" agenda ""
|
|
((org-agenda-files (append oni:work-agenda-files
|
|
oni:common-agenda-files))))
|
|
("Wt" "Work todo" todo ""
|
|
((org-agenda-files (append oni:work-agenda-files
|
|
oni:common-agenda-files))))))
|
|
</pre>
|
|
</div>
|
|
|
|
<p>
|
|
But it's clunky to have to use a separate command just to see a clean
|
|
todo list. Then I thought, and tried, to have a function that checks
|
|
the time to see which it should use, since I work from 09:00 to
|
|
17:00, if the current time is between those times I should only look
|
|
at my work todo list, most of the time, outside of those hours I
|
|
don't really care what I have to do for work.
|
|
</p>
|
|
|
|
<div class="org-src-container">
|
|
<pre class="src src-emacs-lisp">(defun oni:set-org-agenda-files ()
|
|
(interactive)
|
|
(let ((current-time (current-time-string))
|
|
(start-time (format-time-string "%a %b %e 09:00:00 %Y"))
|
|
(end-time (format-time-string "%a %b %e 17:00:00 %Y")))
|
|
(if (or (and (string< current-time start-time)
|
|
(string< current-time end-time))
|
|
(and (string< start-time current-time)
|
|
(string< end-time current-time)))
|
|
(setq org-agenda-files
|
|
(append oni:personal-agenda-files
|
|
oni:common-agenda-files))
|
|
(setq org-agenda-files
|
|
(append oni:work-agenda-files
|
|
oni:common-agenda-files)))))
|
|
</pre>
|
|
</div>
|
|
|
|
<p>
|
|
It's weird, but since Emacs doesn't have any real datetime functions
|
|
for creation/comparison, for as far as I know, it seemed easiest to
|
|
just create some strings representing the time and compare these.
|
|
</p>
|
|
|
|
<p>
|
|
Then it should be, if the current time is either before both start
|
|
and end time or after both start and end time it should return my
|
|
personal todo list, otherwise it should return my work todo list.
|
|
</p>
|
|
|
|
<p>
|
|
Now, it would be silly to have to call that manually every so-often,
|
|
so I've set it up to do so automatically.
|
|
</p>
|
|
|
|
<div class="org-src-container">
|
|
<pre class="src src-emacs-lisp">(oni:set-org-agenda-files)
|
|
(run-at-time "09:01" nil 'oni:set-org-agenda-files)
|
|
(run-at-time "17:01" nil 'oni:set-org-agenda-files)
|
|
</pre>
|
|
</div>
|
|
|
|
<p>
|
|
First, I set my agenda files to whatevers they should be <b>right now</b>.
|
|
Then I have this function run at 09:01 and 17:01, if either or both
|
|
have already passed, they won't be executed today. This effectively
|
|
tells Emacs to switch to my work "role" after 09:00 and back to my
|
|
personal "role" after 17:00.
|
|
</p>
|
|
|
|
<p>
|
|
It's not perfect yet, but I felt like writing something. The things
|
|
I would change might include:
|
|
</p>
|
|
|
|
<ul class="org-ul">
|
|
<li>Check the times for either <code><</code> or <code>=</code> the start/end times, so I don't
|
|
have to check for <code>:01</code> every time, but Emacs doesn't have a <code>string<=</code>
|
|
function so I'll have to mimic it.</li>
|
|
|
|
<li>Always set it to my personal "role" during weekends.</li>
|
|
|
|
<li>Have them repeat every 24 hours, just in case I don't turn off my
|
|
PC for a few days.</li>
|
|
</ul>
|
|
|
|
<p>
|
|
I'll fix those soon, they're not hard to do, but this works for now.
|
|
It has worked well for me today, but I might throw it out again
|
|
tomorrow, as I sometimes tend to do.
|
|
</p>
|