Fix usage on laptop

1 files changed, 17 insertions, 25 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 31f2fd7..587b023 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -688,22 +688,21 @@ For `python-mode' I prefer `python-imenu-create-flat-index'."
                            (hide-entry))
                        (call-interactively func))))))
 
-(let ((theme (if (equal system-name "drd") 'yoshi 'leuven)))
-  (let (setp)
-    (defun oni:set-theme (frame)
-      "Try to set the theme for the current (first) frame."
-      (ignore frame)
-      (unless setp
-        (load-theme theme t)
-        (smt/enable)
-        (require 'my-smt)
-        (smt/set-theme 'my-smt)
-        (set-face-attribute 'mode-line nil :box nil)
-        (set-face-attribute 'mode-line-inactive nil :box nil))))
-
-  (if (daemonp)
-      (add-hook 'after-make-frame-functions #'oni:set-theme)
-    (oni:eval-after-init (oni:set-theme nil))))
+(let (setp)
+  (defun oni:set-theme (frame)
+    "Try to set the theme for the current (first) frame."
+    (ignore frame)
+    (unless setp
+      (load-theme 'yoshi t)
+      (smt/enable)
+      (require 'my-smt)
+      (smt/set-theme 'my-smt)
+      (set-face-attribute 'mode-line nil :box nil)
+      (set-face-attribute 'mode-line-inactive nil :box nil))))
+
+(if (daemonp)
+    (add-hook 'after-make-frame-functions #'oni:set-theme)
+  (oni:eval-after-init (oni:set-theme nil)))
 
 (defun oni:shell-command-with-command (command &optional output-buffer)
   "Print both COMMAND and the output into OUTPUT-BUFFER."
@@ -1418,15 +1417,6 @@ If no direction is given, don't split."
 (when (equal system-name "drd")
   (load "eap-autoloads"))
 
-(let ((quicklisp-slime-directory
-       "~/.local/share/quicklisp/local-projects/slime/"))
-  (add-to-list 'load-path quicklisp-slime-directory)
-  (require 'slime-autoloads)
-  (setq slime-backend (expand-file-name "swank-loader.lisp"
-                                        quicklisp-slime-directory)
-        slime-path quicklisp-slime-directory)
-  (slime-setup '(slime-fancy)))
-
 (auto-insert-mode)
 (electric-indent-mode -1)
 (ido-mode 1)
@@ -1438,6 +1428,8 @@ If no direction is given, don't split."
 (help-at-pt-set-timer)
 (windmove-default-keybindings)
 
+(load system-name :noerror)
+
 ;;;; Custom
 ;; Finally, load any `customize' settings.
 (load custom-file)