Skip to content

Instantly share code, notes, and snippets.

Gal Dolber galdolber

Block or report user

Report or block galdolber

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
View freqs.clj
(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 {}))
View keybase.md

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:

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 {
p1=b.querySelector("*[itemprop='telephone']");
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
galdolber / root.sh
Created Oct 27, 2016 — forked from Arinerron/root.sh
"Root" via dirtyc0w privilege escalation exploit (automation script) / Android (32 bit)
View root.sh
#!/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...";
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
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',
`val` LONGBLOB,
PRIMARY KEY (`id`)) ENGINE=INNODB;
You can’t perform that action at this time.