Keybase proof
I hereby claim:
- I am galdolber on github.
- I am galdolber (https://keybase.io/galdolber) on keybase.
- I have a public key ASB1TB-KJrjkhsQCfbBKG8ZQKVZ0rIf0tNynAmAkcvrkrgo
To claim this, I am signing this object:
(defn freqs-inner [coll m] | |
(if (empty? coll) | |
m | |
(freqs-inner (rest coll) | |
(assoc m (first coll) | |
(+ 1 (or (get m (first coll)) 0)))))) | |
(defn freqs [coll] | |
(freqs-inner coll {})) |
I hereby claim:
To claim this, I am signing this object:
biz = document.getElementsByClassName("business"); | |
ret = []; | |
for(n=0;n<biz.length; n++) { | |
b = biz[n]; | |
cbox = false; | |
try {b.children[2].children[0].children[1].children[0].className == "chatBox";}catch(e){}; | |
try { | |
p1=b.querySelector("*[itemprop='telephone']"); | |
ret.push({"email": b.children[0].value, | |
"nombre": b.querySelector("*[itemprop='name']").textContent.trim(), |
(ns api.unicode | |
(:refer-clojure :exclude [count seq subs])) | |
(def reg (if (exists? js/window) | |
(js* "/(\\P{Mark}\\p{Mark}*)/u") | |
(.build (js/require "xregexp") "(\\P{Mark}\\p{Mark}*)" "A"))) | |
(defn seq [txt] (when txt (map first (re-seq reg txt)))) | |
(defn count [txt] (cljs.core/count (seq txt))) |
(defn file-input [{:keys [id doc multiple on-change hide-msg | |
preview directory on-raw-change] :as attrs}] | |
[error {:errors (get (:bouncer.core/errors @doc) id) :hide-msg hide-msg} | |
[:div.flex.flex1.flex-column {:style {:display "inline-block"}} | |
(when (and preview (get @doc id)) | |
[preview (get @doc id)]) | |
[:div [:b (if multiple | |
(apply str (interpose ", " (map :name (id @doc)))) | |
(:name (id @doc)))]] | |
(let [attrs (merge |
set-option -g mouse-select-pane on | |
set-option -g mouse-select-window on | |
set-window-option -g mode-mouse on | |
set -g mouse on | |
bind -n WheelUpPane if-shell -F -t = "#{mouse_any_flag}" "send-keys -M" "if -Ft= '#{pane_in_mode}' 'send-keys -M' 'select-pane -t=; copy-mode -e; send-keys -M'" | |
bind -n WheelDownPane select-pane -t= \; send-keys -M | |
bind -n C-WheelUpPane select-pane -t= \; copy-mode -e \; send-keys -M | |
bind -t vi-copy C-WheelUpPane halfpage-up | |
bind -t vi-copy C-WheelDownPane halfpage-down |
#!/bin/bash | |
# Give the usual warning. | |
clear; | |
echo "[INFO] Automated Android root script started.\n\n[WARN] Exploit requires sdk module \"NDK\".\nFor more information, visit the installation guide @ https://goo.gl/E2nmLF\n[INFO] Press Ctrl+C to stop the script if you need to install the NDK module. Waiting 10 seconds..."; | |
sleep 10; | |
clear; | |
# Download and extract exploit files. | |
echo "[INFO] Downloading exploit files from GitHub..."; |
{:repl {:plugins [[cider/cider-nrepl "0.10.0"] | |
[lein-cloverage "1.0.2"] | |
[lein-kibit "0.0.8"] | |
[lein-marginalia "0.8.0"] | |
[lein-bikeshed "0.2.0"] | |
[lein-capsule "0.1.1"] | |
[slamhound "1.5.5"] | |
[lein-droid "0.3.5"] | |
[lein-exec "0.3.4"] | |
[jonase/eastwood "0.2.1"]] |
#!/usr/bin/env boot | |
;; -*- mode: Clojure;-*- | |
(set-env! :dependencies '[[seesaw "1.4.5"]]) | |
(use 'seesaw.core) | |
(import '(javafx.scene.web WebView) | |
'(javafx.scene SceneBuilder) | |
'(javafx.scene.layout VBoxBuilder)) |
CREATE TABLE IF NOT EXISTS `obras`.`datomic_kvs` ( | |
`id` VARCHAR(640) CHARACTER SET 'ascii' COLLATE 'ascii_bin' NOT NULL, | |
`rev` INT, | |
`map` TEXT CHARACTER SET 'utf8mb4' COLLATE 'utf8mb4_bin', | |
`val` LONGBLOB, | |
PRIMARY KEY (`id`)) ENGINE=INNODB; |