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

;; (set-face-foreground 'highlight nil)

;;  From http://doc.rix.si/org/fsem.html
(defun ar/gnulinuxp ()
  "Return t if the system is a GNU/Linux machine, otherwise nil."
  (string-equal system-type "gnu/linux"))

(defun ar/osxp ()
  "Return t if the system is a Mac OS X machine, otherwise nil."
  (string-equal system-type "darwin"))


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