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}

camsaul

$ ack 'java -jar'
src/metabase/db/setup.clj
137:                       (trs "You must run `java -jar metabase.jar migrate down` from version {0}." latest-applied)

src/metabase/db/liquibase.clj
236:           (trs "You can force-release these locks by running `java -jar metabase.jar migrate release-locks`."))))))

src/metabase/core.clj
222:    (run-cmd cmd init! args) ; run a command like `java -jar metabase.jar migrate release-locks` or `clojure -M:run migrate release-locks`

camsaul

metabase.logger

configuration

(configuration)

camsaul

(ns metabase.deps-graph
  (:require
   [clojure.tools.namespace.dependency :as ns.deps]
   [clojure.tools.namespace.find :as ns.find]
   [clojure.tools.namespace.parse :as ns.parse]
   [clojure.java.io :as io]))

(set! *warn-on-reflection* true)

(defn- find-ns-decls []