saikyun

(ns spec-gen.core
  (:require [clojure.spec.alpha :as s]
            [clojure.string :as str]
            [clojure.java.io :as io])
  (:gen-class))

(def atom-specs
  [(s/def ::number number?)
   (s/def ::string string?)
   (s/def ::keyword keyword?)

saikyun

(ns miracle.catcher
  (:require [clojure.walk :as w]
            [clojure.test :as t]))

(defn unwrap
  "Traverses a body using `f` (e.g. `map`), and removes calls to `try-body`."
  [f body]
  (f
   #(if (and (coll? %)
             (= (first %) 'miracle.catcher/try-body))

saikyun

(ns game.other-init
  (:require [arcadia.core :refer :all]
            [arcadia.linear :as l]
            [arcadia.introspection :as i])
  (:import 
   [UnityEngine Application
    QualitySettings]))

;; Don't burn my computer
(defn init-fps!

saikyun

(ns example.edn-validator)

;; Validator to be used when getting edn-data from a stream
;; if you straigt up run `edn/parse` you get exceptions on
;; data that isn't well formed.

;; Validate tries to parse whatever data you've got right now
;; and provides information about wether the data is well formed
;; or not. Check the bottom for example code.

saikyun

(ns example.edn-validator
  (:require [clojure.string :as str]
            [clojure.pprint :refer [pprint]]
            [miracle.save :refer-macros [save]]))

;; Cases:
;; lists: {} () []
;; strings: ""
;; comments: ;; \n (doesn't have to be closed)
;; escape: \ (ignores next)

saikyun

// needs clang
// probably only macos
// usage:
// clang main.c && ./a.out
// try entering `5 * 5`, or `printf("hello\n")`

#include <stdio.h>
#include <dlfcn.h>
#include <stdlib.h>

saikyun

(ns miracle.monad
  (:require [clojure.pprint :refer [pprint]]))

;; make clj-kondo happy
(def | ::err)

(defn handle-form
  [forms]
  (if (empty? forms)
    nil

saikyun

(ns miracle.monad
  (:require [clojure.pprint :refer [pprint]]))

;; make clj-kondo happy
(def | ::err)

(defn left
  [o]
  {::left o})

saikyun

(ns miracle.thread
  (:require [clojure.pprint :refer [pprint]]
            [clojure.string :as str]
            [clojure.walk :refer [postwalk]]))

(defn used-vars
  [form]
  (let [vars (transient [])]
    (postwalk (fn [f]
                (when (and (symbol? f)

saikyun

(ns miracle.let
  (:refer-clojure :exclude [let])
  (:require [clojure.walk :refer [postwalk]]
            [clojure.test :as t :refer [is deftest]]))

(defn in-form
  [form pred]
  (clojure.core/let [vars (transient [])]
    (postwalk (fn [f]
                (when (pred f)