 ;; (set-face-foreground 'highlight nil)
 
 ;;  From http://doc.rix.si/org/fsem.html
-(defun ar/gnulinuxp ()
+(defun ar/gnu-linux-p ()
   "Return t if the system is a GNU/Linux machine, otherwise nil."
   (string-equal system-type "gnu/linux"))
 
-(defun ar/osxp ()
+(defun ar/osx-p ()
   "Return t if the system is a Mac OS X machine, otherwise nil."
   (string-equal system-type "darwin"))
 


(defun ar/init-for-osx ()
  "Perform initializations for Mac OS X."
  (when (ar/osxp)
    ;; 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/windows-p ()
  "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/osx-p)
    "open http://google.com")
   ((ar/gnu-linux-p)
    "google-chrome http://google.com")
   (nil)))

