diff --git a/src/xrepl.lfe b/src/xrepl.lfe index 683d6c1..22967d7 100644 --- a/src/xrepl.lfe +++ b/src/xrepl.lfe @@ -12,11 +12,14 @@ (handle_info 2) (terminate 2) (code_change 3)) - ;; server API + ;; API (export (start 0) (pid 0) - (echo 1))) + (echo 1)) + ;; Utility + (export + (version 0) (versions 0))) ;;; ---------------- ;;; config functions @@ -97,6 +100,12 @@ ;;; Public utility functions +(defun version () (xrepl-vsn:get)) + +(defun versions () (xrepl-vsn:all)) + +;;; Private functions + (defun banner () (let* ((file (filename:join (list (code:priv_dir 'xrepl) "banners" @@ -117,9 +126,5 @@ "gry" "\e[37m" "end" "\e[0m")))) -(defun version () (xrepl-vsn:get)) - -(defun versions () (xrepl-vsn:all)) - (defun write (string) - (io:put_chars (erlang:whereis 'user) string)) \ No newline at end of file + (io:put_chars (erlang:whereis 'user) string))