henryw374

(ns re-com.dropdown-fetching
  (:require-macros [re-com.core :refer [handler-fn]])
  (:require [re-com.util :refer [deref-or-value position-for-id item-for-id]]
            [re-com.box :refer [align-style flex-child-style]]
            [re-com.validate :refer [vector-of-maps? css-style? html-attr? number-or-string?] :refer-macros [validate-args-macro]]
            [clojure.string :as string]
            [reagent.core :as reagent]
            [re-frame.core :as re-frame]))

;;  Inspiration: http://alxlit.name/bootstrap-chosen

henryw374

#!/usr/bin/env bash

; brew install imagemagick if you haven't already

convert -resize 167x167 $ ic_launcher-19.png;
convert -resize 152x152 $ ic_launcher-18.png;
convert -resize 76x76   $ ic_launcher-17.png;
convert -resize 144x144 $ ic_launcher-16.png
convert -resize 72x72   $ ic_launcher-15.png;
convert -resize 100x100 $ ic_launcher-14.png;

henryw374

; stack dump
(require '[clojure.stacktrace :as stck])

(defn jstack [n]
  (let [threadMXBean (java.lang.management.ManagementFactory/getThreadMXBean)
        info (.getThreadInfo threadMXBean (.getAllThreadIds threadMXBean) 100)]
    (print
      (for [threadInfo info]
        (str

henryw374

(ns test-tick.weekdays
  (:require [tick.alpha.api :as t]))

; calculate weekdays between 2 local dates with tick
; 2 methods, one is quite readable, the other is probably more environmentally friendly
; https://www.timeanddate.com/date/workdays.html

; java.time weekday ordinals
; 1 2 3 4 5 6 7
; M T W T F S S

henryw374

alias commit='git commit -a -m '
alias glog='git log --pretty=oneline'
alias glog='git log --pretty=format:"%h%x09%an%x09%ad%x09%s"'
alias gsoft='git reset --soft HEAD~1'
alias gshowf='git show --name-only'
alias gshow='git diff-tree --no-commit-id --name-only -r '
alias gint='git rebase --interactive '
alias ginto='git rebase --interactive origin/master'
alias rgc='git rebase --continue'
alias rga='git rebase --abort'

henryw374

 (ns deps
   "use https://github.com/alexander-yakushev/ns-graph
   
   to create a function that returns all transitive dependencies of a namespace.
   
   handy if you're trying to pull a ns out of a project
   "
   (:require [ns-graph.core :as nsg]
             [clojure.java.io :as io]))

henryw374

 (ns transducers)

;;;;; simplified traditional impls
 
 (defn mymap [f coll]
   (reduce 
     (fn [acc n]
       (conj acc (f n)))
     []
     coll))

henryw374

(ns tidy-requires)

(defn tidy-requires [[ _ & requires]]
  (cons :require (sort-by first requires)))

(comment 
  
  (tidy-requires '(:require [foo]
                            [bar] ))
  

henryw374

(ns corr.core
  (:require [medley.core :as m]))

(defn index-by [f coll]
  (->> coll
       (group-by f)
       (m/map-vals (fn [xs]
                     (assert (= 1 (count (take 2 xs))))
                     (first xs)))))

henryw374

(ns thread-dump
  (:require [clojure.stacktrace :as st])
  (:import [java.lang.management ManagementFactory]))

(defn jstack [n]
  (let [threadMXBean (ManagementFactory/getThreadMXBean)
        info (.getThreadInfo threadMXBean (.getAllThreadIds threadMXBean) 100)]
    (print
      (for [threadInfo info]
        (str