camsaul

(ns parse-test-output
  (:require
   [clojure.string]))

(defn x []
  (let [files ["https://productionresultssa12.blob.core.windows.net/actions-results/ff158da9-6207-4ca8-b2ac-bdc5aa49f855/workflow-job-run-991d6487-d703-5cca-92c6-1c67eaf3db9d/logs/job/job-logs.txt?rsct=text%2Fplain&se=2025-10-03T18%3A47%3A21Z&sig=e6iMXbt%2FecC1uhMsSbwk%2BLZO2TpzizqvVxM3fKEfOus%3D&ske=2025-10-04T02%3A42%3A25Z&skoid=ca7593d4-ee42-46cd-af88-8b886a2f84eb&sks=b&skt=2025-10-03T14%3A42%3A25Z&sktid=398a6654-997b-47e9-b12b-9515b896b4de&skv=2025-11-05&sp=r&spr=https&sr=b&st=2025-10-03T18%3A37%3A16Z&sv=2025-11-05"
               "/home/cam/x.txt"]]
    (into (sorted-set)
          (comp (map slurp)
                (mapcat clojure.string/split-lines)

camsaul

(defn split-tests [[_deftest test-name & args]]
  (into []
        (comp (mapcat (fn split* [expr]
                        (case (first expr)
                          is (let [[_is assert-expr message] expr]
                               [(if message
                                  (list 'testing message
                                        (list 'is assert-expr))
                                  (list 'is assert-expr))])

camsaul

(def ^:dynamic *depth* -1)

(defn- middleware-fn-name [middleware-fn]
  (if-let [fn-name (:name (meta middleware-fn))]
    (if-let [fn-ns (:ns (meta middleware-fn))]
      (symbol (format "%s/%s [%d]" (ns-name fn-ns) fn-name *depth*))
      fn-name)
    middleware-fn))

(defn- print-query-diff [middleware-fn before after]

camsaul

(ns metabase.lib.schema.profile
  (:require
   [clojure.pprint]
   [clojure.set]
   [criterium.core]
   [metabase.util :as u]
   [metabase.util.malli.registry :as mr]
   [metabase.util.memoize :as u.memo]))

(defn normalize-map-no-kebab-case

camsaul

digraph {
  "actions" -> "analytics"
  "actions" -> "api"
  "actions" -> "collections"
  "actions" -> "driver"
  "actions" -> "legacy-mbql"
  "actions" -> "lib"
  "actions" -> "model-persistence"
  "actions" -> "models"
  "actions" -> "queries"

camsaul

camsaul

(ns dev.rewrite-defendpoint-1
  (:require
   [clojure.string :as str]
   [flatland.ordered.map :as ordered-map]
   [metabase.util.malli :as mu]
   [metabase.util.malli.registry :as mr]
   [rewrite-clj.node :as n]
   [rewrite-clj.parser :as r.parser]
   [rewrite-clj.zip :as z]))

camsaul

(def routes-map
  {"/action"               (+auth (api.macros/lazy-ns-handler 'metabase.api.action))
   "/activity"             (+auth (api.macros/lazy-ns-handler 'metabase.api.activity))
   "/alert"                (+auth (api.macros/lazy-ns-handler 'metabase.api.alert))
   "/automagic-dashboards" (+auth (api.macros/lazy-ns-handler 'metabase.api.automagic-dashboards))
   "/bookmark"             (+auth (api.macros/lazy-ns-handler 'metabase.api.bookmark))
   "/card"                 (+auth api.card/routes)
   "/cards"                (+auth (api.macros/lazy-ns-handler 'metabase.api.cards))
   "/cloud-migration"      (+auth api.cloud-migration/routes)
   "/collection"           (+auth api.collection/routes)

camsaul

(ns metabase.api.defendpoint-2
  (:require
   [metabase.util :as u]))

(defn- parse-defendpoint-1-args
  [form]
  (let [[_defendpoint method route & args] form
        [docstring & args]                 (if (string? (first args))
                                             args
                                             (cons nil args))

camsaul

(ns thermometers.algorithm
  (:require
   [clojure.string :as str]))

(def tags
  '{○ #{:start :empty}
    ● #{:start :full}
    ⇑ #{:up :empty}
    ⬆ #{:up :full}
    ⇓ #{:down :empty}