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)