diff options
| author |  Tom Willemse | 2014-09-22 21:37:47 +0200 |
|---|---|---|
| committer | Tom Willemse | 2014-09-22 21:37:47 +0200 |
| commit | c25684314bc9e49f4cf4f6e93032990fe0f1373e (patch) | |
| tree | fbaf23ee208a628a308db7c2802e922bbbd1fc31 /emacs/.emacs.d/site-lisp/org-init.el | |
| parent | 028582d634cc38688dbee0881e5d237dea7bf0cb (diff) | |
| download | dotfiles-c25684314bc9e49f4cf4f6e93032990fe0f1373e.tar.gz dotfiles-c25684314bc9e49f4cf4f6e93032990fe0f1373e.zip | |
Stop filtering on loaded desktop
Diffstat (limited to 'emacs/.emacs.d/site-lisp/org-init.el')
| -rw-r--r-- | emacs/.emacs.d/site-lisp/org-init.el | 9 |
1 files changed, 0 insertions, 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) |