aiba

(ns aiba.util.dofor)

(defmacro dofor {:style/indent 1} [& stuff]
  `(doall (for ~@stuff)))

aiba

Keybase proof

I hereby claim:

• I am aiba on github.
• I am aaroniba (https://keybase.io/aaroniba) on keybase.
• I have a public key ASCPkhZQJ5BkHO0RDNqPaG-_fi71nDhiBlwjQ3_qaruQogo

To claim this, I am signing this object:

aiba

(ns myapp.url-linking
  (:require ["@react-navigation/native" :as rnav]
            ["react" :as react]
            ["react-native" :as rn]
            [applied-science.js-interop :as j]
            [cemerick.url :as url]
            [clojure.string :as str]
            [helix.core :as helix]
            [helix.hooks :as hooks]
            [kitchen-async.promise :as p]

aiba

#!/usr/bin/env clojure

(require '[clojure.java.io :as io])
(import 'javax.sound.sampled.AudioSystem)

(defn url->bytes [^String url]
  (with-open [xin (io/input-stream (java.net.URL. url))
              xout (java.io.ByteArrayOutputStream.)]
    (io/copy xin xout)
    (.toByteArray xout)))

aiba

(defn linear-interpolate
  ([]
   (fn [rf]
     (let [rrf (#'clojure.core/preserving-reduced rf)
           skipped (volatile! 0)    ;; n of contiguous nils
           prev    (volatile! nil)] ;; most recent value seen
       (fn
         ([] (rf)) ;; init
         ([result] ;; completion -- skipped stay nils since no endpoint
          (rf (reduce rf result (repeat @skipped nil))))

aiba

(ns virgil.repl
  (:require [clojure.set :as set]
            [clojure.tools.namespace.dir :as ctn-dir]
            [clojure.tools.namespace.file :as ctn-file]
            [clojure.tools.namespace.find :as ctn-find]
            [clojure.tools.namespace.parse :as ctn-parse]
            [clojure.tools.namespace.repl :as ctn-repl]
            [virgil.compile :refer [compile-all-java]])
  (:import java.io.File
           java.util.Arrays))

aiba

Kyrgyzstan
Cyprus
St Kitts & Nevis
Egypt
Chad
Marshall Islands
Myanmar, {Burma}
Netherlands
Switzerland
Czech Republic

aiba

- redisplay_internal (C function)                               19334  90%
 - debug                                                        19334  90%
  - recursive-edit                                              15689  73%
   - nrepl-client-filter                                        10656  50%
    - nrepl--dispatch-response                                  10159  47%
     - nrepl-log-message                                         9813  46%
      - nrepl--pp                                                9800  46%
       - nrepl--pp                                               9798  46%
        - nrepl--pp                                              9712  45%
         - nrepl--pp                                             9056  42%

aiba

- redisplay_internal (C function)                                3653  87%
 - debug                                                         3653  87%
  - recursive-edit                                               3372  80%
   - nrepl-client-filter                                         2894  69%
    - nrepl--dispatch-response                                   2728  65%
     - nrepl-log-message                                         2722  65%
      - nrepl--pp                                                2698  64%
       - nrepl--pp                                               2698  64%
        - nrepl--pp                                              2597  62%
         - nrepl--pp                                             2346  56%

aiba

;; I recommend mapping to C-c M-k
(defun my-cider-reset-buffer ()
  (interactive)
  (cider-interactive-eval "(remove-ns (ns-name *ns*))")
  (cider-load-buffer))