   (find-file (ar/bazel-bin-dir)))
 
 (defun ar/bazel-out-dir ()
-  (concat (ar/bazel-workspace-path) (format "%s-out/" ar/bazel-gendir-prefix)))
+  (ar/bazel-linked-dpath "out"))
 
 (defun ar/bazel-dired-out-dir ()
   "Open WORKSPACE's bazel-out directory."


(defvar ar/bazel-compile-command "bazel build")

(defvar ar/bazel-gendir-prefix "bazel")

(defun ar/bazel-compile ()
  "Invoke `'compile with `'completing-read a build rule in either current or parent directories."

  (find-file (ar/bazel-out-dir)))

(defun ar/bazel-genfiles-dir ()
  (ar/bazel-linked-dpath "genfiles"))

(defun ar/bazel-dired-genfiles-dir ()
  "Open WORKSPACE's bazel-genfiles directory."
