onetom

(ns dialog
  "Display a Yes/No dialog, which appears on the very top of every app and grabs
   the focus and also gives it back to the REPL, after making the choice, unlike
   a Swing dialog, for example.

  It's useful for confirming irreversible operations, like file or DB deletion.
  It uses AppleScript, so it only works on macOS and on a local REPL."
  (:require
    [clojure.java.shell :as shell]))

onetom

;; Discussion: https://clojurians.slack.com/archives/C0744GXCJ/p1666889779101459

(ns demo.better-deftest
  (:require [clojure.test :refer :all]))

(deftest default-stack-trace-test
  (is (throw (Exception. "BAMM"))))

(clojure.test/run-test default-stack-trace-test)

onetom

Process:               Vivaldi [38254]
Path:                  /Applications/Vivaldi.app/Contents/MacOS/Vivaldi
Identifier:            com.vivaldi.Vivaldi
Version:               2.6.1566.44 (2.6.1566.44)
Code Type:             X86-64 (Native)
Parent Process:        ??? [1]
Responsible:           Vivaldi [38254]
User ID:               501

Date/Time:             2019-06-26 12:25:27.944 +0800

onetom

fb7e3403a9651a72b18c82b485fe4d935a7810b7

onetom

Keybase proof

I hereby claim:

• I am onetom on github.
• I am onetom (https://keybase.io/onetom) on keybase.
• I have a public key ASBt3f5yrZQatmEs5FIoairtyd6XqVBSZjuxeZzrfcLCdQo

To claim this, I am signing this object:

onetom

(ns app.rpc
  (:require-macros
    [adzerk.env :as env])
  (:require
    [ui.util :as util]
    [ui.paging :as p :refer-macros [defp]]
    [castra.core :as castra :refer [mkremote]]))

(env/def
  GEIR_BRANCH      nil

onetom

(ns ui.paging
  (:require [hoplon.core :refer (def-values)]))

(defmacro defp
  [name & args]
  `(def ~name (paginate ~@args)))

onetom

(ns metosin.dates
  "Use this namespace to format dates and datetimes for user.
   Don't use for serializing or deserializing.
   Clojure side uses always Helsinki timezone.
   On Cljs side, uses the timezone of browser."
  #?(:cljs (:require goog.date.UtcDateTime
                     goog.date.Date
                     goog.i18n.DateTimeFormat))
  #?(:clj  (:import [org.joda.time DateTimeZone])))

onetom

(ns auth-core
  (:require-macros
    [hoplon.core :refer [with-init! defelem]]
    [javelin.core :refer [defc defc= cell= dosync]]
    [compile-time-config :refer [env]])
  (:require
    [hoplon.core :refer :all]
    [hoplon.storage-atom :refer [local-storage]]
    [javelin.core :refer [cell]]
    [castra.core :refer [mkremote assoc-when xhr-resp-headers]]

onetom

$ time docker run -it adzerk/boot-clj repl
Unable to find image 'adzerk/boot-clj:latest' locally
latest: Pulling from adzerk/boot-clj

5e7f975cbeeb: Pull complete
a3ed95caeb02: Pull complete
a3e4bb9953ce: Pull complete
32e8c9a8996e: Pull complete
Digest: sha256:713f49c833be372227089aed8dbd424e191f18ada924cfad984258c7c463ce6c
Status: Downloaded newer image for adzerk/boot-clj:latest