rauhs

(ns your.macros-for-cljs.ns
  (:require [sablono.compiler :as sablono-c]))

;; Make sablono also walk into other forms:
;; if, for, let, do: Already exist
(.addMethod @(var sablono-c/compile-form) "when"
            (fn
              [[_ bindings & body]]
              `(when ~bindings ~@(for [x body] (sablono-c/compile-html x)))))

attentive

(ns project.leaflet
  (:require-macros [project.macros :as m])
  (:require [rum.core :as rum]
            cljsjs.react-leaflet)) ;; js/ReactLeaflet

(m/adapt-react leaflet-map js/ReactLeaflet.Map)
(m/adapt-react tile-layer js/ReactLeaflet.TileLayer)
(m/adapt-react marker js/ReactLeaflet.Marker)
(m/adapt-react popup js/ReactLeaflet.Popup)

martinklepsch

;; This was an earlier attempt using clojure.spec. I discarded it for reasons I don't remember.
(ns forms.core
  (:require
   #?(:cljs [cljs.spec :as s]
      :clj  [clojure.spec :as s])))

;; (s/def ::form-state
;;   {::value s/Any
;;    ::initial-value s/Any
;;    ::errors s/Any

olivergeorge

This is an attempt to make assert more friendly by including more details in the assertion error.

• show the result of the assertion expression
• show local variable values used in assertion form

In other words, this should make assertion errors easier to reason about:

AssertionError Assert failed: Should be equal

niwinz

;; Copyright (c) 2015-2016 Andrey Antukh <[email protected]>
;; All rights reserved.
;;
;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions are met:
;;
;; * Redistributions of source code must retain the above copyright notice, this
;;   list of conditions and the following disclaimer.
;;
;; * Redistributions in binary form must reproduce the above copyright notice,

mikeball

; Postgres listen/notify in Clojure using http://impossibl.github.io/pgjdbc-ng/

; in project.clj dependencies
; [com.impossibl.pgjdbc-ng/pgjdbc-ng "0.5"]


(ns pglisten.core
  (:import [com.impossibl.postgres.jdbc PGDataSource]
           [com.impossibl.postgres.api.jdbc PGNotificationListener]))

Chouser

(defn array-type
  "Return a string representing the type of an array with dims
  dimentions and an element of type klass.
  For primitives, use a klass like Integer/TYPE
  Useful for type hints of the form: ^#=(array-type String) my-str-array"
  ([klass] (array-type klass 1))
  ([klass dims]
     (.getName (class
                (apply make-array
                       (if (symbol? klass) (eval klass) klass)

paulirish

What forces layout / reflow

All of the below properties or methods, when requested/called in JavaScript, will trigger the browser to synchronously calculate the style and layout*. This is also called reflow or layout thrashing, and is common performance bottleneck.

Generally, all APIs that synchronously provide layout metrics will trigger forced reflow / layout. Read on for additional cases and details.

Element APIs

Getting box metrics

• elem.offsetLeft, elem.offsetTop, elem.offsetWidth, elem.offsetHeight, elem.offsetParent

shaunlebron

;; dummy protocol
(defprotocol IFoo
  (foo [this]))

;; dummy cljs type
(deftype Bar [])

;; extending a cljs type
(extend-type Bar
  IFoo (foo [this] (println "Hello from IFoo.foo for Bar")))

swannodette

(defn my-get
  "@param {*} m
   @param {*} k
   @return {nil|Object}"
  [m k]
  (get m k))

(defn foo
  "@param {!Object} x" ;; non-nullable
  [x] x)