From c25684314bc9e49f4cf4f6e93032990fe0f1373e Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 22 Sep 2014 21:37:47 +0200
Subject: Stop filtering on loaded desktop

---
 emacs/.emacs.d/site-lisp/org-init.el | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'emacs/.emacs.d/site-lisp/org-init.el')

diff --git a/emacs/.emacs.d/site-lisp/org-init.el b/emacs/.emacs.d/site-lisp/org-init.el
index dda08b3..a11e5d0 100644
--- a/emacs/.emacs.d/site-lisp/org-init.el
+++ b/emacs/.emacs.d/site-lisp/org-init.el
@@ -70,14 +70,6 @@
       (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-nondirectory
-                          (directory-file-name
-                           (expand-file-name desktop-dirname))))))
-      (org-agenda-filter-apply (cons label nil) 'tag))))
-
 (defun org-init-skip-tags ()
   "Skip the \"ex\" and \"unconfirmed\" tags."
   (let ((tags (org-get-tags-at (point))))
@@ -175,7 +167,6 @@
 (setf (cdar org-blank-before-new-entry) t)
 
 (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