ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Stop filtering on loaded desktop

Browse source
This commit is contained in:
Tom Willemse 2014-09-22 21:37:47 +02:00
parent 028582d634
commit c25684314b
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/.emacs.d/site-lisp/org-init.el
View file

@ -70,14 +70,6 @@
(setq outline-path (concat "[ " outline-path " ] "))) (setq outline-path (concat "[ " outline-path " ] ")))
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 () (defun org-init-skip-tags ()
"Skip the \"ex\" and \"unconfirmed\" tags." "Skip the \"ex\" and \"unconfirmed\" tags."
(let ((tags (org-get-tags-at (point)))) (let ((tags (org-get-tags-at (point))))
@ -175,7 +167,6 @@
(setf (cdar org-blank-before-new-entry) t) (setf (cdar org-blank-before-new-entry) t)
(add-hook 'org-agenda-mode-hook 'org-agenda-to-appt) (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) (add-to-list 'org-modules 'habit)