From 12d3ee93e777330bcf6902ebef65d026ef9393c2 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 25 Aug 2013 21:09:26 +0200
Subject: Throw away some old junk

---
 .emacs.d/site-lisp/org-init.el | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/.emacs.d/site-lisp/org-init.el b/.emacs.d/site-lisp/org-init.el
index 6c2720b..0894d8b 100644
--- a/.emacs.d/site-lisp/org-init.el
+++ b/.emacs.d/site-lisp/org-init.el
@@ -45,17 +45,6 @@
   (replace-regexp-in-string
    "-" "_" (replace-regexp-in-string "\\." "" (downcase str))))
 
-(defun filter-by-agenda (entry)
-  "Return ENTRY if it has no tags or a tag corresponding to the desktop."
-  (require 'desktop)
-  (let ((label (when desktop-dirname
-                 (tagify (file-name-base
-                          (directory-file-name
-                           (expand-file-name desktop-dirname))))))
-        (tags (get-text-property 0 'tags entry)))
-    (when (or (null desktop-dirname) (null tags) (member label tags))
-      entry)))
-
 (defun oni:note-template ()
   (concat
    "* %<%c>\n"
@@ -80,7 +69,6 @@
 
 (setq org-agenda-files '("~/documents/org/tasks"))
 
-;; (setq org-agenda-before-sorting-filter-function #'filter-by-agenda)
 (setq org-agenda-cmp-user-defined (lambda (a b) 1))
 (setq org-agenda-prefix-format
       '((agenda . " %i %-12:c%?-12t% s")
-- 
cgit v1.2.3-54-g00ecf