self-introduction

favourites.jpg

self_introduction.clj

(defrecord Profile [name
                    account
                    company
                    languages
                    interests
                    activities])

(defn symbol->str [v]
  (cond
    (symbol? v) (name v)
    (coll? v) (map symbol->str v)
    :else v))

(defmacro profile-body [& kvs]
  `(reduce (fn [m# [k# v#]] (assoc m# k# (symbol->str v#)))
           {}
           (partition 2 '~kvs)))

(defmacro defprofile [name & body]
  `(def ~name
     (map->Profile (profile-body ~@body))))

(defprofile lagénorhynque
  :name       "Kent OHASHI"
  :account    lagenorhynque
  :company    株式会社オプト
  :languages  [Clojure Haskell Python Scala
               English français Deutsch русский]
  :interests  [プログラミング 語学 数学]
  :activities [読書 アニメ鑑賞 水族館巡り カラオケ アイススケート])