viebel

(defprotocol FullName
  (full-name [person]))

(defrecord AuthorEncapsulation [firstname lastname]
  FullName
  (full-name [author] (str (:firstname author) 
                           " "
                           (:lastname author))))

(defrecord AuthorData [firstname lastname])

viebel

(ns simple.core
  (:require 
    [reagent.core :as reagent :refer-macros [with-let]]
    [reagent.dom :refer [render]]))

(def my-org 
  {:name "nestle"
   :description "bla bla bla"
   :children [{:name "Choco"
               :description "woo"}

viebel

(ns simple.core
  (:require [reagent.core :as reagent]
            [reagent.dom :refer [render]]))


(defn ui []
  [:div
   [:h1 "Hello world"]])

viebel

(require '[clojure.walk :refer [prewalk postwalk]])

(def data {:a 1
           :b {:c 2}
           :d [3 {:e 4}]})

;; prewalk: node -> map f to children of f(node) 
;; prewalk: [a b c] -> (map f (f [a b c]))
;; prewalk: transform node and then transform chilren

viebel

Self-hosted:

$ plk
ClojureScript 1.10.597
cljs.user=> (require '[foo.core :refer [defnmy]])
nil
cljs.user=> (defnmy FOO clojure.string/lower-case [x]
       #_=>   (inc x))
#'cljs.user/foo

viebel

(defn vec->matrix [n v]
  (->> v
       (partition n)
       (mapv vec)))

(defn empty-vec [n]
  (into [] (repeat n nil)))

(defn rand-numbers [n k]
  (->> (range n)

viebel

(defn read-input []
  (loop [] 
    (let [input (read-line)]
      (when-not (= ":done" input)) 
      (println (str "You entered: >>" input "<<")) 
      (recur))))

viebel

(ns my.chat
  (:require [clojure.string :as str]))
            

(def rules
  [["hello" "hello you"]
   ["bye" "see you soon"]
   ["my name is Riccardo" "nice to meet you Riccardo"]])

(defn respond-fixed [input]

viebel

(ns viebel.gist-983676a98aee0991cfb002a67676602f.raw.split-expressions
  (:require [cljs.tools.reader :as r]
            [cljs.tools.reader.reader-types :as rt]
            [clojure.string :as s]))

(defn- read-chars
  [reader]
  (loop [res []]
    (if-let [ch (rt/read-char reader)]
      (recur (conj res ch))

viebel

(ns viebel.gist-368d3bec58d3ec47e935ad488bafb600
  (:require [cljs.tools.reader :as r]
            [cljs.tools.reader.reader-types :as rt]
            [clojure.string :as s]))

(defn- read-chars
  [reader]
  (loop [res []]
    (if-let [ch (rt/read-char reader)]
      (recur (conj res ch))