        (f-join (projectile-project-root) it)
        (file-relative-name it (projectile-project-root))
        (s-chop-prefix "boron/" it)
-       (s-chop-prefix "common/" it)
        (s-concat "#include \"" it "\"")))
 
 (defun ds/biosite-pick-include-location ()


       ("db_types" "db")
       ("shared" "")
       ))

(defun ds/biosite-dir-to-namespace (dir)

(defun ds/biosite-path-to-namespaces (path)
  (--> path
       (file-name-directory it)
       (s-split "/" it t)
       (-map #'ds/biosite-dir-to-namespace it)
       (-filter (lambda (ns) (not (equal ns ""))) it)))

(defun ds/biosite-maybe-add-subrepo-path (path)
  (if (equal (projectile-project-name) "common")
      (f-join "common" path)
    path))

(defun ds/biosite-get-namespaces  (path)
  "Get a space-separated list of namespaces for file at path"
  (interactive)
  (--> path
       (file-relative-name it (projectile-project-root))
       (ds/biosite-maybe-add-subrepo-path it)
       (ds/biosite-path-to-namespaces it)))

(defun ds/biosite-open-namespaces ()
  (interactive)
