nikolavojicic

(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]

nikolavojicic

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);

nikolavojicic

(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)))

nikolavojicic

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;'

nikolavojicic

• Release command

  • mvn clean deploy -P release

• Repos

  • https://s01.oss.sonatype.org/content/repositories/snapshots/
  • https://central.sonatype.com/

• Main article

  • https://thegreatapi.com/blog/create-a-library-from-scratch/

nikolavojicic

https://fontsgeek.com/fonts/Monaco-Regular
Extract and run =.ttf= file

nikolavojicic

(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?

nikolavojicic

// 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) {

nikolavojicic

core.async 1.2.599-SNAPSHOT (in development)

chan
close!

buffer
dropping-buffer
sliding-buffer
unblocking-buffer?

nikolavojicic

;; Vanilla

(defn is*
  [results]
  (assert (seq results))
  (test/is
   (if (some? :failure results)
     (do
       (println "\nFailed specs:")
       (doseq [{:keys [sym failure]} results