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


(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.
