Skip to content

Instantly share code, notes, and snippets.

Gal Dolber galdolber

View GitHub Profile
View freqs.clj
(defn freqs-inner [coll m]
(if (empty? coll)
(freqs-inner (rest coll)
(assoc m (first coll)
(+ 1 (or (get m (first coll)) 0))))))
(defn freqs [coll]
(freqs-inner coll {}))

Keybase proof

I hereby claim:

  • I am galdolber on github.
  • I am galdolber ( on keybase.
  • I have a public key ASB1TB-KJrjkhsQCfbBKG8ZQKVZ0rIf0tNynAmAkcvrkrgo

To claim this, I am signing this object:

View paginas.js
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 {
ret.push({"email": b.children[0].value,
"nombre": b.querySelector("*[itemprop='name']").textContent.trim(),
View unicode.cljs
(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)))
View upload to memory
(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
View tmux
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
galdolber /
Created Oct 27, 2016 — forked from Arinerron/
"Root" via dirtyc0w privilege escalation exploit (automation script) / Android (32 bit)
# Give the usual warning.
echo "[INFO] Automated Android root script started.\n\n[WARN] Exploit requires sdk module \"NDK\".\nFor more information, visit the installation guide @\n[INFO] Press Ctrl+C to stop the script if you need to install the NDK module. Waiting 10 seconds...";
sleep 10;
# Download and extract exploit files.
echo "[INFO] Downloading exploit files from GitHub...";
View profile.clj
{: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"]]
galdolber / webview-for-martin.clj
Created Oct 19, 2015 — forked from jackrusher/webview-for-martin.clj
An example boot-ified Swing app that contains a JavaFX WebView (Webkit instance).
View webview-for-martin.clj
#!/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))
View gist:b9869fed1446d4cfad80
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',
You can’t perform that action at this time.