If you're using clojure.tools.logging with SLF4J.
It's often useful to 'switch on' logging for a given web request, or during the evaluation of a given form, etc.
Add this to your logback.xml configuration:
<turboFilter class="ch.qos.logback.classic.turbo.MDCFilter">
<MDCKey>logging</MDCKey>
<Value>on</Value>
Let’s define a framework as any library that contains one or more functions that accept callbacks.
Web frameworks are great for beginner developers who need to get stuff done. But they ultimately force you into a corner. In most applications, experienced developers need to retain control. Libraries are better.
| (defmacro dom [doc parent el] | |
| (let [docsym (gensym "doc") | |
| parentsym (gensym "parent") | |
| elsym (gensym "el")] | |
| `(let [~parentsym ~parent | |
| [ens# enm#] ~(first el) | |
| ~docsym ~doc | |
| ~elsym (.createElementNS ~docsym ens# enm#)] | |
| ~@(concat | |
| (for [item (next el)] |
| #_( ;; Allow this script to be executed directly | |
| "exec" "bb" -o "--classpath" "." "$0" "$@" | |
| ) | |
| ;; Copyright © 2020, Malcolm Sparks | |
| ;; Permission is hereby granted, free of charge, to any person obtaining a copy | |
| ;; of this software and associated documentation files (the “Software”), to deal | |
| ;; in the Software without restriction, including without limitation the rights | |
| ;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
| (defmethod ig/init-key ::http-server | |
| [_ {:keys [vertx port]}] | |
| (let [server | |
| (.. | |
| vertx | |
| (createHttpServer | |
| (.. | |
| (new HttpServerOptions) | |
| (setPort port))))] | |
| (.. |
| ;; Accept-Charset = *( "," OWS ) ( ( charset / "*" ) [ weight ] ) *( OWS | |
| ;; "," [ OWS ( ( charset / "*" ) [ weight ] ) ] ) | |
| (let [parser | |
| (let [charset-with-weight | |
| (p/sequence-group | |
| (p/alternatives | |
| (p/pattern-parser | |
| (re-pattern charset)) | |
| (p/pattern-parser | |
| (re-pattern (re/re-str \*)))) |
| (ns juxt.play | |
| (:require [clojure.set :as set]) | |
| ) | |
| ;;#{[0 1] [1 1]} | |
| ;;what about if we're at [1 1] |
| ;; Copyright © 2014-2017, JUXT LTD. | |
| (ns yada.dev.upload | |
| (:require | |
| [byte-streams :as bs] | |
| [bidi.bidi :refer [RouteProvider tag]] | |
| [bidi.vhosts :refer [uri-for redirect]] | |
| [clojure.tools.logging :refer :all] | |
| [clojure.java.io :as io] | |
| [schema.core :as s] |
| (ns juxt.jsonschema.formula | |
| (:require [clojure.set :as set]) | |
| ) | |
| (defn partition-into-ranges-iter | |
| "Find consecutive number sequences. O(n)" | |
| [coll] | |
| (loop [[x & xs] (sort coll) | |
| subsequent 0 | |
| curr [] |
| (defn reset-on-hup [] | |
| (let [bindings (get-thread-bindings)] | |
| (sun.misc.Signal/handle | |
| (sun.misc.Signal. "HUP") | |
| (reify sun.misc.SignalHandler | |
| (handle [_ signal] | |
| (with-bindings bindings | |
| (println (reset)))))))) |