From a95f4a9a14343589a597bcb55926eae9e1394a11 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Tue, 18 Nov 2014 19:31:52 -0800
Subject: [PATCH] Fix get-virtual-envs

---
 init.el | 30 +++++++++++++-----------------
 1 file changed, 13 insertions(+), 17 deletions(-)

diff --git a/init.el b/init.el
index f25dbd85..af2c33d1 100644
--- a/init.el
+++ b/init.el
@@ -100,7 +100,7 @@
     exec-path-from-shell slime string-inflection yaml-mode sgml-mode
     dired+ ctags ctags-update helm-gtags hackernews gitconfig-mode
     aggressive-indent imenu+ weechat evil helm-ag xclip neotree
-    magit-gh-pulls diminish gist))
+    magit-gh-pulls diminish gist org))
 
 (defvar packages-appearance
   '(monokai-theme solarized-theme zenburn-theme base16-theme molokai-theme
@@ -304,16 +304,17 @@
   (apply #'append (mapcar (lambda (env) `("-v" ,env)) virtual-envs)))
 
 (defun get-virtual-envs ()
-  (condition-case ex
-      (let ((project-root (projectile-project-root)))
-	(cl-remove-if-not 'file-exists-p
-			  (mapcar (lambda (env-suffix)
-				    (concat project-root env-suffix))
-				  '(".tox/py27/" "env" ".tox/venv/"))))
-    ('error
-     (message (format "Caught exception: [%s]" ex))
-     (setq retval (cons 'exception (list ex))))
-    nil))
+  (if (projectile-project-p)
+      (condition-case ex
+          (let ((project-root (projectile-project-root)))
+            (cl-remove-if-not 'file-exists-p
+                              (mapcar (lambda (env-suffix)
+                                        (concat project-root env-suffix))
+                                      '(".tox/py27/" "env" ".tox/venv/"))))
+        ('error
+         (message (format "Caught exception: [%s]" ex))
+         (setq retval (cons 'exception (list ex))))
+        nil)))
 
 (defun message-virtual-envs ()
   (interactive)
@@ -517,11 +518,6 @@ buffer is not visiting a file."
   (interactive "r")
   (shell-command-on-region b e "cat | tmux loadb -"))
 
-(defun tmux-copy-buffer-name (&optional b e)
-  (interactive "r")
-  (shell-command (concat "echo " (shell-quote-argument (ffip-get-buffer-name))
-                         " | tmux loadb -")))
-
 (defun eval-and-replace ()
   (interactive)
   (backward-kill-sexp)
@@ -619,7 +615,7 @@ buffer is not visiting a file."
 (defun get-appropriate-theme ()
   (let ((hour
          (string-to-number (format-time-string "%H"))))
-    (if (or (< hour 8) (> hour 18))
+    (if (or (< hour 8) (> hour 17))
         (random-choice dark-themes) (random-choice light-themes))))
 
 (setq current-theme nil)