mauricioszabo

;; What I want to do is something like this:
(def res
  (query '[:find ?meta
           :where 
           [?e :editor/contents "p/deferred"]
           [?e :editor/ns "foo.bar"]
           [?fqn :repl/fqn ?e]
           [?var :repl/var ?fqn]
           [?meta :repl/meta ?fqn]]))

mauricioszabo

(defn- wrap-in-tap [code]
  (str "(let [value " code
       "      rr      (try (resolve 'requiring-resolve) (catch Throwable _))]"
       "  (if-let [rs (try (rr 'cognitect.rebl/submit) (catch Throwable _))]"
       "    (rs '" code " value)"
       "    (tap> value))"
       "  value)"))

(defn tap-top-block []
  (p/let [block (editor/get-top-block)]

mauricioszabo

(def old-fail-blob
  '(defmethod clojure.test/report :fail [m]
     (clojure.test/with-test-out
       (clojure.test/inc-report-counter :fail)
       (println "\nFAIL in" (clojure.test/testing-vars-str m))
       (when (seq clojure.test/*testing-contexts*) (println (clojure.test/testing-contexts-str)))
       (when-let [message (:message m)] (println message))
       (println "expected:" (pr-str (:expected m)))
       (println "  actual:" (pr-str (:actual m))))))

mauricioszabo

(defn start-standalone-node ^crux.api.ICruxAPI []
  (crux/start-node {:crux.node/topology '[crux.standalone/topology]
                    :crux.kv/db-dir "/tmp/crux"}))

(def conn (start-standalone-node))

(def day-1
  (crux/submit-tx conn [[:crux.tx/put
                         {:crux.db/id :alice
                          :location :north

mauricioszabo

#Clojerl
./bin/clje \
       -e "(do (require 'clojure.core.server) \
             (clojure.core.server/start-server \
               {:name \"socket-repl\" \
                :port 4444 \
                :accept 'clojure.main/repl \
                :address \"localhost\"}))" -r
                
#CLR

mauricioszabo

Synthetical Country
(Bolzhidar, explaining Croatia or Ucraine?)

APIs Plumber (Encanador de APIs)
(On Telegram, explaining people that use JS or Python and suffer to implement state control or immutable structures, and end up plumbing various libraries)

Resume Driven Development
(On Telegram, a kind of learning when you want to inflate your resume or find a job so you study mainstream technologies)

mauricioszabo

import { app } from './js/test_cljs.core';

export default app

mauricioszabo

(require '[paprika.schemas :as schemas]
         '[cheshire.core :as json])

(def Person {:name schemas/NonEmptyStr
             :surname schemas/NonEmptyStr
             :cpf (schemas/digits-string 11)
             :birth-date schemas/Date})

(def as-person (schemas/coercer-for Person))

mauricioszabo

require "hamster"
require "benchmark"
require "set"

TIMES = 2_000_000
Benchmark.bmbm do |r|
  x = arr = nil

  r.report("Mutable array - push") do
    x = []

mauricioszabo

(ns example.core
  (:require [clojure.java.io :as io]
            [clojure.data.csv :as csv]))

; Using sample CVS from this site:
; http://www.sample-videos.com/download-sample-csv.php
; and renamed to bigfile.csv
(defn row->product [[name manufacter _ _ _ price _ _]]
  {:name name
   :manufacter manufacter