Skip to content

Instantly share code, notes, and snippets.

Enjoying the summer

Daniel Compton danielcompton

Enjoying the summer
Block or report user

Report or block danielcompton

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
myell0w / UIView+Hierarchy.swift
Created Jun 13, 2018
Traverse View Hierarchy Upwards
View UIView+Hierarchy.swift
extension UIView {
func findFirstSuperview<T>(ofClass viewClass: T.Type, where predicate: (T) -> Bool) -> T? where T: UIView {
var view: UIView? = self
while view != nil {
if let typedView = view as? T, predicate(typedView) {
view = view?.superview
View upload.clj
{:id ::index
{:consumes "application/octet-stream"
:consumer (fn [ctx _ body-stream]
(let [f ( "yada" ".tmp" (io/file "/tmp"))]
(infof "Saving to file: %s" f)
ctx body-stream
cgrand / core.cljc
Last active May 11, 2018
Mixing macros and code in cljc and supporting clj, cljs and self-hosted cljs, see
View core.cljc
;; SEE:
;; macros and code in a single cljc working across clj, cljs and self-hosted cljs
;; require clojurescript from master
(ns foo.core
#?(:cljs (:require-macros
[net.cgrand.meta-macros :refer [macros no-macros]]
[foo.core :refer [add]])
:clj (:require
Risto-Stevcev / spectest.cljs
Last active Oct 31, 2019
Some functions to help integrate clojure.spec.test/check with cljs.test/deftest
View spectest.cljs
(ns foo-test
(:require [cljs.spec :as s]
[cljs.spec.test :as stest]
[clojure.pprint :as pprint]
[cljs.test :refer-macros [deftest is]]))
;; Sample function and a function spec
(defn fooo [i] (+ i 20))
(s/fdef fooo
steipete / gist:d9b44d8e9f341e81414e86d7ff8fb62d
Last active Feb 19, 2020
Using iOS 13.2 devices with Xcode 11.1 (instead of Xcode 11.2) (also, Xcode 10.3)
View gist:d9b44d8e9f341e81414e86d7ff8fb62d
// The trick is to link the DeviceSupport folder from the beta to the stable version.
// sudo needed if you run the Mac App Store version. Always download the dmg instead... you'll thank me later :)
// Support iOS 13.2 devices (Xcode 11.2) with Xcode 11.1:
sudo ln -s /Applications/ /Applications/
// Xcode 10.3 to Xcode 11
sudo ln -s /Applications/ /Applications/
// Then restart Xcode and reconnect your devices. You will need to do that for every beta of future iOS versions
marcoarment / FCPrivateBatteryStatus.m
Created Jan 29, 2016
How to get raw battery info (mAh remaining, etc.) from iOS using private APIs. For internal testing only, NOT APP STORE DISTRIBUTION!
View FCPrivateBatteryStatus.m
#import <Foundation/Foundation.h>
#include <dlfcn.h>
NSDictionary *FCPrivateBatteryStatus()
static mach_port_t *s_kIOMasterPortDefault;
static kern_return_t (*s_IORegistryEntryCreateCFProperties)(mach_port_t entry, CFMutableDictionaryRef *properties, CFAllocatorRef allocator, UInt32 options);
static mach_port_t (*s_IOServiceGetMatchingService)(mach_port_t masterPort, CFDictionaryRef matching CF_RELEASES_ARGUMENT);
static CFMutableDictionaryRef (*s_IOServiceMatching)(const char *name);
View Intercom

Intercom user_hash

Remember that your secret key should never be exposed to the public

  • So Javascript code below should only be used for testing unless modified and used to run on a server
sunng87 / reflection.clj
Created Nov 20, 2015
clojure: access private field/method via reflection
View reflection.clj
(defn invoke-private-method [obj fn-name-string & args]
(let [m (first (filter (fn [x] (.. x getName (equals fn-name-string)))
(.. obj getClass getDeclaredMethods)))]
(. m (setAccessible true))
(. m (invoke obj args))))
(defn private-field [obj fn-name-string]
(let [m (.. obj getClass (getDeclaredField fn-name-string))]
(. m (setAccessible true))
(. m (get obj))))
igorlukanin / RethinkDB.kt
Last active Oct 29, 2015
Using RethinkDB Java driver with Kotlin
View RethinkDB.kt
* Database.kt
import com.rethinkdb.RethinkDB
import com.rethinkdb.gen.ast.ReqlExpr
object Database {
private lateinit var db: String
gja / core.clj
Last active Dec 16, 2017
Building a lein uberjar without any compilation
View core.clj
(ns simplequest.core)
(defn -main
"I don't do a whole lot ... yet."
[& args]
(println "Hello, World!"))
You can’t perform that action at this time.