 (require 'cl-lib) ;; use common lisp everywhere
 
 ;; My emacs home directory
-(defvar emacs-root (if (or (eq system-type 'darwin)
-                           (eq system-type 'gnu/linux)
-                           (eq system-type 'linux))
-                        "/Users/bsima/.dotfiles/emacs.d.symlink/"
-                        "c:/home/bsima"))
+(defvar emacs-root (if (or (eq system-type 'gnu/linux)
+			   (eq system-type 'linux))
+                        "/home/bsima/.dotfiles/emacs.d.symlink/"
+                        "/Users/bsima/.dotfiles/emacs.d.symlink/"))
 
 (defun edit-init ()
   "Edits my configuration file"

(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))

(set-frame-font
 "-apple-Fantasque_Sans_Mono-medium-normal-normal-*-14-*-*-*-m-0-iso10646-1" nil t)

;; tangotango is a good all-around theme
;(load-theme 'tangotango t)

;(load-file (concat emacs-root "transpose-frame.el"))
;(require 'transpose-frame)

;(load-library "~/.emacs-local")

;;; end .emacs
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(magit-use-overlays nil)
 '(safe-local-variable-values (quote ((Syntax . ANSI-Common-Lisp) (Base . 10)))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )
