-
Release command
mvn clean deploy -P release
-
Repos
-
Main article
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(def break (System/getProperty "line.separator")) | |
(def moves | |
{:p {:desc "PAPER" :beats :r} | |
:r {:desc "ROCK" :beats :s} | |
:s {:desc "SCISSORS" :beats :p}}) | |
(defn vs [m1 m2] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
class ClockDegree { | |
private static void assertValid(String n, double v) { | |
if (v < 1) throw new IllegalArgumentException(n + " < 1"); | |
if (v > 12) throw new IllegalArgumentException(n + " > 12"); | |
} | |
public static double degree(double h, double m) { | |
assertValid("h", h); | |
assertValid("m", m); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn ip [] | |
(try | |
(-> (InetAddress/getLocalHost) (.getHostAddress)) | |
(catch Throwable __ | |
(->> (NetworkInterface/getNetworkInterfaces) | |
(enumeration-seq) | |
(xf/some | |
(comp (keep (fn [^NetworkInterface network] | |
(when (and (.isUp network) | |
(not (.isLoopback network))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
CREATE OR REPLACE FUNCTION fn_days_in_month (DATE) RETURNS SMALLINT | |
AS 'SELECT EXTRACT (DAYS FROM DATE_TRUNC (''month'', $1) + INTERVAL ''1 month - 1 day'')::SMALLINT;' | |
LANGUAGE SQL IMMUTABLE RETURNS NULL ON NULL INPUT; | |
CREATE OR REPLACE FUNCTION fn_days_in_quarter (DATE) RETURNS SMALLINT | |
AS 'SELECT ($1 - DATE_TRUNC (''quarter'', $1)::DATE + 1)::SMALLINT;' | |
LANGUAGE SQL IMMUTABLE RETURNS NULL ON NULL INPUT; | |
CREATE OR REPLACE FUNCTION fn_days_in_year (DATE) RETURNS SMALLINT | |
AS 'SELECT EXTRACT (DOY FROM DATE_TRUNC (''year'', $1) + INTERVAL ''1 year - 1 day'')::SMALLINT;' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
https://fontsgeek.com/fonts/Monaco-Regular | |
Extract and run =.ttf= file |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(require '[clojure.spec.alpha :as s]) | |
; ============================== | |
(s/def ::foo int?) | |
(s/def ::bar ::foo) | |
(s/form ::foo) ;=> clojure.core/int? | |
(s/form ::bar) ;=> clojure.core/int? |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Nota bene: Add @JsonIgnore to MultiPart fields | |
public static final ObjectMapper MAPPER = new ObjectMapper() | |
.configure(FAIL_ON_UNKNOWN_PROPERTIES, false) | |
.configure(FAIL_ON_EMPTY_BEANS, false); | |
public static final TypeReference<Map<String, Object>> | |
MAP_TYPE_REF = new TypeReference<>() {}; | |
public static Map<String, Object> toMap(Object obj) { |
core.async 1.2.599-SNAPSHOT (in development)
chan
close!
buffer
dropping-buffer
sliding-buffer
unblocking-buffer?
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; Vanilla | |
(defn is* | |
[results] | |
(assert (seq results)) | |
(test/is | |
(if (some? :failure results) | |
(do | |
(println "\nFailed specs:") | |
(doseq [{:keys [sym failure]} results |
NewerOlder