Worked on another banner and enabled it.

Author: oubiwann

README.md

@@ -56,7 +56,11 @@ $ rebar3 as test lfe ltest
 
 ## Usage [↟](#table-of-contents)
 
-TBD
+Assuming you've following the above steps, start up xrepl with the following:
+
+``` shell
+$ rebar3 lfe xrepl
+```
 
 ## License [↟](#table-of-contents)
 

priv/banners/v2.txt

@@ -0,0 +1,13 @@
+{{dbl}}MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM{{end}}
+{{dbl}}MM""MMMMMMMM MM""""""""`M MM""""""""`MM{{end}}{{gry}}                                     dP{{end}}
+{{dbl}}MM  MMMMMMMM MM  mmmmmmmM MM  mmmmmmmMM{{end}}{{gry}}                                     88{{end}}
+{{blu}}MM  MMMMMMMM M'      MMMM M`      MMMMM{{end}}{{gry}} dP.  .dP 88d888b. .d8888b. 88d888b. 88{{end}}
+{{blu}}MM  MMMMMMMM MM  MMMMMMMM MM  MMMMMMMMM{{end}}{{gry}}  `8bd8'  88'  `88 88ooood8 88'  `88 88{{end}}
+{{gld}}MM  MMMMMMMM MM  MMMMMMMM MM  MMMMMMMMM{{end}}{{gry}}  .d88b.  88       88.  ... 88.  .88 88{{end}}
+{{pnk}}MM         M MM  MMMMMMMM MM        .MM{{end}}{{gry}} dP'  `dP dP       `88888P' 88Y888P' dP{{end}}
+{{red}}MMMMMMMMMMMM MMMMMMMMMMMM MMMMMMMMMMMMM{{end}}{{gry}}                            88          {{end}}
+                                                     {{gry}}              dP{{end}}
+{{bgn}}xrepl{{end}}: {{grn}}{{xrepl-version}}              {{cyn}}http://github.com/lfe/xrepl{{end}}
+{{bgn}}LFE{{end}}: {{grn}}{{lfe-version}}                {{gld}}Get usage info with {{ylw}}(help){{end}}
+{{bgn}}Erlang{{end}}: {{grn}}{{erlang-version}}                {{gld}}Exit xrepl with {{ylw}}(quit){{end}}
+

rebar.config

@@ -1,8 +1,9 @@
-{erl_opts, [debug_info]}.
+{erl_opts, [debug_info, {no_auto_import, [{get,1}]}]}.
 
 {deps, [
     {lfe, "2.1.3"},
-    {erlang_color, "1.0.0"}
+    {erlang_color, "1.0.0"},
+    {bbmustache, "1.12.2"}
 ]}.
 
 {plugins, [

rebar.lock

@@ -1,11 +1,14 @@
 {"1.2.0",
-[{<<"erlang_color">>,{pkg,<<"erlang_color">>,<<"1.0.0">>},0},
+[{<<"bbmustache">>,{pkg,<<"bbmustache">>,<<"1.12.2">>},0},
+ {<<"erlang_color">>,{pkg,<<"erlang_color">>,<<"1.0.0">>},0},
  {<<"lfe">>,{pkg,<<"lfe">>,<<"2.1.3">>},0}]}.
 [
 {pkg_hash,[
+ {<<"bbmustache">>, <<"0CABDCE0DB9FE6D3318131174B9F2B351328A4C0AFBEB3E6E99BB0E02E9B621D">>},
  {<<"erlang_color">>, <<"145FE1D2E65C4516E4F03FEFCA6C2F47EBAD5899D978D70382A5CFE643E4AC9E">>},
  {<<"lfe">>, <<"6EFCB2BBC1FFC21DC5D1C092F00EFDB397EAC889474AC5C86EDF78A3557CC730">>}]},
 {pkg_hash_ext,[
+ {<<"bbmustache">>, <<"688B33A4D5CC2D51F575ADF0B3683FC40A38314A2F150906EDCFC77F5B577B3B">>},
  {<<"erlang_color">>, <<"6B17E5E589C8FEF540574C9EA32B67CEC2C8A44283AAFE474D6E5818FB3EE038">>},
  {<<"lfe">>, <<"4E4BAD515A169AE418FEB7374EA1C8D741FAEA9D95E266CE343B45BCC377F55B">>}]}
 ].

src/lfe_xrepl.erl

@@ -24,7 +24,7 @@
 %% store the current environment when we 'slurp' a file which we can
 %% revert back to when we do an 'unslurp'.
 
--module(lfe_shell).
+-module(lfe_xrepl).
 
 -export([start/0,start/1,server/0,server/1,
          run_script/2,run_script/3,
@@ -42,8 +42,8 @@
 -import(orddict, [store/3,find/2]).
 -import(lists, [reverse/1,foreach/2]).
 
--include("lfe.hrl").
--include("lfe_docs.hrl").
+-include_lib("lfe/src/lfe.hrl").
+-include_lib("lfe/src/lfe_docs.hrl").
 
 %% Coloured strings for the LFE banner, red, green, yellow and blue.
 -define(RED(Str), "\e[31m" ++ Str ++ "\e[0m").

src/xrepl-vsn.lfe

@@ -0,0 +1,35 @@
+(defmodule xrepl-vsn
+  (export
+   (get 0) (get 1)
+   (all 0)))
+
+(defun get ()
+  (get 'xrepl))
+
+(defun get (app-name)
+  (application:load app-name)
+  (case (application:get_key app-name 'vsn)
+    (`#(ok ,vsn) vsn)
+    (default default)))
+
+(defun version-arch ()
+  `#(architecture ,(erlang:system_info 'system_architecture)))
+
+(defun version+name (app-name)
+  `#(,app-name ,(get app-name)))
+
+(defun versions-rebar ()
+  `(,(version+name 'rebar)
+    ,(version+name 'rebar3_lfe)))
+
+(defun versions-langs ()
+  `(,(version+name 'lfe)
+    #(erlang ,(erlang:system_info 'otp_release))
+    #(emulator ,(erlang:system_info 'version))
+    #(driver ,(erlang:system_info 'driver_version))))
+
+(defun all ()
+  (lists:append `((,(version+name 'xrepl))
+                  ,(versions-langs)
+                  ,(versions-rebar)
+                  (,(version-arch)))))

src/xrepl.lfe

@@ -74,16 +74,52 @@
   `#(ok ,state))
 
 ;;; --------------
-;;; our server API
+;;; xrepl API
 ;;; --------------
 
-(defun start ()
-  (let ((ok (io:put_chars (erlang:whereis 'user)
-                          "YAAAAAAAAAAAAAAAAAYYYYYYYYYYYYYYY!!!!!\n\n"))))
-  (lfe_shell:start))
+(defun default-opts ()
+  `#m(banner? true))
+
+(defun start()
+  (start #m()))
+
+(defun start (opts)
+  (let* ((opts (maps:merge (default-opts) opts))
+         (banner? (mref opts 'banner?)))
+    (if banner? (write (banner)))
+    (lfe_xrepl:start)))
 
 (defun pid ()
   (erlang:whereis (SERVER)))
 
 (defun echo (msg)
   (gen_server:call (SERVER) `#(echo ,msg)))
+
+;;; Public utility functions
+
+(defun banner ()
+  (let* ((file (filename:join (list (code:priv_dir 'xrepl)
+                                   "banners"
+                                   "v2.txt")))
+         (`#(ok ,bytes) (file:read_file file)))
+    (bbmustache:render bytes `#m("xrepl-version" ,(xrepl-vsn:get)
+                                 "lfe-version" ,(xrepl-vsn:get 'lfe)
+                                 "erlang-version" ,(erlang:system_info 'otp_release)
+                                 "red" "\e[31m"
+                                 "pnk" "\e[1;31m"
+                                 "ylw" "\e[1;33m"
+                                 "gld" "\e[33m"
+                                 "cyn" "\e[36m"
+                                 "blu" "\e[1;34m"
+                                 "dbl" "\e[34m"
+                                 "grn" "\e[32m"
+                                 "bgn" "\e[1;32m"
+                                 "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))