 
 (defun ar/init-for-osx ()
   "Perform initializations for Mac OS X."
-  (when (ar/osxp)
+  (when (ar/osx-p)
     ;; On Mac, this is effectively fn-M-backspace.
     (bind-key "M-(" #'kill-word)
     ;; Keep menu bar under graphical OS X for fullscreen.

  "Return t if Emacs is running inside of Cygwin on Windows, otherwise nil."
  (string-equal system-type "cygwin"))

(defun ar/windowsp ()
  "Return t if the system is a native Emacs for Windows, otherwise nil."
  (string-equal system-type "windows"))

(defun ar/new-browser-tab-shell-command ()
  "Return new browser tab shell command."
  (cond
   ((ar/osxp)
    "open http://google.com")
   ((ar/gnulinuxp)
    "google-chrome http://google.com")
   (nil)))


(defun ar/open-in-external-app-lambda ()
  "Return a function to open FPATH externally."
  (cond
   ((ar/windows-p)
    (lambda (fPath)
      (w32-shell-execute "open" (replace-regexp-in-string "/" "\\" fPath t t))))
   ((ar/osx-p)
    (lambda (fPath)
      (shell-command (format "open \"%s\"" fPath))))
   ((ar/gnu-linux-p)
    (lambda (fPath)
      (let ((process-connection-type nil))
        (start-process "" nil "xdg-open" fPath))))))
