dvliman

<?
if(file_exists('/www/global/lockdown')) {
	if($_COOKIE['4chan_auser'] && $_COOKIE['4chan_apass'] && ($_POST['mode']=='usrdel'||$_GET['mode']=='latest')) {
		// ok
	} 
	else {
		 die('Posting temporarily disabled. Come back later!<br/>&mdash;Team 4chan (uptime? what\'s that?)');
	}
}
include_once "./yotsuba_config.php";

dvliman

(defn pgobj->clj [^org.postgresql.util.PGobject pgobj]
  (let [type (.getType pgobj)
        value (.getValue pgobj)]
    (case type
      "json" (cheshire.core/parse-string value true)
      "jsonb" (cheshire.core/parse-string value true)
      "citext" (str value)
      value)))

(extend-protocol next.jdbc.result-set/ReadableColumn

dvliman

(defn between [from target to]
  (and (<= from target) (<= target to)))

(defn calculate-loan-size
  [loan-amount]
  (cond
    (between 1 loan-amount 10000) :small
    (between 10001 loan-amount 50000) :modest
    (between 50001 loan-amount 150000) :large
    (>= loan-amount 150001) :jumbo))

dvliman

(defn calculate-loan-size
  [loan-amount]
  (cond
    #d (between 1 loan-amount 10000) :small
    #d (between 10001 loan-amount 50000) :modest
    #d (between 50001 loan-amount 150000) :large
    #d (>= loan-amount 150001) :jumbo))

dvliman

[{0 [[1 :same-values (between 1 loan-amount 10000)] false]}
 {1 [[1 :same-values (between 10001 loan-amount 50000)] false]}
 {2 [[1 :same-values (between 50001 loan-amount 150000)] false]}
 {3 [[1 :same-values (>= loan-amount 150001)] false]}]

dvliman

(def log-store (atom {}))

(defn debug [tag val]
  (swap! log-store update-in [tag] #(conj (or % []) val))
  val)

(defn logs
  [tag & functions]
  (let [tag (if (number? tag)
              (nth (keys @log-store) tag)

dvliman

{d user/debug-data-reader}

dvliman

{:aliases {:dev {:extra-paths ["/Users/dliman/.clojure"]}}}

dvliman

(use-package! smartparens
  :init
  (map! :map smartparens-mode-map
        ...
        "s-5" #'user-reset-log-store
        "s-6" #'user-tags
        "s-7" #'user-logs))

;; or

dvliman

(defun user-reset-log-store ()
  (interactive)
  (cider-interactive-eval "(reset! user/log-store {})"))
  
(defun user-tags ()
  (interactive)
  (cider--pprint-eval-form "(user/tags)"))
  
(defun user-logs (&optional index-or-name)
  (interactive)