escherize

(ns dev.nocommit.massive-perm-graph
  (:require [clojure.string :as str]
            [criterium.core :as criterium]
            [metabase.models.permissions :as perms]
            [metabase.models.permissions-group :as perms-group]
            [metabase.test :as mt]
            [metabase.util.log :as log]
            [toucan2.core :as t2]))

(comment

escherize

(ns dev.nocommit.massive-perm-graph
  (:require [metabase.test :as mt]
            [criterium.core :as criterium]
            [metabase.util :as u]))


(comment

  (defn get-graph [] (mt/user-http-request :crowberto :get 200 "permissions/graph"))

escherize

javascript:(function(){      if (window.whiteboardActive) {         var existingTpdiv = document.getElementById('transparentWhiteboardDiv');             if (existingTpdiv) {existingTpdiv.remove();}         var existingCanvas = document.getElementById('transparentWhiteboardCanvas');             if (existingCanvas) { existingCanvas.remove();}         window.whiteboardActive = false;         return;     }      var tpdiv = document.createElement('div');     tpdiv.id = 'transparentWhiteboardDiv';     tpdiv.style.position = 'fixed';     tpdiv.style.top = '0';     tpdiv.style.left = '0';     tpdiv.style.width = '100%';     tpdiv.style.height = '100%';     tpdiv.style.zIndex = '999999';     tpdiv.style.pointerEvents = 'none';     tpdiv.style.background = 'rgba(255, 231, 210, 0.4)';     document.body.appendChild(tpdiv);      var canvas = document.createElement('canvas');     canvas.style.position = 'fixed';     canvas.style.top = '0';     canvas.style.left = '0';     canvas.width = window.innerWidth;     canvas.height

escherize

#!/usr/bin/env bb

(ns emoji-hash
  (:require [babashka.deps :as deps]
            [babashka.http-client :as http]
            [cheshire.core :as json]
            [clj-yaml.core :as yaml]
            [clojure.data.xml :as xml]
            [clojure.edn :as edn]
            [selmer.parser :refer [<<]]

escherize

(ns emoji-hash
  (:require
   ;; n.b. these can be used inside of mods.edn!
   [babashka.http-client :as http]
   ;; [babashka.deps :as deps]
   [babashka.pods :as pods]
   [babashka.process :refer [process check sh pipeline pb]]
   [babashka.fs :as fs]
   [babashka.tasks :refer [shell]]
   [cheshire.core :as json]

escherize

➜  janet-playground bat jam.janet
────┬────────────────────────────────────────
    │ File: jam.janet
────┼────────────────────────────────────────
  1 │ (use judge)
  2 │
  3 │ # Testing values
  4 │
  5 │ (defn double [x] (* x x))

escherize

;;; init.el -*- lexical-binding: t; -*-

;; This file controls what Doom modules are enabled and what order they load
;; in. Remember to run 'doom sync' after modifying it!

;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
;;      documentation. There you'll find a "Module Index" link where you'll find
;;      a comprehensive list of Doom's modules and what flags they support.

;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or

escherize

;;; init.el -*- lexical-binding: t; -*-

;; This file controls what Doom modules are enabled and what order they load
;; in. Remember to run 'doom sync' after modifying it!

;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
;;      documentation. There you'll find a "Module Index" link where you'll find
;;      a comprehensive list of Doom's modules and what flags they support.

;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or

escherize

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-

;; Place your private configuration here! Remember, you do not need to run 'doom
;; sync' after modifying this file!


;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets.
(setq user-full-name "John Doe"
      user-mail-address "[email protected]")

escherize

(ns escherize.kenning
  (:require [selmer.parser :as parser]))

(defmacro ^:private env-map []
  `(apply zipmap [(mapv keyword (quote ~(keys &env))) (vector ~@(keys &env))]))

(defn ^:private resolve-kw [env kw]
  (when-let [found-sym (or
                        (get env kw nil)
                        (try (eval (symbol kw))