   "Return t if Emacs is running inside of Cygwin on Windows, otherwise nil."
   (string-equal system-type "cygwin"))
 
-(defun ar/windowsp ()
+(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/osxp)
+   ((ar/osx-p)
     "open http://google.com")
-   ((ar/gnulinuxp)
+   ((ar/gnu-linux-p)
     "google-chrome http://google.com")
    (nil)))
 


(defun ar/init-for-linux ()
  "Perform initializations for Linux."
  (when (ar/gnulinuxp)
    (setq exec-path (append exec-path '("~/local/bin")))))
(ar/init-for-linux)



(defun ar/init-for-osx ()
  "Perform initializations for Mac OS X."
  (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.
