emacs.el: Small fixes

emacs.el

@@ -50,6 +50,7 @@ Otherwize hook it."
 
 At compile time the feature will be loaded immediately."
   `(eval-and-compile
+     (message "safe-require-or-eval: Trying to require %s" ,feature)
      (require ,feature nil t)))
 
 (defmacro autoload-eval-lazily (feature &optional functions &rest body)
@@ -714,7 +715,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   ;; (setq whitespace-newline 'font-lock-comment-face)
   (set-variable 'whitespace-line-column nil)
   (global-whitespace-mode t)
-  (add-hook 'dired-mod-hook
+  (add-hook 'dired-mode-hook
             (lambda ()
               (setq whitespace-style nil)))
   (if (eq (display-color-cells)
@@ -771,11 +772,14 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   (set-variable 'ahs-idle-interval 0.6)
   (global-auto-highlight-symbol-mode 1))
 
-(when (safe-require-or-eval 'cyberpunk-theme)
-  (load-theme 'cyberpunk t)
-  (set-face-attribute 'button
-                      nil
-                      :inherit 'highlight))
+;; (when (safe-require-or-eval 'cyberpunk-theme)
+;;   (load-theme 'cyberpunk t)
+;;   (set-face-attribute 'button
+;;                       nil
+;;                       :inherit 'highlight))
+
+(when (safe-require-or-eval 'grandshell-theme)
+  (load-theme 'grandshell t))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; file handling