From c25684314bc9e49f4cf4f6e93032990fe0f1373e Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 22 Sep 2014 21:37:47 +0200 Subject: [PATCH] Stop filtering on loaded desktop --- emacs/.emacs.d/site-lisp/org-init.el | 9 --------- 1 file changed, 9 deletions(-) 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)