qerub

(ns fancy-defn
  (:require [schema.core         :as s]
            [clojure.core.typed  :as t]
            [circle.schema-typer :as st]))

;; Schemas created with s/defn end up using this.
(defmethod st/convert schema.core.One [schema]
  (assert (= false (:optional? schema))) ;; No support for optional arguments yet.
  (st/convert (:schema schema)))

danidiaz

import Data.Text
import Data.Aeson
import Data.Aeson.Lens (_Value,_String)
import Data.Foldable (toList)
import Data.Traversable (traverse)

import qualified Data.HashMap.Strict as HM
import qualified Data.Vector as V

import Control.Applicative

yannvanhalewyn

(set-env!
  :target-path "target"
  :source-paths #{"src"}
  :dependencies '[[org.clojure/clojure "1.9.0-RC1"]
                  [org.clojure/clojurescript "1.9.946"]
                  [figwheel-sidecar "0.5.14"]])

(require '[figwheel-sidecar.repl-api :as ra])

(deftask cljs-repl []

jeroenvandijk

1. Download rebl from http://rebl.cognitect.com/download.html
2. Move jar in zipfile to the com.cognitect/rebl :local/root property defined in the deps.edn
3. Run boot rebl

lispyclouds

import json
import sqlite3
import sys

from bcoding import bencode, bdecode


def read():
    return dict(bdecode(sys.stdin.buffer))

lukaszkorecki

.ONESHELL:
test: .SHELLFLAGS := -i
test: SHELL := bb

test:
  (println :wow)
  (require '[clojure.string :as s])
  (s/reverse (slurp "./Makefile"))

snorremd

#!/usr/bin/env bb

(defn random-bytes
  [n]
  (with-open [in (io/input-stream (io/file "/dev/urandom"))]
    (let [buf (byte-array n)]
      (.read in buf)
      buf)))

(defn random-number

justone

#!/usr/bin/env bb

(require '[babashka.curl :as curl])
(require '[cheshire.core :as json])

(def recent-build-count 40)

(defn recent-builds-url
  [ci user project limit status]
  (str "https://circleci.com/api/v1.1/project/" ci "/" user "/" project "?limit=" limit "&filter=" status))

codeasone

Adapted from: https://github.com/babashka/pod-babashka-parcera/blob/master/examples/sort_requires.clj

./script/format.bb

#!/usr/bin/env bb
(require '[babashka.pods :as pods])
(pods/load-pod "pod-babashka-parcera")
(require '[pod.babashka.parcera :as parcera])

(defn sort-ns [node]

MrGung

(ns gitlab.clone-group
  (:require
    [cheshire.core :as json]
    [gitlab.api :refer [get-config]]
    [babashka.curl :as curl]
    [clojure.java.io :as io]
    [clojure.tools.cli :refer [parse-opts]]
    [babashka.process :refer [$]]))

(defn clone-all-repos-from-group [{:keys [gitlab-token gitlab-root group-id local-root]}]