Packages

dirs

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