diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-10-11 18:43:38 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-10-11 18:43:38 -0700 |
commit | 262216bfd2c456b741c81d5de479c3fb44666f22 (patch) | |
tree | a31061918fc6452d8eb45c59d2610ed002f3e008 | |
parent | 1024e34abc8e18f9dc5ba321d876cc9a8415b274 (diff) | |
download | dotfiles-262216bfd2c456b741c81d5de479c3fb44666f22.tar.gz |
update automagic agenda filtering
-rw-r--r-- | .emacs.d/init-org.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/.emacs.d/init-org.el b/.emacs.d/init-org.el index 5ea82ee9..16c85aee 100644 --- a/.emacs.d/init-org.el +++ b/.emacs.d/init-org.el @@ -404,13 +404,13 @@ spaces in it and to remove any colons." (defun org-my-auto-exclude-function (tag) (and (cond ((string= tag "@E5thSt") - (or (string= (system-name) "SPWHITTON") - ;; if we're on the metaarray we're probably not on - ;; GNU/Linux machine at home - (string= (system-name) "ma.sdf.org"))) + (not (string= (system-name) "artemis.silentflame.com"))) + ((string= tag "@Tucson") + (not (string= (system-name) "artemis.silentflame.com"))) + ((string= tag "@Sheffield") + (not (string= (system-name) "zephyr.silentflame.com"))) ((string= tag "@libDASL") - (not (or (string= (system-name) "SPWHITTON") - (string= (system-name) "ma.sdf.org"))))) + (not (string= (system-name) "ma.sdf.org")))) (concat "-" tag))) (setq org-agenda-auto-exclude-function 'org-my-auto-exclude-function) |