Current section
Files
Jump to
Current section
Files
src/dirs-common.lfe
(defmodule dirs-common
(export
(abs-path? 1)
(home 0)
(home-subdir 1)))
(defun abs-path?
((`(#\/ . ,_)) 'true)
((_) 'false))
(defun home ()
(let ((`#(ok ((,home . ,_) . ,_)) (init:get_argument 'home)))
home))
(defun home-subdir (path-segs)
(filename:join (++ (dirs-common:home) path-segs)))