(defmodule dirs-mac
  (export
   (assemble 1)))

(defun assemble
  ;; Unsupported
  (('executable) 'undefined)
  (('runtime) 'undefined)
  (('state) 'undefined)
  (('template) 'undefined)

  ;; Erlang-supported
  (('cache) (filename:basedir 'user_cache ""))

  (('config) (app-support))
  (('config-local) (app-support))
  (('data) (app-support))
  (('data-local) (app-support))

  ;; Custom
  (('home) (dirs-common:home))

  (('preference) (library-subdir "Preferences"))
  (('font) (library-subdir "Fonts"))

  (('audio) (dirs-common:home-subdir "Music"))
  (('desktop) (dirs-common:home-subdir "Desktop"))
  (('document) (dirs-common:home-subdir "Documents"))
  (('download) (dirs-common:home-subdir "Downloads"))
  (('picture) (dirs-common:home-subdir "Pictures"))
  (('public) (dirs-common:home-subdir "Public"))
  (('video) (dirs-common:home-subdir "Movies")))

;;; Private Functions

(defun app-support ()
  (filename:basedir 'user_config ""))

(defun library ()
  (filename:dirname (app-support)))

(defun library-subdir (path)
  (dirs-common:norm-path (library) path))