(let ((theme (car '(
                    solarized-dark
                    spacemacs-dark
                    leuven
                    solarized-light
                    ))))
  (when theme
    (load-theme theme t)
    (custom-theme-set-faces
     theme
     '(dired-header ((t (:foreground "#268bd2"
                                     :underline t
                                     :background nil)))))))

(add-hook 'focus-out-hook
          (lambda ()
            (when (and buffer-file-name (buffer-modified-p))
              (save-buffer))))

(let ((shell-path (shell-command-to-string "$SHELL -c 'echo -n $PATH'")))
  (setenv "PATH" shell-path)
  (setq exec-path (split-string shell-path path-separator)))

;; Center Emacs's position on screen
(let* ((height 40)
       (width 82)
       (top 0)
       (left (/ (- (display-pixel-width)
                   (frame-pixel-width))
                2)))
  (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
  (add-to-list 'default-frame-alist '(ns-appearance . dark))
  (add-to-list 'default-frame-alist (cons 'height height))
  (add-to-list 'default-frame-alist (cons 'width width))
  (add-to-list 'default-frame-alist (cons 'top top))
  (add-to-list 'default-frame-alist (cons 'left left)))

(set-frame-parameter nil 'alpha '(100 100))

(setq frame-title-format nil)

(let ((theme (car '(
                    solarized-dark
                    spacemacs-dark
                    leuven
                    solarized-light
                    ))))
  (when theme
    (load-theme theme t)
    (custom-theme-set-faces
     theme
     '(dired-header ((t (:foreground "#268bd2"
                                     :underline t
                                     :background nil)))))))

(add-hook 'focus-out-hook
          (lambda ()
            (when (and buffer-file-name (buffer-modified-p))
              (save-buffer))))

(let ((shell-path (shell-command-to-string "$SHELL -l -c 'echo -n $PATH'")))
  (setenv "PATH" shell-path)
  (setq exec-path (split-string shell-path path-separator)))

;; Center Emacs's position on screen
(let* ((height 40)
       (width 82)
       (top 0)
       (left (/ (- (display-pixel-width)
                   (frame-pixel-width))
                2)))
  (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
  (add-to-list 'default-frame-alist '(ns-appearance . dark))
  (add-to-list 'default-frame-alist (cons 'height height))
  (add-to-list 'default-frame-alist (cons 'width width))
  (add-to-list 'default-frame-alist (cons 'top top))
  (add-to-list 'default-frame-alist (cons 'left left)))

(set-frame-parameter nil 'alpha '(100 100))

(setq frame-title-format nil)

Use login shell to get the path
Use login shell to get the path

The `-l' option will probably only work with Bash but that should be
fine as most places have standardized on it.

sri/dotfiles,sri/dotfiles,sri/dotfiles