[#24] Move all protocol implementation for Keyword type to its module

src/lang/clojerl.Keyword.erl

@@ -1,26 +1,50 @@
 -module('clojerl.Keyword').
 
--behaviour('clojerl.Stringable').
+-behavior('clojerl.IMeta').
+-behavior('clojerl.Named').
+-behavior('clojerl.Stringable').
+
+-define(T, ?MODULE).
 
 -export([new/1, new/2]).
+-export([ 'clojerl.Named.name'/1
+        , 'clojerl.Named.namespace'/1
+        ]).
 -export(['clojerl.Stringable.str'/1]).
+-export([ 'clojerl.IMeta.meta'/1
+        , 'clojerl.IMeta.with_meta'/2
+        ]).
+
+-record(?T, { ns         :: binary() | undefined
+            , name       :: binary()
+            , info = #{} :: map()
+            }).
 
--type type() :: {?MODULE, #{ns => binary() | undefined,
-                            name => binary()}}.
+-type type() :: #?T{}.
 
--spec new(binary()) -> 'clojerl.Keyword':type().
+-spec new(binary()) -> type().
 new(Name) ->
   new(undefined, Name).
 
--spec new(binary(), binary()) -> 'clojerl.Keyword':type().
+-spec new(binary(), binary()) -> type().
 new(Namespace, Name) ->
-  {?MODULE, #{ns => Namespace, name => Name}}.
+  #?T{ns = Namespace, name = Name}.
 
 %%------------------------------------------------------------------------------
 %% Protocols
 %%------------------------------------------------------------------------------
 
-'clojerl.Stringable.str'({'clojerl.Keyword', #{ns := undefined, name := Name}}) ->
+'clojerl.Stringable.str'(#?T{ns = undefined, name = Name}) ->
   <<":", Name/binary>>;
-'clojerl.Stringable.str'({'clojerl.Keyword', #{ns := Namespace, name := Name}}) ->
+'clojerl.Stringable.str'(#?T{ns = Namespace, name = Name}) ->
   <<":", Namespace/binary, "/", Name/binary>>.
+
+'clojerl.Named.name'(#?T{name = Name}) -> Name.
+
+'clojerl.Named.namespace'(#?T{ns = Namespace}) -> Namespace.
+
+'clojerl.IMeta.meta'(#?T{info = Info}) ->
+  maps:get(meta, Info, undefined).
+
+'clojerl.IMeta.with_meta'(#?T{info = Info} = Keyword, Metadata) ->
+  Keyword#?T{info = Info#{meta => Metadata}}.

test/clj_reader_SUITE.erl

@@ -442,8 +442,8 @@ syntax_quote(_Config) ->
                                   "  (clojure.core/apply"
                                   "    clojure.core/hash-set"
                                   "    (clojure.core/concat"
-                                  "      (clojure.core/list :world)"
-                                  "      (clojure.core/list user/hello)))"
+                                  "      (clojure.core/list user/hello)"
+                                  "      (clojure.core/list :world)))"
                                   "  nil)">>),
 
   ct:comment("Read unquote-splice inside list"),