Packages

dirs

0.1.0
0.3.0 0.2.1 0.2.0 0.1.0 0.0.0

A low-level LFE/Erlang library that provides standard config/cache/data paths, following the respective conventions on Linux, macOS and Windows

Current section

Files

Jump to
Readme
5 Versions
1 Dependency
Dependants
Files
Activity
dirs src dirs-mac.lfe
Raw

src/dirs-mac.lfe 

(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) (filename:join (list (library) "Preferences")))

  (('font) (filename:join (list (library) "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)))