From af17590330dcf1fa5610dd48e9cbcafe269f28b2 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 20 Nov 2014 17:39:42 -0800
Subject: [PATCH] js and theming tweaks.

---
 init.el | 39 ++++++++++++++++++++++++++-------------
 1 file changed, 26 insertions(+), 13 deletions(-)

diff --git a/init.el b/init.el
index 9f5de229..98e67d5d 100644
--- a/init.el
+++ b/init.el
@@ -104,7 +104,7 @@
     exec-path-from-shell slime 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 org spotify ghc))
+    magit-gh-pulls diminish gist spotify ghc))
 
 (defvar packages-appearance
   '(monokai-theme solarized-theme zenburn-theme base16-theme molokai-theme
@@ -252,6 +252,11 @@
   :commands string-inflection-toggle
   :bind ("C-c l" . string-inflection-toggle))
 
+(use-package org
+  :ensure t
+  :init
+  (add-hook 'org-mode-hook (lambda () (linum-mode 0))))
+
 ;; =============================================================================
 ;;                                                        Programming Mode Hooks
 ;; =============================================================================
@@ -433,9 +438,6 @@
 
 (use-package js2-mode
   :ensure t
-  :mode "\\.js\\'"
-  :config
-  (progn (setq js-indent-level 2))
   :bind
   (("C-c b" . web-beautify-js)
    ("C-c b" . web-beautify-js))
@@ -444,8 +446,10 @@
     (use-package skewer-mode
       :ensure t
       :commands skewer-mode)
+    (add-hook 'js-mode-hook 'js2-minor-mode)
     (add-hook 'js2-mode-hook (lambda () (tern-mode t)))
     (add-hook 'js2-mode-hook 'skewer-mode)
+    (add-hook 'js2-mode-hook (lambda () (setq js-indent-level 1)))
     (use-package tern
       :ensure t
       :config
@@ -455,8 +459,12 @@
 	(use-package tern-auto-complete :ensure t
 	  :commands tern-ac-setup)))))
 
-(defvar packages-js '(js2-mode js3-mode web-beautify tern tern-auto-complete
-		      slime-js skewer-mode skewer-reload-stylesheets))
+(use-package json-mode
+  :ensure t
+  :init
+  (add-hook 'json-mode-hook
+            (lambda ()
+            (setq js-indent-level 2))))
 
 (add-hook 'css-mode-hook #'skewer-css-mode)
 (add-hook 'html-mode-hook #'skewer-html-mode)
@@ -670,7 +678,7 @@ buffer is not visiting a file."
   (if t ;; (display-graphic-p) why doesn't this work at frame startup?
       (let ((hour
              (string-to-number (format-time-string "%H"))))
-        (if (or (< hour 8) (> hour 17))
+        (if (or (< hour 8) (> hour 16))
             (random-choice dark-themes) (random-choice light-themes)))
     (random-choice terminal-themes)))
 
@@ -683,18 +691,23 @@ buffer is not visiting a file."
         (if (eq appropriate-theme current-theme)
             nil
           (progn
-            (deactivate-all-themes)
+            (disable-all-themes)
             (load-theme appropriate-theme t)
                  (setq current-theme appropriate-theme)))))
 
-(defun deactivate-all-themes ()
+(defun disable-all-themes ()
   (interactive)
   (mapcar 'disable-theme custom-enabled-themes))
 
-(defun disable-and-load-theme ()
-  (interactive)
-  (deactivate-all-themes)
-  (call-interactively 'load-theme))
+(defun disable-and-load-theme (theme &optional no-confirm no-enable)
+  (interactive
+   (list
+    (intern (completing-read "Load custom theme: "
+			     (mapcar 'symbol-name
+				     (custom-available-themes))))
+    nil nil))
+  (disable-all-themes)
+  (load-theme theme no-confirm no-enable))
 
 (defun set-my-font-for-frame (frame)
   (condition-case exp