From 288d9782242713af0f492b1dedb8d0b45006d1b7 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 25 Aug 2013 12:25:19 +0200
Subject: Use new filtering option

---
 .emacs.d/site-lisp/org-init.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/.emacs.d/site-lisp/org-init.el b/.emacs.d/site-lisp/org-init.el
index e3d0044..cbb9be0 100644
--- a/.emacs.d/site-lisp/org-init.el
+++ b/.emacs.d/site-lisp/org-init.el
@@ -70,9 +70,17 @@
       (setq outline-path (concat "[ " outline-path " ] ")))
     outline-path))
 
+(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))))
+
 (setq org-agenda-files '("~/documents/org/tasks"))
 
-(setq org-agenda-before-sorting-filter-function #'filter-by-agenda)
+;; (setq org-agenda-before-sorting-filter-function #'filter-by-agenda)
 (setq org-agenda-cmp-user-defined (lambda (a b) 1))
 (setq org-agenda-prefix-format
       '((agenda . " %i %-12:c%?-12t% s")
@@ -139,6 +147,7 @@
 (setq org-use-property-inheritance '("slug"))
 
 (add-hook 'org-agenda-mode-hook 'org-agenda-to-appt)
+(add-hook 'org-agenda-finalize-hook 'org-init-filter-by-desktop)
 
 (add-to-list 'org-modules 'habit)
 
-- 
cgit v1.2.3-54-g00ecf