diff options
| -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) |