Overhaul rcfiles; fast startup!

init/core-osx.el

@@ -1,39 +1,15 @@
-;; OSX-specific functionality
-(when (is-osx)
 
-	;; GNU Emacs won't respect the login shell's PATH on mac, it seems,
-	;; this is necessary to fix the problem! (Thanks to lunaryorn @
-	;; <https://github.com/flycheck/flycheck/issues/438#issuecomment-49543748>)
-	(require-package 'exec-path-from-shell)
-	(exec-path-from-shell-initialize)
+;; Use a shared clipboard
+(setq x-select-enable-clipboard t)
+;; Curse you Lion-esque fullscreen mode!
+(setq ns-use-native-fullscreen nil)
+;; Don't open files from the workspace in a new frame
+(setq ns-pop-up-frames nil)
 
-    ;; Ignore .DS_Store files with ido mode
-    (add-to-list 'ido-ignore-files ".DS_Store")
-
-	;; Use a shared clipboard
-	(add-hook 'before-make-frame-hook
-			  (lambda() (setq x-select-enable-clipboard t)))
-
-    ;; Curse you Lion-esque fullscreen mode!
-    (setq ns-use-native-fullscreen nil)
-    ;; Don't open files from the workspace in a new frame
-    (setq ns-pop-up-frames nil)
-
-    ;; Send current file to OSX apps
-    (defun open-file-with (path &optional appName)
-      (if (not (string= "" appName))
-          (setq appName (concat "-a " appName ".app")))
-      (shell-command (concat "open " appName " " path)))
-
-    (defun open-with (appName)
-      (interactive)
-      (open-file-with (buffer-file-name) appName))
-
-    (defun send-to-transmit ()      (interactive) (open-with "Transmit"))
-    (defun send-to-launchbar ()     (interactive) (open-with "LaunchBar"))
-    (defun send-dir-to-launchbar () (interactive) (open-file-with default-directory "LaunchBar"))
-    (defun send-dir-to-finder ()    (interactive) (open-file-with default-directory "Finder"))
-)
+(my/install-package 'exec-path-from-shell)    ; fix emacs PATH on OSX
+(use-package exec-path-from-shell
+  :if window-system
+  :init (exec-path-from-shell-initialize))
 
 ;;
 (provide 'core-osx)