blob: 1678ccac88b208b30ef335acc10e3f330e4e7531 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
;;;;;
title: Filtering org tasks
tags: tips, emacs, org-mode
date: 2013-08-25 00:38
format: md
;;;;;
I want to be able to easily see a list of tasks that are relevant to
the currently loaded desktop file. As I use `desktop.el` as a kind of
project system, this means I only want the tasks for the project I'm
currently working on.
First I wrote the `tagify` function, because `org-mode` tags can't
contain `.` or `-` characters (among others I'm sure, but these are
the only ones that have caused me any trouble so far). It's a simple
string replacement:
``` emacs-lisp
(defun tagify (str)
"Remove dots, replace - with _ in STR."
(replace-regexp-in-string
"-" "_" (replace-regexp-in-string "\\." "" (downcase str))))
```
Then I wrote a function to filter the task list by not showing
anything that wasn't tagged with the name of the currently loaded
desktop, unless it isn't tagged at all or no desktop has been loaded.
And set this function to be the value of
`org-agenda-before-sorting-filter-function`.
``` emacs-lisp
(defun filter-by-desktop (entry)
"Return ENTRY if it has no tags or a tag corresponding to the desktop."
(require 'desktop)
(let ((label (when desktop-dirname
(tagify (file-name-base
(directory-file-name
(expand-file-name desktop-dirname))))))
(tags (get-text-property 0 'tags entry)))
(when (or (null desktop-dirname) (null tags) (member label tags))
entry)))
(setq org-agenda-before-sorting-filter-function #'filter-by-desktop)
```
This works fine. I keep untagged tasks in the list as well because
they might be important at all times and I don't want them falling
through the cracks. I also want a complete list if no desktop has been
loaded so I can browse through my tasks and decide what I'm going to
do next.
The downside of this solution is that I have to close my current
project in order to see the whole list.
Then I discovered the `/` key in the agenda buffer. I can't believe I
didn't notice this key before. Anyway, that changed my solution.
Instead of setting `org-agenda-before-sorting-filter-function` I add a
hook to the `org-agenda-finalize-hook`. The `filter-by-desktop`
function looks a little different now:
``` emacs-lisp
(defun org-init-filter-by-desktop ()
"Filter agenda by current label."
(when desktop-dirname
(let ((label (tagify (file-name-base
(directory-file-name
(expand-file-name desktop-dirname))))))
(org-agenda-filter-apply (cons label nil) 'tag))))
(add-hook 'org-agenda-finalize-hook 'org-init-filter-by-desktop)
```
I don't need to compare any tags now, and if I want to see my entire
list of tasks I can easily just press `/ /`. Since it is easier to get
back to the overview of my tasks it also doesn't bother me so much
that this way any untagged tasks don't show up in the filtered buffer.
I haven't stopped using `/` since I discovered it. Filtering in this
way is one of the things I like about `ibuffer` as well, now for
`org-mode` it works excellently as well.
<!-- Local Variables: -->
<!-- mode: markdown -->
<!-- End: -->
|
