Fix config for phoenix

1 files changed, 30 insertions, 23 deletions

diff --git a/.emacs.d/init.org b/.emacs.d/init.org
index 28b8cf9..1f37c7b 100644
--- a/.emacs.d/init.org
+++ b/.emacs.d/init.org
@@ -182,16 +182,19 @@
   running a daemon, just set the theme.
 
   #+BEGIN_SRC emacs-lisp
-    (let ((setp (not (daemonp))))
-      (defun init-set-theme (frame)
-        "Try to set the theme for the current (first) frame."
-        (ignore frame)
-        (unless setp
-          (run-at-time .1 nil (lambda () (setq setp (load-theme 'yoshi t)))))))
-
-    (if (daemonp)
-        (add-hook 'after-make-frame-functions #'init-set-theme)
-      (eval-after-init (load-theme 'yoshi t)))
+    (let ((theme (if (equal system-name "drd")
+                     'yoshi
+                   'leuven)))
+      (let ((setp (not (daemonp))))
+        (defun init-set-theme (frame)
+          "Try to set the theme for the current (first) frame."
+          (ignore frame)
+          (unless setp
+            (run-at-time .1 nil (lambda () (setq setp (load-theme theme t)))))))
+      
+      (if (daemonp)
+          (add-hook 'after-make-frame-functions #'init-set-theme)
+        (eval-after-init (load-theme theme t))))
   #+END_SRC
 
 * Browsing with eww
@@ -222,12 +225,13 @@
 
   #+BEGIN_SRC emacs-lisp
     (defun init-set-emacs-lisp-symbols ()
-      (setq prettify-symbols-alist
-            (append prettify-symbols-alist
-                    '(("<=" . ?≤)
-                      (">=" . ?≥)
-                      ("sqrt" . ?√)))))
-
+      (when (boundp 'prettify-symbols-alist)
+        (setq prettify-symbols-alist
+              (append prettify-symbols-alist
+                      '(("<=" . ?≤)
+                        (">=" . ?≥)
+                        ("sqrt" . ?√))))))
+    
     (add-hook 'emacs-lisp-mode-hook #'init-set-emacs-lisp-symbols)
   #+END_SRC
 
@@ -237,19 +241,22 @@
 
   #+BEGIN_SRC emacs-lisp
     (defun init-set-python-symbols ()
-      (setq prettify-symbols-alist
-            '(("lambda" . ?λ)
-              ("<=" . ?≤)
-              (">=" . ?≥)
-              ("!=" . ?≠))))
-
+      (when (boundp 'prettify-symbols-alist)
+        (setq prettify-symbols-alist
+              '(("lambda" . ?λ)
+                ("<=" . ?≤)
+                (">=" . ?≥)
+                ("!=" . ?≠)))))
+    
     (add-hook 'python-mode-hook #'init-set-python-symbols)
   #+END_SRC
 
   Now just turn it on for =prog-mode=.
 
   #+BEGIN_SRC emacs-lisp
-    (add-hook 'prog-mode-hook 'prettify-symbols-mode)
+    (when (and (>= emacs-major-version 24)
+               (> emacs-minor-version 3))
+      (add-hook 'prog-mode-hook 'prettify-symbols-mode))
   #+END_SRC
 
 * Slime implementations