borkdude

{:tasks {:requires ([babashka.fs :as fs])
         :init (do (def platform-alias
                     (case (System/getProperty "os.name")
                       "Linux"
                       "backend/linux"
                       "Windows"
                       "backend/windows"
                       "Mac OS X"
                       "backend/macosx")))
         dev-cljs {:doc "Runs front-end compilation"

borkdude

;; Usage:
;; bb new.clj -t luminus -n foobar/baz --force +h2

(require '[babashka.deps :as deps]
         '[clojure.tools.cli :refer [parse-opts]])

(def deps '{:deps {com.github.seancorfield/clj-new
                   {:mvn/version "1.1.297"}}})

(def cli-opts [["-t" "--template NAME" "template"]

borkdude

(ns jpoint.repl
  (:require [babashka.main :as bb]
            [cheshire.core :as json]
            [edamame.core :as e]
            [sci.core :as sci]
            [sci.impl.analyzer :as ana]
            [sci.impl.evaluator :as eval]
            [sci.impl.interop :as interop]
            [sci.impl.parser :as p]))

borkdude

{:tasks
 {coffeep {:task (do (println "brewing coffee")
                     (Thread/sleep 3000))
           :depends [groundsp hot-waterp filterp mugp]}
  groundsp {:task (do
                    (println "grinding beans")
                    (Thread/sleep 2000))
            :depends [beansp]}
  hot-waterp {:task (do
                      (println "heating water")

borkdude

#!/usr/bin/env bash
#_" -*- mode: clojure; -*-"
#_(
   "exec" "clojure" "-Sdeps" "{:deps {borkdude/grasp {:git/url \"https://github.com/borkdude/grasp\" :sha \"464f86af5866a134374af9ef7ed152882846b531\"}}}" "-M" "$0" "$@"
   )

(require '[clojure.java.io :as io]
         '[clojure.spec.alpha :as s]
         '[clojure.string :as str]
         '[grasp.api :as g])

borkdude

#!/usr/bin/env bb

(require '[rewrite-clj.zip :as z])

(def code "(defn foo [] (if true :a :b))")

(defn rewrite-if [code]
  (let [zip (z/of-string code)]
    (loop [zloc zip]
      (if (z/end? zloc)

borkdude

(require '[malli.core :as m])

(require '[clojure.string :as str])

(declare ->schema)

(defn variable? [x]
  (and (simple-symbol? x)
       (str/starts-with? (str x) "?")))

borkdude

(require '[babashka.pods :as pods])
(pods/load-pod 'retrogradeorbit/bootleg "0.1.9")

(require '[pod.retrogradeorbit.bootleg.markdown :as md])

(def md-text
  "# Hello
- This is a list
- Another item")

borkdude

;; clojure-lsp
;; see https://emacs-lsp.github.io/lsp-mode/tutorials/clojure-guide/
;; and https://clojure-lsp.github.io/clojure-lsp/clients/#emacs

;; ensure the lsp-mode package is installed

(add-hook 'clojure-mode-hook 'lsp)
(add-hook 'clojurescript-mode-hook 'lsp)
(add-hook 'clojurec-mode-hook 'lsp)

borkdude

#!/usr/bin/env bb

;; usage:
;; $ find-var.clj babashka.main/main src:test

;; example output:
;; src/babashka/main.clj:672:32
;; src/babashka/main.clj:673:22
;; src/babashka/main.clj:676:28
;; test/babashka/test_utils.clj:31:59